IBM 5150 - Page 223

LaC OBJ LINE SOURCE
E890 E99700
E893
E693 BBlFE9
2103
JMP K63 I TRANSLATE_SCAN
2104
2105 K47:
; NOT-UPPER-FUNCTION
2106 MOV BX,OFFSET K11 ; POINT TO UPPER CASE TABLE
2107 JMP
SHORT K56 ; OK. TRANSLATE TlIE CHAR
2108
2109 ;------ KEYPAD KEYS, HUST TEST HUM LOCK FOR DETERMINATION
2110
2111 K48:
; KEYPAD-REGION
2112
; ARE WE IN ,,"'UH_LOCK
2113 JNZ KS2 ; TEST FOR SURE
2114
TEST KB_FLAG.LEFT_SHIFT+RIGHT_SHIFT; ARE WE IN SHIFT STATE
2115
JHZ
K53
j IF SHIFTED, REALLY HUM STATE
2116
2117
j ------ BASE CASE FOR KEYPAD
2118
2119
K49:
j BASE-CASE
2120
2121 eHP AL,74 j SPECIAL CASE FOR A COUPLE OF KEYS
l122
JE K50
; MINUS
2123 eMP AL,78
2124
JE K51
2125
SUB
AL,71 j CONVERT ORIGIN
2126
HOV BX.OFFSET K15 J BASE CASE TABLE
2127
JMP
SHORT K64
,
CONVERT TO PSEUDO SCAN
2128
2129
K50:
HOV
AX. 74*256+ '-'
j MINUS
2130 JMP
SHORT K57 J BUFFERJILl
2131
2132 K51: MOV
AX. 781f256+' +' I PLUS
2133 JMP
SHORT K57 1 BUFFER_FILL
2134
tllS 1------ MIGHT BE N\.I1 LOCK, TEST SHIFT STATUS
t136
2137 K5t: ; ALMOST-NUt1-STATE
2138 TEST KBJLAG.LEFT_SHIFT+RIGHT_SHIfT
2119 JHZ K4. ; SHIFTED TEMP OUT OF NUt1 STATE
2140
2141 K53:
j REALLY_NUr"LSTATE
2142
SUB AL,70 I CONVERT ORIGIN
2143 MOV BX,OFFSET K14 ; NUM STATE TABLE
2144
JMP
SHORT K56
, TRANSLATE_CHAR
2145
2146 j------ PLAIN OLD LOWER CASE
2147
2148
K54:
;
NOT-SHIFT
2149
eMP
AL.59
j TEST FOR FUNCTION KEYS
2150
JB K55
; NOT-LOWER-FUNCTION
2151
MOV AL.O
;
SCAN CODE IN AH ALREADY
2152 JHP
SHORT K57 I BUFFER_FILL
2153
2154
K55:
j NOT-LOWER-FUNCTION
2155
MOV BX.OFFSET KID
j LC TABLE
2156
2157 j------ TRANSLATE THE CHARAC-rER
2158
2159
K56:
; TRANSLATE-CHAR
2160 DEC AL ; CONVERT ORIGIN
2161
XLAT
CS:K11 ; CONVERT THE SCAN CODE TO ASCII
2162
2163 ;------ PUT CHARACTER INTO BUFFER
Z164
2165
K57:
; BUFFER-FILL
2166 eMP
AL.-l IS THIS AN IGNORE CHAR
2167
JE K5. j YES. DO NOTHING WITH IT
2168
eMP ; LOOK FOR -1 PSEUDO SCAN
2169
JE ; NEAR_INTERRUPT_RETURN
2170
2171 ;------ HANDLE THE CAPS LOCK PROBLEM
2172
2173 K58:
I
BUFFER-FILL-NOTEST
2174 TEST KBJLAG.CAPS_STATE
; ARE WE IN CAPS LOCK STATE
2175
JZ K61
;
SKIP IF NOT
2176
2177 ; ------ IN CAPS LOCK STATE
2178
2179 TEST KBJLAG. LEFT_SHIFT+RIGHT_SHIFT TEST FOR SHIFT STATE
E896
E898
EMS
EB9D
EB9F
EBA4
EBA6
EBA6
EBA8
EBAA
EBAC
EBAE
E840
F606170020
7520
F606170003
7520
3C4A
7408
3C4E
740C
2C47
Eeao BB7AE9
EBBl EBn
EBBS 882D4"
EBB8 E822
EBBA B82B4E
EBBD E~lD
EBBF
EBBF F606170003
EBC4 75EO
EBC6
EBC6 2C46
EBce BB6DE9
EBce
EBOB
EBCD
EBCD 3e38
EeCF 7204
EBDI BODO
EBD3 EB07
E8DS
EBDS BBE5E8
EBD8
EBDB
EBDA
EBDC
EBDC
EBDE
EBED
EeE3
EBES
EBES
EBEA
EBEC
FEee
2ED7
3eFF
741F
80FCFF
741A
F606170040
7420
F606170003
A-30