Advertisement
HIQA.PRN
3202 OC
3203 C2FF31
3206 3C
3207 C2FF31
3 20A C9
3 20B E5
DONE:
3 20C El
3 20D S5
3 20E El
3 20F S5
3210 El
3211 S5
3212 El
3213 E5
3214 El
3215 7F
3216 C9
;PIO TEST 1
•
3217 0E01
PI01:
3219 DBFF
PI011
3 21B 2F
PI012 r
3 21C D3FF
3 21S 2F
321F 47
3220 AF
3221 D343
3223 78
3224 0341
3226 3E80
3223 D343
322A 78
3 22B D341
322D OC
3 22E OD
3 22F FA3532
3232 C21932
• JNZ PIOll
3235 79
PIO.13 :
3 236 D343
3238 DB41
323A C31B32
: PIO TEST 2
;
3 23D OEOO
PI02:
3 23F C33532
; PIO TEST 3
;
3242 OE80
PI03:
3244 C33532
;CRI WRITE TEST
r
r
3247 310038
CRIWT : LXI SP,STACK
3 2 4'A 210036
324D AF
3 24E 77
CRIW1 : MOV M , A
3 24F 23
3250 3C
INR C
JNZ DLA51
INR A
JNZ PLA51
RET
PUSH H
;TAKE 121 CYCLES
POP H
PUSH H
POP H
PUSH H
POP H
PUSH H
POP H
PUSH H
PO? H
MOV A,A
RET
BEAD SENSE SWITCHES AND OUTPUT
TO BOTH PORTS.
MVI C,1
;SET TEST 1 FLAG
IN SSPT
;GET VALUE
;FOR PROPER LIGHTS
CKA
, - OUTPUT TO LIGHTS
OUT SSPT
CMA
; FOR PROGRAM USE
MOV B , A
XRA A
;SET. FOR PORT 1
OUT CNT
MOV A,3
OUT PIO
MVI A,30H
; NOW FOR PORT 2
OUT CNT
MOV A,B
OUT PIO
;SEE WHICH TEST IT IS
INR C
UCR C
JM PI013
MOV A,C
;TEST 2 OR 3
;SET TO READ PROPER INPUT PORT
OUT CNT
IN PIO-
JM? PI012
READ PIO PORT 1 AND OUTPUT
TO PORTS 1 AMD 2 AND SENSE LIGHTS
MVI C,Q
; FLAG FOR PORT 1 IN
JMP PI013
READ PIO PORT 2 AND OUTPUT
TO PORTS 1 AND 2 AND SENSE LIGHTS.
MVI C,80H
;FLAG FOR PORT 2 IN
JMP PI013
'
WRITE A BLOCK OF 25S BYTES
WITH EACH BYTE CONTAINING'ITS ADDRESS
WITHIN THE BLOCK.
;FILL BUFFER WITH ADDRESS
LXI H.BUFR
XRA A
INX H
INR A
PAGE 4
-
Advertisement
