.TITLE	PRMEXAMPLE
	.RADIX	10
	.GLOBL	PRMCLO
L0:	JMP	PRMCLO
	.GLOBL	PRMDEL
L1:	JMP	PRMDEL
	.GLOBL	PRMOPE
L2:	JMP	PRMOPE
	.GLOBL	PRMRET
L3:	JMP	PRMRET
	.GLOBL	PRMSTO
L4:	JMP	PRMSTO
	.GLOBL	RMSINI
L5:	JMP	RMSINI
L6:
	JSR	%7,$B127
	.GLOBL	$B127
	MOV 	%5,%3
	ADD 	#42,%3
	MOVB	#2,@%3
	MOV 		#L7,%0
	MOV 	%3,%1
	ADD 	#2,%1
	MOV	#15,%2
	MOV 	(0)+,(1)+
	SOB	%2,.-2
	MOV 	#3,32(3)
	MOVB	#2,35(3)
	MOVB	#1,34(3)
	MOV 	#28,36(3)
	MOV 	%5,%0
	ADD 	#42,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L2
	CMPB	42(5),#2
	BNE	L8
	JMP	L9
L8:
	MOV 		#L10,-(6)
	MOV	#33,-(6)
	MOV	#33,-(6)
	JSR	%7,$B32
	.GLOBL	$B32
	JSR	%7,$B36
	.GLOBL	$B36
L9:
	CMP 	770(5),#60534
	BEQ	L11
	JMP	L12
L11:
	MOV 	#7,-(6)
	CLR	-(6)
	JSR	%7,$B20
	.GLOBL	$B20
	JSR	%7,$B36
	MOV 		#L13,-(6)
	MOV	#50,-(6)
	MOV	#50,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	MOV 		#L14,-(6)
	MOV	#29,-(6)
	MOV	#29,-(6)
	JSR	%7,$B32
	MOV 	78(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	.GLOBL	$B24
	JSR	%7,$B36
	MOV 		#L15,-(6)
	MOV	#30,-(6)
	MOV	#30,-(6)
	JSR	%7,$B32
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L12:
	CMP 	770(5),#1
	BLT	L16
	JMP	L17
L16:
	MOV 		#L18,-(6)
	MOV	#21,-(6)
	MOV	#21,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L17:
	MOV 	%5,%3
	ADD 	#270,%3
	MOVB	#1,@%3
	MOV 		#L19,%0
	MOV 	%3,%1
	ADD 	#2,%1
	MOV	#15,%2
	MOV 	(0)+,(1)+
	SOB	%2,.-2
	MOV 	#4,32(3)
	MOVB	#2,35(3)
	MOV 	#28,36(3)
	MOV 	%5,%0
	ADD 	#270,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L2
	CMP 	770(5),#1
	BLT	L20
	JMP	L21
L20:
	MOV 		#L22,-(6)
	MOV	#21,-(6)
	MOV	#21,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L21:
	MOV 	%5,%3
	ADD 	#486,%3
	CLRB	@%3
	MOV 		#L23,%0
	MOV 	%3,%1
	ADD 	#2,%1
	MOV	#15,%2
	MOV 	(0)+,(1)+
	SOB	%2,.-2
	MOV 	#7,32(3)
	MOVB	#2,35(3)
	MOVB	#89,530(5)
	MOV 	#28,36(3)
	MOV 	%5,%0
	ADD 	#486,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L2
	CMP 	770(5),#1
	BLT	L24
	JMP	L25
L24:
	MOV 		#L26,-(6)
	MOV	#21,-(6)
	MOV	#21,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L25:
	RTS	%7
L7:	.WORD	13147
	.WORD	12336
	.WORD	13356
	.WORD	23863
	.WORD	29264
	.WORD	17773
	.WORD	24952
	.WORD	18734
	.WORD	30820
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
L10:	.WORD	26950
	.WORD	25964
	.WORD	29728
	.WORD	28793
	.WORD	8293
	.WORD	15932
	.WORD	25632
	.WORD	29541
	.WORD	26473
	.WORD	24942
	.WORD	25972
	.WORD	8292
	.WORD	26982
	.WORD	25964
	.WORD	29728
	.WORD	28793
	.WORD	101
L13:	.WORD	26950
	.WORD	25964
	.WORD	29216
	.WORD	25445
	.WORD	29295
	.WORD	8292
	.WORD	26995
	.WORD	25978
	.WORD	25632
	.WORD	25967
	.WORD	8307
	.WORD	28526
	.WORD	8308
	.WORD	24941
	.WORD	25460
	.WORD	8296
	.WORD	28265
	.WORD	30064
	.WORD	8308
	.WORD	25970
	.WORD	28515
	.WORD	25714
	.WORD	29472
	.WORD	31337
	.WORD	11877
	.WORD	0
L14:	.WORD	8224
	.WORD	8224
	.WORD	28233
	.WORD	30064
	.WORD	8308
	.WORD	26982
	.WORD	25964
	.WORD	29216
	.WORD	25445
	.WORD	29295
	.WORD	8292
	.WORD	26995
	.WORD	25978
	.WORD	15648
	.WORD	32
L15:	.WORD	8224
	.WORD	8224
	.WORD	25409
	.WORD	30068
	.WORD	27745
	.WORD	26144
	.WORD	27753
	.WORD	8293
	.WORD	25970
	.WORD	28515
	.WORD	25714
	.WORD	29472
	.WORD	31337
	.WORD	8293
	.WORD	8253
	.WORD	0
L18:	.WORD	25673
	.WORD	8312
	.WORD	28751
	.WORD	28261
	.WORD	25888
	.WORD	29298
	.WORD	29295
	.WORD	8236
	.WORD	28515
	.WORD	25956
	.WORD	61
L19:	.WORD	13147
	.WORD	12336
	.WORD	13356
	.WORD	23863
	.WORD	29264
	.WORD	17773
	.WORD	24952
	.WORD	21038
	.WORD	27749
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
L22:	.WORD	25938
	.WORD	8300
	.WORD	28751
	.WORD	28261
	.WORD	25888
	.WORD	29298
	.WORD	29295
	.WORD	8236
	.WORD	28515
	.WORD	25956
	.WORD	61
L23:	.WORD	13147
	.WORD	12336
	.WORD	13356
	.WORD	23863
	.WORD	29264
	.WORD	17773
	.WORD	24952
	.WORD	21294
	.WORD	29029
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
L26:	.WORD	25939
	.WORD	8305
	.WORD	28751
	.WORD	28261
	.WORD	25888
	.WORD	29298
	.WORD	29295
	.WORD	8236
	.WORD	28515
	.WORD	25956
	.WORD	61
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
L28:
	MOV	%4,-(6)
	JSR	%7,$B127
	MOV	@%6,%0
	MOV 	#28,@2(0)
	MOV 	#2,-(6)
	MOV 	6(0),-(6)
	MOV 	2(0),-(6)
	MOV 	%5,%1
	ADD 	#714,%1
	MOV 	%1,-(6)
	MOV 	%5,%1
	ADD 	#770,%1
	MOV 	%1,-(6)
	JSR	%7,L4
	MOV 		#L29,-(6)
	MOV	#6,-(6)
	MOV	#6,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	ADD	#2,%6
	RTS	%7
L29:	.WORD	29811
	.WORD	29295
	.WORD	8293
	.WORD	0
L27:
	JSR	%7,$B127
	MOV 	#28,@2(6)
	MOV 		#L30,%0
	MOV 	4(6),%1
	MOV 	(0)+,(1)+
	MOV 	(0)+,(1)+
	MOV 	4(6),%0
	MOV 		#L31,%1
	MOVB	(1)+,4(0)
	MOVB	(1)+,5(0)
	MOVB	(1)+,6(0)
	MOV 	4(6),%0
	MOV 		#L32,%1
	ADD 	#8,%0
	MOV	#10,%2
	MOV 	(1)+,(0)+
	SOB	%2,.-2
	MOV	%6,%4
	JSR	%7,L28
	MOV 		#L33,%0
	MOV 	4(6),%1
	MOV 	(0)+,(1)+
	MOV 	(0)+,(1)+
	MOV 	4(6),%0
	MOV 		#L34,%1
	MOVB	(1)+,4(0)
	MOVB	(1)+,5(0)
	MOVB	(1)+,6(0)
	MOV 	4(6),%0
	MOV 		#L35,%1
	ADD 	#8,%0
	MOV	#10,%2
	MOV 	(1)+,(0)+
	SOB	%2,.-2
	MOV	%6,%4
	JSR	%7,L28
	MOV 		#L36,%0
	MOV 	4(6),%1
	MOV 	(0)+,(1)+
	MOV 	(0)+,(1)+
	MOV 	4(6),%0
	MOV 		#L37,%1
	MOVB	(1)+,4(0)
	MOVB	(1)+,5(0)
	MOVB	(1)+,6(0)
	MOV 	4(6),%0
	MOV 		#L38,%1
	ADD 	#8,%0
	MOV	#10,%2
	MOV 	(1)+,(0)+
	SOB	%2,.-2
	MOV	%6,%4
	JSR	%7,L28
	MOV	(6),6(6)
	ADD	#6,%6
	RTS	%7
L30:	.WORD	13880
	.WORD	8257
	.WORD	0
L31:	.WORD	16705
	.WORD	67
L32:	.WORD	28751
	.WORD	26996
	.WORD	24931
	.WORD	8300
	.WORD	28233
	.WORD	28787
	.WORD	25445
	.WORD	26996
	.WORD	28271
	.WORD	8224
	.WORD	0
L33:	.WORD	13880
	.WORD	8259
	.WORD	0
L34:	.WORD	19796
	.WORD	84
L35:	.WORD	27733
	.WORD	29300
	.WORD	29537
	.WORD	28271
	.WORD	25449
	.WORD	20512
	.WORD	28530
	.WORD	25955
	.WORD	29555
	.WORD	8224
	.WORD	0
L36:	.WORD	13880
	.WORD	8258
	.WORD	0
L37:	.WORD	18519
	.WORD	79
L38:	.WORD	28483
	.WORD	28781
	.WORD	29813
	.WORD	29285
	.WORD	20000
	.WORD	29301
	.WORD	29540
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
L39:
	JSR	%7,$B127
	CLR 	742(5)
	MOVB	#2,748(5)
	MOV 	#1,758(5)
	MOV 		#L40,%0
	MOV 	(0)+,760(5)
	MOV 	(0)+,762(5)
	MOV 	#28,750(5)
	MOV 	#1,-(6)
	MOV 	%5,%0
	ADD 	#42,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#742,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	CMP 	770(5),#1
	BLT	L41
	JMP	L42
L41:
	MOV 		#L43,-(6)
	MOV	#19,-(6)
	MOV	#19,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	JMP	L44
L42:
	JSR	%7,$B36
	MOV 		#L45,-(6)
	MOV	#10,-(6)
	MOV	#10,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	MOV 	#1,16(5)
	MOVB	#4,748(5)
L47:
	MOV 	#28,750(5)
	CLR	-(6)
	MOV 	%5,%0
	ADD 	#42,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#742,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	CMP 	770(5),#1
	BLT	L48
	JMP	L49
L48:
	MOV 		#L50,-(6)
	MOV	#11,-(6)
	MOV	#11,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	JMP	L51
L49:
	MOV 	#28,750(5)
	MOV 	#2,-(6)
	MOV 	%5,%0
	ADD 	#486,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#702,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L4
	CMP 	770(5),#1
	BLT	L52
	JMP	L53
L52:
	MOV 		#L54,-(6)
	MOV	#11,-(6)
	MOV	#11,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
	JMP	L55
L53:
	CMP 	16(5),#5
	BLT	L56
	JMP	L57
L56:
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L58
	CMP 	%0,#4
	BLE	L59
L58:	JSR	%7,$B125
	.GLOBL	$B125
L59:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	.GLOBL	$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	704(5),12(0)
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L60
	CMP 	%0,#4
	BLE	L61
L60:	JSR	%7,$B125
L61:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	706(5),14(0)
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L62
	CMP 	%0,#4
	BLE	L63
L62:	JSR	%7,$B125
L63:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	708(5),16(0)
	MOV 		#L64,-(6)
	MOV	#14,-(6)
	MOV	#14,-(6)
	JSR	%7,$B32
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L65
	CMP 	%0,#4
	BLE	L66
L65:	JSR	%7,$B125
L66:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	12(0),-(6)
	MOV 	#4,-(6)
	JSR	%7,$B24
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L67
	CMP 	%0,#4
	BLE	L68
L67:	JSR	%7,$B125
L68:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	14(0),-(6)
	MOV 	#4,-(6)
	JSR	%7,$B24
	MOV 	16(5),%0
	CMP 	%0,#1
	BLT	L69
	CMP 	%0,#4
	BLE	L70
L69:	JSR	%7,$B125
L70:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	16(0),-(6)
	MOV 	#4,-(6)
	JSR	%7,$B24
	MOV 		#L71,-(6)
	MOV	#6,-(6)
	MOV	#6,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV	#4,-(6)
	MOV	#4,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#718,%0
	MOV 	%0,-(6)
	MOV	#3,-(6)
	MOV	#3,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#722,%0
	MOV 	%0,-(6)
	MOV	#20,-(6)
	MOV	#20,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	INC 	16(5)
L57:
L55:
L51:
	CMP 	770(5),#64944
	BEQ	L72
	JMP	L47
L72:
L46:
	MOV 		#L74,-(6)
	MOV	#29,-(6)
	MOV	#29,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
L44:
	RTS	%7
L40:	.WORD	8224
	.WORD	8224
	.WORD	0
L43:	.WORD	25705
	.WORD	8312
	.WORD	25970
	.WORD	29300
	.WORD	26981
	.WORD	25974
	.WORD	25888
	.WORD	29298
	.WORD	29295
	.WORD	61
L45:	.WORD	25954
	.WORD	26983
	.WORD	8302
	.WORD	26232
	.WORD	29285
	.WORD	0
L50:	.WORD	17735
	.WORD	8276
	.WORD	24934
	.WORD	27753
	.WORD	15648
	.WORD	32
L54:	.WORD	21840
	.WORD	8276
	.WORD	24934
	.WORD	27753
	.WORD	15648
	.WORD	32
L64:	.WORD	29779
	.WORD	29295
	.WORD	25701
	.WORD	24864
	.WORD	8308
	.WORD	18002
	.WORD	15681
	.WORD	0
L71:	.WORD	25632
	.WORD	29793
	.WORD	15713
	.WORD	0
L74:	.WORD	26232
	.WORD	29285
	.WORD	26144
	.WORD	28530
	.WORD	8301
	.WORD	25705
	.WORD	8312
	.WORD	28532
	.WORD	29472
	.WORD	29029
	.WORD	25376
	.WORD	28015
	.WORD	27760
	.WORD	29797
	.WORD	101
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
	MOV	(%4),%4
L76:
	MOV	%4,-(6)
	JSR	%7,$B127
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L77
	CMP 	%0,#4
	BLE	L78
L77:	JSR	%7,$B125
L78:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	12(0),742(5)
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L79
	CMP 	%0,#4
	BLE	L80
L79:	JSR	%7,$B125
L80:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	14(0),744(5)
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L81
	CMP 	%0,#4
	BLE	L82
L81:	JSR	%7,$B125
L82:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	16(0),746(5)
	MOV 	#28,750(5)
	CLR	-(6)
	MOV 	%5,%0
	ADD 	#486,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#742,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	CMP 	770(5),#1
	BGE	L83
	JMP	L84
L83:
	MOV 		#L85,-(6)
	MOV	#9,-(6)
	MOV	#9,-(6)
	JSR	%7,$B32
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L86
	CMP 	%0,#4
	BLE	L87
L86:	JSR	%7,$B125
L87:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	12(0),-(6)
	MOV 	#4,-(6)
	JSR	%7,$B24
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L88
	CMP 	%0,#4
	BLE	L89
L88:	JSR	%7,$B125
L89:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	14(0),-(6)
	MOV 	#4,-(6)
	JSR	%7,$B24
	MOV 	4(6),%0
	CMP 	%0,#1
	BLT	L90
	CMP 	%0,#4
	BLE	L91
L90:	JSR	%7,$B125
L91:	MOV 	%0,-(6)
	MOV 	#6,-(6)
	JSR	%7,$B116
	MOV 	%5,%0
	ADD 	(6)+,%0
	MOV 	16(0),-(6)
	MOV 	#3,-(6)
	JSR	%7,$B24
	MOV 		#L92,-(6)
	MOV	#6,-(6)
	MOV	#6,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV	#4,-(6)
	MOV	#4,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#718,%0
	MOV 	%0,-(6)
	MOV	#3,-(6)
	MOV	#3,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#722,%0
	MOV 	%0,-(6)
	MOV	#20,-(6)
	MOV	#20,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	JMP	L93
L84:
	MOV 		#L94,-(6)
	MOV	#17,-(6)
	MOV	#17,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L93:
	MOV	2(6),4(6)
	ADD	#4,%6
	RTS	%7
L85:	.WORD	18002
	.WORD	8257
	.WORD	20302
	.WORD	15662
	.WORD	32
L92:	.WORD	25632
	.WORD	29793
	.WORD	15713
	.WORD	0
L94:	.WORD	18002
	.WORD	8257
	.WORD	25441
	.WORD	25955
	.WORD	29555
	.WORD	25888
	.WORD	29298
	.WORD	29295
	.WORD	61
L75:
	JSR	%7,$B127
	JSR	%7,$B36
	MOV 		#L95,-(6)
	MOV	#46,-(6)
	MOV	#46,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	MOV 	#28,750(5)
	MOVB	#3,748(5)
	MOV	%6,%4
	MOV 	#4,-(6)
	JSR	%7,L76
	MOV	%6,%4
	MOV 	#1,-(6)
	JSR	%7,L76
	MOV	%6,%4
	MOV 	#3,-(6)
	JSR	%7,L76
	MOV	%6,%4
	MOV 	#2,-(6)
	JSR	%7,L76
	RTS	%7
L95:	.WORD	25922
	.WORD	26983
	.WORD	8302
	.WORD	24946
	.WORD	25710
	.WORD	28015
	.WORD	29216
	.WORD	29797
	.WORD	25970
	.WORD	30313
	.WORD	27745
	.WORD	26144
	.WORD	28530
	.WORD	8301
	.WORD	8289
	.WORD	25971
	.WORD	11889
	.WORD	26144
	.WORD	27753
	.WORD	8293
	.WORD	31074
	.WORD	21024
	.WORD	16710
	.WORD	0
L96:
	JSR	%7,$B127
	MOV 	#1,760(5)
	CLR 	762(5)
	MOVB	#5,748(5)
	MOV 	#28,750(5)
	MOV 	#1,-(6)
	MOV 	%5,%0
	ADD 	#270,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#742,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	CMP 	770(5),#1
	BLT	L97
	JMP	L98
L97:
	MOV 		#L99,-(6)
	MOV	#39,-(6)
	MOV	#39,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L98:
	MOVB	#4,748(5)
	JSR	%7,$B36
	MOV 		#L100,-(6)
	MOV	#34,-(6)
	MOV	#34,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	CMP 	770(5),#1
	BGE	L101
	JMP	L102
L101:
L104:
	CLR	-(6)
	MOV 	%5,%0
	ADD 	#270,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#742,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L3
	CMP 	770(5),#1
	BGE	L105
	JMP	L106
L105:
	MOV 		#L107,-(6)
	MOV	#7,-(6)
	MOV	#7,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV	#4,-(6)
	MOV	#4,-(6)
	JSR	%7,$B32
	MOV 	%5,%0
	ADD 	#722,%0
	MOV 	%0,-(6)
	MOV	#20,-(6)
	MOV	#20,-(6)
	JSR	%7,$B32
	JSR	%7,$B36
	JMP	L108
L106:
	MOV 		#L109,-(6)
	MOV	#10,-(6)
	MOV	#10,-(6)
	JSR	%7,$B32
	MOV 	770(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	MOV 	772(5),-(6)
	MOV	#7,-(6)
	JSR	%7,$B24
	JSR	%7,$B36
L108:
	CMP 	770(5),#64944
	BEQ	L110
	JMP	L104
L110:
L103:
L102:
	RTS	%7
L99:	.WORD	26144
	.WORD	26977
	.WORD	8300
	.WORD	28532
	.WORD	26144
	.WORD	28265
	.WORD	8292
	.WORD	29489
	.WORD	8308
	.WORD	25970
	.WORD	24940
	.WORD	26996
	.WORD	25974
	.WORD	29216
	.WORD	25445
	.WORD	29295
	.WORD	11364
	.WORD	29472
	.WORD	29556
	.WORD	61
L100:	.WORD	25922
	.WORD	26983
	.WORD	8302
	.WORD	25938
	.WORD	24940
	.WORD	26996
	.WORD	25974
	.WORD	17952
	.WORD	27753
	.WORD	8293
	.WORD	24932
	.WORD	24948
	.WORD	29216
	.WORD	29797
	.WORD	25970
	.WORD	30313
	.WORD	27745
	.WORD	0
L107:	.WORD	24932
	.WORD	24948
	.WORD	15648
	.WORD	32
L109:	.WORD	25927
	.WORD	8308
	.WORD	29285
	.WORD	28530
	.WORD	15730
	.WORD	0
	$VER==12.
$BEGIN::

	MOV	#778,-(6)
	.GLOBL	$B70
	JSR	%7,$B70
	MOV	(6)+,%5
	MOV	(6),(5)+
	MOV	2(6),(5)+
	MOV	%5,$RESR5
	JSR	%7,L5
	JSR	%7,L6
	MOV 	%5,%0
	ADD 	#42,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#258,%0
	MOV 	%0,-(6)
	JSR	%7,L27
	MOV 	%5,%0
	ADD 	#270,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#258,%0
	MOV 	%0,-(6)
	JSR	%7,L27
	MOV 	%5,%0
	ADD 	#486,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#714,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#702,%0
	MOV 	%0,-(6)
	JSR	%7,L27
	JSR	%7,L39
	JSR	%7,L75
	JSR	%7,L96
	MOV 	%5,%0
	ADD 	#42,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L0
	MOV 	%5,%0
	ADD 	#270,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L0
	MOV 	%5,%0
	ADD 	#486,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#770,%0
	MOV 	%0,-(6)
	JSR	%7,L0
	JMP	$END
	.END