IBM 5150 Technical Reference page 146

LOC OBJ
LINE
SOURCE
E7CF E8Z000 1739 CALL
WAIT_FOR_STATUS
I TEST FOR DSR
E70:?: 750B
1740 JNZ
.8
I RETURN WUlI ERROR
E704 1741 A15:
I WAIT_DSR_EHD
E704 404 1742
DEC OX I lINE STATUS REGISTER
E7DS 1743 .6016:
J WAIT_RECY
E7D5 8701 1744
ItOV BH.t , RECEIVE BUFFER FULL
E7D7 E81800 1745
CALL
WAIT_FOR_STATUS
j
TEST FOR REC. BUFF. FULL
~
E70A 75D3 1746
JHZ .8 I SET TIME OUT ERROR
E?De 1747 .1.17:
I GET_CHAR
E7DC 80E41E 1748 AND
AH,OOOl1l10B I TEST FOR ERR CONDITIONS ON RECY CHAR
E7DF 8814 1749
ItOV DX.RS232_BASE[SI I
I DATA PORT
E7fl Ee 1750
IN
AL.DX
; GET CHARACTER FROt1 LINE
E7E2 E97DFF 1751 JMP
.3
f
RETURN
1752
1753
1----- C0l1l'10 PORT STATUS ROUTINE
1754
E7f5
1755
A18:
E7£5 8814 1756 ItOV
DX.RS232_BASE[ 51
J
E7E7 83C2:05 1757 ADD
OX.S
I C~OL PORT
E7EA Ee 1758
IN AL.DX I GET LINE CONTROL STATUS
E7E8 BAED 1759 ItOV AH.AL
J
PUT IN AH FOR RETURN
E7ED 42
1760
INC OX
I
POINT
TO HooEH STATUS REGISTER
E7EE EC 1761 IN
AL.DX I GET MODEM CONTROL STATUS
E7EF E970FF
1762
JMP
A3
; RETURN
1763
1-~-
-­ -­ ----­ ---------------------------­
1764 1 WAIT FOR STATUS ROUTINE
1765 I
1766
1 ENTRY:
1767 8H=STATUS SIT(S) TO LOOK FOR.
1768
oX=ADDR. OF STATlJS REG
1769
I EXIT:
1770
I ZERO FLAG ON = STATUS FOUND
1771 ZERO FLAG OFF = TIMEOUT.
1772 AH=LAST STATUS READ
1773
;
------------
------------­
-
-
----
-
­
------­
E7F~
1774 WAITJOR.STATUS PROC NEAR
E7FZ 8A5D7C 1775
MOV
BL.RS232.TI~OUT[DI J ; LOAD OUTER LOOP COUNT
.~
E7FS 1776 WFSO:
E7F5 ZBC9 1777 SlJ!l
cx.ex
E7F7
1778
WFSl:
E7F7 EC
1779 IN AL,DX 1 GET STATUS
E7F8 8AEO 1780
HOV AH,.\l i MOVE TO AH
E7FA 22C7 1781
AND
AL.SH I ISo .....TE BITS TO TEST
E7FC lAC7 1782 CHP
Al.SH
f EXACTLY = TO MASK
E7FE 7408 1783
JE WFS.END
I RETURN WITH ZERO F LAG ON
E800 E2F5 1784
LOOP WFSI ; TRY AGAIN
E802 FECB 1785
DEC 8L
E804 75EF
17a6
JHZ
WFSO
E806 OAFF 1787
OR BH.SH 1 SET ZERO FLAG OFF
ES08
1788 WFS.EHD:
E808 C3 1789 RET
1790 WAITJOR_STATtJS ENDP
1791 RSZ32.IO ENDP
1792
1793
1--------------------------------------------------------.---------------­
1794
1795
I PRINT ADDRESS AND ERROR MESSAGE FOR ROM CHECKSUM ERRORS
1-----------------------------------------------------------------------.­
E809 1796 ROtLERR PRDC NEAR
E809 52 1797 PUSH OX J
SAVE POINTER
E80A 50
1798 PUSH AX
f80S 8CDA
1799 MOV OX.DS 1 GET ADDRESS POINTER
EeoO 81FAOOC8 1800 CHP
ox.ocaOOH
E8ll 7E13
1801 JLE
ROM.ERR.SEEP ; SPECIAL ERROR INDICATION
E813 8AC6
1802 MDV
AL.OH
E8l5 E800Ff
1803
CALL XPC.BYTE I DISPLAY ADDRESS
E818 8AC2
1804 MOV AL.OL
Eau EBoaFE 1805 CAll
XPC.BYTE
~
E81D BED7E6 1806 ItOV SI.OFFSET F3A 1 DISPLAY ERROR HSG
E820 E897FE
1807
CALL P.MSG
E823
1808
ROH_ERR.END :
E823 58 1809 POP AX
E824 SA 1810
pop
OX
Ea2S Cl 1811 RET
E826 1812
ROM.ERR.BEEP:
E826 8.1.0201 1813 HOV OX.DI02H
; BEEP 1 LONG. 2 SHORT
E8Z9 E8A3FD 1814
CALL ERR.BEEP
E8ZC ESF5 1815
JHP
SHORT ROt1.ERR.END
System BIOS 5-53