![RCA CDPl8S693 User Manual Download Page 65](http://html.mh-extra.com/html/rca/cdpl8s693/cdpl8s693_user-manual_334504065.webp)
User Manual for Microboard Computer Development System CDP18S693 & CDP18S694
64
80A0
80A3
80A5
80A7
80A9
80AB
80AD
80AF
80AF
80B4
80B7
80B7
80B9
80BB
80BE
80C1
80C3
80C5
80C5
80C8
80CA
80CB
80CD
80CD
80CF
80D1
80D4
80D6
80D9
80DE
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80DF
80EA
80EA
80EC
80EE
80EF
80EF
80F2
80F2
80F3
80F4
80F4
80F6
80F8
80F9
80FB
80FC
80FE
9FFBOA;
0239 DECODE: GHI CHAR;XRI LF
..F IR S T NON-HEX MUST BE
32AF
0240
BZ ADDOUT ..A LINEFEED OR
FB07
0241
XRI #07
. .TERMINATION OR
3296
0242
BZ PRMPT1
FB2D
0243
XRI #2D
..A SPACE
32B7
0244
BZ OLDDTA
3085
0245
BR ERROR
..E L SE ERROR
»
0246
D483F00D00;
0247 ADDOUT: SEP CALL;,A(OSTRNG); ,C R ,0
D480CD;
0248
SEP CALL;,A(OUTl)
i
0249
DC17
0250 OLDDTA: SEP DELAY;,# 1 7
..WAIT TO FINISH READ
OBBF
0251
LDN SRC ;PH I CHAR
..STAY ON SAME LINE
D481AE;
0252
SEP CALL; ,A(TYPE2)
..HEX OUTPUT
D483F0;
0253
SEP CALL;,A(OSTRNG)
..OUTPUT A HYPHEN
2D00
0254
, T ' - ' , 0
OBAD
0255
LDN SRC ;PLO ASL..COPY DATA FROM CELL INTO ASL
J
0256
D487EA;
0257 GETDTA: SEP CALL;,A(READHX)
..G ET ANY CHANGE
8D5B
0258
GLO ASL;STR SRC
..RESTORE THE DATA INTO THE CELL
lB ;
0259
INC SRC
..OPEN THE NEXT CELL
30A0
0260
BR DECODE
..EXAMINE INPUT
i
0261
DC17 i
0262 0UT1:
SEP DELAY; ,# 1 7
9BBF
0263
GHI SRC; PHI CHAR
..ROUTINE TO OUTPUT A HEX PAIR
D481AE;
0264
SEP CALL; ,A(TYPE2)
..AND A SPACE
8BBF
0265
GLO SRC;PHI CHAR
D481AE;
0266
SEP CALL;,A(TYPE2)
D 483F02000;
0267
SEP CALL;,A(OSTRNG); ,SPACE,0
D5;
0268
SEP R5
9
0269
0270 •• * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
9
0271 . .
DELAY IS 2 (1 + A U X .l(3 + @LINK)) & IS
9
0272 . .
USED BY TYPE, READ, AND TIMALC.
AUX.1
9
0273 . .
IS ASSUMED TO HOLD A DELAY CONSTANT =
9
0274 . .
( (B IT TIME OF TERMINAL)/
9
0275 . .
(2 0 * INSTR TIME OF COSMAC)) - 1 .
THIS
9
0276 . .
CONSTANT CAN BE GENERATED AUTOMATICALLY
9
0277 . .
BY THE TIMALC ROUTINE.
0278 ..REG USED:
AUX, PC
9
Q279 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
9
0280
9
0281
ORG UT62+#EA
9
0282
DCDC J
0283 DEXIT:
SEP DELAY; SEP DELAY
. . 4 NOP'S
DCDC >
0284
SEP DELAY; SEP DELAY
D3;
0285
SEP PC
..RETURN
i
0286
9EF6AE;
0287 DELAY1:: GHI AUX;SHR;PLO AUX
..S H IF T OUT ECHO BIT
f
0288
2E;
0289 DELAY2 : DEC AUX
,
..A U X .0 = BIT DELAY
4 3 ;
0290
LDA PC
..LOAD CONSTANT
9
0291
FF01 >
0292 DELAY3 : SMI 1
..LOOP UNTIL ZERO
3AF4 »
0293
BNZ DELAY3
8E ;
0294
GLO AUX
32EA
>
0295
BZ DEXIT
..DONE ?
2 3 ;
0296
DEC PC
..PO IN T BACK TO THE CONSTANT
30F2
)
0297
BR DELAY2
..AND LOOP
*
0298