RCA CDPl8S693 User Manual page 66

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