IBM 5150 - 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