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