IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

LOC OBJ LINE sou RCE
ESFI 740F 2180 JZ K60 ; IF NOT SHIFT. CONVERT LOWER TO LIPPER
2181
2182 ;------ CONVERT ANY UPPER CASE TO LOWER CASE
2183
EBF3 3C41 2184 CMP AL, 'A' ; FIND OUT IF ALPHABETIC
EBFS 7215 2185 JB K61 ; NOT_CAPS_STATE
EBF7 3CSA 2:186 CMP AL. 'Z'
EBF9 7711 2187 JA K61 ; NOT_CAPS_STATE
EBFB 0420 2188 ADD Al, 'a '-'A' ; CONVERT TO LO~ER CASE
fBFO EBOD 2189 JMP SHORT K61 ; NOT_CAPS_STATE
2190
EBFF 2191 K59: ; NEAR-INTERRUPT-RETURN
EBFF E95CFE 2192 JMP KZ6 ; INTERRUPT_RETURN
2193
2194 i -----­ CONVERT ANY LOWER CASE TO UPPER CASE
2195
EC02 2196 K60: ; LOWER-TO-UPPER
EC02 3C61 2197 CMP AL. 'a' ; fINO OUT IF ALPHABETIC
EC04 7206 2198 JB K61 ; NOT_CAPS_STATE
fC06 3C7A 2199 CMP AL, 'z'
EC08 7702 2200 JA 1-',61 ; NOT_CAPS_STATE
EeOA 2e2:0 2201 SUB AL. 'n'-'A' ; CONVERT TO UPPER CASE
2202
Eeoc 2203 K61: ; NOT-CAPS-STATE
Eeoc 2:::04 ; GET THE END POINTER 8BlEICOO MOV BX,BUFFER_TAIl TO THE BUfFER
ECIO BaF3 2205 tiDV SI.eX SAVE THE VALUE
fe12 E860FC 2206 CALL K4 ADVANCE THE TAll
EClS 3BIEIAOO 2207 CIlP BX.BUFFER_HEAD HAS THE BUFFER WRAPPED AROUND
ECl9 7409 2208 JE K62 BUFFER_FUll_BEEP
ECIB 8904 2209 MOV [SI1,AX STORE THE VALUE
ECID 891EICOO 2210 MOV BUFFER_TAIL,eX 1 MOVE THE POltHER UP
Ee21 E93AFE 2211 JMP K26 INTERRUPT_RETURN
2212
2213 BUFFER IS FUll, somm THE ;------ BEEPER
2214
[C24 2215 K62: BUFFER-FUll-BEEP
~ EC24 f80DOO 2216 CALL ERROR_BEEP
Ee27 E934FE 2217 K'6
2218
2219 TRANSLATE SCAN FOR ;------ PSEUDO SCAN CODES
2220
Ee2A 2221 K63: j TRANSLATE-SCAN
EC2A 2222 ; CONVERT ORIGIN 2C38 SUB AL,59 TO FUNCTION KEYS
felt 2223 K64: I TRANSlATE-SCAtl-ORGD
fe2t 2ED7 2224 XlAT CS:K9 ; CTL TABLE SCAN
Eelf BAED 2225 MOV AH,AL ; PUT VALUE INTO AH
EC30 BODO 2226 MOV AL.e ; ZERO ASCII CODE
EC32 EBA8 2227 JHP KS7 ; PUT IT INTO THE BUFfER
2228
2229 EflOP
I