.TITLE	BCPL
	T=%4
	P=%5
	.ENABL	LC
	.PSECT	GLOBAL,GBL,OVR
GV:
	.PSECT	BCPL
	BR	L9999
	.PSECT	CONST
L9998:	.WORD	6
	.ASCII	^READOP^
	.PSECT	BCPL
L2:	JSR	R1, ENTER
	.WORD	L9998
	MOV	P, R0
	ASR	R0
	ADD	#4, R0
	MOV	R0, 6(P)
	BR	L9997
	.PSECT	CONST
L9996:	.WORD	1
	.ASCII	^T^
	.EVEN
	.PSECT	BCPL
L8:	JSR	R1, ENTER
	.WORD	L9996
	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	INC	R0
	MOV	R0, R1
	ASR	R1
	CLR	10(P)
	MOV	R1, 12(P)
	BR	L9995
L13:	MOV	10(P), R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	ADD	GV+366., R1
	ASL	R1
	MOV	(R1), R1
	CMP	R0, R1
	BEQ	L9994
	CLR	R0
	BR	L9993
L9994:
L14:	INC	10(P)
L9995:
L12:	CMP	10(P), 12(P)
	BLE	L13
	MOV	#177777, R0
L9993:
L11:	JMP	EXIT
	MOV	R0, 10(P)
L9997:
L10:	JSR	R0,@L5
	.WORD	70
	CMP	#32, GV+364.
	BEQ	L9992
	CMP	#136, GV+364.
	BNE	L9991
L9992:
L16:	MOV	#150, R0
	BR	L9990
L9991:
L15:	MOV	GV+370., R0
	INC	R0
	MOV	R0, GV+370.
	CLR	L1
L17:	MOV	L1, R0
	INC	R0
	MOV	R0, L1
	MOV	L1, R0
	ADD	6(P), R0
	ASL	R0
	MOV	GV+364., (R0)
	JSR	R0,@GV+54.
	.WORD	70
	MOV	R0, GV+364.
	CMP	#101, GV+364.
	BGT	L9989
	CMP	GV+364., #132
	BLE	L17
L9989:
L18:	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	L1, (R0)
	MOV	6(P), 70(P)
	MOV	GV+366., 72(P)
	JSR	R0,@GV+40.
	.WORD	70
	BR	L9988
L9999:	JMP	L6
L21:	CMP	#32, GV+364.
	BNE	L9987
	MOV	#150, R0
	BR	L9990
L9987:
L22:	MOV	#147, R0
	BR	L9990
L23:	.PSECT	CONST
L9986:	.WORD	4
	.ASCII	^CODE^
	.PSECT	BCPL
	MOV	#L9986/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9985
	MOV	#60, 62(P)
	BR	L9984
L9985:
L25:	MOV	#147, 62(P)
L9984:
L24:	MOV	62(P), R0
	BR	L9990
L26:	.PSECT	CONST
L9983:	.WORD	7
	.ASCII	^DATALAB^
	.EVEN
	.PSECT	BCPL
	MOV	#L9983/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9982
	MOV	#144, 62(P)
	BR	L9981
L9982:
L28:	.PSECT	CONST
L9980:	.WORD	3
	.ASCII	^DIV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9980/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9979
	MOV	#14, 62(P)
	BR	L9978
L9979:
L30:	MOV	#147, 62(P)
L9978:
L29:
L9981:
L27:	MOV	62(P), R0
	BR	L9990
L31:	.PSECT	CONST
L9977:	.WORD	2
	.ASCII	^EQ^
	.PSECT	BCPL
	MOV	#L9977/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9976
	MOV	#24, 62(P)
	BR	L9975
L9990:	JMP	L7
L9975:	BR	L9974
L9976:
L33:	.PSECT	CONST
L9973:	.WORD	5
	.ASCII	^ENTRY^
	.EVEN
	.PSECT	BCPL
	MOV	#L9973/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9972
	MOV	#136, 62(P)
	BR	L9971
L9972:
L35:	.PSECT	CONST
L9970:	.WORD	3
	.ASCII	^EQV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9970/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9969
	MOV	#43, 62(P)
	BR	L9968
L9969:
L37:	.PSECT	CONST
L9967:	.WORD	3
	.ASCII	^END^
	.EVEN
	.PSECT	BCPL
	MOV	#L9967/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9966
	MOV	#150, 62(P)
	BR	L9965
L9988:	JMP	L19
L9966:
L39:	MOV	#147, 62(P)
L9965:
L38:
L9968:
L36:
L9971:
L34:
L9974:
L32:	MOV	62(P), R0
	BR	L9964
L40:	.PSECT	CONST
L9963:	.WORD	4
	.ASCII	^FNAP^
	.PSECT	BCPL
	MOV	#L9963/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9962
	MOV	#12, 62(P)
	BR	L9961
L9962:
L42:	.PSECT	CONST
L9960:	.WORD	4
	.ASCII	^FNRN^
	.PSECT	BCPL
	MOV	#L9960/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9959
	MOV	#140, 62(P)
	BR	L9958
L9959:
L44:	.PSECT	CONST
L9957:	.WORD	5
	.ASCII	^FALSE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9957/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9956
	MOV	#5, 62(P)
	BR	L9955
L9956:
L46:	.PSECT	CONST
L9954:	.WORD	6
	.ASCII	^FINISH^
	.PSECT	BCPL
	MOV	#L9954/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9953
	MOV	#104, 62(P)
	BR	L9952
L9953:
L48:	MOV	#147, 62(P)
L9952:
L47:
L9955:
L45:
L9958:
L43:
L9961:
L41:	MOV	62(P), R0
	BR	L9964
L49:	.PSECT	CONST
L9951:	.WORD	4
	.ASCII	^GOTO^
	.PSECT	BCPL
	MOV	#L9951/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9950
	MOV	#64, 62(P)
	BR	L9949
L9950:
L51:	.PSECT	CONST
L9948:	.WORD	2
	.ASCII	^GE^
	.PSECT	BCPL
	MOV	#L9948/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9947
	MOV	#31, 62(P)
	BR	L9946
L9947:
L53:	.PSECT	CONST
L9945:	.WORD	2
	.ASCII	^GR^
	.PSECT	BCPL
	MOV	#L9945/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9944
	MOV	#27, 62(P)
	BR	L9943
L9944:
L55:	.PSECT	CONST
L9942:	.WORD	6
	.ASCII	^GLOBAL^
	.PSECT	BCPL
	MOV	#L9942/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9941
	MOV	#114, 62(P)
	BR	L9940
L9941:
L57:	MOV	#147, 62(P)
L9940:
L56:
L9943:
L54:
L9946:
L52:
L9949:
L50:	MOV	62(P), R0
	BR	L9964
L58:	.PSECT	CONST
L9939:	.WORD	5
	.ASCII	^ITEMN^
	.EVEN
	.PSECT	BCPL
	MOV	#L9939/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9938
	MOV	#146, 62(P)
	BR	L9937
L9964:	JMP	L7
L9937:	BR	L9936
L9938:
L60:	.PSECT	CONST
L9935:	.WORD	5
	.ASCII	^ITEML^
	.EVEN
	.PSECT	BCPL
	MOV	#L9935/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9934
	MOV	#145, 62(P)
	BR	L9933
L9934:
L62:	MOV	#147, 62(P)
L9933:
L61:
L9936:
L59:	MOV	62(P), R0
	BR	L9932
L63:	.PSECT	CONST
L9931:	.WORD	4
	.ASCII	^JUMP^
	.PSECT	BCPL
	MOV	#L9931/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9930
	MOV	#125, 62(P)
	BR	L9929
L9930:
L65:	.PSECT	CONST
L9928:	.WORD	2
	.ASCII	^JF^
	.PSECT	BCPL
	MOV	#L9928/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9927
	MOV	#127, 62(P)
	BR	L9926
L9927:
L67:	.PSECT	CONST
L9925:	.WORD	2
	.ASCII	^JT^
	.PSECT	BCPL
	MOV	#L9925/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9924
	MOV	#126, 62(P)
	BR	L9923
L9924:
L69:	MOV	#147, 62(P)
L9923:
L68:
L9926:
L66:
L9929:
L64:	MOV	62(P), R0
	BR	L9932
L70:	CMP	#2, L1
	BNE	L9922
	BR	L9921
L74:	MOV	#147, R0
	BR	L9932
L75:	MOV	#30, R0
	BR	L9932
L76:	MOV	#52, R0
	BR	L9932
L77:	MOV	#51, R0
	BR	L9932
L78:	MOV	#50, R0
	BR	L9932
L79:	MOV	#54, R0
	BR	L9932
L80:	MOV	#26, R0
	BR	L9932
	BR	L9920
L9921:
L72:	MOV	#2, R0
	ADD	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #105
	BEQ	L75
	CMP	T, #107
	BEQ	L77
	CMP	T, #114
	BEQ	L79
	CMP	T, #116
	BEQ	L76
	CMP	T, #120
	BEQ	L78
	CMP	T, #123
	BEQ	L80
	BR	L74
L9920:
L73:
L9922:
L71:	.PSECT	CONST
L9919:	.WORD	3
	.ASCII	^LAB^
	.EVEN
	.PSECT	BCPL
	MOV	#L9919/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9918
	MOV	#132, 62(P)
	BR	L9917
L9918:
L82:	.PSECT	CONST
L9916:	.WORD	3
	.ASCII	^LLG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9916/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9915
	MOV	#56, 62(P)
	BR	L9914
	BR	L9913
L9932:	JMP	L7
L9913:L9915:
L84:	.PSECT	CONST
L9912:	.WORD	3
	.ASCII	^LLL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9912/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9911
	MOV	#57, 62(P)
	BR	L9910
L9911:
L86:	.PSECT	CONST
L9909:	.WORD	3
	.ASCII	^LLP^
	.EVEN
	.PSECT	BCPL
	MOV	#L9909/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9908
	MOV	#55, 62(P)
	BR	L9907
L9908:
L88:	.PSECT	CONST
L9906:	.WORD	6
	.ASCII	^LOGAND^
	.PSECT	BCPL
	MOV	#L9906/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9905
	MOV	#41, 62(P)
	BR	L9904
L9905:
L90:	.PSECT	CONST
L9903:	.WORD	5
	.ASCII	^LOGOR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9903/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9902
	MOV	#42, 62(P)
	BR	L9901
L9902:
L92:	.PSECT	CONST
L9900:	.WORD	6
	.ASCII	^LSHIFT^
	.PSECT	BCPL
	MOV	#L9900/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9899
	MOV	#37, 62(P)
	BR	L9898
L9899:
L94:	.PSECT	CONST
L9897:	.WORD	4
	.ASCII	^LSTR^
	.PSECT	BCPL
	MOV	#L9897/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9896
	MOV	#53, 62(P)
	BR	L9895
L9896:
L96:	MOV	#147, 62(P)
L9895:
L95:
L9898:
L93:
L9901:
L91:
L9904:
L89:
L9907:
L87:
L9910:
L85:
L9914:
L83:
L9917:
L81:	MOV	62(P), R0
	BR	L9894
L97:	.PSECT	CONST
L9893:	.WORD	5
	.ASCII	^MINUS^
	.EVEN
	.PSECT	BCPL
	MOV	#L9893/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9892
	MOV	#17, 62(P)
	BR	L9891
L9892:
L99:	.PSECT	CONST
L9890:	.WORD	4
	.ASCII	^MULT^
	.PSECT	BCPL
	MOV	#L9890/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9889
	MOV	#13, 62(P)
	BR	L9888
L9889:
L101:	MOV	#147, 62(P)
L9888:
L100:
L9891:
L98:	MOV	62(P), R0
	BR	L9894
L102:	.PSECT	CONST
L9887:	.WORD	2
	.ASCII	^NE^
	.PSECT	BCPL
	MOV	#L9887/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9886
	MOV	#25, 62(P)
	BR	L9885
L9886:
L104:	.PSECT	CONST
L9884:	.WORD	3
	.ASCII	^NEG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9884/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9883
	MOV	#21, 62(P)
	BR	L9882
L9883:
L106:	.PSECT	CONST
L9881:	.WORD	4
	.ASCII	^NEQV^
	.PSECT	BCPL
	MOV	#L9881/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9880
	MOV	#44, 62(P)
	BR	L9879
L9880:
L108:	.PSECT	CONST
L9878:	.WORD	3
	.ASCII	^NOT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9878/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9877
	MOV	#36, 62(P)
	BR	L9876
L9877:
L110:	MOV	#147, 62(P)
L9876:
L109:
L9879:
L107:
L9882:
L105:
L9885:
L103:	MOV	62(P), R0
	BR	L9894
L111:	.PSECT	CONST
L9875:	.WORD	4
	.ASCII	^PLUS^
	.PSECT	BCPL
	MOV	#L9875/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9874
	MOV	#16, 62(P)
	BR	L9873
L9874:
L113:	MOV	#147, 62(P)
L9873:
L112:	MOV	62(P), R0
	BR	L9894
L114:	.PSECT	CONST
L9872:	.WORD	3
	.ASCII	^RES^
	.EVEN
	.PSECT	BCPL
	MOV	#L9872/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9871
	MOV	#142, 62(P)
	BR	L9870
L9894:	JMP	L7
L9871:
L116:	.PSECT	CONST
L9869:	.WORD	3
	.ASCII	^REM^
	.EVEN
	.PSECT	BCPL
	MOV	#L9869/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9868
	MOV	#15, 62(P)
	BR	L9867
L9868:
L118:	.PSECT	CONST
L9866:	.WORD	4
	.ASCII	^RTAP^
	.PSECT	BCPL
	MOV	#L9866/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9865
	MOV	#63, 62(P)
	BR	L9864
L9865:
L120:	.PSECT	CONST
L9863:	.WORD	4
	.ASCII	^RTRN^
	.PSECT	BCPL
	MOV	#L9863/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9862
	MOV	#141, 62(P)
	BR	L9861
L9862:
L122:	.PSECT	CONST
L9860:	.WORD	6
	.ASCII	^RSHIFT^
	.PSECT	BCPL
	MOV	#L9860/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9859
	MOV	#40, 62(P)
	BR	L9858
L9859:
L124:	.PSECT	CONST
L9857:	.WORD	6
	.ASCII	^RSTACK^
	.PSECT	BCPL
	MOV	#L9857/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9856
	MOV	#135, 62(P)
	BR	L9855
L9856:
L126:	.PSECT	CONST
L9854:	.WORD	2
	.ASCII	^RV^
	.PSECT	BCPL
	MOV	#L9854/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9853
	MOV	#10, 62(P)
	BR	L9852
L9853:
L128:	MOV	#147, 62(P)
L9852:
L127:
L9855:
L125:
L9858:
L123:
L9861:
L121:
L9864:
L119:
L9867:
L117:
L9870:
L115:	MOV	62(P), R0
	BR	L9851
L129:	.PSECT	CONST
L9850:	.WORD	2
	.ASCII	^SG^
	.PSECT	BCPL
	MOV	#L9850/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9849
	MOV	#121, 62(P)
	BR	L9848
L9849:
L131:	.PSECT	CONST
L9847:	.WORD	2
	.ASCII	^SP^
	.PSECT	BCPL
	MOV	#L9847/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9846
	MOV	#120, 62(P)
	BR	L9845
L9846:
L133:	.PSECT	CONST
L9844:	.WORD	2
	.ASCII	^SL^
	.PSECT	BCPL
	MOV	#L9844/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9843
	MOV	#122, 62(P)
	BR	L9842
L9843:
L135:	.PSECT	CONST
L9841:	.WORD	5
	.ASCII	^STIND^
	.EVEN
	.PSECT	BCPL
	MOV	#L9841/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9840
	MOV	#123, 62(P)
	BR	L9839
L9840:
L137:	.PSECT	CONST
L9838:	.WORD	5
	.ASCII	^STACK^
	.EVEN
	.PSECT	BCPL
	MOV	#L9838/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9837
	MOV	#133, 62(P)
	BR	L9836
L9837:
L139:	.PSECT	CONST
L9835:	.WORD	4
	.ASCII	^SAVE^
	.PSECT	BCPL
	MOV	#L9835/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9834
	MOV	#137, 62(P)
	BR	L9833
L9834:
L141:	.PSECT	CONST
L9832:	.WORD	10
	.ASCII	^SWITCHON^
	.PSECT	BCPL
	MOV	#L9832/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9831
	MOV	#106, 62(P)
	BR	L9830
L9831:
L143:	.PSECT	CONST
L9829:	.WORD	5
	.ASCII	^STORE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9829/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9828
	MOV	#134, 62(P)
	BR	L9827
L9828:
L145:	MOV	#147, 62(P)
L9827:
L144:
L9830:
L142:
L9833:
L140:
L9836:
L138:
L9839:
L136:
L9842:
L134:
L9845:
L132:
L9848:
L130:	MOV	62(P), R0
	BR	L9851
L146:	.PSECT	CONST
L9826:	.WORD	4
	.ASCII	^TRUE^
	.PSECT	BCPL
	MOV	#L9826/2, 70(P)
	JSR	R0,@L9
	.WORD	70
	TST	R0
	BEQ	L9825
	MOV	#4, 62(P)
	BR	L9824
L9851:	JMP	L7
L9825:
L148:	MOV	#147, 62(P)
L9824:
L147:	MOV	62(P), R0
	BR	L9823
	BR	L9822
L19:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	SUB	#103, T
	BLT	L9820
	CMP	T, #21
	BGT	L9820
	ASL	T
	JMP	@L9821(T)
L9821:	.WORD	L23
	.WORD	L26
	.WORD	L31
	.WORD	L40
	.WORD	L49
	.WORD	L21
	.WORD	L58
	.WORD	L63
	.WORD	L21
	.WORD	L70
	.WORD	L97
	.WORD	L102
	.WORD	L21
	.WORD	L111
	.WORD	L21
	.WORD	L114
	.WORD	L129
	.WORD	L146
L9822:
L20:L9823:
L7:	JMP	EXIT
	.PSECT	CONST
L9819:	.WORD	5
	.ASCII	^READL^
	.EVEN
	.PSECT	BCPL
L3:	JSR	R1, ENTER
	.WORD	L9819
	CLR	6(P)
	JSR	R0,@L5
	.WORD	16
	CMP	#114, GV+364.
	BEQ	L9818
	.PSECT	CONST
L9817:	.WORD	42
	.ASCII	^LABEL DOES NOT START WITH LETTER L^
	.PSECT	BCPL
	MOV	#L9817/2, 16(P)
	JSR	R0,@GV+226.
	.WORD	16
	CLR	R0
	BR	L9816
L9818:
L150:	JSR	R0,@GV+62.
	.WORD	16
	ADD	GV+400., R0
	MOV	R0, 6(P)
	CMP	6(P), GV+402.
	BLE	L9815
	MOV	6(P), GV+402.
L9815:
L151:	MOV	6(P), R0
	BR	L9816
L9816:
L149:	JMP	EXIT
	.PSECT	CONST
L9814:	.WORD	6
	.ASCII	^NEXTCH^
	.PSECT	BCPL
L4:	JSR	R1, ENTER
	.WORD	L9814
L152:	JSR	R0,@GV+54.
	.WORD	14
	MOV	R0, GV+364.
	CMP	#40, GV+364.
	BEQ	L152
	CMP	#12, GV+364.
	BEQ	L152
	JMP	EXIT
L6:	BR	L9813
L9820:	JMP	L21
L9813:	.PSECT	GLOBAL
	.=GV+200.
	.WORD	L2
	.=GV+204.
	.WORD	L3
	.=GV+402.
	.PSECT	CONST
L1:	.WORD	0
L5:	.WORD	L4
L9:	.WORD	L8
	.PSECT	BCPL
	BR	L9812
	.PSECT	CONST
L9811:	.WORD	6
	.ASCII	^CMLERR^
	.PSECT	BCPL
L162:	JSR	R1, ENTER
	.WORD	L9811
	.PSECT	CONST
L9810:	.WORD	23
	.ASCII	^COMMAND LINE ERROR^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9810/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	MOV	L154, 14(P)
	MOV	L153, 16(P)
	JSR	R0,@GV+38.
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9809:	.WORD	7
	.ASCII	^RESTART^
	.EVEN
	.PSECT	BCPL
L164:	JSR	R1, ENTER
	.WORD	L9809
	MOV	L157, 14(P)
	JSR	R0,@GV+12.
	.WORD	14
	MOV	L156, 14(P)
	MOV	L155, 16(P)
	JSR	R0,@GV+38.
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9808:	.WORD	6
	.ASCII	^SYNERR^
	.PSECT	BCPL
L166:	JSR	R1, ENTER
	.WORD	L9808
	.PSECT	CONST
L9807:	.WORD	15
	.ASCII	^SYNTAX ERROR^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9807/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	JSR	R0,@L165
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9806:	.WORD	10
	.ASCII	^OPENIERR^
	.PSECT	BCPL
L168:	JSR	R1, ENTER
	.WORD	L9806
	MOV	L161, GV+8.
	.PSECT	CONST
L9805:	.WORD	30
	.ASCII	^OPEN FAIL ON INPUT FILE^<12>
	.PSECT	BCPL
	MOV	#L9805/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BEQ	L9804
	CLR	R0
	ADD	L160, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
	JSR	R0,@GV+22.
	.WORD	14
L9804:
L187:	JSR	R0,@L165
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9803:	.WORD	10
	.ASCII	^OPENOERR^
	.PSECT	BCPL
L170:	JSR	R1, ENTER
	.WORD	L9803
	.PSECT	CONST
L9802:	.WORD	31
	.ASCII	^OPEN FAIL ON OUTPUT FILE^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9802/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
	JSR	R0,@GV+22.
	.WORD	14
	JSR	R0,@L165
	.WORD	14
	JMP	EXIT
L9812:	JMP	L186
	.PSECT	CONST
L9801:	.WORD	12
	.ASCII	^ISWITCHERR^
	.PSECT	BCPL
L172:	JSR	R1, ENTER
	.WORD	L9801
	MOV	L161, GV+8.
	.PSECT	CONST
L9800:	.WORD	25
	.ASCII	^ILLEGAL INPUT SWITCH^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9800/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BEQ	L9799
	CLR	R0
	ADD	L160, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
	JSR	R0,@GV+22.
	.WORD	14
L9799:
L188:	JSR	R0,@L165
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9798:	.WORD	12
	.ASCII	^OSWITCHERR^
	.PSECT	BCPL
L174:	JSR	R1, ENTER
	.WORD	L9798
	.PSECT	CONST
L9797:	.WORD	26
	.ASCII	^ILLEGAL OUTPUT SWITCH^<12>
	.PSECT	BCPL
	MOV	#L9797/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 14(P)
	JSR	R0,@GV+22.
	.WORD	14
	JSR	R0,@L165
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9796:	.WORD	11
	.ASCII	^MOREINPUT^
	.EVEN
	.PSECT	BCPL
L176:	JSR	R1, ENTER
	.WORD	L9796
	CLR	6(P)
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BEQ	L9795
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+22.
	.WORD	16
L9795:
L190:	MOV	L173, GV+4.
	MOV	L157, 16(P)
	CLR	20(P)
	JSR	R0,@GV+32.
	.WORD	16
	MOV	R0, 6(P)
	TST	6(P)
	BNE	L9794
	CLR	R0
	BR	L9793
L9794:
L191:	MOV	L169, GV+4.
	MOV	6(P), 16(P)
	JSR	R0,@L178
	.WORD	26
	MOV	R0, 20(P)
	MOV	#170, 22(P)
	JSR	R0,@GV+18.
	.WORD	16
	CLR	R1
	ADD	GV+6., R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#2, R0
	ADD	GV+6., R0
	ASL	R0
	CLR	(R0)
	MOV	#5, R0
	ADD	GV+6., R0
	ASL	R0
	CLR	(R0)
	MOV	L159, GV+4.
	MOV	#177777, R0
	BR	L9793
L9793:
L189:	JMP	EXIT
	.PSECT	CONST
L9792:	.WORD	10
	.ASCII	^IDEFAULT^
	.PSECT	BCPL
L177:	JSR	R1, ENTER
	.WORD	L9792
	MOV	#IDFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9791:	.WORD	10
	.ASCII	^ODEFAULT^
	.PSECT	BCPL
L179:	JSR	R1, ENTER
	.WORD	L9791
	MOV	#ODFN/2,R0
	JMP	EXIT
	.PSECT	CONST
L9790:	.WORD	5
	.ASCII	^DUMMY^
	.EVEN
	.PSECT	BCPL
L181:	JSR	R1, ENTER
	.WORD	L9790
	.MCALL	NMBLK$
IDFN:	NMBLK$	INPUT,OCO
ODFN:	NMBLK$	OUTPUT,MAC
	.MCALL	CSI$SW,CSI$ND,CSI$SV
SW:	CSI$SW	ID,,,,,IDV
	CSI$SW	TI,,,,,TIV
	CSI$SW	PS,,,,,PSV
	CSI$ND
IDV:	CSI$SV	,IDS+2,6
	CSI$ND
TIV:	CSI$SV	,TIS+2,6
	CSI$ND
PSV:	CSI$SV	,PSS+2,6
	CSI$ND
IDS:	6,0,0,0
TIS:	6,0,0,0
PSS:	6,0,0,0
	JMP	EXIT
	.PSECT	CONST
L9789:	.WORD	7
	.ASCII	^OSWITCH^
	.EVEN
	.PSECT	BCPL
L183:	JSR	R1, ENTER
	.WORD	L9789
	MOV	#SW/2,R0
	JMP	EXIT
	.PSECT	CONST
L9788:	.WORD	6
	.ASCII	^REPORT^
	.PSECT	BCPL
L185:	JSR	R1, ENTER
	.WORD	L9788
	MOV	L161, GV+8.
	.PSECT	CONST
L9787:	.WORD	10
	.ASCII	^REPORT: ^
	.PSECT	BCPL
	MOV	#L9787/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	MOV	6(P), 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+84.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
	MOV	L158, R0
	INC	R0
	MOV	R0, L158
	CMP	L158, #6
	BLE	L9786
	.PSECT	CONST
L9785:	.WORD	24
	.ASCII	^TRANSLATION ABORTED^<12>
	.PSECT	BCPL
	MOV	#L9785/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+22.
	.WORD	20
	CLR	R0
	ADD	L160, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+22.
	.WORD	20
	MOV	L156, 20(P)
	MOV	L155, 22(P)
	JSR	R0,@GV+38.
	.WORD	20
L9786:
L192:	MOV	L160, GV+8.
	JMP	EXIT
L186:L193:	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	#377, R0
	MOV	R0, 774(P)
	MOV	P, R0
	ASR	R0
	ADD	#406, R0
	MOV	R0, 1012(P)
	CLR	1140(P)
	CLR	1142(P)
	MOV	756(P), GV+6.
	MOV	774(P), L160
	MOV	GV+6., R0
	INC	R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	#4, R0
	ADD	GV+6., R0
	ASL	R0
	MOV	GV+24., (R0)
	MOV	#3, R0
	ADD	GV+6., R0
	ASL	R0
	MOV	GV+26., (R0)
	MOV	L160, R0
	INC	R0
	ASL	R0
	MOV	372(P), (R0)
	MOV	#4, R0
	ADD	L160, R0
	ASL	R0
	MOV	GV+24., (R0)
	MOV	#3, R0
	ADD	L160, R0
	ASL	R0
	MOV	GV+28., (R0)
	MOV	GV+4., L159
	JSR	R0,@GV+16.
	.WORD	1152
	.PSECT	CONST
L9784:	.WORD	3
	.ASCII	^TI:^
	.EVEN
	.PSECT	BCPL
	MOV	#L9784/2, 1152(P)
	JSR	R0,@GV+52.
	.WORD	1152
	MOV	R0, L161
	MOV	L197, L155
	JSR	R0,@GV+36.
	.WORD	1152
	MOV	R0, L156
	MOV	L195, L153
	JSR	R0,@GV+36.
	.WORD	1152
	MOV	R0, L154
L196:	MOV	L161, GV+8.
	CLR	L158
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	CLR	(R0)
	MOV	L163, GV+4.
	.PSECT	CONST
L9783:	.WORD	5
	.ASCII	^TRAN>^
	.EVEN
	.PSECT	BCPL
	MOV	#L9783/2, 1152(P)
	MOV	1012(P), 1154(P)
	JSR	R0,@GV+44.
	.WORD	1152
	MOV	R0, 1140(P)
	TST	1140(P)
	BNE	L9782
	JMP	@L195
L9782:
L198:	MOV	L167, GV+4.
	MOV	1140(P), 1152(P)
	JSR	R0,@GV+30.
	.WORD	1152
	MOV	R0, L157
	JSR	R0,@GV+210.
	.WORD	1152
	TST	R0
	BNE	L9781
	JSR	R0,@L167
	.WORD	1152
L9781:
L199:	MOV	L175, GV+4.
	MOV	L157, 1152(P)
	JSR	R0,@L184
	.WORD	1162
	MOV	R0, 1154(P)
	JSR	R0,@GV+34.
	.WORD	1152
	MOV	R0, 1142(P)
	TST	1142(P)
	BNE	L9780
	CLR	R0
	ADD	GV+6., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 1152(P)
	JSR	R0,@GV+22.
	.WORD	1152
	JSR	R0,@L167
	.WORD	1152
L9780:
L200:	MOV	L171, GV+4.
	MOV	1142(P), 1152(P)
	JSR	R0,@L180
	.WORD	1162
	MOV	R0, 1154(P)
	MOV	#170, 1156(P)
	JSR	R0,@GV+20.
	.WORD	1152
	CLR	R1
	ADD	L160, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#2, R0
	ADD	L160, R0
	ASL	R0
	CLR	(R0)
	MOV	L159, GV+4.
	MOV	L160, GV+8.
	JSR	R0,@GV+212.
	.WORD	1152
	MOV	L161, GV+8.
	TST	L158
	BLE	L9779
	.PSECT	CONST
L9778:	.WORD	27
	.ASCII	^TRANSLATION FAILED - %N^
	.EVEN
	.PSECT	BCPL
	MOV	#L9778/2, 1152(P)
	MOV	L158, 1154(P)
	JSR	R0,@GV+84.
	.WORD	1152
	.PSECT	CONST
L9777:	.WORD	11
	.ASCII	^ ERROR%C^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9777/2, 1152(P)
	CMP	#1, L158
	BNE	L9776
	MOV	#40, 1154(P)
	BR	L9775
L9776:
L203:	MOV	#123, 1154(P)
L9775:
L202:	JSR	R0,@GV+84.
	.WORD	1152
L9779:
L201:	CLR	R0
	ADD	L160, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 1152(P)
	JSR	R0,@GV+22.
	.WORD	1152
	MOV	L157, 1152(P)
	JSR	R0,@GV+12.
	.WORD	1152
	JMP	@L197
L194:	MOV	L161, 1152(P)
	JSR	R0,@GV+60.
	.WORD	1152
	JMP	STOP
	.PSECT	GLOBAL
	.=GV+210.
	.WORD	L176
	.=GV+226.
	.WORD	L185
	.=GV+2.
	.WORD	L193
	G1 == L193
	.=GV+402.
	.PSECT	CONST
L153:	.WORD	0
L154:	.WORD	0
L155:	.WORD	0
L156:	.WORD	0
L157:	.WORD	0
L158:	.WORD	0
L159:	.WORD	0
L160:	.WORD	0
L161:	.WORD	0
L163:	.WORD	L162
L165:	.WORD	L164
L167:	.WORD	L166
L169:	.WORD	L168
L171:	.WORD	L170
L173:	.WORD	L172
L175:	.WORD	L174
L178:	.WORD	L177
L180:	.WORD	L179
L182:	.WORD	L181
L184:	.WORD	L183
L195:	.WORD	L194
L197:	.WORD	L196
	.PSECT	BCPL
	BR	L9774
	.PSECT	CONST
L9773:	.WORD	11
	.ASCII	^TRANSLATE^
	.EVEN
	.PSECT	BCPL
L205:	JSR	R1, ENTER
	.WORD	L9773
	MOV	P, R0
	ASR	R0
	ADD	#4, R0
	MOV	R0, 6(P)
	MOV	6(P), GV+356.
	CLR	GV+358.
	MOV	P, R0
	ASR	R0
	ADD	#772, R0
	MOV	R0, 1762(P)
	MOV	1762(P), GV+208.
	MOV	P, R0
	ASR	R0
	ADD	#1032, R0
	MOV	R0, 2062(P)
	MOV	2062(P), GV+350.
	MOV	P, R0
	ASR	R0
	ADD	#2020, R0
	MOV	R0, 4036(P)
	MOV	4036(P), GV+406.
	MOV	P, R0
	ASR	R0
	ADD	#3006, R0
	MOV	R0, 6012(P)
	MOV	6012(P), GV+420.
	MOV	P, R0
	ASR	R0
	ADD	#3107, R0
	MOV	R0, 6214(P)
	MOV	6214(P), GV+422.
	MOV	P, R0
	ASR	R0
	ADD	#3210, R0
	MOV	R0, 6416(P)
	MOV	6416(P), GV+366.
	MOV	P, R0
	ASR	R0
	ADD	#3274, R0
	MOV	R0, 6566(P)
	MOV	6566(P), GV+404.
	MOV	#1, 10232(P)
	BR	L9772
L224:	MOV	10232(P), R0
	ADD	GV+404., R0
	ASL	R0
	CLR	(R0)
	INC	10232(P)
L9772:
L223:	CMP	10232(P), #620
	BLE	L224
	CLR	R0
	ADD	GV+404., R0
	ASL	R0
	MOV	#1, (R0)
	MOV	P, R0
	ASR	R0
	ADD	#4116, R0
	MOV	R0, 10232(P)
	MOV	10232(P), GV+354.
	CLR	10244(P)
	BR	L9771
L9774:	JMP	L222
L226:	MOV	10244(P), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
	INC	10244(P)
L9771:
L225:	CMP	10244(P), #3
	BLE	L226
	CLR	GV+402.
	MOV	#23420, L204
	CLR	GV+370.
	CLR	GV+372.
	CLR	GV+374.
	JSR	R0,@L207
	.WORD	10252
	BR	L9770
L227:	MOV	#3, 10252(P)
	JSR	R0,@GV+224.
	.WORD	10252
	JSR	R0,@GV+428.
	.WORD	10252
	MOV	GV+402., GV+400.
	MOV	GV+208., 10252(P)
	JSR	R0,@GV+216.
	.WORD	10252
	JSR	R0,@GV+214.
	.WORD	10252
	JSR	R0,@L211
	.WORD	10252
L9770:
L228:	JSR	R0,@L220
	.WORD	10252
	TST	R0
	BNE	L227
	JSR	R0,@L209
	.WORD	10252
	JMP	EXIT
	.PSECT	CONST
L9769:	.WORD	15
	.ASCII	^CGPROGRAMHEAD^
	.EVEN
	.PSECT	BCPL
L206:	JSR	R1, ENTER
	.WORD	L9769
	JSR	R0,@L214
	.WORD	14
	MOV	R0, 6(P)
	JSR	R0,@L216
	.WORD	16
	MOV	R0, 10(P)
	JSR	R0,@L218
	.WORD	20
	MOV	R0, 12(P)
	.PSECT	CONST
L9768:	.WORD	13
	.ASCII	<11>^.TITLE^<11>^%S^<12>
	.EVEN
	.PSECT	BCPL
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	#L9768/2, 22(P)
	TST	R0
	BNE	L9767
	.PSECT	CONST
L9766:	.WORD	4
	.ASCII	^BCPL^
	.PSECT	BCPL
	MOV	#L9766/2, 24(P)
	BR	L9765
L9767:
L230:	MOV	6(P), 24(P)
L9765:
L229:	JSR	R0,@GV+84.
	.WORD	22
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BEQ	L9764
	.PSECT	CONST
L9763:	.WORD	15
	.ASCII	<11>^.IDENT^<11>^/%S/^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9763/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
L9764:
L231:	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BNE	L9762
	.PSECT	CONST
L9761:	.WORD	4
	.ASCII	^BCPL^
	.PSECT	BCPL
	MOV	#L9761/2, 14(P)
	BR	L9760
L9762:
L233:	MOV	12(P), 14(P)
L9760:
L232:	MOV	14(P), GV+208.
	.PSECT	CONST
L9759:	.WORD	14
	.ASCII	<11>^T=%4^<12><11>^P=%5^<12>
	.PSECT	BCPL
	MOV	#L9759/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	.PSECT	CONST
L9758:	.WORD	13
	.ASCII	<11>^.ENABL^<11>^LC^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9758/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	.PSECT	CONST
L9757:	.WORD	16
	.ASCII	^GLOBAL,GBL,OVR^
	.PSECT	BCPL
	MOV	#L9757/2, 22(P)
	JSR	R0,@GV+216.
	.WORD	22
	.PSECT	CONST
L9756:	.WORD	4
	.ASCII	^GV:^<12>
	.PSECT	BCPL
	MOV	#L9756/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9755:	.WORD	14
	.ASCII	^CGPROGRAMEND^
	.PSECT	BCPL
L208:	JSR	R1, ENTER
	.WORD	L9755
	CLR	6(P)
	BR	L9754
L235:	MOV	6(P), R0
	ADD	GV+404., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BLE	L9753
	.PSECT	CONST
L9752:	.WORD	14
	.ASCII	<11>^.GLOBL^<11>^G%N^<12>
	.PSECT	BCPL
	MOV	#L9752/2, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+84.
	.WORD	16
L9753:
L236:	INC	6(P)
L9754:
L234:	CMP	6(P), #73
	BLE	L235
	.PSECT	CONST
L9751:	.WORD	6
	.ASCII	<11>^.END^<12>
	.PSECT	BCPL
	MOV	#L9751/2, 14(P)
	JSR	R0,@GV+72.
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9750:	.WORD	11
	.ASCII	^CGSTATICS^
	.EVEN
	.PSECT	BCPL
L210:	JSR	R1, ENTER
	.WORD	L9750
	TST	GV+358.
	BNE	L9749
	JMP	EXIT
L9749:
L237:	.PSECT	CONST
L9748:	.WORD	5
	.ASCII	^CONST^
	.EVEN
	.PSECT	BCPL
	MOV	#L9748/2, 14(P)
	JSR	R0,@GV+216.
	.WORD	14
	MOV	GV+358., R0
	DEC	R0
	CLR	6(P)
	MOV	R0, 10(P)
	BR	L9747
L239:	BR	L9746
L242:	MOV	6(P), R0
	INC	R0
	ADD	GV+356., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	BR	L9745
L243:	MOV	6(P), R0
	INC	R0
	ADD	GV+356., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+332.
	.WORD	20
	MOV	GV+374., R0
	INC	R0
	MOV	R0, GV+374.
	BR	L9745
L244:	MOV	6(P), R0
	INC	R0
	ADD	GV+356., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+334.
	.WORD	20
	MOV	GV+374., R0
	INC	R0
	MOV	R0, GV+374.
	BR	L9745
	BR	L9745
L9746:
L240:	MOV	6(P), R0
	ADD	GV+356., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, T
	CMP	T, #144
	BEQ	L242
	CMP	T, #145
	BEQ	L243
	CMP	T, #146
	BEQ	L244
	BR	L9745
L9745:
L241:	ADD	#2, 6(P)
L9747:
L238:	CMP	6(P), 10(P)
	BLE	L239
	CLR	GV+358.
	JMP	EXIT
	.PSECT	CONST
L9744:	.WORD	7
	.ASCII	^CGPSECT^
	.EVEN
	.PSECT	BCPL
L212:	JSR	R1, ENTER
	.WORD	L9744
	.PSECT	CONST
L9743:	.WORD	13
	.ASCII	<11>^.PSECT^<11>^%S^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9743/2, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+84.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9742:	.WORD	5
	.ASCII	^TITLE^
	.EVEN
	.PSECT	BCPL
L213:	JSR	R1, ENTER
	.WORD	L9742
	MOV	#TIS/2,R0
	JMP	EXIT
	.PSECT	CONST
L9741:	.WORD	5
	.ASCII	^IDENT^
	.EVEN
	.PSECT	BCPL
L215:	JSR	R1, ENTER
	.WORD	L9741
	MOV	#IDS/2,R0
	JMP	EXIT
	.PSECT	CONST
L9740:	.WORD	5
	.ASCII	^PSECT^
	.EVEN
	.PSECT	BCPL
L217:	JSR	R1, ENTER
	.WORD	L9740
	MOV	#PSS/2,R0
	JMP	EXIT
	.PSECT	CONST
L9739:	.WORD	14
	.ASCII	^ANOTHERBLOCK^
	.PSECT	BCPL
L219:	JSR	R1, ENTER
	.WORD	L9739
	MOV	P, R0
	ASR	R0
	ADD	#4, R0
	MOV	R0, 6(P)
	CLR	322(P)
L246:	JSR	R0,@GV+54.
	.WORD	332
	MOV	R0, GV+364.
	CMP	#32, GV+364.
	BEQ	L9738
	CMP	#136, GV+364.
	BNE	L9737
L9738:
L248:	JSR	R0,@GV+210.
	.WORD	332
	TST	R0
	BNE	L9736
	CLR	R0
	BR	L9735
L9736:
L249:
L9737:
L247:	CMP	#101, GV+364.
	BGT	L246
	CMP	GV+364., #132
	BGT	L246
L250:	MOV	322(P), R0
	INC	R0
	MOV	R0, 322(P)
	MOV	322(P), R0
	ADD	6(P), R0
	ASL	R0
	MOV	GV+364., (R0)
	JSR	R0,@GV+54.
	.WORD	332
	MOV	R0, GV+364.
	CMP	#12, GV+364.
	BNE	L250
	CLR	R0
	ADD	6(P), R0
	ASL	R0
	MOV	322(P), (R0)
	MOV	#177777, R0
	BR	L9735
L9735:
L245:	JMP	EXIT
	.PSECT	CONST
L9734:	.WORD	11
	.ASCII	^NEXTPARAM^
	.EVEN
	.PSECT	BCPL
L221:	JSR	R1, ENTER
	.WORD	L9734
	DEC	L204
	MOV	L204, R0
L251:	JMP	EXIT
L222:	.PSECT	GLOBAL
	.=GV+212.
	.WORD	L205
	.=GV+216.
	.WORD	L212
	.=GV+220.
	.WORD	L221
	.=GV+428.
	.PSECT	CONST
L204:	.WORD	0
L207:	.WORD	L206
L209:	.WORD	L208
L211:	.WORD	L210
L214:	.WORD	L213
L216:	.WORD	L215
L218:	.WORD	L217
L220:	.WORD	L219
	.PSECT	BCPL
	BR	L9733
	.PSECT	CONST
L9732:	.WORD	11
	.ASCII	^INITSTACK^
	.EVEN
	.PSECT	BCPL
L252:	JSR	R1, ENTER
	.WORD	L9732
	MOV	GV+350., GV+344.
	MOV	#3, R0
	ADD	GV+350., R0
	MOV	R0, GV+342.
	MOV	6(P), GV+352.
	MOV	#151, GV+346.
	MOV	6(P), R0
	SUB	#2, R0
	MOV	R0, GV+340.
	CLR	10(P)
	BR	L9731
L260:	MOV	10(P), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
	INC	10(P)
L9731:
L259:	CMP	10(P), #3
	BLE	L260
	MOV	GV+344., R0
	ASL	R0
	MOV	#115, (R0)
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+344., R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+344., R1
	ADD	#2, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	GV+342., R0
	ASL	R0
	MOV	#115, (R0)
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+342., R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+342., R1
	ADD	#2, R1
	ASL	R1
	MOV	R0, (R1)
	JMP	EXIT
	.PSECT	CONST
L9730:	.WORD	5
	.ASCII	^STACK^
	.EVEN
	.PSECT	BCPL
L253:	JSR	R1, ENTER
	.WORD	L9730
	MOV	#151, GV+346.
	MOV	#6, R0
	ADD	GV+352., R0
	CMP	6(P), R0
	BLT	L9729
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@GV+224.
	.WORD	16
	JMP	EXIT
	BR	L9728
L9733:	JMP	L258
L9728:L9729:
L263:	BR	L9727
L264:	MOV	#115, 16(P)
	MOV	GV+352., 20(P)
	JSR	R0,@GV+256.
	.WORD	16
L9727:
L265:	CMP	6(P), GV+352.
	BGT	L264
L261:	CMP	GV+352., 6(P)
	BNE	L9726
	JMP	EXIT
L9726:
L266:	CMP	GV+350., GV+344.
	BEQ	L9725
	JSR	R0,@GV+262.
	.WORD	16
	JMP	@L262
L9725:
L267:	MOV	6(P), 16(P)
	JSR	R0,@GV+224.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9724:	.WORD	5
	.ASCII	^STORE^
	.EVEN
	.PSECT	BCPL
L254:	JSR	R1, ENTER
	.WORD	L9724
L268:	MOV	GV+352., R0
	DEC	R0
	CMP	6(P), R0
	BGT	L9723
	CMP	6(P), 10(P)
	BLE	L9722
L9723:
L271:	JMP	EXIT
L9722:
L270:	MOV	6(P), R0
	SUB	GV+340., R0
	MOV	R0, R1
	MUL	#3, R1
	ADD	GV+350., R1
	MOV	R1, 12(P)
	MOV	12(P), 22(P)
	JSR	R0,@GV+232.
	.WORD	22
	TST	R0
	BEQ	L9721
	MOV	6(P), R0
	INC	R0
	MOV	R0, 6(P)
	JMP	@L269
	BR	L9720
L9721:
L272:	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 14(P)
	CMP	14(P), 10(P)
	BGE	L9719
	MOV	GV+352., R0
	DEC	R0
	CMP	14(P), R0
	BGE	L9719
	MOV	12(P), 24(P)
	JSR	R0,@L257
	.WORD	24
	TST	R0
	BEQ	L9719
	MOV	P, T
	ADD	#24, T
	MOV	#454, (T)+
	MOV	#3, (T)+
	MOV	#5, (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	JSR	R0,@GV+316.
	.WORD	24
	MOV	6(P), R1
	ASL	R1
	MOV	P, T
	ADD	#24, T
	MOV	#456, (T)+
	MOV	#1, (T)+
	MOV	R1, (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	JSR	R0,@GV+316.
	.WORD	24
	MOV	GV+352., R0
	DEC	R0
	MOV	6(P), 16(P)
	CMP	10(P), R0
	BGE	L9718
	MOV	10(P), 20(P)
	BR	L9717
L9718:
L279:	MOV	GV+352., R0
	DEC	R0
	MOV	R0, 20(P)
L9717:
L278:	BR	L9716
L277:	MOV	12(P), 30(P)
	JSR	R0,@GV+232.
	.WORD	30
	TST	R0
	BEQ	L9715
	JMP	@L269
L9715:
L280:	CLR	30(P)
	MOV	12(P), 32(P)
	JSR	R0,@GV+264.
	.WORD	30
	TST	R0
	BEQ	L9714
	MOV	#506, 30(P)
	MOV	#311, 32(P)
	MOV	#4, 34(P)
	JSR	R0,@GV+314.
	.WORD	30
	BR	L9713
L9720:	JMP	L273
L9714:
L281:	MOV	P, T
	ADD	#30, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#311, (T)+
	MOV	#4, (T)+
	JSR	R0,@GV+316.
	.WORD	30
L9713:
L282:	MOV	12(P), R0
	BR	L9712
L9719:	JMP	L274
L9712:	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9711
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9711:
L283:	MOV	12(P), R0
	ASL	R0
	MOV	#115, (R0)
	MOV	12(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	12(P), R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#3, R0
	ADD	12(P), R0
	MOV	R0, 12(P)
	MOV	6(P), R0
	INC	R0
	MOV	R0, 6(P)
	INC	16(P)
L9716:
L276:	CMP	16(P), 20(P)
	BLE	L277
	JMP	@L269
	BR	L9710
L274:	CLR	24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9709
	MOV	6(P), R1
	ASL	R1
	MOV	#506, 24(P)
	MOV	R1, 26(P)
	MOV	#5, 30(P)
	JSR	R0,@GV+322.
	.WORD	24
	BR	L9708
L9709:
L284:	MOV	6(P), R1
	ASL	R1
	MOV	P, T
	ADD	#24, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	R1, (T)+
	MOV	#5, (T)+
	JSR	R0,@GV+328.
	.WORD	24
L9708:
L285:
L9710:
L275:	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9707
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9707:
L286:	MOV	12(P), R0
	ASL	R0
	MOV	#115, (R0)
	MOV	12(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	12(P), R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	MOV	6(P), R0
	INC	R0
	MOV	R0, 6(P)
	JMP	@L269
L273:	JMP	EXIT
	.PSECT	CONST
L9706:	.WORD	5
	.ASCII	^LOCAL^
	.EVEN
	.PSECT	BCPL
L255:	JSR	R1, ENTER
	.WORD	L9706
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #115
	BNE	L9705
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	CMP	R0, R1
	BNE	L9705
	MOV	#177777, R0
	BR	L9704
L9705:
L288:	CLR	R0
L9704:
L287:	JMP	EXIT
	.PSECT	CONST
L9703:	.WORD	11
	.ASCII	^NEXTTHREE^
	.EVEN
	.PSECT	BCPL
L256:	JSR	R1, ENTER
	.WORD	L9703
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 16(P)
	JSR	R0,@GV+232.
	.WORD	16
	TST	R0
	BNE	L9702
	MOV	#3, R1
	ASL	R1
	ADD	6(P), R1
	MOV	R1, 16(P)
	JSR	R0,@GV+232.
	.WORD	16
	TST	R0
	BNE	L9702
	MOV	#3, R1
	MUL	#3, R1
	ADD	6(P), R1
	MOV	R1, 16(P)
	JSR	R0,@GV+232.
	.WORD	16
	TST	R0
	BNE	L9702
	MOV	#177777, R0
	BR	L9701
L9702:
L290:	CLR	R0
L9701:
L289:	JMP	EXIT
L258:	.PSECT	GLOBAL
	.=GV+224.
	.WORD	L252
	.=GV+228.
	.WORD	L253
	.WORD	L254
	.WORD	L255
	.=GV+428.
	.PSECT	CONST
L257:	.WORD	L256
L262:	.WORD	L261
L269:	.WORD	L268
	.PSECT	BCPL
	BR	L9700
	.PSECT	CONST
L9699:	.WORD	7
	.ASCII	^CGBLOCK^
	.EVEN
	.PSECT	BCPL
L291:	JSR	R1, ENTER
	.WORD	L9699
	CLR	6(P)
	MOV	#151, GV+242.
L295:	JSR	R0,@GV+200.
	.WORD	16
	MOV	R0, 6(P)
	CMP	#132, GV+242.
	BNE	L9698
	CMP	#132, 6(P)
	BNE	L9698
	MOV	#12, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
L9698:
L297:	MOV	6(P), GV+242.
L293:	BR	L9697
L300:	.PSECT	CONST
L9696:	.WORD	24
	.ASCII	^UNKNOWN KEYWORD,  %S^
	.PSECT	BCPL
	MOV	#L9696/2, 16(P)
	MOV	GV+366., 20(P)
	JSR	R0,@GV+226.
	.WORD	16
	JMP	@L296
L301:	JMP	EXIT
L302:	MOV	#114, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L303:	MOV	#115, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L304:	MOV	#116, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L305:	MOV	#1, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L306:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+288.
	.WORD	16
	JMP	@L296
L307:	MOV	#1, 16(P)
	MOV	#177777, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L9700:	JMP	L292
L308:	MOV	#1, 16(P)
	CLR	20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L309:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+280.
	.WORD	16
	JMP	@L296
L310:	MOV	#323, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	BR	L9695
L9697:	JMP	L298
L9695:	JMP	@L296
L311:	MOV	#322, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L312:	MOV	#115, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+270.
	.WORD	16
	JMP	@L296
L313:	MOV	#114, 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+270.
	.WORD	16
	JMP	@L296
L314:	MOV	#116, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+270.
	.WORD	16
	JMP	@L296
L315:	JSR	R0,@GV+276.
	.WORD	16
	JMP	@L296
L316:
L317:
L318:
L319:
L320:
L321:
L322:
L323:
L324:
L325:
L326:
L327:
L328:
L329:
L330:
L331:
L332:
L333:
L334:
L335:	CMP	#151, GV+346.
	BEQ	L9694
	JSR	R0,@GV+246.
	.WORD	16
L9694:
L336:	MOV	GV+242., GV+346.
	JMP	@L296
L337:	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	MOV	#466, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+300.
	.WORD	16
	JMP	@L296
L338:	MOV	#177777, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+416.
	.WORD	16
	JMP	@L296
L339:	CLR	16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+416.
	.WORD	16
	JMP	@L296
L340:	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	MOV	#502, 16(P)
	MOV	#313, 20(P)
	MOV	GV+342., 22(P)
	JSR	R0,@GV+314.
	.WORD	16
	MOV	GV+352., R0
	DEC	R0
	MOV	R0, 16(P)
	JSR	R0,@GV+228.
	.WORD	16
	JSR	R0,@GV+408.
	.WORD	16
	JMP	@L296
L341:	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	JSR	R0,@GV+204.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+418.
	.WORD	16
	JMP	@L296
L342:	JSR	R0,@GV+246.
	.WORD	16
	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+228.
	.WORD	16
	JMP	@L296
L343:	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	JMP	@L296
L344:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+290.
	.WORD	16
	JMP	@L296
L345:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+298.
	.WORD	16
	JMP	@L296
L346:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+292.
	.WORD	16
	JMP	@L296
L347:
L348:	MOV	GV+242., 16(P)
	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	JSR	R0,@GV+294.
	.WORD	16
	JMP	@L296
L349:
L350:	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+242., 16(P)
	JSR	R0,@GV+296.
	.WORD	16
	JMP	@L296
L351:	JSR	R0,@GV+204.
	.WORD	16
	MOV	R0, 10(P)
	JSR	R0,@GV+246.
	.WORD	20
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+340., 20(P)
	MOV	R0, 22(P)
	JSR	R0,@GV+230.
	.WORD	20
	MOV	GV+342., 20(P)
	CLR	22(P)
	JSR	R0,@GV+252.
	.WORD	20
	JSR	R0,@GV+262.
	.WORD	20
	JSR	R0,@GV+200.
	.WORD	20
	MOV	R0, GV+242.
	CMP	#132, GV+242.
	BNE	L9693
	JSR	R0,@GV+204.
	.WORD	20
	MOV	R0, 12(P)
	CMP	12(P), 10(P)
	BEQ	L9692
	MOV	#466, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+300.
	.WORD	22
L9692:
L354:	MOV	12(P), 22(P)
	JSR	R0,@GV+418.
	.WORD	22
	JMP	@L296
	BR	L9691
L9693:
L352:	MOV	#466, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+300.
	.WORD	20
L9691:
L353:	JMP	@L294
L355:	JSR	R0,@GV+246.
	.WORD	16
	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+228.
	.WORD	16
	MOV	#3, 16(P)
	CLR	20(P)
	JSR	R0,@GV+256.
	.WORD	16
	JMP	@L296
L356:	.PSECT	CONST
L9690:	.WORD	4
	.ASCII	^STOP^
	.PSECT	BCPL
	MOV	#502, 16(P)
	MOV	#324, 20(P)
	MOV	#L9690/2, 22(P)
	JSR	R0,@GV+314.
	.WORD	16
	JSR	R0,@GV+408.
	.WORD	16
	JMP	@L296
L357:	JSR	R0,@GV+302.
	.WORD	16
	JMP	@L296
L358:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+286.
	.WORD	16
	JMP	EXIT
L359:
L360:
L361:	MOV	GV+358., R0
	ADD	GV+356., R0
	ASL	R0
	MOV	GV+242., (R0)
	CMP	#146, GV+242.
	BNE	L9689
	JSR	R0,@GV+62.
	.WORD	16
	MOV	R0, 10(P)
	BR	L9688
L9689:
L363:	JSR	R0,@GV+204.
	.WORD	16
	MOV	R0, 10(P)
L9688:
L362:	MOV	GV+358., R0
	INC	R0
	ADD	GV+356., R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#2, R0
	ADD	GV+358., R0
	MOV	R0, GV+358.
	CMP	GV+358., #764
	BLE	L9687
	.PSECT	CONST
L9686:	.WORD	25
	.ASCII	^STATIC SPACE EXCEEDED^
	.EVEN
	.PSECT	BCPL
	MOV	#L9686/2, 16(P)
	JSR	R0,@GV+226.
	.WORD	16
	CLR	GV+358.
L9687:
L364:	JMP	@L296
	BR	L9685
L298:	MOV	GV+242., T
	SUB	#4, T
	BLT	L9683
	CMP	T, #144
	BGT	L9683
	ASL	T
	JMP	@L9684(T)
L9685:	JMP	L299
L9683:	JMP	L300
L9684:	.WORD	L307
	.WORD	L308
	.WORD	L300
	.WORD	L300
	.WORD	L335
	.WORD	L300
	.WORD	L347
	.WORD	L316
	.WORD	L317
	.WORD	L318
	.WORD	L319
	.WORD	L320
	.WORD	L300
	.WORD	L321
	.WORD	L300
	.WORD	L300
	.WORD	L322
	.WORD	L323
	.WORD	L324
	.WORD	L325
	.WORD	L326
	.WORD	L327
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L334
	.WORD	L328
	.WORD	L329
	.WORD	L330
	.WORD	L331
	.WORD	L332
	.WORD	L333
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L303
	.WORD	L302
	.WORD	L305
	.WORD	L306
	.WORD	L304
	.WORD	L309
	.WORD	L310
	.WORD	L311
	.WORD	L345
	.WORD	L300
	.WORD	L300
	.WORD	L348
	.WORD	L340
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L356
	.WORD	L300
	.WORD	L357
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L358
	.WORD	L300
	.WORD	L300
	.WORD	L300
	.WORD	L312
	.WORD	L313
	.WORD	L314
	.WORD	L315
	.WORD	L300
	.WORD	L337
	.WORD	L338
	.WORD	L339
	.WORD	L300
	.WORD	L300
	.WORD	L341
	.WORD	L342
	.WORD	L343
	.WORD	L355
	.WORD	L344
	.WORD	L346
	.WORD	L350
	.WORD	L349
	.WORD	L351
	.WORD	L300
	.WORD	L359
	.WORD	L360
	.WORD	L361
	.WORD	L300
	.WORD	L301
L299:	JMP	EXIT
L292:	.PSECT	GLOBAL
	.=GV+214.
	.WORD	L291
	.=GV+428.
	.PSECT	CONST
L294:	.WORD	L293
L296:	.WORD	L295
	.PSECT	BCPL
	BR	L9682
	.PSECT	CONST
L9681:	.WORD	10
	.ASCII	^SIMPLIFY^
	.PSECT	BCPL
L365:	JSR	R1, ENTER
	.WORD	L9681
	CMP	#151, GV+346.
	BNE	L9680
	JMP	EXIT
L9680:
L369:	CLR	6(P)
	CLR	10(P)
	MOV	GV+342., 12(P)
	MOV	GV+344., 14(P)
	MOV	14(P), 24(P)
	JSR	R0,@L367
	.WORD	24
	TST	R0
	BNE	L9679
	MOV	14(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 6(P)
L9679:
L372:	BR	L9678
L375:
L376:	JMP	EXIT
L377:	MOV	#467, 10(P)
	JMP	@L371
L378:	MOV	#470, 10(P)
	JMP	@L371
L379:	MOV	#471, 10(P)
	JMP	@L371
L380:	MOV	#474, 10(P)
	JMP	@L371
L381:	MOV	#473, 10(P)
	JMP	@L371
L382:	MOV	#472, 10(P)
	JMP	@L371
L370:	JSR	R0,@GV+220.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+260.
	.WORD	26
	MOV	R0, 6(P)
	MOV	#506, 26(P)
	MOV	#3, 30(P)
	MOV	6(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	CLR	26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+264.
	.WORD	26
	TST	R0
	BEQ	L9677
	MOV	#507, 26(P)
	MOV	#133, 30(P)
	MOV	14(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	BR	L9676
L9682:	JMP	L368
L9677:
L383:	MOV	P, T
	ADD	#26, T
	MOV	#455, (T)+
	MOV	#133, (T)+
	MOV	14(P), (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	JSR	R0,@GV+316.
	.WORD	26
L9676:
L384:	MOV	10(P), 26(P)
	MOV	#116, 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	MOV	#505, 26(P)
	MOV	#3, 30(P)
	MOV	6(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	BR	L9675
L9678:	JMP	L373
L9675:	MOV	16(P), 26(P)
	JSR	R0,@GV+318.
	.WORD	26
	MOV	6(P), 26(P)
	JSR	R0,@GV+258.
	.WORD	26
	JMP	EXIT
L385:
L386:	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	MOV	P, T
	ADD	#26, T
	MOV	#525, (T)+
	MOV	#3, (T)+
	MOV	16(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	26
	CMP	#43, GV+346.
	BNE	L9674
	MOV	#505, 26(P)
	MOV	#3, 30(P)
	MOV	6(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
L9674:
L387:	MOV	6(P), 26(P)
	JSR	R0,@GV+258.
	.WORD	26
	JMP	EXIT
L388:	CLR	24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BNE	L9673
	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9672
	MOV	#510, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9671
L9672:
L390:	MOV	#1, 24(P)
	MOV	14(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9670
	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 6(P)
	MOV	#510, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9669
L9670:
L392:	MOV	P, T
	ADD	#24, T
	MOV	#456, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	24
L9669:
L393:
L9671:
L391:
L9673:
L389:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L394:	CLR	24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BNE	L9668
	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9667
	MOV	#511, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9666
L9667:
L396:	MOV	P, T
	ADD	#24, T
	MOV	#460, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	24
L9666:
L397:
L9668:
L395:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L398:	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BNE	L9665
	MOV	#2, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9664
	MOV	#522, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9663
L9664:
L400:	MOV	#2, 24(P)
	MOV	14(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9662
	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 6(P)
	MOV	#522, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9661
L9662:
L402:	MOV	P, T
	ADD	#24, T
	MOV	#464, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	24
L9661:
L403:
L9663:
L401:
L9665:
L399:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L404:
L405:	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9660
	CMP	#14, GV+346.
	BEQ	L9659
L9660:
L407:	MOV	#2, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9658
	CMP	#14, GV+346.
	BNE	L9658
	MOV	#521, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9657
L9658:
L408:	MOV	6(P), R0
	DEC	R0
	MOV	R0, 24(P)
	JSR	R0,@GV+266.
	.WORD	24
	MOV	#507, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	MOV	6(P), R0
	DEC	R0
	MOV	#513, 24(P)
	MOV	#3, 26(P)
	MOV	R0, 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	MOV	6(P), R0
	DEC	R0
	MOV	P, T
	ADD	#24, T
	MOV	#465, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	R0, (T)+
	JSR	R0,@GV+316.
	.WORD	24
	CMP	#14, GV+346.
	BNE	L9656
	MOV	6(P), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
	DEC	6(P)
	BR	L9655
L9656:
L410:	MOV	6(P), R0
	DEC	R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9655:
L411:
L9657:
L409:
L9659:
L406:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L412:	MOV	P, T
	ADD	#24, T
	MOV	#463, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	24
	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L413:	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9654
	MOV	14(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	COM	R0
	MOV	P, T
	ADD	#26, T
	MOV	#462, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	MOV	#3, (T)+
	MOV	16(P), (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	16(P), 26(P)
	JSR	R0,@GV+258.
	.WORD	26
	JMP	EXIT
	BR	L9653
L9654:
L414:	MOV	14(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9652
	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	MOV	14(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	COM	R0
	MOV	P, T
	ADD	#26, T
	MOV	#462, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	MOV	#3, (T)+
	MOV	16(P), (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	16(P), 26(P)
	JSR	R0,@GV+258.
	.WORD	26
	JMP	EXIT
	BR	L9651
L9652:
L416:	MOV	14(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+250.
	.WORD	26
	MOV	R0, 20(P)
	MOV	#505, 30(P)
	MOV	#3, 32(P)
	MOV	20(P), 34(P)
	JSR	R0,@GV+314.
	.WORD	30
	MOV	P, T
	ADD	#30, T
	MOV	#462, (T)+
	MOV	#3, (T)+
	MOV	20(P), (T)+
	MOV	#3, (T)+
	MOV	16(P), (T)+
	JSR	R0,@GV+316.
	.WORD	30
	MOV	16(P), 30(P)
	JSR	R0,@GV+258.
	.WORD	30
	JMP	EXIT
L9651:
L417:
L9653:
L415:
L418:	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9650
	MOV	#522, 24(P)
	MOV	#3, 26(P)
	MOV	6(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9649
L9650:
L419:	MOV	P, T
	ADD	#24, T
	MOV	#520, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	24
L9649:
L420:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L421:	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BEQ	L9648
	MOV	#512, 24(P)
	MOV	#3, 26(P)
	MOV	12(P), 36(P)
	JSR	R0,@GV+250.
	.WORD	36
	MOV	R0, 30(P)
	JSR	R0,@GV+314.
	.WORD	24
L9648:
L422:	MOV	6(P), R0
	DEC	R0
	MOV	R0, 24(P)
	JSR	R0,@GV+266.
	.WORD	24
	MOV	6(P), R0
	DEC	R0
	MOV	#506, 24(P)
	MOV	#3, 26(P)
	MOV	R0, 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	MOV	12(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9647
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	NEG	R0
	MOV	6(P), R1
	DEC	R1
	MOV	P, T
	ADD	#24, T
	MOV	#523, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	MOV	#3, (T)+
	MOV	R1, (T)+
	JSR	R0,@GV+316.
	.WORD	24
	BR	L9646
L9647:
L423:	MOV	6(P), R0
	DEC	R0
	MOV	P, T
	ADD	#24, T
	MOV	#523, (T)+
	MOV	#133, (T)+
	MOV	12(P), (T)+
	MOV	#3, (T)+
	MOV	R0, (T)+
	JSR	R0,@GV+316.
	.WORD	24
L9646:
L424:	MOV	6(P), 24(P)
	JSR	R0,@GV+258.
	.WORD	24
	JMP	EXIT
L425:
L426:	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	CMP	#21, GV+346.
	BNE	L9645
	MOV	#512, 26(P)
	BR	L9644
L9645:
L428:	MOV	#505, 26(P)
L9644:
L427:	MOV	#3, 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	MOV	#151, GV+346.
	JMP	EXIT
L429:	MOV	12(P), 24(P)
	JSR	R0,@GV+250.
	.WORD	24
	MOV	R0, 16(P)
	MOV	#522, 26(P)
	MOV	#3, 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	MOV	P, T
	ADD	#26, T
	MOV	#454, (T)+
	MOV	#310, (T)+
	MOV	16(P), (T)+
	MOV	#3, (T)+
	MOV	16(P), (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	#151, GV+346.
	JMP	EXIT
	BR	L9643
L373:	MOV	GV+346., T
	CMP	T, #27
	BGE	L9642
	CMP	T, #16
	BGE	L9641
	CMP	T, #10
	BEQ	L429
	CMP	T, #13
	BEQ	L9640
	CMP	T, #14
	BEQ	L9639
	CMP	T, #15
	BEQ	L9638
	BR	L9637
L9641:	BEQ	L9636
	CMP	T, #17
	BEQ	L9635
	CMP	T, #21
	BEQ	L425
	CMP	T, #24
	BEQ	L9634
	CMP	T, #25
	BEQ	L9633
	CMP	T, #26
	BEQ	L9632
	BR	L9637
L9642:	BEQ	L9631
	CMP	T, #40
	BGE	L9630
	CMP	T, #30
	BEQ	L9629
	CMP	T, #31
	BEQ	L9628
	CMP	T, #36
	BEQ	L9627
	CMP	T, #37
	BEQ	L9626
	BR	L9637
L9630:	BEQ	L9625
	CMP	T, #41
	BEQ	L9624
	CMP	T, #42
	BEQ	L9623
	CMP	T, #43
	BEQ	L9622
	CMP	T, #44
	BEQ	L9621
	CMP	T, #151
	BEQ	L9620
	BR	L9637
L9643:
L374:	JMP	EXIT
	.PSECT	CONST
L9619:	.WORD	12
	.ASCII	^EXCEPTIONS^
	.PSECT	BCPL
L366:	JSR	R1, ENTER
	.WORD	L9619
	MOV	GV+346., 10(P)
	CMP	#16, 10(P)
	BNE	L9618
	MOV	#1, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+264.
	.WORD	20
	TST	R0
	BNE	L9617
L9618:
L433:	CMP	#13, 10(P)
	BNE	L9616
	MOV	#2, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+264.
	.WORD	20
	TST	R0
	BEQ	L9616
L9617:
L432:	MOV	#177777, R0
	BR	L9615
L9616:
L431:	CMP	#21, 10(P)
	BEQ	L9614
	CMP	#36, 10(P)
	BEQ	L9614
	CMP	#10, 10(P)
	BEQ	L9614
	CMP	#41, 10(P)
	BNE	L9613
L9614:
L435:	MOV	#177777, R0
	BR	L9615
	BR	L9612
L9640:	JMP	L398
L9639:	JMP	L404
L9638:	JMP	L405
L9637:	JMP	L375
L9636:	JMP	L388
L9635:	JMP	L394
L9634:	JMP	L377
L9633:	JMP	L378
L9632:	JMP	L379
L9631:	JMP	L380
L9629:	JMP	L381
L9612:L9613:
L434:	CMP	#24, 10(P)
	BGT	L9611
	CMP	10(P), #31
	BGT	L9611
	MOV	#177777, R0
	BR	L9615
	BR	L9610
L9628:	JMP	L382
L9627:	JMP	L426
L9626:	JMP	L418
L9625:	JMP	L421
L9624:	JMP	L413
L9623:	JMP	L412
L9622:	JMP	L385
L9621:	JMP	L386
L9620:	JMP	L376
L9610:L9611:
L436:	CLR	R0
	BR	L9615
L9615:
L430:	JMP	EXIT
L368:	.PSECT	GLOBAL
	.=GV+246.
	.WORD	L365
	.=GV+428.
	.PSECT	CONST
L367:	.WORD	L366
L371:	.WORD	L370
	.PSECT	BCPL
	BR	L9609
	.PSECT	CONST
L9608:	.WORD	10
	.ASCII	^REGISTER^
	.PSECT	BCPL
L437:	JSR	R1, ENTER
	.WORD	L9608
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	MOV	GV+346., 12(P)
	CLR	R0
	CMP	#13, 12(P)
	BNE	L9607
	COM	R0
L9607:	CLR	R1
	CMP	#14, 12(P)
	BNE	L9606
	COM	R1
L9606:	BIS	R1, R0
	CLR	R1
	CMP	#15, 12(P)
	BNE	L9605
	COM	R1
L9605:	BIS	R1, R0
	CLR	R1
	CMP	#40, 12(P)
	BNE	L9604
	COM	R1
L9604:	BIS	R1, R0
	MOV	R0, GV+248.
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9603
	MOV	10(P), 22(P)
	JSR	R0,@GV+268.
	.WORD	22
	TST	R0
	BEQ	L9603
	MOV	10(P), R0
	BR	L9602
	BR	L9601
L9603:
L449:	JSR	R0,@GV+260.
	.WORD	22
	MOV	R0, 10(P)
	MOV	6(P), 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+252.
	.WORD	22
	MOV	10(P), R0
	BR	L9602
L9601:
L450:L9602:
L448:	JMP	EXIT
	.PSECT	CONST
L9600:	.WORD	7
	.ASCII	^MOVETOR^
	.EVEN
	.PSECT	BCPL
L438:	JSR	R1, ENTER
	.WORD	L9600
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9599
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 10(P)
	BEQ	L9598
L9599:
L452:	MOV	P, T
	ADD	#20, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	6(P), (T)+
	MOV	#3, (T)+
	MOV	10(P), (T)+
	JSR	R0,@GV+316.
	.WORD	20
	MOV	6(P), R0
	BR	L9597
L9609:	JMP	L447
L9597:	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9596
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9596:
L453:	MOV	6(P), R0
	ASL	R0
	MOV	#3, (R0)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	#177777, R0
	COM	R0
	MOV	10(P), R1
	ADD	GV+354., R1
	ASL	R1
	MOV	R0, (R1)
L9598:
L451:	JMP	EXIT
	.PSECT	CONST
L9595:	.WORD	11
	.ASCII	^MOVEFROMR^
	.EVEN
	.PSECT	BCPL
L439:	JSR	R1, ENTER
	.WORD	L9595
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ADD	#2, R1
	ASL	R1
	MOV	(R1), R1
	ASL	R1
	MOV	P, T
	ADD	#16, T
	MOV	#454, (T)+
	MOV	#3, (T)+
	MOV	R0, (T)+
	MOV	R1, (T)+
	MOV	#5, (T)+
	JSR	R0,@GV+328.
	.WORD	16
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
	MOV	6(P), R0
	ASL	R0
	MOV	#115, (R0)
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	JMP	EXIT
	.PSECT	CONST
L9594:	.WORD	5
	.ASCII	^LOADT^
	.EVEN
	.PSECT	BCPL
L440:	JSR	R1, ENTER
	.WORD	L9594
	CMP	#151, GV+346.
	BEQ	L9593
	JSR	R0,@GV+246.
	.WORD	20
L9593:
L454:	MOV	GV+342., GV+344.
	MOV	#3, R0
	ADD	GV+342., R0
	MOV	R0, GV+342.
	MOV	GV+342., R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	GV+342., R0
	ADD	#2, R0
	ASL	R0
	MOV	GV+352., (R0)
	CMP	#3, 6(P)
	BNE	L9592
	MOV	#177777, R0
	COM	R0
	MOV	10(P), R1
	ADD	GV+354., R1
	ASL	R1
	MOV	R0, (R1)
L9592:
L455:	MOV	GV+352., R0
	INC	R0
	MOV	R0, GV+352.
	JMP	EXIT
	.PSECT	CONST
L9591:	.WORD	5
	.ASCII	^LOSE1^
	.EVEN
	.PSECT	BCPL
L441:	JSR	R1, ENTER
	.WORD	L9591
	MOV	GV+342., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9590
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9590:
L456:	DEC	GV+352.
	MOV	#151, GV+346.
	CMP	GV+350., GV+344.
	BNE	L9589
	MOV	GV+344., R0
	ASL	R0
	MOV	#115, (R0)
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+344., R1
	INC	R1
	ASL	R1
	MOV	R0, (R1)
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+344., R1
	ADD	#2, R1
	ASL	R1
	MOV	R0, (R1)
	BR	L9588
L9589:
L457:	MOV	GV+344., GV+342.
	SUB	#3, GV+344.
L9588:
L458:	MOV	GV+342., R0
	ASL	R0
	MOV	#3, (R0)
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+342., R1
	ADD	#2, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#177777, R0
	COM	R0
	MOV	6(P), R1
	ADD	GV+354., R1
	ASL	R1
	MOV	R0, (R1)
	JMP	EXIT
	.PSECT	CONST
L9587:	.WORD	7
	.ASCII	^FREEREG^
	.EVEN
	.PSECT	BCPL
L442:	JSR	R1, ENTER
	.WORD	L9587
	CLR	6(P)
	BR	L9586
L461:	MOV	6(P), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #177777
	BNE	L9585
	MOV	6(P), 16(P)
	JSR	R0,@GV+268.
	.WORD	16
	TST	R0
	BEQ	L9585
	MOV	6(P), R0
	BR	L9584
L9585:
L462:	INC	6(P)
L9586:
L460:	CMP	6(P), #3
	BLE	L461
	MOV	GV+350., 6(P)
L463:	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9583
	MOV	10(P), 20(P)
	JSR	R0,@GV+268.
	.WORD	20
	TST	R0
	BEQ	L9583
	MOV	10(P), 20(P)
	JSR	R0,@GV+266.
	.WORD	20
	MOV	10(P), R0
	BR	L9584
L9583:
L464:	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, 6(P)
	BR	L463
L9584:
L459:	JMP	EXIT
	.PSECT	CONST
L9582:	.WORD	4
	.ASCII	^OKAY^
	.PSECT	BCPL
L443:	JSR	R1, ENTER
	.WORD	L9582
	TST	GV+248.
	BNE	L9581
	MOV	#177777, R0
	BR	L9580
L9581:
L466:	MOV	6(P), R1
	TST	R1
	SXT	R0
	DIV	#2, R0
	CLR	R3
	CMP	R1, #1
	BNE	L9579
	COM	R3
L9579:	MOV	R3, R0
L9580:
L465:	JMP	EXIT
	.PSECT	CONST
L9578:	.WORD	6
	.ASCII	^VACATE^
	.PSECT	BCPL
L444:	JSR	R1, ENTER
	.WORD	L9578
	MOV	GV+350., 10(P)
	MOV	6(P), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #177777
	BNE	L9577
	JMP	EXIT
L9577:
L467:	BR	L9576
L468:	MOV	#3, R0
	ADD	10(P), R0
	MOV	R0, 10(P)
L9576:
L469:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L468
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L468
	MOV	10(P), 20(P)
	JSR	R0,@GV+254.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9575:	.WORD	6
	.ASCII	^REDUCE^
	.PSECT	BCPL
L445:	JSR	R1, ENTER
	.WORD	L9575
	DEC	GV+352.
	MOV	GV+342., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #3
	BNE	L9574
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	ADD	GV+354., R0
	ASL	R0
	MOV	#177777, (R0)
L9574:
L470:	MOV	GV+344., GV+342.
	SUB	#3, GV+344.
	JMP	EXIT
	.PSECT	CONST
L9573:	.WORD	10
	.ASCII	^NUMBERIS^
	.PSECT	BCPL
L446:	JSR	R1, ENTER
	.WORD	L9573
	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #1
	BNE	L9572
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L9572
	MOV	#177777, 12(P)
	BR	L9571
L9572:
L472:	CLR	12(P)
L9571:
L471:	MOV	12(P), R0
	JMP	EXIT
L447:	.PSECT	GLOBAL
	.=GV+250.
	.WORD	L437
	.WORD	L438
	.WORD	L439
	.WORD	L440
	.WORD	L441
	.WORD	L442
	.=GV+268.
	.WORD	L443
	.=GV+266.
	.WORD	L444
	.=GV+262.
	.WORD	L445
	.WORD	L446
	.=GV+428.
	.PSECT	BCPL
	BR	L9570
	.PSECT	CONST
L9569:	.WORD	7
	.ASCII	^STOREIN^
	.EVEN
	.PSECT	BCPL
L473:	JSR	R1, ENTER
	.WORD	L9569
	MOV	6(P), 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@L476
	.WORD	20
	TST	R0
	BEQ	L9568
	JMP	EXIT
L9568:
L481:	JSR	R0,@GV+246.
	.WORD	20
	MOV	6(P), 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+256.
	.WORD	20
	MOV	P, T
	ADD	#20, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	GV+344., (T)+
	MOV	#133, (T)+
	MOV	GV+342., (T)+
	JSR	R0,@GV+316.
	.WORD	20
	JSR	R0,@GV+262.
	.WORD	20
	JSR	R0,@GV+262.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9567:	.WORD	6
	.ASCII	^STOREI^
	.PSECT	BCPL
L474:	JSR	R1, ENTER
	.WORD	L9567
	JSR	R0,@GV+246.
	.WORD	14
	MOV	GV+342., 14(P)
	JSR	R0,@GV+250.
	.WORD	14
	MOV	R0, 6(P)
	MOV	#522, 16(P)
	MOV	#3, 20(P)
	MOV	6(P), 22(P)
	JSR	R0,@GV+314.
	.WORD	16
	MOV	P, T
	ADD	#16, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	GV+344., (T)+
	MOV	#310, (T)+
	MOV	6(P), (T)+
	JSR	R0,@GV+316.
	.WORD	16
	JSR	R0,@GV+262.
	.WORD	16
	JSR	R0,@GV+262.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9566:	.WORD	4
	.ASCII	^SAME^
	.PSECT	BCPL
L475:	JSR	R1, ENTER
	.WORD	L9566
	MOV	GV+342., R0
	ASL	R0
	MOV	(R0), R0
	CLR	12(P)
	CMP	R0, 6(P)
	BNE	L9565
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	BR	L9564
L9570:	JMP	L480
L9564:	CMP	R0, 10(P)
	BNE	L9565
	MOV	#1, R0
	BR	L9563
	BR	L9562
L9565:
L484:	MOV	GV+344., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L9561
	MOV	GV+344., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 10(P)
	BNE	L9561
	MOV	#2, R0
	BR	L9563
	BR	L9560
L9561:
L486:	CLR	R0
	BR	L9563
L9560:
L487:
L9562:
L485:
L9563:
L483:	MOV	R0, 14(P)
	BR	L9559
L490:	CLR	R0
	BR	L9558
L491:	MOV	#177777, 12(P)
L492:	CMP	#1, 14(P)
	BNE	L9557
	CMP	#16, GV+242.
	BEQ	L9556
L9557:
L496:	CMP	#2, 14(P)
	BNE	L9555
L9556:
L495:	MOV	12(P), 24(P)
	MOV	14(P), 26(P)
	JSR	R0,@L478
	.WORD	24
	MOV	#177777, R0
	BR	L9558
	BR	L9554
L9555:
L493:	CLR	R0
	BR	L9558
L9554:
L494:
L497:	MOV	#177777, 12(P)
L498:	CMP	#1, 14(P)
	BNE	L9553
	TST	12(P)
	BEQ	L9552
	MOV	#512, 24(P)
	BR	L9551
L9552:
L502:	MOV	#505, 24(P)
L9551:
L501:	MOV	#133, 26(P)
	MOV	GV+342., 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	JSR	R0,@GV+262.
	.WORD	24
	MOV	#151, GV+346.
	MOV	#177777, R0
	BR	L9558
	BR	L9550
L9553:
L499:	CLR	R0
	BR	L9558
L9550:
L500:	BR	L9549
L9559:
L488:	MOV	GV+346., T
	CMP	T, #16
	BEQ	L491
	CMP	T, #17
	BEQ	L492
	CMP	T, #21
	BEQ	L497
	CMP	T, #36
	BEQ	L498
	BR	L490
L9549:
L489:L9558:
L482:	JMP	EXIT
	.PSECT	CONST
L9548:	.WORD	10
	.ASCII	^PLUSCASE^
	.PSECT	BCPL
L477:	JSR	R1, ENTER
	.WORD	L9548
	CMP	#1, 10(P)
	BNE	L9547
	MOV	GV+344., 12(P)
	BR	L9546
L9547:
L504:	MOV	GV+342., 12(P)
L9546:
L503:	CMP	#1, 10(P)
	BNE	L9545
	MOV	GV+342., 14(P)
	BR	L9544
L9545:
L506:	MOV	GV+344., 14(P)
L9544:
L505:	MOV	#1, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9543
	TST	6(P)
	BEQ	L9542
	MOV	#510, 24(P)
	BR	L9541
L9542:
L510:	MOV	#511, 24(P)
L9541:
L509:	MOV	#133, 26(P)
	MOV	14(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9540
L9543:
L507:	MOV	#177777, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+264.
	.WORD	24
	TST	R0
	BEQ	L9539
	TST	6(P)
	BEQ	L9538
	MOV	#511, 24(P)
	BR	L9537
L9538:
L514:	MOV	#510, 24(P)
L9537:
L513:	MOV	#133, 26(P)
	MOV	14(P), 30(P)
	JSR	R0,@GV+314.
	.WORD	24
	BR	L9536
L9539:
L511:	TST	6(P)
	BEQ	L9535
	MOV	#456, 24(P)
	BR	L9534
L9535:
L516:	MOV	#460, 24(P)
L9534:
L515:	MOV	#133, 26(P)
	MOV	12(P), 30(P)
	MOV	#133, 32(P)
	MOV	14(P), 34(P)
	JSR	R0,@GV+316.
	.WORD	24
L9536:
L512:
L9540:
L508:	JSR	R0,@GV+262.
	.WORD	24
	JSR	R0,@GV+262.
	.WORD	24
	MOV	#151, GV+346.
	JMP	EXIT
	.PSECT	CONST
L9533:	.WORD	7
	.ASCII	^LOADLVP^
	.EVEN
	.PSECT	BCPL
L479:	JSR	R1, ENTER
	.WORD	L9533
	JSR	R0,@GV+260.
	.WORD	16
	MOV	R0, 10(P)
	MOV	P, T
	ADD	#20, T
	MOV	#454, (T)+
	MOV	#3, (T)+
	MOV	#5, (T)+
	MOV	#3, (T)+
	MOV	10(P), (T)+
	JSR	R0,@GV+316.
	.WORD	20
	MOV	#521, 20(P)
	MOV	#3, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+314.
	.WORD	20
	MOV	P, T
	ADD	#20, T
	MOV	#456, (T)+
	MOV	#1, (T)+
	MOV	6(P), (T)+
	MOV	#3, (T)+
	MOV	10(P), (T)+
	JSR	R0,@GV+316.
	.WORD	20
	MOV	#177777, R0
	COM	R0
	MOV	10(P), R1
	ADD	GV+354., R1
	ASL	R1
	MOV	R0, (R1)
	MOV	#3, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+256.
	.WORD	20
	JMP	EXIT
L480:	.PSECT	GLOBAL
	.=GV+270.
	.WORD	L473
	.=GV+276.
	.WORD	L474
	.=GV+280.
	.WORD	L479
	.=GV+428.
	.PSECT	CONST
L476:	.WORD	L475
L478:	.WORD	L477
	.PSECT	BCPL
	BR	L9532
	.PSECT	CONST
L9531:	.WORD	6
	.ASCII	^CGCODE^
	.PSECT	BCPL
L517:	JSR	R1, ENTER
	.WORD	L9531
	JSR	R0,@GV+246.
	.WORD	16
	MOV	GV+352., R0
	DEC	R0
	MOV	GV+340., 16(P)
	MOV	R0, 20(P)
	JSR	R0,@GV+230.
	.WORD	16
	JSR	R0,@GV+414.
	.WORD	16
	MOV	#1, 10(P)
	MOV	6(P), 12(P)
	BR	L9530
L526:	JSR	R0,@GV+62.
	.WORD	30
	MOV	R0, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
	INC	10(P)
L9530:
L525:	CMP	10(P), 12(P)
	BLE	L526
	JSR	R0,@GV+86.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9529:	.WORD	7
	.ASCII	^CGENTRY^
	.EVEN
	.PSECT	BCPL
L518:	JSR	R1, ENTER
	.WORD	L9529
	JSR	R0,@GV+220.
	.WORD	20
	MOV	R0, 12(P)
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, R1
	ASR	R1
	ADD	GV+374., R1
	MOV	R1, GV+374.
	.PSECT	CONST
L9528:	.WORD	5
	.ASCII	^CONST^
	.EVEN
	.PSECT	BCPL
	MOV	#L9528/2, 22(P)
	JSR	R0,@GV+216.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+318.
	.WORD	22
	MOV	6(P), 22(P)
	JSR	R0,@GV+334.
	.WORD	22
	.PSECT	CONST
L9527:	.WORD	11
	.ASCII	<11>^.ASCII^<11><136>
	.EVEN
	.PSECT	BCPL
	MOV	#L9527/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	MOV	#1, 14(P)
	MOV	6(P), 16(P)
	BR	L9526
L528:	JSR	R0,@GV+62.
	.WORD	34
	MOV	R0, 26(P)
	JSR	R0,@GV+56.
	.WORD	26
	INC	14(P)
L9526:
L527:	CMP	14(P), 16(P)
	BLE	L528
	.PSECT	CONST
L9525:	.WORD	2
	.ASCII	<136><12>
	.PSECT	BCPL
	MOV	#L9525/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	MOV	6(P), R0
	BIC	#177776, R0
	BR	L9524
L9532:	JMP	L524
L9524:	TST	R0
	BEQ	L9523
	.PSECT	CONST
L9522:	.WORD	7
	.ASCII	<11>^.EVEN^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9522/2, 22(P)
	JSR	R0,@GV+72.
	.WORD	22
L9523:
L529:	MOV	GV+208., 22(P)
	JSR	R0,@GV+216.
	.WORD	22
	JSR	R0,@GV+408.
	.WORD	22
	MOV	10(P), 22(P)
	JSR	R0,@GV+318.
	.WORD	22
	.PSECT	CONST
L9521:	.WORD	5
	.ASCII	^ENTER^
	.EVEN
	.PSECT	BCPL
	MOV	P, T
	ADD	#22, T
	MOV	#500, (T)+
	MOV	#3, (T)+
	MOV	#1, (T)+
	MOV	#324, (T)+
	MOV	#L9521/2, (T)+
	JSR	R0,@GV+316.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@GV+332.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
	.PSECT	CONST
L9520:	.WORD	6
	.ASCII	^CGSAVE^
	.PSECT	BCPL
L519:	JSR	R1, ENTER
	.WORD	L9520
	MOV	#3, 16(P)
	JSR	R0,@GV+224.
	.WORD	16
	MOV	6(P), R0
	DEC	R0
	MOV	#3, 10(P)
	MOV	R0, 12(P)
	BR	L9519
L531:	MOV	GV+342., GV+344.
	MOV	#3, R0
	ADD	GV+342., R0
	MOV	R0, GV+342.
	MOV	GV+342., R0
	ASL	R0
	MOV	#115, (R0)
	MOV	GV+342., R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	GV+342., R0
	ADD	#2, R0
	ASL	R0
	MOV	10(P), (R0)
	INC	10(P)
L9519:
L530:	CMP	10(P), 12(P)
	BLE	L531
	MOV	6(P), GV+352.
	JMP	EXIT
	.PSECT	CONST
L9518:	.WORD	7
	.ASCII	^CGAPPLY^
	.EVEN
	.PSECT	BCPL
L520:	JSR	R1, ENTER
	.WORD	L9518
	JSR	R0,@GV+246.
	.WORD	20
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+340., 20(P)
	MOV	R0, 22(P)
	JSR	R0,@GV+230.
	.WORD	20
	.PSECT	CONST
L9517:	.WORD	10
	.ASCII	<11>^JSR^<11>^R0,^
	.PSECT	BCPL
	MOV	#L9517/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
	MOV	#313, 20(P)
	MOV	GV+342., 22(P)
	JSR	R0,@GV+310.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
	MOV	10(P), R1
	ASL	R1
	ADD	#6, R1
	MOV	R1, 20(P)
	JSR	R0,@GV+334.
	.WORD	20
	MOV	#2, R0
	ADD	GV+372., R0
	MOV	R0, GV+372.
	JSR	R0,@GV+410.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+228.
	.WORD	20
	CMP	#12, 6(P)
	BNE	L9516
	MOV	#3, 20(P)
	CLR	22(P)
	JSR	R0,@GV+256.
	.WORD	20
L9516:
L532:	JMP	EXIT
	.PSECT	CONST
L9515:	.WORD	10
	.ASCII	^CGRETURN^
	.PSECT	BCPL
L521:	JSR	R1, ENTER
	.WORD	L9515
	CMP	#140, 6(P)
	BNE	L9514
	MOV	GV+342., 16(P)
	CLR	20(P)
	JSR	R0,@GV+252.
	.WORD	16
L9514:
L533:	.PSECT	CONST
L9513:	.WORD	4
	.ASCII	^EXIT^
	.PSECT	BCPL
	MOV	#502, 16(P)
	MOV	#324, 20(P)
	MOV	#L9513/2, 22(P)
	JSR	R0,@GV+314.
	.WORD	16
	JSR	R0,@GV+408.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9512:	.WORD	10
	.ASCII	^CGSTRING^
	.PSECT	BCPL
L522:	JSR	R1, ENTER
	.WORD	L9512
	JSR	R0,@GV+220.
	.WORD	16
	MOV	R0, 10(P)
	MOV	#322, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+256.
	.WORD	20
	MOV	#3, R0
	ADD	6(P), R0
	MOV	R0, R1
	ASR	R1
	ADD	GV+374., R1
	MOV	R1, GV+374.
	.PSECT	CONST
L9511:	.WORD	5
	.ASCII	^CONST^
	.EVEN
	.PSECT	BCPL
	MOV	#L9511/2, 20(P)
	JSR	R0,@GV+216.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	MOV	6(P), 20(P)
	JSR	R0,@GV+334.
	.WORD	20
	TST	6(P)
	BEQ	L9510
	.PSECT	CONST
L9509:	.WORD	10
	.ASCII	<11>^.ASCII^<11>
	.PSECT	BCPL
	MOV	#L9509/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
L9510:
L534:	CLR	12(P)
	MOV	#1, 14(P)
	MOV	6(P), 16(P)
	BR	L9508
L536:	JSR	R0,@GV+62.
	.WORD	26
	MOV	R0, 20(P)
	CMP	#40, 20(P)
	BGT	L9507
	CMP	20(P), #132
	BLE	L9506
L9507:
L540:	CMP	#141, 20(P)
	BGT	L9505
	CMP	20(P), #172
	BGT	L9505
L9506:
L539:	TST	12(P)
	BNE	L9504
	MOV	#136, 30(P)
	JSR	R0,@GV+56.
	.WORD	30
L9504:
L541:	MOV	20(P), 30(P)
	JSR	R0,@GV+56.
	.WORD	30
	MOV	#177777, 12(P)
	BR	L9503
L9505:
L537:	TST	12(P)
	BEQ	L9502
	MOV	#136, 30(P)
	JSR	R0,@GV+56.
	.WORD	30
L9502:
L542:	.PSECT	CONST
L9501:	.WORD	4
	.ASCII	^<%O>^
	.PSECT	BCPL
	MOV	#L9501/2, 30(P)
	MOV	20(P), 32(P)
	JSR	R0,@GV+84.
	.WORD	30
	CLR	12(P)
L9503:
L538:	INC	14(P)
L9508:
L535:	CMP	14(P), 16(P)
	BLE	L536
	TST	12(P)
	BEQ	L9500
	MOV	#136, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
L9500:
L543:	JSR	R0,@GV+86.
	.WORD	20
	MOV	6(P), R0
	BIC	#177776, R0
	TST	R0
	BEQ	L9499
	.PSECT	CONST
L9498:	.WORD	7
	.ASCII	<11>^.EVEN^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9498/2, 20(P)
	JSR	R0,@GV+72.
	.WORD	20
L9499:
L544:	MOV	GV+208., 20(P)
	JSR	R0,@GV+216.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9497:	.WORD	10
	.ASCII	^CGGLOBAL^
	.PSECT	BCPL
L523:	JSR	R1, ENTER
	.WORD	L9497
	MOV	#177777, 10(P)
	JSR	R0,@GV+414.
	.WORD	20
	TST	6(P)
	BNE	L9496
	JMP	EXIT
L9496:
L545:	.PSECT	CONST
L9495:	.WORD	6
	.ASCII	^GLOBAL^
	.PSECT	BCPL
	MOV	#L9495/2, 20(P)
	JSR	R0,@GV+216.
	.WORD	20
	MOV	#1, 12(P)
	MOV	6(P), 14(P)
	BR	L9494
L547:	JSR	R0,@GV+62.
	.WORD	24
	MOV	R0, 16(P)
	JSR	R0,@GV+204.
	.WORD	26
	MOV	R0, 20(P)
	MOV	10(P), R0
	INC	R0
	CMP	R0, 16(P)
	BEQ	L9493
	.PSECT	CONST
L9492:	.WORD	12
	.ASCII	<11>^.=GV+%N.^<12>
	.PSECT	BCPL
	MOV	16(P), R1
	ASL	R1
	MOV	#L9492/2, 30(P)
	MOV	R1, 32(P)
	JSR	R0,@GV+84.
	.WORD	30
L9493:
L548:	MOV	20(P), 30(P)
	JSR	R0,@GV+332.
	.WORD	30
	CMP	16(P), #74
	BGE	L9491
	.PSECT	CONST
L9490:	.WORD	14
	.ASCII	<11>^G%N == L%N^<12>
	.PSECT	BCPL
	MOV	#L9490/2, 30(P)
	MOV	16(P), 32(P)
	MOV	20(P), 34(P)
	JSR	R0,@GV+84.
	.WORD	30
	MOV	16(P), R0
	ADD	GV+404., R0
	ASL	R0
	MOV	#177777, (R0)
L9491:
L549:	MOV	16(P), 10(P)
	INC	12(P)
L9494:
L546:	CMP	12(P), 14(P)
	BLE	L547
	MOV	#1, 12(P)
	BR	L9489
L551:	MOV	12(P), R0
	ADD	GV+404., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BLE	L9488
	MOV	12(P), 10(P)
L9488:
L552:	INC	12(P)
L9489:
L550:	CMP	12(P), #620
	BLE	L551
	.PSECT	CONST
L9487:	.WORD	12
	.ASCII	<11>^.=GV+%N.^<12>
	.PSECT	BCPL
	MOV	10(P), R1
	ASL	R1
	MOV	#L9487/2, 20(P)
	MOV	R1, 22(P)
	JSR	R0,@GV+84.
	.WORD	20
	JMP	EXIT
L524:	.PSECT	GLOBAL
	.=GV+298.
	.WORD	L517
	.=GV+290.
	.WORD	L518
	.WORD	L519
	.WORD	L520
	.WORD	L521
	.=GV+288.
	.WORD	L522
	.=GV+286.
	.WORD	L523
	.=GV+428.
	.PSECT	BCPL
	BR	L9486
	.PSECT	CONST
L9485:	.WORD	6
	.ASCII	^BRANCH^
	.PSECT	BCPL
L556:	JSR	R1, ENTER
	.WORD	L9485
	CLR	12(P)
	CLR	22(P)
	MOV	GV+344., 24(P)
	JSR	R0,@GV+264.
	.WORD	22
	TST	R0
	BEQ	L9484
	BR	L9483
L587:	MOV	#27, GV+346.
	BR	L9482
L588:	MOV	#31, GV+346.
	BR	L9482
L589:	MOV	#26, GV+346.
	BR	L9482
L590:	MOV	#30, GV+346.
	BR	L9482
	BR	L9482
L9483:
L585:	MOV	GV+346., T
	CMP	T, #26
	BEQ	L587
	CMP	T, #27
	BEQ	L589
	CMP	T, #30
	BEQ	L588
	CMP	T, #31
	BEQ	L590
	BR	L9482
L9482:
L586:
L9484:
L584:	BR	L9481
L593:	JSR	R0,@GV+246.
	.WORD	22
	MOV	GV+352., R0
	SUB	#2, R0
	MOV	GV+340., 22(P)
	MOV	R0, 24(P)
	JSR	R0,@GV+230.
	.WORD	22
	MOV	#507, 22(P)
	MOV	#133, 24(P)
	MOV	GV+342., 26(P)
	JSR	R0,@GV+314.
	.WORD	22
	TST	6(P)
	BEQ	L9480
	MOV	#467, 22(P)
	BR	L9479
L9480:
L595:	MOV	#470, 22(P)
L9479:
L594:	MOV	10(P), 24(P)
	JSR	R0,@GV+300.
	.WORD	22
	JSR	R0,@GV+262.
	.WORD	22
	JMP	EXIT
L596:	COM	6(P)
L597:	TST	6(P)
	BEQ	L9478
	MOV	#467, 14(P)
	BR	L9477
L9478:
L599:	MOV	#470, 14(P)
L9477:
L598:	MOV	14(P), 12(P)
	BR	L9476
L9486:	JMP	L583
L600:	COM	6(P)
L601:	TST	6(P)
	BEQ	L9475
	MOV	#471, 14(P)
	BR	L9474
L9475:
L603:	MOV	#472, 14(P)
L9474:
L602:	MOV	14(P), 12(P)
	BR	L9476
L604:	COM	6(P)
L605:	TST	6(P)
	BEQ	L9473
	MOV	#473, 14(P)
	BR	L9472
L9473:
L607:	MOV	#474, 14(P)
L9472:
L606:	MOV	14(P), 12(P)
	BR	L9476
L9481:
L591:	MOV	GV+346., T
	CMP	T, #24
	BEQ	L596
	CMP	T, #25
	BEQ	L597
	CMP	T, #26
	BEQ	L600
	CMP	T, #27
	BEQ	L605
	CMP	T, #30
	BEQ	L604
	CMP	T, #31
	BEQ	L601
	BR	L593
L9476:
L592:	MOV	GV+352., R0
	SUB	#3, R0
	MOV	GV+340., 22(P)
	MOV	R0, 24(P)
	JSR	R0,@GV+230.
	.WORD	22
	CLR	22(P)
	MOV	GV+342., 24(P)
	JSR	R0,@GV+264.
	.WORD	22
	TST	R0
	BEQ	L9471
	MOV	#507, 22(P)
	MOV	#133, 24(P)
	MOV	GV+344., 26(P)
	JSR	R0,@GV+314.
	.WORD	22
	BR	L9470
L9471:
L608:	CLR	22(P)
	MOV	GV+344., 24(P)
	JSR	R0,@GV+264.
	.WORD	22
	TST	R0
	BEQ	L9469
	MOV	#507, 22(P)
	MOV	#133, 24(P)
	MOV	GV+342., 26(P)
	JSR	R0,@GV+314.
	.WORD	22
	BR	L9468
L9469:
L610:	MOV	P, T
	ADD	#22, T
	MOV	#455, (T)+
	MOV	#133, (T)+
	MOV	GV+344., (T)+
	MOV	#133, (T)+
	MOV	GV+342., (T)+
	JSR	R0,@GV+316.
	.WORD	22
L9468:
L611:
L9470:
L609:	MOV	12(P), 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+300.
	.WORD	22
	MOV	#151, GV+346.
	JSR	R0,@GV+262.
	.WORD	22
	JSR	R0,@GV+262.
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9467:	.WORD	10
	.ASCII	^CGBRANCH^
	.PSECT	BCPL
L557:	JSR	R1, ENTER
	.WORD	L9467
	MOV	10(P), 12(P)
	MOV	10(P), 22(P)
	JSR	R0,@L575
	.WORD	22
	TST	R0
	BNE	L9466
	MOV	10(P), 22(P)
	JSR	R0,@L566
	.WORD	22
	MOV	R0, 14(P)
	TST	14(P)
	BNE	L9465
	JSR	R0,@GV+220.
	.WORD	24
	MOV	R0, 12(P)
	MOV	12(P), 24(P)
	MOV	10(P), 26(P)
	JSR	R0,@L564
	.WORD	24
	BR	L9464
L9465:
L613:	MOV	14(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 12(P)
L9464:
L614:L9466:
L612:	MOV	6(P), 22(P)
	MOV	#116, 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+314.
	.WORD	22
	DEC	GV+372.
	CMP	#466, 6(P)
	BNE	L9463
	JSR	R0,@GV+408.
	.WORD	22
L9463:
L615:	JMP	EXIT
	.PSECT	CONST
L9462:	.WORD	7
	.ASCII	^CGLABEL^
	.EVEN
	.PSECT	BCPL
L558:	JSR	R1, ENTER
	.WORD	L9462
	MOV	6(P), 16(P)
	JSR	R0,@L566
	.WORD	16
	MOV	R0, 10(P)
	TST	10(P)
	BEQ	L9461
	MOV	10(P), 20(P)
	JSR	R0,@L571
	.WORD	20
	MOV	10(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	JSR	R0,@GV+86.
	.WORD	20
L9461:
L616:	MOV	6(P), 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	MOV	6(P), 20(P)
	JSR	R0,@L573
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9460:	.WORD	7
	.ASCII	^ALLOWJP^
	.EVEN
	.PSECT	BCPL
L559:	JSR	R1, ENTER
	.WORD	L9460
L617:	MOV	GV+406., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6(P)
	CMP	GV+406., 6(P)
	BNE	L9459
	JMP	EXIT
L9459:
L618:	MOV	6(P), R0
	ADD	#4, R0
	ASL	R0
	MOV	(R0), R0
	MOV	GV+372., R1
	SUB	R0, R1
	CMP	R1, #156
	BGE	L9458
	JMP	EXIT
L9458:
L619:	MOV	6(P), 16(P)
	JSR	R0,@L562
	.WORD	16
	BR	L617
	JMP	EXIT
	.PSECT	CONST
L9457:	.WORD	7
	.ASCII	^FORCEJP^
	.EVEN
	.PSECT	BCPL
L560:	JSR	R1, ENTER
	.WORD	L9457
	MOV	GV+406., R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 6(P)
	CMP	GV+406., 6(P)
	BNE	L9456
	JMP	EXIT
L9456:
L620:	MOV	6(P), R0
	ADD	#4, R0
	ASL	R0
	MOV	(R0), R0
	MOV	GV+372., R1
	SUB	R0, R1
	CMP	R1, #170
	BGE	L9455
	JMP	EXIT
L9455:
L621:	JSR	R0,@GV+220.
	.WORD	16
	MOV	R0, 10(P)
	.PSECT	CONST
L9454:	.WORD	10
	.ASCII	<11>^BR^<11>^L%N^<12>
	.PSECT	BCPL
	MOV	#L9454/2, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+84.
	.WORD	20
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JSR	R0,@GV+408.
	.WORD	20
	MOV	10(P), 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9453:	.WORD	4
	.ASCII	^CGJP^
	.PSECT	BCPL
L561:	JSR	R1, ENTER
	.WORD	L9453
	MOV	6(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	MOV	6(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 20(P)
	JSR	R0,@GV+318.
	.WORD	20
	.PSECT	CONST
L9452:	.WORD	11
	.ASCII	<11>^JMP^<11>^L%N^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9452/2, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+84.
	.WORD	20
	MOV	#2, R0
	ADD	GV+372., R0
	MOV	R0, GV+372.
	MOV	6(P), 20(P)
	JSR	R0,@L571
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9451:	.WORD	12
	.ASCII	^FORWARDREF^
	.PSECT	BCPL
L563:	JSR	R1, ENTER
	.WORD	L9451
	JSR	R0,@L579
	.WORD	20
	MOV	R0, 12(P)
	MOV	12(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	12(P), R0
	ADD	#3, R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	12(P), R0
	ADD	#4, R0
	ASL	R0
	MOV	GV+372., (R0)
	MOV	12(P), 22(P)
	JSR	R0,@L569
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9450:	.WORD	12
	.ASCII	^SEARCHLIST^
	.PSECT	BCPL
L565:	JSR	R1, ENTER
	.WORD	L9450
	MOV	GV+406., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	BR	L9449
L623:	MOV	10(P), R0
	ADD	#2, R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L9448
	MOV	10(P), R0
	BR	L9447
L9448:
L625:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
L9449:
L624:	CMP	GV+406., 10(P)
	BNE	L623
	CLR	R0
	BR	L9447
L9447:
L622:	JMP	EXIT
	.PSECT	CONST
L9446:	.WORD	11
	.ASCII	^EMPTYLIST^
	.EVEN
	.PSECT	BCPL
L567:	JSR	R1, ENTER
	.WORD	L9446
	MOV	#310, R0
	ADD	GV+372., R0
	MOV	R0, GV+372.
	JSR	R0,@GV+410.
	.WORD	14
	SUB	#310, GV+372.
	JMP	EXIT
	.PSECT	CONST
L9445:	.WORD	11
	.ASCII	^ADDTOLIST^
	.EVEN
	.PSECT	BCPL
L568:	JSR	R1, ENTER
	.WORD	L9445
	MOV	GV+406., R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 10(P)
	MOV	GV+406., R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	6(P), R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	GV+406., (R0)
	JMP	EXIT
	.PSECT	CONST
L9444:	.WORD	13
	.ASCII	^TAKEOFFLIST^
	.EVEN
	.PSECT	BCPL
L570:	JSR	R1, ENTER
	.WORD	L9444
	MOV	6(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	6(P), R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 10(P)
	MOV	R1, 12(P)
	MOV	10(P), R0
	ASL	R0
	MOV	12(P), (R0)
	MOV	12(P), R0
	INC	R0
	ASL	R0
	MOV	10(P), (R0)
	MOV	6(P), 22(P)
	JSR	R0,@L581
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9443:	.WORD	5
	.ASCII	^ENTER^
	.EVEN
	.PSECT	BCPL
L572:	JSR	R1, ENTER
	.WORD	L9443
	MOV	L553, R0
	ADD	GV+422., R0
	ASL	R0
	MOV	6(P), (R0)
	MOV	L553, R0
	ADD	GV+420., R0
	ASL	R0
	MOV	GV+372., (R0)
	MOV	L553, R0
	INC	R0
	MOV	R0, R1
	TST	R1
	SXT	R0
	DIV	#100, R0
	MOV	R1, L553
	JMP	EXIT
	.PSECT	CONST
L9442:	.WORD	6
	.ASCII	^LOOKUP^
	.PSECT	BCPL
L574:	JSR	R1, ENTER
	.WORD	L9442
	JSR	R0,@L577
	.WORD	16
	MOV	L554, 10(P)
	BR	L9441
L627:	MOV	10(P), R0
	ADD	GV+422., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BNE	L9440
	MOV	#177777, R0
	BR	L9439
L9440:
L629:	MOV	10(P), R0
	INC	R0
	MOV	R0, R1
	TST	R1
	SXT	R0
	DIV	#100, R0
	MOV	R1, 10(P)
L9441:
L628:	CMP	L553, 10(P)
	BNE	L627
	CLR	R0
	BR	L9439
L9439:
L626:	JMP	EXIT
	.PSECT	CONST
L9438:	.WORD	13
	.ASCII	^CLEARLABELS^
	.EVEN
	.PSECT	BCPL
L576:	JSR	R1, ENTER
	.WORD	L9438
	MOV	GV+372., R0
	SUB	#200, R0
	MOV	R0, 6(P)
	BR	L9437
L630:	MOV	L554, R0
	ADD	GV+420., R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 6(P)
	BLE	L9436
	JMP	EXIT
L9436:
L632:	MOV	L554, R0
	INC	R0
	MOV	R0, R1
	TST	R1
	SXT	R0
	DIV	#100, R0
	MOV	R1, L554
L9437:
L631:	CMP	L553, L554
	BNE	L630
	JMP	EXIT
	.PSECT	CONST
L9435:	.WORD	10
	.ASCII	^HEAPATOM^
	.PSECT	BCPL
L578:	JSR	R1, ENTER
	.WORD	L9435
	MOV	L555, 6(P)
	MOV	6(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, L555
	MOV	6(P), R0
	BR	L9434
L9434:
L633:	JMP	EXIT
	.PSECT	CONST
L9433:	.WORD	6
	.ASCII	^UNHEAP^
	.PSECT	BCPL
L580:	JSR	R1, ENTER
	.WORD	L9433
	MOV	6(P), R0
	ASL	R0
	MOV	L555, (R0)
	MOV	6(P), L555
	JMP	EXIT
	.PSECT	CONST
L9432:	.WORD	10
	.ASCII	^INITLABS^
	.PSECT	BCPL
L582:	JSR	R1, ENTER
	.WORD	L9432
	MOV	GV+406., R0
	ASL	R0
	MOV	GV+406., (R0)
	MOV	GV+406., R0
	INC	R0
	ASL	R0
	MOV	GV+406., (R0)
	MOV	#2, R0
	ADD	GV+406., R0
	MOV	R0, L555
	CLR	6(P)
	BR	L9431
L635:	MOV	6(P), R0
	ADD	L555, R0
	ADD	#5, R0
	MOV	6(P), R1
	ADD	L555, R1
	ASL	R1
	MOV	R0, (R1)
	ADD	#5, 6(P)
L9431:
L634:	CMP	6(P), #764
	BLE	L635
	CLR	L554
	CLR	L553
	JMP	EXIT
L583:	.PSECT	GLOBAL
	.=GV+416.
	.WORD	L556
	.=GV+300.
	.WORD	L557
	.=GV+418.
	.WORD	L558
	.=GV+408.
	.WORD	L559
	.WORD	L560
	.=GV+414.
	.WORD	L567
	.=GV+428.
	.WORD	L582
	.=GV+428.
	.PSECT	CONST
L553:	.WORD	0
L554:	.WORD	0
L555:	.WORD	0
L562:	.WORD	L561
L564:	.WORD	L563
L566:	.WORD	L565
L569:	.WORD	L568
L571:	.WORD	L570
L573:	.WORD	L572
L575:	.WORD	L574
L577:	.WORD	L576
L579:	.WORD	L578
L581:	.WORD	L580
	.PSECT	BCPL
	BR	L9430
	.PSECT	CONST
L9429:	.WORD	10
	.ASCII	^CGSWITCH^
	.PSECT	BCPL
L638:	JSR	R1, ENTER
	.WORD	L9429
	MOV	P, R0
	ASR	R0
	ADD	#4, R0
	MOV	R0, 6(P)
	MOV	P, R0
	ASR	R0
	ADD	#316, R0
	MOV	R0, 632(P)
	MOV	6(P), L636
	MOV	632(P), L637
	JSR	R0,@GV+62.
	.WORD	1464
	MOV	R0, 1456(P)
	JSR	R0,@GV+204.
	.WORD	1466
	MOV	R0, 1460(P)
	MOV	#1, 1462(P)
	MOV	1456(P), 1464(P)
	BR	L9428
L645:	JSR	R0,@GV+62.
	.WORD	1474
	MOV	R0, 1466(P)
	JSR	R0,@GV+204.
	.WORD	1476
	MOV	R0, 1470(P)
	MOV	1462(P), 1472(P)
	BR	L9427
L646:	MOV	1472(P), R0
	DEC	R0
	ADD	L636, R0
	ASL	R0
	MOV	(R0), R0
	CMP	1466(P), R0
	BLE	L9426
	BR	L9425
L9426:
L648:	MOV	1472(P), R0
	DEC	R0
	ADD	L636, R0
	ASL	R0
	MOV	(R0), R0
	MOV	1472(P), R1
	ADD	L636, R1
	ASL	R1
	MOV	R0, (R1)
	MOV	1472(P), R0
	DEC	R0
	ADD	L637, R0
	ASL	R0
	MOV	(R0), R0
	MOV	1472(P), R1
	ADD	L637, R1
	ASL	R1
	MOV	R0, (R1)
	DEC	1472(P)
L9427:
L647:	CMP	1472(P), #1
	BGT	L646
L9425:
L649:	MOV	1472(P), R0
	ADD	L636, R0
	ASL	R0
	MOV	1466(P), (R0)
	MOV	1472(P), R0
	ADD	L637, R0
	ASL	R0
	MOV	1470(P), (R0)
	INC	1462(P)
L9428:
L644:	CMP	1462(P), 1464(P)
	BLE	L645
	JSR	R0,@GV+246.
	.WORD	1470
	MOV	GV+352., R0
	BR	L9424
L9430:	JMP	L643
L9424:	SUB	#2, R0
	MOV	GV+340., 1470(P)
	MOV	R0, 1472(P)
	JSR	R0,@GV+230.
	.WORD	1470
	MOV	P, T
	ADD	#1470, T
	MOV	#454, (T)+
	MOV	#133, (T)+
	MOV	GV+342., (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	JSR	R0,@GV+316.
	.WORD	1470
	JSR	R0,@GV+262.
	.WORD	1470
	MOV	1456(P), R1
	MUL	#3, R1
	MOV	1456(P), R0
	ADD	L636, R0
	ASL	R0
	MOV	(R0), R0
	ADD	#20, R0
	MOV	L636, R2
	INC	R2
	ASL	R2
	MOV	(R2), R2
	SUB	R2, R0
	CMP	R1, R0
	BLE	L9423
	MOV	1456(P), 1470(P)
	MOV	1460(P), 1472(P)
	JSR	R0,@L642
	.WORD	1470
	BR	L9422
L9423:
L650:	MOV	#1, 1470(P)
	MOV	1456(P), 1472(P)
	MOV	1460(P), 1474(P)
	JSR	R0,@L640
	.WORD	1470
L9422:
L651:	JMP	EXIT
	.PSECT	CONST
L9421:	.WORD	7
	.ASCII	^BSWITCH^
	.EVEN
	.PSECT	BCPL
L639:	JSR	R1, ENTER
	.WORD	L9421
	MOV	10(P), R0
	SUB	6(P), R0
	CMP	R0, #6
	BLT	L9420
	JSR	R0,@GV+220.
	.WORD	22
	MOV	6(P), R1
	ADD	10(P), R1
	ASR	R1
	MOV	R0, 14(P)
	MOV	R1, 16(P)
	MOV	L636, R0
	ADD	16(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	P, T
	ADD	#26, T
	MOV	#455, (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	#471, 26(P)
	MOV	#116, 30(P)
	MOV	14(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	MOV	16(P), R0
	DEC	R0
	MOV	6(P), 26(P)
	MOV	R0, 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@L640
	.WORD	26
	MOV	14(P), 26(P)
	JSR	R0,@GV+318.
	.WORD	26
	MOV	L637, R0
	ADD	16(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	#470, 26(P)
	MOV	R0, 30(P)
	JSR	R0,@GV+300.
	.WORD	26
	MOV	16(P), R0
	INC	R0
	MOV	R0, 26(P)
	MOV	10(P), 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@L640
	.WORD	26
	BR	L9419
L9420:
L652:	MOV	6(P), 14(P)
	MOV	10(P), 16(P)
	BR	L9418
L655:	MOV	14(P), R0
	ADD	L636, R0
	ASL	R0
	MOV	(R0), R0
	MOV	P, T
	ADD	#26, T
	MOV	#455, (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	14(P), R0
	ADD	L637, R0
	ASL	R0
	MOV	(R0), R0
	MOV	#470, 26(P)
	MOV	R0, 30(P)
	JSR	R0,@GV+300.
	.WORD	26
	INC	14(P)
L9418:
L654:	CMP	14(P), 16(P)
	BLE	L655
	MOV	#466, 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+300.
	.WORD	22
L9419:
L653:	JMP	EXIT
	.PSECT	CONST
L9417:	.WORD	7
	.ASCII	^LSWITCH^
	.EVEN
	.PSECT	BCPL
L641:	JSR	R1, ENTER
	.WORD	L9417
	JSR	R0,@GV+220.
	.WORD	20
	MOV	L636, R1
	INC	R1
	ASL	R1
	MOV	(R1), R1
	MOV	6(P), R2
	ADD	L636, R2
	ASL	R2
	MOV	(R2), R2
	MOV	R0, 12(P)
	MOV	R1, 14(P)
	MOV	R2, 16(P)
	MOV	P, T
	ADD	#26, T
	MOV	#460, (T)+
	MOV	#1, (T)+
	MOV	14(P), (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	#472, 26(P)
	MOV	10(P), 30(P)
	JSR	R0,@GV+300.
	.WORD	26
	MOV	16(P), R0
	SUB	14(P), R0
	MOV	P, T
	ADD	#26, T
	MOV	#455, (T)+
	MOV	#3, (T)+
	MOV	#4, (T)+
	MOV	#1, (T)+
	MOV	R0, (T)+
	JSR	R0,@GV+316.
	.WORD	26
	MOV	#473, 26(P)
	MOV	10(P), 30(P)
	JSR	R0,@GV+300.
	.WORD	26
	MOV	#522, 26(P)
	MOV	#3, 30(P)
	MOV	#4, 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	.PSECT	CONST
L9416:	.WORD	15
	.ASCII	<11>^JMP^<11>^@L%N(T)^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9416/2, 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+84.
	.WORD	26
	MOV	#3, R0
	ADD	GV+372., R0
	ADD	16(P), R0
	SUB	14(P), R0
	MOV	R0, GV+372.
	JSR	R0,@GV+408.
	.WORD	26
	MOV	12(P), 26(P)
	JSR	R0,@GV+318.
	.WORD	26
	MOV	#1, 20(P)
	MOV	14(P), 22(P)
	MOV	16(P), 24(P)
	BR	L9415
L657:	MOV	20(P), R0
	ADD	L636, R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, 22(P)
	BNE	L9414
	MOV	20(P), R0
	ADD	L637, R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, 34(P)
	JSR	R0,@GV+332.
	.WORD	34
	MOV	20(P), R0
	INC	R0
	MOV	R0, 20(P)
	BR	L9413
L9414:
L658:	MOV	10(P), 34(P)
	JSR	R0,@GV+332.
	.WORD	34
L9413:
L659:	INC	22(P)
L9415:
L656:	CMP	22(P), 24(P)
	BLE	L657
	JMP	EXIT
L643:	.PSECT	GLOBAL
	.=GV+302.
	.WORD	L638
	.=GV+428.
	.PSECT	CONST
L636:	.WORD	0
L637:	.WORD	0
L640:	.WORD	L639
L642:	.WORD	L641
	.PSECT	BCPL
	BR	L9412
	.PSECT	CONST
L9411:	.WORD	4
	.ASCII	^COMP^
	.PSECT	BCPL
L660:	JSR	R1, ENTER
	.WORD	L9411
	BR	L9410
L681:	.PSECT	CONST
L9409:	.WORD	30
	.ASCII	^UNKNOWN ADDRESS MODE: %N^
	.PSECT	BCPL
	MOV	#L9409/2, 22(P)
	MOV	6(P), 24(P)
	JSR	R0,@GV+226.
	.WORD	22
	JMP	EXIT
L682:	MOV	10(P), 22(P)
	JSR	R0,@L663
	.WORD	22
	JMP	EXIT
L683:	MOV	#55, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
L684:	MOV	10(P), 22(P)
	JSR	R0,@L665
	.WORD	22
	JMP	EXIT
L685:	MOV	10(P), 22(P)
	JSR	R0,@L665
	.WORD	22
	MOV	#53, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
	JMP	EXIT
L686:	MOV	10(P), 22(P)
	JSR	R0,@GV+68.
	.WORD	22
	MOV	12(P), 22(P)
	JSR	R0,@L665
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L687:	MOV	#100, 22(P)
	JSR	R0,@GV+56.
	.WORD	22
L688:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #115
	BNE	L9408
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, R1
	ASL	R1
	MOV	#321, 22(P)
	MOV	R1, 24(P)
	MOV	#5, 26(P)
	JSR	R0,@GV+310.
	.WORD	22
	BR	L9407
L9408:
L689:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	CMP	R0, #114
	BNE	L9406
	MOV	10(P), R0
	INC	R0
	ASL	R0
	MOV	(R0), R0
	MOV	R0, R1
	ASL	R1
	MOV	#114, 22(P)
	BR	L9405
L9412:	JMP	L678
L9410:	JMP	L679
L9405:	MOV	R1, 24(P)
	JSR	R0,@GV+310.
	.WORD	22
	BR	L9404
L9406:
L691:	MOV	10(P), R0
	ASL	R0
	MOV	(R0), R0
	MOV	10(P), R1
	INC	R1
	ASL	R1
	MOV	(R1), R1
	MOV	R0, 22(P)
	MOV	R1, 24(P)
	JSR	R0,@GV+310.
	.WORD	22
L9404:
L692:
L9407:
L690:	JMP	EXIT
L693:	.PSECT	CONST
L9403:	.WORD	3
	.ASCII	^L%N^
	.EVEN
	.PSECT	BCPL
	MOV	#L9403/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L694:	.PSECT	CONST
L9402:	.WORD	6
	.ASCII	^#L%N/2^
	.PSECT	BCPL
	MOV	#L9402/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L695:
L696:	.PSECT	CONST
L9401:	.WORD	3
	.ASCII	^#%O^
	.EVEN
	.PSECT	BCPL
	MOV	#L9401/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L697:	.PSECT	CONST
L9400:	.WORD	4
	.ASCII	^#L%N^
	.PSECT	BCPL
	MOV	#L9400/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L698:	.PSECT	CONST
L9399:	.WORD	6
	.ASCII	^GV+%N.^
	.PSECT	BCPL
	MOV	#L9399/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	MOV	10(P), R1
	ASR	R1
	MOV	R1, 10(P)
	MOV	10(P), R0
	ADD	GV+404., R0
	ASL	R0
	MOV	(R0), R0
	TST	R0
	BNE	L9398
	MOV	10(P), R0
	ADD	GV+404., R0
	ASL	R0
	MOV	#1, (R0)
L9398:
L699:	JMP	EXIT
L700:	.PSECT	CONST
L9397:	.WORD	11
	.ASCII	^#GV/2+%N.^
	.EVEN
	.PSECT	BCPL
	MOV	#L9397/2, 22(P)
	MOV	10(P), 24(P)
	JSR	R0,@GV+84.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
L701:	MOV	10(P), 22(P)
	JSR	R0,@GV+72.
	.WORD	22
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JMP	EXIT
	BR	L9396
L679:	MOV	6(P), T
	CMP	T, #312
	BGE	L9395
	CMP	T, #116
	BGE	L9394
	CMP	T, #1
	BEQ	L696
	CMP	T, #3
	BEQ	L9393
	CMP	T, #114
	BEQ	L698
	BR	L9392
L9394:	BEQ	L9391
	CMP	T, #133
	BEQ	L9390
	CMP	T, #310
	BEQ	L9389
	CMP	T, #311
	BEQ	L9388
	BR	L9392
L9395:	BEQ	L9387
	CMP	T, #321
	BGE	L9386
	CMP	T, #313
	BEQ	L9385
	CMP	T, #314
	BEQ	L9384
	CMP	T, #316
	BEQ	L697
	BR	L9392
L9386:	BEQ	L9383
	CMP	T, #322
	BEQ	L9382
	CMP	T, #323
	BEQ	L700
	CMP	T, #324
	BEQ	L701
	BR	L9392
L9396:
L680:	JMP	EXIT
	.PSECT	CONST
L9381:	.WORD	5
	.ASCII	^COMPF^
	.EVEN
	.PSECT	BCPL
L661:	JSR	R1, ENTER
	.WORD	L9381
	CLR	10(P)
	BR	L9380
L704:	.PSECT	CONST
L9379:	.WORD	3
	.ASCII	^MOV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9379/2, 10(P)
	BR	L9378
L705:	.PSECT	CONST
L9377:	.WORD	3
	.ASCII	^CMP^
	.EVEN
	.PSECT	BCPL
	MOV	#L9377/2, 10(P)
	BR	L9378
L706:	.PSECT	CONST
L9376:	.WORD	3
	.ASCII	^BIT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9376/2, 10(P)
	BR	L9378
L707:	.PSECT	CONST
L9375:	.WORD	3
	.ASCII	^BIC^
	.EVEN
	.PSECT	BCPL
	MOV	#L9375/2, 10(P)
	BR	L9378
L708:	.PSECT	CONST
L9374:	.WORD	3
	.ASCII	^BIS^
	.EVEN
	.PSECT	BCPL
	MOV	#L9374/2, 10(P)
	BR	L9378
L709:	.PSECT	CONST
L9373:	.WORD	3
	.ASCII	^ADD^
	.EVEN
	.PSECT	BCPL
	MOV	#L9373/2, 10(P)
	BR	L9378
L710:	.PSECT	CONST
L9372:	.WORD	3
	.ASCII	^SUB^
	.EVEN
	.PSECT	BCPL
	MOV	#L9372/2, 10(P)
	BR	L9378
L711:	.PSECT	CONST
L9371:	.WORD	3
	.ASCII	^MUL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9371/2, 10(P)
	BR	L9378
L712:	.PSECT	CONST
L9370:	.WORD	3
	.ASCII	^DIV^
	.EVEN
	.PSECT	BCPL
	MOV	#L9370/2, 10(P)
	BR	L9378
L713:	.PSECT	CONST
L9369:	.WORD	4
	.ASCII	^ASHC^
	.PSECT	BCPL
	MOV	#L9369/2, 10(P)
	BR	L9378
L714:	.PSECT	CONST
L9368:	.WORD	3
	.ASCII	^XOR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9368/2, 10(P)
	BR	L9378
L715:	.PSECT	CONST
L9367:	.WORD	2
	.ASCII	^BR^
	.PSECT	BCPL
	MOV	#L9367/2, 10(P)
	BR	L9378
L716:	.PSECT	CONST
L9366:	.WORD	3
	.ASCII	^BNE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9366/2, 10(P)
	BR	L9378
L717:	.PSECT	CONST
L9365:	.WORD	3
	.ASCII	^BEQ^
	.EVEN
	.PSECT	BCPL
	MOV	#L9365/2, 10(P)
	BR	L9378
L718:	.PSECT	CONST
L9364:	.WORD	3
	.ASCII	^BGE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9364/2, 10(P)
	BR	L9378
L9393:	JMP	L682
L719:	.PSECT	CONST
L9363:	.WORD	3
	.ASCII	^BLT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9363/2, 10(P)
	BR	L9378
L9392:	JMP	L681
L9391:	JMP	L693
L9390:	JMP	L688
L9389:	JMP	L684
L9388:	JMP	L685
L9387:	JMP	L683
L720:	.PSECT	CONST
L9362:	.WORD	3
	.ASCII	^BGT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9362/2, 10(P)
	BR	L9378
L721:	.PSECT	CONST
L9361:	.WORD	3
	.ASCII	^BLE^
	.EVEN
	.PSECT	BCPL
	MOV	#L9361/2, 10(P)
	BR	L9378
L9385:	JMP	L687
L9384:	JMP	L695
L722:	.PSECT	CONST
L9360:	.WORD	3
	.ASCII	^JSR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9360/2, 10(P)
	BR	L9378
L9383:	JMP	L686
L9382:	JMP	L694
L723:	.PSECT	CONST
L9359:	.WORD	3
	.ASCII	^JMP^
	.EVEN
	.PSECT	BCPL
	MOV	#L9359/2, 10(P)
	BR	L9378
L724:	.PSECT	CONST
L9358:	.WORD	3
	.ASCII	^COM^
	.EVEN
	.PSECT	BCPL
	MOV	#L9358/2, 10(P)
	BR	L9378
L725:	.PSECT	CONST
L9357:	.WORD	3
	.ASCII	^CLR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9357/2, 10(P)
	BR	L9378
L9380:	JMP	L702
L726:	.PSECT	CONST
L9356:	.WORD	3
	.ASCII	^TST^
	.EVEN
	.PSECT	BCPL
	MOV	#L9356/2, 10(P)
	BR	L9378
L9378:	JMP	L703
L727:	.PSECT	CONST
L9355:	.WORD	3
	.ASCII	^INC^
	.EVEN
	.PSECT	BCPL
	MOV	#L9355/2, 10(P)
	BR	L9354
L728:	.PSECT	CONST
L9353:	.WORD	3
	.ASCII	^DEC^
	.EVEN
	.PSECT	BCPL
	MOV	#L9353/2, 10(P)
	BR	L9354
L729:	.PSECT	CONST
L9352:	.WORD	3
	.ASCII	^NEG^
	.EVEN
	.PSECT	BCPL
	MOV	#L9352/2, 10(P)
	BR	L9354
L730:	.PSECT	CONST
L9351:	.WORD	3
	.ASCII	^SXT^
	.EVEN
	.PSECT	BCPL
	MOV	#L9351/2, 10(P)
	BR	L9354
L731:	.PSECT	CONST
L9350:	.WORD	3
	.ASCII	^ROR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9350/2, 10(P)
	BR	L9354
L732:	.PSECT	CONST
L9349:	.WORD	3
	.ASCII	^ASH^
	.EVEN
	.PSECT	BCPL
	MOV	#L9349/2, 10(P)
	BR	L9354
L733:	.PSECT	CONST
L9348:	.WORD	3
	.ASCII	^ASR^
	.EVEN
	.PSECT	BCPL
	MOV	#L9348/2, 10(P)
	BR	L9354
L734:	.PSECT	CONST
L9347:	.WORD	3
	.ASCII	^ASL^
	.EVEN
	.PSECT	BCPL
	MOV	#L9347/2, 10(P)
	BR	L9354
L735:	.PSECT	CONST
L9346:	.WORD	3
	.ASCII	^CLC^
	.EVEN
	.PSECT	BCPL
	MOV	#L9346/2, 10(P)
	BR	L9354
	BR	L9354
L702:	MOV	6(P), T
	SUB	#454, T
	BLT	L9354
	CMP	T, #51
	BGT	L9354
	ASL	T
	JMP	@L9345(T)
L9345:	.WORD	L704
	.WORD	L705
	.WORD	L709
	.WORD	L703
	.WORD	L710
	.WORD	L706
	.WORD	L707
	.WORD	L708
	.WORD	L711
	.WORD	L712
	.WORD	L715
	.WORD	L716
	.WORD	L717
	.WORD	L718
	.WORD	L719
	.WORD	L720
	.WORD	L721
	.WORD	L703
	.WORD	L703
	.WORD	L703
	.WORD	L722
	.WORD	L703
	.WORD	L723
	.WORD	L703
	.WORD	L703
	.WORD	L724
	.WORD	L725
	.WORD	L726
	.WORD	L727
	.WORD	L728
	.WORD	L729
	.WORD	L730
	.WORD	L703
	.WORD	L703
	.WORD	L703
	.WORD	L731
	.WORD	L732
	.WORD	L733
	.WORD	L734
	.WORD	L713
	.WORD	L735
	.WORD	L714
L9354:
L703:	.PSECT	CONST
L9344:	.WORD	4
	.ASCII	<11>^%S^<11>
	.PSECT	BCPL
	MOV	#L9344/2, 20(P)
	MOV	10(P), 22(P)
	JSR	R0,@GV+84.
	.WORD	20
	JMP	EXIT
	.PSECT	CONST
L9343:	.WORD	7
	.ASCII	^COMPREG^
	.EVEN
	.PSECT	BCPL
L662:	JSR	R1, ENTER
	.WORD	L9343
	BR	L9342
L738:
L739:
L740:
L741:	MOV	#122, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@GV+68.
	.WORD	16
	JMP	EXIT
L742:	MOV	#124, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	JMP	EXIT
L743:	MOV	#120, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	JMP	EXIT
L744:	.PSECT	CONST
L9341:	.WORD	2
	.ASCII	^SP^
	.PSECT	BCPL
	MOV	#L9341/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	JMP	EXIT
L745:	.PSECT	CONST
L9340:	.WORD	2
	.ASCII	^PC^
	.PSECT	BCPL
	MOV	#L9340/2, 16(P)
	JSR	R0,@GV+72.
	.WORD	16
	JMP	EXIT
	BR	L9339
L9342:
L736:	MOV	6(P), T
	SUB	#0, T
	BLT	L9339
	CMP	T, #7
	BGT	L9339
	ASL	T
	JMP	@L9338(T)
L9338:	.WORD	L738
	.WORD	L739
	.WORD	L740
	.WORD	L741
	.WORD	L742
	.WORD	L743
	.WORD	L744
	.WORD	L745
L9339:
L737:	JMP	EXIT
	.PSECT	CONST
L9337:	.WORD	10
	.ASCII	^COMPRDEF^
	.PSECT	BCPL
L664:	JSR	R1, ENTER
	.WORD	L9337
	MOV	#50, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	MOV	6(P), 16(P)
	JSR	R0,@L663
	.WORD	16
	MOV	#51, 16(P)
	JSR	R0,@GV+56.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9336:	.WORD	5
	.ASCII	^COMPS^
	.EVEN
	.PSECT	BCPL
L666:	JSR	R1, ENTER
	.WORD	L9336
	MOV	6(P), 22(P)
	JSR	R0,@GV+312.
	.WORD	22
	MOV	10(P), 22(P)
	MOV	12(P), 24(P)
	JSR	R0,@GV+310.
	.WORD	22
	JSR	R0,@L675
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9335:	.WORD	5
	.ASCII	^COMPD^
	.EVEN
	.PSECT	BCPL
L667:	JSR	R1, ENTER
	.WORD	L9335
	CMP	#454, 6(P)
	BNE	L9334
	CMP	#1, 10(P)
	BNE	L9333
	TST	12(P)
	BEQ	L9332
L9333:
L749:	CMP	#133, 10(P)
	BNE	L9334
	CLR	26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+264.
	.WORD	26
	TST	R0
	BEQ	L9334
L9332:
L748:	MOV	#506, 26(P)
	MOV	14(P), 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+314.
	.WORD	26
	BR	L9331
L9334:
L746:	MOV	6(P), 26(P)
	JSR	R0,@GV+312.
	.WORD	26
	MOV	10(P), 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+310.
	.WORD	26
	.PSECT	CONST
L9330:	.WORD	2
	.ASCII	^, ^
	.PSECT	BCPL
	MOV	#L9330/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	14(P), 26(P)
	MOV	16(P), 30(P)
	JSR	R0,@GV+310.
	.WORD	26
	JSR	R0,@L675
	.WORD	26
L9331:
L747:	JMP	EXIT
	.PSECT	CONST
L9329:	.WORD	5
	.ASCII	^COMPL^
	.EVEN
	.PSECT	BCPL
L668:	JSR	R1, ENTER
	.WORD	L9329
	.PSECT	CONST
L9328:	.WORD	4
	.ASCII	^L%N:^
	.PSECT	BCPL
	MOV	#L9328/2, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+84.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9327:	.WORD	6
	.ASCII	^COMPSX^
	.PSECT	BCPL
L669:	JSR	R1, ENTER
	.WORD	L9327
	MOV	6(P), 22(P)
	JSR	R0,@GV+312.
	.WORD	22
	MOV	#321, 22(P)
	MOV	10(P), 24(P)
	MOV	12(P), 26(P)
	JSR	R0,@GV+310.
	.WORD	22
	JSR	R0,@L675
	.WORD	22
	JMP	EXIT
	.PSECT	CONST
L9326:	.WORD	6
	.ASCII	^COMPDX^
	.PSECT	BCPL
L670:	JSR	R1, ENTER
	.WORD	L9326
	MOV	6(P), 26(P)
	JSR	R0,@GV+312.
	.WORD	26
	MOV	#321, 26(P)
	MOV	10(P), 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@GV+310.
	.WORD	26
	.PSECT	CONST
L9325:	.WORD	2
	.ASCII	^, ^
	.PSECT	BCPL
	MOV	#L9325/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	#321, 26(P)
	MOV	14(P), 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+310.
	.WORD	26
	JSR	R0,@L675
	.WORD	26
	JMP	EXIT
	.PSECT	CONST
L9324:	.WORD	7
	.ASCII	^COMPDX1^
	.EVEN
	.PSECT	BCPL
L671:	JSR	R1, ENTER
	.WORD	L9324
	MOV	6(P), 26(P)
	JSR	R0,@GV+312.
	.WORD	26
	MOV	#321, 26(P)
	MOV	10(P), 30(P)
	MOV	12(P), 32(P)
	JSR	R0,@GV+310.
	.WORD	26
	.PSECT	CONST
L9323:	.WORD	2
	.ASCII	^, ^
	.PSECT	BCPL
	MOV	#L9323/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	14(P), 26(P)
	MOV	16(P), 30(P)
	JSR	R0,@GV+310.
	.WORD	26
	JSR	R0,@L675
	.WORD	26
	JMP	EXIT
	.PSECT	CONST
L9322:	.WORD	7
	.ASCII	^COMPDX2^
	.EVEN
	.PSECT	BCPL
L672:	JSR	R1, ENTER
	.WORD	L9322
	CMP	#454, 6(P)
	BNE	L9321
	CMP	#1, 10(P)
	BNE	L9320
	TST	12(P)
	BEQ	L9319
L9320:
L753:	CMP	#133, 10(P)
	BNE	L9321
	CLR	26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+264.
	.WORD	26
	TST	R0
	BEQ	L9321
L9319:
L752:	MOV	#506, 26(P)
	MOV	14(P), 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+322.
	.WORD	26
	BR	L9318
L9321:
L750:	MOV	6(P), 26(P)
	JSR	R0,@GV+312.
	.WORD	26
	MOV	10(P), 26(P)
	MOV	12(P), 30(P)
	JSR	R0,@GV+310.
	.WORD	26
	.PSECT	CONST
L9317:	.WORD	2
	.ASCII	^, ^
	.PSECT	BCPL
	MOV	#L9317/2, 26(P)
	JSR	R0,@GV+72.
	.WORD	26
	MOV	#321, 26(P)
	MOV	14(P), 30(P)
	MOV	16(P), 32(P)
	JSR	R0,@GV+310.
	.WORD	26
	JSR	R0,@L675
	.WORD	26
L9318:
L751:	JMP	EXIT
	.PSECT	CONST
L9316:	.WORD	5
	.ASCII	^COMPN^
	.EVEN
	.PSECT	BCPL
L673:	JSR	R1, ENTER
	.WORD	L9316
	MOV	6(P), 16(P)
	JSR	R0,@GV+312.
	.WORD	16
	JSR	R0,@L675
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9315:	.WORD	4
	.ASCII	^NEWL^
	.PSECT	BCPL
L674:	JSR	R1, ENTER
	.WORD	L9315
	MOV	GV+372., R0
	INC	R0
	MOV	R0, GV+372.
	JSR	R0,@GV+86.
	.WORD	14
	JSR	R0,@GV+410.
	.WORD	14
	JMP	EXIT
	.PSECT	CONST
L9314:	.WORD	6
	.ASCII	^COMPWL^
	.PSECT	BCPL
L676:	JSR	R1, ENTER
	.WORD	L9314
	.PSECT	CONST
L9313:	.WORD	13
	.ASCII	<11>^.WORD^<11>^L%N^<12>
	.EVEN
	.PSECT	BCPL
	MOV	#L9313/2, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+84.
	.WORD	16
	JMP	EXIT
	.PSECT	CONST
L9312:	.WORD	6
	.ASCII	^COMPWN^
	.PSECT	BCPL
L677:	JSR	R1, ENTER
	.WORD	L9312
	.PSECT	CONST
L9311:	.WORD	12
	.ASCII	<11>^.WORD^<11>^%O^<12>
	.PSECT	BCPL
	MOV	#L9311/2, 16(P)
	MOV	6(P), 20(P)
	JSR	R0,@GV+84.
	.WORD	16
	JMP	EXIT
L678:	.PSECT	GLOBAL
	.=GV+310.
	.WORD	L660
	.WORD	L661
	.WORD	L666
	.WORD	L667
	.WORD	L668
	.=GV+322.
	.WORD	L669
	.WORD	L670
	.WORD	L671
	.WORD	L672
	.WORD	L673
	.WORD	L676
	.WORD	L677
	.=GV+428.
	.PSECT	CONST
L663:	.WORD	L662
L665:	.WORD	L664
L675:	.WORD	L674
	.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	G22
	.GLOBL	G26
	.GLOBL	G27
	.GLOBL	G28
	.GLOBL	G30
	.GLOBL	G31
	.GLOBL	G34
	.GLOBL	G36
	.GLOBL	G42
	.GLOBL	G43
	.END