Table of Contents
Advertisement
114
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Operator Manual for the RCA CDS II CDP18S005
0076
0077
XRI #37
•• CHECK FOR EOF(DC3)
8NZ READX
846F
FB37;
8471 3A61;
8473 D483FOOO;
0078 DONE:
SEP R4 ,A(OSTRNG) ,#00
•• TYPE NULL MESSAGE
• RESET DELAY PTR
8477
C083F9;
0079
LBR GOUT20
•• TRANSFER CONTROL TO UT2
.0
0080
ISITM:
SEP R4; ,A(READ)
0081
L~NF
GOUT20
•• READ ERROR RESTART
0082
XRI#4D
•• CK FOR M
0083
eNZ ERRORX
•• IF NOT M->ERROR
847A D48573;
847D CB83F9;
8480 FB4D;
848e
'3AE1;
8484 D484F6;
0084
READX1 :SEP R4; ,A(READHX)
•• READ 1 ASCII DIGIT
8487
8487
~489
$,48B
84.8 D
8490
8493
8495
8497
8499
,
0085
•• AND CK IF HEX
0086
8DF READX2
•• BR IF HEX
0087
XRI#2E
•• CK IF "."
0088
BNZ READX1
0089
READXA:SEP R4; ,A(READ)
0090
LBNF GOUT20
•• READ ERROR RESTART
0091
XRI#OD
0092
BNZ READXA
0093
~R
READX1
3399;
FB2 E;
3A84 ;
D48573;
CB83F9;
FBOD;
3A8 D;
3084;
D484F6;
0094
READX2:SEP R4; ,A(READHX)
•• READ 2ND ASCII DIGIT
849 C ;
849C 3399;
849E FB20;
84AO 3AE1;
84A2 8DA8;
84A4 9DB8;
84A6 D484F6;
84A9
84A9
B4AB
· I
84AE
84AE
8480
,
3BBC;
D484F6;
,
3EE1;
8 D58;
8482 ,
8482 E8F3;
8484 3289;
8486 D48779;
8489 18;
84EA 30A6;
84EC FBOD;
848E 3261;
84 CO FB36;
84C2 ;
·
,
0095
0096
0097
0098
0099
0100
0101
0102
0103
0104
0105
0106
0107
0108
0109
0110
0111
0112
0113
0114
0115
0116
0117
84C2
84C4
84C6
84C9
84CC
84CE
84DO
84D3
84D5
84D7
84 D9
328D;
0118
• LF
84DF
84EO
84E1
30A6;
0119
D48573;
0120
C883F9;
0121
FE55;
0122
3AE1;
0123
D484F6;
0124
33DO;
0125
8DAO;
0126
9DBO;
0127
D483FOODOAOO;
0128
EO;
0129
DO;
0130
D483FOODOA464F;0131
84E8 524D4154204552;0131
84EF 524F5200;
0131
•• AND CK
IF
HEX
eDF READX2
•. BR IF HEX
XRI#20
•• CK IF SPACE
BNZ ERRORX
•• BR IF NOT SPACE
GLO ASL
;PLO R8
•• ADDRESS->R8
GHI ASL
;PHI R8
-READX3 :SEP R4; ,A (READHX)
ENF READX4
•• 8R
READXE:SEP R4; ,A(READHX)
•• READ AN ASCII
••
A~ID
CK FOR
IF NOT HEX
•• READ THE n'D
DIG
IT
HEX
ASCII D
•. AND CK
IF
HEX
ENF ERRORX
•• BR IF NOT HEX->ERROR
GLO ASL
;STR R8
•• STORE AT THE SPECIFIED
•. ADDRESS
SEX R8; XOR
•• DID IT
~RITE
CORRECTLY?
8Z WRTOK
•• YES
SEP R4,A(NOTRAM)
•• NO
WRTOK:
H'C R8
ER READX3
READX4:XRI#OD
•. CK IF CR
EZ READX
•• IF CR->DONE
XRI#36
•• CK FOR SEMICOLON
•• TEST WITH(CR.XOR.,.XOR.
ez READXA
•. ER IFSEMICOLON
ER READX3
ISITU:
SEP R4 ,A(READ)
LENF GOUT20
•• READ ERROR RESTART
X R
IT'
uo
,
e~'z
ERRORX
ADLP:
SEP R4 ,A(READHX)
EDF ADLP
GLO ASL
;PLO RO
GHI ASL
;PHI RO
SEP R4; ,A(OSTRNG),#ODOA,#OO
•• OUTPUT A
SEX RO
SEP
RO
ERRORX: SEP R4; ,A(OSTRNG),#ODOA,T'FORMAT ERROR',#OO
•
•
•
Advertisement
Table of Contents
