IBM 5150 - Page 152

LOC DBJ LINE SOURCE
fAIE SOFtiO
2054 eHP AH,SCROLL_SHIFT
; IS nns A TOGGLE KEY
fA21 73lA 2055
JAE K24
; YES. HAHOLE BREAK TOGGLE
EA23 F6D4 2056
NOT
AH I INVERT MASK
EA2520261700 2057 AND
KBJlAG-.AH
; TURN OFF SHIFT BIT
EA29 3ee8 2058
eHP AL,A.LT_KEYt-SOH
I IS THIS A.LTERNATE SHIFT RELEASE
fAZB 752C
2059 JNE
.,.
I IHTERRUPT_RETURN
2060
2061 ;----- ALTERNATE SHIFT KEY RELEASED, GET THE VALUE INTO BUFFER
~
2062
EAZC A01900 2063 HOV Al,ALT_INPUT
EA30 8400 2064 t10V AH ,0
I SCAN CODE OF 0
EA32 86261900 2065
HOV
AlT_INPUT,AH
; ZERO OUT THE FIElD
EA36 3eoo 2066
eHP Al,O
I WAS THE INPUT=O
EA38 741F
2067 JE K2.
; INTERRUPT_RETURN
EAJA E9AI01 2068 JHP
K5.
I IT WASN'T, SO PUT IN BUFFER
EAJC 2069 K24: ; BREAK-TOGGLE
EA30 F6D4
2070 NOT AH
i INVERT MASK
EA3F 20261800 2071
AND KBJLAG_l.AH
I INDICATE NO LOHG-ER DEPRESSED
fA43 EB14 2012 JHP SHORT K26
; INTERRUPT_RETURN
2073
2074
j----- TEST FOR HOLD STATE
2075
EA4S
2076
k25: ; NO-SHIFT-FOlJt«)
EA45 3C80
2077
eHP AL.eOH
j TEST FOR BREAk kEY
EA47 7310 2078
JAE K2.
~ NOTHING FOR BREAK CHARS FROM HERE ON
EA49 F606180008
2079 TEST
KBJLAG_I.HOLO_STATE
I ARE WE IN HOLD STATE
EA4E
7417 20BO JZ K28
; BRANCH AROUND TEST If NOT
EASO 3C45
2081 eHP AL1HUH_KEY
EA52
7405 20a2
JE K2.
; CAN' T END HOLD ON HllH_ LOCk
EA54 80261800f7 2083
AND KB_fLAG_l,NOT HOLD_STATE
;
TURN OfF THE HOLD STATE BIT
EA59 2064 K26: I INTERRUPT-RETlIRN
EAS9
FA 2085
eLI
I TURN OFF INTERRUPTS
EA5A
8020 2086
I10V AL. EOI
I END OF INTERRUPT COMMAND
EASC E620 2087
OUT 020H.AL
; SEND COMMAND TO INT CONTROL PORT
EASE 2088 K27: I INTERRUPT -RETURN-NO-EOI
EASE 07
2089 POP ES
EASF IF 2090
POP OS
~
EA60 SF
2091
POP
0'
EA61 5E
2092 POP
51
EA62 SA
2093
POP
OX
EA63 59
2094
POP ex
EA64 58
2095
POP BX
EA65 58
2096
POP AX ; RESTORE STATE
EA66
CF
2097 IRET
; RETURN. INTERRUPTS BACK ON
2098
,
WITH F LAG CHANGE
2099
2100
1----- NOT IN
HOLD STATE, TEST FOR SPECIAL CHARS
2101
EA67
2102 K28:
; NO-HaLO-STATE
EA67
F60617000e
2103
TEST
KBJLAG.ALT_SHIFT I ARE WE IN ALTERNATE SHIFT
EA6C 7503
ZlOit JNZ K29 , JUMP IF ALTERNATE SHIfT
EA6E E99100
2105
JHP K3. I JUMP If NOT AlTERNATE
2106
2107
1----- TEST FOR RESET KEY SEQUENCE (CTL ALT DEl)
210e
EA7l
2109 K29:
I TEST-RESET
EA7l F606170004
2110
TEST KB_FLAG.CTL_SHIFT ; ARE WE IN COt{T1;lOL SHIfT AlSO
EA76 7433
2111
JZ Kll ; NO_RESET
EA78 3C53
2112
CHP
AL.DEL_KEY
I
SHIFT STATE IS THERE, TEST KEY
EA7A 752F
2113 JNE
Kll
; NO_RESET
2114
2115
1----- CTL-ALT-OEL HAS BEEN FOUND. DO I/O CLEANUP
2116
EA7C C70672003412
2117
HOY RESET_HAG. 1234H i SET fLAG FOR RESET FUNCTION
EA82
EASBEOOOFO
2118
JHP RESET ; JI.I1P TO POWER ON DIAGNOSTICS
2119
2120 1----- ALT-INPUT-TABLE
EA87
2121 K30 LABEL
BYTE
~
EA87
52
2122
OB 82.79.80.81.75.76,77
EA88 4F
EA89
50
EA8A 51
EA8B 4B
EASC 4C
EA8D 40
EABE 47
2123
OB 71,72,73
I
10 NUMBERS ON KEYPAD
EA8F 48
System BIOS 5-59