IBM 5150 - Page 153

LOC OBJ
LINE
SOURCE
EA90 49
fA9l 10
fAn 11
E.'o93 12
EA94 13
E.'o95 14
EA,96 15
EA97 16
EA9B 17
E.'o99 18
EA9A 19
EA9B IE
EA9C IF
EA9D 2:0
EA9E 21
EUf 2:2
EAAD 23
EAAI 24
EAAZ 25
fAA] 26
EAA4 2C
fAAS 20
E.'oAEo 2E
fAA7 2F
E"A8 ]0
EAA9 31
EAAA 32
EUS
EAAB 3C39
EAAD 7505
EAAF B020
fABI E92101
EAB4
E.'oB4 BFa7E"
fA87 890.'000
fABA F2
EABS .'of
EABt 7512
EABE 81EF88EA
EAC2 .'001900
EAtS 840A
EAt7 F6E4
EAC9 03e7
EAce A21900
EACE E889
fADO
fADO C606190000
fADS B91AOO
fADa FZ
fAD9 AE
fADA 7505
fADC 8000
EADE E9F400
fAEl
fAEl 3e02
fAn 7Z0e
EAE5 3tOE
fAn 7308
EAE9 80C476
fAft BODO
EAEE E9E400
2124 1----- SUPER-SHIfT-TABLE
2125 DB 16.17.18,19.20.21,22,23, A-Z TYPEWRITER CHARS
2126
DB 24.25.30,31,32.33.34.35
2127
DB
2128
DB
2129
2130 J----- IN ALTERNATE SHIFT. RESET NOT FOUND
2131
2132 K31:
;. NO-RESET
21:n CMP
AL,57
; TEST
FOR SPACE KEY
2134
JHE
0"
;
HOT THERE
2135 MOV
AL, ' • SET SPACE CHAR
2136
JMP
OS7 ; BUFFERJIlL
2137
2138
LOOK FOR KEY PAD ENTRY
2139
2140
K32:
, ALT-KEY-PAD
2141
MOV DI.OFFSET K30
, ALT-INPUT-TABLE
2142
MOV eXt 10
J LOOK FOR ENTRY USING KEYPAD
2143
REPNE StASB
;
LOOK FOR MATCH
2144
JHE
033
J NO_ALTJEYPAD
2145
SUB Dr .OFFSET K30+1
; DI,'NOW HAS ENTRY VALUE
2146
"OY
AL.ALT_INPUT
, GET THE CURRENT BYTE
2147
I10Y AH,IO
J I1ULTIPLY BY 10
2148 HUL
AH
2149
ADO AX,DX
J ADD IN THE LATEST ENTRY
2150 I10V
ALT_INPUT ,AL ;; STORE IT AWAY
2151
JMP <26
; THROW AWAY THAT KEYSTROKE
2152
2153 ,----- LOOK FOR SUPERSHIFT ENTRY
2154
2155
K31:
,
NO-ALT-KEYPAD
2156
MOV
I ZERO ANY PREVIOUS ENTRY INTO INPUT
2157
MOV CX.26
; DI.ES ALREADY POINTING
01 ..
REPHE SCASB
;
LOOK FOR MATCH IN ALPHABET
2159
JHE 034 , HOT FOUND. FUNCTION KEY OR OTHER
2160 MOV
AL.O I ASCII CODE OF ZERO
2161 JMP
OS7 ; PUT IT IN THE BUFFER
2162
2163 1----- LOOK FOR TOP ROW OF ALTERNATE SHIFT
2164
2165 K34 :
; ALT-TOP-ROW
2166
CMP
AL.2
; KEY WIlli
'I' ON IT
2167 JB
03S
I NOT ONE OF INTERESTING KEYS
2168 CMP AL.14
; IS IT IN THE REGION
2169
JAE 03S
, ALT-FUNCTION
2170 ADO AH,1l8
; COHVERT PSUEDO SCAN COOE TO RANGE
2171
HOY AL,O
; INDICATE AS SUCH
2172
J"P
057
; BUFFERJIlL
2173
2174 ,----- TRANSLATE ALTERNATE SHIFT PSElKlO SCAN CODES
2175
5-60 System BIOS