25.03.2015 Views

IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

LOC 08J LINE SOURCE<br />

£"91 474849<br />

EA9tt 1011121314151&17<br />

EA9C 18191EIF20212223<br />

E:A.A4 24252b2C2D2:E2f30<br />

EAAC 3132<br />

1951 DB 71.72,73- ; 10 HUMBERS ON KEYPAD<br />

1952 ;------ SUPER-SHIFT-TABlE<br />

1953 DB 16,17,18,19,20,2:1,22,23 i A-Z TYPEWRITER CHARS<br />

l'954 DB 24.2S.30.31.32.33,~.35<br />

1955 DB 36.37,38,44,45,46,47.48<br />

1956 DB 49,,50<br />

1957<br />

1958 ;_.-••- IN ALTERNATE SHIFT, RESET NOT FOUtIJ<br />

fAAE<br />

EAAE X3V<br />

EA&'O ?SOS<br />

£A82 -B020<br />

EAM E92501<br />

fAS7<br />

EAB1 BF8AEA<br />

UBA 890100<br />

EABD F2<br />

EABE AE<br />

EASF 7SU<br />

'£Ac1 81EF8BEA<br />

fAtS .1.01900<br />

EAtS 840A<br />

EAtA F6£4<br />

flee Ole7<br />

EACE "21900<br />

EADl EB&8<br />

1959<br />

1960 K31: I NO-RESET<br />

1961 CNP AL,57 ; TEST FOR 'SPACE KEY<br />

I ... JNE K3< ; NOT THERE<br />

1963 HOV Al •• ; SET SPACE CHAR<br />

1964 JHP K57 ;: BUFF(R_FIll<br />

1965<br />

J------ LOOK<br />

1966 FOR KEY PAD ENTRY<br />

1967<br />

1966 K32 : J -All-KEY-PAD<br />

1969 I10V OI.OFFSET K30 I ALT-INPUT-TASlE<br />

1970 HOY CX.lO ; lOOK FOR ENTRY USING KEYPAD<br />

1971 REPNE seASB I tOOK FOR MATCH<br />

JNE 'l3<br />

I NO.AlT_KEYPA.D<br />

SUB DI,OFFSET K3D+l ; 01 NOW HAS ENTRY VALUE<br />

HOV AL.ALT_n~puT ; GET THE CURRENT BYTE<br />

HOV AH.ID ; MULTIPLY BY 10<br />

HUL<br />

ADO<br />

HOV<br />

IN"<br />

AH<br />

AX.OI<br />

•••<br />

ALT.INPUT ,Al<br />

<strong>1981</strong> 1------ L.()()I( fOR 'SUPERStlIFT ENTRY<br />

fAD3­<br />

EA03 'C6G6'1 toOItO<br />

fAne 891AOO<br />

fA08 F2<br />

fADe AE<br />

EADD 7505<br />

U.OF 8000<br />

un £9F800<br />

1982<br />

1983 ; NO-AlT-KEYPAO<br />

1964 ; ZERO ANY PREVIOUS ENTRY INTO INPUT<br />

1985 NOV CX,26 ; DI,ES ALREADY POINTING<br />

1986 REPME SCASS ; LOOK FOR MATCH IN ALPHABET<br />

1987 JNE K34 i NOT FOUNO. FUNCTIOO KEY OR OTHER<br />

1988 MOV Al.a ; ASCII CODE OF ZERO<br />

1989 JM-P K57 ; PUT IT IN THE BUf.FER<br />

199'0<br />

1991 ;------ LOOK FOR TOP ROW OF ALTERNATE SHIFT<br />

UE4<br />

EAE4 3C02:<br />

EAE6 noe<br />

EAE8 3COE<br />

EAEA 7308<br />

EAft 80C476<br />

U,Ef BODO<br />

EAFI £9£800<br />

1992<br />

1993 K14: ; ALT-TOP-ROW<br />

1994 eM!' AL.2 ~ KEy.wITH 'I' OH IT<br />

1995 JB K35 ; NOT O"'E OF INTERESTING Kt'rs<br />

1996 eMP Al.14 i IS IT IN THE REGION<br />

1997 JAE K35 ; ALT-FUNCTION<br />

J11.198 ADO AH.118 ; COINERT PSUEDO SUN CODt: TO RANGE<br />

1999 MOV Al.O ; INDICATE AS SUCH<br />

2'00'0 JMP K57 ; BUFFER_FILL<br />

2~01<br />

2'002 ;------ TRANSlATt: ALTERNATE SHIFT PSEUDO stAN COMS<br />

2003<br />

EAF4<br />

EAt4 3ClB<br />

EAF6 7303<br />

EAFe<br />

EAF8 ·n63FF<br />

EAFB<br />

UFB lC47<br />

fAFO 73F9<br />

UFF 8863E9<br />

E80-2 E92501<br />

2'0'04<br />

I ALT-FUNCTION<br />

2005 ; TEST FOR IN TAGLE<br />

2006 1 All-CONTINUE<br />

2'0'07<br />

; CtOSE-RET\JIl'N<br />

2008 ; IGNORE THE KEY<br />

2009 I AlT-CONTINUE<br />

2'010 ; IN KEYPAD REGION<br />

2011 ; IF SO. IGNOR'E<br />

2'012 ; AL T SHIFT PSEUDO SCAN TABLE<br />

20ll<br />

; TRANSLATE THAT<br />

2'014<br />

2'015 1--"--- NOT IN ALTERNATE SHIFT<br />

fBOS <br />

£805 F6'06170004 ~ <br />

EBOA 7458<br />

£80C 3C46<br />

[BOE 7513<br />

2'016<br />

2'017 1

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!