Advertisement
MIOA.PRN
3103:
3145 31C03S
3148 AP
3149 D343
314B OEOO
314D DBFF.
SIC31:
314F 32FA31
3152 2F
3153 AI
3154 OC
3155 57
3155 2F
3157 D3FF
3159 2F
315A CD9E31
315D CDAA31
SI032:
3150 CA5D31
3163 FA3131
3156 5F
3157 3AFA31
31SA 2F
316B A3
316C BA
'315D CA4D31
13170 5F
3171 3EFE
3173 CD8E31
3176 7A
3177 CD8E31
317A 73
317B CD8E31
317E C34D31
3181 57
SI033:
3182 3EFE
3184 CD8E31
3187 7A
3188 CD8E31
313B C34D31
;GENERAL UTILITY ROUTINES FOR SIO TEST.
/THIS ROUTINE DISPLAYS THE VALUE IN A UNTIL
;SENSE SWITCHES ARE CHANGED.
313E 2P
DISP:
313F D3FF
3191 DBFF
3193 47
3194 CDF331
3197 DBFF
DIS1:
3199 A3
319A CA9731
319D C9
/OUTPUT CHARACTER IN A WHEN DEVICE READY.
319E 47
SOUT:
319F D843
SOUTl:
31A1 E601
4 TO 0 RESPECTIVELY.
WITH TRANSMITTED CHAR.
FOLLOWED BY TRANSMITTED CHAR AND
'
RECEIVED CHAR.
TRANSMITTED CHAR.
LXI SP,STACK
;SET CONTROL
XRA A
OUT CNT
MVI C,0
,-ORIGINAL CHAR VALUE
;G£T ORIGINAL SENSE SWITCH
IN SSPT
STA SSAV
CMA
;FORM CHAR
ANA C
INR C
SET NEXT VALUE
MOV D,A
SAVE IT FOR COMPARE
CMA
FOR PROPER LIGHTS
DISPLAY IT
ODT SSPT
FOR PROPER VALUE
CMA
CALL SOOT
OUTPUT IT
CALL SINP
TEST INPUT
J2 SI032
IF NONE READY
JM SI033
ON ERROR
MOV E,A
MASK INPUT
LDA SSAV
CMA
ANA S
CMP D
/COMPARE WITH OUTPUT
JZ SI031
;RELOOP IF OK
MOV E,A
MVI A,OFEH
ERROR FLAG
CALL DISP
DISPLAY TILL SENSE SWITCHES CHANGE
MOV A,D
TRANS CHAR
CALL DISP
MOV A,E
/RECEIVED CHAP.
CALL DISP
JMP SI031
MOV D,A
/SAVE ERRORS
MVI A ,OFEH
/ERROR FLAG
CALL DISP
MOV A,D
/STATUS RESULTS
CALL DISP
JMP SI031
CMA
/FOR PROPER LIGHTS
OUT SSPT
IN SSPT
/INITIAL SENSE SWITCHES
MOV 3,A
CALL DLA5
/WAIT A WHILE
IN SSPT
/NEW VALUE?
XRA B
JZ DIS1 /WAIT FOP DIFFERENCE
RET
MOV 3,A
/WAIT TIL READY
IN CNT
ANI 1
PAGE 2
COMPARE RECEIVED CHAR
DISPLAY OFEH IF DIFFERENT
IN NORMAL OPERATION DISPLAY
Advertisement
