Added pool game.

Checked once, have not tried to assemble or run.
2019-10-19 12:28:21 -04:00
parent 5c3eb06254
commit c5d492f97b
6 changed files with 1031 additions and 0 deletions
@@ -0,0 +1,149 @@
+"** 10-36-55.pdf page 11
+" 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+slfg
+	lac high
+	dac bal1+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
+"** 10-36-55.pdf page 12
+	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
+
+"** 10-36-55.pdf page 13
+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