IBM 5150 - Page 217

LaC OBJ
LINE SOURCE
1659
ASSUME
CS:CODE,DS!DAiA
E8tE 1660
KEYBOARD_IO PROC
"R
E82E FB
1661 SH j INTERRUPTS BACK ON
ESZ:F IE
1662 PUSH OS J SAVE CURRENT DS
. E8lt 53 16.63
IJUSH
6X
I SAVE BX TEMPORARILY
E831 B84000 1664
I10V ex,OATA
E8M SEDB
1665
MOV
OS,BX I ESTABLISH POINTER TO DATA REGION
£836 OAF. 1666 OR .......
; AH=O
E83& 740B 1667
JZ .1 ; ASCII_READ
E63A
fEee
E83C 7420
E83E FEet
1666
1669
1670
O'C
JZ
DEC
A.
••
AH
I AH-=1
J ASCII_STATUS
;
AH:::2
E840 71\2D
1671
JZ
Kl
; SHIFT_STATUS
E842 5B
1672 POP
BX J RECOVER REGISTER
E843 IF 1673
POP
OS
E84lt CF 1674 IRET
J INVALID COHt1AND
1675
1676 ;------ READ THE KEY TO FIGURE OUT WHAT TO DO
1677
'84'
1678
Kl:
; ASCII READ
E845 FB 1679
STt
; INTERRUPTS BACK ON DURING LOOP
E846 90 1680 NOP J AlLOW AN INTERRUPT TO OCCUR
EM7 FA
1681
eLI I INTERRUPTS BACK OFf
E848 881ElAOO 1682 MaV ex.BUfFER_HEAD- I GET POINTER TO HEAD OF BUFFER
EMC 381EICOO 1683 eMP BX,BUFFER_TAIl I TEST END Of BUFfER
E850
74F3 1684 JZ
Kl
I LOOP UNTIL SOMETHING IN BUFFER
f652 8B07 1685 I10V AX,lBXl j GET SCAM CODE AND ASCII CODE
E654 E81EOO 16 .. CALL
K'
I MOVE POINTER TO NEXT POSITION
E857
891E lAOO
1687 I10V
eUfFER_HEAD,BX
I STORE VALUE IN VARIABLE
E858 58
1688
pop
ex
;
RECOVER REGISTER
f85t IF
1689
POP
os
•
RECOVER SEGMENT
E8SD Cf 1690 IRET ~ RETURN TO C.A LLER
1691
1692 1------ .ASCII STATUS
1693
E85E 1694
E85E FA 169S eLI ; INTERRUPTS Off
E85F 881£1AOO 1696
I10V
ax .SUFFER_HEAD ; GET HUD POINTER
E86.3 381ElCOO
1697 CMP
ex.BUFFER_TAIl
;
IF EQUAL (Z=l) THEN NOTHIHG THERE
E867
8807
1696 HOV AX.fex]
[869 Fe 1699 SH ; INTERRUIJTS BACK ON
E8~A 58
1700
POP
BX J RECOVER REGISTER
E86B
IF 1701
POP
OS
o
RECOVER SEGMENT
E86C CA02O'O 1702
RET ; THROW AWAY fLAGS
1703
1704 1------ SHIfT SfArus
1705
E8bF 1706
K3:
E86F A01700 1707 I10V Al ,KBJ LAG
1
GET THE SHIFT STATUS FLAGS
E872 58 1708
pop ex
;
RECOVER REGISTER
£873 IF
1709 POP DS
;
RECOVER REGISTERS
E874
CF 1710 IRET
;
RETURN TO CALLER
1711
1712
17U j------ INCREMENT A BUFfER POINTER
1714
E875 1715 K4 PROC NEAR
E875 83C302 1716
ADD
B)(,2 ; MOVE TO NEXT WORD IN LIST
E878 81 F83EOO 1717
CHP BX,OfFSET KB_BUFFER_ENO
; AT END OF eUFFER?
Ea7C
7503 1718
JNE .s j NO. CONTINUE
E87E 881EOO
J719
MOV ax ,OFfSET Ke_BUFFER t YES, RESET TO eUFFER BEGINNING
'681
1720 KS:
E881 C3 1721
RET
1722 K4
ENDP
1723
1724 ~------ TABLE OF SHIfT KEYS AtI) tuSK VALUES
Ins
Eee! 1726
K6 LABEL eYTE
E882 ;2 1727
DB INS_KEY
; INSERT
KEY
E8&3 3A45463&10 1728
06 CAPS_KEY ,NUN_KEY ,SCROL~KEY • AlT_KEY .eTl_KEY
E888 2A36 1729
DB
LEF-r_KEy,RIGHT_KEY
0008 1130 .bL
'OU
$-K6
1731
1732
;------ SHIFT_H'\sK_TABLE
1733
.....
1734
K7
LABEL BYTE
E88A
80 1735
DB
; INSERT MODE SHIFT
A-24