IBM 5150 - Page 156

LaC OBJ
LINE SOURCE
EB05 3eFF 2330
CMP
At,-I
I IS THIS AN IG""ORE CHAR
ES07 741F 2331
JE K59 I YES. DO HaTH ING WITH IT
EBD9 80FCFF 2332
CMP
AH,-I
I LOOK FOR -1 PSEUDO SCAN
EBOC 741A 2333
JE K59
I NEAR_iNTERRUPT_RETURN
,,,.
2335 1----- HANDLE THE CAPS LOCK PROBlE"
2336
~
EeOE
Z337 KS8: I BUFFER-FILL-NOTEST
EBDE F606170040
2338 TEST
KB_F LAG. CAPS_S1 ATE
I ARE WE IN CAPS LOCK STATE
EBEl 7420 2339
JZ K61
I SKIP IF NOT
2340
2341 1----- IN CAPS LOCK STATE
'34'
fBES F606170003
'343
TEST
KB]LAG. LEFT_SHIFT+RIGHT_SHIFT I TEST FeR SHIFT STATE
EBEA 740F
2344
JZ 060
I IF NOT SHIFT I CONVERT LOWER TO LFPER
'345
2346
1----- CONVERT ANY UPPER CASE TO LOWER CASE
2347
fBEC 3C41 2348
tMP AL. 'A' I FINO OUT IF ALPHABETIC
EBEE 7215 2349
Ja
Kbi
I HOT_tAPS_STATE
EBFO 3C5" 2350 tMP AL, 'Z'
ESF2 7711
2351 JA
0.1
I NOT_tAPS_STATE
EBF4 0420
2352 ADD ALt'.'-'.' I CONVERT TO LOWER CASE
E6F6 E800 2353
JMP SHORT K61
; NOT_CAPS_STATE
EBF8
2354 K59:
I NEAR-INTERRUPT-RETURN
EBF8 E95EFE
2355
JMP K26
I INTERRUPT_RETURN
2356
2357 1----- CONVERT ANY LOWER CASE TO UPPER CASE
2358
EBFB
2359 K60: I LOWER-TO-UPPER
EBFB 3C61
2360 tMP AL.·.· I FIND OUT If AlPHABETIC
EBFD 7206
2361
Ja
K61 ; NOT_CAPS_STATE
EBFF
le7A 2362
CMP AL. 'z'
ECOI 7702 2363
JA K61
I NOT_CAPS_STATE
£C03 2C20
2364
SUB Al. 'a'-'A'
I CONVERT TO UPPER CASE
EC05 2365 K61: I HOT-CAPS-STATE
EC05 8BIEICOO
2366 MOV BX.BUFFER_TAIL I GET THE END POINTER TO THE BUFFER
~
EC09 8BF3 2367 MDV SI,ex I SAVE THE VALUE
ECOB E863FC 2368
CALL O.
I ADVANCE THE TAll
ECOE 3B1ElAOO 2369
CMP
BX,BUFFER_HEAD I HAS THE BUFFER WRAPPED AROl.IND
EC12 7413 2370
JE
K6'
I BUFFERJUl~BEEP
EC14 8904
2371
MOV
[SIl.AX
; STORE THE VALUE
EC16 891£1COO 2372 MDV BUFFER_TAIL.BX I HOVE THE POINTER UP
ECIA E93tFE
2373 JMP
02.
I INTERRUPT_RETURN
2374
2375
;----- TRANSUTE SCAN FOR PSEUDO SCAN CODES
2376
EtlD
2377 K63:
I TRANSLATE-SCAN
EC1D 2C38 2378
SUB
AL,59 ; CONVERT ORIGIN TO FUNCTION KEYS
EClf 2379 K64: ; TRANSLATE-stAN-ORGO
EelF 2ED7 2380
XLAT
CS:K9 ; CTL TABLE SCAN
EC21 8AEO
2381
MDV AH.AL
; PUT VAWE INTO AH
EC23 BODO
2382
MDV AL,O I ZERO ASCll CODE
EC25 EBAf 2383 JMP
057
I PUT IT INTO THE BUFFER
23M
2385 KB_INT ENDP
2386
2387
;----- BUFfER IS FULL. SOlH) THE BEEPER
2388
EC27
'389
K62: I BUFFER-FUlL-BEEP
EC27 B020 2390
MDV
AL.EDI
; END OF INTERRUPT COHtIAND
EC29 E620 2391 OUT 20H,Al
; SEND COmANO TO INT CONTROL PORT
EC2B 888000
2392
MOV
BX.080H
1 NUMBER OF CYClES FOR 1/12 SECOND TONE
EC2E £461
2393 IN Al,KB_CTl
; GET CONTROL INFORMATION
EC30
50 2394
PUSH
AX
I SAVE
EC31
2395 K65: I BEEP-CVClE
EC31 24Ft
2396 AND Al.OFtH
I TURN Off TIMER GATE AI'I) SPEAKER DATA
~
Et33 E661 2397 OUT KB_CTL,AL
I OUTPUT TO CONTROL
EC35 B94800 2398 MOV CX,48H
; HALF CVCLE TIME FOR TONE
EC38
2399
K66:
EC38 E2FE
2:400
LOOP K66
I SPEAKER OFF
EC3A OC02 2401
DR
Al,2 j TURN ON SPEAKER BIT
fC3t E661
2402
OUT KB_CTL,Al
; OUTPUT TO CONTROL
EC3E 894600 2403
MOV
CX.48H I SET UP COUNT
Et41 2404 R67:
fC41 f2Ff
2405
LOOP
0'7
j ANOTHER HALF CYCLE
EC43 4B 2406 DEC ax
I TOTAL TIME Ctun'
System BIOS 5-63