IBM XT 5160 Technical Reference page 208

PAGE
RS232 (01/10/86) 5-61
GET STATUS
MOVE TO IAH)
ISOLATE 81 TS TO TEST
EXACTL Y = TO MASK
RETURN WITH ZERO FLAG ON
TRY AGAIN
DECREMENT LOOP COUNTER
LOAD OUTER LOOP COUNT
I SET ZERO FLAG OFF
1-3
01-10-86
WAIT_FOR_STATUS ENOP
RS232_10_1 ENOP
CODE ENDS
END
;ENTRY:
~~~T=F~~Ai~~T~~T~~~Ti~E
L OOK FOR
; (OX) = ADDRESS OF STATUS REG
; EX IT: ZERO FLAG ON = STATUS FOUND
ZERO FLAG OFF = TIMEOUT.
(AHI = LAST STATUS READ
MOV 8L,ORS232_T IM_OUT[OI]
WFSO:
SU8 CX,CX
WFSI:
IN AL,OX
MOV AH,AL
AND AL,8H
CMP AL,8H
JE WFS_ENO
LOOP WFSI
DEC 8L
JNZ WFSO
OR 8H,8H
WFS_ENO:
RET
218
219
220
221
222
223
224
225
226
227
228 OOCA
229
230 OOCA 8A 90 007C R
231 OOCE
232 OOCE 28 C9
233 0000
234 0000 EC
235 000 I 8A EO
236 0003 22 C7
237 0005 3A C7
238 0007 74 08
239
240 0009 E2 F5
241
242 0008 FE C8
243 0000 75 EF
244
245 OOOF OA FF
246 OOEI
247 OOEI C3
248
249 00E2
250
251 00E2
252
253 00E2
254
IBM Personal Computer MACRO Assembler Version 2.00
RS232 ---- 01/10/86 COMMUNICATIONS 8105 (RS2321