IBM 5150 - Page 221

•••
LOC 08J LINE SOURCE
£"91 474849
EA9tt 1011121314151&17
EA9C 18191EIF20212223
E:A.A4 24252b2C2D2:E2f30
EAAC 3132
fAAE
EAAE X3V
EA&'O ?SOS
£A82 -B020
EAM E92501
fAS7
EAB1 BF8AEA
UBA 890100
EABD F2
EABE AE
EASF 7SU
'£Ac1 81EF8BEA
fAtS .1.01900
EAtS 840A
EAtA F6£4
flee Ole7
EACE "21900
EADl EB&8
fAD3-
EA03 'C6G6'1 toOItO
fAne 891AOO
fA08 F2
fADe AE
EADD 7505
U.OF 8000
un £9F800
UE4
EAE4 3C02:
EAE6 noe
EAE8 3COE
EAEA 7308
EAft 80C476
U,Ef BODO
EAFI £9£800
EAF4
EAt4 3ClB
EAF6 7303
EAFe
EAF8 ·n63FF
EAFB
UFB lC47
fAFO 73F9
UFF 8863E9
E80-2 E92501
fBOS
£805 F6'06170004 ~
EBOA 7458
£80C 3C46
[BOE 7513
1951
DB 71.72,73- ; 10 HUMBERS ON KEYPAD
1952
;------ SUPER-SHIFT-TABlE
1953
DB 16,17,18,19,20,2:1,22,23 i A-Z TYPEWRITER CHARS
l'954 DB 24.2S.30.31.32.33,~.35
1955 DB 36.37,38,44,45,46,47.48
1956
DB 49,,50
1957
1958 ;_.- •• - IN ALTERNATE SHIFT, RESET NOT FOUtIJ
1959
1960 K31:
I NO-RESET
1961 CNP AL,57 ; TEST FOR 'SPACE KEY
I ...
JNE K3<
; NOT THERE
1963 HOV
Al ••
; SET SPACE CHAR
1964 JHP K57 ;: BUFF(R_FIll
1965
1966
FOR KEY PAD ENTRY J------ LOOK
1967
1966
K32 :
J -All-KEY-PAD
1969
I10V OI.OFFSET K30
I ALT-INPUT-TASlE
1970
HOY CX.lO
; lOOK FOR ENTRY USING KEYPAD
1971 REPNE
seASB
I tOOK FOR MATCH
JNE
I NO.AlT_KEYPA.D
'l3
SUB DI,OFFSET K3D+l
; 01 NOW HAS ENTRY VALUE
HOV AL.ALT_n~puT
; GET THE CURRENT BYTE
HOV AH.ID
; MULTIPLY BY 10
HUL AH
ADO AX.OI
HOV
AL T .INPUT ,Al
IN"
1981 1------ L.()()I( fOR 'SUPERStlIFT ENTRY
1982
1983 ; NO-Al T -KEYPAO
1964
; ZERO ANY PREVIOUS ENTRY INTO INPUT
1985 NOV CX,26
;
DI,ES ALREADY POINTING
1986
REPME SCASS
;
LOOK FOR MATCH IN ALPHABET
1987
JNE
K34
i NOT FOUNO. FUNCTIOO KEY OR OTHER
1988 MOV Al.a ; ASCII CODE OF ZERO
1989
JM-P K57 ; PUT IT IN THE BUf.FER
199'0
1991 ;------ LOOK FOR TOP ROW OF ALTERNATE SHIFT
1992
1993 K14: ; ALT -TOP-ROW
1994
eM!' AL.2
~ KEy.wITH 'I' OH IT
1995
JB K35 ; NOT O"'E OF INTERESTING Kt'rs
1996 eMP Al.14 i IS IT IN THE REGION
1997 JAE K35 ; ALT-FUNCTION
J11.198 ADO AH.118 ; COINERT PSUEDO SUN CODt: TO RANGE
1999 MOV Al.O
; INDICATE AS SUCH
2'00'0
JMP
K57
; BUFFER_FILL
2~01
2'002 ;------ TRANSlATt: ALTERNATE SHIFT PSEUDO stAN COMS
2003
2'0'04 I ALT-FUNCTION
2005 ; TEST FOR IN TAGLE
2006 1 All-CONTINUE
2'0'07 ; CtOSE-RET\JIl'N
2008 ; IGNORE THE KEY
2009 I AlT-CONTINUE
2'010 ; IN KEYPAD REGION
2011 ; IF SO. IGNOR'E
2'012 ; AL T SHIFT PSEUDO SCAN TABLE
20ll ; TRANSLATE THAT
2'014
2'015 1--"--- NOT IN ALTERNATE SHIFT
2'016
2'017 1<38:
j NOT-ALl-SHIFT
2018
nST KB_FlAG.CTl_SHlfT J ARE WE IN CONTROL SHIFT
2019
JZ K44
; NDT-CTl-SH-JFT
2020
2'021 ;------ CONTROL SHIFT. TEST SPECIAL CHARACTERS
2'022 ;------ TEST FOR BREAK AND PAUSE XEYS
2'023
2024 eMP ; TEST FOR BREAK
2025 JNE K39
; NO-BRE-AK
A-28