summaryrefslogtreecommitdiffhomepage
path: root/samples/primes.mixal
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