7 8cl01a 9/15/61 7 all check switches on auto. 7 911 on-bypass error 7 typeouts & halts 7 913 on-halt on error 7 914 on- loop in program. 00004 eem 3 14 0000 0+-0 00009 chr 3 13 0000 0+ 0 initial typeout on 00014 nop a 0174 reading the program in 00019 sgn t 0010 00024 sel 2 0500 00029 wr r 0050 00034 wr r 0072 00039 wr r 0118 00044 hlt j 0000 00049 tr 1 0144 7 7 constants + work area 2 021 00070 all check sws on auto. 2 001 00071 | 2 032 00103 40k , 705 i/ii , i/o int. + no 2 013 00116 stop all-off. 2 001 00117 | 2 019 00136 to loop put 914 on. 2 001 00137 | 7 7 housekeeping 7 00144 spc , 0000 00149 sel 2 2001 00154 rwd 3 0002 rewind tape 2001 00159 iof 3 0000 00164 trs o 01 0174 01x4 make tape ready 00169 tr 1 0164 00174 sel 2 0501 00179 trs o 01 0189 01y9 make clock ready 00184 tr 1 0179 00189 rd y 0890 00194 wr r 0890 rd clock + t/o 00199 eim , 06 0000 0 -0 7 00204 spc , 2510 set up int. wd 251 00209 lfc , 02 0274 02p4 00214 spc , 2514 00219 lfc , 02 0279 02p9 00224 tr 1 0264 7 00229 eem 3 14 0000 0+-0 manual int. 251 routine 00234 sel 2 0501 00239 trs o 01 0249 02u9 00244 tr 1 0239 00249 rd y 0265 00254 wr r 0265 00259 lip , 15 0009 0++9 7 00264 tr 1 0284 to next page 2 005 00269 constants + work area 2 001 00270 | 3 00274 0229 0229 2 005 00279 -+-m 7 7 main program 7 rd clock + tip 00284 sel 2 0501 00289 trs o 01 0299 02z9 make clock rdy. 00294 tr 1 0289 00299 rd y 0890 00304 tip , 14 0464 0do4 transfer int. program 00309 tr 1 0314 7 7 rd clock routine 00314 sel 2 0501 00319 trs o 01 0329 03s9 00324 tr 1 0309 00329 rd y 0890 00334 trs o 01 0344 03u4 00339 tr 1 0309 00344 rd y 0900 00349 spc , 0000 cmp two successive reading 00354 set b 02 0005 00-5 of the clock 00359 lod 8 02 0904 09-4 00364 cmp 4 02 0894 08r4 00369 tre l 0449 00374 add g 02 1386 13q6 00379 cmp 4 02 0894 08r4 00384 tre l 0449 7 00389 tra i 01 0449 04u9 error routine for rd 00394 set b 02 0015 00j5 00399 lod 8 02 0904 09-4 00404 unl 7 02 19998 z9r8 00409 rcv u 19989 z989 00414 blm $ 01 0005 00 5 00419 sel 2 0500 clock routine 00424 wr r 01 19984 z9y4 00429 tra i 03 0439 04c9 00434 tr 1 0449 00439 hlt j 0001 7 7 00444 nop a 0000 clock not rdy, repeat 00449 sel 2 0501 main program,clock 00454 trs o 01 0314 03/4 rdy, loop in rd clock 00459 tr 1 0309 7 interrupt program 00464 sel 2 2001 wr tape 00469 trs o 0479 end of file - rewind 00474 tr 1 0489 00479 rwd 3 0002 00484 iof 3 0000 00489 trs o 01 0499 04z9 00494 tr 1 0489 00499 wr r 0930 00504 spc , 0000 00509 set b 8000 delay for write 00514 spc , 3700 00519 lfc , 02 0899 08r9 00524 lip , 15 2000 2++0 lip to rd clock routine 7 7 bsp 00529 sel 2 2001 00534 trs o 02 0544 05m4 00539 tr 1 0559 00544 tra i 01 0564 05w4 00549 sel 2 0500 00554 wr r 1340 00559 sel 2 2001 00564 bsp 3 0004 00569 spc , 0000 00574 set b 8000 00579 spc , 3700 00584 set b 0004 00589 cmp 4 0909 00594 tre l 0604 if interrupt on second 00599 tr 1 0609 rd,do clock rd routine 00604 lfc , 02 0899 08r9 over again 00609 spc , 3730 00614 lfc , 02 1384 13q4 00619 lip , 15 2000 2++0 7 00624 sel 2 2001 rd 00629 rd y 1135 00634 spc , 0000 00639 set b 8000 00644 spc , 3700 00649 set b 0004 00654 cmp 4 0909 00659 tre l 0669 00664 tr 1 0674 00669 lfc , 02 0899 08r9 00674 spc , 3730 00679 lfc , 02 1384 13q4 00684 lip , 15 2000 2++0 7 7 compare routine 00689 spc , 0000 00694 sel 2 2001 00699 trs o 02 0709 07-9 00704 tr 1 0724 00709 tra i 01 0724 07s4 00714 sel 2 0500 00719 wr r 1355 00724 set b 0200 00729 lod 8 1334 lod rd field 00734 cmp 4 1129 00739 spc , 2000 00744 tre l 0779 7 00749 tra i 01 0779 07x9 error routine for rd-wr 00754 sel 2 0500 00759 wr r 0916 00764 tra i 03 0774 07g4 00769 tr 1 0779 00774 hlt j 0002 00779 tr 1 0784 7 7 pass counter 00784 nop a 0000 typeout z 00789 nop a 0000 loop if 914 is on 00794 spc , 0000 00799 set b 0002 00804 lod 8 0789 step counter plus 1 00809 add g 0913 00814 unl 7 0789 00819 lod 8 0911 00824 cmp 4 0789 00829 spc , 2000 00834 tre l 0844 00839 tr 1 0464 00844 spc , 0000 00849 lod 8 0784 reset counter 00854 unl 7 0789 00859 spc , 2000 00864 sel 2 0500 00869 wr r 0914 typeout z 00874 tra i 04 0464 0u64 914 on loop 00879 spc , 3700 00884 lfc , 02 1339 13l9 00889 lip , 15 0009 0++9 7 7 constants + work area 2 005 00894 clock read area 2 001 00895 | 3 00899 0314 0314 rd clock routine starting address 2 005 00904 clock read area 2 001 00905 | 3 00909 0344 0344 address of 2nd rd in rd clock routine 2 005 00914 99aaz 2 001 00915 | 2 013 00928 rd-wr unequal 2 001 00929 | 2 040 00969 abcdefghij0123567894klmnopqrrstuvwxyz... 2 040 01009 abcdefghij0123567894klmnopqrrstuvwxyz... 2 040 01049 abcdefghij0123567894klmnopqrrstuvwxyz... 2 040 01089 abcdefghij0123567894klmnopqrrstuvwxyz... 2 040 01129 abcdefghij0123567894klmnopqrrstuvwxyz... 2 005 01134 | 2 050 01184 2 050 01284 2 050 01334 2 005 01339 y219 2 014 01353 chan chk on wr 2 001 01354 | 2 014 01368 chan chk on rd 2 001 01369 | 2 005 01375 2 005 01379 2 005 01384 00501 2 002 01386 aj