IBM 5150 - Page 214

lOC OBJ
LINE SOURCE
~
E729
E72' 1704
E7lS 0003
E72D eOOl
E72:F CODO
E731 6000
£733 3000
E735 1800
E737 DeaD
en9
E739 Fa
£73A IE
E73S 52
E73e 56
E730 57
E73£ 51
E7l' 88f2
n41 DlE6
E743 8ol4000
E746 eEDA
E748 88940000
E74e 0802:
E74E
7416
E7S0 OA£4
E752 7418
E7S4 FEee
£756 744£
E758 FEte
E7SA 7503
E7St £96900
1428 ON RETURN, CONDITIONS SET AS IN CALL TO como STATUS UH=3J
1429
(AH'=1 SEND THE CHARACTER IN (AL) aVER THE cotI1O UHE
1430
(AU REGISTER IS PRESERVED
1431
ON EXIT. BIT 7 OF AH IS SET IF THE ROUTINE: WAS UNA6lE TO
1432
TO TRANSMIT THE BYTE OF DATA OYER THE LINE. THE
1431
REMAINDER Of AH IS SET AS IN A STATUS REquEST.
1434
REFElECTING THE CURRENT STATUS Of THE LINE.
1435
(AM)=! RECEIVE A CHARACTfR IN fAll FRon caMMO LINE BEFORE
1436
RETURNING
TO CA LLER
1437
ON EXIT, AM HAS THE CURRENT LINE STATUS. AS SET BY THE
1438
THE STATUS ROUTINE. EXCEPT THAT THE ONLY BITS
1439
LEfT ON ARE THE ERROR BITS f7.4.3.2.1)
1440
IN THIS CASE. THE TIME OUT BIT INDICATES DATA SET
1441
READY WAS NOT RECEIVED.
1442:
THUS.
AH IS HON ZERO ONLY WHEN AN ERROR OCctmRED.
1443
UHl:3 RETURN THE COMMa PORT STATUS IN (AX)
1444
AH CONTAINS THE LINE CONTROL STATUS
1445
BIT 7 = TIME OUT
1446
BIT 6 = TRANS SHIfT REGISTER EMPTY
1447
BIT 5 = TRAN HOLOIHS REGISTER EMPTY
14"'8
BIT 4 = BREAK DETECT
1449
BIT 3 = FRAMING ERROR
1450
BIT 2: = PARITY ERROR
1451
BIT 1 :
OVERRUN ERROR
1452:
BIT 0 = DATA READY
1453
AL CONTAIUS THE HOOE" STATUS
1454
BIT 7 = RECEVEO LINE SIGNAL DETECT
1455
BIT 6 = RING INDICATOR
1456
Bn 5 = DATA SET READY
1457
BIT 4 = CLEAR TO SEND
14sa
BIT 3 = DELTA RECEIVE LINE SIGNAL DETECT
1459
BIT 2 = TRAILING EDGE RING DETECTOP
1460
BIT 1 =DELTA DATA SET READY
1461
BIT 0 = DELTA CLEAR TO SENO
1462
1463
COX) = PARAMETER INDICATING WHICH RSZ32 CARD fO,l ALLOWED)
1464
; DATA
AREA RS232_BASE CONTAINS THE BASE ADDRESS OF THE 8"50 ON THE CARD
1465
LOCATION 400H CONTAINS UP TO 4 RS232 ADDRESSES POSSIBLE
1466
~OVTPUT
1467
AX MODIfIED ACCORDING TO PARNS OF CALL
1468
ALL
OTHERS UNCHANGED
1469
1-- ----------------------- ---------- ---- -----
1470
ASSUHE CS:CODE.DS:DATA
1471
Al LABEL WORD
1472 DW 1047 110 BAUD ; TABLE Of INIT VALUE
1471 OW
768 150
1474
ow 384 300
1475
OW
192
i 600
1476
ow
,.
i I~OO
1477
ow 43 i 2400
1476
ow Z4 i 4800
1479
ow 12 i 9600
1480
llt81 RS232_IO
PRDC
FA.
1482
1483 1------ VECTOR TO API'<?QPRIATE ROUTINE
1484
1485
sn
1 INTERRUPTS BACK ON
1486
PUSH os
J SAVE SEGMENT
1487
PUSH ox
1488
PUSH 51
14&9
PUSH 01
1490
PUSH cx
1491
MOV SI.DX
; RS232 VALUE TO 51
1492:
SHL
SI,l ; !oIORD OFFSET
1493
MCV DX.DATA
1494
MOV
DS,DX ; SET UP OUR SEGMENT
1495
MOV DX .RS23Z_BASEl 511 I GET BASE ADDRESS
1496
OR
DX,DX
i TEST FOR 0 BASE ADDRESS
1497
JZ A3 i RETURN
1498
o.
AH,AH ; TEST FOR (AH )=0
1499 JZ A4 i COt1t1UN INlT
1500
CEC
AH
i TEST FOR (AH)=.
1501
JZ
AS J SEND AL
1502
CEC
AH i TEST fOR IAH }=2
1503
JHZ
A2
1504
JMP AI2 i RECEIVE INTO AL
A-21