IBM 5150 - Page 222

•••
LOC OBJ LINE
SOURCE
£BI0 881EOO
a2b MOV
aX.OFFSET KB_BUFFER ; RESET BUFFER TO EMPTY
EBll 891ElADO
2027
MOV BUFFER_HEAD .aX
EB17 891E1COQ
2028
MOV BUFfER_TAIL,ex
EBIS C6067l0060
202~ MOV
BIOS_BREAK.SOH
; TURN ON BIOS_BREAK BIT
EBZO CDIS
2030 INT
lB.
; BREAK IUTERRUPT VECTm
E822 B80000
2031
NOV AX. 0 ; PUT OUT Dut1HY CHARACTER
E825 £98400
2032
JMP K57
; BUFFERJIll
~EB.a
201l
K39:
I
2034
NO-BREAK
EB28 3e45 203-5
CHP AL. HUH_KEY ; LOOK FOR PAUSE KEY
E82A 7521
2036
....
K41 ; NO-PAUSE
E5ze 800E180006
2037
KBJLAG_l,HOLD_STATE I TURN ON THE HOLD FLAG
O'
Ea31 B020 203a
MOV AL.EO! ; ENO Of INTERRUPT TO CONTROL PORT
E833 £620 2039-
OUT
020H • .u
; ALLOW FURTHER KEYSTROKE IHTS
....
Z041
; ------ DURING PAUSE INTERY.AL. TtmN CRT BACK ON
2042:
E835 803£49Q007
2043- CMP
CRT_I100E.7 J IS THIS BLACK AND WHITE CARD
EalA 7407
2044
JE K4. J YES, NOTHING TO DO
EBle BAOSQl
2045
MOV DX,03DSH I PORT FOR COLOR CARD
EB1F A06500 204ft
AL.CRT_HOOE_SET
,
GET THE VALUE OF THE CLRRENT tlDDE
""V
EB4Z
EE
2047
OUT DX.AL ; SET THE CRT MODE, SO TRAT CRT IS ON
EB43
2048 K40:
i PAUSE-lOOP
EM3 F606180008
2049
TEST KBJLAG_l.H.OlO_STATE
EM8 75f9 2050
JHZ ; lOOP UNTIL FLAG TURNED OfF
eB4A E'H6FF
2Ul JMP
.27 l INTERRUPT_RETURN_HD_EOI
E840
2052 K41:
j NO-PAUSE"
2053
2054
j ------ TEST SPECIAL CASE KEY 55
2055
EB40 3C37
2056
CHP AL.S5
EB4f 7506 2057
JNE
J HOT-KEY-55
'4Z
EBS1 8&4072
2058 MOV
AX, 114*256
I START/STOP PRINTING SWITCH
EB54
£98500 2059
JMP
'57
~ BUFFER_FILL
z060
2061
;
------ SET UP TO TRANSLATE CONTROL SHIFT
Z062
~EB57
K42:
; 2063 NOT-KEY-55
f857 BB92ES 2064
NOV BX, OFFSET K8 ; SET UP TO TRANSLATE CTL
EeSA
3C3B
2065 tMP Al.59 ; IS IT IN TABLE
ES5C 7303
JAE K43
; CTl-TABLE-TRANSLATE
....
E8SE E87890
2067
JMP
K56
; YES. GO TRANSLATE CHAR
'861
K43:
J tTL-TABLE-TRANSLATE
....
EB61 B8CCe8
2069
BX,OFfSET 1<.9
• CTl TABLE SCAN
""V
Ee6l .. nC300
2070
JHP K63
; TRANSLATE_SCAN
2071
2072
1----- HOT IN CONTROL SHIFT
2073
ES67 :074
K44:
; NOT-CTl-SHIFT
2075
EB67 3C47 2:016
tMP
Al.71
I TEST FOR KEYPAD REGION
[B69 7320
2077 JAE
K48
; HANDLE KEYPAD REGIOM
EB6B F6Q617Q003
2078 TEST KBJLAG. LEFT_SHIFT +R IGHT _SHIFT
E870
745B
2079
JZ K54
I TEST FOR SHIFT STATE
2080
2.0&1
1----- ... UPPER CASE, HANDLE SPECIAL CASES
20az
E87Z 3COF
2083
CHP Al.U
I BACK TAB KEY
E874 7506 2084
JUE K45
J HOT-BACK-TAB
ee76 B8000f 2085 MOV AX, 15*256
; SET PSEUDO SCAN CooE
EB79 EB6190
20a6 JMP
K57
; BUFFER_FILL
2087
E87C 2088 K45:
~ NOT-BACK-TAB
EB7C 3C31 2089 tNP
Al.55
J PRINT SCPEEN KEY
EB7E 7509 2090 JNE K46
j NOT-PRINT-SCREEN
2091
~Oqz
J------ ISSUE lNTERRUPT TO INDICATE PRINT SCREEN FUNCTION
2093
EHO 8020 2094
MOV
AL.EOl
l END OF CURRENT INTERRUPT
EB&2 E62:0 209S
OUT
020H ,AL
,
SO FURTHER THINGS CAN HAPPEN
5"
~
E884 COOS 2096
IHT
I ISSUE PRINT SCREEN lNTERRUPT
EB86
E9DAFE 2097 JMP Ke7
; Go BACK WITHOUT EOI OCCl.IRRIHG
2.098
Ella. 2099
K46:
; NOT-PRINT-SCREEN
£BB9 3C38
2100
o,p
At.59
; FUNCTION KEYS
EBB6 72.06 2101 JB K47
; NOT -UPPER-FUNCTION
EB80 B659E9
210·!
MOV aX.OFFSET KIt
; UPPER CASE PSEUDO SCAN CODES
A-29