$PAGE 26

	BR	P26024

	.WORD	0

  $LABEL AWFA14

P26024:
	MOV	SP, R4
	MOV	#K01000, SP

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

	BNE	P26032

	$CGOTO	#17, #APFA3E

	MOV	#175573, R1

	$SGOTO	#26, #P26070

  $LABEL P26070

	TST	R2
	BMI	P26104
	MOV	#175617, R1

	JMP	P26444

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

	MOV	#340, @#V.TR4+2

	CLR	@#KISAR0

	MOV	#200, @#KISAR1

	MOV	#177600, @#KISAR7

	MOV	#77406, R2

	MOV	R2, @#KISDR0

	MOV	R2, @#KISDR1

	MOV	R2, @#KISDR7

	MOV	#20, @#SSR3

	MOV	#1, @#SSR0

	MOV	#20000, R1

	MOV	#1, @#CCR

P26206:
	MOV	R1, R2
P26210:
	CLC
	MOV	R2, (R2)
	BCS	P26440
	TST	(R2)+
	MOV	R2, R5
	BIT	#40000, R2

	BEQ	P26210
	MOV	R1, R2
P26232:
	COM	(R2)
	COM	(R2)
	MOV	(R2), R3
	MOV	@#CHMR, R0

	BIT	#4, R0

	BEQ	P26432
	CMP	R3, R2
	BNE	P26432
	BIT	#340, @#MSER

	BNE	P26432
	TST	(R2)+
	CMP	R5, R2
	BNE	P26232
	MOV	#52525, R3

	CALL	P26346

	CALL	P26362

	MOV	#125252, R3

	CALL	P26346

	CALL	P26362

	ADD	#200, @#KISAR1

	CMP	#177600, @#KISAR1

	BEQ	P26440
	JMP	P26206

P26346:
	MOV	R1, R2
P26350:
	MOV	R3, (R2)+
	BIT	#40000, R2

	BEQ	P26350
	RETURN
P26362:
	TST	(SP)+
	MOV	R1, R2
P26366:
	COM	(R2)
	COM	(R2)
	MOV	(R2)+, R4
	MOV	@#CHMR, R0

	BIT	#4, R0

	BEQ	P26432
	BIT	#340, @#MSER

	BNE	P26432
	CMP	R3, R4
	BNE	P26432
	CMP	R5, R2
	BNE	P26366
	TST	-(SP)
	RETURN
P26432:
	MOV	#175654, R1

	BR	P26444
P26440:
	MOV	#175517, R1

P26444:
	CLR	@#SSR0

	MOV	SP, R4
	MOV	#172360, SP

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

	BNE	P26456

;  $GOTO #17, #175112
  $GOTO #17, #APFA4A

  $FILL