IBM 5150 - Page 155

LOC OBJ
LINE
SOLIRCE
EB6C
EB6E
EB70
EB73
E875
E675
fB77
JeOF
7505
B8000F
EB60
3e37
7509
EB79 B020
EB7B
E670
EB7F
E882
EM2
E884
EB86
E689
EBBe
EBBe
EBaF
EM1
E691
E896
E898
EB9D
ES9F
EB9F
fBAI
fBAJ
fBAS
fBA7
EBA9
fBAC
fBAE
fBAE
EBBI
EBBJ
EBBJ
EBB6
EBB8
EBBB
fBBD
fBBF
fBBF
EBCI
EBC4
fBCb
fBCb
EBce
EseA
EBCC
EBCE
EBCE
EBDI
EBDI
EBDl
fBDS
£620
COOS
E90CH
3e3B
72:06
8855£9
E99100
BBIBE9
E840
F606170020
7520
F606170003
7520
3C4A
7408
3C4E
740C
2C47
8876E9
fB7l
88204..6.
E622
882B4E
fBID
F606170003
75EO
2C46
8869E9
E60B
3e36
7204
BODO
EB07
BBEIEe
FEee
2ED7
2253 CHP
AL,IS I BACK TAB KEY
2254 JHE
K45 I NOT-SACK-TAB
2255
HOY
AX,15*256
; SET PSEUDO SCAN caOE
2256 JHP
SHORT K57 ; BUFFER_FILL
2257 K45;
; NOT-SACK-TAB
2258
CHP Al,55 ; PRINT SCREEN KEY
2259 JHE
K46
; NOT-PRINT-SCREEN
2260
2261 ;----- ISSUE INTERRUPT TO IHtlICATE PRINT SCREEN FUHCTION
2262
2263
HOY AL,EDI
I END OF CURRENT INTERRUPT
2264
OUT
020H,AL
I SO FUIHHER THINGS CAN HAPPEN
2265
1NT 5H
;
ISSUE PRINT SCREEN INTERRUPT
2266
JHP
K27
;
GO BACK WITHOUT EOI OCCURRING
2267 K46:
I
NOT -PRINT -SCREEN
2268
CHP Al,59
; FUNCTION KEYS
2269
JB K47
;
NOT -UPPER-FUNCTION
2270 HOY
BX,OFFSET K12
; UPPER CASE PSEUDO SCAN CODES
2271 JHP
K63 I TRANSLATE_SCAN
2272
K47:
; NOT-UPPER-FUNCTION
2273
HOY
BX.OFFSET Kll
;
POINT TO UPPER CASE TABLE
2274
JMP
SHORT K56
; OK, TRANSLATE
THE CHAR
2275
2276
;----- KEYPAD KEYS, MUST TEST NUM LOCK FOR DETERMINATION
2277
2278 K48:
I KEYPAD-REGION
2279
TEST KBJLAG,HUH_STATE
;
ARE WE IN HUH_LOCK
2280
JNZ K52
; TEST
FOR SURE
2281
TEST KB_FlAG.LEFT_SHIFT+RIGHT_SHIFT; ARE WE IN SHIFT STATE
2282
JNZ K53 ; IF SHIFTED, REALLY HUM STATE
2283
2284
1----- BASE CASE FOR KEYPAD
2285
2286
K49:
I BASE-CASE
2287
CHP AL,74
;
SPECIAL CASE FOR A COUPLE OF KEYS
2288
JE
K50
; MINUS
2289
CHP AL,78
2290
JE K51
2291
SUB AL,7l
I CONVERT
ORIGIN
2292
HOY BX,OFFSET K15 ; BASE CASE TABLE
2293
JHP
SHORT Kb4
; CONVERT
TO PSEUOO SCAN
2294
K50:
2295
HOY AX.74*25b+'-'
I HUNS
22% JHP
SHORT K57 I BUFFERJILL
2297
K51:
2298
HOY
AX. 78*25b+' +' ; PLUS
2299
JHP
SHORT K57
;
BUFFER_FILL
2300
2301 ;----- MIGHT BE HUH LOCK. TEST SHIFT STATUS
2302
2303 K52:
; Alt10ST-NUM-STATE
2304 TEST
KB_FLAG, LEFT_SHIFT +RIGHT_SHIFT
2305
JHZ K49 ; SHIFTED TEMP OUT OF HUH STATE
2306 K53:
; REALLY_HUM_STATE
2307
SUB
AL.70
; CONVERT
ORIGIN
2308
HOY eX,OFFSET K14
; HUH STATE TABLE
2309
JHP SHORT K56
; TRANSLATE_CHAR
2310
2311 ; ----- PLAIN OLD LOWER CASE
2312
2313 K54:
I
NOT-SHIFT
2314
CHP
AL,59
; TEST FOR FUNCTION KEYS
2315
JB
K55
; NOT-LOWER-FUNCTION
2316
HOY
AL.O
; SCAN
CODE IN AH ALREADY
2317
JHP
SHORT K57
;
BUFFERJIlL
2318
K55:
; NOT -LOWER-FlJt.ICTION
2319
HOY BX,OFFSET KIO
;
LC TABLE
2320
2321 ;----- TRANSLATE THE CHARACTER
2322
2323 K56: I TRANSLATE-CHAR
2324
DEC AL
I CONVERT
ORIGIN
2325
XLAT CS:Kll ; CONVERT THE SCAN CODE TO ASCII
2326
2327 1----- PUT CHARACTER INTO BUFFER
2328
2329
K57:
I BUFFER-FILL
5-62 System BIOS