$PAGE 25

	BR	P25024

	.WORD	0

  $LABEL AVFA14

P25024:
	MOV	#40, R0

	BR	P25052

  $LABEL AVFA1A

	MOV	#62, R0

	BR	P25052

  $LABEL AVFA20

	MOV	#64, R0

	BR	P25052

  $LABEL AVFA26

	MOV	#66, R0

P25052:
	MOV	SP, R4
	MOV	#K01000, SP

P25060:
	MOV	(R4)+, -(SP)
	CMP	#KDSAR0, R4

	BNE	P25060

	$CGOTO #17, #APFA3E
;	MOV	#175076, R4
;	MOV	#17, R5
	
	MOV	#175561, R1

	$SGOTO	#25, #P25126, NOJUMP
;	MOV	#P25126, -(SP)	; Code address
;	MOV	#25, -(SP)	; Page Num

	$SGOTO	#20, #AQF810
;	MOV	#AQF810, -(SP)	; Code address
;	MOV	#20, -(SP)	; Page Num
;	BR	N75002

  $LABEL P25126

	TST	R2
	BEQ	P25140
	MOV	#14, @#CCR

P25140:
	MOV	#$V4V10, @#V.TR4

	MOV	#340, @#V.TR4+2

	CLR	@#KISAR0

	MOV	@#K01004, @#KISAR1

	MOV	#177600, @#KISAR7

	MOV	#77406, @#KISDR0

	MOV	#77406, @#KISDR1

	MOV	#77406, @#KISDR7

	MOV	#20, @#SSR3

	MOV	#1, @#SSR0

	MOV	#20000, R1

	CMP	#200, @#K01004

	BNE	P25252
	CALL	P25726

P25252:
	CALL	P25366

	MOV	@#K01006, R0

	$SGOTO	#25, #P25306, NOJUMP
;	MOV	#P25306, -(SP)	; Code address
;	MOV	#25, -(SP)	; Page Num

        $GOTO4 #20, #P20242, JUMP

  $LABEL P25306

	MOV	@#K01002, @#K01000

	MOV	#20000, R1

	CALL	P25366

	CLR	@#SSR0

	MOV	SP, R4
	MOV	#KDSAR0, SP

P25336:
	MOV	(R4)+, -(SP)
	CMP	#1000, R4

	BNE	P25336

	MOV	#175670, R1

	$GOTO	#17, #APFA4A, JUMP
;	MOV	#17, R5		; Page Num
;	MOV	#APFA4A, R4	; Code address
;	JMP	N75002

P25366:
	MOV	#MSVCSR, R3

P25372:
	CLR	(R3)+
	CMP	#MSVCSR+36, R3

	BNE	P25372
P25402:
	MOV	R1, R2
	CLC
P25406:
	MOV	R2, (R2)
	BCC	P25422
	CALL	P25734

	JMP	P25552

P25422:
	TST	(R2)+
	BIT	#40000, R2

	BEQ	P25406
	MOV	R1, R2
P25434:
	MOV	(R2), R3
	CMP	R3, R2
	BEQ	P25452
	CALL	P25742

	JMP	P25552

P25452:
	TST	(R2)+
	BIT	#40000, R2

	BEQ	P25434
	MOV	#52525, R3

	CALL	P25574

	CALL	P25610

	MOV	#125252, R3

	CALL	P25574

	CALL	P25610

	MOV	#MSVCSR, R3

P25516:
	TST	(R3)+
	BCS	P25536
	BPL	P25536
	CALL	P25720

	CLR	177776(R3)

	BR	P25552
P25536:
	CMP	#172136, R3

	BEQ	P25546
	BR	P25516
P25546:
	CALL	P25750

P25552:
	ADD	#200, @#KISAR1

	CMP	@#K01000, @#KISAR1

	BEQ	P25642
	JMP	P25402

P25574:
	MOV	R1, R2
P25576:
	MOV	R3, (R2)+
	BIT	#40000, R2

	BEQ	P25576
	RETURN
P25610:
	MOV	R1, R2
P25612:
	MOV	(R2)+, R4
	CMP	R3, R4
	BEQ	P25632
	CALL	P25742

	TST	(SP)+
	JMP	P25552

P25632:
	BIT	#40000, R2

	BEQ	P25612
	RETURN
P25642:
	MOV	#LF, R0

	CALL	P25654

	RETURN
P25654:
	TSTB	@#TPS

	BPL	P25654
	MOVB	R0, @#TPB

	TSTB	@#TKS

	BPL	P25716
	CMPB	@#TKB, #23

	BNE	P25716
P25704:
	TSTB	@#TKS

	BPL	P25704
	TSTB	@#TKB

P25716:
	RETURN
P25720:
	MOV	#'P, R0

	BR	P25654
P25726:
	MOV	#'N, R0

	BR	P25654
P25734:
	MOV	#'X, R0

	BR	P25654
P25742:
	MOV	#'B, R0

	BR	P25654
P25750:
	MOV	#'G, R0

	BR	P25654

  $FILL