Appendix B—UT62 Monitor Program Listing
8227 02AB
0539
8229 9D52
0540
822B 9BBD
0541
822D 02BB
0542
822F 3017
0543
8231 j
0544
8231 D487EA;
0545 CNTIN:
8234 8DFF01AA;
0546
8238 9D7FOOBA;
0547
823C 333F;
0548
823E lA ;
0549
823F D3;
0550 EXITOK : SEP R5
8240
0551
0552 .* * * * * * * * * * * ** * * * * * * ** * * * * * * * * * * * ** * * * * * * * * * * * * * * ** * * * * * * * *
8240
8240
0553 . .
8240
0554 . .
8240
0555 . .
8240
0556 . .
8240
0557 . .
8240
0558 . .REG JSED:
8240
0559 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8240
0560
8240 D 48303;
0561 FILL:
8243 D4824B;
0562
8246
0563
8246 C087F0;
0564 PRMPT2
8249 ; >
0565
8249 lB ;
0566 NXTCEL : INC SRC
824A 2A;
0567
824B 8D5B;
0568 USRFIL : GLO ASL;STR SRC
824D BA;
0569
824E 3A49;
0570
825>0 9A;
0571
8251 3A49;
0572
8253 D5;
0573
8254
0574
8254
0575 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8254
0576 . .
8254
0577 . .
8254
0578 . .
8254
0579 . .
8254
0580 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8254 D 48774;
0581 TPSCRN: SEP CALL;,A(FINDTP)
8257 9C73;
0582
8259 8C73;
0583
825B D483F00A00;
0584
8260 12;
0585
8261 42AC;
0586
8263 02BC;
0587
8265 F814AA;
0588
8268 ;
0589
8268 D 48542;
0590 MORLST: SEP CALL; ,A(READT)
826B ;
0591
826B 9C73;
0592 CHKOUT: GHI RC;STXD
826D 8C73;
0593
826F 9FFB13;
0594
8272 3 2 4 6 ;
0595
8274 FB lE ;
0596
8276 3AA4;
0597
8278 D483F0;
0598
LDN SP;PLO SRC
GHI ASL;STR SP
GHI SRC;PHI ASL
LDN SP;PH I SRC
BR
BYTCNT
SEP CALL;,A(READHX)
GLO ASL; SMI l;PL O CNT
GHI ASL;SMBI 0;P H I CNT
BDF EXITOK
INC CNT
FILL ROUTINE
LOADS MEMORY BEGINNING AT ADDRESS CONTAINED
IN SRC WITH DATA CONTAINED IN A SL.0 FOR
THE NUMBER OF BYTES SPECIFIED BY CNT.
USER CALLABLE @ USRFIL.
ASL, SRC, CNT , CHAR
SEP CALL;,A(READAD)
SEP CALL;,A(USRFIL)
LBR RENTER
DEC CNT
GLO CNT
BNZ NXTCEL
GHI CNT
BNZ NXTCEL
SEP R5
ROUTINE TO READ FROM TAPE TO SCREEN
AFTER EACH 20 RETURNS , ROUTINE OUTPUTS "* * * * " AND
WAITS FOR BREAK KEY TO BE HIT TO CONTINUE.
HALTS ON BREAK, EXITS ON Q OR CONTINUE ON OTHER
GHI RC;STXD
GLO RC;STXD
SEP CALL;,A (O S T R N G ),L F ,0..OUTPUT A LINEFEED
INC SP
LDA SP;PLO RC
LDN S P ; PHI RC
LDI LINES;PLO CNT
GLO RC;STXD
GHI CHAR;XRI EOF
BZ PRMPT2
XRI #lE
BNZ SHOWIT
SEP CALL;,A(OSTRNG)
. .RECALCULATE
. . INPUT THE BYTE COUNT
..RETURN WHEN DONE
..G ET THE ADDRESSES
..CALL THE MOVE
..GOTO UT62 AND PROMPT
..PO IN T TO NEXT CELL
..REDUCE BYTE COUNT
..LOAD THE DATA;USER ENTRY PT.
..LOOP UNTIL COUNT.= 0
..E X IT THE CALL
..G ET TAPE #
..SAVE IOCB
..RESTORE IOCB
..IN IT IA L IZ E FOR 20 LINES
..G ET A BYTE
..W E'RE DONE
..ASSEMBLY LISTINGS DON'T HAVE
..L IN E FEEDS
69