[ MARK TAPE WITH 1000 WORD BLOCKS FROM 430 TO 527 [MARK PROGRAM [WITHOUT [DISPLAY [JULY 1965 [WITH SHORT [END ZONE [PLUS LONG [IBZ AT START $20 MTB i 0 HLT $40 #7A SET i 15 JMP 7X-1 SET i 3 -440 SET i 16 4 SET i 4 10 SET i 7 6 SET i 6 -10 MSC 13 SET i 5 0 #1G SAE i 0 XSK i 5 JMP 1G SAE i 17 #1B SET i 5 0 #1A SAE i 17 XSK i 5 JMP 1A SAE i 17 XSK i 6 JMP 1B SAE i 17 #1D SAE i 17 SAE i 17 SAE i 17 SAE i 17 SAE 16 SAE i 2 LDA i -0 SAE i 11 ADD 4 SAE i 11 COM SAE i 11 STC 6 SAE i 11 SRO 7 ADD 5A SAE i 11 SRO 7 ADD 5B SAE i 11 SRO 7 ADD 5C SAE i 11 SRO 7 ADD 5D SAE i 11 SRO 7 ADD 5E SAE i 11 SRO 7 ADD 5F SAE i 11 SRO 7 ADD 5G SAE i 11 SRO 7 ADD 5H SAE i 11 SRO 7 ADD 5J SAE i 11 SRO 7 ADD 5K SAE i 11 SRO 7 ADD 5L SAE i 11 SRO 7 ADD 5M SAE i 11 SAE i 11 SAE i 11 STC 6 SAE i 11 ADD 4 SAE i 11 ADA i -1 SAE i 11 STC 4 SAE i 11 SET i 5 -351 #1C SAE i 11 XSK i 5 JMP 1C SAE i 13 SAE i 1 SAE i 1 SAE i 1 SAE i 2 SAE 7 SAE i 17 XSK i 3 JMP 1D XSK i 15 SAE i 17 JMP 15 #7B SAE i 0 #1F SET i 5 0 #1E SAE i 0 XSK i 5 JMP 1E HLT SET i 2 777 LDA i #2B 11 #2A STA i 2 ADD 2B XSK 2 JMP 2A LDA i 2000 STA 2C STC 2D #2E WRI i u #2C LDA i #2F 1 ADM 2C SAE i 3000 JMP 2E MTB i u 0 MTB i u 0 #2H ADD 2F STA i #2G 0 MTB i u 0 SAE 2G JMP 3C [NON CONSEC. [BWD BLK NO. AZE JMP 2H #2J RDE i u #2D AZE JMP 3C [CHK SUM FAIL [ON READ ADD 2F ADM 2D SAE i 3000 JMP 2J MTB i u 0 SET i 2 777 SET i 3 -400 LDA i #2K 11 #2L SAE i 2 #3C HLT XSK i 3 JMP 7I SET i 15 RCG SET i 16 7300 JMP 15 #7I ADD 2K JMP 2L #7X JMP 7C JMP 7D JMP 7B #7C SAE i 17 SET i 3 -100 LDA i -751 SAE i 17 STC 1C-1 JMP 1D+3 #7D SAE i 17 SET i 3 -350 LDA i -351 SAE i 17 STC 1C-1 JMP 1D+3 [DONE MARKING #5A 10 #5B 4 #5C 2 #5D 1 #5E 200 #5F 100 #5G 40 #5H 20 #5J 4000 #5K 2000 #5L 1000 #5M 400