unix-history-repo/p3.s at Research-PDP7-Snapshot-Development · dspinellis/unix-history-repo · GitHub

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
" p3

rad = 02000
diam = rad+rad
diam3 = diam-0200
middle: 0100000
high: 0177700-010000
low: 010000
ballinit: 0
	-nball
	dac 9f+t

" Q ball

	lac middle
	dac ball1+x
	lac low
	dac ball1+y
	dzm ball1+vx
	dzm ball1+vy
	dzm ball1+sflg
	jms put

" top row

	lac d1
	dac ball1+sflg
	lac high
	dac ball1+y
	-diam-diam-diam
	tad ball1+x
	dac ball1+x
	jms put
	jms put
	jms put
	jms put
	jms put

" second row

	-diam3
	tad ball1+y
	dac ball1+y
	-diam-diam-diam
	tad ball1+x
	dac ball1+x
	-diam-rad
	tad ball1+x
	dac ball1+x
	jms put
	jms put
	jms put
	jms put

" third row

	-diam3
	tad ball1+y
	dac ball1+y
	-diam-diam-diam-rad
	tad ball1+x
	dac ball1+x
	jms put
	jms put
	jms put

" fourth row

	-diam3
	tad ball1+y
	dac ball1+y
	-diam-diam-rad
	tad ball1+x
	dac ball1+x
	jms put
	jms put

" last row

	-diam3
	tad ball1+y
	dac ball1+y
	-diam-rad
	tad ball1+x
	dac ball1+x
	jms put

	jmp ballinit i

put: 0
	jms putball; ball1; 9f+t
	-diam-1
	cma
	tad ball1+x
	dac ball1+x
	isz 9f+t
	jmp put i
	jmp put i
t = t+1

getball: 0
	-1
	tad getball i
	dac 8
	isz getball
	lac getball i
	dac 9f+t
	lac nballp
	tad 9f+t i
	cll; mul; bvsize
	lacq
	tad listpm1
	dac 9
	-bvsize
	dac 9f+t
1:
	lac 9 i
	dac 8 i
	isz 9f+t
	jmp 1b
	isz getball
	jmp getball i

putball: 0
	-1
	tad putball i
	dac 8
	isz putball
	lac putball i
	dac 9f+t
	lac nballp
	tad 9f+t i
	cll; mul; bvsize
	lacq
	tad listpm1
	dac 9
	-bvsize
	dac 9f+t
1:
	lac 8 i
	dac 9 i
	isz 9f+t
	jmp 1b
	isz putball
	jmp putball i
t = t+1