
	TITL	ROTATION GAME
*
WDOS	EQU	H'6893'
CRLF	EQU	H'8A'
CHIN	EQU	H'286'
COUT	EQU	H'2B4'
	SPA
	ORG	H'440'
	SPA
	CPSL H'FF'
B440	LODI,R1	0
	BSTR,UN	*I466+1
	EORZ,R0
B444	ADDI,R1	1
	REDE,R0	H'05'
	BCTR,Z	B444
	STRR,R1	B44C+1
B44C	LODI,R1	1
	SUBI,R1	1
	BCTR,EQ	B461
	STRR,R1	B44C+1
I454	LODI,R2	8
	ADDI,R2	H'67'	g
	DAR,R2
	ANDI,R2	H'F'
	STRR,R2	I454+1
	BSTR,UN	B472
	BCTR,UN	B44C
	SPA
B461	BSTA,UN	B4A6
	LODI,R1	H'12'
I466	BSTA,UN	B4D7
	BSTR,UN	B46F
	BSTR,UN	B48E
	BCTR,UN	B461
	SPA
B46F	BSTA,UN	B4C4
B472	LODZ,R2
	LODI,R1	1
B475	SUBZ,R1
	COMI,R0	1
	RETC,LT
	LODA,R0	I4B9+1,R1
	STRZ,R3
	LODA,R0	I4B9+1,R2
	STRA,R0	I4B9+1,R1
	LODZ,R3
	STRA,R0	I4B9+1,R2
	ADDI,R1	1
	SUBI,R2	1
	LODZ,R2
	BCTR,UN	B475
	SPA
B48E	LODI,R1	9
B490	LODA,R0	I4B9+1,R1
	ANDI,R0	H'F'
	COMZ,R1
	BCFR,EQ	B4A5
	SUBI,R1	1
	BCFR,EQ	B490
	LODI,R1	H'A'
	BSTR,UN	B4D7
	BSTR,UN	B4A6
	BCTA,UN	B440
	SPA
B4A5	RETC,UN
	SPA
B4A6	BSTA,UN	CRLF
	BSTR,UN	*B4A6+1
	LODI,R1	0
B4AD	LODA,R0	I4B9+1,R1+
	BSTR,UN	*I4D0+1
	COMI,R1	9
	RETC,EQ
	LODI,R0	H'20'	 
	BSTR,UN	*I4D0+1
I4B9	BCTR,UN	B4AD
	SPA
W4BB	DATA	H'39,38,37,36,35,34,33,31'	98765431
	DATA	H'32'	2
	SPA
B4C4	BCTR,UN	B4FD
	SPA
W4C6	DATA	H'C0'	_
	SPA
B4C7	COMI,R0	H'31'	1
	BCTR,LT	B4C4
	COMI,R0	H'39'	9
	BCTR,GT	B4C4
	STRZ,R2
I4D0	BSTA,UN	COUT
	ANDI,R2	H'F'
	LODZ,R2
	RETC,UN
	SPA
B4D7	LODA,R0	I4DD+1,R1+
	RETC,EQ
	BSTR,UN	*I4D0+1
I4DD	BCTR,UN	B4D7
	SPA
W4DF	DATA	H'D,A,A,52,45,41,44,59'	___READY
	DATA	H'3F,0,D,A,59,45,53,21'	?___YES!
	DATA	H'21,0,D,A,52,4F,54,41'	!___ROTA
	DATA	H'54,49,4F,4E,2D,0'	TION-_
	SPA
B4FD	BSTA,UN	CHIN
	COMI,R0	H'1B'
	BCTA,EQ	WDOS
	BCTR,UN	B4C7
	SPA
W507	DATA	H'75,FF,1F,4,40'	u___@
	END	H'440'
