IBM 5150 Technical Reference 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 I f 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 FLAG 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 I f 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