$HPAGE 21


  $LABEL AR0010

	$CGOTO	#17, #APFA3E

	MOV	#175455, R1

	$SGOTO	#21, #P21046

  $LABEL P21046
	MOV	#37776, @#UISAR7

	CLR	R0

  $LABEL AR002E
	CLR	@#PS

	ADD	@#PS, R0

	CLR	R1
	ADD	@#PS, R0

	CLR	R2
	ADD	@#PS, R0

	CLR	R3
	ADD	@#PS, R0

	CLR	R4
	ADD	@#PS, R0

	CLR	R5
	ADD	@#PS, R0

P21124:
	INC	@#PS

	ADD	@#PS, R0

	CMP	#17, @#PS

	BEQ	P21124
	ADD	@#PS, R0

	MOV	#0, @#UISAR0

	ADD	@#PS, R0

	TST	@#UISAR0

	ADD	@#PS, R0

	MOV	#125252, @#UISAR0

	ADD	@#PS, R0

	CMP	#125252, @#UISAR0

	ADD	@#PS, R0

	MOV	#52525, @#UISAR0

	ADD	@#PS, R0

	CMP	#52525, @#UISAR0

	ADD	@#PS, R0

	MOV	#177777, @#UISAR0

	ADD	@#PS, R0

	CMP	#177777, @#UISAR0

	ADD	@#PS, R0

	MOV	#0, R1

	ADD	@#PS, R0

	MOV	#125252, R1

	ADD	@#PS, R0

	CMP	#125252, R1

	ADD	@#PS, R0

	MOV	#52525, R1

	ADD	@#PS, R0

	CMP	#52525, R1

	ADD	@#PS, R0

	MOV	#177777, R1

	ADD	@#PS, R0

	CMP	#177777, R1

	ADD	@#PS, R0

	MOV	#1, R1

	ADD	@#PS, R0

P21366:
	ROL	R1
	ADD	R1, R0
	TST	R1
	BPL	P21366
	MOV	#1, R2

	ADD	@#PS, R0

P21406:
	ROL	R2
	ADD	R2, R0
	TST	R2
	BPL	P21406
	MOV	#1, R3

	ADD	@#PS, R0

P21426:
	ROL	R3
	ADD	R3, R0
	TST	R3
	BPL	P21426
	MOV	#1, R4

	ADD	@#PS, R0

P21446:
	ROL	R4
	ADD	R4, R0
	TST	R4
	BPL	P21446
	MOV	#1, R5

	ADD	@#PS, R0

P21466:
	ROL	R5
	ADD	R5, R0
	TST	R5
	BPL	P21466
	MOV	@#UISAR7, R2

	BIC	#177760, R2

	MOV	R2, @#PS

	BNE	P21522
	ADD	PC, R0
	BEQ	P21526
	ADD	PC, R0
P21522:
	BPL	P21532
	ADD	PC, R0
P21526:
	BMI	P21536
	ADD	PC, R0
P21532:
	BVC	P21542
	ADD	PC, R0
P21536:
	BVS	P21546
	ADD	PC, R0
P21542:
	BCC	P21552
	ADD	PC, R0
P21546:
	BCS	P21556
	ADD	PC, R0
P21552:
	BGE	P21562
	ADD	PC, R0
P21556:
	BLT	P21566
	ADD	PC, R0
P21562:
	BGT	P21572
	ADD	PC, R0
P21566:
	BLE	P21576
	ADD	PC, R0
P21572:
	BHI	P21602
	ADD	PC, R0
P21576:
	BLOS	P21606
	ADD	PC, R0
P21602:
	BCC	P21612
	ADD	PC, R0
P21606:
	BCS	P21614
	ADD	PC, R0
P21612:
	BR	P21616
P21614:
	ADD	PC, R0
P21616:
	MOV	@#UISAR7, R2

	MOV	#52525, R3

	ADD	R2, R3
	ROL	R3
	ADC	R3
	ADD	R3, R0
	BIC	R2, R3
	ROR	R3
	SBC	R3
	BIS	R2, R3
	ADD	R3, R0
	ADD	@#PS, R0

	SWAB	R3
	CMP	R3, R0
	ADD	@#PS, R0

	SBC	R2
	COM	R3
	SUB	R3, R2
	NEG	R2
	ADD	R3, R0
	ADD	@#PS, R0

	ASL	R3
	XOR	R2, R3
	ASR	R2
	BIT	R2, R3
	ADD	R3, R0
	ADD	@#PS, R0

  $GOTO #22, #AS0010

$FILL