.TITLE	PRMUPD
	.RADIX	10
	.GLOBL	PRMCLO
L0:	JMP	PRMCLO
	.GLOBL	PRMOPE
L1:	JMP	PRMOPE
	.GLOBL	PRMRET
L2:	JMP	PRMRET
	.GLOBL	PRMSTO
L3:	JMP	PRMSTO
	.GLOBL	RMSINI
L4:	JMP	RMSINI
	$VER==12.
$BEGIN::

	MOV	#584,-(6)
	.GLOBL	$B70
	JSR	%7,$B70
	MOV	(6)+,%5
	MOV	(6),(5)+
	MOV	2(6),(5)+
	MOV	%5,$RESR5
	JSR	%7,L4
	MOV 	%5,%3
	MOVB	#2,@%3
	MOV 		#L5,%0
	MOV 	%3,%1
	ADD 	#2,%1
	MOV	#15,%2
	MOV 	(0)+,(1)+
	DEC	%2
	BNE	.-4
	MOV 	#4,32(3)
	CLRB	34(3)
	MOVB	#2,35(3)
	MOV 	#326,36(3)
	MOVB	#89,41(3)
	MOV 	%5,-(6)
	MOV 	%5,%0
	ADD 	#216,%0
	MOV 	%0,-(6)
	JSR	%7,L1
	MOV 		#L6,-(6)
	MOV	#10,-(6)
	MOV	#10,-(6)
	JSR	%7,$B32
	.GLOBL	$B32
	MOV 	216(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	.GLOBL	$B24
	MOV 	218(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	.GLOBL	$B36
	MOV 	%5,%3
	ADD 	#546,%3
	CLR 	@%3
	CLRB	6(3)
	MOV 	#326,8(3)
	MOV 	#3,16(3)
	MOVB	#65,18(3)
	MOVB	#65,19(3)
	MOVB	#68,20(3)
	CLR	-(6)
	MOV 	%5,-(6)
	MOV 	%5,%0
	ADD 	#546,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#220,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#216,%0
	MOV 	%0,-(6)
	JSR	%7,L2
	MOV 		#L7,-(6)
	MOV	#16,-(6)
	MOV	#16,-(6)
	JSR	%7,$B32
	MOV 	216(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	218(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	MOV 		#L8,-(6)
	MOV	#24,-(6)
	MOV	#24,-(6)
	JSR	%7,$B32
	MOV 	554(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	MOV 		#L9,-(6)
	MOV	#12,-(6)
	MOV	#12,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	MOV 		#L10,-(6)
	MOV	#14,-(6)
	MOV	#14,-(6)
	JSR	%7,$B32
	CLR	-(6)
	MOVB	220(5),(6)
	CLR	-(6)
	JSR	%7,$B20
	.GLOBL	$B20
	MOV 		#L11,-(6)
	MOV	#17,-(6)
	MOV	#17,-(6)
	JSR	%7,$B32
	CLR	-(6)
	MOVB	221(5),(6)
	CLR	-(6)
	JSR	%7,$B20
	MOV 		#L12,-(6)
	MOV	#20,-(6)
	MOV	#20,-(6)
	JSR	%7,$B32
	CLR	-(6)
	MOVB	222(5),(6)
	CLR	-(6)
	JSR	%7,$B20
	JSR	%7,$B36
	INC 	256(5)
	MOV 	256(5),%0
	CMP 	%0,#1
	BLT	L13
	CMP 	%0,#12
	BLE	L14
L13:	JSR	%7,$B125
	.GLOBL	$B125
L14:	MOV 	%0,-(6)
	MOV 	#24,-(6)
	JSR	%7,$B116
	.GLOBL	$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 		#L15,%1
	MOV 	(1)+,242(0)
	MOV 	256(5),%0
	CMP 	%0,#1
	BLT	L16
	CMP 	%0,#12
	BLE	L17
L16:	JSR	%7,$B125
L17:	MOV 	%0,-(6)
	MOV 	#24,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 		#L18,%1
	MOV 	(1)+,234(0)
	MOV 	(1)+,236(0)
	MOV 	(1)+,238(0)
	MOV 	(1)+,240(0)
	MOV 	554(5),%0
	ADD 	#24,%0
	MOV 	%0,568(5)
	MOV 	#3,-(6)
	MOV 	%5,-(6)
	MOV 	%5,%0
	ADD 	#568,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#220,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#216,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	JSR	%7,$B36
	MOV 		#L19,-(6)
	MOV	#19,-(6)
	MOV	#19,-(6)
	JSR	%7,$B32
	MOV 	216(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	218(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	MOV 	%5,-(6)
	MOV 	%5,%0
	ADD 	#216,%0
	MOV 	%0,-(6)
	JSR	%7,L0
	JSR	%7,$B36
	MOV 		#L20,-(6)
	MOV	#11,-(6)
	MOV	#11,-(6)
	JSR	%7,$B32
	MOV 	216(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	218(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	JMP	$END
L5:	.WORD	24931
	.WORD	11884
	.WORD	24932
	.WORD	8308
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
L6:	.WORD	28448
	.WORD	25968
	.WORD	8302
	.WORD	29811
	.WORD	15731
	.WORD	0
L7:	.WORD	29216
	.WORD	29797
	.WORD	29216
	.WORD	25445
	.WORD	29295
	.WORD	8292
	.WORD	29811
	.WORD	15731
	.WORD	0
L8:	.WORD	29216
	.WORD	29797
	.WORD	29301
	.WORD	25966
	.WORD	8292
	.WORD	25970
	.WORD	28515
	.WORD	25714
	.WORD	29472
	.WORD	31337
	.WORD	8293
	.WORD	8253
	.WORD	0
L9:	.WORD	25970
	.WORD	28515
	.WORD	25714
	.WORD	25632
	.WORD	29793
	.WORD	8289
	.WORD	0
L10:	.WORD	29216
	.WORD	25445
	.WORD	30050
	.WORD	11878
	.WORD	30050
	.WORD	8306
	.WORD	8253
	.WORD	0
L11:	.WORD	8224
	.WORD	25970
	.WORD	25187
	.WORD	26229
	.WORD	29486
	.WORD	24948
	.WORD	27491
	.WORD	15648
	.WORD	32
L12:	.WORD	8224
	.WORD	25970
	.WORD	25187
	.WORD	26229
	.WORD	28718
	.WORD	29551
	.WORD	29801
	.WORD	28521
	.WORD	8302
	.WORD	8253
	.WORD	0
L15:	.WORD	19533
	.WORD	0
L18:	.WORD	12600
	.WORD	14649
	.WORD	14392
	.WORD	14135
	.WORD	0
L19:	.WORD	29984
	.WORD	25712
	.WORD	29793
	.WORD	8293
	.WORD	25970
	.WORD	28515
	.WORD	25714
	.WORD	29472
	.WORD	29556
	.WORD	61
L20:	.WORD	25376
	.WORD	28524
	.WORD	25971
	.WORD	29472
	.WORD	29556
	.WORD	61
	.END