RCA CDPl8S693 User Manual page 74

Appendix B—UT62 Monitor Program Listing
0779 . .
8381
0780 . .
8381
0781 , ,
8381
0782 # #************* * * * * * ** * * * * * * * ** ** *** ** ** ** *** ** ** ** *** ** ** ** *** ** ** ** *
8381
0783
8381
0784 IN IT :
8381 F82CA3;
8384 F880B3; 0785
0786
8387 308F;
0787
8389
0788 ENTERl: LDI A.O(PGMSRT) ; PLO PC
8389 F805A3;
0789
838C F800B 3;
838F 0790
0791 ENTER2: LDI A. 0 ( DELAY1) ; PLO DELAY
838F F8EFAC;
0792
8392 F880BC;
0793
8395 F883B4B5;
0794
8399 F864A 4;
839C F874A5; 0795
839F F8FFA2; 0796
83A2 F88CB2; 0797
0798
83A5 E2D3;
0799
83A7
83A7 0800
0801 . .
83A7
0802 . .
83A7
0803 . .
83A7
0804 . .
83A7
0805 . .
83A7
83A7 0806
83A7 0807
0808
83A7
0809 # # ************* ** * * * * * * * ** * * * ** ** ** ** *** ** ** ** *** ** ** ** *** ** *
83A7
0810
83A7
0811 INSERT: LDI 0;P H I ASL;PLO ASL
83A7 F800BDAD;
83AB 0812
83AB D487EA; 0813 FSTHEX: SEP CALL; , A( READHX)
0814
83AE FB20;
0815
83B0 3A60;
0816
83B2 9DBB;
83B4 8DAB; 0817
0818
83B6 1 I
0819 NXTCHR: SEP CALL; , A( READAH)
83B6 D4813B;
0820
83B9 3BC5;
0821
83BB D4813B;
83BE 3B60; 0822
0823
83C0 8D5B;
83C2 lB ; 0824
83C3 30B6; 0825
83C5 0826
3
83C5 FBOD; 0827 NTDATA: XRI CR
0828
83C7 325D;
83C9 9F; 0829
83CA FB3B; 0830
83CC 3AD3; 0831
0832
83CE D483DD;
83D1 30A7; 0833
0834
83D3 j
83D3 9F; 0835 COMCHK
83D4 FB2C; 0836
83D6 3AB6; 0837
83D8 D483DD; 0838
AND REG 3 AS PROGRAM COUNTER. FOR ENTERl REG 3 IS 0005, FOR
ENTER2 REG 3 MUST BE PRESET.
REG USED: PC, DELAY, CALL, RETURN, SP
LDI A. 0 ( START) ; PLO PC
LDI A. 1 ( START) ; PHI PC
BR ENTER2
LDI A .l(PGMSRT) ; PHI PC
LDI A .l(D E L A Y l); PHI DELAY
LDI A .l(CA LLR);PHI CALL;PHI RETN
LDI A.O(CALLR);PLO CALL
LDI A.O(RETR);PLO RETN
LDI A.O(TOPSTK);PLO SP
LDI A .l(T O PSTK );PH I SP
SEX SP ; SEP PC
# ********************* * * * * * * *** ** *** ** ** ** *** ** ** ** *** ** ** **
HEX BYTE INSERT ROUTINE
INSERTS HEX PAIRS INTO MEMORY STARTING AT A SPECIFIED
ADDRESS. AFTER A " ; " ALL IS IGNORED UNTIL A RETURN
THEN A NEW ADDRESS IS EXPECTED. ANY NON-HEX DATA IS
IGNORED BETWEEN HEX PAIRS BUT NOTHING IS PERMITTED
BETWEEN MEMBERS OF THE PAIR. ROUTINE IS TERMINATED
. .
WITH A RETURN, EXCEPT AFTER A " ; " .
. .
REG USED: ASL, SRC, CHAR
. .
XRI SPACE
BNZ ERRl
GHI ASL;PHI SRC
GLO ASL;PLO SRC
BNF NTDATA
SEP CALL;,A(READAH)
BNF ERRl
GLO ASL;STR SRC
INC SRC
BR NXTCHR
BZ PRMPT5
GHI CHAR
XRI SEMCOL
BNZ COMCHK
SEP CALL;,A(CKCRLF)
BR INSERT
GHI CHAR
:
XRI COM M A
BNZ NXTCHR
SEP CALL;,A(CKCRLF)
..DELAY ROUTINE
..CLEAR INPUT REGISTER
..WAIT FOR FIRST NON-HEX INPUT
..F IR S T NON-HEX MUST BE
..A SPACE
..STORE STARTING ADDRESS
..GET FIRST CHARACTER
..OTHERWISE SECOND ONE MUST BE HEX
..STORE THE DATA
..PO IN T TO THE NEXT CELL
. . & CONTINUE
..DONE IF CR
. . I F " ; " WAIT FOR CRLF
..ELSE CHECK IF " , "
..GO GET NEW ADDRESS
..CHECK FOR
" , "
..IGNORE IF NOT CR
, ;
..WAIT FOR CRLF