primes.mix

* TABLE OF PRIMES
L          EQU  500
PRINTER    EQU  18
PRIME      EQU  -1
BUF0       EQU  2000
BUF1       EQU  BUF0+25
           ORIG 3000
C1         CON  1-L
C3         CON  3
START      IOC  0(PRINTER)
           LD1  C1
           LD2  C3
H21        INC1 1
           ST2  PRIME+L,1
           J1Z  H22
H41        INC2 2
           ENT3 2
H61        ENTA 0
           ENTX 0,2
           DIV  PRIME,3
           JXZ  H41
           CMPA PRIME,3
           INC3 1
           JG   H61
           JMP  H21
H22        OUT  TITLE(PRINTER)
           ENT4 BUF1+10
           ENT5 -50
H23        INC5 L+1
H42        LDA  PRIME,5
           CHAR
           STX  0,4(1.4)
           DEC4 1
           DEC5 50
           J5P  H42
           OUT  0,4(PRINTER)
           LD4  24,4
           J5N  H23
           HLT
           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