* TABLE OF PRIMES (TAOPC 1.3.2)
*
L          EQU  500
OUTDEV     EQU  18
PRIME      EQU  99
BUF0       EQU  2000
BUF1       EQU  BUF0+25
           ORIG 3000
START      IOC  0(OUTDEV)
           LD1  =1-L=
           LD2  =3=
2H         INC1 1
           ST2  PRIME+L,1
           J1Z  2F
4H         INC2 2
           ENT3 2
6H         ENTA 0
           ENTX 0,2
           DIV  PRIME,3
           JXZ  4B
           CMPA PRIME,3
           INC3 1
           JG   6B
           JMP  2B
2H         OUT  TITLE(OUTDEV)
           ENT4 BUF1+10
           ENT5 -50
2H         INC5 L+1
4H         LDA  PRIME,5
           CHAR
           STX  0,4(1:4)
           DEC4 1
           DEC5 50
           J5P  4B
           OUT  0,4(OUTDEV)
           LD4  24,4
           J5N  2B
           HLT
* INITIAL CONTENTS
           ORIG PRIME+1
           CON  2
           ORIG BUF0-5
TITLE      ALF  FIRST
           ALF   FIVE
           ALF   HUND
           ALF  RED P
           ALF  RIMES
           ORIG BUF0+24
           CON  BUF1+10
           ORIG BUF1+24
           CON  BUF0+10
           END  START

