blob: 4f27756e020f9629a1d02a250559ae4dc6a183a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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=
|
|
