7 8tr06a 4-4-61 7 -7080- 7 tape generator + input system 7 for all progs + tape control 7 except-- trc control --and 7 programs that lie 7 between 18200-18799 7 2 005 18204 0000x file search ident store area 7 18209 bsp 3 0004 backspace record 1 18214 tsa o 03 18219 y2a9 7 18219 eem 3 14 0000 0+-0 enter 7080 mode 18224 lim , 07 0000 0 +0 leave interrupt mode 18229 spc , 0000 reset spc to bank 0 7 18234 set b 01 0004 00 4 18239 lod 8 01 18203 y2 3 fs store area into asu 01 18244 rad h 02 18588 y5q8 0 into asu 02 18249 set b 05 0005 0 5 18254 lod 8 05 18534 yvt4 1y219 into asu 05 7 18259 chr 3 13 0000 0+ 0 reset all channels 7 18264 sel 2 0200 select diagnostic input tape 18269 sdh 3 0038 set density high 7 18274 src r 02 0040 00m0 set record ctr for 4 reads 18279 rd y 0000 read into 0k-20k-40k-60k 7 18284 tsa o 03 18299 y2i9 test for chan chk or eof 18289 trs o 18404 y404 eof 18294 tr 1 18379 y379 7 18299 ttc o 02 18309 y3-9 test for channel chk 18304 tr 1 18289 y289 7 18309 cmp 4 01 18229 y2s9 test for file search mode 18314 tre l 18334 y334 not file search 7 18319 cmp 4 01 18636 y6t6 test for wanted program 18324 tre l 18334 y334 fs prog found 18329 tr 1 18264 y264 not found - continue search 7 18334 add g 02 18589 y5q9 add 1 to chan chk ctr 18339 cmp 4 02 18205 y2-5 test for 3 count 18344 tre l 18364 y364 7 18349 src r 02 0040 00m0 set record ctr for 4 backspace 18354 bsp 3 0004 18359 tr 1 18264 y264 7 18364 sel 2 0500 18369 wr r 18550 y550 chan chks prog entry 18374 tr 1 18474 y474 go to identify program anyhow 18379 cmp 4 01 18229 y2s9 test for fs mode 18384 tre l 18474 y474 not fs 7 18389 cmp 4 01 18636 y6t6 test for wanted program 18394 tre l 18474 y474 fs prog found 18399 tr 1 18264 y264 not found - continue search 7 18404 iof 3 0000 turn ti off 18409 rwd 3 0002 rewind 7 18414 cmp 4 01 18229 y2s9 test for fs mode 18419 tre l 18264 y264 not fs 7 18424 set b 15 0002 0++2 18429 cmp 4 15 18546 yed6 test asu 15 for 11 18434 tre l 18449 y449 7 18439 rad h 15 18549 yed9 place 11 in asu 15 18444 tr 1 18264 y264 7 18449 unl 7 01 18574 y5x4 place asu 01 contents in t-0 18454 sel 2 0500 18459 wr r 18571 y571 ---- not on tape 7 18464 unl 7 05 0004 0 4 place 1y219 into 0000-0004 18469 tr 1 18509 y509 7 18474 rcv u 0000 replace first instruction 18479 tmt 9 05 18540 yvu0 7 18484 sel 2 0500 18489 wr r 18632 y632 ------ prog ident 7 18494 lem 3 15 0000 0++0 leave 7080 mode 18499 tad i 04 18509 yv09 stop before prog exe if 914 on 18504 tr 1 0004 go directly into program 7 18509 lod 8 01 18229 y2s9 reset asu 01 to 0000 18514 unl 7 01 18203 y2 3 reset 18200-18203 to 0000 18519 rad h 02 18588 y5q8 reset asu 02 to 0 18524 rad h 15 18589 yeh9 reset asu 15 to 1 7 18529 hlt j 9999 program pre-entrance stop 7 reset + start-to run prog indi 18534 tr 1 18219 y219 start- -to read next prog 7 7 2 005 18539 1y209 2 005 18544 first instruction storage area 2 005 18549 11 1a 2 020 18569 chak chks prog entry 2 001 18570 | 2 016 18586 ---- not on tape 2 001 18587 | 2 001 18588 +0 2 001 18589 +1 7 7 18594 lod 8 04 18636 yw36 18599 unl 7 04 18623 yw23 place prog id into skip t-0 7 18604 sel 2 0500 18609 wr r 18620 y620 ---- skip 7 18614 rad h 02 18588 y5q8 reset asu 02 to 0 18619 tr 1 18659 y659 7 7 2 009 18628 ---- skip 2 001 18629 | 7 7 18659 set b 05 0005 0 5 18664 rcv u 18540 y540 18669 tmt 9 05 0000 0 0 18674 rcv u 0000 18679 tmt 9 05 18535 yvt5 7 18684 set b 04 0004 0 04 18689 sel 2 0200 18694 sdh 3 0038 7 18699 rad h 02 18588 y5q8 reset asu 02 to 0 18704 tr 1 18774 y774 go to read card #9 7 7 card #9 7 18659 sel 2 0200 18664 src r 02 0040 00m0 set record ctr for 4 writes 18669 wr r 01 0000 00 0 write from 0k-20k-40k-60k 7 18674 tsa o 03 18684 y6h4 test for channel chk 18679 tr 1 18774 y774 go to read card card #10 7 18684 src r 02 0040 00m0 set record ctr for 4 backspace 18689 bsp 3 0004 7 18694 add g 02 18589 y5q9 add 1 to chan chk ctr 18699 cmp 4 02 18205 y2-5 test for 3 count 18704 tre l 18714 y714 18709 tr 1 18664 y664 7 18714 skp 3 0009 skip some tape - and 18719 tr 1 18594 y594 indicate same and try again 7 7 card #10 7 clear memory routine 18659 lng d 01 0286 02y6 18664 unl 7 01 18198 y1z8 18669 spr 5 01 18199 y1z9 18674 unl 7 15 17973 xig3 7 18679 rcv u 18800 y800 18684 tmt 9 01 17974 x9x4 7 18689 cmp 4 15 17973 xig3 18694 tre l 18684 y684 18699 tr 1 18774 y774 go to read card #11 7 7 card #11 7 for use with 8ld01 gr loaders 18659 sel 2 0100 select card reader 0100 18664 rd y 0000 18669 trs o 18679 y679 eof 18674 tr 1 0004 read and generate next program 7 18679 sel 2 0200 18684 wtm 3 0001 write tape mark 18689 rwd 3 0002 rewind 7 18694 hlt j 7777 tape generation complete 18699 tr 1 18694 y694 7 7 card #11-10 --alternate 7 for use with 8ld10 ccr loaders 18659 sel 2 0101 select console card reader 101 18664 rd y 0000 18669 trs o 18679 y679 eof 18674 tr 1 0004 read and generate next program 7 18679 sel 2 0200 18684 wtm 3 0001 write tape mark 18689 rwd 3 0002 rewind 7 18694 hlt j 7777 tape generation complete 18699 tr 1 18694 y694 7 7 card #11-02 --alternate 7 for use with 8ld02 tape loader 18659 sel 2 0202 select tape 202 18664 rd y 0000 18669 tsa o 03 18674 y6g4 18674 trs o 18684 y684 eof 18679 tr 1 0004 read and generate next program 7 18684 iof 3 0000 18689 rwd 3 0002 rewind input tape 0202 7 18694 sel 2 0200 18699 wtm 3 0001 write tape mark on 0200 18704 rwd 3 0002 rewind 7 18709 hlt j 7777 tape generation complete 18714 tr 1 18709 y709