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=
|
|