![RCA CDPl8S693 User Manual Download Page 66](http://html.mh-extra.com/html/rca/cdpl8s693/cdpl8s693_user-manual_334504066.webp)
Appendix B—UT62 Monitor Program Listing
65
80FE
;
0299
80FE
;
0300 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
80FE ;
0301 . .
CALCULATES BIT TIME AND ECHO FLAG.
WAITS
80FE ;
0302 . .
FOR LF(NO ECHO) OF CR (ECHO) TO BE TYPED
80FE ;
0303 . .
IN .
ALSO SETS UP POINTER TO THE DELAY
80FE ;
0304 . .
ROUTINE.
AUX.1 ENDS UP HOLDING, IN THE
80FE ;
0303 . .
MOST SIGNIFICANT 7 B ITS, THE DELAY CONSTANT
80FE ;
0306 . .
THE LEAST SIGNIFICANT BIT IS ZERO FOR ECHO
80FE ;
0307 . .
OR ONE FOR NO ECHO.
80FE
;
0308 ..REG USED:
AUX, CHAR
80FE
;
0309 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
80FE
;
0310
80FE 93BC;
0311 TIMALC: GHI PC;PHI DELAY
..DELAY SUBROUTINE ADDRESS
8100 F8EFAC;
0312
LDI A.O(DELAYl);PLO DELAY
8103 F800AEAF;
0313
LDI 0;PLO AUX;PLO CHAR
8107 3 7 0 7 ;
0314
B4 *
..WAIT FOR THE START BIT
8109 3F 09;
0315
BN4 *
..W AIT FOR FIRST NON-ZERO
810B F 8 0 3 ;
0316
LDI 3
..DATA B IT .
SET UP FOR 10
810D ;
0317
..EXECUTIONS SO THAT THE
810D F F 0 1 ;
0318 TC2:
SMI 1
..ROUND-OFF IS MINIMAL
810F 3A0D;
0319
BNZ TC2
..S E E IF THE DATA CHANGED.
8111 8F ;
0320
GLO CHAR
..B R IF IT HAD, ELSE LOOK
8112 3A17;
0321
BNZ ZERO
..FO R CHANGE TO ZERO
8114 3 7 1 9 ;
0322
B4 INCR
..BRANCH IF NO
8116 l F ;
0323
INC CHAR
..Y E S , SET SWITCH
8117 371E ;
0325 ZERO:
B4 DAUX
..LOOK FOR A CHANGE TO 1
8119 lE ;
0327 INCR:
INC AUX
..S E T UP FOR 20 INST. LOOPS
8 1 IC 300D;
0329
BR TC2
811E 2E2E;
0331 DAUX:
DEC AUX; DEC AUX
8120 8EF901BE;
0332
GLO AUX;ORI l;P H I AUX
8124 DCOC;
0333
SEPDELAY
;,#O C ..WAIT
8126 3F2C;
0334
BN4 WAIT
..B R IF LF =] NO ECHO
8128 9EFAFEBE;
0335
GHI AUX;ANI #FE;PH I AUX
..C R =] ECHO
812E D5;
0338
SEP R5
8X2F
’
0340 •* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
812F ;
0341 . .
READS ONE BYTE INTO CHAR.1.
WHEN ENTERED
812F ;
0342 . .
VIA READAH, ANY HEX INPUT IS ASSEMBLED
812F ;
0343 . .
INTO ASL AND DF = 1 , ELSE DF = 0 ON RETURN.
812F ;
0344 . .
NOTE-DON'T FOLLOW READ WITH IMMEDIATE TYPE.
812F ;
0345 . .
INSERT DELAY OR ENTER TYPE VIA TYPED.
812F
;
0346 ..REG USED:
CHAR, AUX & ASL
8 i2 F •
0347 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
812F
;
0348
812F FC07;
0349 CKDEC:
ADI 7
..CHECK FOR A SCII DECIMAL
8131 3 3 3 7 ;
0350
BDF NFND
..OUT OF RANGE
8133 FCOA;
0351
ADI #OA
..SUBTRACT NET 30
8135 337A;
0352
BDF FND
8137 FCOO;
0354 NFND:
ADI 0
..S E T DF = 0
8139 9F;
0356 REXIT:
GHI CHAR
..P U T INPUT INTO D
813A D5;
0357
SEP R5
. . & RETURN