IBM XT 5160 Technical Reference page 277

LOC OBJECT LINE SOURCE (B I OS FOR THE I BM PERSONAL COMPUTER XT) 1 1 /08/82
WAIT FOR STATUS ROUTINE
EXIT:
ENTRY:
BH=STATUS BITIS) TO LOOK FOR,
DX=ADDR. OF STATUS REG
ZERO FLAG ON = STATUS FOUND
ZERO FLAG OFF = TIMEOUT.
AH=LAST STATUS READ
ERROR PROMPT
SET ZERO FLAG OFF
GET STATUS
MOVE TO AH
ISOLATE BITS TO TEST
EXACTL Y = TO MASK
RETURN WITH ZERO FLAG ON
TRY AGAIN
'ERROR. (RESUME = F 1 KEY)', 13, 10 DB F3D
SUB CX ,CX
WFS 1:
IN AL,DX
MOV AH,AL
AND AL,BH
CMP AL,BH
JE WFS END
LOOP WFSI
DEC BL
JNZ WFSO
OR BH,BH
WFS END:
- RET
WAIT FOR STATUS ENDP
RS232_10- ENDP
.----------------------------------------
WAIT FOR STATUS PROC NEAR
- MOV BL,RS232_T1M_OUT[DI] LOAD OUTER LOOP COUNT
WFSO:
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704 E809 4552524F522E20
28524553554045
20302022463122
204B455929
E823 00
E824 OA
E806 OAFF
E808
E808 C3
E7F2
E7F2 8A5D7C
E7F5
E7F5 2BC9
E7F7
E7F7 EC
E7F8 8AEO
E7FA 22C7
E7FC 3AC7
E7FE 7408
E800 E2F5
E802 FECB
E804 75EF
1705
5-130
PC-XT System BIOS (11/08/82)