.TITLE	BCPL
	T=%4
	P=%5
	.ENABL	LC
	.PSECT	GLOBAL,GBL,OVR
GV:
	.PSECT	BCPL
	BR	L9999
	.PSECT	CONST
L9998:	.WORD	11
	.ASCII	^NEXTPARAM^
	.EVEN
	.PSECT	BCPL
L2:	JSR	R1, ENTER
	.WORD	L9998
	MOV	GV+488., R0
	INC	R0
	MOV	R0, GV+488.
	MOV	GV+488., R0
L7:	JMP	EXIT
	.PSECT	CONST
L9997:	.WORD	13
	.ASCII	^TRANSREPORT^
	.EVEN
	.PSECT	BCPL
L3:	JSR	R1, ENTER
	.WORD	L9997
	MOV	GV+8., 12(P)
	MOV	GV+144., GV+8.
	.PSECT	CONST
L9996:	.WORD	14
	.ASCII	^***  ERROR, ^
	.PSECT	BCPL
	MOV	#L9996/2, 22(P)
	MOV	6(P), 32(P)
	JSR	R0,@L5
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+146.
	.WORD	22
	.PSECT	CONST
L9995:	.WORD	22
	.ASCII	^COMMANDS COMPILED ^
	.PSECT	BCPL
	MOV	#L9995/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	MOV	GV+576., 22(P)
	JSR	R0,@GV+64.
	.WORD	22
	JSR	R0,@GV+86.
	.WORD	22
	MOV	10(P), 22(P)
	CLR	24(P)
	MOV	#4, 26(P)
	JSR	R0,@GV+304.
	.WORD	22
	JSR	R0,@GV+86.
	.WORD	22
	MOV	12(P), GV+8.
	JMP	EXIT
	.PSECT	CONST
L9994:	.WORD	7
	.ASCII	^MESSAGE^
	.EVEN
	.PSECT	BCPL
L4:	JSR	R1, ENTER
	.WORD	L9994
	BR	L9993
L11:	.PSECT	CONST
L9992:	.WORD	15
	.ASCII	^UNKNOWN ERROR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9992/2, R0
	BR	L9991
L12:	.PSECT	CONST
L9990:	.WORD	17
	.ASCII	^UNKNOWN COMMAND^
	.EVEN
	.PSECT	BCPL
	MOV	#L9990/2, R0
	BR	L9991
L13:	.PSECT	CONST
L9989:	.WORD	16
	.ASCII	^TOO MANY CASES^
	.PSECT	BCPL
	MOV	#L9989/2, R0
	BR	L9991
L14:	.PSECT	CONST
L9988:	.WORD	22
	.ASCII	^DEFAULT USED TWICE^
	.PSECT	BCPL
	MOV	#L9988/2, R0
	BR	L9991
L15:	.PSECT	CONST
L9987:	.WORD	23
	.ASCII	^UNKNOWN DECLARATION^
	.EVEN
	.PSECT	BCPL
	MOV	#L9987/2, R0
	BR	L9991
L16:	.PSECT	CONST
L9986:	.WORD	14
	.ASCII	^BAD NAMELIST^
	.PSECT	BCPL
	MOV	#L9986/2, R0
	BR	L9991
L17:	.PSECT	CONST
L9985:	.WORD	40
	.ASCII	^ILLEGAL USE OF BREAK OR RESULTIS^
	.PSECT	BCPL
	MOV	#L9985/2, R0
	BR	L9991
L18:	.PSECT	CONST
L9984:	.WORD	36
	.ASCII	^ILLEGAL USE OF CASE OR DEFAULT^
	.PSECT	BCPL
	MOV	#L9984/2, R0
	BR	L9991
L19:	.PSECT	CONST
L9983:	.WORD	34
	.ASCII	^TWO CASES WITH SAME CONSTANT^
	.PSECT	BCPL
	MOV	#L9983/2, R0
	BR	L9991
L20:	.PSECT	CONST
L9982:	.WORD	20
	.ASCII	^TOO MANY GLOBALS^
	.PSECT	BCPL
	MOV	#L9982/2, R0
	BR	L9991
L21:	.PSECT	CONST
L9981:	.WORD	23
	.ASCII	^NAME DECLARED TWICE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9981/2, R0
	BR	L9991
L22:	.PSECT	CONST
L9980:	.WORD	27
	.ASCII	^TOO MANY NAMES DECLARED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9980/2, R0
	BR	L9991
L9999:	JMP	L6
L23:
L24:	.PSECT	CONST
L9979:	.WORD	22
	.ASCII	^UNKNOWN EXPRESSION^
	.PSECT	BCPL
	MOV	#L9979/2, R0
	BR	L9991
L25:	.PSECT	CONST
L9978:	.WORD	21
	.ASCII	^NAME NOT DECLARED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9978/2, R0
	BR	L9991
L26:	.PSECT	CONST
L9977:	.WORD	32
	.ASCII	^DYNAMIC FREE VARIABLE USED^
	.PSECT	BCPL
	MOV	#L9977/2, R0
	BR	L9991
L27:
L28:
L29:	.PSECT	CONST
L9976:	.WORD	34
	.ASCII	^ERROR IN CONSTANT EXPRESSION^
	.PSECT	BCPL
	MOV	#L9976/2, R0
	BR	L9991
L30:
L31:	.PSECT	CONST
L9975:	.WORD	30
	.ASCII	^LHS AND RHS DO NOT MATCH^
	.PSECT	BCPL
	MOV	#L9975/2, R0
	BR	L9991
L32:
L33:	.PSECT	CONST
L9974:	.WORD	31
	.ASCII	^LTYPE EXPRESSION EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9974/2, R0
	BR	L9991
L34:	.PSECT	CONST
L9973:	.WORD	14
	.ASCII	^COMPILER BUG^
	.PSECT	BCPL
	MOV	#L9973/2, R0
	BR	L9991
	BR	L9972
L9993:
L9:	MOV	6(P), T
	CMP	T, #163
	BGE	L9971
	CMP	T, #151
	BGE	L9970
	CMP	T, #144
	BEQ	L12
	CMP	T, #145
	BEQ	L14
	CMP	T, #146
	BEQ	L15
	CMP	T, #147
	BEQ	L16
	CMP	T, #150
	BEQ	L17
	BR	L11
L9970:	BEQ	L18
	CMP	T, #152
	BEQ	L19
	CMP	T, #155
	BEQ	L32
	CMP	T, #156
	BEQ	L30
	CMP	T, #160
	BEQ	L31
	CMP	T, #161
	BEQ	L33
	BR	L11
L9971:	BEQ	L25
	CMP	T, #216
	BGE	L9969
	CMP	T, #164
	BEQ	L26
	CMP	T, #165
	BEQ	L27
	CMP	T, #166
	BEQ	L28
	CMP	T, #167
	BEQ	L29
	CMP	T, #215
	BR	L9968
L9991:	JMP	L8
L9968:	BEQ	L13
	BR	L11
L9969:	BEQ	L21
	CMP	T, #217
	BEQ	L22
	CMP	T, #220
	BEQ	L20
	CMP	T, #223
	BEQ	L23
	CMP	T, #224
	BEQ	L24
	CMP	T, #307
	BEQ	L34
	BR	L9967
L9972:
L10:
L8:	JMP	EXIT
L6:	BR	L9966
	.PSECT	CONST
L9965:	.WORD	11
	.ASCII	^COMPILEAE^
	.EVEN
	.PSECT	BCPL
L35:	JSR	R1, ENTER
	.WORD	L9965
	MOV	P, R0
	ASR	R0
	ADD	#5, R0
	MOV	R0, 10(P)
	MOV	P, R0
	ASR	R0
	ADD	#2267, R0
	MOV	R0, 4554(P)
	MOV	P, R0
	ASR	R0
	ADD	#2435, R0
	MOV	R0, 5070(P)
	MOV	P, R0
	ASR	R0
	ADD	#2665, R0
	MOV	R0, 5550(P)
	MOV	GV+302., 6230(P)
	MOV	10(P), GV+520.
	MOV	#3, GV+522.
	MOV	#3, GV+524.
	MOV	#3, GV+526.
	MOV	#2260, GV+528.
	CLR	R0
	ADD	GV+520., R0
	ASL	R0
	CLR	(R0)
	MOV	GV+520., R0
	INC	R0
	ASL	R0
	CLR	(R0)
	MOV	#2, R0
	ADD	GV+520., R0
	ASL	R0
	CLR	(R0)
	MOV	4554(P), GV+570.
	CLR	GV+572.
	MOV	#144, GV+574.
	MOV	5070(P), GV+530.
	MOV	5550(P), GV+532.
	CLR	GV+534.
	MOV	#226, GV+536.
	MOV	#177777, GV+538.
	MOV	GV+420., GV+302.
	MOV	#177777, GV+544.
	MOV	#177777, GV+542.
	MOV	#177777, GV+546.
	MOV	#177777, GV+506.
	CLR	GV+576.
	MOV	6(P), GV+540.
	CLR	GV+488.
	MOV	#3, GV+564.
	MOV	GV+564., GV+560.
	.PSECT	CONST
L9964:	.WORD	4
	.ASCII	^SECT^
	.PSECT	BCPL
	MOV	#L9964/2, 6240(P)
	JSR	R0,@GV+72.
	.WORD	6240
	BR	L9963
L9967:	JMP	L11
L9966:	JMP	L36
L9963:	MOV	L1, 6240(P)
	JSR	R0,@GV+64.
	.WORD	6240
	JSR	R0,@GV+86.
	.WORD	6240
	MOV	L1, R0
	INC	R0
	MOV	R0, L1
	MOV	#133, 6240(P)
	MOV	GV+560., 6242(P)
	JSR	R0,@GV+582.
	.WORD	6240
	MOV	6(P), 6240(P)
	JSR	R0,@GV+418.
	.WORD	6240
	MOV	6(P), 6240(P)
	JSR	R0,@GV+400.
	.WORD	6240
	MOV	GV+572., R1
	ASR	R1
	MOV	#114, 6240(P)
	MOV	R1, 6242(P)
	JSR	R0,@GV+582.
	.WORD	6240
	CLR	6232(P)
	BR	L9962
L37:	MOV	6232(P), R0
	ADD	GV+570., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6242(P)
	JSR	R0,@GV+590.
	.WORD	6242
	MOV	6232(P), R0
	INC	R0
	ADD	GV+570., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6242(P)
	JSR	R0,@GV+592.
	.WORD	6242
	MOV	#2, R0
	ADD	6232(P), R0
	MOV	R0, 6232(P)
L9962:
L38:	CMP	GV+572., 6232(P)
	BNE	L37
	MOV	6230(P), GV+302.
	JMP	EXIT
L36:	.PSECT	GLOBAL
	.=GV+486.
	.WORD	L2
	.=GV+420.
	.WORD	L3
	.=GV+162.
	.WORD	L35
	.=GV+592.
	.PSECT	CONST
L1:	.WORD	0
L5:	.WORD	L4
	.PSECT	BCPL
	BR	L9961
	.PSECT	CONST
L9960:	.WORD	5
	.ASCII	^TRANS^
	.EVEN
	.PSECT	BCPL
L39:	JSR	R1, ENTER
	.WORD	L9960
L41:	CLR	10(P)
	TST	6(P)
	BNE	L9959
	JMP	EXIT
L9959:
L43:	MOV	6(P), GV+540.
	BR	L9958
L46:	MOV	#144, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	JMP	EXIT
L47:	MOV	GV+524., 12(P)
	MOV	GV+522., 14(P)
	MOV	GV+560., 16(P)
	MOV	GV+562., 20(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+402.
	.WORD	30
	MOV	14(P), 30(P)
	MOV	GV+522., 32(P)
	JSR	R0,@GV+408.
	.WORD	30
	MOV	GV+522., GV+524.
	MOV	GV+560., GV+562.
	MOV	16(P), GV+560.
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+414.
	.WORD	30
	CMP	GV+562., GV+560.
	BEQ	L9957
	MOV	GV+562., GV+560.
	MOV	#133, 30(P)
	MOV	GV+560., 32(P)
	JSR	R0,@GV+582.
	.WORD	30
L9957:
L48:	MOV	#134, 30(P)
	JSR	R0,@GV+580.
	.WORD	30
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+418.
	.WORD	30
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+400.
	.WORD	30
	BR	L9956
L9961:	JMP	L40
L9956:	MOV	20(P), GV+562.
	MOV	12(P), GV+524.
	MOV	14(P), GV+522.
	MOV	16(P), GV+560.
	BR	L9955
L9958:	JMP	L44
L9955:	MOV	#133, 30(P)
	MOV	GV+560., 32(P)
	JSR	R0,@GV+582.
	.WORD	30
	JMP	EXIT
L49:	MOV	#177777, 10(P)
L50:	MOV	GV+524., 12(P)
	MOV	GV+522., 14(P)
	MOV	GV+560., 16(P)
	TST	10(P)
	BEQ	L9954
	MOV	#114, 20(P)
	BR	L9953
L9954:
L52:	MOV	#1, 20(P)
L9953:
L51:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	BR	L9952
L53:	MOV	22(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	22(P), R1
	ADD	#3, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 32(P)
	MOV	20(P), 34(P)
	MOV	R1, 44(P)
	JSR	R0,@GV+470.
	.WORD	44
	MOV	R0, 36(P)
	JSR	R0,@GV+410.
	.WORD	32
	MOV	22(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
L9952:
L54:	TST	22(P)
	BNE	L53
	MOV	14(P), 32(P)
	MOV	GV+522., 34(P)
	JSR	R0,@GV+408.
	.WORD	32
	MOV	GV+522., GV+524.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 32(P)
	JSR	R0,@GV+418.
	.WORD	32
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 32(P)
	JSR	R0,@GV+400.
	.WORD	32
	MOV	12(P), GV+524.
	MOV	14(P), GV+522.
	MOV	16(P), GV+560.
	JMP	EXIT
L55:	MOV	GV+524., 12(P)
	MOV	GV+522., 14(P)
	MOV	GV+560., 16(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	BR	L9951
L56:	JSR	R0,@GV+486.
	.WORD	30
	MOV	R0, 22(P)
	MOV	20(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 32(P)
	MOV	#116, 34(P)
	MOV	22(P), 36(P)
	JSR	R0,@GV+410.
	.WORD	32
	MOV	22(P), 32(P)
	JSR	R0,@GV+468.
	.WORD	32
	MOV	20(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	#146, 32(P)
	MOV	R0, 42(P)
	JSR	R0,@GV+470.
	.WORD	42
	MOV	R0, 34(P)
	JSR	R0,@GV+582.
	.WORD	32
	MOV	20(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
L9951:
L57:	TST	20(P)
	BNE	L56
	MOV	14(P), 30(P)
	MOV	GV+522., 32(P)
	JSR	R0,@GV+408.
	.WORD	30
	MOV	GV+522., GV+524.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+418.
	.WORD	30
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+400.
	.WORD	30
	MOV	12(P), GV+524.
	MOV	14(P), GV+522.
	MOV	16(P), GV+560.
	JMP	EXIT
L58:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 20(P)
	MOV	R1, 22(P)
	JSR	R0,@GV+460.
	.WORD	20
	JMP	EXIT
L59:	MOV	GV+560., 12(P)
	MOV	GV+564., R0
	ADD	GV+560., R0
	MOV	R0, GV+560.
	MOV	#133, 22(P)
	MOV	GV+560., 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	JSR	R0,@GV+466.
	.WORD	22
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	JSR	R0,@GV+462.
	.WORD	22
	MOV	#63, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	12(P), GV+560.
	JMP	EXIT
L60:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	#64, 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	DEC	GV+560.
	JMP	EXIT
L61:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+480.
	.WORD	20
	MOV	#133, 20(P)
	MOV	GV+560., 22(P)
	JSR	R0,@GV+582.
	.WORD	20
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+400.
	.WORD	20
	JMP	EXIT
L62:	MOV	#177777, 10(P)
L63:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+500.
	.WORD	20
	TST	R0
	BEQ	L9950
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+502.
	.WORD	20
	TST	R0
	BEQ	L9950
	CMP	10(P), GV+504.
	BEQ	L9949
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+400.
	.WORD	20
L9949:
L65:	JMP	EXIT
L9950:
L64:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	MOV	10(P), 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+440.
	.WORD	22
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	JSR	R0,@GV+400.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+480.
	.WORD	22
	JMP	EXIT
L66:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+500.
	.WORD	20
	TST	R0
	BEQ	L9948
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+502.
	.WORD	20
	TST	R0
	BEQ	L9948
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+502.
	.WORD	20
	TST	R0
	BEQ	L9948
	TST	GV+504.
	BEQ	L9947
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	BR	L9946
L9947:
L69:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
L9946:
L68:	JSR	R0,@GV+400.
	.WORD	20
	JMP	EXIT
L9948:
L67:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	JSR	R0,@GV+486.
	.WORD	22
	MOV	R0, 14(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	CLR	26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+440.
	.WORD	24
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+400.
	.WORD	24
	MOV	14(P), 24(P)
	JSR	R0,@GV+482.
	.WORD	24
	MOV	12(P), 24(P)
	JSR	R0,@GV+480.
	.WORD	24
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+400.
	.WORD	24
	MOV	14(P), 24(P)
	JSR	R0,@GV+480.
	.WORD	24
	JMP	EXIT
L70:	TST	GV+506.
	BGE	L9945
	MOV	#150, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9945:
L71:	TST	GV+506.
	BNE	L9944
	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, GV+506.
L9944:
L72:	MOV	GV+506., 20(P)
	JSR	R0,@GV+482.
	.WORD	20
	JMP	EXIT
L73:	TST	GV+542.
	BGE	L9943
	MOV	#150, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9943:
L74:	TST	GV+542.
	BNE	L9942
	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, GV+542.
L9942:
L75:	MOV	GV+542., 20(P)
	JSR	R0,@GV+482.
	.WORD	20
	JMP	EXIT
L76:	MOV	#141, 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	JMP	EXIT
L77:	MOV	#104, 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	JMP	EXIT
L78:	TST	GV+544.
	BGE	L9941
	MOV	#150, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9941:
L79:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	#142, 20(P)
	MOV	GV+544., 22(P)
	JSR	R0,@GV+584.
	.WORD	20
	DEC	GV+560.
	JMP	EXIT
L80:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BEQ	L9940
	MOV	#153, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+302.
	.WORD	22
L9940:
L81:	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#120, 22(P)
	MOV	R0, 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	12(P), R0
	INC	R0
	MOV	R0, 22(P)
	JSR	R0,@GV+596.
	.WORD	22
	JMP	EXIT
L82:	MOV	#177777, 10(P)
L83:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	JSR	R0,@GV+486.
	.WORD	22
	MOV	R0, 14(P)
	MOV	GV+542., 16(P)
	MOV	GV+506., 20(P)
	CLR	GV+542.
	MOV	14(P), GV+506.
	MOV	14(P), 30(P)
	JSR	R0,@GV+482.
	.WORD	30
	MOV	12(P), 30(P)
	JSR	R0,@GV+480.
	.WORD	30
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+400.
	.WORD	30
	MOV	14(P), 30(P)
	JSR	R0,@GV+480.
	.WORD	30
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	MOV	10(P), 32(P)
	MOV	12(P), 34(P)
	JSR	R0,@GV+440.
	.WORD	30
	TST	GV+542.
	BEQ	L9939
	MOV	GV+542., 30(P)
	JSR	R0,@GV+480.
	.WORD	30
L9939:
L84:	MOV	16(P), GV+542.
	MOV	20(P), GV+506.
	JMP	EXIT
L85:	MOV	#177777, 10(P)
L86:
L87:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	MOV	GV+542., 14(P)
	MOV	GV+506., 16(P)
	CLR	GV+542.
	CLR	GV+506.
	MOV	12(P), 26(P)
	JSR	R0,@GV+480.
	.WORD	26
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+400.
	.WORD	26
	TST	GV+506.
	BEQ	L9938
	MOV	GV+506., 26(P)
	JSR	R0,@GV+480.
	.WORD	26
L9938:
L88:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #75
	BNE	L9937
	MOV	12(P), 26(P)
	JSR	R0,@GV+482.
	.WORD	26
	BR	L9936
L9937:
L89:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	MOV	10(P), 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@GV+440.
	.WORD	26
L9936:
L90:	TST	GV+542.
	BEQ	L9935
	MOV	GV+542., 26(P)
	JSR	R0,@GV+480.
	.WORD	26
L9935:
L91:	MOV	14(P), GV+542.
	MOV	16(P), GV+506.
	JMP	EXIT
L92:	JSR	R0,@GV+486.
	.WORD	20
	MOV	6(P), R1
	INC	R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 12(P)
	MOV	R1, 22(P)
	JSR	R0,@GV+470.
	.WORD	22
	MOV	R0, 14(P)
	CMP	GV+534., GV+536.
	BLT	L9934
	MOV	#215, 24(P)
	MOV	6(P), 26(P)
	JSR	R0,@GV+302.
	.WORD	24
L9934:
L93:	TST	GV+538.
	BGE	L9933
	MOV	#151, 24(P)
	MOV	6(P), 26(P)
	JSR	R0,@GV+302.
	.WORD	24
L9933:
L94:	MOV	GV+534., R0
	DEC	R0
	MOV	GV+538., 16(P)
	MOV	R0, 20(P)
	BR	L9932
L96:	MOV	16(P), R0
	ADD	GV+530., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 14(P)
	BNE	L9931
	MOV	#152, 30(P)
	MOV	6(P), 32(P)
	JSR	R0,@GV+302.
	.WORD	30
L9931:
L97:	INC	16(P)
L9932:
L95:	CMP	16(P), 20(P)
	BLE	L96
	MOV	GV+534., R0
	ADD	GV+530., R0
	ASL	R0
	MOV	14(P), (R0)
	MOV	GV+534., R0
	ADD	GV+532., R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	GV+534., R0
	INC	R0
	MOV	R0, GV+534.
	MOV	12(P), 24(P)
	JSR	R0,@GV+480.
	.WORD	24
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+400.
	.WORD	24
	JMP	EXIT
L98:	TST	GV+538.
	BGE	L9930
	MOV	#151, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9930:
L99:	TST	GV+546.
	BEQ	L9929
	MOV	#145, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9929:
L100:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, GV+546.
	MOV	GV+546., 20(P)
	JSR	R0,@GV+480.
	.WORD	20
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+400.
	.WORD	20
	JMP	EXIT
L101:	TST	GV+538.
	BGE	L9928
	MOV	#151, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
L9928:
L102:	MOV	GV+548., 20(P)
	JSR	R0,@GV+482.
	.WORD	20
	JMP	EXIT
L103:	MOV	6(P), 20(P)
	JSR	R0,@GV+442.
	.WORD	20
	JMP	EXIT
L104:	MOV	6(P), 20(P)
	JSR	R0,@GV+578.
	.WORD	20
	JMP	EXIT
L105:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+400.
	.WORD	20
	MOV	GV+576., R0
	INC	R0
	MOV	R0, GV+576.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6(P)
	JMP	@L42
	BR	L9927
L44:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#62, T
	BLT	L9925
	CMP	T, #41
	BGT	L9925
	ASL	T
	JMP	@L9926(T)
L9926:	.WORD	L58
	.WORD	L59
	.WORD	L60
	.WORD	L78
	.WORD	L61
	.WORD	L66
	.WORD	L104
	.WORD	L63
	.WORD	L62
	.WORD	L82
	.WORD	L83
	.WORD	L87
	.WORD	L85
	.WORD	L86
	.WORD	L46
	.WORD	L46
	.WORD	L73
	.WORD	L76
	.WORD	L77
	.WORD	L101
	.WORD	L103
	.WORD	L92
	.WORD	L98
	.WORD	L105
	.WORD	L47
	.WORD	L50
	.WORD	L49
	.WORD	L46
	.WORD	L46
	.WORD	L55
	.WORD	L80
	.WORD	L46
	.WORD	L46
	.WORD	L70
L9927:
L45:	JMP	EXIT
L40:	BR	L9924
L9925:	JMP	L46
L9924:	.PSECT	GLOBAL
	.=GV+400.
	.WORD	L39
	.=GV+596.
	.PSECT	CONST
L42:	.WORD	L41
	.PSECT	BCPL
	BR	L9923
	.PSECT	CONST
L9922:	.WORD	11
	.ASCII	^DECLNAMES^
	.EVEN
	.PSECT	BCPL
L106:	JSR	R1, ENTER
	.WORD	L9922
	TST	6(P)
	BNE	L9921
	JMP	EXIT
L9921:
L122:	BR	L9920
L125:	MOV	#146, 16(P)
	MOV	GV+540., 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	JMP	EXIT
L126:
L127:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+404.
	.WORD	16
	JMP	EXIT
L128:
L129:	JSR	R0,@GV+486.
	.WORD	16
	MOV	6(P), R1
	ADD	#4, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#4, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 16(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+406.
	.WORD	16
	JMP	EXIT
L130:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+402.
	.WORD	16
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+402.
	.WORD	16
	JMP	EXIT
	BR	L9919
L9920:
L123:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #50
	BEQ	L130
	CMP	T, #51
	BEQ	L127
	CMP	T, #52
	BEQ	L126
	CMP	T, #54
	BEQ	L129
	CMP	T, #55
	BEQ	L128
	BR	L125
L9919:
L124:	JMP	EXIT
	.PSECT	CONST
L9918:	.WORD	7
	.ASCII	^DECLDYN^
	.EVEN
	.PSECT	BCPL
L107:	JSR	R1, ENTER
	.WORD	L9918
	TST	6(P)
	BNE	L9917
	JMP	EXIT
L9923:	JMP	L121
L9917:
L131:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BNE	L9916
	MOV	6(P), 16(P)
	MOV	#115, 20(P)
	MOV	GV+560., 22(P)
	JSR	R0,@GV+410.
	.WORD	16
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L9916:
L132:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #46
	BNE	L9915
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	MOV	#115, 20(P)
	MOV	GV+560., 22(P)
	JSR	R0,@GV+410.
	.WORD	16
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+404.
	.WORD	16
	JMP	EXIT
L9915:
L133:	MOV	#147, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9914:	.WORD	10
	.ASCII	^DECLSTAT^
	.PSECT	BCPL
L108:	JSR	R1, ENTER
	.WORD	L9914
	MOV	6(P), 20(P)
	JSR	R0,@GV+412.
	.WORD	20
	MOV	R0, 12(P)
	MOV	12(P), R0
	INC	R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #114
	BNE	L9913
	MOV	#2, R0
	ADD	12(P), R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
	MOV	6(P), 24(P)
	MOV	#114, 26(P)
	MOV	14(P), 30(P)
	JSR	R0,@GV+410.
	.WORD	24
	CMP	GV+572., GV+574.
	BLT	L9912
	MOV	#220, 24(P)
	MOV	6(P), 26(P)
	JSR	R0,@GV+302.
	.WORD	24
L9912:
L135:	MOV	GV+572., R0
	ADD	GV+570., R0
	ASL	R0
	MOV	14(P), (R0)
	MOV	GV+572., R0
	INC	R0
	ADD	GV+570., R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	GV+572., R0
	MOV	R0, GV+572.
	JMP	EXIT
L9913:
L134:	JSR	R0,@GV+486.
	.WORD	22
	MOV	R0, 14(P)
	MOV	6(P), 24(P)
	MOV	#116, 26(P)
	MOV	14(P), 30(P)
	JSR	R0,@GV+410.
	.WORD	24
	MOV	14(P), 24(P)
	JSR	R0,@GV+468.
	.WORD	24
	MOV	#145, 24(P)
	MOV	10(P), 26(P)
	JSR	R0,@GV+584.
	.WORD	24
	JMP	EXIT
	.PSECT	CONST
L9911:	.WORD	12
	.ASCII	^DECLLABELS^
	.PSECT	BCPL
L109:	JSR	R1, ENTER
	.WORD	L9911
	MOV	GV+522., 10(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+416.
	.WORD	20
	MOV	10(P), 20(P)
	MOV	GV+522., 22(P)
	JSR	R0,@GV+408.
	.WORD	20
	MOV	GV+522., GV+524.
	JMP	EXIT
	.PSECT	CONST
L9910:	.WORD	15
	.ASCII	^CHECKDISTINCT^
	.EVEN
	.PSECT	BCPL
L110:	JSR	R1, ENTER
	.WORD	L9910
	BR	L9909
L136:	MOV	#3, R0
	ADD	6(P), R0
	MOV	6(P), R1
	ADD	GV+520., R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 12(P)
	MOV	R1, 14(P)
	BR	L9908
L138:	MOV	12(P), R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 14(P)
	BNE	L9907
	MOV	#216, 24(P)
	MOV	14(P), 26(P)
	JSR	R0,@GV+302.
	.WORD	24
L9907:
L140:	MOV	#3, R0
	ADD	12(P), R0
	MOV	R0, 12(P)
L9908:
L139:	CMP	12(P), 10(P)
	BLT	L138
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 6(P)
L9909:
L137:	CMP	10(P), 6(P)
	BNE	L136
	JMP	EXIT
	.PSECT	CONST
L9906:	.WORD	7
	.ASCII	^ADDNAME^
	.EVEN
	.PSECT	BCPL
L111:	JSR	R1, ENTER
	.WORD	L9906
	CMP	GV+522., GV+528.
	BLT	L9905
	MOV	#217, 22(P)
	MOV	GV+540., 24(P)
	JSR	R0,@GV+302.
	.WORD	22
L9905:
L141:	MOV	GV+522., R0
	ADD	GV+520., R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	GV+522., R0
	INC	R0
	ADD	GV+520., R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	GV+522., R0
	ADD	GV+520., R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	#3, R0
	ADD	GV+522., R0
	MOV	R0, GV+522.
	JMP	EXIT
	.PSECT	CONST
L9904:	.WORD	14
	.ASCII	^CELLWITHNAME^
	.PSECT	BCPL
L112:	JSR	R1, ENTER
	.WORD	L9904
	MOV	GV+524., 10(P)
L143:	SUB	#3, 10(P)
	TST	10(P)
	BEQ	L9903
	MOV	10(P), R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L143
L9903:
L144:	MOV	10(P), R0
	BR	L9902
L9902:
L142:	JMP	EXIT
	.PSECT	CONST
L9901:	.WORD	12
	.ASCII	^SCANLABELS^
	.PSECT	BCPL
L113:	JSR	R1, ENTER
	.WORD	L9901
	TST	6(P)
	BNE	L9900
	JMP	EXIT
L9900:
L145:	BR	L9899
L148:	JMP	EXIT
L149:	JSR	R0,@GV+486.
	.WORD	16
	MOV	6(P), R1
	ADD	#3, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#3, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 16(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+406.
	.WORD	16
L150:
L151:
L152:
L153:
L154:
L155:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+416.
	.WORD	16
	JMP	EXIT
L156:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+416.
	.WORD	16
L157:
L158:
L159:
L160:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+416.
	.WORD	16
	JMP	EXIT
L161:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+416.
	.WORD	16
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+416.
	.WORD	16
	JMP	EXIT
	BR	L9898
L9899:
L146:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#66, T
	BLT	L148
	CMP	T, #23
	BGT	L148
	ASL	T
	JMP	@L9897(T)
L9897:	.WORD	L149
	.WORD	L161
	.WORD	L148
	.WORD	L150
	.WORD	L151
	.WORD	L152
	.WORD	L153
	.WORD	L157
	.WORD	L158
	.WORD	L159
	.WORD	L148
	.WORD	L148
	.WORD	L148
	.WORD	L148
	.WORD	L148
	.WORD	L148
	.WORD	L154
	.WORD	L155
	.WORD	L160
	.WORD	L156
L9898:
L147:	JMP	EXIT
	.PSECT	CONST
L9896:	.WORD	10
	.ASCII	^TRANSDEF^
	.PSECT	BCPL
L114:	JSR	R1, ENTER
	.WORD	L9896
	MOV	6(P), 16(P)
	JSR	R0,@L116
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@L120
	.WORD	16
	TST	R0
	BEQ	L9895
	JSR	R0,@GV+486.
	.WORD	16
	MOV	R0, 10(P)
	MOV	GV+560., 12(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+482.
	.WORD	22
	MOV	6(P), 22(P)
	JSR	R0,@L118
	.WORD	22
	MOV	12(P), GV+560.
	MOV	#133, 22(P)
	MOV	GV+560., 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	10(P), 22(P)
	JSR	R0,@GV+480.
	.WORD	22
L9895:
L162:	JMP	EXIT
	.PSECT	CONST
L9894:	.WORD	14
	.ASCII	^TRANSDYNDEFS^
	.PSECT	BCPL
L115:	JSR	R1, ENTER
	.WORD	L9894
	BR	L9893
L165:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L116
	.WORD	16
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L116
	.WORD	16
	JMP	EXIT
L166:	MOV	#55, 16(P)
	MOV	GV+562., 20(P)
	JSR	R0,@GV+582.
	.WORD	16
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	MOV	GV+562., R0
	INC	R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	ADD	R0, R1
	MOV	R1, GV+562.
	JMP	EXIT
L167:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+466.
	.WORD	16
	JMP	EXIT
L168:	JMP	EXIT
	BR	L9892
L9893:
L163:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #50
	BEQ	L165
	CMP	T, #51
	BEQ	L167
	CMP	T, #52
	BEQ	L166
	BR	L168
L9892:
L164:	JMP	EXIT
	.PSECT	CONST
L9891:	.WORD	15
	.ASCII	^TRANSSTATDEFS^
	.EVEN
	.PSECT	BCPL
L117:	JSR	R1, ENTER
	.WORD	L9891
	BR	L9890
L171:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L118
	.WORD	16
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L118
	.WORD	16
	JMP	EXIT
L172:
L173:	MOV	P, T
	ADD	#10, T
	MOV	GV+524., (T)+
	MOV	GV+522., (T)+
	MOV	GV+526., (T)+
	MOV	GV+542., (T)+
	MOV	GV+506., (T)+
	MOV	GV+544., (T)+
	MOV	GV+538., (T)+
	MOV	#177777, GV+542.
	MOV	#177777, GV+506.
	MOV	#177777, GV+544.
	MOV	#177777, GV+538.
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#4, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 34(P)
	MOV	R1, 36(P)
	JSR	R0,@GV+484.
	.WORD	34
	MOV	GV+564., GV+560.
	MOV	GV+522., GV+526.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+404.
	.WORD	34
	MOV	12(P), 34(P)
	MOV	GV+522., 36(P)
	JSR	R0,@GV+408.
	.WORD	34
	MOV	GV+522., GV+524.
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+418.
	.WORD	34
	MOV	#137, 34(P)
	MOV	GV+560., 36(P)
	JSR	R0,@GV+582.
	.WORD	34
	BR	L9889
L9890:	JMP	L169
L9889:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #54
	BNE	L9888
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+462.
	.WORD	34
	MOV	#140, 34(P)
	JSR	R0,@GV+580.
	.WORD	34
	BR	L9887
L9888:
L174:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+400.
	.WORD	34
	MOV	#141, 34(P)
	JSR	R0,@GV+580.
	.WORD	34
L9887:
L175:	MOV	16(P), GV+542.
	MOV	20(P), GV+506.
	MOV	22(P), GV+544.
	MOV	24(P), GV+538.
	MOV	10(P), GV+524.
	MOV	12(P), GV+522.
	MOV	14(P), GV+526.
L176:	JMP	EXIT
	BR	L9886
L169:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #50
	BEQ	L9885
	CMP	T, #54
	BEQ	L9884
	CMP	T, #55
	BEQ	L9883
	BR	L176
L9886:
L170:	JMP	EXIT
	.PSECT	CONST
L9882:	.WORD	10
	.ASCII	^STATDEFS^
	.PSECT	BCPL
L119:	JSR	R1, ENTER
	.WORD	L9882
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #54
	BEQ	L9881
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #55
	BNE	L9880
L9881:
L179:	MOV	#177777, 10(P)
	BR	L9879
L9880:
L178:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #50
	BEQ	L9878
	CLR	10(P)
	BR	L9877
L9878:
L181:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L120
	.WORD	16
	TST	R0
	BEQ	L9876
	MOV	#177777, 10(P)
	BR	L9875
L9876:
L183:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L120
	.WORD	16
	MOV	R0, 10(P)
L9875:
L182:
L9877:
L180:
L9879:
L177:	MOV	10(P), R0
	JMP	EXIT
L121:	BR	L9874
L9885:	JMP	L171
L9884:	JMP	L172
L9883:	JMP	L173
L9874:	.PSECT	GLOBAL
	.=GV+402.
	.WORD	L106
	.WORD	L107
	.WORD	L108
	.=GV+418.
	.WORD	L109
	.=GV+408.
	.WORD	L110
	.WORD	L111
	.WORD	L112
	.=GV+416.
	.WORD	L113
	.=GV+414.
	.WORD	L114
	.=GV+596.
	.PSECT	CONST
L116:	.WORD	L115
L118:	.WORD	L117
L120:	.WORD	L119
	.PSECT	BCPL
	BR	L9873
	.PSECT	CONST
L9872:	.WORD	10
	.ASCII	^JUMPCOND^
	.PSECT	BCPL
L184:	JSR	R1, ENTER
	.WORD	L9872
	MOV	10(P), 14(P)
	BR	L9871
L190:	COM	10(P)
L191:	TST	10(P)
	BEQ	L9870
	MOV	12(P), 24(P)
	JSR	R0,@GV+482.
	.WORD	24
L9870:
L192:	JMP	EXIT
L193:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	COM	R1
	MOV	R0, 24(P)
	MOV	R1, 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+440.
	.WORD	24
	JMP	EXIT
L194:	COM	14(P)
L195:	TST	14(P)
	BEQ	L9869
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	MOV	10(P), 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+440.
	.WORD	24
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	MOV	10(P), 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+440.
	.WORD	24
	BR	L9868
L9869:
L196:	JSR	R0,@GV+486.
	.WORD	24
	MOV	R0, 16(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	COM	R1
	MOV	R0, 26(P)
	MOV	R1, 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+440.
	.WORD	26
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	MOV	10(P), 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@GV+440.
	.WORD	26
	BR	L9867
L9873:	JMP	L187
L9871:	JMP	L188
L9867:	MOV	16(P), 26(P)
	JSR	R0,@GV+480.
	.WORD	26
L9868:
L197:	JMP	EXIT
L198:	MOV	6(P), 24(P)
	JSR	R0,@GV+462.
	.WORD	24
	TST	10(P)
	BEQ	L9866
	MOV	#126, 24(P)
	BR	L9865
L9866:
L200:	MOV	#127, 24(P)
L9865:
L199:	MOV	12(P), 26(P)
	JSR	R0,@GV+584.
	.WORD	24
	DEC	GV+560.
	JMP	EXIT
	BR	L9864
L188:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #4
	BEQ	L9863
	CMP	T, #5
	BEQ	L9862
	CMP	T, #36
	BEQ	L9861
	CMP	T, #41
	BEQ	L9860
	CMP	T, #42
	BEQ	L9859
	BR	L198
L9864:
L189:	JMP	EXIT
	.PSECT	CONST
L9858:	.WORD	13
	.ASCII	^TRANSSWITCH^
	.EVEN
	.PSECT	BCPL
L185:	JSR	R1, ENTER
	.WORD	L9858
	MOV	GV+534., 10(P)
	MOV	GV+538., 12(P)
	MOV	GV+546., 14(P)
	MOV	GV+548., 16(P)
	JSR	R0,@GV+486.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+486.
	.WORD	30
	MOV	R0, GV+548.
	MOV	GV+534., GV+538.
	MOV	20(P), 30(P)
	JSR	R0,@GV+482.
	.WORD	30
	CLR	GV+546.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+400.
	.WORD	30
	MOV	GV+548., 30(P)
	JSR	R0,@GV+482.
	.WORD	30
	MOV	20(P), 30(P)
	JSR	R0,@GV+480.
	.WORD	30
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 30(P)
	JSR	R0,@GV+462.
	.WORD	30
	TST	GV+546.
	BNE	L9857
	MOV	GV+548., GV+546.
L9857:
L201:	MOV	GV+534., R0
	SUB	10(P), R0
	MOV	#106, 30(P)
	MOV	R0, 32(P)
	MOV	GV+546., 34(P)
	JSR	R0,@GV+588.
	.WORD	30
	MOV	GV+534., R0
	DEC	R0
	MOV	GV+538., 22(P)
	MOV	R0, 24(P)
	BR	L9856
L9863:	JMP	L191
L9862:	JMP	L190
L9861:	JMP	L193
L9860:	JMP	L194
L9859:	JMP	L195
L203:	MOV	22(P), R0
	ADD	GV+530., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+590.
	.WORD	34
	MOV	22(P), R0
	ADD	GV+532., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+592.
	.WORD	34
	INC	22(P)
L9856:
L202:	CMP	22(P), 24(P)
	BLE	L203
	DEC	GV+560.
	MOV	GV+548., 30(P)
	JSR	R0,@GV+480.
	.WORD	30
	MOV	16(P), GV+548.
	MOV	10(P), GV+534.
	MOV	12(P), GV+538.
	MOV	14(P), GV+546.
	JMP	EXIT
	.PSECT	CONST
L9855:	.WORD	10
	.ASCII	^TRANSFOR^
	.PSECT	BCPL
L186:	JSR	R1, ENTER
	.WORD	L9855
	MOV	GV+524., 10(P)
	MOV	GV+522., 12(P)
	JSR	R0,@GV+486.
	.WORD	22
	MOV	R0, 14(P)
	JSR	R0,@GV+486.
	.WORD	24
	MOV	R0, 16(P)
	MOV	GV+542., 20(P)
	MOV	GV+506., 22(P)
	CLR	24(P)
	CLR	26(P)
	MOV	#1, 30(P)
	MOV	GV+560., 32(P)
	CLR	GV+542.
	CLR	GV+506.
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	MOV	#115, 44(P)
	MOV	32(P), 46(P)
	JSR	R0,@GV+410.
	.WORD	42
	MOV	GV+522., GV+524.
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	JSR	R0,@GV+462.
	.WORD	42
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9854
	MOV	#52, 24(P)
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	BR	L9853
L9854:
L204:	MOV	#50, 24(P)
	MOV	GV+560., 26(P)
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	JSR	R0,@GV+462.
	.WORD	42
L9853:
L205:	MOV	6(P), R0
	ADD	#4, R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BEQ	L9852
	MOV	6(P), R0
	ADD	#4, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	JSR	R0,@GV+470.
	.WORD	42
	MOV	R0, 30(P)
L9852:
L206:	MOV	#134, 42(P)
	JSR	R0,@GV+580.
	.WORD	42
	MOV	14(P), 42(P)
	JSR	R0,@GV+482.
	.WORD	42
	MOV	6(P), R0
	ADD	#5, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	JSR	R0,@GV+418.
	.WORD	42
	MOV	16(P), 42(P)
	JSR	R0,@GV+480.
	.WORD	42
	MOV	6(P), R0
	ADD	#5, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 42(P)
	JSR	R0,@GV+400.
	.WORD	42
	TST	GV+506.
	BEQ	L9851
	MOV	GV+506., 42(P)
	JSR	R0,@GV+480.
	.WORD	42
L9851:
L207:	MOV	#50, 42(P)
	MOV	32(P), 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	MOV	#52, 42(P)
	MOV	30(P), 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	MOV	#16, 42(P)
	JSR	R0,@GV+580.
	.WORD	42
	MOV	#124, 42(P)
	MOV	32(P), 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	MOV	14(P), 42(P)
	JSR	R0,@GV+480.
	.WORD	42
	MOV	#50, 42(P)
	MOV	32(P), 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	MOV	24(P), 42(P)
	MOV	26(P), 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	TST	30(P)
	BGE	L9850
	MOV	#31, 42(P)
	BR	L9849
L9850:
L209:	MOV	#30, 42(P)
L9849:
L208:	JSR	R0,@GV+580.
	.WORD	42
	MOV	#126, 42(P)
	MOV	16(P), 44(P)
	JSR	R0,@GV+584.
	.WORD	42
	TST	GV+542.
	BEQ	L9848
	MOV	GV+542., 42(P)
	JSR	R0,@GV+480.
	.WORD	42
L9848:
L210:	MOV	20(P), GV+542.
	MOV	22(P), GV+506.
	MOV	32(P), GV+560.
	MOV	#133, 42(P)
	MOV	GV+560., 44(P)
	JSR	R0,@GV+582.
	.WORD	42
	MOV	10(P), GV+524.
	MOV	12(P), GV+522.
	JMP	EXIT
L187:	.PSECT	GLOBAL
	.=GV+440.
	.WORD	L184
	.WORD	L185
	.=GV+578.
	.WORD	L186
	.=GV+596.
	.PSECT	BCPL
	BR	L9847
	.PSECT	CONST
L9846:	.WORD	4
	.ASCII	^LOAD^
	.PSECT	BCPL
L211:	JSR	R1, ENTER
	.WORD	L9846
	TST	6(P)
	BNE	L9845
	MOV	#224, 16(P)
	MOV	GV+540., 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	JSR	R0,@GV+472.
	.WORD	16
	JMP	EXIT
L9845:
L216:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	BR	L9844
L219:	MOV	#223, 20(P)
	MOV	GV+540., 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	JSR	R0,@GV+472.
	.WORD	20
	JMP	EXIT
L220:
L221:
L222:
L223:
L224:
L225:
L226:
L227:
L228:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	DEC	GV+560.
	JMP	EXIT
L229:
L230:
L231:
L232:
L233:
L234:
L235:
L236:
L237:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 12(P)
	MOV	R1, 14(P)
	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BEQ	L9843
	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9842
L9843:
L239:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
L9842:
L238:	MOV	12(P), 24(P)
	BR	L9841
L9847:	JMP	L215
L9841:	JSR	R0,@GV+462.
	.WORD	24
	MOV	14(P), 24(P)
	JSR	R0,@GV+462.
	.WORD	24
	CMP	#11, 10(P)
	BNE	L9840
	MOV	#16, 24(P)
	JSR	R0,@GV+580.
	.WORD	24
	MOV	#10, 10(P)
L9840:
L240:	MOV	10(P), 24(P)
	BR	L9839
L9844:	JMP	L217
L9839:	JSR	R0,@GV+580.
	.WORD	24
	DEC	GV+560.
	JMP	EXIT
L241:
L242:
L243:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	JMP	EXIT
L244:
L245:	MOV	10(P), 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L246:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+464.
	.WORD	20
	JMP	EXIT
L247:
L248:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#52, 20(P)
	MOV	R0, 22(P)
	JSR	R0,@GV+582.
	.WORD	20
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L249:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#53, 20(P)
	MOV	R0, 22(P)
	JSR	R0,@GV+582.
	.WORD	20
	MOV	6(P), R0
	INC	R0
	MOV	R0, 20(P)
	JSR	R0,@GV+596.
	.WORD	20
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L250:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BEQ	L9838
	MOV	#153, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+302.
	.WORD	22
L9838:
L251:	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#120, 22(P)
	MOV	R0, 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	12(P), R0
	INC	R0
	MOV	R0, 22(P)
	JSR	R0,@GV+596.
	.WORD	22
	MOV	#135, 22(P)
	MOV	GV+560., 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L252:	MOV	P, T
	ADD	#20, T
	MOV	6(P), (T)+
	MOV	#50, (T)+
	MOV	#51, (T)+
	MOV	#54, (T)+
	MOV	#52, (T)+
	JSR	R0,@GV+474.
	.WORD	20
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L253:	MOV	GV+544., 12(P)
	MOV	GV+522., 14(P)
	MOV	GV+524., 16(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+418.
	.WORD	26
	JSR	R0,@GV+486.
	.WORD	26
	MOV	R0, GV+544.
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+400.
	.WORD	26
	MOV	GV+544., 26(P)
	JSR	R0,@GV+480.
	.WORD	26
	MOV	#135, 26(P)
	MOV	GV+560., 30(P)
	JSR	R0,@GV+582.
	.WORD	26
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	MOV	14(P), GV+522.
	MOV	16(P), GV+524.
	MOV	12(P), GV+544.
	JMP	EXIT
L254:	MOV	GV+560., 12(P)
	MOV	GV+564., R0
	ADD	GV+560., R0
	MOV	R0, GV+560.
	MOV	#133, 22(P)
	MOV	GV+560., 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	JSR	R0,@GV+466.
	.WORD	22
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 22(P)
	JSR	R0,@GV+462.
	.WORD	22
	MOV	#12, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	12(P), R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L255:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+500.
	.WORD	20
	TST	R0
	BEQ	L9837
	TST	GV+504.
	BEQ	L9836
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	BR	L9835
L9836:
L258:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
L9835:
L257:	JSR	R0,@GV+462.
	.WORD	20
	JMP	EXIT
L9837:
L256:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	JSR	R0,@GV+486.
	.WORD	22
	MOV	R0, 14(P)
	MOV	GV+560., 16(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	CLR	30(P)
	MOV	14(P), 32(P)
	JSR	R0,@GV+440.
	.WORD	26
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+462.
	.WORD	26
	MOV	12(P), 26(P)
	JSR	R0,@GV+482.
	.WORD	26
	MOV	16(P), GV+560.
	MOV	#133, 26(P)
	MOV	GV+560., 30(P)
	JSR	R0,@GV+582.
	.WORD	26
	MOV	14(P), 26(P)
	JSR	R0,@GV+480.
	.WORD	26
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+462.
	.WORD	26
	MOV	12(P), 26(P)
	JSR	R0,@GV+480.
	.WORD	26
	JMP	EXIT
L259:	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	MOV	12(P), 22(P)
	JSR	R0,@GV+468.
	.WORD	22
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6(P)
	BR	L9834
L260:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#146, 22(P)
	MOV	R0, 32(P)
	JSR	R0,@GV+470.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6(P)
L9834:
L261:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #46
	BEQ	L260
	MOV	#146, 22(P)
	MOV	6(P), 32(P)
	JSR	R0,@GV+470.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+582.
	.WORD	22
	MOV	#57, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+584.
	.WORD	22
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
	BR	L9833
L217:	MOV	10(P), T
	SUB	#1, T
	BLT	L9831
	CMP	T, #117
	BGT	L9831
	ASL	T
	JMP	@L9832(T)
L9832:	.WORD	L247
	.WORD	L252
	.WORD	L249
	.WORD	L244
	.WORD	L245
	.WORD	L253
	.WORD	L246
	.WORD	L243
	.WORD	L229
	.WORD	L254
	.WORD	L230
	.WORD	L220
	.WORD	L221
	.WORD	L231
	.WORD	L222
	.WORD	L248
	.WORD	L241
	.WORD	L219
	.WORD	L219
	.WORD	L232
	.WORD	L233
	.WORD	L223
	.WORD	L224
	.WORD	L225
	.WORD	L226
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L242
	.WORD	L227
	.WORD	L228
	.WORD	L234
	.WORD	L235
	.WORD	L236
	.WORD	L237
	.WORD	L255
	.WORD	L219
	.WORD	L259
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L219
	.WORD	L250
L9833:
L218:	JMP	EXIT
	.PSECT	CONST
L9830:	.WORD	6
	.ASCII	^LOADLV^
	.PSECT	BCPL
L212:	JSR	R1, ENTER
	.WORD	L9830
	TST	6(P)
	BNE	L9829
	JMP	@L263
L9829:
L264:	BR	L9828
L267:
L262:	MOV	#161, 16(P)
	MOV	GV+540., 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	JSR	R0,@GV+472.
	.WORD	16
	JMP	EXIT
L9831:	JMP	L219
L268:	MOV	P, T
	ADD	#16, T
	MOV	6(P), (T)+
	MOV	#55, (T)+
	MOV	#56, (T)+
	MOV	#57, (T)+
	CLR	(T)+
	JSR	R0,@GV+474.
	.WORD	16
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
L269:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+462.
	.WORD	16
	JMP	EXIT
L270:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 12(P)
	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BNE	L9827
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
L9827:
L271:	MOV	10(P), 22(P)
	JSR	R0,@GV+462.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+462.
	.WORD	22
	MOV	#16, 22(P)
	JSR	R0,@GV+580.
	.WORD	22
	DEC	GV+560.
	JMP	EXIT
L9828:	JMP	L265
L272:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+500.
	.WORD	16
	TST	R0
	BEQ	L9826
	TST	GV+504.
	BEQ	L9825
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	BR	L9824
L9825:
L275:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
L9824:
L274:	JSR	R0,@GV+464.
	.WORD	16
	JMP	EXIT
L9826:
L273:	JSR	R0,@GV+486.
	.WORD	16
	MOV	R0, 10(P)
	JSR	R0,@GV+486.
	.WORD	20
	MOV	R0, 12(P)
	MOV	GV+560., 14(P)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	CLR	26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+440.
	.WORD	24
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+464.
	.WORD	24
	MOV	10(P), 24(P)
	JSR	R0,@GV+482.
	.WORD	24
	MOV	14(P), GV+560.
	MOV	#133, 24(P)
	MOV	GV+560., 26(P)
	JSR	R0,@GV+582.
	.WORD	24
	MOV	12(P), 24(P)
	JSR	R0,@GV+480.
	.WORD	24
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+464.
	.WORD	24
	MOV	10(P), 24(P)
	JSR	R0,@GV+480.
	.WORD	24
	JMP	EXIT
	BR	L9823
L265:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #2
	BEQ	L9822
	CMP	T, #10
	BEQ	L9821
	CMP	T, #11
	BEQ	L9820
	CMP	T, #45
	BEQ	L9819
	BR	L9818
L9823:
L266:	JMP	EXIT
	.PSECT	CONST
L9817:	.WORD	10
	.ASCII	^LOADZERO^
	.PSECT	BCPL
L213:	JSR	R1, ENTER
	.WORD	L9817
	MOV	#52, 14(P)
	CLR	16(P)
	JSR	R0,@GV+582.
	.WORD	14
	MOV	GV+560., R0
	INC	R0
	MOV	R0, GV+560.
	JMP	EXIT
	.PSECT	CONST
L9816:	.WORD	10
	.ASCII	^LOADLIST^
	.PSECT	BCPL
L214:	JSR	R1, ENTER
	.WORD	L9816
	TST	6(P)
	BNE	L9815
	JMP	EXIT
L9815:
L276:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #46
	BEQ	L9814
	MOV	6(P), 16(P)
	JSR	R0,@GV+462.
	.WORD	16
	JMP	EXIT
L9814:
L277:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+466.
	.WORD	16
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+466.
	.WORD	16
	JMP	EXIT
L215:	BR	L9813
L9822:	JMP	L268
L9821:	JMP	L269
L9820:	JMP	L270
L9819:	JMP	L272
L9818:	JMP	L267
L9813:	.PSECT	GLOBAL
	.=GV+462.
	.WORD	L211
	.WORD	L212
	.=GV+472.
	.WORD	L213
	.=GV+466.
	.WORD	L214
	.=GV+596.
	.PSECT	CONST
L263:	.WORD	L262
	.PSECT	BCPL
	BR	L9812
	.PSECT	CONST
L9811:	.WORD	11
	.ASCII	^EVALCONST^
	.EVEN
	.PSECT	BCPL
L278:	JSR	R1, ENTER
	.WORD	L9811
	TST	6(P)
	BNE	L9810
	MOV	#165, 16(P)
	MOV	GV+540., 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	CLR	R0
	BR	L9809
L9810:
L283:	BR	L9808
L286:	MOV	#166, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	CLR	R0
	BR	L9809
L287:	MOV	6(P), 16(P)
	JSR	R0,@GV+412.
	.WORD	16
	MOV	R0, 10(P)
	MOV	10(P), R0
	INC	R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9807
	MOV	#2, R0
	ADD	10(P), R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	BR	L9809
L9807:
L288:	MOV	#167, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	CLR	R0
	BR	L9809
L289:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	BR	L9809
L290:	MOV	#177777, R0
	BR	L9809
L291:	CLR	R0
	BR	L9809
L292:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	NEG	R0
	BR	L9809
L293:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	COM	R0
	BR	L9809
L294:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	BR	L9806
L9812:	JMP	L281
L9806:	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	ADD	R0, R1
	MOV	R1, R0
	BR	L9809
L9809:	JMP	L282
L9808:	JMP	L284
L295:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	SUB	R0, R1
	MOV	R1, R0
	BR	L9805
L296:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	MUL	R0, R1
	MOV	R1, R0
	BR	L9805
L297:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	MOV	R0, 12(P)
	TST	R1
	SXT	R0
	DIV	12(P), R0
	BR	L9805
L298:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	MOV	R0, 12(P)
	TST	R1
	SXT	R0
	DIV	12(P), R0
	MOV	R1, R0
	BR	L9805
L299:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	XOR	R0, R1
	BR	L9804
L9805:	JMP	L282
L9804:	COM	R1
	MOV	R1, R0
	BR	L9803
L300:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	XOR	R0, R1
	MOV	R1, R0
	BR	L9803
L301:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	ASH	R0, R1
	MOV	R1, R0
	BR	L9803
L302:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	10(P), R1
	MOV	R0, R3
	NEG	R3
	CLR	R0
	ASHC	R3, R0
	MOV	R1, R0
	BR	L9803
L303:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BNE	L9802
	COM	R1
L9802:	MOV	R1, R0
	BR	L9803
	BR	L9801
L9803:	JMP	L282
L9801:L304:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BEQ	L9800
	COM	R1
L9800:	MOV	R1, R0
	BR	L9799
L305:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BGE	L9798
	COM	R1
L9798:	MOV	R1, R0
	BR	L9799
L306:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BGT	L9797
	COM	R1
L9797:	MOV	R1, R0
	BR	L9799
L307:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BLE	L9796
	COM	R1
L9796:	MOV	R1, R0
	BR	L9799
L308:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+470.
	.WORD	16
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	CLR	R1
	CMP	10(P), R0
	BR	L9794
L9799:	JMP	L282
L9794:	BLT	L9795
	COM	R1
L9795:	MOV	R1, R0
	BR	L9793
L309:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 24(P)
	JSR	R0,@GV+470.
	.WORD	24
	TST	R0
	BEQ	L9792
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	BR	L9791
L9792:
L311:	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
L9791:
L310:	JSR	R0,@GV+470.
	.WORD	16
	BR	L9793
	BR	L9790
L284:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#1, T
	BLT	L9788
	CMP	T, #44
	BGT	L9788
	ASL	T
	JMP	@L9789(T)
L9789:	.WORD	L289
	.WORD	L287
	.WORD	L286
	.WORD	L290
	.WORD	L291
	.WORD	L286
	.WORD	L286
	.WORD	L286
	.WORD	L286
	.WORD	L286
	.WORD	L296
	.WORD	L297
	.WORD	L298
	.WORD	L294
	.WORD	L295
	.WORD	L286
	.WORD	L292
	.WORD	L286
	.WORD	L286
	.WORD	L303
	.WORD	L304
	.WORD	L305
	.WORD	L307
	.WORD	L306
	.WORD	L308
	.WORD	L286
	.WORD	L286
	.WORD	L286
	.WORD	L286
	.WORD	L293
	.WORD	L301
	.WORD	L302
	.WORD	L286
	.WORD	L286
	.WORD	L299
	.WORD	L300
	.WORD	L309
L9790:
L285:
L9793:
L282:	JMP	EXIT
	.PSECT	CONST
L9787:	.WORD	7
	.ASCII	^ISCONST^
	.EVEN
	.PSECT	BCPL
L279:	JSR	R1, ENTER
	.WORD	L9787
	BR	L9786
	.PSECT	CONST
L9785:	.WORD	5
	.ASCII	^DUMMY^
	.EVEN
	.PSECT	BCPL
L315:	JSR	R1, ENTER
	.WORD	L9785
	MOV	L314, 14(P)
	MOV	L313, 16(P)
	JSR	R0,@GV+38.
	.WORD	14
	JMP	EXIT
L9786:
L317:	MOV	GV+302., 10(P)
	MOV	L316, GV+302.
	JSR	R0,@GV+36.
	.WORD	20
	MOV	R0, L314
	MOV	L319, L313
	MOV	6(P), 20(P)
	JSR	R0,@GV+470.
	.WORD	20
	MOV	R0, GV+504.
	MOV	10(P), GV+302.
	MOV	#177777, R0
	BR	L9784
L318:	MOV	10(P), GV+302.
	CLR	R0
	BR	L9784
L9784:
L312:	JMP	EXIT
	.PSECT	CONST
L9783:	.WORD	10
	.ASCII	^NOLABELS^
	.PSECT	BCPL
L280:	JSR	R1, ENTER
	.WORD	L9783
	TST	6(P)
	BNE	L9782
	MOV	#177777, R0
	BR	L9781
L9782:
L321:	BR	L9780
L324:	MOV	#177777, R0
	BR	L9781
L9788:	JMP	L286
L325:
L326:	CLR	R0
	BR	L9781
L327:
L328:
L329:
L330:
L331:
L332:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+502.
	.WORD	16
	BR	L9781
L333:
L334:
L335:
L336:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+502.
	.WORD	16
	BR	L9781
L337:	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+502.
	.WORD	16
	TST	R0
	BEQ	L9779
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+502.
	.WORD	16
	MOV	R0, 10(P)
	BR	L9778
L9779:
L339:	CLR	10(P)
L9778:
L338:	MOV	10(P), R0
	BR	L9781
	BR	L9777
L9780:
L322:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#66, T
	BLT	L324
	CMP	T, #23
	BGT	L324
	ASL	T
	JMP	@L9776(T)
L9776:	.WORD	L325
	.WORD	L337
	.WORD	L324
	.WORD	L327
	.WORD	L328
	.WORD	L329
	.WORD	L330
	.WORD	L333
	.WORD	L334
	.WORD	L335
	.WORD	L324
	.WORD	L324
	.WORD	L324
	.WORD	L324
	.WORD	L324
	.WORD	L324
	.WORD	L331
	.WORD	L326
	.WORD	L336
	.WORD	L332
L9777:
L323:
L9781:
L320:	JMP	EXIT
L281:	.PSECT	GLOBAL
	.=GV+470.
	.WORD	L278
	.=GV+500.
	.WORD	L279
	.WORD	L280
	.=GV+596.
	.PSECT	CONST
L313:	.WORD	0
L314:	.WORD	0
L316:	.WORD	L315
L319:	.WORD	L318
	.PSECT	BCPL
	BR	L9775
	.PSECT	CONST
L9774:	.WORD	6
	.ASCII	^ASSIGN^
	.PSECT	BCPL
L340:	JSR	R1, ENTER
	.WORD	L9774
	TST	6(P)
	BEQ	L9773
	TST	10(P)
	BNE	L9772
L9773:
L344:	MOV	#156, 20(P)
	MOV	GV+540., 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	JMP	EXIT
L9772:
L343:	BR	L9771
L347:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #46
	BEQ	L9770
	MOV	#160, 20(P)
	MOV	GV+540., 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	JMP	EXIT
L9770:
L348:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	INC	R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 20(P)
	MOV	R1, 22(P)
	JSR	R0,@GV+460.
	.WORD	20
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 20(P)
	MOV	R1, 22(P)
	JSR	R0,@GV+460.
	.WORD	20
	JMP	EXIT
L349:	MOV	10(P), 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	P, T
	ADD	#20, T
	MOV	6(P), (T)+
	MOV	#124, (T)+
	MOV	#121, (T)+
	MOV	#122, (T)+
	CLR	(T)+
	JSR	R0,@GV+474.
	.WORD	20
	DEC	GV+560.
	JMP	EXIT
L350:
L351:
L352:	MOV	10(P), 20(P)
	JSR	R0,@GV+462.
	.WORD	20
	MOV	6(P), 20(P)
	JSR	R0,@GV+464.
	.WORD	20
	MOV	#123, 20(P)
	JSR	R0,@GV+580.
	.WORD	20
	BR	L9769
L9775:	JMP	L342
L9769:	SUB	#2, GV+560.
	JMP	EXIT
L353:	MOV	#155, 20(P)
	MOV	GV+540., 22(P)
	JSR	R0,@GV+302.
	.WORD	20
	BR	L9768
L9771:	JMP	L345
L345:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #2
	BEQ	L349
	CMP	T, #10
	BEQ	L350
	CMP	T, #11
	BEQ	L351
	CMP	T, #45
	BEQ	L352
	CMP	T, #46
	BEQ	L9767
	BR	L353
L9768:
L346:	JMP	EXIT
	.PSECT	CONST
L9766:	.WORD	11
	.ASCII	^TRANSNAME^
	.EVEN
	.PSECT	BCPL
L341:	JSR	R1, ENTER
	.WORD	L9766
	MOV	6(P), 26(P)
	JSR	R0,@GV+412.
	.WORD	26
	MOV	R0, 20(P)
	MOV	20(P), R0
	INC	R0
	ADD	GV+520., R0
	ASL	R0
	MOV	(R0), R0
	MOV	#2, R1
	ADD	20(P), R1
	ADD	GV+520., R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 22(P)
	MOV	R1, 24(P)
	TST	20(P)
	BNE	L9765
	MOV	#163, 34(P)
	MOV	6(P), 36(P)
	JSR	R0,@GV+302.
	.WORD	34
	MOV	10(P), 34(P)
	MOV	#2, 36(P)
	JSR	R0,@GV+582.
	.WORD	34
	JMP	EXIT
L9765:
L354:	BR	L9764
L357:	CMP	20(P), GV+526.
	BGE	L9763
	MOV	#164, 34(P)
	MOV	6(P), 36(P)
	JSR	R0,@GV+302.
	.WORD	34
L9763:
L358:	MOV	10(P), 34(P)
	MOV	24(P), 36(P)
	JSR	R0,@GV+582.
	.WORD	34
	JMP	EXIT
L359:	MOV	12(P), 34(P)
	MOV	24(P), 36(P)
	JSR	R0,@GV+582.
	.WORD	34
	JMP	EXIT
L360:	MOV	14(P), 34(P)
	MOV	24(P), 36(P)
	JSR	R0,@GV+584.
	.WORD	34
	JMP	EXIT
L361:	TST	16(P)
	BNE	L9762
	MOV	#161, 34(P)
	MOV	6(P), 36(P)
	JSR	R0,@GV+302.
	.WORD	34
	MOV	10(P), 16(P)
L9762:
L362:	MOV	16(P), 34(P)
	BR	L9761
L9767:	JMP	L347
L9761:	MOV	24(P), 36(P)
	JSR	R0,@GV+582.
	.WORD	34
	BR	L9760
L9764:
L355:	MOV	22(P), T
	CMP	T, #1
	BEQ	L361
	CMP	T, #114
	BEQ	L359
	CMP	T, #115
	BEQ	L357
	CMP	T, #116
	BEQ	L360
	BR	L9760
L9760:
L356:	JMP	EXIT
L342:	.PSECT	GLOBAL
	.=GV+460.
	.WORD	L340
	.=GV+474.
	.WORD	L341
	.=GV+596.
	.PSECT	BCPL
	BR	L9759
	.PSECT	CONST
L9758:	.WORD	7
	.ASCII	^COMPLAB^
	.EVEN
	.PSECT	BCPL
L363:	JSR	R1, ENTER
	.WORD	L9758
	MOV	#132, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+584.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9757:	.WORD	11
	.ASCII	^COMPENTRY^
	.EVEN
	.PSECT	BCPL
L364:	JSR	R1, ENTER
	.WORD	L9757
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 12(P)
	CLR	R0
	ADD	12(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	#136, 22(P)
	MOV	R0, 24(P)
	MOV	10(P), 26(P)
	JSR	R0,@GV+588.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+596.
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9756:	.WORD	13
	.ASCII	^COMPDATALAB^
	.EVEN
	.PSECT	BCPL
L365:	JSR	R1, ENTER
	.WORD	L9756
	MOV	#144, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+584.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9755:	.WORD	10
	.ASCII	^COMPJUMP^
	.PSECT	BCPL
L366:	JSR	R1, ENTER
	.WORD	L9755
	MOV	#125, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+584.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9754:	.WORD	4
	.ASCII	^OUT1^
	.PSECT	BCPL
L367:	JSR	R1, ENTER
	.WORD	L9754
	MOV	6(P), 16(P)
	JSR	R0,@GV+598.
	.WORD	16
	JSR	R0,@GV+86.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9753:	.WORD	4
	.ASCII	^OUT2^
	.PSECT	BCPL
L368:	JSR	R1, ENTER
	.WORD	L9753
	MOV	6(P), 20(P)
	JSR	R0,@GV+598.
	.WORD	20
	MOV	#40, 20(P)
	JSR	R0,@GV+56.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+64.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
	JMP	EXIT
L9759:	JMP	L376
	.PSECT	CONST
L9752:	.WORD	5
	.ASCII	^OUT2P^
	.EVEN
	.PSECT	BCPL
L369:	JSR	R1, ENTER
	.WORD	L9752
	MOV	6(P), 20(P)
	JSR	R0,@GV+598.
	.WORD	20
	.PSECT	CONST
L9751:	.WORD	2
	.ASCII	^ L^
	.PSECT	BCPL
	MOV	#L9751/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+64.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9750:	.WORD	5
	.ASCII	^OUT3P^
	.EVEN
	.PSECT	BCPL
L370:	JSR	R1, ENTER
	.WORD	L9750
	MOV	6(P), 22(P)
	JSR	R0,@GV+598.
	.WORD	22
	MOV	#40, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
	MOV	10(P), 22(P)
	JSR	R0,@GV+64.
	.WORD	22
	.PSECT	CONST
L9749:	.WORD	2
	.ASCII	^ L^
	.PSECT	BCPL
	MOV	#L9749/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+64.
	.WORD	22
	JSR	R0,@GV+86.
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9748:	.WORD	4
	.ASCII	^OUTN^
	.PSECT	BCPL
L371:	JSR	R1, ENTER
	.WORD	L9748
	MOV	6(P), 16(P)
	JSR	R0,@GV+64.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9747:	.WORD	4
	.ASCII	^OUTL^
	.PSECT	BCPL
L372:	JSR	R1, ENTER
	.WORD	L9747
	.PSECT	CONST
L9746:	.WORD	2
	.ASCII	^ L^
	.PSECT	BCPL
	MOV	#L9746/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@GV+64.
	.WORD	16
	JSR	R0,@GV+86.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9745:	.WORD	4
	.ASCII	^OUTS^
	.PSECT	BCPL
L373:	JSR	R1, ENTER
	.WORD	L9745
	MOV	P, R0
	ASR	R0
	ADD	#5, R0
	MOV	R0, 10(P)
	MOV	6(P), 1022(P)
	MOV	10(P), 1024(P)
	JSR	R0,@GV+42.
	.WORD	1022
	CLR	R0
	ADD	10(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	#1, 1014(P)
	MOV	R0, 1016(P)
	BR	L9744
L378:	MOV	1014(P), R1
	TST	R1
	SXT	R0
	DIV	#22, R0
	TST	R1
	BNE	L9743
	JSR	R0,@GV+86.
	.WORD	1026
L9743:
L379:	MOV	1014(P), R0
	ADD	10(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 1026(P)
	JSR	R0,@GV+594.
	.WORD	1026
	INC	1014(P)
L9744:
L377:	CMP	1014(P), 1016(P)
	BLE	L378
	JSR	R0,@GV+86.
	.WORD	1022
	JMP	EXIT
	.PSECT	CONST
L9742:	.WORD	4
	.ASCII	^OUTC^
	.PSECT	BCPL
L374:	JSR	R1, ENTER
	.WORD	L9742
	MOV	6(P), 16(P)
	JSR	R0,@GV+64.
	.WORD	16
	MOV	#40, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9741:	.WORD	7
	.ASCII	^WRITEOP^
	.EVEN
	.PSECT	BCPL
L375:	JSR	R1, ENTER
	.WORD	L9741
	BR	L9740
L383:	MOV	#307, 16(P)
	MOV	GV+540., 20(P)
	JSR	R0,@GV+302.
	.WORD	16
	.PSECT	CONST
L9739:	.WORD	5
	.ASCII	^ERROR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9739/2, R0
	BR	L9738
L384:	.PSECT	CONST
L9737:	.WORD	4
	.ASCII	^MULT^
	.PSECT	BCPL
	MOV	#L9737/2, R0
	BR	L9738
L385:	.PSECT	CONST
L9736:	.WORD	3
	.ASCII	^DIV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9736/2, R0
	BR	L9738
L386:	.PSECT	CONST
L9735:	.WORD	3
	.ASCII	^REM^
	.EVEN
	.PSECT	BCPL
	MOV	#L9735/2, R0
	BR	L9738
L387:	.PSECT	CONST
L9734:	.WORD	4
	.ASCII	^PLUS^
	.PSECT	BCPL
	MOV	#L9734/2, R0
	BR	L9738
L388:	.PSECT	CONST
L9733:	.WORD	5
	.ASCII	^MINUS^
	.EVEN
	.PSECT	BCPL
	MOV	#L9733/2, R0
	BR	L9738
L389:	.PSECT	CONST
L9732:	.WORD	2
	.ASCII	^EQ^
	.PSECT	BCPL
	MOV	#L9732/2, R0
	BR	L9738
L390:	.PSECT	CONST
L9731:	.WORD	2
	.ASCII	^NE^
	.PSECT	BCPL
	MOV	#L9731/2, R0
	BR	L9738
L391:	.PSECT	CONST
L9730:	.WORD	2
	.ASCII	^LS^
	.PSECT	BCPL
	MOV	#L9730/2, R0
	BR	L9738
L392:	.PSECT	CONST
L9729:	.WORD	2
	.ASCII	^GR^
	.PSECT	BCPL
	MOV	#L9729/2, R0
	BR	L9738
L393:	.PSECT	CONST
L9728:	.WORD	2
	.ASCII	^LE^
	.PSECT	BCPL
	MOV	#L9728/2, R0
	BR	L9738
L394:	.PSECT	CONST
L9727:	.WORD	2
	.ASCII	^GE^
	.PSECT	BCPL
	MOV	#L9727/2, R0
	BR	L9738
L395:	.PSECT	CONST
L9726:	.WORD	6
	.ASCII	^LSHIFT^
	.PSECT	BCPL
	MOV	#L9726/2, R0
	BR	L9738
L396:	.PSECT	CONST
L9725:	.WORD	6
	.ASCII	^RSHIFT^
	.PSECT	BCPL
	MOV	#L9725/2, R0
	BR	L9738
L397:	.PSECT	CONST
L9724:	.WORD	6
	.ASCII	^LOGAND^
	.PSECT	BCPL
	MOV	#L9724/2, R0
	BR	L9738
L398:	.PSECT	CONST
L9723:	.WORD	5
	.ASCII	^LOGOR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9723/2, R0
	BR	L9738
L399:	.PSECT	CONST
L9722:	.WORD	3
	.ASCII	^EQV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9722/2, R0
	BR	L9738
L400:	.PSECT	CONST
L9721:	.WORD	4
	.ASCII	^NEQV^
	.PSECT	BCPL
	MOV	#L9721/2, R0
	BR	L9738
L401:	.PSECT	CONST
L9720:	.WORD	3
	.ASCII	^NEG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9720/2, R0
	BR	L9738
L402:	.PSECT	CONST
L9719:	.WORD	3
	.ASCII	^NOT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9719/2, R0
	BR	L9738
L403:	.PSECT	CONST
L9718:	.WORD	2
	.ASCII	^RV^
	.PSECT	BCPL
	MOV	#L9718/2, R0
	BR	L9738
L404:	.PSECT	CONST
L9717:	.WORD	4
	.ASCII	^TRUE^
	.PSECT	BCPL
	MOV	#L9717/2, R0
	BR	L9738
L405:	.PSECT	CONST
L9716:	.WORD	5
	.ASCII	^FALSE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9716/2, R0
	BR	L9738
L406:	.PSECT	CONST
L9715:	.WORD	2
	.ASCII	^LP^
	.PSECT	BCPL
	MOV	#L9715/2, R0
	BR	L9738
L407:	.PSECT	CONST
L9714:	.WORD	2
	.ASCII	^LG^
	.PSECT	BCPL
	MOV	#L9714/2, R0
	BR	L9738
L408:	.PSECT	CONST
L9713:	.WORD	2
	.ASCII	^LN^
	.PSECT	BCPL
	MOV	#L9713/2, R0
	BR	L9738
L409:	.PSECT	CONST
L9712:	.WORD	4
	.ASCII	^LSTR^
	.PSECT	BCPL
	MOV	#L9712/2, R0
	BR	L9738
L410:	.PSECT	CONST
L9711:	.WORD	2
	.ASCII	^LL^
	.PSECT	BCPL
	MOV	#L9711/2, R0
	BR	L9738
L411:	.PSECT	CONST
L9710:	.WORD	3
	.ASCII	^LLP^
	.EVEN
	.PSECT	BCPL
	MOV	#L9710/2, R0
	BR	L9738
L412:	.PSECT	CONST
L9709:	.WORD	3
	.ASCII	^LLG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9709/2, R0
	BR	L9738
L413:	.PSECT	CONST
L9708:	.WORD	3
	.ASCII	^LLL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9708/2, R0
	BR	L9738
L414:	.PSECT	CONST
L9707:	.WORD	2
	.ASCII	^SP^
	.PSECT	BCPL
	MOV	#L9707/2, R0
	BR	L9738
L415:	.PSECT	CONST
L9706:	.WORD	2
	.ASCII	^SG^
	.PSECT	BCPL
	MOV	#L9706/2, R0
	BR	L9738
L416:	.PSECT	CONST
L9705:	.WORD	2
	.ASCII	^SL^
	.PSECT	BCPL
	MOV	#L9705/2, R0
	BR	L9738
L9740:	JMP	L381
L417:	.PSECT	CONST
L9704:	.WORD	5
	.ASCII	^STIND^
	.EVEN
	.PSECT	BCPL
	MOV	#L9704/2, R0
	BR	L9738
L418:	.PSECT	CONST
L9703:	.WORD	4
	.ASCII	^JUMP^
	.PSECT	BCPL
	MOV	#L9703/2, R0
	BR	L9738
L419:	.PSECT	CONST
L9702:	.WORD	2
	.ASCII	^JT^
	.PSECT	BCPL
	MOV	#L9702/2, R0
	BR	L9738
L9738:	JMP	L380
L420:	.PSECT	CONST
L9701:	.WORD	2
	.ASCII	^JF^
	.PSECT	BCPL
	MOV	#L9701/2, R0
	BR	L9700
L421:	.PSECT	CONST
L9699:	.WORD	4
	.ASCII	^GOTO^
	.PSECT	BCPL
	MOV	#L9699/2, R0
	BR	L9700
L422:	.PSECT	CONST
L9698:	.WORD	3
	.ASCII	^LAB^
	.EVEN
	.PSECT	BCPL
	MOV	#L9698/2, R0
	BR	L9700
L423:	.PSECT	CONST
L9697:	.WORD	5
	.ASCII	^STACK^
	.EVEN
	.PSECT	BCPL
	MOV	#L9697/2, R0
	BR	L9700
L424:	.PSECT	CONST
L9696:	.WORD	5
	.ASCII	^STORE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9696/2, R0
	BR	L9700
L425:	.PSECT	CONST
L9695:	.WORD	5
	.ASCII	^ENTRY^
	.EVEN
	.PSECT	BCPL
	MOV	#L9695/2, R0
	BR	L9700
L426:	.PSECT	CONST
L9694:	.WORD	4
	.ASCII	^SAVE^
	.PSECT	BCPL
	MOV	#L9694/2, R0
	BR	L9700
L427:	.PSECT	CONST
L9693:	.WORD	4
	.ASCII	^FNAP^
	.PSECT	BCPL
	MOV	#L9693/2, R0
	BR	L9700
L428:	.PSECT	CONST
L9692:	.WORD	4
	.ASCII	^FNRN^
	.PSECT	BCPL
	MOV	#L9692/2, R0
	BR	L9700
L429:	.PSECT	CONST
L9691:	.WORD	4
	.ASCII	^RTAP^
	.PSECT	BCPL
	MOV	#L9691/2, R0
	BR	L9700
L430:	.PSECT	CONST
L9690:	.WORD	4
	.ASCII	^RTRN^
	.PSECT	BCPL
	MOV	#L9690/2, R0
	BR	L9700
L431:	.PSECT	CONST
L9689:	.WORD	3
	.ASCII	^RES^
	.EVEN
	.PSECT	BCPL
	MOV	#L9689/2, R0
	BR	L9700
L432:	.PSECT	CONST
L9688:	.WORD	6
	.ASCII	^RSTACK^
	.PSECT	BCPL
	MOV	#L9688/2, R0
	BR	L9700
L433:	.PSECT	CONST
L9687:	.WORD	6
	.ASCII	^FINISH^
	.PSECT	BCPL
	MOV	#L9687/2, R0
	BR	L9700
L434:	.PSECT	CONST
L9686:	.WORD	10
	.ASCII	^SWITCHON^
	.PSECT	BCPL
	MOV	#L9686/2, R0
	BR	L9700
L435:	.PSECT	CONST
L9685:	.WORD	4
	.ASCII	^CODE^
	.PSECT	BCPL
	MOV	#L9685/2, R0
	BR	L9700
L436:	.PSECT	CONST
L9684:	.WORD	6
	.ASCII	^GLOBAL^
	.PSECT	BCPL
	MOV	#L9684/2, R0
	BR	L9700
L437:	.PSECT	CONST
L9683:	.WORD	7
	.ASCII	^DATALAB^
	.EVEN
	.PSECT	BCPL
	MOV	#L9683/2, R0
	BR	L9700
L438:	.PSECT	CONST
L9682:	.WORD	5
	.ASCII	^ITEML^
	.EVEN
	.PSECT	BCPL
	MOV	#L9682/2, R0
	BR	L9700
L439:	.PSECT	CONST
L9681:	.WORD	5
	.ASCII	^ITEMN^
	.EVEN
	.PSECT	BCPL
	MOV	#L9681/2, R0
	BR	L9700
	BR	L9680
L381:	MOV	6(P), T
	SUB	#4, T
	BLT	L9678
	CMP	T, #142
	BGT	L9678
	ASL	T
	JMP	@L9679(T)
L9700:	JMP	L380
L9680:	JMP	L382
L9678:	JMP	L383
L9679:	.WORD	L404
	.WORD	L405
	.WORD	L383
	.WORD	L383
	.WORD	L403
	.WORD	L383
	.WORD	L427
	.WORD	L384
	.WORD	L385
	.WORD	L386
	.WORD	L387
	.WORD	L388
	.WORD	L383
	.WORD	L401
	.WORD	L383
	.WORD	L383
	.WORD	L389
	.WORD	L390
	.WORD	L391
	.WORD	L392
	.WORD	L393
	.WORD	L394
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L402
	.WORD	L395
	.WORD	L396
	.WORD	L397
	.WORD	L398
	.WORD	L399
	.WORD	L400
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L406
	.WORD	L407
	.WORD	L408
	.WORD	L409
	.WORD	L410
	.WORD	L411
	.WORD	L412
	.WORD	L413
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L429
	.WORD	L421
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L433
	.WORD	L383
	.WORD	L434
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L436
	.WORD	L383
	.WORD	L383
	.WORD	L383
	.WORD	L435
	.WORD	L415
	.WORD	L416
	.WORD	L417
	.WORD	L414
	.WORD	L418
	.WORD	L419
	.WORD	L420
	.WORD	L383
	.WORD	L383
	.WORD	L422
	.WORD	L423
	.WORD	L424
	.WORD	L432
	.WORD	L425
	.WORD	L426
	.WORD	L428
	.WORD	L430
	.WORD	L431
	.WORD	L383
	.WORD	L437
	.WORD	L438
	.WORD	L439
L382:
L380:	MOV	R0, 10(P)
	MOV	10(P), 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	JMP	EXIT
L376:	.PSECT	GLOBAL
	.=GV+480.
	.WORD	L363
	.=GV+484.
	.WORD	L364
	.=GV+468.
	.WORD	L365
	.=GV+482.
	.WORD	L366
	.=GV+580.
	.WORD	L367
	.WORD	L368
	.WORD	L369
	.=GV+588.
	.WORD	L370
	.WORD	L371
	.WORD	L372
	.=GV+596.
	.WORD	L373
	.=GV+594.
	.WORD	L374
	.=GV+598.
	.WORD	L375
	.=GV+598.
	.GLOBL	G0
	.GLOBL	G4
	.GLOBL	G18
	.GLOBL	G19
	.GLOBL	G21
	.GLOBL	G28
	.GLOBL	G32
	.GLOBL	G36
	.GLOBL	G43
	.END