IBM 5170 Technical Reference page 266

0066 42
INC
OX
0067 EC
0068
8A EO
006A 80 E4 F8
IN
MOV
AND
Al,DX
AH,Al
AH,OF8H
GET PRINTER STATUS
TURN OFF UNUSED 6 I TS
0060
67: STATUS_SET
0060 5A POP
OX
RECOVER Al REG
006E 8A C2
MOV
Al,Ol GET CHARACTER INTO Al
0070 80 F4 48
XOR
AH,48H FLIP A COUPLE OF BITS
0073 EB 60 JMP Bl RETURN FROM ROUT I NE
;-----­
INITIALIZE THE PRINTER PORT
0075 B8:
0075
50
PUSH
AX
SAVE Al
0076
42
INC OX
POINT TO OUTPUT PORT
0077
42
INC OX
0078 90 08
007A
EE
MOV
OUT
Al,a
DX,AL
SET IN IT LINE lOW
007B B8 OFAO
007E B9:
MOV
AX,1000*4
INIT_lOOP
007E 4B
DEC AX
lOOP FOR RESET TO TAKE
007F 75 FD
JNZ
B9 I NIT_LOOP
008'
BO OC
MOV
Al,OCH
NO
INTERRUPTS, NON AUTO IF, INIT HIGH
0083
EE OUT OX,Al
0084 EB DC JM, B6 PRT_STATUS_'
0086 PR I NTER_
10 1 ENDP
0086 CODE ENDS
END
5-124 Printer