DICTIONARY LABEL VALUE LABEL VALUE LABEL VALUE LABEL VALUE .BUN. 0027 .WRIT 0015 ADDON 0008 BUFAD 0041 BUFER 0042 CLOSE 0036 HITAB 0028 NUM 0029 NXNUM 0018 QUIT 0025 START 0000 STOP 0021 TABLE 0142 TABLN 0030 TEST 0001 WRITE 0031 ADRES INSTRUCTION LABEL VAR OP VARIABLE FIELD * PRIME NUMBER SIEVE (WRITES MAG-TAPE) * (MJM - 03/30/64) 0000 6 0000040000 LOAD 0 0000 0 0004450000 START CLB 0001 0 0000100029 TEST CAD NUM GET NEXT NUMBER 0002 0 0001480010 SRT 10 0003 1 0000150142 - DIV TABLE DIVIDE BY PRIME. 0004 0 0000370018 BFR NXNUM NUM ISN T PRIME. 0005 1 0000180142 - CFA TABLE IS QUOT LT DIVISOR 0006 0 0001340008 BCL ADDON -YES, IT S PRIME. 0007 0 0001200001 1IBB TEST -NO, TRY NXT DIVISOR. 0008 0 0000100030 ADDON CAD TABLN (CHANGED BY QUIT) 0009 0 0410180028 0410CFA HITAB 0010 0 0000350025 BCE QUIT TABLE FULL. 0011 0 0001260030 1IFL TABLN ADD PRIME TO TABLE. 0012 0 0000420030 LDB TABLN 0013 0 0000100029 CAD NUM 0014 1 0000400142 - STA TABLE 0015 0 0000100029 .WRIT CAD NUM 0016 0 0000440031 CALL WRITE 0018 0 0002260029 NXNUM 2IFL NUM NEXT ODD NUMBER 0019 0 0000310021 BOF STOP 0020 0 0000300000 BUN START GO AGAIN. 0021 0 0000440031 STOP STP WRITE CLOSE OUT 0022 0 0000300036 BUN CLOSE BUFFER 0023 0 0757007250 757HLT 7250 AND O-K STOP 0024 0 0000300023 BUN *-1 DEAD. 0025 0 0000100027 QUIT CAD .BUN. SET 0026 0 0000400008 STA ADDON SWITCH TO 0027 0 0000300015 .BUN. BUN .WRIT BYPASS ADDON. 0028 0 0000004857 HITAB HLT 4999-TABLE (MAX LENGTH) 0029 0 0000000007 NUM DEC 7 NUMBER TO BE TESTED 0030 0 0000000001 TABLN DEC 1 TABLE LENGTH - 1 * WRITE SUBROUTINE FOR SIEVE 0031 0 0000300000 WRITE BUN ** RETURN ADDRESS 0032 0 0000420041 LDB BUFAD 0033 1 0000400042 - STA BUFER STORE PRIME IN BUFER 0034 0 0001260041 1IFL BUFAD AND KEEP COUNT. 0035 0 9901200031 9901IBB WRITE BRANCH IF NOT FULL. ADRES INSTRUCTION LABEL VAR OP VARIABLE FIELD 0036 0 1100540042 CLOSE 1100MIW BUFER WRITE 100 PRIMES. 0037 0 0000460041 CLL BUFAD EMPTY BUFER. 0038 0 0000380031 0 BCS WRITE SW 0 ON TO SKIP HALT 0039 0 6996006996 6996HLT 6996 EVERY 100 PRIMES. 0040 0 0000300031 BUN WRITE RETURN... 0041 0 0000000003 BUFAD DEC 3 0042 0 0000000002 BUFER DEC 2 INITIAL PRIMES 0043 0 0000000003 DEC 3 0044 0 0000000005 DEC 5 0045 6 0000040142 BSS 97 0142 0 0000000003 TABLE DEC 3 PRIME NUMBER 0143 0 0000000005 DEC 5 TABLE. 0000 6 0000300000 TCD START TRANSFER CONTROL. END