summaryrefslogtreecommitdiffhomepage
path: root/doc/img/ss_mixal.txt
blob: 4ae0455c13bbbd069b5e52c41fc8ae504d6d2f2f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
      address       |                   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=
                    |