Table of Contents
Advertisement
Appendix G - UT20 Listing _
_
_
_ _
__ _ _
__
__ _
__
__ _
__
_
___
101
;
908S83;
F830AS;
DS;
E5;
715S;
6101;
F88C82;
8005 ;
8005 ;
8005 ;
8005 ;
8005 ;
8005
8005
8008
8008
800B
8008
SOOE
8Q.aE
8:<>0 F
8P12
8012
SOB
8015
8016
S016
8019
8018
801D
80H
8021
8021
8022
8022
8023
8024
8027
8029
S029
802C
802F
S030
8031
8033
8035
,
F88C81;
,
F81EA1;
,
F8AOB4;
;
E1;
F8D051;
,
F3;
3A29;
21;
,
94FC70;
331D;
FC21;
FC7F;
8451;
;
D1;
.
,
73;
21;
94F890;
3AOF;
8038 F800A2;
803B ;
803B ,
8038 F8FEA3;
803E ,
803E D3;
803F ;
803F ;
803F ,
803F F89CA3;
8042 F88183;
8045 D30D;
8047 D30A;
8049 D32A;
804s F800ADBD;
804
F ;
804F ,
804F F83BA3;
8052 D3;
8053 FB24;
8055 C28207;
8058 FB05;
805A ;
0061
0062
0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
0073
0074
0075
0076
0077
0078
0079
0080
0081
0082
0083
0084
0085
0086
0087
0088
0089
0090
0091
0092
0093
0094
0095
0096
0097
0098
0099
0100
0101
0102
0103
0104
0105
0106
0107
0108
0109
0110
0111
0112
0113
0114
0115
0116
0117
0118
0119
0120
0121
0122
THE FOLLOWING WRITES REGISTER CONTENTS INTO
WRAM-32 THRU WRAM IF IT EXISTS. WRAM-34 IS
ASSUMED NOT TO BE RAM (ELSE ROUTINE OVERRUNS).
LDI A.1(WRAM) ;PHI CL
•• CL IS CLOB-
•• BERED
LDI A.0(WRAM-1) ;PLO CL •• SET UP WHERE RF.O
•• IS TO GO, MINUS 1
LDI IIAO iPHI R4
•• R4.1 STORES A
•• MODIFIED INSTRUC.
SEX CL
LOOP2:
LDI liDO ;STR CL
•• SET UP SEP INSTR.
•• FOR RETURN
UT20:
UT20A:
XOR
BNZ UT20
DEC CL
• .CHECK
IT
WROTE
GHI R4 ;ADI
1170
BDFHII04
•• PREPARE FOR MODI-
•• FIED INSTRUCTION
•• IN THE 90'S?
ADI
1121
ADI 117F
PHI R4 ;STR CL
SEP CL
SrxD
DEC CL
•• NO, 8N -> 9N
•• YES, 9N
->
S(N-1)
• .SET MODIFIED
•• INSTRUC INTO RAM
•• EXECUTE INSTRUCS
•• (80-9F)
•• STORE RESULT RAM
•• &
BACK UP FOR
GHI R4
iXRIII90
8NZ LOOP2
•• CK IF STORAGE DONE
•• NEXT BYTE
GHI RO iPHI PC
LDI A.0(UT20A)
SEP PC
SEX PC
DIS,1I55
OUT 1,t/01
LDI A.1(WRAM)
LDIIIOO
;PLO
;PHI SU8 •• 1I80->PC.1
&
SUB.1
;PLO PC
•• NOTE PC=S ASSUMED
•• SELECT RCA GROUP
iPHI ST •• SET STACK POINTER
ST
•• TO
~(8COO),
ONLY
•• RAM USED
LDI A.O(TIMALC) iPLO SUB •• READ ONE CHAR
•• TO SET TIMER
SEP SUB
•
•
• INITIATION NOW DONE
START:
LDI A.O(TYPE5D) ;PLO SUB
LDI A.1(TYPE5D)
;PHI SU8
SEP SUB;
,IIOD
••
CR=CARRIAGE RET
ST2:
SEP SUB; ,IIOA
•• LF=LINE FEED
SEP SUB; ,1I2A
••
*
PROMPT CHARAC
IGNORE: LDIIIOO ;PLO ASL;PHI ASL •• PREPARE TO INPUT
• .HEX DIGITS,
•• CLEAR ASL
LDI A.O(READAH) ;PLO SUB
SEP SUB
•• INPUT COMMAND
XRI
1124
••
IS IT
"$"
?
LBZ DOLLAR
XRI
liDS
••
IS IT "'"
?
•• TEST S XRI
!
Advertisement
Table of Contents
