*0 JMP I N200 M3, -3 BREAK, 204 N200, 200 TALLY, 0 M212, -212 M7, -7 TRI, CORE INDEX1, 0 INDEX2, 0 NUM2, 0 PLUS, 253 FILE, . 306;311;314;305;240;316;301;315;305;272;0 CHARAC, .+1 NEG, 0 CORE, 0 0;0;0;0;0;0;0 FLAG, 0 RLF, 0 CLA CLL TAD N215 JMS PRINT TAD N212 JMS PRINT JMP I RLF N215, 215 N212, 212 PRINT, 0 TLS CLA JMP I PRINT M377, -377 ERROR, TAD I .+3 JMS PRIN JMP I N200 S7 PRIN, 0 DCA INDEX1 TAD I INDEX1 SNA JMP I PRIN JMS PRINT JMP .-4 CHANGE, BLOCK+3 NUM, 0 BLOCK, .+1 0;0;0;0;0 X, N7770 INFO, .+1 0;0 MINUS, 0 WORD4, 0 0;0 BUF, 0 DCA STORE TAD M4 DCA COUNT TAD STORE RAL OK, RTL RAL DCA STORE TAD STORE AND MASK TAD N260 JMS PRINT TAD STORE ISZ COUNT JMP OK CLA CLL JMP I BUF STORE, 0 M4, -4 COUNT, 0 MASK, 7 N240, 240 N1000, 1000 M240, -240 SAVE, 0 MASK2, 7000 OPR1, 0 N260, 260 INDRCT, 0 TAD SAVE AND MASK3 SNA CLA JMP I INDRCT TAD N311 JMS PRINT TAD N240 JMS PRINT JMP I INDRCT MASK3, 400 N311, 311 FIND, 0 DCA CORE JMP I .+1 FIN2 HERE, TAD SAVE AND MASK4 TAD CORE JMS BUF JMP I FIND RETURN, SUB MASK4, 177 *200 CLA CLL SRA DCA FLAG CLL CML RAR CLOS DUP TAD BREAK KSB JMS RLF TAD FILE JMS PRIN TAD M7 DCA NEG TAD TRI DCA CORE READ, TAD CHARAC KSR TAD I CORE TAD M212 SNA JMP B TAD M3 SNA CLA JMP .-4 TAD I CORE TAD M377 SNA CLA JMP 200 JMS RLF JMP ERROR POK1, RT2+5 320;317;313;305;0 S1 STRING B, TAD NEG SNA CLA JMP .+6 TAD N240 DCA I CORE ISZ CORE ISZ NEG JMP .-4 TAD TRI IAC DCA CORE TAD CHANGE DCA NUM TAD M3 DCA TALLY AGAIN, TAD I CORE TAD M240 CLL RTL;RTL;RTL DCA I NUM ISZ CORE TAD I CORE TAD M240 TAD I NUM DCA I NUM ISZ CORE ISZ NUM ISZ TALLY JMP AGAIN GO, TAD BLOCK OPEN SZA CLA JMP POK1-2 IAC TAD X DCA MINUS TAD X DCA WORD4 JMS RLF TAD I B-1 JMS PRIN JMS I POK1 JMS RLF UND TAD INFO RFILE TAD X CMA TAD MINUS SNA JMP 200 CIA DCA MINUS TAD WORD4+1 DCA NUM TAD X DCA INDEX2 MRI, TAD NUM JMS BUF TAD N240 TLS JMS PRINT TAD I INDEX2 DCA SAVE TAD SAVE JMS BUF TAD N240 TLS JMS PRINT TAD SAVE AND MASK2 CIA DCA OPR1 DCA NUM2 TAD RETURN DCA INDEX1 COMPAR, TAD NUM2 TAD OPR1 SNA CLA JMP .+6 ISZ INDEX1 TAD N1000 TAD NUM2 DCA NUM2 JMP COMPAR TAD I INDEX1 DCA RLF JMP I RLF AN1, TAD I B-2 MAIN, JMS PRIN TAD N240 JMS PRINT JMS INDRCT JMS FIND MAIN2, JMS RLF ISZ MINUS SKP JMP I N200 ISZ NUM JMP I .+1 SUB, MRI AN1 TA1 IS1 DC1 JM1 JM2 IO1 MR1 FIN2, TAD SAVE AND N200 SNA CLA JMP HERE TAD NUM AND MASK5 DCA CORE JMP HERE MASK5, 7600 TA1, TAD S2 JMP I N IS1, TAD S3 JMP I N DC1, TAD S4 JMP I N JM1, TAD S5 JMP I N JM2, TAD S6 JMP I N N, MAIN S1, . 301;316;304;0 S2, . 324;301;304;0 S3, . 311;323;332;0 S4, . 304;303;301;0 S5, . 312;315;323;0 S6, . 312;315;320;0 S7, . 305;322;322;317;322;0 Y IO1, TAD INST DCA NUM2 TAD I .-3 DCA CORE PHASE, TAD I NUM2 SNA JMP .+11 TAD SAVE SNA CLA JMP .+3 ISZ CORE JMP PHASE TAD I CORE JMS PRIN JMP BACK TAD I CORE JMS PRIN TAD PLUS JMS PRINT TAD SAVE AND IT JMS BUF BACK, JMP I .+1 MAIN2 IT, 777 INST, . -6000;-6031;-6032;-6034;-6036;-6400;-6401;-6030;-6041 -6042;-6044;-6046;-6040;-6011;-6012;-6014;-6010;-6021 -6022;-6024;-6026;-6020;-6764;-6771;-6772;-6423;-6615 -6411;-6412;-6413;-6414;-6415;-6420;-6421;-6430;-6200 -6440;-6442;-6402;-6422;-6616;-6614;-6603;-6605 -6617;-6600;-6601;-6602;-6604;-6610;-6611;-6612 -6613;-6403;-6417;-6431;-6424;0 Y, .+1 IO2;KS1;KC1;KR1;KR2;KS2;SB1;KS3;TS1;TC1;TP1;TL1;SA1 RS1;RR1;RF1;RR2;PS1;RC1;PP1;PL1;PS2;DTX1;DTS1;DTR1 PEK1;LOG1;UR1;TO1;RC1;DAT1;STM1;TS2;US1;SS1;CK1;AS1 RE1;DU1;CO1;WH1;SI1;RFI1;WF1;AC1;RE2;OP1;CLO1 PRO1;CR1;EX1;RE3;FIN1;UN1;SR1;SE1;POK1 IO2, . 311;317;324 KS1, 0 313;323;306 KC1, 0 313;303;303 KR1, 0 313;322;323 KR2, 0 313;322;302 KS2, 0 313;323;302 SB1, 0 323;302;303 KS3, 0 313;323;322 TS1, 0 324;323;306 TC1, 0 324;303;306 TP1, 0 324;320;303 TL1, 0 324;314;323 SA1, 0 323;301;323 RS1, 0 322;323;306 RR1, 0 322;322;302 RF1, 0 322;306;303 RR2, 0 322;322;323 PS1, 0 320;323;306 PC1, 0 320;303;306 PP1, 0 320;314;323 PL1, 0 320;314;323 PS2, 0 320;323;324 DTX1, 0 304;324;330;301 DTS1, 0 304;324;323;306 DTR1, 0 304;324;322;302 PEK1, 0 320;305;305;313 LOG1, 0 314;317;307;317;325;324 UR1, 0 325;322;324 TO1, 0 324;317;304 RC1, 0 322;303;322 DAT1, 0 304;301;324;305 STM1, 0 323;324;315 TS2, 0 324;323;323 US1, 0 325;323;305 SS1, 0 323;323;327 CK1, 0 303;313;323 AS1, 0 301;323;304 RE1, 0 322;305;314 DU1, 0 304;325;320 CO1, 0 303;317;316 WH1, 0 327;310;317 SI1, 0 323;311;332;305 RFI1, 0 322;306;311;314;305 WF1, 0 327;306;311;314;305 AC1, 0 301;303;324 RE2, 0 322;305;316 OP1, 0 317;320;305;316 CLO1, 0 303;314;317;323 PRO1, 0 320;322;317;324 CR1, 0 303;322;306 EX1, 0 305;330;324 RE3, 0 322;305;304 FIN1, 0 306;311;316;306 UN1, 0 325;316;304 SR1, 0 323;322;301 SE1, 0 323;305;301;0 GROUP1 MR1, TAD SAVE TAD N1000 SNA CLA JMP I ZONE+5 TAD MASK3 DCA BUF TAD M4 DCA TALLY TAD SAVE JMP I MR1-1 IAC DCA PRINT DCA FLAG TAD N200 DCA INDRCT TAD N200 DCA BUF TAD SAVE AND PRINT SZA CLA JMP I ZONE+5 TAD SAVE AND I ZONE+6 SZA CLA JMP .+5 TAD SAVE AND I ZONE+7 SZA CLA JMS I ZONE+2 TAD I ZONE+3 DCA CORE TAD I ZONE+4 DCA RLF TAD SAVE AND I ZONE+7 DCA FLAG ASCII, TAD BUF CLL RAR SZA JMP I .+1 ZON2-1 ZONE, JMP I .+1 MAIN2 UNSKP STP ABC OPR2 N160 N10 S ASCII DCA BUF ZON2, TAD SAVE AND BUF SZA CLA JMP S JMP MEM+11 THERE, ISZ CORE ISZ RLF JMP I .+1 ASCII S, TAD FLAG SNA CLA JMP .+3 TAD I RLF JMP MEM TAD I CORE MEM, JMS PRIN STA TAD 10 CIA TAD CHECK-1 SNA CLA JMP .+3 TAD N240 JMS PRINT ISZ TALLY SKP JMP CHECK JMP THERE NUTH CHECK, ISZ CORE ISZ RLF TAD SAVE AND INDRCT SZA CLA JMP I .+2 JMP I .+2 S THERE UNSKP, 0 TAD SK1 JMS PRIN JMP I UNSKP N10, 10 N160, 160 N5, 5 OPR2, TAD STP-2 JMS PRIN TAD SAVE AND STP-1 SNA JMP I .+7 DCA RLF TAD PLUS JMS PRINT TAD RLF JMS BUF JMP I .+1 MAIN2 OPR3 777 STP, .+1 SM1;SZ1;SN1;NUTH;CL1;OS1;HL1;NUTH ABC, .+1 SP1;SN2;SZ2;NUTH;CL1;OS1;HL1 CL1, NUTH 303;314;301 SM1, 0 323;315;301 SZ1, 0 323;332;301 SN1, 0 323;316;314;0 SK1, . 323;313;320 OS1, 0 317;323;322 HL1, 0 310;314;324 SP1, 0 323;320;301 SN2, 0 323;316;301 SZ2, 0 323;332;314 OPR3, 0 317;320;322;0 0 GROUP1, TAD MASK3 SZA CLA JMP .+4 TAD COBAL-3 JMS PRIN JMP I COBAL-2 TAD SAVE AND BUF SZA CLA JMP I COBAL-1 DCA FLAG IAC DCA INDRCT IAC RAL DCA PRINT TAD SAVE AND PRINT SNA CLA SKP ISZ FLAG TAD COBAL DCA CORE TAD URAN DCA RLF JMP I .+1 ASCII OPR3 MAIN2 MR1+12 COBAL, .+1 CL1;CL2;CM1;CM2;IA1;RA1;RA2;NUTH;NUTH URAN, .+1 CL1;CL2;CM1;CM2;IA1;RT1;RT2;NUTH CL2, NUTH 303;314;314 CM1, 0 303;315;301 CM2, 0 303;315;314 RA1, 0 322;301;322 RA2, 0 322;301;314 NUTH, 0 IA1, 0 311;301;303 RT1, 0 322;324;322 RT2, 0 322;324;314;0 0 CLA CLL DCA WORD4+1 KRB DCA BUF TAD BUF TAD M212 SNA JMP I RT2+5 TAD M3 SNA CLA JMP I RT2+5 TAD BUF TAD M377 SNA CLA JMP I ION1 TAD BUF TAD M260 DCA BUF TAD WORD4+1 RAL CLL RTL AND N7770 TAD BUF DCA WORD4+1 JMP RT2+10 STRING, . 301;304;304;322;305;323;323;272;0 ION1, MRI-21 M260, -260 N7770, 7770 $