IBM 5150 - Page 144

LaC OBJ
LINE SOURCE
1585
OCCURRED.
1586 (AH)=3
RETURN THE caMMO PORT STATUS IN (AX)
1587
AH CONTAINS THE LINE STATUS
1588
BIT 7 1: TIME OUT
1589
BIT 6 = TRANS SHIFT REGISTER EMPTY
1590
BIT 5 = TRAN HOLDING REGISTER EMPTY
1591
BIT 4 = BREAK DETECT
1592
BIT 3 = FRAMING ERROR
,~
1593
1594
BIT 2 = PARITY ERROR
BIT 1 = OVERRUN ERROR
1595
BIT 0 = DATA READY
1596
Al CONTAINS THE HeDEH STATUS
1597
BIT 7 1: RECEIVED LINE SIGNAL DETECT
1598
BIT 6 1: RING INDICATOR
1599 BIT 5 1: QATA SET READY
1600
BIT 4 1: CLEAR TO SEND
1601
BIT 3 = DELTA RECEIVE LINE SIGNAL DETECT
1602
BIT 2 = TRAILING EDGE RWG DETECTOR
1603 BIT 1 1: DELTA DATA SET READY
1604
BIT 0 1: DELTA CLEAR TO SEND
1605
1606
(OX) ';: PARAMETER INDICATING WHICH RSZ32 CARD (Dol ALLOWED)
1607
,
1606
1 DATA AREA RS232_BASE CONTAINS THE BASE ADDRESS OF THE 8250 ON THE
1609
CARD LOCATION 400H c:aHTAINS UP TO 4 RSZ32 ADDRESSES POSSIBLE
1610
DATA AREA LABEL RSZ32_TIM_OUT (BYTE) CONTAINS OUTER LOOP COUHT
1611 VALUE FOR TIMEOUT (DEFAULT=I)
161Z ; OUTPUT
1613 AX MODIFIED ACCORDING TO PARMS OF CALL
1614
ALL OTHERS UNCHANGED
1615
j------------------------------------------------------------------------
1616
ASSUtlE CS :CODE ,DS:OATA
E7Z9
1617 OR. OE729H
E7U 1618
Al LABEL WORD
; TABLE OF INlT VALUE
E729 1704 1619
OW 1047 I 110 BAUD
E72B 0003
16Z0
OW 766
j 150
E72D 8001 1621
OW 364
; 300
E72F
COOO
1622 OW
192 i 600
"'"
Enl 6000
E733
3000
1623
16Z4
OW
OW
%
46
;
1200
I
2400
E735 1800
1625 OW
24
j 4800
En7 OCOO
1626
OW 12 I 9600
1627
E739 1628
RS232_IO
""OC
FAR
1629
1630
j----- VECTOR TO APPROPRIATE ROUTINE
1631
E739
FB
1632
sn I INTERRUPTS BACK ON
E73A IE
1633
PUSH OS j SAVE SEGMENT
E73B 52
1634
PUSH
OX
E73C 56
1635 PUSH
51
E73D 57
1636
PUSH
01
E73E 51
1637 PUSH
cx
E73F 53
1638
PUSH
ex
E740 8BF2
1639
MOV
SI,OX
I RS232 VALUE TO 51
E742 8BFA 1640
HOV
DI,OX
E744 DIE6 1641
SHL SI'! I WORD OFFSET
E746 E8FS17
1642
CALL DDS
E749 8B14 1643
MOV
OX, RS232_BASE [SI I ; GET BASE ADDRESS
E748 OBD2
1644
OR
OX,OX
I TEST
FOR 0 BASE ADDRESS
E74D 7413
1645
JZ A3
I
RETURN
E74F OAE/'t
1646
OR AH,AH
; TEST
FOR I AH 1=0
E751 7416
1647
JZ
A4
i COMHUH INIT
E753 FECC
1648
DEC
AH
I TEST FOR (AH )=1
E755
7445
1649
JZ
A.
I SEND AL
E757 FEec
1650
DEC
AH
i TEST FOR I AH )=2
E759 746A
1651
JZ
A12
; RECEIVE INTO
AL
E75B
1652 A2 :
"'"
E75B FEte
E750 7503
1653
1654
DEC
JHZ
AH
A3
; TEST
FOR (AHI=3
E75F E98300
1655
JHP A16
I COl1MUNICATION STAnJS
E762
1656 A3:
J RETURN FROM RS232
E762
58
1657
pop
6X
E763 59
1658
pop
CX
E764 5F
1659
POP
01
E76S 5E
1660
POP
51
E766 SA
1661
POP ox
System BIOS 5-51