memory        |                   source
--------------------+----------------------------------------------------
                    | 001:      * table of primes (taopc p. 148)
                    | 002:      *
                    | 003:      L       EQU     500
                    | 004:      OUTDEV	EQU	20	the paper tape
                    | 005:      PRIME	EQU	-1
                    | 006:      BUF0	EQU	2000
                    | 007:      BUF1	EQU	BUF0+25
                    | 008:              ORIG	3000
3000: + 00 00 00 20 | 009:      START	IOC	0(OUTDEV)
3001: + 32 02 00 05 | 010:              LD1	=1-L=
3002: + 32 03 00 05 | 011:              LD2     =3=
                    |