IBM PC CONVERTIBLE

01DA EC
01DB 8A EO
0100 80 E4 F8
OlEO
OlEO
5A
01El 8A C2
01E3 80 F4 48
01E6 EB AF
01E8
01E8
50
01 E9 42
OlEA 42
01EB BO 08
OlEO EE
01EE B9 0352
01F1
01 F2
01F5
01F7
01F8
01FB
51
B9 050A
E2 FE
59
83 FA 7A
75 1B
01FD E4 79
01FF A8 02
0201 El EE
0203 B3 08
0205 B9 FBF4
0208 E2 FE
020A FE CB
020C 75 F7
020E BO OC
0210 EE
0211 B9 3C78
0214 E2 FE
0216 EB BD
0218 BO OC
021A EE
021B EB B8
0210
0210
B7 :
IN
MOV
AND
POP
MOV
XOR
JMP
AL,DX
AH,AL
AH ,OF8H
OX
AL,DL
AH ,ACK+NOLERROR
B1
INITIALIZE THE PRINTER PORT
88:
PUSH
INC
INC
MOV
OUT
MOV
AX
OX
OX
AL,SELECT
DX,AL
CX ,850
GET PRINTER STATUS
TURN OFF UNUSED BITS
STATUS_SET
RECOVER AL REG
GET CHARACTER INTO AL
FLIP A COUPLE OF BITS
RETURN FROM ROUTINE
SAVE AL
POINT TO OUTPUT PORT
SET INIT LINE LOW, SLCT HIGH
SET MAX TIME CNT TO 4.25 SEC
WAIT FOR UP TO 4 SECONDS FOR COMPACT PRINTER TO DROP BUSY
I F PARALLEL PRINTER THEN JUST WAIT 5 MSECS AND EXIT
BlO:
MOV
LOOP
POP
CMP
JNE
PUSH CX
CX,5*MS_DELAY
$
CX
OX, CPRT _MODE
B11
DELAY FOR 5 MSECS
COMPACT PRINTER?
EX IT LOOP I F NOT
WAIT FOR COMPACT PRINTER TO DROP BUSY
IN
TEST
LOOPZ
AL, CPRLSTAT
AL,02
B10
, CHK FOR BUSY DROP IN STATUS
; NOT BUSY?
; LOOP I F STILL BUSY
DELAY SECONDS AFTER BUSY DROP TO LET PRINTER MOVE HEAD TO HOME
MOV BL, SELECT
BlO_1: MOV CX, 250*MS_DELAY
LOOP $
DEC BL
JNE B10_1
ACTIVATE PRINTER POWER
MOV
OUT
AL,SELECT+NO_INIT ; NO INTERRUPTS, NON AUTO LF,
DX,AL ; SELECT AND INIT LINE HIGH
DELAY 60 MSEC AFTER PRINTER POWER HAS BEEN ENABLED
MOV
LOOP
JMP
CX,60*MS_DELAY
$
SHORT B6
60 MSEC DELAY
EXIT ROUTINE
B11: MOV AL, SELECT+NO_I NIT ; NO I RPTS, NON AUTO LF,
OUT DX,AL ; SELECT AND INIT LINE HIGH
JMP SHORT B6 ; PRLSTATUS_l
PRLIO ENDP
ROMCODE ENDS
END
2-152 ROM BIOS