IBM XT 5160 Technical Reference page 282

LI NE SOURCE (B I OS FOR THE I BM PERSONAL COMPUTER XT) I 1 108/82
;----- DURING PAUSE INTERVAL, TURN CRT BACK ON
; ----- CONTROL SH I FT, TEST SPEC I AL CHARACTERS
; ----- TEST FOR BREAK AND PAUSE KEYS
5-135
IS TH I S BLACK AND WH I TE CARD
YES, NOTH I NG TO DO
PORT FOR COLOR CARD
GET THE VALUE OF THE CURRENT MODE
SET THE CRT MODE, SO THAT CRT I S ON
ADD IN THE LATEST ENTRY
STORE IT AWAY
THROW AWAY THAT KEYSTROKE
TURN ON BIOS BREAKB I T
BREAK I NTERRUPT VECTOR
PUT OUT DUMMY CHARACTER
BUFFER FILL
NO-BREAK
LOOK FOR PAUSE KEY
NO-PAUSE
TURN ON THE HOLD FLAG
END OF I NTERRUPT TO CONTROL PORT
ALLOW FURTHER KEYSTROKE I NTS
NOT-ALT-SH I FT
ARE WE I N CONTROL SH I FT
NOT-CTL-SHIFT
TEST FOR BREAK
NO-BREAK
RESET BUFFER TO EMPTY
NO-AL T-KEYPAD
ZERO ANY PREV 10US ENTRY I NTO INPUT
DI,ES ALREADY POINTING
LOOK FOR MATCH I N ALPHABET
NOT FOUND, FUNCT I ON KEY OR OTHER
ASC I I CODE OF ZERO
PUT I TIN THE BUFFER
AL T-KEY-PAD
AL T- INPUT-TABLE
LOOK FOR ENTRY US I NG KEYPAD
LOOK FOR MATCH
AL T-TOP-ROW
KEY WITH • I ' ON IT
NOT ONE OF INTERESTING KEYS
I SIT I N THE REG I ON
AL T-FUNCT I ON
CONVERT PSUEDO SCAN CODE TO RANGE
INDICATE AS SUCH
BUFFER_F I LL
NO AL T KEYPAD
DI-NOW-HAS ENTRY VALUE
GET THE CURRENT BYTE
MULTIPLY BY 10
NO-RESET
TEST FOR SPACE KEY
NOT THERE
SET SPACE CHAR
BUFFER_F I LL
49,50
36,37,38,44,45,46,47,48
01 , OFFSET K30
CX, 10
SCASB
AL, SCROLL KEY
K39 -
BX ,BUFFER START
BUFFER HEAD, BX
BUFFER-TA I L, BX
B I OS BREAK, 80H
IBH -
AX,AX
K57
CRT MODE,7
K40-
DX,03D8H
AL, CRT MODE SET
DX,AL - -
KB FLAG, CTL SH I FT
K44 -
24,25,30,31 ,32,33,34,35
AL,NUM KEY
K41 -
KB FLAG I ,HOLD STATE
AL-;-EOI - -
020H, AL
AL T INPUT ,0
CX,26
SCASB
K34
AL,O
K57
AL,2
K35
AL,14
K35
AH,118
AL,O
K57
K33
DI,OFFSET K30+ I
AL , AL T INPUT
AH, 10 -
AH
AX,DI
AL T INPUT, AL
K26-
AL,57
K32
AL,' •
K57
TEST
JZ
CMP
JE
MOV
MOV
OUT
CMP
JB
CMP
JAE
ADD
MOV
JMP
CMP
JNE
MOV
MOV
MOV
MOV
INT
SUB
JMP
CMP
JNE
OR
MOV
OUT
JNE
MOV
JMP
DB
MOV
MOV
REPNE
JNE
SUB
MOV
MOV
MUL
ADD
MOV
JMP
DB
MOV
MOV
REPNE
CMP
JNE
MOV
JMP
DB
PC-XT System BIOS (11/08/82)
IN ALTERNATE SH I FT, RESET NOT FOUND
; ----- NOT IN ALTERNATE SH I FT
;----- TRANSLATE ALTERNATE SHIFT PSEUDO SCAN CODES
AL T-FUNCT I ON
TEST FOR IN TABLE
AL T-CONT I NUE
CLOSE-RETURN
I GNORE THE KEY
AL T-CONT I NUE
I N KEYPAD REG I ON
IF SO, IGNORE
AL T SH I FT PSEUDO SCAN TABLE
TRANSLATE THAT
;----- LOOK FOR SUPERSHIFT ENTRY
; - - - - - LOOK FOR TOP ROW OF AL TERNA TE SH I FT
; ----- LOOK FOR KEY PAD ENTRY
K35:
CMP AL,59
JAE K37
K36:
JMP K26
K37 :
CMP AL,71
JAE K36
MOV BX ,OFFSET K 13
JMP K63
K38:
K39:
K34:
K33:
K32:
K31 :
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2015
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2016
2014
EAFI
EAFI 3C3B
EAF3 7303
EAF5
EAF5 E961 FF
EAF8
EAF8 3C47
EAFA 73F9
EAFC BB5FE9
EAFF E91 BO I
EAAB
EAAB 3C39
EAAD 7505
EAAF B020
EAB I E921 0 1
EB09 3C46
EBOB 7518
EBOD 8B 1E8000
EBll 891EIAOO
EBI5891EICOO
EBI9 C606710080
EBIE CDIB
EB20 2BCO
EB22 E9BOOO
EB25
EB25 3C45
EB27 7521
EB29 800E 180008
EB2E B020
EB30 E620
EB32 803E490007
EB37 7407
EB39 BAD803
EB3C A06500
EB3F EE
LOC OBJECT
EB02
EB02 F6061 70004
EB07 7458
EAEI
EAE I 3C02
EAE3 720C
EAE5 3COE
EAE7 7308
EAE9 80C476
EAEC BOOO
EAEE E9E400
EADO
EADO C606190000
EAD5 B91 AOO
EAD8 F2
EAD9 AE
EADA 7505
EADC BOOO
EADE E9F400
EAB4
EAB4 BF87EA
EAB7 B90AOO
EABA F2
EABB AE
EABe 7512
EABE 8 I EF88EA
EAC2 AO 1900
EAC5 B40A
EAC7 F6E4
EAC9 03C7
EACB A21900
EACE EB89
EA93 12
EA94 13
EA95 14
EA96 15
EA97 16
EA98 17
EA99 18
EA9A 19
EA9B IE
EA9C IF
EA9D 20
EA9E 21
EA9F 22
EAAO 23
EAA I 24
EAA2 25
EAA3 26
EAA4 2C
EAA5 20
EAA6 2E
EAA 7 2F
EAA8 30
EAA9 31
EAAA 32