.TITLE	BCPL
	T=%4
	P=%5
	.ENABL	LC
	.PSECT	GLOBAL,GBL,OVR
GV:
	.PSECT	BCPL
	BR	L9999
	.PSECT	CONST
L9998:	.WORD	11
	.ASCII	^MOREINPUT^
	.EVEN
	.PSECT	BCPL
L18:	JSR	R1, ENTER
	.WORD	L9998
	TST	L2
	BEQ	L9997
	MOV	GV+6., 14(P)
	JSR	R0,@GV+22.
	.WORD	14
	CLR	L2
L9997:
L56:	TST	GV+140.
	BNE	L9996
	MOV	L42, GV+4.
	MOV	L8, 14(P)
	CLR	16(P)
	JSR	R0,@GV+32.
	.WORD	14
	MOV	R0, L9
	MOV	L6, GV+4.
	TST	L9
	BNE	L9995
	CLR	R0
	BR	L9994
L9995:
L58:	MOV	L48, GV+4.
	MOV	L9, 14(P)
	JSR	R0,@L28
	.WORD	24
	MOV	R0, 16(P)
	MOV	#170, 20(P)
	JSR	R0,@GV+18.
	.WORD	14
	MOV	R0, L16
	MOV	L6, GV+4.
L9996:
L57:	MOV	L16, GV+6.
	MOV	#177777, L2
	CLR	GV+140.
	MOV	L1, GV+164.
	MOV	#177777, R0
L9994:
L55:	JMP	EXIT
	.PSECT	CONST
L9993:	.WORD	6
	.ASCII	^RDLINE^
	.PSECT	BCPL
L20:	JSR	R1, ENTER
	.WORD	L9993
	MOV	GV+6., 14(P)
	MOV	L13, 16(P)
	JSR	R0,@GV+26.
	.WORD	14
	MOV	GV+6., 14(P)
	JSR	R0,@GV+24.
	.WORD	14
	TST	R0
	BEQ	L9992
	JSR	R0,@L19
	.WORD	14
	TST	R0
	BEQ	L9991
	JSR	R0,@L21
	.WORD	14
	BR	L9990
L9991:
L61:	CLR	14(P)
	JSR	R0,@L53
	.WORD	14
L9990:
L62:	BR	L9989
L9999:	JMP	L54
L9992:
L59:	CLR	R0
	ADD	L13, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, L11
	TST	GV+164.
	BEQ	L9988
	MOV	L10, R1
	TST	R1
	SXT	R0
	DIV	#74, R0
	TST	R1
	BNE	L9987
	.PSECT	CONST
L9986:	.WORD	2
	.ASCII	<14><12>
	.PSECT	BCPL
	MOV	#L9986/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
L9987:
L64:	MOV	L10, R0
	INC	R0
	MOV	R0, L10
	MOV	L10, 14(P)
	MOV	#3, 16(P)
	JSR	R0,@GV+80.
	.WORD	14
	.PSECT	CONST
L9985:	.WORD	2
	.ASCII	^  ^
	.PSECT	BCPL
	MOV	#L9985/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	MOV	L13, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	JSR	R0,@GV+86.
	.WORD	14
L9988:
L63:	MOV	L13, 14(P)
	MOV	L13, 16(P)
	JSR	R0,@GV+42.
	.WORD	14
	MOV	#1, L12
L9989:
L60:	JMP	EXIT
	.PSECT	CONST
L9984:	.WORD	3
	.ASCII	^RCH^
	.EVEN
	.PSECT	BCPL
L22:	JSR	R1, ENTER
	.WORD	L9984
	TST	L12
	BNE	L9983
	JSR	R0,@L21
	.WORD	14
L9983:
L65:	CMP	L12, L11
	BLE	L9982
	MOV	#12, GV+152.
	CLR	L12
	BR	L9981
L9982:
L66:	MOV	L12, R0
	ADD	L13, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, GV+152.
	MOV	L12, R0
	INC	R0
	MOV	R0, L12
L9981:
L67:	JMP	EXIT
	.PSECT	CONST
L9980:	.WORD	11
	.ASCII	^MARKERROR^
	.EVEN
	.PSECT	BCPL
L23:	JSR	R1, ENTER
	.WORD	L9980
	TST	GV+164.
	BEQ	L9979
	MOV	#1, 6(P)
	BR	L9978
L71:	MOV	#40, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	INC	6(P)
L9978:
L70:	CMP	6(P), #5
	BLE	L71
	BR	L9977
L9979:
L68:	MOV	#1, 6(P)
	MOV	L11, 10(P)
	BR	L9976
L73:	MOV	6(P), R0
	ADD	L13, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+56.
	.WORD	20
	INC	6(P)
L9976:
L72:	CMP	6(P), 10(P)
	BLE	L73
	JSR	R0,@GV+86.
	.WORD	14
L9977:
L69:	MOV	#2, 6(P)
	MOV	L12, 10(P)
	BR	L9975
L75:	MOV	#40, 20(P)
	JSR	R0,@GV+56.
	.WORD	20
	INC	6(P)
L9975:
L74:	CMP	6(P), 10(P)
	BLE	L75
	.PSECT	CONST
L9974:	.WORD	2
	.ASCII	<136><12>
	.PSECT	BCPL
	MOV	#L9974/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9973:	.WORD	12
	.ASCII	^PERFORMGET^
	.PSECT	BCPL
L24:	JSR	R1, ENTER
	.WORD	L9973
	MOV	L50, GV+4.
	MOV	6(P), 16(P)
	JSR	R0,@GV+30.
	.WORD	16
	MOV	R0, L7
	MOV	L7, 16(P)
	CLR	20(P)
	JSR	R0,@GV+34.
	.WORD	16
	MOV	R0, L9
	MOV	L9, 16(P)
	JSR	R0,@L34
	.WORD	26
	MOV	R0, 20(P)
	MOV	#170, 22(P)
	JSR	R0,@GV+18.
	.WORD	16
	MOV	R0, GV+6.
	MOV	L7, 16(P)
	JSR	R0,@GV+12.
	.WORD	16
	MOV	#177777, GV+140.
	TST	GV+164.
	BEQ	L9972
	MOV	GV+124., GV+164.
L9972:
L76:	CLR	GV+124.
	MOV	L6, GV+4.
	JSR	R0,@L21
	.WORD	16
	JSR	R0,@GV+150.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9971:	.WORD	5
	.ASCII	^DUMMY^
	.EVEN
	.PSECT	BCPL
L25:	JSR	R1, ENTER
	.WORD	L9971
	.MCALL	NMBLK$
IDFN:	NMBLK$	INPUT,BCL
ODFN:	NMBLK$	OUTPUT,OCO
LDFN:	NMBLK$	OUTPUT,LST
GDFN:	NMBLK$	BCPLIB,GET
	.MCALL	CSI$SW,CSI$ND
SWTB:	CSI$SW	TR,-1,GV+120.
	CSI$SW	NA,-1,GV+122.
	CSI$SW	GE,-1,GV+124.
	CSI$ND
	JMP	EXIT
	.PSECT	CONST
L9970:	.WORD	5
	.ASCII	^IDFNB^
	.EVEN
	.PSECT	BCPL
L27:	JSR	R1, ENTER
	.WORD	L9970
	MOV	#IDFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9969:	.WORD	5
	.ASCII	^ODFNB^
	.EVEN
	.PSECT	BCPL
L29:	JSR	R1, ENTER
	.WORD	L9969
	MOV	#ODFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9968:	.WORD	5
	.ASCII	^LDFNB^
	.EVEN
	.PSECT	BCPL
L31:	JSR	R1, ENTER
	.WORD	L9968
	MOV	#LDFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9967:	.WORD	5
	.ASCII	^GDFNB^
	.EVEN
	.PSECT	BCPL
L33:	JSR	R1, ENTER
	.WORD	L9967
	MOV	#GDFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9966:	.WORD	6
	.ASCII	^SWITCH^
	.PSECT	BCPL
L35:	JSR	R1, ENTER
	.WORD	L9966
	MOV	#SWTB/2,R0
	JMP	EXIT
	.PSECT	CONST
L9965:	.WORD	6
	.ASCII	^CMLERR^
	.PSECT	BCPL
L37:	JSR	R1, ENTER
	.WORD	L9965
	.PSECT	CONST
L9964:	.WORD	23
	.ASCII	^COMMAND LINE ERROR^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9964/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	MOV	GV+144., 14(P)
	JSR	R0,@GV+60.
	.WORD	14
	JMP	STOP
	JMP	EXIT
	.PSECT	CONST
L9963:	.WORD	6
	.ASCII	^SYNERR^
	.PSECT	BCPL
L39:	JSR	R1, ENTER
	.WORD	L9963
	.PSECT	CONST
L9962:	.WORD	14
	.ASCII	^SYNTAX ERROR^
	.PSECT	BCPL
	MOV	#L9962/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9961:	.WORD	5
	.ASCII	^SWERR^
	.EVEN
	.PSECT	BCPL
L41:	JSR	R1, ENTER
	.WORD	L9961
	.PSECT	CONST
L9960:	.WORD	16
	.ASCII	^ILLEGAL SWITCH^
	.PSECT	BCPL
	MOV	#L9960/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9959:	.WORD	6
	.ASCII	^OOPERR^
	.PSECT	BCPL
L43:	JSR	R1, ENTER
	.WORD	L9959
	.PSECT	CONST
L9958:	.WORD	30
	.ASCII	^OPEN FAIL ON OUTPUT FILE^
	.PSECT	BCPL
	MOV	#L9958/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9957:	.WORD	6
	.ASCII	^LOPERR^
	.PSECT	BCPL
L45:	JSR	R1, ENTER
	.WORD	L9957
	.PSECT	CONST
L9956:	.WORD	26
	.ASCII	^OPEN FAIL ON LIST FILE^
	.PSECT	BCPL
	MOV	#L9956/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9955:	.WORD	6
	.ASCII	^IOPERR^
	.PSECT	BCPL
L47:	JSR	R1, ENTER
	.WORD	L9955
	.PSECT	CONST
L9954:	.WORD	27
	.ASCII	^OPEN FAIL ON INPUT FILE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9954/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9953:	.WORD	6
	.ASCII	^GETERR^
	.PSECT	BCPL
L49:	JSR	R1, ENTER
	.WORD	L9953
	MOV	L7, 14(P)
	JSR	R0,@GV+12.
	.WORD	14
	.PSECT	CONST
L9952:	.WORD	20
	.ASCII	^FAILURE IN 'GET'^
	.PSECT	BCPL
	MOV	#L9952/2, 14(P)
	JSR	R0,@L53
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9951:	.WORD	13
	.ASCII	^REPORTERROR^
	.EVEN
	.PSECT	BCPL
L51:	JSR	R1, ENTER
	.WORD	L9951
	MOV	6(P), 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
	MOV	L17, R0
	INC	R0
	MOV	R0, L17
	CMP	L17, GV+148.
	BLT	L9950
	CLR	20(P)
	JSR	R0,@L53
	.WORD	20
L9950:
L77:	JMP	EXIT
	.PSECT	CONST
L9949:	.WORD	6
	.ASCII	^ENDJOB^
	.PSECT	BCPL
L52:	JSR	R1, ENTER
	.WORD	L9949
	MOV	GV+144., GV+8.
	TST	6(P)
	BNE	L9948
	TST	L17
	BLE	L9947
	.PSECT	CONST
L9946:	.WORD	14
	.ASCII	^COMPILATION ^
	.PSECT	BCPL
	MOV	#L9946/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	CMP	L17, GV+148.
	BLT	L9945
	.PSECT	CONST
L9944:	.WORD	7
	.ASCII	^ABORTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9944/2, 16(P)
	BR	L9943
L9945:
L82:	.PSECT	CONST
L9942:	.WORD	6
	.ASCII	^FAILED^
	.PSECT	BCPL
	MOV	#L9942/2, 16(P)
L9943:
L81:	JSR	R0,@GV+72.
	.WORD	16
	.PSECT	CONST
L9941:	.WORD	3
	.ASCII	^ - ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9941/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	MOV	L17, 16(P)
	JSR	R0,@GV+64.
	.WORD	16
	.PSECT	CONST
L9940:	.WORD	6
	.ASCII	^ ERROR^
	.PSECT	BCPL
	MOV	#L9940/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	CMP	#1, L17
	BEQ	L9939
	MOV	#123, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
L9939:
L83:	JSR	R0,@GV+86.
	.WORD	16
L9947:
L80:	BR	L9938
L9948:
L78:	.PSECT	CONST
L9937:	.WORD	10
	.ASCII	^BCPL -- ^
	.PSECT	BCPL
	MOV	#L9937/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	JSR	R0,@GV+86.
	.WORD	16
L9938:
L79:	MOV	L5, 16(P)
	MOV	L4, 20(P)
	JSR	R0,@GV+38.
	.WORD	16
	JMP	EXIT
L54:L84:	MOV	P, R0
	ASR	R0
	ADD	#4, R0
	MOV	R0, 6(P)
	MOV	P, R0
	ASR	R0
	ADD	#176, R0
	MOV	R0, 372(P)
	MOV	P, R0
	ASR	R0
	ADD	#370, R0
	MOV	R0, 756(P)
	MOV	P, R0
	ASR	R0
	ADD	#562, R0
	MOV	R0, 1342(P)
	MOV	P, R0
	ASR	R0
	ADD	#635, R0
	MOV	R0, 1470(P)
	MOV	P, R0
	ASR	R0
	ADD	#644, R0
	MOV	R0, 1506(P)
	MOV	P, R0
	ASR	R0
	ADD	#653, R0
	MOV	R0, 1524(P)
	CLR	31070(P)
	MOV	756(P), L13
	MOV	1470(P), L15
	MOV	L15, R0
	INC	R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	#4, R0
	ADD	L15, R0
	ASL	R0
	MOV	GV+24., (R0)
	MOV	#3, R0
	ADD	L15, R0
	ASL	R0
	MOV	GV+28., (R0)
	MOV	1506(P), L14
	MOV	L14, R0
	INC	R0
	ASL	R0
	MOV	372(P), (R0)
	MOV	#4, R0
	ADD	L14, R0
	ASL	R0
	MOV	GV+24., (R0)
	MOV	#3, R0
	ADD	L14, R0
	ASL	R0
	MOV	GV+28., (R0)
	JSR	R0,@GV+16.
	.WORD	31100
	.PSECT	CONST
L9936:	.WORD	3
	.ASCII	^TI:^
	.EVEN
	.PSECT	BCPL
	MOV	#L9936/2, 31100(P)
	JSR	R0,@GV+52.
	.WORD	31100
	MOV	R0, GV+144.
	JSR	R0,@GV+36.
	.WORD	31100
	MOV	R0, L5
	MOV	L88, L4
	MOV	GV+4., L6
L89:	MOV	GV+144., GV+8.
	CLR	L17
	MOV	#6, GV+148.
	CLR	GV+164.
	CLR	L3
	CLR	GV+140.
	CLR	L2
	CLR	GV+122.
	CLR	GV+120.
	CLR	GV+124.
	CLR	L1
	MOV	L38, GV+4.
	.PSECT	CONST
L9935:	.WORD	5
	.ASCII	^BCPL>^
	.EVEN
	.PSECT	BCPL
	MOV	#L9935/2, 31100(P)
	MOV	1342(P), 31102(P)
	JSR	R0,@GV+44.
	.WORD	31100
	MOV	R0, 31070(P)
	TST	31070(P)
	BNE	L9934
	JMP	@L86
L9934:
L91:	MOV	L40, GV+4.
	MOV	31070(P), 31100(P)
	JSR	R0,@GV+30.
	.WORD	31100
	MOV	R0, L8
	JSR	R0,@L19
	.WORD	31100
	TST	R0
	BNE	L9933
	JSR	R0,@L40
	.WORD	31100
L9933:
L92:	MOV	L42, GV+4.
	MOV	L8, 31100(P)
	CLR	31102(P)
	JSR	R0,@GV+34.
	.WORD	31100
	MOV	R0, L9
	TST	L9
	BEQ	L9932
	MOV	L44, GV+4.
	MOV	L9, 31100(P)
	JSR	R0,@L30
	.WORD	31110
	MOV	R0, 31102(P)
	MOV	#170, 31104(P)
	JSR	R0,@GV+20.
	.WORD	31100
	CLR	R1
	ADD	L15, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#2, R0
	ADD	L15, R0
	ASL	R0
	CLR	(R0)
	MOV	#177777, L3
L9932:
L93:	MOV	L42, GV+4.
	MOV	L8, 31100(P)
	JSR	R0,@L36
	.WORD	31110
	MOV	R0, 31102(P)
	JSR	R0,@GV+34.
	.WORD	31100
	MOV	R0, L9
	TST	L9
	BEQ	L9931
	MOV	L46, GV+4.
	MOV	L9, 31100(P)
	JSR	R0,@L32
	.WORD	31110
	MOV	R0, 31102(P)
	MOV	#170, 31104(P)
	JSR	R0,@GV+20.
	.WORD	31100
	CLR	R1
	ADD	L14, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#2, R0
	ADD	L14, R0
	ASL	R0
	CLR	(R0)
	MOV	#177777, L1
	MOV	#177777, GV+164.
L9931:
L94:	MOV	L6, GV+4.
L95:	CLR	31072(P)
	TST	GV+164.
	BEQ	L9930
	MOV	L14, 31074(P)
	BR	L9929
L9930:
L97:	MOV	GV+144., 31074(P)
L9929:
L96:	MOV	31074(P), GV+8.
	CLR	L10
	CLR	L12
	MOV	1524(P), 31102(P)
	JSR	R0,@GV+156.
	.WORD	31102
	MOV	R0, 31072(P)
	TST	GV+120.
	BEQ	L9928
	MOV	31072(P), 31102(P)
	JSR	R0,@GV+158.
	.WORD	31102
L9928:
L98:	TST	GV+122.
	BEQ	L9927
	JSR	R0,@GV+160.
	.WORD	31102
L9927:
L99:	MOV	L15, GV+8.
	TST	L3
	BEQ	L9926
	MOV	31072(P), 31102(P)
	JSR	R0,@GV+162.
	.WORD	31102
L9926:
L100:	BR	L95
L87:	TST	L1
	BEQ	L9925
	CLR	R0
	ADD	L14, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 31100(P)
	JSR	R0,@GV+22.
	.WORD	31100
L9925:
L101:	TST	L3
	BEQ	L9924
	CLR	R0
	ADD	L15, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 31100(P)
	JSR	R0,@GV+22.
	.WORD	31100
L9924:
L102:	TST	GV+140.
	BEQ	L9923
	MOV	GV+6., 31100(P)
	JSR	R0,@GV+22.
	.WORD	31100
L9923:
L103:	TST	L2
	BEQ	L9922
	MOV	L16, 31100(P)
	JSR	R0,@GV+22.
	.WORD	31100
L9922:
L104:	MOV	L8, 31100(P)
	JSR	R0,@GV+12.
	.WORD	31100
	JMP	@L90
L85:	MOV	GV+144., 31100(P)
	JSR	R0,@GV+60.
	.WORD	31100
	JMP	STOP
	.PSECT	GLOBAL
	.=GV+150.
	.WORD	L22
	.=GV+154.
	.WORD	L23
	.=GV+142.
	.WORD	L24
	.=GV+146.
	.WORD	L51
	.=GV+2.
	.WORD	L84
	G1 == L84
	.=GV+164.
	.PSECT	CONST
L1:	.WORD	0
L2:	.WORD	0
L3:	.WORD	0
L4:	.WORD	0
L5:	.WORD	0
L6:	.WORD	0
L7:	.WORD	0
L8:	.WORD	0
L9:	.WORD	0
L10:	.WORD	0
L11:	.WORD	0
L12:	.WORD	0
L13:	.WORD	0
L14:	.WORD	0
L15:	.WORD	0
L16:	.WORD	0
L17:	.WORD	0
L19:	.WORD	L18
L21:	.WORD	L20
L26:	.WORD	L25
L28:	.WORD	L27
L30:	.WORD	L29
L32:	.WORD	L31
L34:	.WORD	L33
L36:	.WORD	L35
L38:	.WORD	L37
L40:	.WORD	L39
L42:	.WORD	L41
L44:	.WORD	L43
L46:	.WORD	L45
L48:	.WORD	L47
L50:	.WORD	L49
L53:	.WORD	L52
L86:	.WORD	L85
L88:	.WORD	L87
L90:	.WORD	L89
	.PSECT	BCPL
	BR	L9921
	.PSECT	CONST
L9920:	.WORD	10
	.ASCII	^NEXTSYMB^
	.PSECT	BCPL
L105:	JSR	R1, ENTER
	.WORD	L9920
	CLR	GV+244.
L107:	BR	L9919
L113:
L114:	MOV	#177777, GV+244.
L115:
L116:
L117:
L118:
L119:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#40, GV+152.
	BEQ	L119
	JMP	@L108
L120:
L121:
L122:
L123:
L124:
L125:
L126:
L127:
L128:
L129:	MOV	GV+152., R0
	SUB	#60, R0
	MOV	R0, GV+196.
	MOV	GV+196., GV+198.
	MOV	#1, GV+230.
L130:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#60, GV+152.
	BGT	L9918
	CMP	GV+152., #71
	BLE	L9917
L9918:
L132:	JMP	EXIT
L9917:
L131:	MOV	#12, R1
	MUL	GV+196., R1
	ADD	GV+152., R1
	SUB	#60, R1
	MOV	R1, GV+196.
	MOV	GV+198., R0
	ASH	#3, R0
	ADD	GV+152., R0
	SUB	#60, R0
	MOV	R0, GV+198.
	BR	L130
L133:
L134:
L135:
L136:
L137:
L138:
L139:
L140:
L141:
L142:
L143:
L144:
L145:
L146:
L147:
L148:
L149:
L150:
L151:
L152:
L153:
L154:
L155:
L156:
L157:
L158:
L159:
L160:
L161:
L162:
L163:
L164:
L165:
L166:
L167:
L168:
L169:
L170:
L171:
L172:
L173:
L174:
L175:
L176:
L177:
L178:
L179:
L180:
L181:
L182:
L183:
L184:	JSR	R0,@GV+236.
	.WORD	14
	JSR	R0,@GV+250.
	.WORD	14
	MOV	R0, GV+230.
	CMP	#135, GV+230.
	BNE	L9916
	JSR	R0,@GV+240.
	.WORD	14
	CMP	#3, GV+230.
	BEQ	L9915
	MOV	#141, 14(P)
	JSR	R0,@GV+302.
	.WORD	14
	JMP	@L108
L9915:
L186:	TST	GV+140.
	BEQ	L9914
	MOV	#135, 14(P)
	JSR	R0,@GV+302.
	.WORD	14
	BR	L9913
L9914:
L187:	MOV	GV+212., 14(P)
	JSR	R0,@GV+142.
	.WORD	14
L9913:
L188:	JMP	@L108
L9921:	JMP	L106
L9916:
L185:	JMP	EXIT
L189:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#70, GV+152.
	BNE	L9912
	MOV	#155, GV+230.
	JMP	@L110
	BR	L9911
L9919:	JMP	L111
L9911:L9912:
L190:	CMP	#50, GV+152.
	BEQ	L9910
	CMP	#51, GV+152.
	BNE	L9909
L9910:
L192:	CMP	#50, GV+152.
	BNE	L9908
	MOV	#133, 6(P)
	BR	L9907
L9908:
L194:	MOV	#134, 6(P)
L9907:
L193:	MOV	6(P), GV+230.
	MOV	#44, GV+152.
	JSR	R0,@GV+236.
	.WORD	14
	JSR	R0,@GV+250.
	.WORD	14
	JMP	EXIT
L9909:
L191:	MOV	#133, 14(P)
	JSR	R0,@GV+302.
	.WORD	14
	JSR	R0,@GV+150.
	.WORD	14
	JMP	@L108
L195:
L196:	CMP	#173, GV+152.
	BNE	L9906
	MOV	#133, 6(P)
	BR	L9905
L9906:
L198:	MOV	#134, 6(P)
L9905:
L197:	MOV	6(P), GV+230.
	MOV	#44, GV+152.
	JSR	R0,@GV+236.
	.WORD	14
	JSR	R0,@GV+250.
	.WORD	14
	JMP	EXIT
L199:
L200:	MOV	#151, GV+230.
	JMP	@L110
L201:
L202:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#56, GV+152.
	BNE	L9904
L204:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#50, GV+152.
	BEQ	L9903
	CMP	#133, GV+152.
	BNE	L204
L9903:
L205:	MOV	#46, GV+230.
	JMP	@L110
L9904:
L203:	MOV	#152, GV+230.
	JMP	EXIT
L206:	MOV	#155, GV+230.
	JMP	@L110
L207:	MOV	#36, GV+230.
	JMP	@L110
L208:	MOV	#16, GV+230.
	JMP	@L110
L209:	MOV	#46, GV+230.
	JMP	@L110
L210:	MOV	#122, GV+230.
	JMP	@L110
L211:	MOV	#7, GV+230.
	JMP	@L110
L212:	MOV	#41, GV+230.
	JMP	@L110
L213:	MOV	#24, GV+230.
	JMP	@L110
L214:
L215:	MOV	#11, GV+230.
	JMP	@L110
L216:	MOV	#13, GV+230.
	JMP	@L110
L217:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#73, GV+152.
	BNE	L9902
	MOV	#111, GV+230.
	JMP	@L110
L9902:
L218:	MOV	#141, GV+230.
	JMP	EXIT
L219:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#134, GV+152.
	BNE	L9901
	MOV	#41, GV+230.
	JMP	@L110
L9901:
L220:	CMP	#52, GV+152.
	BNE	L9900
L222:
L223:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#52, GV+152.
	BNE	L223
	JSR	R0,@GV+150.
	.WORD	14
	CMP	#57, GV+152.
	BNE	L9899
	BR	L9898
L9899:
L224:	BR	L222
L9898:
L225:	JSR	R0,@GV+150.
	.WORD	14
	JMP	@L108
L9900:
L221:	CMP	#57, GV+152.
	BEQ	L9897
	MOV	#14, GV+230.
	JMP	EXIT
L9897:
L226:
L227:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#12, GV+152.
	BNE	L227
	JMP	@L108
L228:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#57, GV+152.
	BNE	L9896
	MOV	#42, GV+230.
	JMP	@L110
L9896:
L229:	CMP	#75, GV+152.
	BNE	L9895
	MOV	#25, GV+230.
	JMP	@L110
L9895:
L230:	MOV	#36, GV+230.
	JMP	EXIT
L231:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#75, GV+152.
	BNE	L9894
	MOV	#30, GV+230.
	JMP	@L110
L9894:
L232:	CMP	#74, GV+152.
	BNE	L9893
	MOV	#37, GV+230.
	JMP	@L110
L9893:
L233:	CMP	#76, GV+152.
	BNE	L9892
	MOV	#111, GV+230.
	JMP	@L110
L9892:
L234:	MOV	#26, GV+230.
	JMP	EXIT
L235:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#75, GV+152.
	BNE	L9891
	MOV	#31, GV+230.
	JMP	@L110
L9891:
L236:	CMP	#76, GV+152.
	BNE	L9890
	MOV	#40, GV+230.
	JMP	@L110
L9890:
L237:	MOV	#27, GV+230.
	JMP	EXIT
L238:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#76, GV+152.
	BNE	L9889
	MOV	#45, GV+230.
	JMP	@L110
L9889:
L239:	MOV	#17, GV+230.
	JMP	EXIT
L240:	JSR	R0,@GV+150.
	.WORD	14
	CMP	#75, GV+152.
	BNE	L9888
	MOV	#62, GV+230.
	JMP	@L110
L9888:
L241:	MOV	#66, GV+230.
	JMP	EXIT
L242:
L243:	MOV	GV+152., 6(P)
	CLR	10(P)
L244:	JSR	R0,@GV+150.
	.WORD	20
	CMP	6(P), GV+152.
	BEQ	L9887
	CMP	#377, 10(P)
	BNE	L9886
L9887:
L246:	CMP	6(P), GV+152.
	BEQ	L9885
	MOV	#137, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
L9885:
L247:	CMP	#1, 10(P)
	BNE	L9884
	CMP	#47, GV+152.
	BNE	L9884
	MOV	#20, GV+230.
	BR	L9883
L9884:
L248:	CLR	R0
	ADD	GV+212., R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	GV+212., 20(P)
	MOV	GV+212., 22(P)
	JSR	R0,@GV+40.
	.WORD	20
	MOV	#3, R0
	ADD	10(P), R0
	MOV	R0, R1
	ASR	R1
	MOV	R1, GV+216.
	MOV	#3, GV+230.
L9883:
L249:	JMP	@L110
L9886:
L245:	CMP	#52, GV+152.
	BNE	L9882
	JSR	R0,@GV+150.
	.WORD	20
	CMP	#116, GV+152.
	BNE	L9881
	MOV	#12, 12(P)
	BR	L9880
L9881:
L252:	CMP	#123, GV+152.
	BNE	L9879
	MOV	#40, 12(P)
	BR	L9878
L9879:
L254:	CMP	#124, GV+152.
	BNE	L9877
	MOV	#11, 12(P)
	BR	L9876
L9877:
L256:	CMP	#120, GV+152.
	BNE	L9875
	MOV	#14, 12(P)
	BR	L9874
L9875:
L258:	CMP	#105, GV+152.
	BNE	L9873
	MOV	#32, 12(P)
	BR	L9872
L9873:
L260:	CMP	#103, GV+152.
	BNE	L9871
	MOV	#15, 12(P)
	BR	L9870
L9871:
L262:	CMP	#114, GV+152.
	BNE	L9869
	MOV	#12, 12(P)
	BR	L9868
L9869:
L264:	CMP	#136, GV+152.
	BNE	L9867
	JSR	R0,@GV+150.
	.WORD	20
	MOV	GV+152., R0
	BIC	#177740, R0
L267:	MOV	R0, 12(P)
	BR	L9866
L9867:
L266:	MOV	GV+152., 12(P)
L9866:
L265:
L9868:
L263:
L9870:
L261:
L9872:
L259:
L9874:
L257:
L9876:
L255:
L9878:
L253:
L9880:
L251:	MOV	12(P), GV+152.
L9882:
L250:	MOV	GV+152., GV+196.
	MOV	10(P), R0
	INC	R0
	MOV	R0, 10(P)
	MOV	10(P), R0
	ADD	GV+212., R0
	ASL	R0
	MOV	GV+152., (R0)
	BR	L9865
L268:	MOV	#132, GV+230.
	JMP	EXIT
L269:	MOV	#40, GV+152.
	MOV	#136, 14(P)
	JSR	R0,@GV+302.
	.WORD	14
	JMP	@L108
L109:	JSR	R0,@GV+150.
	.WORD	14
	BR	L9864
L111:	MOV	GV+152., T
	SUB	#0, T
	BLT	L269
	CMP	T, #176
	BGT	L269
	ASL	T
	JMP	@L9863(T)
L9865:	JMP	L244
L9864:	JMP	L112
L9863:	.WORD	L116
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L115
	.WORD	L114
	.WORD	L269
	.WORD	L113
	.WORD	L117
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L118
	.WORD	L210
	.WORD	L243
	.WORD	L206
	.WORD	L189
	.WORD	L215
	.WORD	L212
	.WORD	L242
	.WORD	L200
	.WORD	L202
	.WORD	L216
	.WORD	L208
	.WORD	L209
	.WORD	L238
	.WORD	L268
	.WORD	L219
	.WORD	L120
	.WORD	L121
	.WORD	L122
	.WORD	L123
	.WORD	L124
	.WORD	L125
	.WORD	L126
	.WORD	L127
	.WORD	L128
	.WORD	L129
	.WORD	L240
	.WORD	L217
	.WORD	L231
	.WORD	L213
	.WORD	L235
	.WORD	L269
	.WORD	L211
	.WORD	L133
	.WORD	L134
	.WORD	L135
	.WORD	L136
	.WORD	L137
	.WORD	L138
	.WORD	L139
	.WORD	L140
	.WORD	L141
	.WORD	L142
	.WORD	L143
	.WORD	L144
	.WORD	L145
	.WORD	L146
	.WORD	L147
	.WORD	L148
	.WORD	L149
	.WORD	L150
	.WORD	L151
	.WORD	L152
	.WORD	L153
	.WORD	L154
	.WORD	L155
	.WORD	L156
	.WORD	L157
	.WORD	L158
	.WORD	L199
	.WORD	L228
	.WORD	L201
	.WORD	L269
	.WORD	L269
	.WORD	L269
	.WORD	L159
	.WORD	L160
	.WORD	L161
	.WORD	L162
	.WORD	L163
	.WORD	L164
	.WORD	L165
	.WORD	L166
	.WORD	L167
	.WORD	L168
	.WORD	L169
	.WORD	L170
	.WORD	L171
	.WORD	L172
	.WORD	L173
	.WORD	L174
	.WORD	L175
	.WORD	L176
	.WORD	L177
	.WORD	L178
	.WORD	L179
	.WORD	L180
	.WORD	L181
	.WORD	L182
	.WORD	L183
	.WORD	L184
	.WORD	L195
	.WORD	L214
	.WORD	L196
	.WORD	L207
L112:	JMP	EXIT
L106:	.PSECT	GLOBAL
	.=GV+240.
	.WORD	L105
	.=GV+302.
	.PSECT	CONST
L108:	.WORD	L107
L110:	.WORD	L109
	.PSECT	BCPL
	BR	L9862
	.PSECT	CONST
L9861:	.WORD	14
	.ASCII	^DECLSYSWORDS^
	.PSECT	BCPL
L270:	JSR	R1, ENTER
	.WORD	L9861
	MOV	GV+212., 6(P)
	BR	L9860
	.PSECT	CONST
L9859:	.WORD	1
	.ASCII	^D^
	.EVEN
	.PSECT	BCPL
L274:	JSR	R1, ENTER
	.WORD	L9859
	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
	MOV	#3, R0
	ADD	12(P), R0
	MOV	R0, R1
	ASR	R1
	MOV	R1, GV+216.
	MOV	6(P), GV+212.
	JSR	R0,@GV+250.
	.WORD	22
	CLR	R0
	ADD	GV+232., R0
	ASL	R0
	MOV	10(P), (R0)
	JMP	EXIT
L9860:
L276:	.PSECT	CONST
L9858:	.WORD	3
	.ASCII	^AND^
	.EVEN
	.PSECT	BCPL
	MOV	#L9858/2, 16(P)
	MOV	#50, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9857:	.WORD	2
	.ASCII	^BE^
	.PSECT	BCPL
	MOV	#L9857/2, 16(P)
	MOV	#131, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9856:	.WORD	5
	.ASCII	^BREAK^
	.EVEN
	.PSECT	BCPL
	MOV	#L9856/2, 16(P)
	MOV	#102, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9855:	.WORD	2
	.ASCII	^BY^
	.PSECT	BCPL
	MOV	#L9855/2, 16(P)
	MOV	#144, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9854:	.WORD	4
	.ASCII	^CASE^
	.PSECT	BCPL
	MOV	#L9854/2, 16(P)
	MOV	#107, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9853:	.WORD	4
	.ASCII	^CODE^
	.PSECT	BCPL
	MOV	#L9853/2, 16(P)
	MOV	#120, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9852:	.WORD	2
	.ASCII	^DO^
	.PSECT	BCPL
	MOV	#L9852/2, 16(P)
	MOV	#145, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9851:	.WORD	7
	.ASCII	^DEFAULT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9851/2, 16(P)
	MOV	#110, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9850:	.WORD	2
	.ASCII	^EQ^
	.PSECT	BCPL
	MOV	#L9850/2, 16(P)
	MOV	#24, 20(P)
	JSR	R0,@L275
	.WORD	16
	BR	L9849
L9862:	JMP	L273
L9849:	.PSECT	CONST
L9848:	.WORD	3
	.ASCII	^EQV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9848/2, 16(P)
	MOV	#43, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9847:	.WORD	7
	.ASCII	^ENDCASE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9847/2, 16(P)
	MOV	#105, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9846:	.WORD	5
	.ASCII	^FALSE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9846/2, 16(P)
	MOV	#5, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9845:	.WORD	3
	.ASCII	^FOR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9845/2, 16(P)
	MOV	#70, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9844:	.WORD	6
	.ASCII	^FINISH^
	.PSECT	BCPL
	MOV	#L9844/2, 16(P)
	MOV	#104, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9843:	.WORD	4
	.ASCII	^GOTO^
	.PSECT	BCPL
	MOV	#L9843/2, 16(P)
	MOV	#64, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9842:	.WORD	2
	.ASCII	^GE^
	.PSECT	BCPL
	MOV	#L9842/2, 16(P)
	MOV	#31, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9841:	.WORD	2
	.ASCII	^GR^
	.PSECT	BCPL
	MOV	#L9841/2, 16(P)
	MOV	#27, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9840:	.WORD	6
	.ASCII	^GLOBAL^
	.PSECT	BCPL
	MOV	#L9840/2, 16(P)
	MOV	#114, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9839:	.WORD	3
	.ASCII	^GET^
	.EVEN
	.PSECT	BCPL
	MOV	#L9839/2, 16(P)
	MOV	#135, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9838:	.WORD	2
	.ASCII	^IF^
	.PSECT	BCPL
	MOV	#L9838/2, 16(P)
	MOV	#71, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9837:	.WORD	4
	.ASCII	^INTO^
	.PSECT	BCPL
	MOV	#L9837/2, 16(P)
	MOV	#142, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9836:	.WORD	2
	.ASCII	^IS^
	.PSECT	BCPL
	MOV	#L9836/2, 16(P)
	MOV	#131, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9835:	.WORD	3
	.ASCII	^LET^
	.EVEN
	.PSECT	BCPL
	MOV	#L9835/2, 16(P)
	MOV	#112, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9834:	.WORD	2
	.ASCII	^LV^
	.PSECT	BCPL
	MOV	#L9834/2, 16(P)
	MOV	#7, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9833:	.WORD	2
	.ASCII	^LE^
	.PSECT	BCPL
	MOV	#L9833/2, 16(P)
	MOV	#30, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9832:	.WORD	2
	.ASCII	^LS^
	.PSECT	BCPL
	MOV	#L9832/2, 16(P)
	MOV	#26, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9831:	.WORD	5
	.ASCII	^LOGOR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9831/2, 16(P)
	MOV	#42, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9830:	.WORD	6
	.ASCII	^LOGAND^
	.PSECT	BCPL
	MOV	#L9830/2, 16(P)
	MOV	#41, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9829:	.WORD	4
	.ASCII	^LOOP^
	.PSECT	BCPL
	MOV	#L9829/2, 16(P)
	MOV	#123, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9828:	.WORD	6
	.ASCII	^LSHIFT^
	.PSECT	BCPL
	MOV	#L9828/2, 16(P)
	MOV	#37, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9827:	.WORD	10
	.ASCII	^MANIFEST^
	.PSECT	BCPL
	MOV	#L9827/2, 16(P)
	MOV	#113, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9826:	.WORD	2
	.ASCII	^NE^
	.PSECT	BCPL
	MOV	#L9826/2, 16(P)
	MOV	#25, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9825:	.WORD	3
	.ASCII	^NOT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9825/2, 16(P)
	MOV	#36, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9824:	.WORD	4
	.ASCII	^NEQV^
	.PSECT	BCPL
	MOV	#L9824/2, 16(P)
	MOV	#44, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9823:	.WORD	2
	.ASCII	^OR^
	.PSECT	BCPL
	MOV	#L9823/2, 16(P)
	MOV	#146, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9822:	.WORD	10
	.ASCII	^RESULTIS^
	.PSECT	BCPL
	MOV	#L9822/2, 16(P)
	MOV	#65, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9821:	.WORD	6
	.ASCII	^RETURN^
	.PSECT	BCPL
	MOV	#L9821/2, 16(P)
	MOV	#103, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9820:	.WORD	3
	.ASCII	^REM^
	.EVEN
	.PSECT	BCPL
	MOV	#L9820/2, 16(P)
	MOV	#15, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9819:	.WORD	6
	.ASCII	^RSHIFT^
	.PSECT	BCPL
	MOV	#L9819/2, 16(P)
	MOV	#40, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9818:	.WORD	2
	.ASCII	^RV^
	.PSECT	BCPL
	MOV	#L9818/2, 16(P)
	MOV	#10, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9817:	.WORD	6
	.ASCII	^REPEAT^
	.PSECT	BCPL
	MOV	#L9817/2, 16(P)
	MOV	#75, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9816:	.WORD	13
	.ASCII	^REPEATWHILE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9816/2, 16(P)
	MOV	#76, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9815:	.WORD	13
	.ASCII	^REPEATUNTIL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9815/2, 16(P)
	MOV	#77, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9814:	.WORD	10
	.ASCII	^SWITCHON^
	.PSECT	BCPL
	MOV	#L9814/2, 16(P)
	MOV	#106, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9813:	.WORD	6
	.ASCII	^STATIC^
	.PSECT	BCPL
	MOV	#L9813/2, 16(P)
	MOV	#117, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9812:	.WORD	2
	.ASCII	^TO^
	.PSECT	BCPL
	MOV	#L9812/2, 16(P)
	MOV	#143, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9811:	.WORD	4
	.ASCII	^TEST^
	.PSECT	BCPL
	MOV	#L9811/2, 16(P)
	MOV	#67, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9810:	.WORD	4
	.ASCII	^TRUE^
	.PSECT	BCPL
	MOV	#L9810/2, 16(P)
	MOV	#4, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9809:	.WORD	4
	.ASCII	^THEN^
	.PSECT	BCPL
	MOV	#L9809/2, 16(P)
	MOV	#145, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9808:	.WORD	5
	.ASCII	^TABLE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9808/2, 16(P)
	MOV	#47, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9807:	.WORD	5
	.ASCII	^UNTIL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9807/2, 16(P)
	MOV	#74, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9806:	.WORD	6
	.ASCII	^UNLESS^
	.PSECT	BCPL
	MOV	#L9806/2, 16(P)
	MOV	#72, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9805:	.WORD	3
	.ASCII	^VEC^
	.EVEN
	.PSECT	BCPL
	MOV	#L9805/2, 16(P)
	MOV	#147, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9804:	.WORD	5
	.ASCII	^VALOF^
	.EVEN
	.PSECT	BCPL
	MOV	#L9804/2, 16(P)
	MOV	#6, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9803:	.WORD	5
	.ASCII	^WHERE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9803/2, 16(P)
	MOV	#121, 20(P)
	JSR	R0,@L275
	.WORD	16
	.PSECT	CONST
L9802:	.WORD	5
	.ASCII	^WHILE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9802/2, 16(P)
	MOV	#73, 20(P)
	JSR	R0,@L275
	.WORD	16
	MOV	#44, 16(P)
	CLR	20(P)
	JSR	R0,@L275
	.WORD	16
	MOV	GV+232., GV+268.
	MOV	6(P), GV+212.
	JMP	EXIT
	.PSECT	CONST
L9801:	.WORD	12
	.ASCII	^LOOKUPWORD^
	.PSECT	BCPL
L271:	JSR	R1, ENTER
	.WORD	L9801
	MOV	#GV/2+148., 6(P)
L278:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, GV+232.
	TST	GV+232.
	BEQ	L9800
	MOV	#3, R0
	ADD	GV+232., R0
	MOV	R0, 10(P)
	MOV	GV+216., R0
	DEC	R0
	CLR	12(P)
	MOV	R0, 14(P)
	BR	L9799
L282:	MOV	12(P), R0
	ADD	10(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	12(P), R1
	ADD	GV+212., R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 16(P)
	MOV	R1, 20(P)
	CMP	16(P), 20(P)
	BLE	L9798
	MOV	GV+232., R0
	INC	R0
	MOV	R0, 6(P)
	JMP	@L279
L9798:
L283:	CMP	16(P), 20(P)
	BGE	L9797
	MOV	#2, R0
	ADD	GV+232., R0
	MOV	R0, 6(P)
	JMP	@L279
L9797:
L284:	INC	12(P)
L9799:
L281:	CMP	12(P), 14(P)
	BLE	L282
	CLR	R0
	ADD	GV+232., R0
	ASL	R0
	MOV	(R0), R0
	BR	L9796
L9800:
L280:	MOV	#2, R0
	ADD	GV+216., R0
	MOV	R0, 16(P)
	JSR	R0,@GV+332.
	.WORD	16
	MOV	R0, GV+232.
	CLR	R0
	ADD	GV+232., R0
	ASL	R0
	MOV	#2, (R0)
	MOV	GV+232., R0
	INC	R0
	ASL	R0
	CLR	(R0)
	MOV	#2, R0
	ADD	GV+232., R0
	ASL	R0
	CLR	(R0)
	MOV	GV+216., R0
	DEC	R0
	CLR	10(P)
	MOV	R0, 12(P)
	BR	L9795
L286:	MOV	10(P), R0
	ADD	GV+212., R0
	ASL	R0
	MOV	(R0), R0
	MOV	#3, R1
	ADD	10(P), R1
	ADD	GV+232., R1
	ASL	R1
	MOV	R0, (R1)
	INC	10(P)
L9795:
L285:	CMP	10(P), 12(P)
	BLE	L286
	MOV	6(P), R0
	ASL	R0
	MOV	GV+232., (R0)
	MOV	#2, R0
	BR	L9796
L9796:
L277:	JMP	EXIT
	.PSECT	CONST
L9794:	.WORD	5
	.ASCII	^RDTAG^
	.EVEN
	.PSECT	BCPL
L272:	JSR	R1, ENTER
	.WORD	L9794
	MOV	#1, 6(P)
L287:	MOV	6(P), R0
	ADD	GV+212., R0
	ASL	R0
	MOV	GV+152., (R0)
	JSR	R0,@GV+150.
	.WORD	16
	CMP	#101, GV+152.
	BGT	L9793
	CMP	GV+152., #132
	BLE	L9792
L9793:
L289:	CMP	#60, GV+152.
	BGT	L9791
	CMP	GV+152., #71
	BLE	L9792
L9791:
L290:	CMP	#141, GV+152.
	BGT	L9790
	CMP	GV+152., #172
	BLE	L9792
L9790:
L291:	CMP	#56, GV+152.
	BEQ	L9792
	BR	L9789
L9792:
L288:	MOV	6(P), R0
	INC	R0
	MOV	R0, 6(P)
	BR	L287
L9789:
L292:	CLR	R0
	ADD	GV+212., R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, R1
	ASR	R1
	MOV	R1, GV+216.
	MOV	GV+212., 16(P)
	MOV	GV+212., 20(P)
	JSR	R0,@GV+40.
	.WORD	16
	JMP	EXIT
L273:	.PSECT	GLOBAL
	.=GV+242.
	.WORD	L270
	.=GV+250.
	.WORD	L271
	.=GV+236.
	.WORD	L272
	.=GV+332.
	.PSECT	CONST
L275:	.WORD	L274
L279:	.WORD	L278
	.PSECT	BCPL
	BR	L9788
	.PSECT	CONST
L9787:	.WORD	6
	.ASCII	^NEWVEC^
	.PSECT	BCPL
L293:	JSR	R1, ENTER
	.WORD	L9787
	MOV	GV+334., R0
	SUB	6(P), R0
	DEC	R0
	MOV	R0, GV+334.
	CMP	GV+334., GV+336.
	BGT	L9786
	CLR	GV+148.
	MOV	#142, 16(P)
	JSR	R0,@GV+302.
	.WORD	16
L9786:
L309:	MOV	GV+334., R0
L308:	JMP	EXIT
	.PSECT	CONST
L9785:	.WORD	5
	.ASCII	^LIST1^
	.EVEN
	.PSECT	BCPL
L294:	JSR	R1, ENTER
	.WORD	L9785
	CLR	16(P)
	JSR	R0,@GV+332.
	.WORD	16
	MOV	R0, 10(P)
	CLR	R0
	ADD	10(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	10(P), R0
	BR	L9784
L9784:
L310:	JMP	EXIT
	.PSECT	CONST
L9783:	.WORD	5
	.ASCII	^LIST2^
	.EVEN
	.PSECT	BCPL
L295:	JSR	R1, ENTER
	.WORD	L9783
	MOV	#1, 20(P)
	JSR	R0,@GV+332.
	.WORD	20
	MOV	R0, 12(P)
	CLR	R0
	ADD	12(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	12(P), R0
	BR	L9782
L9782:
L311:	JMP	EXIT
	.PSECT	CONST
L9781:	.WORD	5
	.ASCII	^LIST3^
	.EVEN
	.PSECT	BCPL
L296:	JSR	R1, ENTER
	.WORD	L9781
	MOV	#2, 22(P)
	JSR	R0,@GV+332.
	.WORD	22
	MOV	R0, 14(P)
	CLR	R0
	ADD	14(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	14(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	14(P), R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	14(P), R0
	BR	L9780
L9780:
L312:	JMP	EXIT
L9788:	JMP	L307
	.PSECT	CONST
L9779:	.WORD	5
	.ASCII	^LIST4^
	.EVEN
	.PSECT	BCPL
L297:	JSR	R1, ENTER
	.WORD	L9779
	MOV	#3, 24(P)
	JSR	R0,@GV+332.
	.WORD	24
	MOV	R0, 16(P)
	CLR	R0
	ADD	16(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	16(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	16(P), R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	#3, R0
	ADD	16(P), R0
	ASL	R0
	MOV	14(P), (R0)
	MOV	16(P), R0
	BR	L9778
L9778:
L313:	JMP	EXIT
	.PSECT	CONST
L9777:	.WORD	5
	.ASCII	^LIST5^
	.EVEN
	.PSECT	BCPL
L298:	JSR	R1, ENTER
	.WORD	L9777
	MOV	#4, 26(P)
	JSR	R0,@GV+332.
	.WORD	26
	MOV	R0, 20(P)
	CLR	R0
	ADD	20(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	20(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	20(P), R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	#3, R0
	ADD	20(P), R0
	ASL	R0
	MOV	14(P), (R0)
	MOV	#4, R0
	ADD	20(P), R0
	ASL	R0
	MOV	16(P), (R0)
	MOV	20(P), R0
	BR	L9776
L9776:
L314:	JMP	EXIT
	.PSECT	CONST
L9775:	.WORD	5
	.ASCII	^LIST6^
	.EVEN
	.PSECT	BCPL
L299:	JSR	R1, ENTER
	.WORD	L9775
	MOV	#5, 30(P)
	JSR	R0,@GV+332.
	.WORD	30
	MOV	R0, 22(P)
	CLR	R0
	ADD	22(P), R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	22(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	22(P), R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	#3, R0
	ADD	22(P), R0
	ASL	R0
	MOV	14(P), (R0)
	MOV	#4, R0
	ADD	22(P), R0
	ASL	R0
	MOV	16(P), (R0)
	MOV	#5, R0
	ADD	22(P), R0
	ASL	R0
	MOV	20(P), (R0)
	MOV	22(P), R0
	BR	L9774
L9774:
L315:	JMP	EXIT
	.PSECT	CONST
L9773:	.WORD	11
	.ASCII	^CAEREPORT^
	.EVEN
	.PSECT	BCPL
L300:	JSR	R1, ENTER
	.WORD	L9773
	JSR	R0,@GV+154.
	.WORD	16
	.PSECT	CONST
L9772:	.WORD	23
	.ASCII	^***  SYNTAX ERROR, ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9772/2, 16(P)
	MOV	6(P), 26(P)
	JSR	R0,@L306
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+146.
	.WORD	16
	CLR	GV+244.
	BR	L9771
L316:	JSR	R0,@GV+240.
	.WORD	16
L9771:
L317:	CMP	#133, GV+230.
	BEQ	L9770
	CMP	#134, GV+230.
	BEQ	L9770
	CMP	#112, GV+230.
	BEQ	L9770
	CMP	#50, GV+230.
	BEQ	L9770
	CMP	#132, GV+230.
	BEQ	L9770
	TST	GV+244.
	BEQ	L316
L9770:
L318:	MOV	GV+270., 16(P)
	MOV	GV+272., 20(P)
	JSR	R0,@GV+38.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9769:	.WORD	10
	.ASCII	^FORMTREE^
	.PSECT	BCPL
L302:	JSR	R1, ENTER
	.WORD	L9769
	MOV	P, R0
	ASR	R0
	ADD	#5, R0
	MOV	R0, 10(P)
	MOV	GV+302., 324(P)
	CLR	326(P)
	MOV	10(P), GV+212.
	MOV	L301, GV+302.
	MOV	6(P), GV+336.
	MOV	#13560, R0
	ADD	GV+336., R0
	MOV	R0, GV+334.
	CLR	GV+296.
	JSR	R0,@GV+242.
	.WORD	336
	JSR	R0,@GV+36.
	.WORD	336
	MOV	R0, GV+270.
	MOV	L321, GV+272.
	JSR	R0,@GV+150.
	.WORD	336
L320:	JSR	R0,@GV+240.
	.WORD	336
	JSR	R0,@GV+280.
	.WORD	336
	MOV	R0, 326(P)
	CMP	#132, GV+230.
	BEQ	L9768
	MOV	#143, 336(P)
	JSR	R0,@GV+302.
	.WORD	336
	JMP	@L321
L9768:
L322:	TST	GV+164.
	BEQ	L9767
	.PSECT	CONST
L9766:	.WORD	13
	.ASCII	^TREESIZE = ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9766/2, 336(P)
	JSR	R0,@GV+72.
	.WORD	336
	MOV	#13560, R0
	ADD	GV+336., R0
	SUB	GV+334., R0
	MOV	R0, 336(P)
	JSR	R0,@GV+64.
	.WORD	336
	JSR	R0,@GV+86.
	.WORD	336
L9767:
L323:	MOV	324(P), GV+302.
	MOV	326(P), R0
	BR	L9765
L9765:
L319:	JMP	EXIT
	.PSECT	CONST
L9764:	.WORD	11
	.ASCII	^PRINTTREE^
	.EVEN
	.PSECT	BCPL
L303:	JSR	R1, ENTER
	.WORD	L9764
	.PSECT	CONST
L9763:	.WORD	21
	.ASCII	<12>^AE TREE^<12>^-------^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9763/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	MOV	6(P), 16(P)
	CLR	20(P)
	MOV	#24, 22(P)
	JSR	R0,@GV+304.
	.WORD	16
	JSR	R0,@GV+86.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9762:	.WORD	12
	.ASCII	^PRINTNAMES^
	.PSECT	BCPL
L304:	JSR	R1, ENTER
	.WORD	L9762
	BR	L9761
	.PSECT	CONST
L9760:	.WORD	1
	.ASCII	^P^
	.EVEN
	.PSECT	BCPL
L324:	JSR	R1, ENTER
	.WORD	L9760
	TST	6(P)
	BNE	L9759
	JMP	EXIT
L9759:
L327:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L325
	.WORD	16
	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BNE	L9758
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	JSR	R0,@GV+86.
	.WORD	16
L9758:
L328:	MOV	#2, R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@L325
	.WORD	16
	JMP	EXIT
L9761:
L326:	.PSECT	CONST
L9757:	.WORD	15
	.ASCII	<12>^NAMES^<12>^-----^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9757/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	MOV	GV+296., 14(P)
	JSR	R0,@L325
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9756:	.WORD	7
	.ASCII	^MESSAGE^
	.EVEN
	.PSECT	BCPL
L305:	JSR	R1, ENTER
	.WORD	L9756
	BR	L9755
L332:	.PSECT	CONST
L9754:	.WORD	15
	.ASCII	^UNKNOWN ERROR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9754/2, R0
	BR	L9753
L333:	.PSECT	CONST
L9752:	.WORD	30
	.ASCII	^'8'  '(' OR ')' EXPECTED^
	.PSECT	BCPL
	MOV	#L9752/2, R0
	BR	L9753
L334:	.PSECT	CONST
L9751:	.WORD	12
	.ASCII	^NESTED GET^
	.PSECT	BCPL
	MOV	#L9751/2, R0
	BR	L9753
L335:	.PSECT	CONST
L9750:	.WORD	21
	.ASCII	^ILLEGAL CHARACTER^
	.EVEN
	.PSECT	BCPL
	MOV	#L9750/2, R0
	BR	L9753
L336:	.PSECT	CONST
L9749:	.WORD	17
	.ASCII	^STRING TOO LONG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9749/2, R0
	BR	L9753
L337:	.PSECT	CONST
L9748:	.WORD	17
	.ASCII	^STRING EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9748/2, R0
	BR	L9753
L338:	.PSECT	CONST
L9747:	.WORD	21
	.ASCII	^PROGRAM TOO LARGE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9747/2, R0
	BR	L9753
L339:	.PSECT	CONST
L9746:	.WORD	25
	.ASCII	^INCORRECT TERMINATION^
	.EVEN
	.PSECT	BCPL
	MOV	#L9746/2, R0
	BR	L9753
L340:
L341:
L342:
L343:
L344:	.PSECT	CONST
L9745:	.WORD	15
	.ASCII	^NAME EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9745/2, R0
	BR	L9753
L345:
L346:	.PSECT	CONST
L9744:	.WORD	15
	.ASCII	^'$(' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9744/2, R0
	BR	L9753
L347:
L348:	.PSECT	CONST
L9743:	.WORD	15
	.ASCII	^'$)' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9743/2, R0
	BR	L9753
L349:	.PSECT	CONST
L9742:	.WORD	26
	.ASCII	^UNTAGGED '$)' MISMATCH^
	.PSECT	BCPL
	MOV	#L9742/2, R0
	BR	L9753
L350:	.PSECT	CONST
L9741:	.WORD	22
	.ASCII	^EXPRESSION MISSING^
	.PSECT	BCPL
	MOV	#L9741/2, R0
	BR	L9753
L351:	.PSECT	CONST
L9740:	.WORD	25
	.ASCII	^ERROR IN OCTAL NUMBER^
	.EVEN
	.PSECT	BCPL
	MOV	#L9740/2, R0
	BR	L9753
L352:
L353:
L354:	.PSECT	CONST
L9739:	.WORD	13
	.ASCII	^')' MISSING^
	.EVEN
	.PSECT	BCPL
	MOV	#L9739/2, R0
	BR	L9753
L355:	.PSECT	CONST
L9738:	.WORD	13
	.ASCII	^',' MISSING^
	.EVEN
	.PSECT	BCPL
	MOV	#L9738/2, R0
	BR	L9753
L356:	.PSECT	CONST
L9737:	.WORD	24
	.ASCII	^'=' OR 'BE' EXPECTED^
	.PSECT	BCPL
	MOV	#L9737/2, R0
	BR	L9753
L357:	.PSECT	CONST
L9736:	.WORD	23
	.ASCII	^'=' OR '(' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9736/2, R0
	BR	L9753
L358:	.PSECT	CONST
L9735:	.WORD	16
	.ASCII	^ERROR IN LABEL^
	.PSECT	BCPL
	MOV	#L9735/2, R0
	BR	L9753
L359:	.PSECT	CONST
L9734:	.WORD	24
	.ASCII	^':=' OR ':' EXPECTED^
	.PSECT	BCPL
	MOV	#L9734/2, R0
	BR	L9753
L360:	.PSECT	CONST
L9733:	.WORD	15
	.ASCII	^'OR' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9733/2, R0
	BR	L9753
L361:	.PSECT	CONST
L9732:	.WORD	14
	.ASCII	^'=' EXPECTED^
	.PSECT	BCPL
	MOV	#L9732/2, R0
	BR	L9753
L362:	.PSECT	CONST
L9731:	.WORD	15
	.ASCII	^'TO' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9731/2, R0
	BR	L9753
L363:	.PSECT	CONST
L9730:	.WORD	17
	.ASCII	^'INTO' EXPECTED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9730/2, R0
	BR	L9753
L364:
L365:	.PSECT	CONST
L9729:	.WORD	14
	.ASCII	^':' EXPECTED^
	.PSECT	BCPL
	MOV	#L9729/2, R0
	BR	L9753
	BR	L9728
L9755:
L330:	MOV	6(P), T
	CMP	T, #54
	BGE	L9727
	CMP	T, #17
	BGE	L9726
	CMP	T, #6
	BGE	L9725
	CMP	T, #1
	BEQ	L340
	CMP	T, #2
	BEQ	L345
	CMP	T, #4
	BEQ	L347
	BR	L332
L9725:	BEQ	L346
	CMP	T, #7
	BEQ	L348
	CMP	T, #10
	BEQ	L341
	CMP	T, #11
	BEQ	L349
	BR	L332
L9726:	BEQ	L352
	CMP	T, #41
	BGE	L9724
	CMP	T, #23
	BEQ	L353
	CMP	T, #36
	BEQ	L355
	BR	L9723
L9753:	JMP	L329
L9723:	CMP	T, #40
	BEQ	L350
	BR	L9722
L9724:	BEQ	L351
	CMP	T, #50
	BEQ	L342
	CMP	T, #51
	BEQ	L354
	CMP	T, #52
	BEQ	L356
	CMP	T, #53
	BEQ	L343
	BR	L9722
L9727:	BEQ	L357
	CMP	T, #76
	BGE	L9721
	CMP	T, #71
	BGE	L9720
	CMP	T, #62
	BEQ	L358
	CMP	T, #63
	BEQ	L359
	CMP	T, #66
	BEQ	L360
	BR	L9722
L9720:	BEQ	L361
	CMP	T, #72
	BEQ	L362
	CMP	T, #74
	BEQ	L363
	CMP	T, #75
	BEQ	L364
	BR	L9722
L9721:	BEQ	L365
	CMP	T, #136
	BGE	L9719
	CMP	T, #100
	BEQ	L9718
	CMP	T, #133
	BEQ	L9717
	CMP	T, #135
	BEQ	L9716
	BR	L9722
L9728:	JMP	L331
L9719:	BEQ	L9715
	CMP	T, #137
	BEQ	L9714
	CMP	T, #141
	BEQ	L9713
	CMP	T, #142
	BEQ	L9712
	CMP	T, #143
	BEQ	L9711
	BR	L9722
L331:
L329:	JMP	EXIT
L307:	BR	L9710
L9722:	JMP	L332
L9718:	JMP	L344
L9717:	JMP	L333
L9716:	JMP	L334
L9715:	JMP	L335
L9714:	JMP	L336
L9713:	JMP	L337
L9712:	JMP	L338
L9711:	JMP	L339
L9710:	.PSECT	GLOBAL
	.=GV+332.
	.WORD	L293
	.=GV+322.
	.WORD	L294
	.WORD	L295
	.WORD	L296
	.WORD	L297
	.WORD	L298
	.=GV+338.
	.WORD	L299
	.=GV+156.
	.WORD	L302
	.WORD	L303
	.WORD	L304
	.=GV+336.
	.PSECT	CONST
L301:	.WORD	L300
L306:	.WORD	L305
L321:	.WORD	L320
L325:	.WORD	L324
	.PSECT	BCPL
	BR	L9709
	.PSECT	CONST
L9708:	.WORD	13
	.ASCII	^RDBLOCKBODY^
	.EVEN
	.PSECT	BCPL
L366:	JSR	R1, ENTER
	.WORD	L9708
	MOV	GV+270., 6(P)
	MOV	GV+272., 10(P)
	CLR	12(P)
	JSR	R0,@GV+36.
	.WORD	22
	MOV	R0, GV+270.
	MOV	L380, GV+272.
	BR	L9707
L383:
L384:
L385:	MOV	GV+230., 14(P)
	JSR	R0,@GV+240.
	.WORD	24
	MOV	GV+294., 24(P)
	JSR	R0,@GV+282.
	.WORD	24
	MOV	R0, 12(P)
	MOV	14(P), 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+280.
	.WORD	36
	MOV	R0, 30(P)
	JSR	R0,@GV+326.
	.WORD	24
	MOV	R0, 12(P)
	JMP	@L378
L386:	JSR	R0,@GV+240.
	.WORD	22
	JSR	R0,@GV+290.
	.WORD	22
	MOV	R0, 12(P)
L379:	BR	L9706
L387:	JSR	R0,@GV+240.
	.WORD	22
	MOV	#50, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+290.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	MOV	R0, 12(P)
L9706:
L388:	CMP	#50, GV+230.
	BEQ	L387
	MOV	#112, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+280.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	MOV	R0, 12(P)
	JMP	@L378
L389:	JSR	R0,@L368
	.WORD	22
	MOV	R0, 12(P)
L377:	MOV	6(P), GV+270.
	MOV	10(P), GV+272.
	MOV	12(P), R0
	BR	L9705
L9709:	JMP	L375
	BR	L9704
L9707:
L381:	MOV	GV+230., T
	CMP	T, #112
	BEQ	L386
	CMP	T, #113
	BEQ	L383
	CMP	T, #114
	BEQ	L385
	CMP	T, #117
	BEQ	L384
	BR	L389
L9704:
L382:L9705:
L376:	JMP	EXIT
	.PSECT	CONST
L9703:	.WORD	5
	.ASCII	^RDSEQ^
	.EVEN
	.PSECT	BCPL
L367:	JSR	R1, ENTER
	.WORD	L9703
	CLR	6(P)
	MOV	#141, 16(P)
	JSR	R0,@GV+308.
	.WORD	16
	JSR	R0,@GV+292.
	.WORD	16
	MOV	R0, 6(P)
	CMP	#134, GV+230.
	BEQ	L9702
	CMP	#132, GV+230.
	BEQ	L9702
	TST	6(P)
	BNE	L9701
L9702:
L392:	MOV	6(P), R0
	BR	L9700
L9701:
L391:	MOV	#111, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@L368
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+326.
	.WORD	16
	BR	L9700
L9700:
L390:	JMP	EXIT
	.PSECT	CONST
L9699:	.WORD	7
	.ASCII	^RDCDEFS^
	.EVEN
	.PSECT	BCPL
L369:	JSR	R1, ENTER
	.WORD	L9699
	CLR	6(P)
	CLR	10(P)
L394:	JSR	R0,@GV+286.
	.WORD	20
	MOV	R0, 10(P)
	MOV	#24, 20(P)
	JSR	R0,@GV+308.
	.WORD	20
	MOV	#66, 20(P)
	JSR	R0,@GV+308.
	.WORD	20
	MOV	#53, 20(P)
	MOV	6(P), 22(P)
	MOV	10(P), 24(P)
	CLR	34(P)
	JSR	R0,@GV+288.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+328.
	.WORD	20
	MOV	R0, 6(P)
	MOV	#141, 20(P)
	JSR	R0,@GV+308.
	.WORD	20
	CMP	#2, GV+230.
	BEQ	L394
	MOV	6(P), R0
	BR	L9698
L9698:
L393:	JMP	EXIT
	.PSECT	CONST
L9697:	.WORD	6
	.ASCII	^RDSECT^
	.PSECT	BCPL
L370:	JSR	R1, ENTER
	.WORD	L9697
	MOV	GV+232., 10(P)
	CLR	12(P)
	MOV	#133, 22(P)
	MOV	#6, 24(P)
	JSR	R0,@GV+306.
	.WORD	22
	JSR	R0,@6(P)
	.WORD	22
	MOV	R0, 12(P)
	CMP	#134, GV+230.
	BEQ	L9696
	MOV	#7, 22(P)
	JSR	R0,@GV+302.
	.WORD	22
	BR	L9695
L397:	JSR	R0,@GV+240.
	.WORD	22
L9695:
L398:	CMP	#134, GV+230.
	BEQ	L9694
	CMP	#132, GV+230.
	BNE	L397
L9694:
L399:
L9696:
L396:	CMP	GV+232., 10(P)
	BNE	L9693
	JSR	R0,@GV+240.
	.WORD	22
	BR	L9692
L9693:
L400:	CMP	GV+268., GV+232.
	BNE	L9691
	CLR	GV+230.
	MOV	#11, 22(P)
	JSR	R0,@GV+302.
	.WORD	22
L9691:
L402:
L9692:
L401:	MOV	12(P), R0
	BR	L9690
L9690:
L395:	JMP	EXIT
	.PSECT	CONST
L9689:	.WORD	11
	.ASCII	^RNAMELIST^
	.EVEN
	.PSECT	BCPL
L371:	JSR	R1, ENTER
	.WORD	L9689
	JSR	R0,@GV+286.
	.WORD	14
	MOV	R0, 6(P)
	CMP	#46, GV+230.
	BEQ	L9688
	MOV	6(P), R0
	BR	L9687
L9688:
L404:	JSR	R0,@GV+240.
	.WORD	16
	MOV	#46, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+284.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+326.
	.WORD	16
	BR	L9687
L9687:
L403:	JMP	EXIT
	.PSECT	CONST
L9686:	.WORD	5
	.ASCII	^RNAME^
	.EVEN
	.PSECT	BCPL
L372:	JSR	R1, ENTER
	.WORD	L9686
	MOV	GV+232., 6(P)
	MOV	#2, 16(P)
	MOV	#10, 20(P)
	JSR	R0,@GV+306.
	.WORD	16
	MOV	6(P), R0
	BR	L9685
L9685:
L405:	JMP	EXIT
	.PSECT	CONST
L9684:	.WORD	6
	.ASCII	^IGNORE^
	.PSECT	BCPL
L373:	JSR	R1, ENTER
	.WORD	L9684
	CMP	6(P), GV+230.
	BNE	L9683
	JSR	R0,@GV+240.
	.WORD	16
L9683:
L406:	JMP	EXIT
	.PSECT	CONST
L9682:	.WORD	10
	.ASCII	^CHECKFOR^
	.PSECT	BCPL
L374:	JSR	R1, ENTER
	.WORD	L9682
	CMP	6(P), GV+230.
	BEQ	L9681
	MOV	10(P), 20(P)
	JSR	R0,@GV+302.
	.WORD	20
L9681:
L407:	JSR	R0,@GV+240.
	.WORD	20
	JMP	EXIT
L375:	.PSECT	GLOBAL
	.=GV+280.
	.WORD	L366
	.=GV+294.
	.WORD	L369
	.=GV+282.
	.WORD	L370
	.WORD	L371
	.WORD	L372
	.=GV+308.
	.WORD	L373
	.=GV+306.
	.WORD	L374
	.=GV+336.
	.PSECT	CONST
L368:	.WORD	L367
L378:	.WORD	L377
L380:	.WORD	L379
	.PSECT	BCPL
	BR	L9680
	.PSECT	CONST
L9679:	.WORD	5
	.ASCII	^RBEXP^
	.EVEN
	.PSECT	BCPL
L408:	JSR	R1, ENTER
	.WORD	L9679
	CLR	6(P)
	MOV	GV+230., 10(P)
	BR	L9678
L415:	MOV	#40, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
	JSR	R0,@GV+240.
	.WORD	20
	MOV	#1, 20(P)
	CLR	22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9677
L416:
L417:
L418:	MOV	GV+232., 6(P)
	JSR	R0,@GV+240.
	.WORD	20
	MOV	6(P), R0
	BR	L9677
L419:	MOV	GV+216., 20(P)
	JSR	R0,@GV+332.
	.WORD	20
	MOV	R0, 6(P)
	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	#3, (R0)
	MOV	GV+216., R0
	DEC	R0
	CLR	12(P)
	MOV	R0, 14(P)
	BR	L9676
L421:	MOV	12(P), R0
	ADD	GV+212., R0
	ASL	R0
	MOV	(R0), R0
	MOV	12(P), R1
	INC	R1
	ADD	6(P), R1
	ASL	R1
	MOV	R0, (R1)
	INC	12(P)
L9676:
L420:	CMP	12(P), 14(P)
	BLE	L421
	JSR	R0,@GV+240.
	.WORD	20
	MOV	6(P), R0
	BR	L9677
L422:	JSR	R0,@GV+240.
	.WORD	20
	CMP	#1, GV+230.
	BEQ	L9675
	MOV	#41, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
L9675:
L423:	MOV	GV+198., GV+196.
L424:
L425:	MOV	#1, 20(P)
	MOV	GV+196., 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	MOV	R0, 6(P)
	JSR	R0,@GV+240.
	.WORD	20
	MOV	6(P), R0
	BR	L9677
L9680:	JMP	L411
L9678:	JMP	L413
L426:	JSR	R0,@GV+240.
	.WORD	20
	CLR	20(P)
	JSR	R0,@GV+288.
	.WORD	20
	MOV	R0, 6(P)
	MOV	#152, 20(P)
	MOV	#17, 22(P)
	JSR	R0,@GV+306.
	.WORD	20
	MOV	6(P), R0
	BR	L9677
L9677:	JMP	L412
L427:	JSR	R0,@GV+240.
	.WORD	20
	MOV	10(P), 20(P)
	CLR	30(P)
	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9674
L428:	JSR	R0,@GV+240.
	.WORD	20
	MOV	#6, 20(P)
	JSR	R0,@GV+292.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9674
L429:	MOV	#10, 10(P)
L430:
L431:	JSR	R0,@GV+240.
	.WORD	20
	MOV	10(P), 20(P)
	MOV	#43, 30(P)
	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9674
L432:	JSR	R0,@GV+240.
	.WORD	20
	MOV	#42, 20(P)
	JSR	R0,@GV+288.
	.WORD	20
	BR	L9674
L433:	JSR	R0,@GV+240.
	.WORD	20
	MOV	#42, 20(P)
	JSR	R0,@GV+288.
	.WORD	20
	MOV	R0, 6(P)
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9673
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	NEG	R0
	MOV	6(P), R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	BR	L9672
L9673:
L434:	MOV	#21, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	MOV	R0, 6(P)
L9672:
L435:	MOV	6(P), R0
	BR	L9674
L436:	JSR	R0,@GV+240.
	.WORD	20
	MOV	#36, 20(P)
	MOV	#30, 30(P)
	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9674
L437:	JSR	R0,@GV+240.
	.WORD	20
	MOV	#47, 20(P)
	MOV	#13, 30(P)
	JSR	R0,@GV+288.
	.WORD	30
	BR	L9671
L9674:	JMP	L412
L9671:	MOV	R0, 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	BR	L9670
	BR	L9669
L413:	MOV	GV+230., T
	CMP	T, #11
	BGE	L9668
	CMP	T, #4
	BGE	L9667
	CMP	T, #1
	BEQ	L9666
	CMP	T, #2
	BEQ	L9665
	CMP	T, #3
	BEQ	L9664
	BR	L9663
L9667:	BEQ	L9662
	CMP	T, #5
	BEQ	L9661
	CMP	T, #6
	BEQ	L9660
	CMP	T, #7
	BEQ	L9659
	CMP	T, #10
	BEQ	L9658
	BR	L9663
L9668:	BEQ	L9657
	CMP	T, #36
	BGE	L9656
	CMP	T, #16
	BEQ	L9655
	CMP	T, #17
	BEQ	L9654
	CMP	T, #20
	BEQ	L9653
	BR	L9663
L9656:	BEQ	L436
	CMP	T, #47
	BEQ	L437
	CMP	T, #120
	BEQ	L9652
	CMP	T, #151
	BEQ	L9651
	CMP	T, #155
	BEQ	L9650
	BR	L9663
L9669:
L414:L9670:
L412:	JMP	EXIT
	.PSECT	CONST
L9649:	.WORD	4
	.ASCII	^REXP^
	.PSECT	BCPL
L410:	JSR	R1, ENTER
	.WORD	L9649
	JSR	R0,@L409
	.WORD	16
	MOV	R0, 10(P)
	CLR	12(P)
	CLR	14(P)
	CLR	16(P)
	CLR	20(P)
L439:	MOV	GV+230., 22(P)
	TST	GV+244.
	BEQ	L9648
	MOV	10(P), R0
	BR	L9647
L9648:
L445:	BR	L9646
L448:	MOV	10(P), R0
	BR	L9647
L449:	JSR	R0,@GV+240.
	.WORD	32
	CLR	12(P)
	CMP	#152, GV+230.
	BEQ	L9645
	CLR	32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 12(P)
L9645:
L450:	MOV	#152, 32(P)
	MOV	#23, 34(P)
	JSR	R0,@GV+306.
	.WORD	32
	MOV	#12, 32(P)
	MOV	10(P), 34(P)
	MOV	12(P), 36(P)
	JSR	R0,@GV+326.
	.WORD	32
	MOV	R0, 10(P)
	BR	L9644
L9666:	JMP	L425
L9665:	JMP	L418
L9664:	JMP	L419
L9663:	JMP	L415
L9662:	JMP	L416
L9661:	JMP	L417
L9660:	JMP	L428
L9659:	JMP	L430
L9658:	JMP	L431
L9657:	JMP	L429
L9655:	JMP	L432
L9654:	JMP	L433
L9653:	JMP	L424
L9644:	JMP	@L440
L451:	CMP	6(P), #50
	BLT	L9643
	MOV	10(P), R0
	BR	L9647
L9652:	JMP	L427
L9651:	JMP	L426
L9650:	JMP	L422
L9643:
L452:	JSR	R0,@GV+240.
	.WORD	32
	MOV	GV+232., 12(P)
	MOV	#2, 32(P)
	MOV	#53, 34(P)
	JSR	R0,@GV+306.
	.WORD	32
	MOV	#12, 32(P)
	MOV	12(P), 34(P)
	MOV	#46, 44(P)
	MOV	10(P), 46(P)
	MOV	#50, 56(P)
	JSR	R0,@GV+288.
	.WORD	56
	MOV	R0, 50(P)
	BR	L9642
L9647:	JMP	L438
L9646:	JMP	L446
L9642:	JSR	R0,@GV+326.
	.WORD	44
	MOV	R0, 36(P)
	JSR	R0,@GV+326.
	.WORD	32
	MOV	R0, 10(P)
	JMP	@L440
L453:	MOV	#50, 16(P)
	JMP	@L444
L454:
L455:
L456:	MOV	#43, 16(P)
	JMP	@L444
L457:
L458:	MOV	#42, 16(P)
	JMP	@L444
L459:
L460:
L461:
L462:
L463:
L464:	CMP	6(P), #36
	BLT	L9641
	MOV	10(P), R0
	BR	L9640
L9641:
L465:
L466:	JSR	R0,@GV+240.
	.WORD	32
	MOV	#36, 32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 12(P)
	MOV	22(P), 32(P)
	MOV	10(P), 34(P)
	MOV	12(P), 36(P)
	JSR	R0,@GV+326.
	.WORD	32
	MOV	R0, 10(P)
	TST	14(P)
	BNE	L9639
	MOV	10(P), 14(P)
	BR	L9638
L9639:
L467:	MOV	#41, 32(P)
	MOV	14(P), 34(P)
	MOV	10(P), 36(P)
	JSR	R0,@GV+326.
	.WORD	32
	MOV	R0, 14(P)
L9638:
L468:	MOV	12(P), 10(P)
	MOV	GV+230., 22(P)
	CMP	#24, 22(P)
	BGT	L9637
	CMP	22(P), #31
	BLE	L466
L9637:
L469:	MOV	14(P), 10(P)
	JMP	@L440
L470:
L471:	MOV	#31, 16(P)
	MOV	#36, 20(P)
	JMP	@L442
L472:	MOV	#27, 16(P)
	JMP	@L444
L473:	MOV	#26, 16(P)
	JMP	@L444
L474:
L475:	MOV	#25, 16(P)
	JMP	@L444
L476:	CMP	6(P), #15
	BLT	L9636
	MOV	10(P), R0
	BR	L9640
L9636:
L477:	JSR	R0,@GV+240.
	.WORD	32
	MOV	#14, 32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 12(P)
	MOV	#46, 32(P)
	MOV	#36, 34(P)
	JSR	R0,@GV+306.
	.WORD	32
	MOV	#45, 32(P)
	MOV	10(P), 34(P)
	BR	L9635
L9640:	JMP	L438
L9635:	MOV	12(P), 36(P)
	MOV	#14, 46(P)
	JSR	R0,@GV+288.
	.WORD	46
	MOV	R0, 40(P)
	JSR	R0,@GV+328.
	.WORD	32
	MOV	R0, 10(P)
	JMP	@L440
L478:	MOV	#14, 16(P)
	MOV	#13, 20(P)
	JMP	@L442
L443:	MOV	16(P), 20(P)
L441:	CMP	6(P), 16(P)
	BLT	L9634
	MOV	10(P), R0
	BR	L9633
L9634:
L479:	JSR	R0,@GV+240.
	.WORD	32
	MOV	22(P), 32(P)
	MOV	10(P), 34(P)
	MOV	20(P), 44(P)
	JSR	R0,@GV+288.
	.WORD	44
	MOV	R0, 36(P)
	JSR	R0,@GV+326.
	.WORD	32
	MOV	R0, 10(P)
	JMP	@L440
	BR	L9632
L446:	MOV	22(P), T
	CMP	T, #30
	BGE	L9631
	CMP	T, #16
	BGE	L9630
	CMP	T, #11
	BEQ	L9629
	CMP	T, #13
	BEQ	L9628
	CMP	T, #14
	BEQ	L9627
	CMP	T, #15
	BEQ	L9626
	BR	L9625
L9630:	BEQ	L9624
	CMP	T, #17
	BEQ	L9623
	CMP	T, #24
	BEQ	L9622
	CMP	T, #25
	BEQ	L9621
	CMP	T, #26
	BEQ	L9620
	CMP	T, #27
	BEQ	L9619
	BR	L9625
L9631:	BEQ	L9618
	CMP	T, #43
	BGE	L9617
	CMP	T, #31
	BEQ	L9616
	CMP	T, #37
	BEQ	L9615
	CMP	T, #40
	BEQ	L9614
	CMP	T, #41
	BEQ	L9613
	CMP	T, #42
	BEQ	L9612
	BR	L9625
L9617:	BEQ	L9611
	CMP	T, #44
	BEQ	L9610
	CMP	T, #45
	BEQ	L9609
	CMP	T, #46
	BEQ	L478
	CMP	T, #122
	BEQ	L9608
	CMP	T, #151
	BEQ	L9607
	BR	L9625
L9632:
L447:L9633:
L438:	JMP	EXIT
L411:	BR	L9606
L9629:	JMP	L453
L9628:	JMP	L455
L9627:	JMP	L456
L9626:	JMP	L454
L9625:	JMP	L448
L9624:	JMP	L457
L9623:	JMP	L458
L9622:	JMP	L459
L9621:	JMP	L460
L9620:	JMP	L463
L9619:	JMP	L464
L9618:	JMP	L461
L9616:	JMP	L462
L9615:	JMP	L470
L9614:	JMP	L471
L9613:	JMP	L472
L9612:	JMP	L473
L9611:	JMP	L474
L9610:	JMP	L475
L9609:	JMP	L476
L9608:	JMP	L451
L9607:	JMP	L449
L9606:	.PSECT	GLOBAL
	.=GV+288.
	.WORD	L410
	.=GV+336.
	.PSECT	CONST
L409:	.WORD	L408
L440:	.WORD	L439
L442:	.WORD	L441
L444:	.WORD	L443
	.PSECT	BCPL
	BR	L9605
	.PSECT	CONST
L9604:	.WORD	4
	.ASCII	^RDEF^
	.PSECT	BCPL
L480:	JSR	R1, ENTER
	.WORD	L9604
	JSR	R0,@GV+284.
	.WORD	14
	MOV	R0, 6(P)
	BR	L9603
L485:	CLR	10(P)
	JSR	R0,@GV+240.
	.WORD	20
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BEQ	L9602
	MOV	#50, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
L9602:
L486:	CMP	#2, GV+230.
	BNE	L9601
	JSR	R0,@GV+284.
	.WORD	20
	MOV	R0, 10(P)
L9601:
L487:	MOV	#152, 20(P)
	MOV	#51, 22(P)
	JSR	R0,@GV+306.
	.WORD	20
	CMP	#131, GV+230.
	BNE	L9600
	JSR	R0,@GV+240.
	.WORD	20
	MOV	#55, 20(P)
	MOV	6(P), 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+292.
	.WORD	34
	MOV	R0, 26(P)
	CLR	30(P)
	JSR	R0,@GV+330.
	.WORD	20
	BR	L9599
L9600:
L488:	CMP	#24, GV+230.
	BNE	L9598
	JSR	R0,@GV+240.
	.WORD	20
	MOV	#54, 20(P)
	MOV	6(P), 22(P)
	MOV	10(P), 24(P)
	CLR	34(P)
	JSR	R0,@GV+288.
	.WORD	34
	MOV	R0, 26(P)
	CLR	30(P)
	JSR	R0,@GV+330.
	.WORD	20
	BR	L9599
L9598:
L489:	MOV	#52, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
	MOV	#51, 20(P)
	MOV	6(P), 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+326.
	.WORD	20
	BR	L9597
L9605:	JMP	L481
L9603:	JMP	L483
L9597:	BR	L9599
L490:	MOV	#54, 16(P)
	JSR	R0,@GV+302.
	.WORD	16
L491:	MOV	#51, 10(P)
	JSR	R0,@GV+240.
	.WORD	20
	CMP	#147, GV+230.
	BNE	L9596
	MOV	#52, 10(P)
	JSR	R0,@GV+240.
	.WORD	20
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BEQ	L9595
	MOV	#53, 20(P)
	JSR	R0,@GV+302.
	.WORD	20
L9595:
L493:
L9596:
L492:	MOV	10(P), 20(P)
	MOV	6(P), 22(P)
	CLR	32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+326.
	.WORD	20
	BR	L9599
	BR	L9594
L483:	MOV	GV+230., T
	CMP	T, #24
	BEQ	L491
	CMP	T, #151
	BEQ	L9593
	BR	L490
L9599:	JMP	L482
L9594:
L484:L482:	JMP	EXIT
L481:	BR	L9592
L9593:	JMP	L485
L9592:	.PSECT	GLOBAL
	.=GV+290.
	.WORD	L480
	.=GV+336.
	.PSECT	BCPL
	BR	L9591
	.PSECT	CONST
L9590:	.WORD	5
	.ASCII	^RBCOM^
	.EVEN
	.PSECT	BCPL
L494:	JSR	R1, ENTER
	.WORD	L9590
	CLR	6(P)
	CLR	10(P)
	MOV	GV+230., 12(P)
	BR	L9589
L501:	CLR	R0
	BR	L9588
L502:
L503:
L504:
L505:
L506:
L507:
L508:
L509:
L510:
L511:
L512:
L513:
L514:	CLR	22(P)
	JSR	R0,@GV+288.
	.WORD	22
	MOV	R0, 6(P)
	CMP	#62, GV+230.
	BNE	L9587
	JSR	R0,@GV+240.
	.WORD	22
	MOV	#62, 22(P)
	MOV	6(P), 24(P)
	CLR	34(P)
	JSR	R0,@GV+288.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	BR	L9588
L9587:
L515:	CMP	#66, GV+230.
	BNE	L9586
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BEQ	L9585
	MOV	#62, 22(P)
	JSR	R0,@GV+302.
	.WORD	22
L9585:
L517:	JSR	R0,@GV+240.
	.WORD	22
	MOV	#66, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+292.
	.WORD	34
	MOV	R0, 26(P)
	CLR	30(P)
	JSR	R0,@GV+328.
	.WORD	22
	BR	L9588
L9586:
L516:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #12
	BNE	L9584
	MOV	6(P), R0
	ASL	R0
	MOV	#63, (R0)
	MOV	6(P), R0
	BR	L9588
L9584:
L518:	MOV	#63, 22(P)
	JSR	R0,@GV+302.
	.WORD	22
	MOV	6(P), R0
	BR	L9588
L519:
L520:
L521:	JSR	R0,@GV+240.
	.WORD	22
	MOV	12(P), 22(P)
	CLR	32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+324.
	.WORD	22
	BR	L9583
L9591:	JMP	L497
L9589:	JMP	L499
L9588:	JMP	L498
L9583:	BR	L9582
L522:
L523:
L524:
L525:	JSR	R0,@GV+240.
	.WORD	22
	CLR	22(P)
	JSR	R0,@GV+288.
	.WORD	22
	MOV	R0, 6(P)
	MOV	#145, 22(P)
	JSR	R0,@GV+308.
	.WORD	22
	MOV	12(P), 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+292.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	BR	L9582
L526:	JSR	R0,@GV+240.
	.WORD	22
	CLR	22(P)
	JSR	R0,@GV+288.
	.WORD	22
	MOV	R0, 6(P)
	MOV	#145, 22(P)
	JSR	R0,@GV+308.
	.WORD	22
	JSR	R0,@GV+292.
	.WORD	22
	MOV	R0, 10(P)
	MOV	#146, 22(P)
	MOV	#66, 24(P)
	JSR	R0,@GV+306.
	.WORD	22
	MOV	#67, 22(P)
	MOV	6(P), 24(P)
	MOV	10(P), 26(P)
	JSR	R0,@GV+292.
	.WORD	36
	MOV	R0, 30(P)
	JSR	R0,@GV+328.
	.WORD	22
	BR	L9582
L527:	CLR	14(P)
	CLR	16(P)
	CLR	20(P)
	JSR	R0,@GV+240.
	.WORD	30
	JSR	R0,@GV+286.
	.WORD	30
	MOV	R0, 6(P)
	MOV	#24, 30(P)
	MOV	#71, 32(P)
	JSR	R0,@GV+306.
	.WORD	30
	CLR	30(P)
	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 14(P)
	MOV	#143, 30(P)
	MOV	#72, 32(P)
	JSR	R0,@GV+306.
	.WORD	30
	CLR	30(P)
	BR	L9581
L9582:	JMP	L498
L9581:	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 16(P)
	CMP	#144, GV+230.
	BNE	L9580
	JSR	R0,@GV+240.
	.WORD	30
	CLR	30(P)
	JSR	R0,@GV+288.
	.WORD	30
	MOV	R0, 20(P)
L9580:
L528:	MOV	#145, 30(P)
	JSR	R0,@GV+308.
	.WORD	30
	MOV	P, T
	ADD	#30, T
	MOV	#70, (T)+
	MOV	6(P), (T)+
	MOV	14(P), (T)+
	MOV	16(P), (T)+
	MOV	20(P), (T)+
	JSR	R0,@GV+292.
	.WORD	50
	MOV	R0, 42(P)
	JSR	R0,@GV+338.
	.WORD	30
	BR	L9579
L529:
L530:
L531:
L532:
L533:	MOV	GV+232., 6(P)
	JSR	R0,@GV+240.
	.WORD	22
	MOV	6(P), R0
	BR	L9579
L534:	JSR	R0,@GV+240.
	.WORD	22
	CLR	22(P)
	JSR	R0,@GV+288.
	.WORD	22
	MOV	R0, 6(P)
	MOV	#142, 22(P)
	MOV	#74, 24(P)
	JSR	R0,@GV+306.
	.WORD	22
	MOV	#106, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+292.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	BR	L9579
L535:	JSR	R0,@GV+240.
	.WORD	22
	CLR	22(P)
	JSR	R0,@GV+288.
	.WORD	22
	MOV	R0, 6(P)
	MOV	#66, 22(P)
	MOV	#75, 24(P)
	JSR	R0,@GV+306.
	.WORD	22
	MOV	#107, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+292.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	BR	L9579
L536:	JSR	R0,@GV+240.
	.WORD	22
	MOV	#66, 22(P)
	MOV	#76, 24(P)
	JSR	R0,@GV+306.
	.WORD	22
	MOV	#110, 22(P)
	JSR	R0,@GV+292.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+324.
	.WORD	22
	BR	L9579
L537:	MOV	GV+280., 22(P)
	JSR	R0,@GV+282.
	.WORD	22
	BR	L9579
	BR	L9578
L9579:	JMP	L498
L499:	MOV	GV+230., T
	CMP	T, #70
	BGE	L9577
	CMP	T, #10
	BGE	L9576
	CMP	T, #4
	BGE	L9575
	CMP	T, #1
	BEQ	L9574
	CMP	T, #2
	BEQ	L9573
	CMP	T, #3
	BEQ	L9572
	BR	L9571
L9575:	BEQ	L9570
	CMP	T, #5
	BEQ	L9569
	CMP	T, #6
	BEQ	L9568
	CMP	T, #7
	BEQ	L9567
	BR	L9571
L9576:	BEQ	L9566
	CMP	T, #20
	BGE	L9565
	CMP	T, #11
	BEQ	L9564
	CMP	T, #16
	BEQ	L9563
	CMP	T, #17
	BEQ	L9562
	BR	L9571
L9565:	BEQ	L9561
	CMP	T, #64
	BEQ	L9560
	CMP	T, #65
	BEQ	L9559
	CMP	T, #67
	BEQ	L9558
	BR	L9571
L9577:	BEQ	L9557
	CMP	T, #105
	BGE	L9556
	CMP	T, #74
	BGE	L9555
	CMP	T, #71
	BEQ	L9554
	CMP	T, #72
	BEQ	L9553
	CMP	T, #73
	BEQ	L9552
	BR	L9571
L9555:	BEQ	L9551
	CMP	T, #102
	BEQ	L9550
	CMP	T, #103
	BEQ	L9549
	CMP	T, #104
	BEQ	L9548
	BR	L9571
L9556:	BEQ	L9547
	CMP	T, #120
	BGE	L9546
	CMP	T, #106
	BEQ	L9545
	CMP	T, #107
	BEQ	L9544
	CMP	T, #110
	BEQ	L9543
	BR	L9571
L9546:	BEQ	L9542
	CMP	T, #123
	BEQ	L9541
	CMP	T, #133
	BEQ	L537
	CMP	T, #151
	BEQ	L9540
	BR	L9539
L9578:	JMP	L500
L9539:	BR	L9571
L500:L498:	JMP	EXIT
	.PSECT	CONST
L9538:	.WORD	4
	.ASCII	^RCOM^
	.PSECT	BCPL
L496:	JSR	R1, ENTER
	.WORD	L9538
	JSR	R0,@L495
	.WORD	14
	MOV	R0, 6(P)
	BR	L9537
L9574:	JMP	L503
L9573:	JMP	L502
L9572:	JMP	L504
L9571:	JMP	L501
L9570:	JMP	L506
L9569:	JMP	L507
L9568:	JMP	L512
L9567:	JMP	L508
L9566:	JMP	L509
L539:	JSR	R0,@GV+240.
	.WORD	16
	MOV	#111, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@L495
	.WORD	30
	MOV	R0, 22(P)
	BR	L9536
L9564:	JMP	L510
L9563:	JMP	L513
L9562:	JMP	L514
L9561:	JMP	L505
L9560:	JMP	L519
L9559:	JMP	L520
L9558:	JMP	L526
L9557:	JMP	L527
L9536:	JSR	R0,@GV+326.
	.WORD	16
	MOV	R0, 6(P)
L9537:
L540:	CMP	#111, GV+230.
	BEQ	L539
	BR	L9535
L9554:	JMP	L522
L9553:	JMP	L523
L9552:	JMP	L524
L9551:	JMP	L525
L9550:	JMP	L529
L9549:	JMP	L530
L9548:	JMP	L531
L9547:	JMP	L532
L541:	MOV	GV+230., 10(P)
	JSR	R0,@GV+240.
	.WORD	20
	CMP	#121, 10(P)
	BNE	L9534
	JSR	R0,@GV+290.
	.WORD	20
	BR	L9533
L9545:	JMP	L534
L9544:	JMP	L535
L9543:	JMP	L536
L9542:	JMP	L521
L9541:	JMP	L533
L9540:	JMP	L511
L9533:	MOV	R0, 12(P)
	BR	L9532
L544:	JSR	R0,@GV+240.
	.WORD	22
	MOV	#50, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+290.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	MOV	R0, 12(P)
L9532:
L545:	CMP	#50, GV+230.
	BEQ	L544
	MOV	#112, 22(P)
	MOV	12(P), 24(P)
	MOV	6(P), 26(P)
	JSR	R0,@GV+326.
	.WORD	22
	BR	L9531
L9534:
L543:	CMP	#75, 10(P)
	BNE	L9530
	MOV	10(P), 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+324.
	.WORD	20
	MOV	R0, 6(P)
	BR	L9529
L9530:
L546:	MOV	10(P), 20(P)
	MOV	6(P), 22(P)
	CLR	32(P)
	JSR	R0,@GV+288.
	.WORD	32
	MOV	R0, 24(P)
	JSR	R0,@GV+326.
	.WORD	20
	MOV	R0, 6(P)
L9529:
L547:L9535:
L542:	CMP	#75, GV+230.
	BEQ	L541
	CMP	#76, GV+230.
	BEQ	L541
	CMP	#77, GV+230.
	BEQ	L541
	CMP	#121, GV+230.
	BEQ	L541
	MOV	6(P), R0
	BR	L9531
L9531:
L538:	JMP	EXIT
L497:	.PSECT	GLOBAL
	.=GV+292.
	.WORD	L496
	.=GV+338.
	.PSECT	CONST
L495:	.WORD	L494
	.PSECT	BCPL
	BR	L9528
	.PSECT	CONST
L9527:	.WORD	5
	.ASCII	^PLIST^
	.EVEN
	.PSECT	BCPL
L549:	JSR	R1, ENTER
	.WORD	L9527
	CLR	14(P)
	MOV	#L553/2, 16(P)
	TST	6(P)
	BNE	L9526
	.PSECT	CONST
L9525:	.WORD	4
	.ASCII	^NIL>^
	.PSECT	BCPL
	MOV	#L9525/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	JMP	EXIT
L9526:
L554:	BR	L9524
L557:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+64.
	.WORD	26
	MOV	#76, 26(P)
	JSR	R0,@GV+56.
	.WORD	26
	JMP	EXIT
L558:	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	#76, 26(P)
	JSR	R0,@GV+56.
	.WORD	26
	JMP	EXIT
L559:	MOV	#42, 26(P)
	JSR	R0,@GV+56.
	.WORD	26
	MOV	6(P), R0
	INC	R0
	MOV	R0, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	.PSECT	CONST
L9523:	.WORD	2
	.ASCII	^">^
	.PSECT	BCPL
	MOV	#L9523/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	JMP	EXIT
L560:	MOV	#2, R0
	ADD	14(P), R0
	MOV	R0, 14(P)
L561:
L562:
L563:
L564:
L565:	MOV	14(P), R0
	INC	R0
	MOV	R0, 14(P)
L566:
L567:
L568:
L569:
L570:
L571:
L572:
L573:
L574:
L575:
L576:
L577:
L578:
L579:
L580:
L581:
L582:
L583:
L584:
L585:
L586:
L587:
L588:
L589:
L590:
L591:
L592:
L593:
L594:
L595:
L596:
L597:
L598:
L599:
L600:
L601:
L602:
L603:
L604:	MOV	14(P), R0
	INC	R0
	MOV	R0, 14(P)
L605:
L606:
L607:
L608:
L609:
L610:
L611:
L612:
L613:
L614:	MOV	14(P), R0
	INC	R0
	MOV	R0, 14(P)
L615:
L616:
L617:
L618:
L619:
L620:
L621:
L622:	MOV	14(P), R0
	INC	R0
	MOV	R0, 14(P)
	CMP	12(P), 10(P)
	BNE	L9522
	.PSECT	CONST
L9521:	.WORD	4
	.ASCII	^ETC>^
	.PSECT	BCPL
	MOV	#L9521/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	JMP	EXIT
L9528:	JMP	L552
L9522:
L623:	BR	L9520
L627:	.PSECT	CONST
L9519:	.WORD	5
	.ASCII	^FNDEF^
	.EVEN
	.PSECT	BCPL
	MOV	#L9519/2, R0
	BR	L9518
L628:	.PSECT	CONST
L9517:	.WORD	5
	.ASCII	^RTDEF^
	.EVEN
	.PSECT	BCPL
	MOV	#L9517/2, R0
	BR	L9518
L629:	.PSECT	CONST
L9516:	.WORD	10
	.ASCII	^CONSTDEF^
	.PSECT	BCPL
	MOV	#L9516/2, R0
	BR	L9518
L630:	.PSECT	CONST
L9515:	.WORD	6
	.ASCII	^VECDEF^
	.PSECT	BCPL
	MOV	#L9515/2, R0
	BR	L9518
L9524:	JMP	L555
L631:	.PSECT	CONST
L9514:	.WORD	6
	.ASCII	^VALDEF^
	.PSECT	BCPL
	MOV	#L9514/2, R0
	BR	L9518
L632:	.PSECT	CONST
L9513:	.WORD	4
	.ASCII	^FNAP^
	.PSECT	BCPL
	MOV	#L9513/2, R0
	BR	L9518
L633:	.PSECT	CONST
L9512:	.WORD	4
	.ASCII	^RTAP^
	.PSECT	BCPL
	MOV	#L9512/2, R0
	BR	L9518
L634:	.PSECT	CONST
L9511:	.WORD	3
	.ASCII	^SEQ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9511/2, R0
	BR	L9518
L635:	.PSECT	CONST
L9510:	.WORD	2
	.ASCII	^->^
	.PSECT	BCPL
	MOV	#L9510/2, R0
	BR	L9518
L636:	.PSECT	CONST
L9509:	.WORD	2
	.ASCII	^:=^
	.PSECT	BCPL
	MOV	#L9509/2, R0
	BR	L9518
L637:	.PSECT	CONST
L9508:	.WORD	1
	.ASCII	^*^
	.EVEN
	.PSECT	BCPL
	MOV	#L9508/2, R0
	BR	L9518
L638:	.PSECT	CONST
L9507:	.WORD	1
	.ASCII	^/^
	.EVEN
	.PSECT	BCPL
	MOV	#L9507/2, R0
	BR	L9518
L639:	.PSECT	CONST
L9506:	.WORD	1
	.ASCII	^%^
	.EVEN
	.PSECT	BCPL
	MOV	#L9506/2, R0
	BR	L9518
L640:	.PSECT	CONST
L9505:	.WORD	1
	.ASCII	^+^
	.EVEN
	.PSECT	BCPL
	MOV	#L9505/2, R0
	BR	L9518
L641:	.PSECT	CONST
L9504:	.WORD	1
	.ASCII	^-^
	.EVEN
	.PSECT	BCPL
	MOV	#L9504/2, R0
	BR	L9518
L642:	.PSECT	CONST
L9503:	.WORD	1
	.ASCII	^:^
	.EVEN
	.PSECT	BCPL
	MOV	#L9503/2, R0
	BR	L9518
L643:	.PSECT	CONST
L9502:	.WORD	1
	.ASCII	^,^
	.EVEN
	.PSECT	BCPL
	MOV	#L9502/2, R0
	BR	L9518
L644:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	GV+296., 34(P)
	MOV	R0, 36(P)
	JSR	R0,@L551
	.WORD	34
	TST	R0
	BEQ	L9501
	MOV	L548, R0
	BR	L9518
L9501:
L645:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+64.
	.WORD	34
	.PSECT	CONST
L9500:	.WORD	3
	.ASCII	^-OP^
	.EVEN
	.PSECT	BCPL
	MOV	#L9500/2, R0
	BR	L9518
	BR	L9499
L9520:
L625:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #51
	BGE	L9498
	CMP	T, #14
	BGE	L9497
	CMP	T, #11
	BEQ	L639
	CMP	T, #12
	BEQ	L632
	CMP	T, #13
	BEQ	L637
	BR	L644
L9497:	BEQ	L638
	CMP	T, #16
	BEQ	L640
	CMP	T, #17
	BEQ	L641
	CMP	T, #45
	BEQ	L635
	CMP	T, #46
	BEQ	L643
	BR	L644
L9518:	JMP	L624
L9498:	BEQ	L631
	CMP	T, #55
	BGE	L9496
	CMP	T, #52
	BEQ	L630
	CMP	T, #53
	BEQ	L629
	CMP	T, #54
	BEQ	L9495
	BR	L644
L9496:	BEQ	L9494
	CMP	T, #62
	BEQ	L636
	CMP	T, #63
	BEQ	L633
	CMP	T, #66
	BEQ	L642
	CMP	T, #111
	BEQ	L634
	BR	L644
L9499:
L626:
L624:	MOV	R0, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	#76, 26(P)
	JSR	R0,@GV+56.
	.WORD	26
	MOV	#2, 20(P)
	MOV	14(P), 22(P)
	BR	L9493
L647:	JSR	R0,@GV+86.
	.WORD	32
	CMP	14(P), 20(P)
	BNE	L9492
	.PSECT	CONST
L9491:	.WORD	3
	.ASCII	^  ^<140>
	.EVEN
	.PSECT	BCPL
	MOV	#L9491/2, 24(P)
	BR	L9490
L9492:
L649:	.PSECT	CONST
L9489:	.WORD	3
	.ASCII	^  ^<174>
	.EVEN
	.PSECT	BCPL
	MOV	#L9489/2, 24(P)
L9490:
L648:	MOV	10(P), R0
	ADD	16(P), R0
	ASL	R0
	MOV	24(P), (R0)
	CLR	24(P)
	MOV	10(P), 26(P)
	BR	L9488
L651:	MOV	24(P), R0
	ADD	16(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 36(P)
	JSR	R0,@GV+72.
	.WORD	36
	INC	24(P)
L9488:
L650:	CMP	24(P), 26(P)
	BLE	L651
	.PSECT	CONST
L9487:	.WORD	2
	.ASCII	^-<^
	.PSECT	BCPL
	MOV	#L9487/2, 32(P)
	JSR	R0,@GV+72.
	.WORD	32
	CMP	14(P), 20(P)
	BNE	L9486
	.PSECT	CONST
L9485:	.WORD	3
	.ASCII	^   ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9485/2, 24(P)
	BR	L9484
L9486:
L653:	.PSECT	CONST
L9483:	.WORD	3
	.ASCII	^  ^<174>
	.EVEN
	.PSECT	BCPL
	MOV	#L9483/2, 24(P)
L9484:
L652:	MOV	10(P), R0
	ADD	16(P), R0
	ASL	R0
	MOV	24(P), (R0)
	MOV	20(P), R0
	ADD	6(P), R0
	DEC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	INC	R1
	MOV	R0, 32(P)
	MOV	R1, 34(P)
	MOV	12(P), 36(P)
	JSR	R0,@GV+304.
	.WORD	32
	BR	L9482
L9495:	JMP	L627
L9494:	JMP	L628
L9482:	INC	20(P)
L9493:
L646:	CMP	20(P), 22(P)
	BLE	L647
	JMP	EXIT
	BR	L9481
L555:	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#1, T
	BLT	L9479
	CMP	T, #122
	BGT	L9479
	ASL	T
	JMP	@L9480(T)
L9480:	.WORD	L557
	.WORD	L558
	.WORD	L559
	.WORD	L619
	.WORD	L620
	.WORD	L605
	.WORD	L606
	.WORD	L607
	.WORD	L566
	.WORD	L567
	.WORD	L568
	.WORD	L569
	.WORD	L570
	.WORD	L571
	.WORD	L572
	.WORD	L622
	.WORD	L608
	.WORD	L622
	.WORD	L622
	.WORD	L573
	.WORD	L574
	.WORD	L575
	.WORD	L576
	.WORD	L577
	.WORD	L578
	.WORD	L622
	.WORD	L622
	.WORD	L622
	.WORD	L622
	.WORD	L609
	.WORD	L579
	.WORD	L580
	.WORD	L581
	.WORD	L582
	.WORD	L583
	.WORD	L584
	.WORD	L561
	.WORD	L585
	.WORD	L610
	.WORD	L586
	.WORD	L587
	.WORD	L588
	.WORD	L565
	.WORD	L562
	.WORD	L563
	.WORD	L622
	.WORD	L622
	.WORD	L622
	.WORD	L622
	.WORD	L589
	.WORD	L590
	.WORD	L611
	.WORD	L612
	.WORD	L591
	.WORD	L564
	.WORD	L560
	.WORD	L592
	.WORD	L593
	.WORD	L594
	.WORD	L595
	.WORD	L613
	.WORD	L596
	.WORD	L597
	.WORD	L622
	.WORD	L622
	.WORD	L615
	.WORD	L616
	.WORD	L617
	.WORD	L618
	.WORD	L598
	.WORD	L599
	.WORD	L622
	.WORD	L600
	.WORD	L601
	.WORD	L602
	.WORD	L604
	.WORD	L622
	.WORD	L622
	.WORD	L603
	.WORD	L614
	.WORD	L622
	.WORD	L622
	.WORD	L621
L9481:
L556:	JMP	EXIT
	.PSECT	CONST
L9478:	.WORD	2
	.ASCII	^IN^
	.PSECT	BCPL
L550:	JSR	R1, ENTER
	.WORD	L9478
	TST	6(P)
	BNE	L9477
	CLR	R0
	BR	L9476
L9477:
L655:	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #2
	BNE	L9475
	CLR	R0
	BR	L9476
L9479:	JMP	L622
L9475:
L656:	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 10(P)
	BNE	L9474
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, L548
	MOV	#177777, R0
	BR	L9476
L9474:
L657:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@L551
	.WORD	20
	MOV	#2, R1
	ADD	6(P), R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 12(P)
	MOV	R1, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@L551
	.WORD	22
	MOV	12(P), R1
	BIS	R0, R1
	MOV	R1, R0
L9476:
L654:	JMP	EXIT
L552:	.PSECT	GLOBAL
	.=GV+304.
	.WORD	L549
	.=GV+338.
	.PSECT	CONST
L548:	.WORD	0
L551:	.WORD	L550
L553:	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.GLOBL	G0
	.GLOBL	G2
	.GLOBL	G3
	.GLOBL	G4
	.GLOBL	G6
	.GLOBL	G8
	.GLOBL	G9
	.GLOBL	G10
	.GLOBL	G11
	.GLOBL	G12
	.GLOBL	G13
	.GLOBL	G14
	.GLOBL	G15
	.GLOBL	G16
	.GLOBL	G17
	.GLOBL	G18
	.GLOBL	G19
	.GLOBL	G20
	.GLOBL	G21
	.GLOBL	G22
	.GLOBL	G26
	.GLOBL	G28
	.GLOBL	G30
	.GLOBL	G32
	.GLOBL	G36
	.GLOBL	G40
	.GLOBL	G43
	.END