$PAGE 12

	BR	P12024
	.WORD	0

  $LABEL AKF814

P12024:

	MOV	(SP)+, R4
	MOV	(SP)+, R5
	MOV	#P12054, R2

	MOV	#K01000, R3

P12040:
	MOV	(R2)+, (R3)+
	BIT	#100, R3			; -> 1000..1076

	BEQ	P12040
	JMP	@#K01000

  $LABEL P12054

	MOV	#ROMBAS, R2

	MOV	#27, R0				; Page 23.

	MOV	R0, @#PCR100

	MOV	(R2)+, R3
	MOV	(R2)+, R1
P12074:
	MOV	(R2)+, (R3)+			; 175000..175776
	DEC	R1
	BEQ	P12124
	BIT	#4000, R2			; 176000?

	BEQ	P12074
	INC	R0
	MOV	R0, @#PCR100

	MOV	#ROMBAS, R2

	BR	P12074
P12124:
	JMP	@#K04000

  $FILL