blob: d8e6eef594677b8fc15545f6099c2e05583c3daf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
* table of primes (taopc p. 148)
*
L EQU 500
OUTDEV EQU 20 the paper tape
PRIME EQU -1
BUF0 EQU 2000
BUF1 EQU BUF0+25
ORIG 3000
START IOC 0(OUTDEV)
LD1 =1-L=
LD2 =3=
2H INC1 1
ST2 PRIME+L,1
J1Z 2F
4H INC2 2
ENT3 2
6H ENTA 0
ENTX 0,2
DIV PRIME,3
JXZ 4B
CMPA PRIME,3
INC3 1
JG 6B
JMP 2B
2H OUT TITLE(OUTDEV)
ENT4 BUF1+10
ENT5 -50
2H INC5 L+1
4H LDA PRIME,5
CHAR
STX 0,4(1:4)
DEC4 1
DEC5 50
J5P 4B
OUT 0,4(OUTDEV)
LD4 24,4
J5N 2B
HLT
* initial contents
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
|