IBM XT 5160 - Page 207

IBM Personal Computer MACRO Assembler Version 2.00
RS232 ---- 01/10/86 COMMUNICATIONS BIOS (RS2321
1-2
01-10-86
SEND CHARACTER IN (AL lOVER COMMO LI NE
I
NIT I ALI ZE THE COMMUN I CAT IONS PORT
RECE I VE CHARACTER FROM COMMa LINE
CLEAR TO SEND
LINE STATUS REGISTER
WAIT SEND
I S
TRANSM I TTER READY
TEST FOR TRANSM I TTER READY
RETURN
WI Ti'I T I ME OUT SET
OUT CHAR
DATA PORT
RECOVER
IN CX TEMPORAR IL Y
MOVE CHAR TO AL FOR OUT. STATUS IN AH
OUTPUT CHARACTER
RETURN
RELOAD DAT'A BYTE
INDICATE TIME OUT
RETURN
SAVE INITIALIZATION PARAMETERS IN (AHI
PO I NT TO 8250 CONTROL REG I STER
SET OLAB: 1
I
SOLA TE THEM
BASE OF TABLE
PUT I NTO I NDEX REG I STER
PO I
NT TO HIGH ORDER OF 0 I V I SOR
GET HIGH ORDER OF 0 I V I SOR
SET ms OF 0 I V I SOR TO 0
I/O DELAY
GET LOW ORDER OF 0 I V I SOR
SET LOW OF 0 I V I SOR
GET PARAMETERS BACK
STR I
POFF THE BAUD BITS
LINE CONTROL TO 8 BITS
GET PARAMETERS TO (DLl
MODEM CONTROL REG I STER
OAT
A TE~M I NAL READY
MODEM STATUS REGISTER
WAIT DSR
OAT
A-SET. READY
TEST FOR OSR
RETURN WITH ERROR
WAIT DSR END
LI NE-STATUS REG I STER
WAIT REC·V
RECEIVE BUFFER FULL
TEST F:OR RECE I VE BUFFER FULL
SET TIME OUT ERROR
GET CHAR
TEST FOR' ERROR COND I TI ONS ON RECE I VE
DATA PORT
GET CHARACTER FROM LINE
RETURN
;
I/O DELAY
I NTERRUPT ENABLES ALL OFF
COM_STATUS
; CONTROL PORT
; GET LINE CONTROL STATUS
; PUT I N ( AH ) FOR RETURN
;
POINT TO MODEM STATUS REGISTER
; GET MODEM CONTROL STATUS
; RETURN
;
SAVE CHAR TO SEND
;
MODEM CONifROL REG I STER
I OTR AND RTS
;
DATA TERMINAL READY, REQUEST TO SEND
I MODEM STATUS REGI STER
;
DATA . SET R£.AOY & CLEAR TO SEND
;
ARE BOTH TRUE
YES, READY TO TRANSM I T CHAR
AL,O
DX,AL
SHORT A 18
AH,80H
A3
CX
AL,CL
OX
AH,00011110B
OX, ORS232_BASE [S I ]
AL,DX
A3
AH,AL
DX,3
AL,80H
DX,AL
OX
BH,20H
WA I T FOR STATUS
A8 - -
DL,AH
CL,4
DL,CL
DX,OEH
01 ,OFFSET Al
OI,DX
OX, ORS232_BASE [S I]
OX
AL,CS:[DI]+1
DX,AL
OX
AL,CS: [01]
DX,AL
DX,3
AL,AH
AL,O IFH
DX,AL
OX
OX
AX
DX,4
AL,3
DX,AL
OX
OX
BH,30H
WA I T FOR STATUS
A9 - -
DX,5
CX
AL,CL
DX,AL
A3
DX,4
AL, I
DX,AL
OX
OX
OX, ORS232_BASE [S I ]
OX,5
AL,DX
AH,AL
OX
AL,DX
A3
BH,20H
WAIT FOR STATUS
A7 - -
BH,1
WA I T FOR STATUS
A8 - -
OR
JMP
DETERM I NE BAUD RATE 0 I V I SOR
DEC
POP
MOV
COMMa PORT STATUS ROUTINE
MOV
CALL
JNZ
MOV
CALL
JNZ
DEC
PUSH
ADD
MOV
OUT
INC
INC
MOV
CALL
JE
ADD
MOV
OUT
INC
INC
MOV
IN
JMP
MOV
CALL
JNZ
AND
SUB
POP
MOV
OUT
JMP
MOV
MOV
ROL
AND
MOV
ADD
MOV
INC
MOV
OUT
DEC
Nap
MOV
OUT
ADO
MOV
AND
OUT
DEC
DEC
Nap
MOV
OUT
JMP
MOV
ADD
MOV
OUT
MOV
ADD
IN
MOV
INC
IN
JMP
A7:
Al0:
A12:
All:
A16:
A13:
A5:
A8:
A9:
A4:
A17:
A15:
A18:
PAGE
115
116
117
118
0039
I 19 0039 8A EO
120 003B 83 C2 03
121 003E BO 80
122 0040 EE
123
124
125
126
0041 8A 04
127 0043 Bl 04
128 0045 02 C2
129 0047 81 E2 OOOE
130 004B BF 0000 E
131
004E 03 FA
132 0050 8B 94 0000 R
133 0054 42
134 0055 2E: 8A 45 01
135 0059 EE
136 005A 4A
137 005B 90
138 005C 2E: 8A 05
139 005F EE
140 0060 83 C2 03
141 0063 8A C4
142 0065 24 IF
143 0067 EE
144 0068 4A
145 0069 4A
146 006A 90
147 006B BO 00
148 0060 EE
149 006E EB 4B
150
151
152
153 0070
154 0070 50
155 0071 83 C2 04
156 0074 BO 03
157 0076 EE
158 0077 42
159 0078 42
160 0079 B7 30
161 007B E8 OOCA R
162 007E 74 08
163 0080
164 0080 59
165 0081 8A C I
166 0083
167 0083 80 CC 80
168 0086 EB AA
169
170 0088
171 0088 4A
172 0089
173 0089 B7 20
174 008B E8 OOCA R
175 008E 75 FO
176 0090
177 0090 83 EA 05
178 0093 59
179 0094 8A Cl
180 0096 EE
181 0097 EB 99
182
183
184
185 0099
186 0099 83 C2 04
187 009C BO 01
188 009E EE
189 009F 42
190 OOAO 42
191 OOA I
192 OOA I B7 20
193 00A3 E8 OOCA R
194 00A6 75 DB
195 00A8
196 00A8 4A
197 00A9
198 00A9 B7 0 I
199 OOAB E8 OOCA R
200 OOAE 75 03
20 I OOBO
202 OOBO 80 E4 1E
203
204 00B3 8B 94 0000 R
205 00B7 EC
206 00B8 E9 0032 R
207
208
209
210
OOBB
211 OOBB 8B 94 0000 R
212 OOBF 83 C2 05
213 00C2 EC
214 00C3 8A EO
215 00C542
216 00C6 EC
217 00C7 E9 0032 R
5-60
RS232 (01/10/86)