IBM 5150 - Page 154

LOC OBJ
LINE SOURCE
EAFl
2176 K35:
J AL T -FUNCTION
EAF 1 3C38
2177 CHP
Al.59 I TEST FOR IN TABLE
fAF3 7303
2178 JAE
K37
i AL T -CONTINUE
EAFS
EAFS E96lFF
2179
2180
K36:
JHP
...
i CLOSE-RETURN
l IGNORE THE KEY
E.Fe
2:161 Kn:
J ALl-CONTINUE
EAF8
lC47
2162
CHP AL.71 I IN KEYPAD REGION
~
EAFA 73F9
2183
JAE K3. J IF SO. IGNORE
EAFC BBSFE9
2164
HOY
BX,OFFSET K13 I AL T SHIFT PSEUDO SCAN TABLE
fAFf E91801
2185
JHP K.3 I TRANSLATE THAT
2186
2167
1----- HOT IN ALTERNATE SHIFT
2188
EM2
2169 K38:
I NOT-ALl-SHIFT
E602 F606170004
2190
TEST
KBJLAG.CTL_SHIFT
I
ARE WE IN CONTROL SHIFT
EB07 7458
2191 JZ
K44
i NOT-tTl-SHIFT
2192
2193
1----- CONTROL SHIFT. TEST SPECIAL CHARACTERS
2194
1----- TEST FOR BREAK AND PAUSE KEVS
2195
E809 3C46
2196
eHP AL.SCROLL]EY
I TEST FOR BREAK
feoe 7518
2197
JHE
K3'
1 NO-BREAK
fBOD 881£8000
2198
HOY ex ,BUFFEFCSTART
, RESET BUFFER
TO EMPTY
EBll a91ElAOO
2199 HOV eUFFER_HEAO,BX
EB15 891E1cOO
2200 HOV
BUFFER_TAIl,BX
EB19 C6067l0080
2,01
HOV BIOS_BREAK ,80H
• l1JI;IN ON BIOS_BREAK BIT
EB1E CDIB
2,0,
nIT IBH ; BREAK INTERRUPT VECTOR
EB,O 2BCO
2,03
SUB AX,AX
I PUT OUT DUtI'tY CHARACTER
EB,2 E913000
,,04
JMP
K57
; BUFFERJILL
EB25
2205 K39:
; NO-BREAK
E825 3C45
,206
CHP
AL.NU",-KEY
;
LOOK FOR PAUSE KEY
EB,7 752"1
,,07
JHE K41
; NO-PAUSE
EB,9 800E180008
,208
o. KBJLAG_l.HOLD_STATE
I TURN ON THE HOLD FLAG
EB2E B020
2209
HOV AL.EOI
; Ettl OF INTERRUPT TO CONTROL PORT
Ea30 E620
2210
OUT 020H.AL
; ALLOW FURTHER KEYSTROKE IHTS
2211
2212 1----- DURING PAUSE INTERVAL. l1JI;IN CRT BACK ON
",-.......,
2213
EB32 803E490007
2214
CHP CRT_HODE,7 1 IS THIS BLACK AND WHITE CARD
EB37 7407
2215
JE K4.
j YES I NOTHING TO DO
EB39 BAD803 2216 MOV OX.03D8H I PORT FOR COLOR CARD
EB3C A06500
2217
MOV AL.CRT_HOOE_SET I GET THE VALUE OF THE CURRENT I100E
EB3F
EE
2218
OUT DX.AL
I SET THE CRT HOOE, SO THAT CRT IS ON
EB40
2219 K40:
I PAUSE - LOOP
EB40 F606180008
2220
TEST
KBJLAG_I.HOLO_STATE
EB45 75F9
2221
JHZ
K4. ; LOOP UNTIL FLAG l1JI;INED OFF
EB47 E914Ff
2222
JHP K27 , INTERRUPT_RETtJRN_ND_EOI
'54A
2223 K4l;
I NO-PAUSE
2224
2225
;----- TEST SPECIAL CASE KEY 55
2226
EB4A 3C37
2227
CHP AL,55
EB4C 7506
2228
JHE K42 I NOT-KEY-55
EB4E B80072
2229
MOV
AX.114*256
; START/STOP PRINTING SWITCH
EB51
£98100
2230
JHP
K57 I BUFFER_FIll
2231
2232
1----- SET UP TO TRANSLATE CONTROL SHIFT
2233
EB54
2234 K42:
J NOT-KEY-55
EB54 BB8EE8
2235
HOY BX. OffSET K8 ; SET UP TO TRANSLATE CTL
'EB57 3e3B
2236
CHP
Al.59 I IS IT IN TABLE
2237 ; CTL-TABLE-TRANSLATE
EBS9
7276 2238
JB
K5.
o YES. GO TRANSLATE CHAR
EBSB 2239
K43:
; eTL-TABLE-TRANSLATE
EBSB BBC8E8 2240
HOV BX,OFfSET K9 ; CT L TABLE SCAN
EB5E E9BCOO
2241
JHP K.3 i TRANSLATE_SCAN
2,4,
",-.......,
2243
2244
;----- NOT IN CONTROL SHIFT
'B61
2245 K44:
I NOT-CTL-SHIFT
Ee6l 3C47
2246
CHP AL,7l I TEST FOR KEYPAD REGION
EB63 732C
2247
JAE K4a I HANDLE KEYPAD REGION
EB65
F606170003
2248
TEST KBJ LAG • LEFT_SHIFT +RIGHT_SHIFT
EB6A 745A
2249
JZ
K54
i TEST FOR SHIFT STATE
2250
2251
i----- UPPER CASE. HANDLE SPECIAl CASES
2252
System BIOS 5-61