IBM 5150 - Page 151

LOC OBJ LINE
SOURCE
E99Q E661
1978
OUT KB_CTL,AL
E91j1F 66EO
1979
XCHG AH,Al
I GET BACk ORIGINAL CONTROL
E9Al E661
1
...
OUT KB_CTL,AL , KB HAS BEEN RESET
E9A.3 58
1981
pop
AX
, RECOVER SCAN CODE
E9.604 BAED
1962
Mev
AH,AL
I SAVE SCAN CODE IN AH ALSO
1983
1984 1----- TEST FOR OVERRLN SCAN CODE FROM KEYBOARD
1965
E9 ... 6 3eFF
1986 CMP
AL.OFFH
; IS THIS AN DYE"RRUN CHA.R
E9"8 7503 1987
JHZ
016
I NO. TEST FOR SHIFT KEY
E9AA. E97"02 1988
JMP 062 ; BUFFERJUll_BEEP
1989
1990 1----- TEST FOR SHIFT KEYS
1991
E9AD
1992
K16:
I TEST_SHIFT
E9AD 247F
1993
ANO AL,07FH 1 TURN OFF THE BREAK BIT
E9"F DE
1994
PUSH
CS
E980 07 l<;l95
POP
ES
I ESTABLISH ADDRESS OF SHIFT TABLE
E981 BF7EE8
1996 MOY DI. OFFSET K6 I SHIFT KE¥ TABLE
E964 890800
1997 MOY CX,K6L
I
LENGTH
E987 F2
1998
REPNE SCAse , LOOK THROUGH THE TABLE FOR A I1A TCH
E988 AE
E989 8"C4 1999
tIDy
AL,AH , RECOVER SCAN CODE
E9BB 7403
2000 JE
017 I JUMP IF HATCH FOlHJ
E9BD E98500
2001
JMP 025 I IF NO MATCH. THEN SHIFT HOT FOUND
2002
2003
I ~---- SHIFT KEY FOlNl
2004
E9CO 81EF7FE8
2005
K17= SUB DI.OFFSET K6+1 I ADJUST PTA TO SCAN CODE mCH
E9C4 2E8AA586E8
2006
tIDy
AH.CS:K7tDIJ I GET MASK INTO AH
E9C9 A880
2007 TEST
AL.80H ; TEST FOR BREAK KEY
E9CB 7551 2008
JHZ
on i BREAK_SHIFTJOUNl
2009
2010
;----- SHIFT HAKE FOUND, DETERMINE SET OR TOGGLE
2011
E9CD 80FCI0 2012
CMP AH.SCROLL_SHIFT
E9DO 7307 2013
JAE
016
IF SCROLL SHIFT OR ABOVE. TOGGLE KEY
2014
2015
; ----- PLAIN SHIFT KEY, SET SHIFT ON
2016
E9D2 08261700 2017 OR
KB_FlAG.AH
; TURN ON SHIFT BIT
E9D6 E98000 2018
JMP
026
I INTERRUPT_RETURN
2019
2020 1----- TOGGLED SHIFT KEY. TEST FOR 1ST HAKE OR NOT
2021
E9D9
2022 K18; I SHIFT-TOGGLE
E9D9 F606170004
2023 TEST
KB_FlAG. CTl_SHIFT J CHECK CTl SHIFT STATE
E90E
7565
2024 JHZ
025
; JII1P IF tTl STATE
E9EO 3C52
2025
CMP AL. INS_KEY J CHECK FOR INSERT KEY
E9E2
7522
2026
JHZ 022 I JUMP IF NOT INSERT KEY
E9E4
F606170008
2027 TEST KBJLAG. ALT_SHIFT I CHECK FOR AlTERNATE SHIFT
E9E9 755A
2028
JHZ 025 i JUHP IF ALTERNATE SHIFT
E9EB F606170020
2029
K19:
TEST
KBJLAG. NUJ",-STATE
I CHECK FOR BASE STATE
E9FO
7500
2030 JHZ 021 I JUMP IF NUl'1 LOCK IS ON
E9F2 F606170003
2031 TEST
KBJLAG.
LEFT_SHIFT+ IHGHT_SHIFT
E9F7 7400
2032
JZ K22 i JUMP IF BASE STATE
2033
E9F9 2034 K20:
; NUHERIC ZERO. NOT INSERT KEY
E9F9 B83052 2035 MOY
AX. 5UOH
; PUT OUT AN ASCII ZERO
E9FC E90601
2:036 JMP
057
; BUFFERJIlL
nFF
2:037
K2:1 : I HIGHT BE HUMERIC
E9FF
F606170003
2:038
TEST KB_FlAG.
LEFT_SHIFT+ RIGHT_SHIFT
EA04 74F3
2:039
JZ 02.
; JUMP NUMERIC. NOT INSERT
2040
EA06
2041 K22:
; SHIFT TOGGLE KEY HIT. PROCESS IT
EA06 84261800 2042 TEST AH.KBJLAG_l
I IS KEY ALREADY DEPRESSED
EAOA 7540
2043 JI~Z 02.
I JUMP IF KEY ALREADY DEPRESSED
EADC 08261800
2044 OR KB_FLAG_l.AH
; INDICATE THAT THE KEY IS DEPRESSED
EAI0 30261700
2045 XOR KBJLAG.AH
I TOGGLE THE SHIFT STATE
EA14 3C52
2046 CMP Al.INS_KEY
; TEST FOR 1ST MAKE OF INSERT KEY
EA16
7541
2:047 JHE
026
• JUMP IF NOT INSERT KEY
EA18 B80052 2048
tIDy
AX .IH5_KEV*256
i SET SCAN CODE INTO AH. 0 INTO Al
EAIB E9B701
2049 JMP 057
I PUT INTO OUTPUT BUFFER
2050
2051
I-~--- BREAK SHIFT FOUND
2052
EAIE 2053 K2:3:
I BREAK-SHIFT-FOlNJ
5-58 System BIOS