IBM PC CONVERTIBLE

0320
0320
SS 0000
0330
0330
FE C8
0332 2E: 07
0334
0334
3C FF
0336 74 IF
0338 80 FC FF
0338 74 1A
0330
K55:
MOV 8X,OFFSET K10
; 8X=SASE CASE ASCI I TSL
; T RAN S L ATE SC TO EXTENDTEO ASCII CODE BUFFER
K56 :
DEC
XLAT
AL
cs: Kll
PUT CHARACTER INTO BUFFER
K57 :
CMP
JE
CMP
JE
AL ,-1
K59
AH, -1
K59
CHECK FOR CAPS_STATE
K58:
;
ADJUST SC FOR TABLE OFFSET
; TRANSLATE FROM TABLE IN BX
IGNORE CODE XLATED FROM TABLE?
YES, GO TO EOI EXIT
IGNORE PSEUDO SCAN?
YES, GO TO EOI EXIT
0330 F6 06 0017 R 40 TEST KB_FLAG,CAPS_STATE; ARE WE IN CAPS LOCK STATE
0342 74 20
JZ K61 ; SKIP IF NOT
; ««« »»»
;----- DETERMINE WHICH WAY TO CONVERT ««« IN CAPS_STATE »»»
0344 F6 06 0017 R 03 TEST KB_FLAG, LEFT _SHI FT +RI GHT _SH I FT IN SHI FT STATE?
0349 74 OF JZ K60 ; NO, JMP
CONVERT UPPER CASE TO LOWER ALPHABETI C CHARS ONLY
034B 3C 41 CMP
AL, I A I
ALPHABETIC CHAR?
0340 72 15 JB K61
NO, JMP
034F 3C 5A CMP
AL, 'Z'
0351 77 11 JA K61
NO, JMP
0353 04 20 ADD
AL, I a ,_, A I
YES, CONVERT TO LOWER CASE.
0355 EB 00 JMP SHORT K61 GO BUFFER
0357 K59:
0357 EB 3D 90 JMP KYBDLEXIT INTERRUPT_RETURN
CONVERT LOWER CASE TO UPPER ALPHABETI C CHARS ONLY
035A K60:
035A 3C 61 CMP
AL, I a I
ALPHABETIC CHAR?
035C 72 06 JB K61
NO, JMP
035E 3C 7A CMP
AL, I z I
0360 77 02
JA
K61
NO, JMP
0362 2C 20
SUB AL, 'a'-'A' YES, CONVERT TO UPPER CASE
, ------------------ -- - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - --
; BUFFER EXTENDED ASCI I CODE I F NOT FULL
-------------------------- -- - - - - - - - - - - - - - - - - - - - - ----
0364 K61 :
0364 8B IE 001C R
MOV
BX,BUFFER_TAIL GET BUFFER TAIL POINTER
0368 8B F3
MOV SI, BX
SI <=== TAIL PTR
036A E8 03A4 R
CALL
PTR_INC
ADVANCE THE TAIL
0360 3B IE 001A R
CMP
BX, BUFFER_HEAD HAS BUFFER WRAPPED AROUND?
0371 74 13
JE K62
YES, GO GIVE BUFFER_FULL_BEEP
0373 89 04
MOV [SI],AX
NO, BUFFER THE CODE
0375 89 IE 001C R
MOV
BUFFER_TAIL,BX UPDATE TAIL PTR
0379 EB 1 B 90
JMP
KYBD9_EXIT GO TO EOI EXIT
TRANSLATE F1-FlO SCAN CODES TO AN EXTENDED ASCII CODE -
(FOR SHIFT, ALT, & CTL STATES)
037C K63:
037C
2C 3B SUB AL, FLKEY ; ADJUST SC FOR TABLE OFFSET
037E K64:
037E
2E: 07 XLAT cs :K9 XLAT FROM TABLE IN BX
(K9,K12,K13)
0380 8A EO MOV AH,AL BUILD EXTENDED ASCII CODE
0382 BO 00 MOV
AL,O
0384 EB AE JMP
K57
GO BUFFER
ROM BIOS 2-75