$HPAGE 22

  $LABEL AS0010
	MOV	#UISAR0, R2

	MOV	#125252, (R2)

	MOV	#UISAR1, R3

	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)
	ASR	(R2)
	BIT	(R2), (R3)
	ADD	(R3), R0
	ADD	@#PS, R0

	MOV	#UISAR0, R2

	MOV	#125252, (R2)

	MOV	#UISAR1, R3

	MOV	#52525, (R3)

	ADD	(R2)+, (R3)+
	ADD	R2, R0
	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)+
	ASR	(R2)+
	BIT	-(R2), -(R3)
	ADD	(R3)+, R0
	ADD	@#PS, R0

	MOV	#UISAR0, R2

	MOV	#UISAR3, (R2)

	MOV	#125252, @(R2)+

	MOV	#UISAR1, R3

	MOV	#177650, (R3)

	MOV	#52525, @(R3)+

	ADD	@-(R2), @-(R3)
	ADD	R2, R0
	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)
	ASR	@-(R2)
	BIT	@(R2)+, @(R3)+
	ADD	@-(R3), R0
	ADD	@#PS, R0

	MOV	#177241, R2

	MOV	#125252, 377(R2)

	MOV	#175646, R3

	MOV	#52525, 1774(R3)

	ADD	377(R2), 1774(R3)

	ROL	1774(R3)

	ADC	1774(R3)

	ADD	1774(R3), R0

	BIC	377(R2), 1774(R3)

	ROR	1774(R3)

	SBC	1774(R3)

	BIS	377(R2), 1774(R3)

	ADD	1774(R3), R0

	ADD	@#PS, R0

	SWAB	1774(R3)

	CMP	1774(R3), R0

	ADD	@#PS, R0

	SBC	377(R2)

	COM	1774(R3)

	SUB	1774(R3), 377(R2)

	NEG	377(R2)

	ADD	1774(R3), R0

	ADD	@#PS, R0

	ASL	1774(R3)

	ASR	377(R2)

	BIT	377(R2), 1774(R3)

	ADD	1774(R3), R0

	ADD	@#PS, R0

	$GOTO	#23, #ATFA10

$FILL