Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0066/star.mac
There is 1 other file named star.mac in the archive. Click here to see a list.
;	VER = '6.0.'
TITLE .MAIN.
	OPDEF	UFERR$	[1B8]
	OPDEF	CFERR$	[2B8]
	OPDEF	FCALV$	[3B8]
	OPDEF	FCALN$	[4B8]
	OPDEF	DASGN$	[5B8]
	OPDEF	DCONC$	[6B8]
	OPDEF	DICNV$	[7B8]
	OPDEF	DRCNV$	[10B8]
	OPDEF	AREFV$	[11B8]
	OPDEF	AREFN$	[12B8]


Q10002:	JSP	14,S$$ILZ##
	XWD	^D0,Q10000
	JRST	Q10003
	JSP	14,S$$STE##
	XWD	^D1,Q10004
	MOVE	1,S10087
	MOVEM	1,@N10086
Q10004:
;	&STLIMIT = 9999999
	JSP	14,S$$STE##
	XWD	^D2,
	MOVE	^D1,K10088
	MOVEM	1,S$$KWD##+^D13
;*SNO*	DEFINE('LPAD(LPAD,N,SYM)')
;*SNO*	DEFINE('RPAD(RPAD,N,SYM)')
;	&TRIM = 1
	JSP	14,S$$STE##
	XWD	^D3,
	JSP	14,S$$CPE##
;*	TRACE('ADDR')	TRACE('INREG')	TRACE('R')
;*	TRACE('TYPE')		TRACE('L.TYPE') 	TRACE('R.TYPE')
;*	TRACE('R.F')		TRACE('L.F')		TRACE('LR')
;*	TRACE('ADDR')	TRACE('L.ADDR') TRACE('R.ADDR')
;	DEFINE('ASS(T1,T2,T3,T4)')
	JSP	14,S$$STE##
	XWD	^D4,Q10005
	MOVE	1,S10089
	FCALV$	^D1,F10066
Q10005:
;	DEFINE('ASSNL(T2,T3,T4)T1','ASS')
	JSP	14,S$$STE##
	XWD	^D5,Q10006
	MOVE	1,S10090
	PUSH	16,1
	MOVE	1,S10091
	FCALV$	^D2,F10066
Q10006:
;	DEFINE('CALL(SUBROUT)')
	JSP	14,S$$STE##
	XWD	^D6,Q10007
	MOVE	1,S10092
	FCALV$	^D1,F10066
Q10007:
;	DEFINE('CALLSRT()')
	JSP	14,S$$STE##
	XWD	^D7,Q10008
	MOVE	1,S10093
	FCALV$	^D1,F10066
Q10008:
;	DEFINE('CHAR(STRING)')
	JSP	14,S$$STE##
	XWD	^D8,Q10009
	MOVE	1,S10094
	FCALV$	^D1,F10066
Q10009:
;	DEFINE('CKSBSET()')
	JSP	14,S$$STE##
	XWD	^D9,Q10010
	MOVE	1,S10095
	FCALV$	^D1,F10066
Q10010:
;	DEFINE('CKREG()')
	JSP	14,S$$STE##
	XWD	^D10,Q10011
	MOVE	1,S10096
	FCALV$	^D1,F10066
Q10011:
;	DEFINE('CKREGD()')
	JSP	14,S$$STE##
	XWD	^D11,Q10012
	MOVE	1,S10097
	FCALV$	^D1,F10066
Q10012:
;	DEFINE('CKTYPE(POS,CHAR)')
	JSP	14,S$$STE##
	XWD	^D12,Q10013
	MOVE	1,S10098
	FCALV$	^D1,F10066
Q10013:
;	DEFINE('CKTYPET(POS,CHAR,TYPE)','CKTYPE')
	JSP	14,S$$STE##
	XWD	^D13,Q10014
	MOVE	1,S10099
	PUSH	16,1
	MOVE	1,S10100
	FCALV$	^D2,F10066
Q10014:
;	DEFINE('CLRREG()')
	JSP	14,S$$STE##
	XWD	^D14,Q10015
	MOVE	1,S10101
	FCALV$	^D1,F10066
Q10015:
;	DEFINE('COMMENT(STATE)')
	JSP	14,S$$STE##
	XWD	^D15,Q10016
	MOVE	1,S10102
	FCALV$	^D1,F10066
Q10016:
;	DEFINE('COMPILE()ADDR,THISOP')
	JSP	14,S$$STE##
	XWD	^D16,Q10017
	MOVE	1,S10103
	FCALV$	^D1,F10066
Q10017:
;	DEFINE('COMPLR()')
	JSP	14,S$$STE##
	XWD	^D17,Q10018
	MOVE	1,S10104
	FCALV$	^D1,F10066
Q10018:
;	DEFINE('COMPOP()')
	JSP	14,S$$STE##
	XWD	^D18,Q10019
	MOVE	1,S10105
	FCALV$	^D1,F10066
Q10019:
;	DEFINE('DEC2OCT(N)')
	JSP	14,S$$STE##
	XWD	^D19,Q10020
	MOVE	1,S10106
	FCALV$	^D1,F10066
Q10020:
;	DEFINE('DO.CALL(OPERAND)')
	JSP	14,S$$STE##
	XWD	^D20,Q10021
	MOVE	1,S10107
	FCALV$	^D1,F10066
Q10021:
;	DEFINE('DS(BASE,LEN)')
	JSP	14,S$$STE##
	XWD	^D21,Q10022
	MOVE	1,S10108
	FCALV$	^D1,F10066
Q10022:
;	DEFINE('ENDOFF()')
	JSP	14,S$$STE##
	XWD	^D22,Q10023
	MOVE	1,S10109
	FCALV$	^D1,F10066
Q10023:
;	DEFINE('ERROR(MESS,ETYPE)')
	JSP	14,S$$STE##
	XWD	^D23,Q10024
	MOVE	1,S10110
	FCALV$	^D1,F10066
Q10024:
;	DEFINE('FILLTAB(FILLTAB,TEMP)')
	JSP	14,S$$STE##
	XWD	^D24,Q10025
	MOVE	1,S10111
	FCALV$	^D1,F10066
Q10025:
;	DEFINE('FLIP()')
	JSP	14,S$$STE##
	XWD	^D25,Q10026
	MOVE	1,S10112
	FCALV$	^D1,F10066
Q10026:
;	DEFINE('GEN()')
	JSP	14,S$$STE##
	XWD	^D26,Q10027
	MOVE	1,S10113
	FCALV$	^D1,F10066
Q10027:
;	DEFINE('GENCALL(LOC)')
	JSP	14,S$$STE##
	XWD	^D27,Q10028
	MOVE	1,S10114
	FCALV$	^D1,F10066
Q10028:
;	DEFINE('GENLAB(LABEL)')
	JSP	14,S$$STE##
	XWD	^D28,Q10029
	MOVE	1,S10115
	FCALV$	^D1,F10066
Q10029:
;	DEFINE('GENLD()')
	JSP	14,S$$STE##
	XWD	^D29,Q10030
	MOVE	1,S10116
	FCALV$	^D1,F10066
Q10030:
;	DEFINE('GENLOAD(R,ADDR)')
	JSP	14,S$$STE##
	XWD	^D30,Q10031
	MOVE	1,S10117
	FCALV$	^D1,F10066
Q10031:
;	DEFINE('GENLOG(OP,LOC)')
	JSP	14,S$$STE##
	XWD	^D31,Q10032
	MOVE	1,S10118
	FCALV$	^D1,F10066
Q10032:
;	DEFINE('GETCONT(PARM,WHEN)BASELOC,LREG')
	JSP	14,S$$STE##
	XWD	^D32,Q10033
	MOVE	1,S10119
	FCALV$	^D1,F10066
Q10033:
;	DEFINE('GETLAB()')
	JSP	14,S$$STE##
	XWD	^D33,Q10034
	MOVE	1,S10120
	FCALV$	^D1,F10066
Q10034:
;	DEFINE('GETREG()')
	JSP	14,S$$STE##
	XWD	^D34,Q10035
	MOVE	1,S10121
	FCALV$	^D1,F10066
Q10035:
;	DEFINE('GETTYPE(POS)')
	JSP	14,S$$STE##
	XWD	^D35,Q10036
	MOVE	1,S10122
	FCALV$	^D1,F10066
Q10036:
;	DEFINE('INIT()')
	JSP	14,S$$STE##
	XWD	^D36,Q10037
	MOVE	1,S10123
	FCALV$	^D1,F10066
Q10037:
;	DEFINE('OFFLOC(LOC)')
	JSP	14,S$$STE##
	XWD	^D37,Q10038
	MOVE	1,S10124
	FCALV$	^D1,F10066
Q10038:
;	DEFINE('OFFREG(R)')
	JSP	14,S$$STE##
	XWD	^D38,Q10039
	MOVE	1,S10125
	FCALV$	^D1,F10066
Q10039:
;	DEFINE('PUT(STRING)')
	JSP	14,S$$STE##
	XWD	^D39,Q10040
	MOVE	1,S10126
	FCALV$	^D1,F10066
Q10040:
;	DEFINE('PUTREG(R,ADDR)')
	JSP	14,S$$STE##
	XWD	^D40,Q10041
	MOVE	1,S10127
	FCALV$	^D1,F10066
Q10041:
;	DEFINE('RADIX(RADIX)')
	JSP	14,S$$STE##
	XWD	^D41,Q10042
	MOVE	1,S10128
	FCALV$	^D1,F10066
Q10042:
;	DEFINE('SETTYPE(POS,CHAR)')
	JSP	14,S$$STE##
	XWD	^D42,Q10043
	MOVE	1,S10129
	FCALV$	^D1,F10066
Q10043:
;	DEFINE('STATSRT()')
	JSP	14,S$$STE##
	XWD	^D43,Q10044
	MOVE	1,S10130
	FCALV$	^D1,F10066
Q10044:
;	DEFINE('TABSTM()')
	JSP	14,S$$STE##
	XWD	^D44,Q10045
	MOVE	1,S10131
	FCALV$	^D1,F10066
Q10045:
;**
;	IDTAB = TABLE(10,5)
	JSP	14,S$$STE##
	XWD	^D45,Q10046
	MOVE	1,I10133
	PUSH	16,1
	MOVE	1,I10134
	FCALV$	^D2,F10064
	MOVEM	1,@N10132
Q10046:
;	DATA('ID(TAB.LEN,TAB.OFF,TAB.TYPE,TAB.BASE,TAB.MASK,TAB.RANGE)')
	JSP	14,S$$STE##
	XWD	^D46,Q10047
	MOVE	1,S10135
	FCALV$	^D1,F10060
Q10047:
;	REENT.OFF = TABLE(10,5)
	JSP	14,S$$STE##
	XWD	^D47,Q10048
	MOVE	1,I10133
	PUSH	16,1
	MOVE	1,I10134
	FCALV$	^D2,F10064
	MOVEM	1,@N10136
Q10048:
;	DSCONT = TABLE(10,5)
	JSP	14,S$$STE##
	XWD	^D48,Q10049
	MOVE	1,I10133
	PUSH	16,1
	MOVE	1,I10134
	FCALV$	^D2,F10064
	MOVEM	1,@N10137
Q10049:
;**
;	BLANK = ' ' TAB
	JSP	14,S$$STE##
	XWD	^D49,Q10050
	MOVE	1,S10139
	PUSH	16,1
	MOVE	1,@N10030
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10138
Q10050:
;	CB = SPAN(BLANK)
	JSP	14,S$$STE##
	XWD	^D50,Q10052
	MOVE	1,@N10138
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10051
	MOVE	1,^D1(15)
	JSP	11,S$$SPN##
	JRST	S$$PTS##
Q10051:
	MOVEM	1,@N10140
Q10052:
;	B = CB ! NULL
	JSP	14,S$$STE##
	XWD	^D51,Q10056
	MOVE	1,@N10140
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10142
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-3,Q10055
	JSP	11,S$$APS##
	XWD	.-.,Q10054
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JRST	Q10053
Q10054:
	JSP	11,S$$APF##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
Q10053:
	JRST	S$$PTS##
Q10055:
	MOVEM	1,@N10141
Q10056:
;	DIGIT = '0123456789'
	JSP	14,S$$STE##
	XWD	^D52,Q10057
	MOVE	1,S10144
	MOVEM	1,@N10143
Q10057:
;	NUMB = SPAN(DIGIT)
	JSP	14,S$$STE##
	XWD	^D53,Q10059
	MOVE	1,@N10143
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10058
	MOVE	1,^D1(15)
	JSP	11,S$$SPN##
	JRST	S$$PTS##
Q10058:
	MOVEM	1,@N10145
Q10059:
;	LITERAL = (ANY('+-') ! '') NUMB
;.		! '=' ANY('AC') LEN(1) $ T1 BREAK(*T1) *T1
	JSP	14,S$$STE##
	XWD	^D54,
	JSP	14,S$$CPE##
;	LET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$'
	JSP	14,S$$STE##
	XWD	^D55,Q10064
	MOVE	1,S10153
	MOVEM	1,@N10152
Q10064:
;	AVAR = ANY(LET) (SPAN(LET DIGIT) ! NULL)
	JSP	14,S$$STE##
	XWD	^D56,Q10068
	MOVE	1,@N10152
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10152
	PUSH	16,1
	MOVE	1,@N10143
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10142
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-4,Q10067
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	JSP	11,S$$APS##
	XWD	.-.,Q10066
	MOVE	1,^D2(15)
	JSP	11,S$$SPN##
	JRST	Q10065
Q10066:
	JSP	11,S$$APF##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
Q10065:
	JRST	S$$PTS##
Q10067:
	MOVEM	1,@N10154
Q10068:
;	VAR = ANY(LET) (SPAN(DIGIT) ! NULL)
	JSP	14,S$$STE##
	XWD	^D57,Q10072
	MOVE	1,@N10152
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10143
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10142
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-4,Q10071
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	JSP	11,S$$APS##
	XWD	.-.,Q10070
	MOVE	1,^D2(15)
	JSP	11,S$$SPN##
	JRST	Q10069
Q10070:
	JSP	11,S$$APF##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
Q10069:
	JRST	S$$PTS##
Q10071:
	MOVEM	1,@N10155
Q10072:
;	MINUS = DUPL('-',28)
	JSP	14,S$$STE##
	XWD	^D58,Q10073
	MOVE	1,S10157
	PUSH	16,1
	MOVE	1,I10158
	FCALV$	^D2,F10065
	MOVEM	1,@N10156
Q10073:
;**
;	OPS = 'DO' ! 'IFANY' ! 'IF' ! 'BFIELDE' ! 'FIELD' !
;.		'BBLOCKE' ! 'BLOCK' ! 'BEGIN' ! 'FINISH' !
;.		'YBLOCKE' ! 'BBLOCK' ! 'BFIELD' ! 'YBLOCK' ! 'CALLS'
	JSP	14,S$$STE##
	XWD	^D59,Q10089
	JSP	14,S$$GPB##
	XWD	^D-1,Q10088
	BYTE	(2)2(16)1(18).+1
	JSP	11,S$$APS##
	XWD	.-.,Q10075
	MOVE	1,S10160
	JSP	11,S$$MST##
	JRST	Q10074
Q10075:
	JSP	11,S$$APR##
	XWD	.-.,Q10076
	MOVE	1,S10161
	JSP	11,S$$MST##
	JRST	Q10074
Q10076:
	JSP	11,S$$APR##
	XWD	.-.,Q10077
	MOVE	1,S10162
	JSP	11,S$$MST##
	JRST	Q10074
Q10077:
	JSP	11,S$$APR##
	XWD	.-.,Q10078
	MOVE	1,S10163
	JSP	11,S$$MST##
	JRST	Q10074
Q10078:
	JSP	11,S$$APR##
	XWD	.-.,Q10079
	MOVE	1,S10164
	JSP	11,S$$MST##
	JRST	Q10074
Q10079:
	JSP	11,S$$APR##
	XWD	.-.,Q10080
	MOVE	1,S10165
	JSP	11,S$$MST##
	JRST	Q10074
Q10080:
	JSP	11,S$$APR##
	XWD	.-.,Q10081
	MOVE	1,S10166
	JSP	11,S$$MST##
	JRST	Q10074
Q10081:
	JSP	11,S$$APR##
	XWD	.-.,Q10082
	MOVE	1,S10167
	JSP	11,S$$MST##
	JRST	Q10074
Q10082:
	JSP	11,S$$APR##
	XWD	.-.,Q10083
	MOVE	1,S10168
	JSP	11,S$$MST##
	JRST	Q10074
Q10083:
	JSP	11,S$$APR##
	XWD	.-.,Q10084
	MOVE	1,S10169
	JSP	11,S$$MST##
	JRST	Q10074
Q10084:
	JSP	11,S$$APR##
	XWD	.-.,Q10085
	MOVE	1,S10170
	JSP	11,S$$MST##
	JRST	Q10074
Q10085:
	JSP	11,S$$APR##
	XWD	.-.,Q10086
	MOVE	1,S10171
	JSP	11,S$$MST##
	JRST	Q10074
Q10086:
	JSP	11,S$$APR##
	XWD	.-.,Q10087
	MOVE	1,S10172
	JSP	11,S$$MST##
	JRST	Q10074
Q10087:
	JSP	11,S$$APF##
	MOVE	1,S10173
	JSP	11,S$$MST##
Q10074:
	JRST	S$$PTS##
Q10088:
	MOVEM	1,@N10159
Q10089:
;	CARD.PARSE = POS(0) (BREAK(BLANK) ! NULL) . LABEL CB
;.		OPS . OPCODE B REM . OPERAND
	JSP	14,S$$STE##
	XWD	^D60,Q10093
	MOVE	1,@N10138
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10142
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10140
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10159
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10141
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-6,Q10092
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	JSP	11,S$$APS##
	XWD	.-.,Q10091
	MOVE	1,^D1(15)
	JSP	11,S$$BRK##
	JRST	Q10090
Q10091:
	JSP	11,S$$APF##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
Q10090:
	MOVE	1,N10176
	JSP	11,S$$CVA##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
	JSP	11,S$$VAS##
	MOVE	1,^D4(15)
	JSP	11,S$$PTX##
	MOVE	1,N10177
	JSP	11,S$$CVA##
	MOVE	1,^D5(15)
	JSP	11,S$$PTX##
	JSP	11,S$$VAS##
	JSP	11,S$$REM##
	MOVE	1,N10178
	JSP	11,S$$CVA##
	JRST	S$$PTS##
Q10092:
	MOVEM	1,@N10174
Q10093:
;	OPER.PARSE = POS(0) '(' (
;.		BREAK(',') . LEFT ',' BREAK(',') . OPR ','
;.		BREAK(')') . RIGHT !
;.		BREAK(',') . OPR ',' BREAK(')') . LEFT '' . RIGHT
;.		) ')' RPOS(0)
	JSP	14,S$$STE##
	XWD	^D61,Q10097
	JSP	14,S$$GPB##
	XWD	^D-1,Q10096
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,S10180
	JSP	11,S$$MST##
	JSP	11,S$$APS##
	XWD	.-.,Q10095
	JSP	11,S$$VAS##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,N10182
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,N10183
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVEI	1,B10184
	JSP	11,S$$BRK##
	MOVE	1,N10185
	JSP	11,S$$CVA##
	JRST	Q10094
Q10095:
	JSP	11,S$$APF##
	JSP	11,S$$VAS##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,N10183
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVEI	1,B10184
	JSP	11,S$$BRK##
	MOVE	1,N10182
	JSP	11,S$$CVA##
	JSP	11,S$$VAS##

	MOVE	1,N10185
	JSP	11,S$$CVA##
Q10094:
	MOVE	1,S10184
	JSP	11,S$$MST##
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
	JRST	S$$PTS##
Q10096:
	MOVEM	1,@N10179
Q10097:
;	CALL.PARSE = POS(0) (
;.		BREAK(',') . SUB ',(' BAL . ARGS ')' !
;.		REM . SUB '' . ARGS
;.		) RPOS(0)
	JSP	14,S$$STE##
	XWD	^D62,Q10101
	JSP	14,S$$GPB##
	XWD	^D-1,Q10100
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$APS##
	XWD	.-.,Q10099
	JSP	11,S$$VAS##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,N10187
	JSP	11,S$$CVA##
	MOVE	1,S10188
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	PUSHJ	16,S$$BAL##
	MOVE	1,N10189
	JSP	11,S$$CVA##
	MOVE	1,S10184
	JSP	11,S$$MST##
	JRST	Q10098
Q10099:
	JSP	11,S$$APF##
	JSP	11,S$$VAS##
	JSP	11,S$$REM##
	MOVE	1,N10187
	JSP	11,S$$CVA##
	JSP	11,S$$VAS##

	MOVE	1,N10189
	JSP	11,S$$CVA##
Q10098:
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
	JRST	S$$PTS##
Q10100:
	MOVEM	1,@N10186
Q10101:
;	BREAK.TAB = BREAK(',') . T1 ',' BREAK('"') . T2 '"'
	JSP	14,S$$STE##
	XWD	^D63,Q10103
	JSP	14,S$$GPB##
	XWD	^D-1,Q10102
	BYTE	(2)2(16)1(18).+1
	JSP	11,S$$VAS##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,N10151
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVEI	1,B10191
	JSP	11,S$$BRK##
	MOVE	1,N10192
	JSP	11,S$$CVA##
	MOVE	1,S10191
	JSP	11,S$$MST##
	JRST	S$$PTS##
Q10102:
	MOVEM	1,@N10190
Q10103:
;**
;	BFIELD.PARSE = POS(0) VAR . N1 ',' AVAR . BASE
	JSP	14,S$$STE##
	XWD	^D64,Q10105
	MOVE	1,@N10155
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10154
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-3,Q10104
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,N10194
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
	MOVE	1,N10195
	JSP	11,S$$CVA##
	JRST	S$$PTS##
Q10104:
	MOVEM	1,@N10193
Q10105:
;	FIELD.PARSE = POS(0) VAR . N1 ',' NUMB . OFF ',(' NUMB . LOW ','
;.		NUMB . HIGH ')'
	JSP	14,S$$STE##
	XWD	^D65,Q10107
	MOVE	1,@N10155
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-5,Q10106
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,N10194
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
	MOVE	1,N10197
	JSP	11,S$$CVA##
	MOVE	1,S10188
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
	MOVE	1,N10198
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D4(15)
	JSP	11,S$$PTX##
	MOVE	1,N10199
	JSP	11,S$$CVA##
	MOVE	1,S10184
	JSP	11,S$$MST##
	JRST	S$$PTS##
Q10106:
	MOVEM	1,@N10196
Q10107:
;	BLOCK.PARSE = POS(0)  VAR . N1 ',(' NUMB . OFF ','
;.		NUMB . LEN ')'
	JSP	14,S$$STE##
	XWD	^D66,Q10109
	MOVE	1,@N10155
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-4,Q10108
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,N10194
	JSP	11,S$$CVA##
	MOVE	1,S10188
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
	MOVE	1,N10197
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
	MOVE	1,N10029
	JSP	11,S$$CVA##
	MOVE	1,S10184
	JSP	11,S$$MST##
	JRST	S$$PTS##
Q10108:
	MOVEM	1,@N10200
Q10109:
;	BBLOCK.PARSE = POS(0) VAR . N1 ',(' AVAR . BASE  ','
;.		NUMB . LEN ')'
	JSP	14,S$$STE##
	XWD	^D67,Q10111
	MOVE	1,@N10155
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10154
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@N10145
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-4,Q10110
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,N10194
	JSP	11,S$$CVA##
	MOVE	1,S10188
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
	MOVE	1,N10195
	JSP	11,S$$CVA##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVE	1,^D3(15)
	JSP	11,S$$PTX##
	MOVE	1,N10029
	JSP	11,S$$CVA##
	MOVE	1,S10184
	JSP	11,S$$MST##
	JRST	S$$PTS##
Q10110:
	MOVEM	1,@N10201
Q10111:
;**
;	LF = 0
	JSP	14,S$$STE##
	XWD	^D68,Q10112
	MOVE	1,I10175
	MOVEM	1,@N10202
Q10112:
;	BF = 1
	JSP	14,S$$STE##
	XWD	^D69,Q10113
	MOVE	1,I10150
	MOVEM	1,@N10203
Q10113:
;	TF = 2
	JSP	14,S$$STE##
	XWD	^D70,Q10114
	MOVE	1,I10205
	MOVEM	1,@N10204
Q10114:
;	DF = 3
	JSP	14,S$$STE##
	XWD	^D71,Q10115
	MOVE	1,I10207
	MOVEM	1,@N10206
Q10115:
;*******
;**
;** TYPE FLAGS TO IDENTIFY EACH TYPE
;**
;**POS	NAME		CONTENTS
;**---	----		--------
;**0	LF(LEN FLD)	Y(BYTE), W(WORD), 1(1 BIT), L(LT 1 WD), G(GT 1
;**1	BF(BASE FLD)	B(BASED), -(NONBASED)
;**2	TF(TYPE FLD)	B(BLOCK), F(FIELD)
;**3	DF(DEF FLD)	E(DEFINED), -(UNDEF)
;********
;**
;**
;	SW.REG = '1'
	JSP	14,S$$STE##
	XWD	^D72,Q10116
	MOVE	1,S10209
	MOVEM	1,@N10208
Q10116:
;	CLRREG()
	JSP	14,S$$STE##
	XWD	^D73,Q10117
	FCALV$	^D0,F10210
Q10117:
;	INIT()
	JSP	14,S$$STE##
	XWD	^D74,Q10118
	FCALV$	^D0,F10211
Q10118:
;	SCSC = SC SC
	JSP	14,S$$STE##
	XWD	^D75,Q10119
	MOVE	1,@N10213
	PUSH	16,1
	MOVE	1,@N10213
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10212
Q10119:
;	BRANCH = LOGOP<'<>'>
	JSP	14,S$$STE##
	XWD	^D76,Q10120
	MOVE	1,S10216
	AREFV$	^D1,N10215
	MOVEM	1,@N10214
Q10120:
;	VER = 'VERSION ' VER '	' DATE() '   WECO<-ERC<-STONE'
	JSP	14,S$$STE##
	XWD	^D77,Q10121
	MOVE	1,S10217
	PUSH	16,1
	MOVE	1,@N10086
	PUSH	16,1
	MOVE	1,S10218
	PUSH	16,1
	FCALV$	^D0,F10044
	PUSH	16,1
	MOVE	1,S10219
	JSP	14,S$$CNC##
	EXP	^D5
	MOVEM	1,@N10086
Q10121:
;	OUTPUT = VER
	JSP	14,S$$STE##
	XWD	^D78,Q10122
	MOVE	1,@N10086
	MOVEM	1,@S$$OUT##
Q10122:
;	COMMENT(OUTPUT)
	JSP	14,S$$STE##
	XWD	^D79,Q10123
	MOVE	1,@S$$OUT##
	FCALV$	^D1,F10220
Q10123:
;	SWITCH.CK = POS(0) ('*' ! '')
;.		('+' REM . T1 . T2 !
;.		'-' REM . T1 '' . T2)
	JSP	14,S$$STE##
	XWD	^D80,Q10129
	JSP	14,S$$GPB##
	XWD	^D-1,Q10128
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$APS##
	XWD	.-.,Q10125
	MOVE	1,S10222
	JSP	11,S$$MST##
	JRST	Q10124
Q10125:
	JSP	11,S$$APF##

Q10124:
	JSP	11,S$$APS##
	XWD	.-.,Q10127
	MOVE	1,S10223
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	JSP	11,S$$VAS##
	JSP	11,S$$REM##
	MOVE	1,N10151
	JSP	11,S$$CVA##
	MOVE	1,N10192
	JSP	11,S$$CVA##
	JRST	Q10126
Q10127:
	JSP	11,S$$APF##
	MOVE	1,S10157
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	JSP	11,S$$REM##
	MOVE	1,N10151
	JSP	11,S$$CVA##
	JSP	11,S$$VAS##

	MOVE	1,N10192
	JSP	11,S$$CVA##
Q10126:
	JRST	S$$PTS##
Q10128:
	MOVEM	1,@N10221
Q10129:
;	GET.THIS.OP = POS(0) BAL . THISOP (',' ! ' ' REM ! RPOS(0))
	JSP	14,S$$STE##
	XWD	^D81,Q10134
	JSP	14,S$$GPB##
	XWD	^D-1,Q10133
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	PUSHJ	16,S$$BAL##
	MOVE	1,N10225
	JSP	11,S$$CVA##
	JSP	11,S$$APS##
	XWD	.-.,Q10131
	MOVE	1,S10181
	JSP	11,S$$MST##
	JRST	Q10130
Q10131:
	JSP	11,S$$APR##
	XWD	.-.,Q10132
	MOVE	1,S10139
	JSP	11,S$$MST##
	JSP	11,S$$REM##
	JRST	Q10130
Q10132:
	JSP	11,S$$APF##
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
Q10130:
	JRST	S$$PTS##
Q10133:
	MOVEM	1,@N10224
Q10134:
;	CK.LIT = POS(0) LITERAL RPOS(0)
	JSP	14,S$$STE##
	XWD	^D82,Q10136
	MOVE	1,@N10146
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10135
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
	JRST	S$$PTS##
Q10135:
	MOVEM	1,@N10226
Q10136:
;	GET.VAR.X = POS(0) VAR . X
	JSP	14,S$$STE##
	XWD	^D83,Q10138
	MOVE	1,@N10155
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-2,Q10137
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,N10228
	JSP	11,S$$CVA##
	JRST	S$$PTS##
Q10137:
	MOVEM	1,@N10227
Q10138:
;**
;	IDTAB<'#1'> = ID(100,0,'WBB-')
	JSP	14,S$$STE##
	XWD	^D84,Q10139
	MOVE	1,S10229
	AREFN$	^D1,N10132
	PUSH	16,1
	MOVE	1,I10231
	PUSH	16,1
	MOVE	1,I10175
	PUSH	16,1
	MOVE	1,S10232
	FCALV$	^D3,F10230
	JSP	11,S$$ASG##
Q10139:
;	IDTAB<'#2'> = ID(ADDR.WORD,0,'W-B-')
	JSP	14,S$$STE##
	XWD	^D85,Q10140
	MOVE	1,S10233
	AREFN$	^D1,N10132
	PUSH	16,1
	MOVE	1,@N10234
	PUSH	16,1
	MOVE	1,I10175
	PUSH	16,1
	MOVE	1,S10235
	FCALV$	^D3,F10230
	JSP	11,S$$ASG##
Q10140:
;	IDTAB<'#3'> = ID(ADDR.WORD,0,'WBF-',SCSC '3')
	JSP	14,S$$STE##
	XWD	^D86,Q10141
	MOVE	1,S10236
	AREFN$	^D1,N10132
	PUSH	16,1
	MOVE	1,@N10234
	PUSH	16,1
	MOVE	1,I10175
	PUSH	16,1
	MOVE	1,S10237
	PUSH	16,1
	MOVE	1,@N10212
	PUSH	16,1
	MOVE	1,S10238
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D4,F10230
	JSP	11,S$$ASG##
Q10141:
;	IDTAB<'#4'> = ID(ADDR.WORD,0,'WBF-',SCSC '4')
	JSP	14,S$$STE##
	XWD	^D87,Q10142
	MOVE	1,S10239
	AREFN$	^D1,N10132
	PUSH	16,1
	MOVE	1,@N10234
	PUSH	16,1
	MOVE	1,I10175
	PUSH	16,1
	MOVE	1,S10237
	PUSH	16,1
	MOVE	1,@N10212
	PUSH	16,1
	MOVE	1,S10240
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D4,F10230
	JSP	11,S$$ASG##
Q10142:
;**
;LOOP	CARD = INPUT		:F(END)
L10241:
	JSP	14,S$$STE##
	XWD	^D88,S$$SXT##
	MOVE	1,@S$$INP##
	MOVEM	1,@N10242
;	STATENO = STATENO + 1
	JSP	14,S$$STE##
	XWD	^D89,Q10143
	DICNV$	@N10243
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10243
Q10143:
;	OUTPUT = RPAD(STATENO,8) CARD
	JSP	14,S$$STE##
	XWD	^D90,Q10144
	MOVE	1,@N10243
	PUSH	16,1
	MOVE	1,I10244
	FCALV$	^D2,F10080
	PUSH	16,1
	MOVE	1,@N10242
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@S$$OUT##
Q10144:
;	CARD POS(72) REM =	:F(CKSW)
	JSP	14,S$$STE##
	XWD	^D91,L10246
	MOVE	1,@N10242
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10245
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$REM##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10242
;	CARD = TRIM(CARD)
	JSP	14,S$$STE##
	XWD	^D92,Q10145
	MOVE	1,@N10242
	FCALV$	^D1,F10051
	MOVEM	1,@N10242
Q10145:
;CKSW	CARD SWITCH.CK		:F(TRYCOM)
L10246:
	JSP	14,S$$STE##
	XWD	^D93,L10247
	MOVE	1,@N10242
	PUSH	16,1
	MOVE	1,@N10221
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
;	$('SW.' T1) = T2	:(LOOP)
	JSP	14,S$$STE##
	XWD	^D94,L10241
	MOVE	1,S10248
	PUSH	16,1
	MOVE	1,@N10151
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	14,S$$IVN##
	PUSH	16,1
	MOVE	1,@N10192
	JSP	11,S$$ASG##
	JRST	L10241
;TRYCOM	CARD POS(0) ANY('*/;')	:S(ASSEMC)
L10247:
	JSP	14,S$$STE##
	XWD	^D95,Q10146
	MOVE	1,@N10242
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVEI	1,B10249
	JSP	11,S$$ANY##
	JSP	11,S$$MTS##
	JRST	L10250
Q10146:
;	IDENT(CARD)		:S(ASSEMC)
	JSP	14,S$$STE##
	XWD	^D96,Q10147
	MOVE	1,@N10242
	FCALV$	^D1,F10072
	JRST	L10250
Q10147:
;	CARD CARD.PARSE 	:F(ASSEMB)
	JSP	14,S$$STE##
	XWD	^D97,L10251
	MOVE	1,@N10242
	PUSH	16,1
	MOVE	1,@N10174
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
;	( COMMENT(MINUS) COMMENT(OUTPUT) )
	JSP	14,S$$STE##
	XWD	^D98,Q10148
	MOVE	1,@N10156
	FCALV$	^D1,F10220
	PUSH	16,1
	MOVE	1,@S$$OUT##
	FCALV$	^D1,F10220
	JSP	14,S$$CNC##
	EXP	^D2
Q10148:
;	THENSW = '1'
	JSP	14,S$$STE##
	XWD	^D99,Q10149
	MOVE	1,S10209
	MOVEM	1,@N10252
Q10149:
;	( IDENT(OPCODE,'FINISH') ENDOFF() )
	JSP	14,S$$STE##
	XWD	^D100,Q10150
	MOVE	1,@N10177
	PUSH	16,1
	MOVE	1,S10168
	FCALV$	^D2,F10072
	PUSH	16,1
	FCALV$	^D0,F10253
	JSP	14,S$$CNC##
	EXP	^D2
Q10150:
;	( STATSRT() CALL(OPCODE) )	:(LOOP)
	JSP	14,S$$STE##
	XWD	^D101,L10241
	FCALV$	^D0,F10254
	PUSH	16,1
	MOVE	1,@N10177
	FCALV$	^D1,F10255
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	L10241
;**
;ASSEMC	COMMENT(CARD)		:(LOOP)
L10250:
	JSP	14,S$$STE##
	XWD	^D102,L10241
	MOVE	1,@N10242
	FCALV$	^D1,F10220
	JRST	L10241
;**
;ASSEMB	PUT(CARD)		:(LOOP)
L10251:
	JSP	14,S$$STE##
	XWD	^D103,L10241
	MOVE	1,@N10242
	FCALV$	^D1,F10256
	JRST	L10241
;**
;********
;** STATEMENT HANDLING
;********
;DO	COMPILE()		:F(RETURN)S(DO)
L10160:
	JSP	14,S$$STE##
	XWD	^D104,S$$SRT##
	FCALV$	^D0,F10257
	JRST	L10160
;**
;IFANY	BTYPE = 'Y'
L10161:
	JSP	14,S$$STE##
	XWD	^D105,Q10151
	MOVE	1,S10259
	MOVEM	1,@N10258
Q10151:
;IFANY2	LAB1 = GETLAB()
L10260:
	JSP	14,S$$STE##
	XWD	^D106,Q10152
	FCALV$	^D0,F10262
	MOVEM	1,@N10261
Q10152:
;	LAB2 = GETLAB()
	JSP	14,S$$STE##
	XWD	^D107,Q10153
	FCALV$	^D0,F10262
	MOVEM	1,@N10263
Q10153:
;	THENSW =
	JSP	14,S$$STE##
	XWD	^D108,Q10154
	SETZM	@N10252
Q10154:
;	LLAB = IDENT(BTYPE,'Y') LAB1	:S(IFANY1)
	JSP	14,S$$STE##
	XWD	^D109,Q10155
	MOVE	1,@N10258
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,@N10261
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10264
	JRST	L10265
Q10155:
;	LLAB = LAB2
	JSP	14,S$$STE##
	XWD	^D110,Q10156
	MOVE	1,@N10263
	MOVEM	1,@N10264
Q10156:
;IFANY1	COMPILE()			:S(IFANY1)
L10265:
	JSP	14,S$$STE##
	XWD	^D111,Q10157
	FCALV$	^D0,F10257
	JRST	L10265
Q10157:
;	GENLAB(LAB2)
	JSP	14,S$$STE##
	XWD	^D112,Q10158
	MOVE	1,@N10263
	FCALV$	^D1,F10266
Q10158:
;	( IDENT(THENSW) ERROR('NO THEN IN IF') )	:(RETURN)
	JSP	14,S$$STE##
	XWD	^D113,S$$SRT##
	MOVE	1,@N10252
	FCALV$	^D1,F10072
	PUSH	16,1
	MOVE	1,S10268
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$SRT##
;**
;IF	BTYPE = 'N'			:(IFANY2)
L10162:
	JSP	14,S$$STE##
	XWD	^D114,L10260
	MOVE	1,S10269
	MOVEM	1,@N10258
	JRST	L10260
;**
;BFIELD	T = 'WBF-' :(TB)
L10171:
	JSP	14,S$$STE##
	XWD	^D115,L10271
	MOVE	1,S10237
	MOVEM	1,@N10270
	JRST	L10271
;BBLOCK	T = 'WBB-' :(TB)
L10170:
	JSP	14,S$$STE##
	XWD	^D116,L10271
	MOVE	1,S10232
	MOVEM	1,@N10270
	JRST	L10271
;YBLOCK	T = 'Y-B-' :(TB)
L10172:
	JSP	14,S$$STE##
	XWD	^D117,L10271
	MOVE	1,S10272
	MOVEM	1,@N10270
	JRST	L10271
;YBBLOCK T = 'YBB-' :(TB)
L10273:
	JSP	14,S$$STE##
	XWD	^D118,L10271
	MOVE	1,S10274
	MOVEM	1,@N10270
	JRST	L10271
;BFIELDE T = 'WBFE' :(TB)
L10163:
	JSP	14,S$$STE##
	XWD	^D119,L10271
	MOVE	1,S10275
	MOVEM	1,@N10270
	JRST	L10271
;BBLOCKE T = 'WBBE' :(TB)
L10165:
	JSP	14,S$$STE##
	XWD	^D120,L10271
	MOVE	1,S10276
	MOVEM	1,@N10270
	JRST	L10271
;BLOCK	T = 'W-B-' :(TB)
L10166:
	JSP	14,S$$STE##
	XWD	^D121,L10271
	MOVE	1,S10235
	MOVEM	1,@N10270
	JRST	L10271
;FIELD	T = '--F-' :(TB)
L10164:
	JSP	14,S$$STE##
	XWD	^D122,L10271
	MOVE	1,S10277
	MOVEM	1,@N10270
	JRST	L10271
;TB	TYPE = T
L10271:
	JSP	14,S$$STE##
	XWD	^D123,Q10159
	MOVE	1,@N10270
	MOVEM	1,@N10278
Q10159:
;	LEN = 1
	JSP	14,S$$STE##
	XWD	^D124,Q10160
	MOVE	1,I10150
	MOVEM	1,@N10029
Q10160:
;	Y =
	JSP	14,S$$STE##
	XWD	^D125,Q10161
	SETZM	@N10259
Q10161:
;	OPCODE POS(0) 'Y' . Y =
	JSP	14,S$$STE##
	XWD	^D126,Q10162
	MOVE	1,@N10177
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,S10259
	JSP	11,S$$MST##
	MOVE	1,N10259
	JSP	11,S$$CVA##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10177
Q10162:
;	OPCODE RPOS(1) 'E' =
	JSP	14,S$$STE##
	XWD	^D127,Q10163
	MOVE	1,@N10177
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10150
	CAIE	1,(13)
	POPJ	16,
	MOVE	1,S10279
	JSP	11,S$$MST##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10177
Q10163:
;	OPERAND $(OPCODE '.PARSE')	:S(TABSTOR)
	JSP	14,S$$STE##
	XWD	^D128,Q10164
	MOVE	1,@N10178
	PUSH	16,1
	MOVE	1,@N10177
	PUSH	16,1
	MOVE	1,S10280
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	14,S$$IVV##
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
	JRST	L10281
Q10164:
;	ERROR('SYNTAX') 		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D129,S$$SRT##
	MOVE	1,S10282
	FCALV$	^D1,F10267
	JRST	S$$SRT##
;TABSTOR	LOW = REMDR(LOW,WSIZE)
L10281:
	JSP	14,S$$STE##
	XWD	^D130,Q10165
	MOVE	1,@N10198
	DASGN$	2,Q10001+^D0
	MOVE	1,@N10283
	DASGN$	2,Q10001+^D1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$RMD##
	JUMP	0,Q10001+^D0
	JUMP	0,Q10001+^D1
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10198
Q10165:
;	HIGH = REMDR(HIGH,WSIZE)
	JSP	14,S$$STE##
	XWD	^D131,Q10166
	MOVE	1,@N10199
	DASGN$	2,Q10001+^D0
	MOVE	1,@N10283
	DASGN$	2,Q10001+^D1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$RMD##
	JUMP	0,Q10001+^D0
	JUMP	0,Q10001+^D1
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10199
Q10166:
;	RANGE = LOW ',' HIGH
	JSP	14,S$$STE##
	XWD	^D132,Q10167
	MOVE	1,@N10198
	PUSH	16,1
	MOVE	1,S10181
	PUSH	16,1
	MOVE	1,@N10199
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10284
Q10167:
;	( EQ(LOW,0) EQ(HIGH + 1,WSIZE) SETTYPE(LF,'W') )
	JSP	14,S$$STE##
	XWD	^D133,Q10168
	MOVE	1,@N10198
	PUSH	16,1
	MOVE	1,I10175
	FCALV$	^D2,F10075
	PUSH	16,1
	DICNV$	@N10199
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	1,@N10283
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10286
	FCALV$	^D2,F10285
	JSP	14,S$$CNC##
	EXP	^D3
Q10168:
;	( EQ(LOW,HIGH) IDENT(OPCODE,'FIELD') SETTYPE(LF,'1') )
	JSP	14,S$$STE##
	XWD	^D134,Q10169
	MOVE	1,@N10198
	PUSH	16,1
	MOVE	1,@N10199
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10177
	PUSH	16,1
	MOVE	1,S10164
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10209
	FCALV$	^D2,F10285
	JSP	14,S$$CNC##
	EXP	^D3
Q10169:
;	T1 = HIGH + 1 - LOW
	JSP	14,S$$STE##
	XWD	^D135,Q10170
	DICNV$	@N10199
	ADD	^D1,K10150
	PUSH	17,1
	DICNV$	@N10198
	POP	17,0
	SUB	^D0,1
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10151
Q10170:
;	( EQ(T1,HSIZE) EQ(REMDR(LOW,HSIZE),0) SETTYPE(LF,'H') )
	JSP	14,S$$STE##
	XWD	^D136,Q10171
	MOVE	1,@N10151
	PUSH	16,1
	MOVE	1,@N10287
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10198
	DASGN$	2,Q10001+^D0
	MOVE	1,@N10287
	DASGN$	2,Q10001+^D1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$RMD##
	JUMP	0,Q10001+^D0
	JUMP	0,Q10001+^D1
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	1,I10175
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10288
	FCALV$	^D2,F10285
	JSP	14,S$$CNC##
	EXP	^D3
Q10171:
;	( EQ(T1,BSIZE) EQ(REMDR(LOW,BSIZE),0) SETTYPE(LF,'Y') )
	JSP	14,S$$STE##
	XWD	^D137,Q10172
	MOVE	1,@N10151
	PUSH	16,1
	MOVE	1,@N10289
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10198
	DASGN$	2,Q10001+^D0
	MOVE	1,@N10289
	DASGN$	2,Q10001+^D1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$RMD##
	JUMP	0,Q10001+^D0
	JUMP	0,Q10001+^D1
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	1,I10175
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10285
	JSP	14,S$$CNC##
	EXP	^D3
Q10172:
;	( GT(LEN,1) \CKTYPE(BF,'B') ERROR('WARNING..NON-BASED LEN>1') )
	JSP	14,S$$STE##
	XWD	^D138,Q10174
	MOVE	1,@N10029
	PUSH	16,1
	MOVE	1,I10150
	FCALV$	^D2,F10078
	PUSH	16,1
	JSP	14,S$$NGS##
	EXP	Q10173
	MOVE	1,@N10203
	PUSH	16,1
	MOVE	1,S10141
	FCALV$	^D2,F10100
	JRST	S$$NGF##
Q10173:
	MOVE	1,S10290
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
Q10174:
;	LEN = DIFFER(Y,'Y') ADDR.WORD * LEN
	JSP	14,S$$STE##
	XWD	^D139,Q10175
	MOVE	1,@N10259
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10071
	PUSH	16,1
	MOVE	1,@N10234
	PUSH	16,1
	MOVE	1,@N10029
	JSP	14,S$$MUL##
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10029
Q10175:
;	OFF = DIFFER(Y,'Y') ADDR.WORD * OFF
	JSP	14,S$$STE##
	XWD	^D140,Q10176
	MOVE	1,@N10259
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10071
	PUSH	16,1
	MOVE	1,@N10234
	PUSH	16,1
	MOVE	1,@N10197
	JSP	14,S$$MUL##
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10197
Q10176:
;	( CKTYPE(LF,'-') ERROR('ILLEGAL RANGE...BYTE ASSUMED')
;.		SETTYPE(LF,'Y') )
	JSP	14,S$$STE##
	XWD	^D141,Q10177
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10157
	FCALV$	^D2,F10100
	PUSH	16,1
	MOVE	1,S10291
	FCALV$	^D1,F10267
	PUSH	16,1
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10285
	JSP	14,S$$CNC##
	EXP	^D3
Q10177:
;	TABSTM()
	JSP	14,S$$STE##
	XWD	^D142,Q10178
	FCALV$	^D0,F10292
Q10178:
;	( CKTYPE(DF,'E') DS(BASE,LEN) )
	JSP	14,S$$STE##
	XWD	^D143,Q10179
	MOVE	1,@N10206
	PUSH	16,1
	MOVE	1,S10279
	FCALV$	^D2,F10100
	PUSH	16,1
	MOVE	1,@N10195
	PUSH	16,1
	MOVE	1,@N10029
	FCALV$	^D2,F10293
	JSP	14,S$$CNC##
	EXP	^D2
Q10179:
;	IDTAB<N1> = ID(LEN,OFF,TYPE,BASE,MASK,RANGE)
	JSP	14,S$$STE##
	XWD	^D144,Q10180
	MOVE	1,@N10194
	AREFN$	^D1,N10132
	PUSH	16,1
	MOVE	1,@N10029
	PUSH	16,1
	MOVE	1,@N10197
	PUSH	16,1
	MOVE	1,@N10278
	PUSH	16,1
	MOVE	1,@N10195
	PUSH	16,1
	MOVE	1,@N10294
	PUSH	16,1
	MOVE	1,@N10284
	FCALV$	^D6,F10230
	JSP	11,S$$ASG##
Q10180:
;	MASK =
	JSP	14,S$$STE##
	XWD	^D145,Q10181
	SETZM	@N10294
Q10181:
;	LOW = ; HIGH = ; OFF = ; BASE = :(RETURN)
	JSP	14,S$$STE##
	XWD	^D146,Q10182
	SETZM	@N10198
Q10182:
	JSP	14,S$$STE##
	XWD	^D147,Q10183
	SETZM	@N10199
Q10183:
	JSP	14,S$$STE##
	XWD	^D148,Q10184
	SETZM	@N10197
Q10184:
	JSP	14,S$$STE##
	XWD	^D149,S$$SRT##
	SETZM	@N10195
	JRST	S$$SRT##
;**
;DO.CALL
L10295:
	JSP	14,S$$STE##
	XWD	^D150,
;CALLS	OPERAND CALL.PARSE		:F(ERR)
L10173:
	JSP	14,S$$STE##
	XWD	^D151,L10296
	MOVE	1,@N10178
	PUSH	16,1
	MOVE	1,@N10186
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
;	CALLLAB = GETLAB()
	JSP	14,S$$STE##
	XWD	^D152,Q10185
	FCALV$	^D0,F10262
	MOVEM	1,@N10297
Q10185:
;	NARG = 0
	JSP	14,S$$STE##
	XWD	^D153,Q10186
	MOVE	1,I10175
	MOVEM	1,@N10298
Q10186:
;	TAB.BASE(IDTAB<'#1'>) = CALLLAB
	JSP	14,S$$STE##
	XWD	^D154,Q10187
	MOVE	1,S10229
	AREFV$	^D1,N10132
	FCALN$	^D1,F10299
	PUSH	16,1
	MOVE	1,@N10297
	JSP	11,S$$ASG##
Q10187:
;	TP2 = IDTAB<'#2'>
	JSP	14,S$$STE##
	XWD	^D155,Q10188
	MOVE	1,S10233
	AREFV$	^D1,N10132
	MOVEM	1,@N10300
Q10188:
;	TAB.OFF(TP2) = 0
	JSP	14,S$$STE##
	XWD	^D156,Q10189
	MOVE	1,@N10300
	FCALN$	^D1,F10301
	PUSH	16,1
	MOVE	1,I10175
	JSP	11,S$$ASG##
Q10189:
;	REENT.OFF<CALLLAB> = DIFFER(SW.REENT) TOTSTORE
	JSP	14,S$$STE##
	XWD	^D157,Q10190
	MOVE	1,@N10297
	AREFN$	^D1,N10136
	PUSH	16,1
	MOVE	1,@N10302
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10303
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$ASG##
Q10190:
;	CALLSRT()
	JSP	14,S$$STE##
	XWD	^D158,Q10191
	FCALV$	^D0,F10304
Q10191:
;CALLLP	ARGS POS(0) SPAN(LET DIGIT) . ARG (',' ! RPOS(0)) = :F(CALLEND)
L10305:
	JSP	14,S$$STE##
	XWD	^D159,L10307
	MOVE	1,@N10189
	PUSH	16,1
	MOVE	1,@N10152
	PUSH	16,1
	MOVE	1,@N10143
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$SPN##
	MOVE	1,N10306
	JSP	11,S$$CVA##
	JSP	11,S$$APS##
	XWD	.-.,Q10193
	MOVE	1,S10181
	JSP	11,S$$MST##
	JRST	Q10192
Q10193:
	JSP	11,S$$APF##
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
Q10192:
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10189
;	NARG = NARG + 1
	JSP	14,S$$STE##
	XWD	^D160,Q10194
	DICNV$	@N10298
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10298
Q10194:
;	OPERAND = '(#1#2,<-[,' ARG ')'
	JSP	14,S$$STE##
	XWD	^D161,Q10195
	MOVE	1,S10308
	PUSH	16,1
	MOVE	1,@N10306
	PUSH	16,1
	MOVE	1,S10184
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10178
Q10195:
;	COMPILE()
	JSP	14,S$$STE##
	XWD	^D162,Q10196
	FCALV$	^D0,F10257
Q10196:
;	TAB.OFF(TP2) = TAB.OFF(TP2) + ADDR.WORD :(CALLLP)
	JSP	14,S$$STE##
	XWD	^D163,L10305
	MOVE	1,@N10300
	FCALN$	^D1,F10301
	PUSH	16,1
	MOVE	1,@N10300
	FCALV$	^D1,F10301
	PUSH	16,1
	MOVE	1,@N10234
	JSP	14,S$$ADD##
	JSP	11,S$$ASG##
	JRST	L10305
;CALLEND CLRREG() GENCALL(SUB)		:(RETURN)
L10307:
	JSP	14,S$$STE##
	XWD	^D164,S$$SRT##
	FCALV$	^D0,F10210
	PUSH	16,1
	MOVE	1,@N10187
	FCALV$	^D1,F10309
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
	JRST	S$$SRT##
;**
;COMPILE	OPERAND "=C" LEN(1) $ T1 BREAK(*T1) . T2 *T1
;.		= "=A'" CHAR(T2) "'"	:S(COMPILE)
L10257:
	JSP	14,S$$STE##
	XWD	^D165,
	JSP	14,S$$CPE##
;	OPERAND GET.THIS.OP =		:F(COMPERR)
	JSP	14,S$$STE##
	XWD	^D166,L10314
	MOVE	1,@N10178
	PUSH	16,1
	MOVE	1,@N10224
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10178
;	THISOP OPER.PARSE		:S(COMP1)
	JSP	14,S$$STE##
	XWD	^D167,Q10197
	MOVE	1,@N10225
	PUSH	16,1
	MOVE	1,@N10179
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
	JRST	L10315
Q10197:
;	IDENT(THISOP,'THEN')		:S(O.THEN)
	JSP	14,S$$STE##
	XWD	^D168,Q10198
	MOVE	1,@N10225
	PUSH	16,1
	MOVE	1,S10316
	FCALV$	^D2,F10072
	JRST	L10317
Q10198:
;	ERROR('FUNNY OPERAND')		:(FRETURN)
	JSP	14,S$$STE##
	XWD	^D169,S$$FRT##
	MOVE	1,S10318
	FCALV$	^D1,F10267
	JRST	S$$FRT##
;COMPERR DIFFER(OPERAND)
;.		ERROR('INCORRECT OPERAND:' OPERAND)	:(FRETURN)
L10314:
	JSP	14,S$$STE##
	XWD	^D170,S$$FRT##
	MOVE	1,@N10178
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,S10319
	PUSH	16,1
	MOVE	1,@N10178
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
	JRST	S$$FRT##
;COMP1	SAVECOM = THISOP
L10315:
	JSP	14,S$$STE##
	XWD	^D171,Q10199
	MOVE	1,@N10225
	MOVEM	1,@N10320
Q10199:
;	IDENT(THENSW)			:S(O.LOG)
	JSP	14,S$$STE##
	XWD	^D172,Q10200
	MOVE	1,@N10252
	FCALV$	^D1,F10072
	JRST	L10321
Q10200:
;	OP = JUMPLOC<OPR>
	JSP	14,S$$STE##
	XWD	^D173,Q10201
	MOVE	1,@N10183
	AREFV$	^D1,N10323
	MOVEM	1,@N10322
Q10201:
;	DIFFER(OP)			:S(GOTOP)
	JSP	14,S$$STE##
	XWD	^D174,Q10202
	MOVE	1,@N10322
	FCALV$	^D1,F10071
	JRST	L10324
Q10202:
;	OPR POS(0) ('<-<-' ! '->->') . OPR REM . RIGHT	:S(COMP1)
	JSP	14,S$$STE##
	XWD	^D175,Q10205
	MOVE	1,@N10183
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	JSP	11,S$$APS##
	XWD	.-.,Q10204
	MOVE	1,S10325
	JSP	11,S$$MST##
	JRST	Q10203
Q10204:
	JSP	11,S$$APF##
	MOVE	1,S10326
	JSP	11,S$$MST##
Q10203:
	MOVE	1,N10183
	JSP	11,S$$CVA##
	JSP	11,S$$VAS##
	JSP	11,S$$REM##
	MOVE	1,N10185
	JSP	11,S$$CVA##
	JSP	11,S$$MTS##
	JRST	L10315
Q10205:
;COMPUN1 OPR POS(0) '<-[/' =			:F(COMPUN)
L10327:
	JSP	14,S$$STE##
	XWD	^D176,L10329
	MOVE	1,@N10183
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,S10328
	JSP	11,S$$MST##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10183
;	( DS(SCSC '4',ADDR.WORD) DS(SCSC '3',ADDR.WORD) )
	JSP	14,S$$STE##
	XWD	^D177,Q10206
	MOVE	1,@N10212
	PUSH	16,1
	MOVE	1,S10240
	JSP	14,S$$CNC##
	EXP	^D2
	PUSH	16,1
	MOVE	1,@N10234
	FCALV$	^D2,F10293
	PUSH	16,1
	MOVE	1,@N10212
	PUSH	16,1
	MOVE	1,S10238
	JSP	14,S$$CNC##
	EXP	^D2
	PUSH	16,1
	MOVE	1,@N10234
	FCALV$	^D2,F10293
	JSP	14,S$$CNC##
	EXP	^D2
Q10206:
;	CKSBSET()				:F(COMFULL)
	JSP	14,S$$STE##
	XWD	^D178,L10331
	FCALV$	^D0,F10330
;	RIGHT = EQ(RIGHT,1) OPR			:S(COMPLS)
	JSP	14,S$$STE##
	XWD	^D179,Q10207
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,I10150
	FCALV$	^D2,F10075
	PUSH	16,1
	MOVE	1,@N10183
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10185
	JRST	L10332
Q10207:
;	RIGHT = RIGHT * CONVERT(OPR,'INTEGER')	:F(COMMUL)
	JSP	14,S$$STE##
	XWD	^D180,L10333
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10048
	FCALV$	^D2,F10062
	JSP	14,S$$MUL##
	MOVEM	1,@N10185
;COMPLS	OPR = '+'				:(COMP1)
L10332:
	JSP	14,S$$STE##
	XWD	^D181,L10315
	MOVE	1,S10223
	MOVEM	1,@N10183
	JRST	L10315
;COMMUL	OPERAND = '(#4,<-,' RIGHT '),'
;.		'(#4,*,' OPR '),(' LEFT ',+,#4),'
;.		OPERAND 			:(COMPILE)
L10333:
	JSP	14,S$$STE##
	XWD	^D182,L10257
	MOVE	1,S10334
	PUSH	16,1
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,S10335
	PUSH	16,1
	MOVE	1,S10336
	PUSH	16,1
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10337
	PUSH	16,1
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,S10338
	PUSH	16,1
	MOVE	1,@N10178
	JSP	14,S$$CNC##
	EXP	^D9
	MOVEM	1,@N10178
	JRST	L10257
;COMFULL OPERAND = '(#3,<-[,' LEFT '),(#4,<-[,' RIGHT
;.		'),(#4,-,#3),'
;.		'(#4,*,' OPR '),(' LEFT ',+,#4),'
;.		OPERAND 			:(COMPILE)
L10331:
	JSP	14,S$$STE##
	XWD	^D183,L10257
	MOVE	1,S10339
	PUSH	16,1
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,S10340
	PUSH	16,1
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,S10341
	PUSH	16,1
	MOVE	1,S10336
	PUSH	16,1
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10337
	PUSH	16,1
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,S10338
	PUSH	16,1
	MOVE	1,@N10178
	JSP	14,S$$CNC##
	EXP	^D11
	MOVEM	1,@N10178
	JRST	L10257
;COMPUN	OPR POS(0) AVAR RPOS(0)			:S(COMPUN2)
L10329:
	JSP	14,S$$STE##
	XWD	^D184,Q10208
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,@N10154
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	HRRZ	1,K10175
	CAIE	1,(13)
	POPJ	16,
	JSP	11,S$$MTS##
	JRST	L10342
Q10208:
;	ERROR('UNDEFINED OPERATION...' OPR)	:(RETURN)
	JSP	14,S$$STE##
	XWD	^D185,S$$SRT##
	MOVE	1,S10343
	PUSH	16,1
	MOVE	1,@N10183
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JRST	S$$SRT##
;COMPUN2	DO.CALL(OPR ',(' LEFT ',' RIGHT ')')	:(RETURN)
L10342:
	JSP	14,S$$STE##
	XWD	^D186,S$$SRT##
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10188
	PUSH	16,1
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,S10181
	PUSH	16,1
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,S10184
	JSP	14,S$$CNC##
	EXP	^D6
	FCALV$	^D1,F10295
	JRST	S$$SRT##
;GOTOP	IDENT(OPR,'GOTO')		:S(O.GOTO)
L10324:
	JSP	14,S$$STE##
	XWD	^D187,Q10209
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10344
	FCALV$	^D2,F10072
	JRST	L10345
Q10209:
;	OPR = IDENT(OPR,'<-[') CKSBSET() '+'	:S(COMP1)
	JSP	14,S$$STE##
	XWD	^D188,Q10210
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10346
	FCALV$	^D2,F10072
	PUSH	16,1
	FCALV$	^D0,F10330
	PUSH	16,1
	MOVE	1,S10223
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10183
	JRST	L10315
Q10210:
;	COMPLR()
	JSP	14,S$$STE##
	XWD	^D189,Q10211
	FCALV$	^D0,F10347
Q10211:
;	OPGO = 'O.' OP			:($OPGO)
	JSP	14,S$$STE##
	XWD	^D190,Q10212
	MOVE	1,S10349
	PUSH	16,1
	MOVE	1,@N10322
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10348
Q10212:
	MOVEI 14,S$$BGT##
	MOVEM 14,S$$FLP##
	MOVE	1,@N10348
	JSP 14,S$$ILB##
;**
;O.THEN	THENSW = '1'
L10317:
	JSP	14,S$$STE##
	XWD	^D191,Q10213
	MOVE	1,S10209
	MOVEM	1,@N10252
Q10213:
;	( IDENT(BTYPE,'Y') GENLOG(BRANCH,LAB2)
;.		GENLAB(LAB1) )		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D192,S$$SRT##
	MOVE	1,@N10258
	PUSH	16,1
	MOVE	1,S10259
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,@N10214
	PUSH	16,1
	MOVE	1,@N10263
	FCALV$	^D2,F10350
	PUSH	16,1
	MOVE	1,@N10261
	FCALV$	^D1,F10266
	JSP	14,S$$CNC##
	EXP	^D3
	JRST	S$$SRT##
;**
;O.LOG	LEFT CK.LIT			:F(O.LOGOK)
L10321:
	JSP	14,S$$STE##
	XWD	^D193,L10351
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,@N10226
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
;	T1 = LEFT ; LEFT = RIGHT ; RIGHT = T1
	JSP	14,S$$STE##
	XWD	^D194,Q10214
	MOVE	1,@N10182
	MOVEM	1,@N10151
Q10214:
	JSP	14,S$$STE##
	XWD	^D195,Q10215
	MOVE	1,@N10185
	MOVEM	1,@N10182
Q10215:
	JSP	14,S$$STE##
	XWD	^D196,Q10216
	MOVE	1,@N10151
	MOVEM	1,@N10185
Q10216:
;	OPR = REPLACE(OPR,'<>','><')
	JSP	14,S$$STE##
	XWD	^D197,Q10217
	MOVE	1,@N10183
	PUSH	16,1
	MOVE	1,S10216
	PUSH	16,1
	MOVE	1,S10352
	FCALV$	^D3,F10083
	MOVEM	1,@N10183
Q10217:
;O.LOGOK	COMPLR()
L10351:
	JSP	14,S$$STE##
	XWD	^D198,Q10218
	FCALV$	^D0,F10347
Q10218:
;	OP = IDENT(BTYPE,'N') COMPOP()	:S(O.LOG1)
	JSP	14,S$$STE##
	XWD	^D199,Q10219
	MOVE	1,@N10258
	PUSH	16,1
	MOVE	1,S10269
	FCALV$	^D2,F10072
	PUSH	16,1
	FCALV$	^D0,F10353
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10322
	JRST	L10354
Q10219:
;	OP = LOGOP<OPR>
	JSP	14,S$$STE##
	XWD	^D200,Q10220
	MOVE	1,@N10183
	AREFV$	^D1,N10215
	MOVEM	1,@N10322
Q10220:
;O.LOG1	( IDENT(OP) ERROR('UNDEF RELATION OP') )
L10354:
	JSP	14,S$$STE##
	XWD	^D201,Q10221
	MOVE	1,@N10322
	FCALV$	^D1,F10072
	PUSH	16,1
	MOVE	1,S10355
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
Q10221:
;	GENLOG(OP,LLAB)			:(RETURN)
	JSP	14,S$$STE##
	XWD	^D202,S$$SRT##
	MOVE	1,@N10322
	PUSH	16,1
	MOVE	1,@N10264
	FCALV$	^D2,F10350
	JRST	S$$SRT##
;**
;COMPOP	OPR '\' =			:S(COMPOP1)
L10353:
	JSP	14,S$$STE##
	XWD	^D203,Q10222
	MOVE	1,@N10183
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	MOVE	1,S10356
	JSP	11,S$$MST##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10183
	JRST	L10357
Q10222:
;	OPR = '\' OPR
	JSP	14,S$$STE##
	XWD	^D204,Q10223
	MOVE	1,S10356
	PUSH	16,1
	MOVE	1,@N10183
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10183
Q10223:
;COMPOP1	COMPOP = LOGOP<OPR>		:(RETURN)
L10357:
	JSP	14,S$$STE##
	XWD	^D205,S$$SRT##
	MOVE	1,@N10183
	AREFV$	^D1,N10215
	MOVEM	1,@N10353
	JRST	S$$SRT##
;**
;COMPLR	GETCONT(LEFT,2) ; L.ENTRY = ENTRY
L10347:
	JSP	14,S$$STE##
	XWD	^D206,Q10224
	MOVE	1,@N10182
	PUSH	16,1
	MOVE	1,I10205
	FCALV$	^D2,F10358
Q10224:
	JSP	14,S$$STE##
	XWD	^D207,Q10225
	MOVE	1,@N10360
	MOVEM	1,@N10359
Q10225:
;	L.ADDR = ADDR	; L.TYPE = TYPE ; L.F = GETTYPE(LF)
	JSP	14,S$$STE##
	XWD	^D208,Q10226
	MOVE	1,@N10362
	MOVEM	1,@N10361
Q10226:
	JSP	14,S$$STE##
	XWD	^D209,Q10227
	MOVE	1,@N10278
	MOVEM	1,@N10363
Q10227:
	JSP	14,S$$STE##
	XWD	^D210,Q10228
	MOVE	1,@N10202
	FCALV$	^D1,F10365
	MOVEM	1,@N10364
Q10228:
;	GETCONT(RIGHT,1) ; R.ENTRY = ENTRY
	JSP	14,S$$STE##
	XWD	^D211,Q10229
	MOVE	1,@N10185
	PUSH	16,1
	MOVE	1,I10150
	FCALV$	^D2,F10358
Q10229:
	JSP	14,S$$STE##
	XWD	^D212,Q10230
	MOVE	1,@N10360
	MOVEM	1,@N10366
Q10230:
;	R.ADDR = ADDR	; R.TYPE = TYPE ; R.F = GETTYPE(LF)
	JSP	14,S$$STE##
	XWD	^D213,Q10231
	MOVE	1,@N10362
	MOVEM	1,@N10367
Q10231:
	JSP	14,S$$STE##
	XWD	^D214,Q10232
	MOVE	1,@N10278
	MOVEM	1,@N10368
Q10232:
	JSP	14,S$$STE##
	XWD	^D215,Q10233
	MOVE	1,@N10202
	FCALV$	^D1,F10365
	MOVEM	1,@N10369
Q10233:
;	IDENT(L.F,R.F)			:S(COMPLR1)
	JSP	14,S$$STE##
	XWD	^D216,Q10234
	MOVE	1,@N10364
	PUSH	16,1
	MOVE	1,@N10369
	FCALV$	^D2,F10072
	JRST	L10370
Q10234:
;	TYPE = L.TYPE
	JSP	14,S$$STE##
	XWD	^D217,Q10235
	MOVE	1,@N10363
	MOVEM	1,@N10278
Q10235:
;	( \( CKTYPE(BF,'BF') DIFFER(SW.CONV) )
;.		 ERROR('LEFT AND RIGHT SIZES DIFFER') )	:S(COMPLR1)
	JSP	14,S$$STE##
	XWD	^D218,Q10237
	JSP	14,S$$NGS##
	EXP	Q10236
	MOVE	1,@N10203
	PUSH	16,1
	MOVE	1,S10203
	FCALV$	^D2,F10100
	PUSH	16,1
	MOVE	1,@N10371
	FCALV$	^D1,F10071
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$NGF##
Q10236:
	MOVE	1,S10372
	FCALV$	^D1,F10267
	JRST	L10370
Q10237:
;	ERROR('WARNING...LEFT SIZE CHANGED TO SIZE OF RIGHT')
	JSP	14,S$$STE##
	XWD	^D219,Q10238
	MOVE	1,S10373
	FCALV$	^D1,F10267
Q10238:
;	L.F = R.F
	JSP	14,S$$STE##
	XWD	^D220,Q10239
	MOVE	1,@N10369
	MOVEM	1,@N10364
Q10239:
;	SETTYPE(LF,R.F)
	JSP	14,S$$STE##
	XWD	^D221,Q10240
	MOVE	1,@N10202
	PUSH	16,1
	MOVE	1,@N10369
	FCALV$	^D2,F10285
Q10240:
;	L.TYPE = TYPE
	JSP	14,S$$STE##
	XWD	^D222,Q10241
	MOVE	1,@N10278
	MOVEM	1,@N10363
Q10241:
;	TAB.TYPE( L.ENTRY ) = L.TYPE
	JSP	14,S$$STE##
	XWD	^D223,Q10242
	MOVE	1,@N10359
	FCALN$	^D1,F10374
	PUSH	16,1
	MOVE	1,@N10363
	JSP	11,S$$ASG##
Q10242:
;	TAB.RANGE( L.ENTRY ) = TAB.RANGE( R.ENTRY )
	JSP	14,S$$STE##
	XWD	^D224,Q10243
	MOVE	1,@N10359
	FCALN$	^D1,F10375
	PUSH	16,1
	MOVE	1,@N10366
	FCALV$	^D1,F10375
	JSP	11,S$$ASG##
Q10243:
;	TAB.MASK( L.ENTRY ) = TAB.MASK( R.ENTRY )
	JSP	14,S$$STE##
	XWD	^D225,Q10244
	MOVE	1,@N10359
	FCALN$	^D1,F10376
	PUSH	16,1
	MOVE	1,@N10366
	FCALV$	^D1,F10376
	JSP	11,S$$ASG##
Q10244:
;COMPLR1	LR = L.F R.F			:(RETURN)
L10370:
	JSP	14,S$$STE##
	XWD	^D226,S$$SRT##
	MOVE	1,@N10364
	PUSH	16,1
	MOVE	1,@N10369
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10377
	JRST	S$$SRT##
;**
;GETCONT CHAR.CNT = 0 ; OFF = 0 ; LOAD.CNT = 0
L10358:
	JSP	14,S$$STE##
	XWD	^D227,Q10245
	MOVE	1,I10175
	MOVEM	1,@N10378
Q10245:
	JSP	14,S$$STE##
	XWD	^D228,Q10246
	MOVE	1,I10175
	MOVEM	1,@N10197
Q10246:
	JSP	14,S$$STE##
	XWD	^D229,Q10247
	MOVE	1,I10175
	MOVEM	1,@N10379
Q10247:
;	PARM GET.VAR.X =		:S(GETC)
	JSP	14,S$$STE##
	XWD	^D230,Q10248
	MOVE	1,@N10380
	PUSH	16,1
	MOVE	1,@N10227
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10380
	JRST	L10381
Q10248:
;	PARM CK.LIT			:F(GETERR)
	JSP	14,S$$STE##
	XWD	^D231,L10382
	MOVE	1,@N10380
	PUSH	16,1
	MOVE	1,@N10226
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
;	( IDENT(WHEN,2) ERROR('LITERAL ON THE LEFT') )
	JSP	14,S$$STE##
	XWD	^D232,Q10249
	MOVE	1,@N10383
	PUSH	16,1
	MOVE	1,I10205
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,S10384
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
Q10249:
;CKCCH	TYPE = L.TYPE
L10385:
	JSP	14,S$$STE##
	XWD	^D233,Q10250
	MOVE	1,@N10363
	MOVEM	1,@N10278
Q10250:
;	PARM POS(0) "=A" LEN(1) RTAB(1) . ADDR	:S(RETURN)
	JSP	14,S$$STE##
	XWD	^D234,Q10251
	MOVE	1,@N10380
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,S10386
	JSP	11,S$$MST##
	HRRZ	1,K10150
	JSP	11,S$$LEN##
	JSP	11,S$$VAS##
	HRRZ	1,K10150
	JSP	11,S$$RTB##
	MOVE	1,N10362
	JSP	11,S$$CVA##
	JSP	11,S$$MTS##
	JRST	S$$SRT##
Q10251:
;	ADDR = '#' RADIX(PARM)		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D235,S$$SRT##
	MOVE	1,S10387
	PUSH	16,1
	MOVE	1,@N10380
	FCALV$	^D1,F10388
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10362
	JRST	S$$SRT##
;GETERR	( DIFFER(PARM) ERROR('STRANGE OPERAND...' PARM) )
;.						:(RETURN)
L10382:
	JSP	14,S$$STE##
	XWD	^D236,S$$SRT##
	MOVE	1,@N10380
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,S10389
	PUSH	16,1
	MOVE	1,@N10380
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$SRT##
;GETC	GEN()
L10381:
	JSP	14,S$$STE##
	XWD	^D237,Q10252
	FCALV$	^D0,F10390
Q10252:
;	PARM GET.VAR.X =		:S(GETC)F(GETERR)
	JSP	14,S$$STE##
	XWD	^D238,L10382
	MOVE	1,@N10380
	PUSH	16,1
	MOVE	1,@N10227
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10380
	JRST	L10381
;**
;GEN	CHAR.CNT = CHAR.CNT + 1
L10390:
	JSP	14,S$$STE##
	XWD	^D239,Q10253
	DICNV$	@N10378
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10378
Q10253:
;	ENTRY = IDTAB<X>
	JSP	14,S$$STE##
	XWD	^D240,Q10254
	MOVE	1,@N10228
	AREFV$	^D1,N10132
	MOVEM	1,@N10360
Q10254:
;	( IDENT(ENTRY) ERROR('UNDEFINED ELEMENT...' X) ) :S(RETURN)
	JSP	14,S$$STE##
	XWD	^D241,Q10255
	MOVE	1,@N10360
	FCALV$	^D1,F10072
	PUSH	16,1
	MOVE	1,S10391
	PUSH	16,1
	MOVE	1,@N10228
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$SRT##
Q10255:
;	TYPE = TAB.TYPE(ENTRY)
	JSP	14,S$$STE##
	XWD	^D242,Q10256
	MOVE	1,@N10360
	FCALV$	^D1,F10374
	MOVEM	1,@N10278
Q10256:
;	OFF = OFF + TAB.OFF(ENTRY)
	JSP	14,S$$STE##
	XWD	^D243,Q10257
	MOVE	1,@N10197
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10301
	JSP	14,S$$ADD##
	MOVEM	1,@N10197
Q10257:
;	( DIFFER(TAB.BASE(ENTRY)) GT(CHAR.CNT,1)
;.		ERROR('MISPLACED BASE:' X) )
	JSP	14,S$$STE##
	XWD	^D244,Q10258
	MOVE	1,@N10360
	FCALV$	^D1,F10299
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10378
	PUSH	16,1
	MOVE	1,I10150
	FCALV$	^D2,F10078
	PUSH	16,1
	MOVE	1,S10392
	PUSH	16,1
	MOVE	1,@N10228
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D3
Q10258:
;	EQ(CHAR.CNT,1)			:F(GEBASE)
	JSP	14,S$$STE##
	XWD	^D245,L10393
	MOVE	1,@N10378
	PUSH	16,1
	MOVE	1,I10150
	FCALV$	^D2,F10075
;	( IDENT(TAB.BASE(ENTRY)) ERROR('MISPLACED BASE:' X) )
	JSP	14,S$$STE##
	XWD	^D246,Q10259
	MOVE	1,@N10360
	FCALV$	^D1,F10299
	FCALV$	^D1,F10072
	PUSH	16,1
	MOVE	1,S10392
	PUSH	16,1
	MOVE	1,@N10228
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
Q10259:
;	BASELOC = TAB.BASE(ENTRY)
	JSP	14,S$$STE##
	XWD	^D247,Q10260
	MOVE	1,@N10360
	FCALV$	^D1,F10299
	MOVEM	1,@N10394
Q10260:
;	TAB.MASK(ENTRY) = TAB.MASK(ENTRY) - 1
	JSP	14,S$$STE##
	XWD	^D248,Q10261
	MOVE	1,@N10360
	FCALN$	^D1,F10376
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10376
	DICNV$	0
	SUB	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10261:
;	ADDR =
	JSP	14,S$$STE##
	XWD	^D249,Q10262
	SETZM	@N10362
Q10262:
;	DIFFER(SW.REENT)		:F(GEBASE)
	JSP	14,S$$STE##
	XWD	^D250,L10393
	MOVE	1,@N10302
	FCALV$	^D1,F10071
;	( DIFFER(SW.REG) IDENT(BASELOC,'REG') )	:S(GEBASE)
	JSP	14,S$$STE##
	XWD	^D251,Q10263
	MOVE	1,@N10208
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10394
	PUSH	16,1
	MOVE	1,S10395
	FCALV$	^D2,F10072
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	L10393
Q10263:
;	LREG = REENT.REG
	JSP	14,S$$STE##
	XWD	^D252,Q10264
	MOVE	1,@N10397
	MOVEM	1,@N10396
Q10264:
;	OFF = OFF + REENT.OFF<BASELOC>
	JSP	14,S$$STE##
	XWD	^D253,Q10265
	MOVE	1,@N10197
	PUSH	16,1
	MOVE	1,@N10394
	AREFV$	^D1,N10136
	JSP	14,S$$ADD##
	MOVEM	1,@N10197
Q10265:
;	BASELOC =
	JSP	14,S$$STE##
	XWD	^D254,Q10266
	SETZM	@N10394
Q10266:
;GEBASE	( CKTYPE(TF,'B') DIFFER(PARM) )	:S(RETURN)
L10393:
	JSP	14,S$$STE##
	XWD	^D255,Q10267
	MOVE	1,@N10204
	PUSH	16,1
	MOVE	1,S10141
	FCALV$	^D2,F10100
	PUSH	16,1
	MOVE	1,@N10380
	FCALV$	^D1,F10071
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$SRT##
Q10267:
;	LOAD.CNT = LOAD.CNT + 1
	JSP	14,S$$STE##
	XWD	^D256,Q10268
	DICNV$	@N10379
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10379
Q10268:
;	GENLD()
	JSP	14,S$$STE##
	XWD	^D257,Q10269
	FCALV$	^D0,F10398
Q10269:
;	OFF = ; BASELOC =		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D258,Q10270
	SETZM	@N10197
Q10270:
	JSP	14,S$$STE##
	XWD	^D259,S$$SRT##
	SETZM	@N10394
	JRST	S$$SRT##
;**
;GENLD	R = GETREG()
L10398:
	JSP	14,S$$STE##
	XWD	^D260,Q10271
	FCALV$	^D0,F10400
	MOVEM	1,@N10399
Q10271:
;	( DIFFER(ADDR) CKREG() CKREGD()
;.		PUTREG(R,ADDR) GENLOAD(R,ADDR) )
	JSP	14,S$$STE##
	XWD	^D261,Q10272
	MOVE	1,@N10362
	FCALV$	^D1,F10071
	PUSH	16,1
	FCALV$	^D0,F10401
	PUSH	16,1
	FCALV$	^D0,F10402
	PUSH	16,1
	MOVE	1,@N10399
	PUSH	16,1
	MOVE	1,@N10362
	FCALV$	^D2,F10403
	PUSH	16,1
	MOVE	1,@N10399
	PUSH	16,1
	MOVE	1,@N10362
	FCALV$	^D2,F10404
	JSP	14,S$$CNC##
	EXP	^D5
Q10272:
;	OFF = EQ(OFF)			:S(NOOFF)
	JSP	14,S$$STE##
	XWD	^D262,Q10273
	MOVE	1,@N10197
	FCALV$	^D1,F10075
	MOVEM	1,@N10197
	JRST	L10405
Q10273:
;	OFF = RADIX(OFF)
	JSP	14,S$$STE##
	XWD	^D263,Q10274
	MOVE	1,@N10197
	FCALV$	^D1,F10388
	MOVEM	1,@N10197
Q10274:
;NOOFF	BASELOC = DIFFER(BASELOC) DIFFER(OFF) BASELOC '+'
L10405:
	JSP	14,S$$STE##
	XWD	^D264,Q10275
	MOVE	1,@N10394
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10197
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10394
	PUSH	16,1
	MOVE	1,S10223
	JSP	14,S$$CNC##
	EXP	^D4
	MOVEM	1,@N10394
Q10275:
;	LREG = DIFFER(LREG) '(' LREG ')'
	JSP	14,S$$STE##
	XWD	^D265,Q10276
	MOVE	1,@N10396
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,S10180
	PUSH	16,1
	MOVE	1,@N10396
	PUSH	16,1
	MOVE	1,S10184
	JSP	14,S$$CNC##
	EXP	^D4
	MOVEM	1,@N10396
Q10276:
;	ADDR = BASELOC OFF LREG
	JSP	14,S$$STE##
	XWD	^D266,Q10277
	MOVE	1,@N10394
	PUSH	16,1
	MOVE	1,@N10197
	PUSH	16,1
	MOVE	1,@N10396
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10362
Q10277:
;	LREG = R			:(RETURN)
	JSP	14,S$$STE##
	XWD	^D267,S$$SRT##
	MOVE	1,@N10399
	MOVEM	1,@N10396
	JRST	S$$SRT##
;**
;PUT	PUNCH = STRING			:(RETURN)
L10256:
	JSP	14,S$$STE##
	XWD	^D268,S$$SRT##
	MOVE	1,@N10407
	MOVEM	1,@N10406
	JRST	S$$SRT##
;**
;**SNO*LPAD	LPAD = DUPL(SYM,N - SIZE(LPAD)) LPAD	:(RETURN)
;**SNO*RPAD	SYM = IDENT(SYM) ' '
;**SNO*	RPAD = RPAD DUPL(SYM,N - SIZE(RPAD))	:(RETURN)
;**
;GENLAB	( DIFFER(LABEL) ASS(LABEL) CLRREG() ) :(RETURN)
L10266:
	JSP	14,S$$STE##
	XWD	^D269,S$$SRT##
	MOVE	1,@N10176
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10176
	FCALV$	^D1,F10091
	PUSH	16,1
	FCALV$	^D0,F10210
	JSP	14,S$$CNC##
	EXP	^D3
	JRST	S$$SRT##
;**
;FILLTAB TEMP BREAK.TAB =		:F(RETURN)
L10408:
	JSP	14,S$$STE##
	XWD	^D270,S$$SRT##
	MOVE	1,@N10409
	PUSH	16,1
	MOVE	1,@N10190
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10409
;	FILLTAB<T1> = T2		:(FILLTAB)
	JSP	14,S$$STE##
	XWD	^D271,L10408
	MOVE	1,@N10151
	AREFN$	^D1,N10408
	PUSH	16,1
	MOVE	1,@N10192
	JSP	11,S$$ASG##
	JRST	L10408
;**
;ERR	ERROR('SYNTAX') 		:(RETURN)
L10296:
	JSP	14,S$$STE##
	XWD	^D272,S$$SRT##
	MOVE	1,S10282
	FCALV$	^D1,F10267
	JRST	S$$SRT##
;**
;ERROR	MESS = DIFFER(THISOP) MESS ':' THISOP
L10267:
	JSP	14,S$$STE##
	XWD	^D273,Q10278
	MOVE	1,@N10225
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10410
	PUSH	16,1
	MOVE	1,S10411
	PUSH	16,1
	MOVE	1,@N10225
	JSP	14,S$$CNC##
	EXP	^D4
	MOVEM	1,@N10410
Q10278:
;	TTYOUT = DIFFER(CARD) STATENO TAB CARD CRLF
	JSP	14,S$$STE##
	XWD	^D274,Q10279
	MOVE	1,@N10242
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10243
	PUSH	16,1
	MOVE	1,@N10030
	PUSH	16,1
	MOVE	1,@N10242
	PUSH	16,1
	MOVE	1,@N10413
	JSP	14,S$$CNC##
	EXP	^D5
	MOVEM	1,@N10412
Q10279:
;	CARD =
	JSP	14,S$$STE##
	XWD	^D275,Q10280
	SETZM	@N10242
Q10280:
;	TTYOUT = 'ERROR-' MESS CRLF
	JSP	14,S$$STE##
	XWD	^D276,Q10281
	MOVE	1,S10414
	PUSH	16,1
	MOVE	1,@N10410
	PUSH	16,1
	MOVE	1,@N10413
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10412
Q10281:
;	OUTPUT = '**********' MESS
	JSP	14,S$$STE##
	XWD	^D277,Q10282
	MOVE	1,S10415
	PUSH	16,1
	MOVE	1,@N10410
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@S$$OUT##
Q10282:
;	COMMENT(OUTPUT) 		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D278,S$$SRT##
	MOVE	1,@S$$OUT##
	FCALV$	^D1,F10220
	JRST	S$$SRT##
;**
;SETTYPE TYPE POS(POS) LEN(1) = CHAR	:(RETURN)
L10285:
	JSP	14,S$$STE##
	XWD	^D279,S$$SRT##
	MOVE	1,@N10278
	PUSH	16,1
	MOVE	1,@N10032
	JSP	11,S$$MID##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,^D1(15)
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	HRRZ	1,K10150
	JSP	11,S$$LEN##
	JSP	11,S$$RPS##
	MOVE	1,@N10312
	JSP	14,S$$RPL##
	MOVEM	1,@N10278
	JRST	S$$SRT##
;**
;GETTYPE TYPE POS(POS) LEN(1) . GETTYPE	:(RETURN)
L10365:
	JSP	14,S$$STE##
	XWD	^D280,S$$SRT##
	MOVE	1,@N10278
	PUSH	16,1
	MOVE	1,@N10032
	JSP	11,S$$MID##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,^D1(15)
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JSP	11,S$$VAS##
	HRRZ	1,K10150
	JSP	11,S$$LEN##
	MOVE	1,N10365
	JSP	11,S$$CVA##
	JSP	11,S$$MTS##
	JRST	S$$SRT##
;**
;CKTYPE	TYPE POS(POS) CHAR		:F(FRETURN)S(RETURN)
L10100:
	JSP	14,S$$STE##
	XWD	^D281,S$$FRT##
	MOVE	1,@N10278
	PUSH	16,1
	MOVE	1,@N10032
	JSP	11,S$$MID##
	PUSH	16,1
	MOVE	1,@N10312
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D3,0
	HRRZ	1,^D1(15)
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,^D2(15)
	JSP	11,S$$PTX##
	JSP	11,S$$MTS##
	JRST	S$$SRT##
;**
;DEC2OCT N = CONVERT(N,'INTEGER')	:F(FRETURN)
L10416:
	JSP	14,S$$STE##
	XWD	^D282,S$$FRT##
	MOVE	1,@N10269
	PUSH	16,1
	MOVE	1,S10048
	FCALV$	^D2,F10062
	MOVEM	1,@N10269
;	( GT(N,MAXSIZE) ERROR('GT MAX SIZE...' N) ) :S(FRETURN)
	JSP	14,S$$STE##
	XWD	^D283,Q10283
	MOVE	1,@N10269
	PUSH	16,1
	MOVE	1,@N10417
	FCALV$	^D2,F10078
	PUSH	16,1
	MOVE	1,S10418
	PUSH	16,1
	MOVE	1,@N10269
	JSP	14,S$$CNC##
	EXP	^D2
	FCALV$	^D1,F10267
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$FRT##
Q10283:
;	DEC2OCT = LT(N,0) '-' DEC2OCT(0 - N)	:S(RETURN)
	JSP	14,S$$STE##
	XWD	^D284,Q10284
	MOVE	1,@N10269
	PUSH	16,1
	MOVE	1,I10175
	FCALV$	^D2,F10073
	PUSH	16,1
	MOVE	1,S10157
	PUSH	16,1
	MOVE	^D1,K10175
	PUSH	17,1
	DICNV$	@N10269
	POP	17,0
	SUB	^D0,1
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	FCALV$	^D1,F10416
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10416
	JRST	S$$SRT##
Q10284:
;D2O	DEC2OCT = REMDR(N,8) DEC2OCT
L10419:
	JSP	14,S$$STE##
	XWD	^D285,Q10285
	MOVE	1,@N10269
	DASGN$	2,Q10001+^D0
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$RMD##
	JUMP	0,Q10001+^D0
	JUMP	0,K10244
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	1,@N10416
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10416
Q10285:
;	N = GT(N,7) N / 8		:F(RETURN)S(D2O)
	JSP	14,S$$STE##
	XWD	^D286,S$$SRT##
	MOVE	1,@N10269
	PUSH	16,1
	MOVE	1,I10420
	FCALV$	^D2,F10078
	PUSH	16,1
	DICNV$	@N10269
	IDIV	^D1,K10244
	TLO	1,1B18
	TLZ	1,1B19
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10269
	JRST	L10419
;**
;FLIP	T1 = L.ADDR ; L.ADDR = R.ADDR ; R.ADDR = T1
L10421:
	JSP	14,S$$STE##
	XWD	^D287,Q10286
	MOVE	1,@N10361
	MOVEM	1,@N10151
Q10286:
	JSP	14,S$$STE##
	XWD	^D288,Q10287
	MOVE	1,@N10367
	MOVEM	1,@N10361
Q10287:
	JSP	14,S$$STE##
	XWD	^D289,Q10288
	MOVE	1,@N10151
	MOVEM	1,@N10367
Q10288:
;	T1 = L.ENTRY ; L.ENTRY = R.ENTRY ; R.ENTRY = T1
	JSP	14,S$$STE##
	XWD	^D290,Q10289
	MOVE	1,@N10359
	MOVEM	1,@N10151
Q10289:
	JSP	14,S$$STE##
	XWD	^D291,Q10290
	MOVE	1,@N10366
	MOVEM	1,@N10359
Q10290:
	JSP	14,S$$STE##
	XWD	^D292,Q10291
	MOVE	1,@N10151
	MOVEM	1,@N10366
Q10291:
;	T1 = L.F ; L.F = R.F ; R.F = T1
	JSP	14,S$$STE##
	XWD	^D293,Q10292
	MOVE	1,@N10364
	MOVEM	1,@N10151
Q10292:
	JSP	14,S$$STE##
	XWD	^D294,Q10293
	MOVE	1,@N10369
	MOVEM	1,@N10364
Q10293:
	JSP	14,S$$STE##
	XWD	^D295,Q10294
	MOVE	1,@N10151
	MOVEM	1,@N10369
Q10294:
;	LR = L.F R.F			:(RETURN)
	JSP	14,S$$STE##
	XWD	^D296,S$$SRT##
	MOVE	1,@N10364
	PUSH	16,1
	MOVE	1,@N10369
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10377
	JRST	S$$SRT##
;**
;GETLAB	L.CNT = L.CNT + 1
L10262:
	JSP	14,S$$STE##
	XWD	^D297,Q10295
	DICNV$	@N10422
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10422
Q10295:
;	GETLAB = SC L.CNT		:(RETURN)
	JSP	14,S$$STE##
	XWD	^D298,S$$SRT##
	MOVE	1,@N10213
	PUSH	16,1
	MOVE	1,@N10422
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@N10262
	JRST	S$$SRT##
;**
;DS	( IDENT(BASE,'REG') DIFFER(SW.REG) )	:S(RETURN)
L10293:
	JSP	14,S$$STE##
	XWD	^D299,Q10296
	MOVE	1,@N10195
	PUSH	16,1
	MOVE	1,S10395
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,@N10208
	FCALV$	^D1,F10071
	JSP	14,S$$CNC##
	EXP	^D2
	JRST	S$$SRT##
Q10296:
;	SAVEDS (POS(0) ! '"') BASE ','	:S(RETURN)
	JSP	14,S$$STE##
	XWD	^D300,Q10299
	MOVE	1,@N10423
	PUSH	16,1
	MOVE	1,@N10195
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	JSP	11,S$$APS##
	XWD	.-.,Q10298
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	JRST	Q10297
Q10298:
	JSP	11,S$$APF##
	MOVE	1,S10191
	JSP	11,S$$MST##
Q10297:
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$MTS##
	JRST	S$$SRT##
Q10299:
;	LEN = ((LEN + ADDR.WORD - 1) / ADDR.WORD)  * ADDR.WORD
	JSP	14,S$$STE##
	XWD	^D301,Q10300
	MOVE	1,@N10029
	PUSH	16,1
	MOVE	1,@N10234
	JSP	14,S$$ADD##
	DICNV$	0
	SUB	^D1,K10150
	PUSH	17,1
	DICNV$	@N10234
	POP	17,0
	IDIV	^D0,1
	MOVE	1,0
	PUSH	17,1
	DICNV$	@N10234
	POP	17,0
	IMUL	^D1,0
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10029
Q10300:
;	DIFFER(SW.REENT)		:F(DSNR)
	JSP	14,S$$STE##
	XWD	^D302,L10424
	MOVE	1,@N10302
	FCALV$	^D1,F10071
;	REENT.OFF<BASE> = TOTSTORE
	JSP	14,S$$STE##
	XWD	^D303,Q10301
	MOVE	1,@N10195
	AREFN$	^D1,N10136
	PUSH	16,1
	MOVE	1,@N10303
	JSP	11,S$$ASG##
Q10301:
;	TOTSTORE = TOTSTORE + LEN	:(RETURN)
	JSP	14,S$$STE##
	XWD	^D304,S$$SRT##
	MOVE	1,@N10303
	PUSH	16,1
	MOVE	1,@N10029
	JSP	14,S$$ADD##
	MOVEM	1,@N10303
	JRST	S$$SRT##
;DSNR	SAVEDS = SAVEDS BASE ',' LEN '"' :(RETURN)
L10424:
	JSP	14,S$$STE##
	XWD	^D305,S$$SRT##
	MOVE	1,@N10423
	PUSH	16,1
	MOVE	1,@N10195
	PUSH	16,1
	MOVE	1,S10181
	PUSH	16,1
	MOVE	1,@N10029
	PUSH	16,1
	MOVE	1,S10191
	JSP	14,S$$CNC##
	EXP	^D5
	MOVEM	1,@N10423
	JRST	S$$SRT##
;**
;CHAR	CHAR = GETLAB()
L10312:
	JSP	14,S$$STE##
	XWD	^D306,Q10302
	FCALV$	^D0,F10262
	MOVEM	1,@N10312
Q10302:
;	SAVEDC = SAVEDC CHAR ',' STRING '"'	:(RETURN)
	JSP	14,S$$STE##
	XWD	^D307,S$$SRT##
	MOVE	1,@N10425
	PUSH	16,1
	MOVE	1,@N10312
	PUSH	16,1
	MOVE	1,S10181
	PUSH	16,1
	MOVE	1,@N10407
	PUSH	16,1
	MOVE	1,S10191
	JSP	14,S$$CNC##
	EXP	^D5
	MOVEM	1,@N10425
	JRST	S$$SRT##
;**
;ENDOFF	IDTAB = CONVERT(IDTAB,'ARRAY')
L10253:
	JSP	14,S$$STE##
	XWD	^D308,Q10303
	MOVE	1,@N10132
	PUSH	16,1
	MOVE	1,S10063
	FCALV$	^D2,F10062
	MOVEM	1,@N10132
Q10303:
;	OUTPUT =
	JSP	14,S$$STE##
	XWD	^D309,Q10304
	SETZM	@S$$OUT##
Q10304:
;	OUTPUT =
	JSP	14,S$$STE##
	XWD	^D310,Q10305
	SETZM	@S$$OUT##
Q10305:
;	OUTPUT = 'NAME  LOCATN  LEN OFF #REF TYPE'
	JSP	14,S$$STE##
	XWD	^D311,Q10306
	MOVE	1,S10426
	MOVEM	1,@S$$OUT##
Q10306:
;	OUTPUT = REPLACE(OUTPUT,LET,MINUS)
	JSP	14,S$$STE##
	XWD	^D312,Q10307
	MOVE	1,@S$$OUT##
	PUSH	16,1
	MOVE	1,@N10152
	PUSH	16,1
	MOVE	1,@N10156
	FCALV$	^D3,F10083
	MOVEM	1,@S$$OUT##
Q10307:
;	I =
	JSP	14,S$$STE##
	XWD	^D313,Q10308
	SETZM	@N10427
Q10308:
;ENDLP	I = I + 1
L10428:
	JSP	14,S$$STE##
	XWD	^D314,Q10309
	DICNV$	@N10427
	ADD	^D1,K10150
	TLO	1,1B18
	TLZ	1,1B19
	MOVEM	1,@N10427
Q10309:
;	NAME = IDTAB<I,1>		:F(RETURN)
	JSP	14,S$$STE##
	XWD	^D315,S$$SRT##
	MOVE	1,@N10427
	PUSH	16,1
	MOVE	1,I10150
	AREFV$	^D2,N10132
	MOVEM	1,@N10429
;	NAME POS(0) '#'			:S(ENDLP)
	JSP	14,S$$STE##
	XWD	^D316,Q10310
	MOVE	1,@N10429
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D-1,0
	BYTE	(2)2(16)1(18).+1
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,S10387
	JSP	11,S$$MST##
	JSP	11,S$$MTS##
	JRST	L10428
Q10310:
;	ENTRY = IDTAB<I,2>
	JSP	14,S$$STE##
	XWD	^D317,Q10311
	MOVE	1,@N10427
	PUSH	16,1
	MOVE	1,I10205
	AREFV$	^D2,N10132
	MOVEM	1,@N10360
Q10311:
;	NREF = -TAB.MASK(ENTRY)
	JSP	14,S$$STE##
	XWD	^D318,Q10312
	MOVE	1,@N10360
	FCALV$	^D1,F10376
	JSP	14,S$$NEG##
	MOVEM	1,@N10430
Q10312:
;	NREF = LE(NREF,0)
	JSP	14,S$$STE##
	XWD	^D319,Q10313
	MOVE	1,@N10430
	PUSH	16,1
	MOVE	1,I10175
	FCALV$	^D2,F10074
	MOVEM	1,@N10430
Q10313:
;	OUTPUT = RPAD(NAME,6,'.') RPAD(TAB.BASE(ENTRY),8,'.')
;.		RPAD(TAB.LEN(ENTRY),4,'.') RPAD(TAB.OFF(ENTRY),4,'.')
;.		RPAD(NREF,5,'.') TAB.TYPE(ENTRY)
;.					:(ENDLP)
	JSP	14,S$$STE##
	XWD	^D320,L10428
	MOVE	1,@N10429
	PUSH	16,1
	MOVE	1,I10431
	PUSH	16,1
	MOVE	1,S10432
	FCALV$	^D3,F10080
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10299
	PUSH	16,1
	MOVE	1,I10244
	PUSH	16,1
	MOVE	1,S10432
	FCALV$	^D3,F10080
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10433
	PUSH	16,1
	MOVE	1,I10434
	PUSH	16,1
	MOVE	1,S10432
	FCALV$	^D3,F10080
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10301
	PUSH	16,1
	MOVE	1,I10434
	PUSH	16,1
	MOVE	1,S10432
	FCALV$	^D3,F10080
	PUSH	16,1
	MOVE	1,@N10430
	PUSH	16,1
	MOVE	1,I10134
	PUSH	16,1
	MOVE	1,S10432
	FCALV$	^D3,F10080
	PUSH	16,1
	MOVE	1,@N10360
	FCALV$	^D1,F10374
	JSP	14,S$$CNC##
	EXP	^D6
	MOVEM	1,@S$$OUT##
	JRST	L10428
;**
;CALL				:($SUBROUT)
L10255:
	JSP	14,S$$STE##
	XWD	^D321,Q10314
Q10314:
	MOVEI 14,S$$BGT##
	MOVEM 14,S$$FLP##
	MOVE	1,@N10435
	JSP 14,S$$ILB##
;********
;** OPTIMIZATION
;********
;**
;CKREG	LREG = IDENT(ADDR,'REG') DIFFER(SW.REG)
;.		BASE.REG		:S(FRETURN)
L10401:
	JSP	14,S$$STE##
	XWD	^D322,Q10315
	MOVE	1,@N10362
	PUSH	16,1
	MOVE	1,S10395
	FCALV$	^D2,F10072
	PUSH	16,1
	MOVE	1,@N10208
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10436
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@N10396
	JRST	S$$FRT##
Q10315:
;	DIFFER(SW.OPT1) 		:F(RETURN)
	JSP	14,S$$STE##
	XWD	^D323,S$$SRT##
	MOVE	1,@N10437
	FCALV$	^D1,F10071
;	ADDR POS(0) ANY(LET)		:F(RETURN)
	JSP	14,S$$STE##
	XWD	^D324,S$$SRT##
	MOVE	1,@N10362
	PUSH	16,1
	MOVE	1,@N10152
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	JSP	11,S$$MTS##
;	INREG '"' ADDR ',' BREAK('"') . LREG	:S(FRETURN)F(RETURN)
	JSP	14,S$$STE##
	XWD	^D325,S$$SRT##
	MOVE	1,@N10438
	PUSH	16,1
	MOVE	1,@N10362
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,S10191
	JSP	11,S$$MST##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,S10181
	JSP	11,S$$MST##
	JSP	11,S$$VAS##
	MOVEI	1,B10191
	JSP	11,S$$BRK##
	MOVE	1,N10396
	JSP	11,S$$CVA##
	JSP	11,S$$MTS##
	JRST	S$$FRT##
;**
;PUTREG	OFFREG(R)
L10403:
	JSP	14,S$$STE##
	XWD	^D326,Q10316
	MOVE	1,@N10399
	FCALV$	^D1,F10439
Q10316:
;	INREG = INREG ADDR ',' R '"'	:(RETURN)
	JSP	14,S$$STE##
	XWD	^D327,S$$SRT##
	MOVE	1,@N10438
	PUSH	16,1
	MOVE	1,@N10362
	PUSH	16,1
	MOVE	1,S10181
	PUSH	16,1
	MOVE	1,@N10399
	PUSH	16,1
	MOVE	1,S10191
	JSP	14,S$$CNC##
	EXP	^D5
	MOVEM	1,@N10438
	JRST	S$$SRT##
;**
;OFFREG	INREG '"' BREAK(',') ',' R =	:F(RETURN)S(OFFREG)
L10439:
	JSP	14,S$$STE##
	XWD	^D328,S$$SRT##
	MOVE	1,@N10438
	PUSH	16,1
	MOVE	1,@N10399
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,S10191
	JSP	11,S$$MST##
	MOVEI	1,B10181
	JSP	11,S$$BRK##
	MOVE	1,S10181
	JSP	11,S$$MST##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10438
	JRST	L10439
;**
;CLRREG	INREG = '"'			:(RETURN)
L10210:
	JSP	14,S$$STE##
	XWD	^D329,S$$SRT##
	MOVE	1,S10191
	MOVEM	1,@N10438
	JRST	S$$SRT##
;**
;OFFLOC	INREG '"' LOC ',' BREAK('"') =	:F(RETURN)S(OFFLOC)
L10440:
	JSP	14,S$$STE##
	XWD	^D330,S$$SRT##
	MOVE	1,@N10438
	PUSH	16,1
	MOVE	1,@N10441
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,S10191
	JSP	11,S$$MST##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	MOVE	1,S10181
	JSP	11,S$$MST##
	MOVEI	1,B10191
	JSP	11,S$$BRK##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10438
	JRST	L10440
;**
;CKSBSET OFF = 0 ; RT = RIGHT
L10330:
	JSP	14,S$$STE##
	XWD	^D331,Q10317
	MOVE	1,I10175
	MOVEM	1,@N10197
Q10317:
	JSP	14,S$$STE##
	XWD	^D332,Q10318
	MOVE	1,@N10185
	MOVEM	1,@N10442
Q10318:
;	RT POS(0) LEFT =		:F(FRETURN)
	JSP	14,S$$STE##
	XWD	^D333,S$$FRT##
	MOVE	1,@N10442
	PUSH	16,1
	MOVE	1,@N10182
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	HRRZ	1,K10175
	HRRZ	2,@S$$SJC##
	SUBI	2,(1)
	CAIE	2,(13)
	POPJ	16,
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10442
;CKBLK	RT GET.VAR.X =			:F(FRETURN)
L10443:
	JSP	14,S$$STE##
	XWD	^D334,S$$FRT##
	MOVE	1,@N10442
	PUSH	16,1
	MOVE	1,@N10227
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$MTX##
	XWD	^D2,0
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	JSP	11,S$$RPS##
	SETZ	1,
	JSP	14,S$$RPL##
	MOVEM	1,@N10442
;	ENTRY.X = IDTAB<X>
	JSP	14,S$$STE##
	XWD	^D335,Q10319
	MOVE	1,@N10228
	AREFV$	^D1,N10132
	MOVEM	1,@N10444
Q10319:
;	( DIFFER(ENTRY.X) CKTYPET(TF,'B',TAB.TYPE(ENTRY.X)) )
;.					:F(FRETURN)
	JSP	14,S$$STE##
	XWD	^D336,S$$FRT##
	MOVE	1,@N10444
	FCALV$	^D1,F10071
	PUSH	16,1
	MOVE	1,@N10204
	PUSH	16,1
	MOVE	1,S10141
	PUSH	16,1
	MOVE	1,@N10444
	FCALV$	^D1,F10374
	FCALV$	^D3,F10445
	JSP	14,S$$CNC##
	EXP	^D2
;	OFF = OFF + TAB.OFF(ENTRY.X)
	JSP	14,S$$STE##
	XWD	^D337,Q10320
	MOVE	1,@N10197
	PUSH	16,1
	MOVE	1,@N10444
	FCALV$	^D1,F10301
	JSP	14,S$$ADD##
	MOVEM	1,@N10197
Q10320:
;	DIFFER(RT)			:S(CKBLK)
	JSP	14,S$$STE##
	XWD	^D338,Q10321
	MOVE	1,@N10442
	FCALV$	^D1,F10071
	JRST	L10443
Q10321:
;	RIGHT = OFF			:(RETURN)
	JSP	14,S$$STE##
	XWD	^D339,S$$SRT##
	MOVE	1,@N10197
	MOVEM	1,@N10185
	JRST	S$$SRT##
;**
Q10003=Q10002+3
	JRST	S$$SXT##
Q10001:	BLOCK	^D2
K10088:	EXP	^D9999999
I10133:	EXP	^D10!1B0
I10134:	EXP	^D5!1B0
K10150:	EXP	^D1
I10150:	EXP	^D1!1B0
I10158:	EXP	^D28!1B0
K10175:	EXP	^D0
I10175:	EXP	^D0!1B0
I10205:	EXP	^D2!1B0
I10207:	EXP	^D3!1B0
I10231:	EXP	^D100!1B0
K10244:	EXP	^D8
I10244:	EXP	^D8!1B0
K10245:	EXP	^D72
I10420:	EXP	^D7!1B0
I10431:	EXP	^D6!1B0
I10434:	EXP	^D4!1B0
A10029:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LEN'
A10030:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'TAB'
A10032:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'POS'
A10044:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DATE'
S10048:	POINT	7,A10048,35
A10048:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'INTEGER'
A10051:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'TRIM'
A10060:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DATA'
A10062:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CONVERT'
S10063:	POINT	7,A10063,35
A10063:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ARRAY'
A10064:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'TABLE'
A10065:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DUPL'
A10066:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DEFINE'
A10071:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DIFFER'
A10072:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'IDENT'
A10073:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LT'
A10074:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LE'
A10075:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'EQ'
A10078:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'GT'
A10080:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'RPAD'
A10083:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'REPLACE'
A10085:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'.MAIN.'
A10086:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'VER'
S10087:	POINT	7,A10087,35
A10087:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'6.0.'
S10089:	POINT	7,A10089,35
A10089:	BYTE	(2)2(16)^D4+1(18)^D16
	ASCII	'ASS(T1,T2,T3,T4)'
S10090:	POINT	7,A10090,35
A10090:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'ASSNL(T2,T3,T4)T1'
A10091:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ASS'
S10092:	POINT	7,A10092,35
A10092:	BYTE	(2)2(16)^D3+1(18)^D13
	ASCII	'CALL(SUBROUT)'
S10093:	POINT	7,A10093,35
A10093:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'CALLSRT()'
S10094:	POINT	7,A10094,35
A10094:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'CHAR(STRING)'
S10095:	POINT	7,A10095,35
A10095:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'CKSBSET()'
S10096:	POINT	7,A10096,35
A10096:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CKREG()'
S10097:	POINT	7,A10097,35
A10097:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'CKREGD()'
S10098:	POINT	7,A10098,35
A10098:	BYTE	(2)2(16)^D4+1(18)^D16
	ASCII	'CKTYPE(POS,CHAR)'
S10099:	POINT	7,A10099,35
A10099:	BYTE	(2)2(16)^D5+1(18)^D22
	ASCII	'CKTYPET(POS,CHAR,TYPE)'
A10100:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'CKTYPE'
S10101:	POINT	7,A10101,35
A10101:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'CLRREG()'
S10102:	POINT	7,A10102,35
A10102:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'COMMENT(STATE)'
S10103:	POINT	7,A10103,35
A10103:	BYTE	(2)2(16)^D4+1(18)^D20
	ASCII	'COMPILE()ADDR,THISOP'
S10104:	POINT	7,A10104,35
A10104:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'COMPLR()'
S10105:	POINT	7,A10105,35
A10105:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'COMPOP()'
S10106:	POINT	7,A10106,35
A10106:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'DEC2OCT(N)'
S10107:	POINT	7,A10107,35
A10107:	BYTE	(2)2(16)^D4+1(18)^D16
	ASCII	'DO.CALL(OPERAND)'
S10108:	POINT	7,A10108,35
A10108:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'DS(BASE,LEN)'
S10109:	POINT	7,A10109,35
A10109:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'ENDOFF()'
S10110:	POINT	7,A10110,35
A10110:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'ERROR(MESS,ETYPE)'
S10111:	POINT	7,A10111,35
A10111:	BYTE	(2)2(16)^D5+1(18)^D21
	ASCII	'FILLTAB(FILLTAB,TEMP)'
S10112:	POINT	7,A10112,35
A10112:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'FLIP()'
S10113:	POINT	7,A10113,35
A10113:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'GEN()'
S10114:	POINT	7,A10114,35
A10114:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'GENCALL(LOC)'
S10115:	POINT	7,A10115,35
A10115:	BYTE	(2)2(16)^D3+1(18)^D13
	ASCII	'GENLAB(LABEL)'
S10116:	POINT	7,A10116,35
A10116:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'GENLD()'
S10117:	POINT	7,A10117,35
A10117:	BYTE	(2)2(16)^D3+1(18)^D15
	ASCII	'GENLOAD(R,ADDR)'
S10118:	POINT	7,A10118,35
A10118:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'GENLOG(OP,LOC)'
S10119:	POINT	7,A10119,35
A10119:	BYTE	(2)2(16)^D6+1(18)^D30
	ASCII	'GETCONT(PARM,WHEN)BASELOC,LREG'
S10120:	POINT	7,A10120,35
A10120:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'GETLAB()'
S10121:	POINT	7,A10121,35
A10121:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'GETREG()'
S10122:	POINT	7,A10122,35
A10122:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'GETTYPE(POS)'
S10123:	POINT	7,A10123,35
A10123:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'INIT()'
S10124:	POINT	7,A10124,35
A10124:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'OFFLOC(LOC)'
S10125:	POINT	7,A10125,35
A10125:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'OFFREG(R)'
S10126:	POINT	7,A10126,35
A10126:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'PUT(STRING)'
S10127:	POINT	7,A10127,35
A10127:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'PUTREG(R,ADDR)'
S10128:	POINT	7,A10128,35
A10128:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'RADIX(RADIX)'
S10129:	POINT	7,A10129,35
A10129:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'SETTYPE(POS,CHAR)'
S10130:	POINT	7,A10130,35
A10130:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'STATSRT()'
S10131:	POINT	7,A10131,35
A10131:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'TABSTM()'
A10132:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'IDTAB'
S10135:	POINT	7,A10135,35
A10135:	BYTE	(2)2(16)^D12+1(18)^D56
	ASCII	'ID(TAB.LEN,TAB.OFF,TAB.TYPE,TAB.BASE,TAB.MASK,TAB.RANGE)'
A10136:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'REENT.OFF'
A10137:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DSCONT'
A10138:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BLANK'
S10139:	POINT	7,A10139,35
A10139:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	' '
A10140:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'CB'
A10141:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'B'
A10142:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'NULL'
A10143:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'DIGIT'
S10144:	POINT	7,A10144,35
A10144:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'0123456789'
A10145:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'NUMB'
A10146:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'LITERAL'
B10147:	EXP	^D0
	XWD	^D0,^D8
	XWD	^D0,^D0
	XWD	^D0,^D4
A10147:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'+-'
S10148:	POINT	7,A10148,35
A10148:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'='
B10149:	EXP	^D0
	XWD	^D0,^D256
	XWD	^D0,^D0
	XWD	^D0,^D256
A10149:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'AC'
A10151:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'T1'
A10152:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LET'
S10153:	POINT	7,A10153,35
A10153:	BYTE	(2)2(16)^D6+1(18)^D28
	ASCII	'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$'
A10154:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'AVAR'
A10155:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'VAR'
A10156:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'MINUS'
S10157:	POINT	7,A10157,35
A10157:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'-'
A10159:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'OPS'
A10160:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'DO'
A10161:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'IFANY'
A10162:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'IF'
A10163:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'BFIELDE'
A10164:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'FIELD'
A10165:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'BBLOCKE'
A10166:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BLOCK'
S10167:	POINT	7,A10167,35
A10167:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BEGIN'
S10168:	POINT	7,A10168,35
A10168:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'FINISH'
S10169:	POINT	7,A10169,35
A10169:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'YBLOCKE'
A10170:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'BBLOCK'
A10171:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'BFIELD'
A10172:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'YBLOCK'
A10173:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CALLS'
A10174:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'CARD.PARSE'
A10176:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'LABEL'
A10177:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'OPCODE'
A10178:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'OPERAND'
A10179:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'OPER.PARSE'
S10180:	POINT	7,A10180,35
A10180:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'('
B10181:	EXP	^D8
	XWD	^D0,^D0
	XWD	^D0,^D0
	XWD	^D0,^D0
S10181:	POINT	7,A10181,35
A10181:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	','
A10182:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LEFT'
A10183:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'OPR'
B10184:	EXP	^D0
	XWD	^D0,^D4
	XWD	^D0,^D0
	XWD	^D0,^D0
S10184:	POINT	7,A10184,35
A10184:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	')'
A10185:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'RIGHT'
A10186:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'CALL.PARSE'
A10187:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'SUB'
S10188:	POINT	7,A10188,35
A10188:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	',('
A10189:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'ARGS'
A10190:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'BREAK.TAB'
B10191:	EXP	^D0
	XWD	^D0,^D0
	XWD	^D0,^D1
	XWD	^D0,^D0
S10191:	POINT	7,A10191,35
A10191:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'"'
A10192:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'T2'
A10193:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'BFIELD.PARSE'
A10194:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'N1'
A10195:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'BASE'
A10196:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'FIELD.PARSE'
A10197:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'OFF'
A10198:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LOW'
A10199:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'HIGH'
A10200:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'BLOCK.PARSE'
A10201:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'BBLOCK.PARSE'
A10202:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LF'
A10203:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'BF'
A10204:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'TF'
A10206:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'DF'
A10208:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SW.REG'
S10209:	POINT	7,A10209,35
A10209:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'1'
A10210:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'CLRREG'
A10211:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'INIT'
A10212:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'SCSC'
A10213:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'SC'
A10214:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'BRANCH'
A10215:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'LOGOP'
S10216:	POINT	7,A10216,35
A10216:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'<>'
S10217:	POINT	7,A10217,35
A10217:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'VERSION '
S10218:	POINT	7,A10218,35
A10218:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'	'
S10219:	POINT	7,A10219,35
A10219:	BYTE	(2)2(16)^D4+1(18)^D19
	ASCII	'   WECO<-ERC<-STONE'
A10220:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMMENT'
A10221:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'SWITCH.CK'
S10222:	POINT	7,A10222,35
A10222:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'*'
S10223:	POINT	7,A10223,35
A10223:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'+'
A10224:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'GET.THIS.OP'
A10225:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'THISOP'
A10226:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'CK.LIT'
A10227:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'GET.VAR.X'
A10228:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'X'
S10229:	POINT	7,A10229,35
A10229:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'#1'
A10230:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'ID'
S10232:	POINT	7,A10232,35
A10232:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'WBB-'
S10233:	POINT	7,A10233,35
A10233:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'#2'
A10234:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'ADDR.WORD'
S10235:	POINT	7,A10235,35
A10235:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'W-B-'
S10236:	POINT	7,A10236,35
A10236:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'#3'
S10237:	POINT	7,A10237,35
A10237:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'WBF-'
S10238:	POINT	7,A10238,35
A10238:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'3'
S10239:	POINT	7,A10239,35
A10239:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'#4'
S10240:	POINT	7,A10240,35
A10240:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'4'
A10241:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LOOP'
A10242:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CARD'
A10243:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'STATENO'
A10246:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CKSW'
A10247:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'TRYCOM'
S10248:	POINT	7,A10248,35
A10248:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'SW.'
B10249:	EXP	^D0
	XWD	^D0,^D0
	XWD	^D0,^D4
	XWD	^D0,^D72
A10249:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'*/;'
A10250:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'ASSEMC'
A10251:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'ASSEMB'
A10252:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'THENSW'
A10253:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'ENDOFF'
A10254:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'STATSRT'
A10255:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CALL'
A10256:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'PUT'
A10257:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPILE'
A10258:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BTYPE'
A10259:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'Y'
A10260:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'IFANY2'
A10261:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LAB1'
A10262:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GETLAB'
A10263:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LAB2'
A10264:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LLAB'
A10265:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'IFANY1'
A10266:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GENLAB'
A10267:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ERROR'
S10268:	POINT	7,A10268,35
A10268:	BYTE	(2)2(16)^D3+1(18)^D13
	ASCII	'NO THEN IN IF'
A10269:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'N'
A10270:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'T'
A10271:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'TB'
S10272:	POINT	7,A10272,35
A10272:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'Y-B-'
A10273:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'YBBLOCK'
S10274:	POINT	7,A10274,35
A10274:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'YBB-'
S10275:	POINT	7,A10275,35
A10275:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'WBFE'
S10276:	POINT	7,A10276,35
A10276:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'WBBE'
S10277:	POINT	7,A10277,35
A10277:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'--F-'
A10278:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'TYPE'
S10279:	POINT	7,A10279,35
A10279:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'E'
S10280:	POINT	7,A10280,35
A10280:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'.PARSE'
A10281:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'TABSTOR'
S10282:	POINT	7,A10282,35
A10282:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SYNTAX'
A10283:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'WSIZE'
A10284:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'RANGE'
A10285:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SETTYPE'
S10286:	POINT	7,A10286,35
A10286:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'W'
A10287:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'HSIZE'
S10288:	POINT	7,A10288,35
A10288:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'H'
A10289:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BSIZE'
S10290:	POINT	7,A10290,35
A10290:	BYTE	(2)2(16)^D5+1(18)^D24
	ASCII	'WARNING..NON-BASED LEN>1'
S10291:	POINT	7,A10291,35
A10291:	BYTE	(2)2(16)^D6+1(18)^D28
	ASCII	'ILLEGAL RANGE...BYTE ASSUMED'
A10292:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'TABSTM'
A10293:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'DS'
A10294:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'MASK'
A10295:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'DO.CALL'
A10296:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ERR'
A10297:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CALLLAB'
A10298:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'NARG'
A10299:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'TAB.BASE'
A10300:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'TP2'
A10301:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'TAB.OFF'
A10302:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'SW.REENT'
A10303:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'TOTSTORE'
A10304:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CALLSRT'
A10305:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'CALLLP'
A10306:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ARG'
A10307:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CALLEND'
S10308:	POINT	7,A10308,35
A10308:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'(#1#2,<-[,'
A10309:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'GENCALL'
S10310:	POINT	7,A10310,35
A10310:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'=C'
A10311:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	"=A'"
A10312:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CHAR'
A10313:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	"'"
A10314:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPERR'
A10315:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'COMP1'
S10316:	POINT	7,A10316,35
A10316:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'THEN'
A10317:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'O.THEN'
S10318:	POINT	7,A10318,35
A10318:	BYTE	(2)2(16)^D3+1(18)^D13
	ASCII	'FUNNY OPERAND'
S10319:	POINT	7,A10319,35
A10319:	BYTE	(2)2(16)^D4+1(18)^D18
	ASCII	'INCORRECT OPERAND:'
A10320:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SAVECOM'
A10321:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'O.LOG'
A10322:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'OP'
A10323:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'JUMPLOC'
A10324:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'GOTOP'
S10325:	POINT	7,A10325,35
A10325:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'<-<-'
S10326:	POINT	7,A10326,35
A10326:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'->->'
A10327:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPUN1'
S10328:	POINT	7,A10328,35
A10328:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'<-[/'
A10329:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'COMPUN'
A10330:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CKSBSET'
A10331:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMFULL'
A10332:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'COMPLS'
A10333:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'COMMUL'
S10334:	POINT	7,A10334,35
A10334:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'(#4,<-,'
S10335:	POINT	7,A10335,35
A10335:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'),'
S10336:	POINT	7,A10336,35
A10336:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'(#4,*,'
S10337:	POINT	7,A10337,35
A10337:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'),('
S10338:	POINT	7,A10338,35
A10338:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	',+,#4),'
S10339:	POINT	7,A10339,35
A10339:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'(#3,<-[,'
S10340:	POINT	7,A10340,35
A10340:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'),(#4,<-[,'
S10341:	POINT	7,A10341,35
A10341:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'),(#4,-,#3),'
A10342:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPUN2'
S10343:	POINT	7,A10343,35
A10343:	BYTE	(2)2(16)^D5+1(18)^D22
	ASCII	'UNDEFINED OPERATION...'
S10344:	POINT	7,A10344,35
A10344:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'GOTO'
A10345:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'O.GOTO'
S10346:	POINT	7,A10346,35
A10346:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'<-['
A10347:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'COMPLR'
A10348:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'OPGO'
S10349:	POINT	7,A10349,35
A10349:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'O.'
A10350:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GENLOG'
A10351:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'O.LOGOK'
S10352:	POINT	7,A10352,35
A10352:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'><'
A10353:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'COMPOP'
A10354:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'O.LOG1'
S10355:	POINT	7,A10355,35
A10355:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'UNDEF RELATION OP'
S10356:	POINT	7,A10356,35
A10356:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'\'
A10357:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPOP1'
A10358:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'GETCONT'
A10359:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'L.ENTRY'
A10360:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ENTRY'
A10361:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'L.ADDR'
A10362:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'ADDR'
A10363:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'L.TYPE'
A10364:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'L.F'
A10365:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'GETTYPE'
A10366:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'R.ENTRY'
A10367:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'R.ADDR'
A10368:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'R.TYPE'
A10369:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'R.F'
A10370:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COMPLR1'
A10371:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SW.CONV'
S10372:	POINT	7,A10372,35
A10372:	BYTE	(2)2(16)^D6+1(18)^D27
	ASCII	'LEFT AND RIGHT SIZES DIFFER'
S10373:	POINT	7,A10373,35
A10373:	BYTE	(2)2(16)^D9+1(18)^D44
	ASCII	'WARNING...LEFT SIZE CHANGED TO SIZE OF RIGHT'
A10374:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'TAB.TYPE'
A10375:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'TAB.RANGE'
A10376:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'TAB.MASK'
A10377:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LR'
A10378:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'CHAR.CNT'
A10379:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'LOAD.CNT'
A10380:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'PARM'
A10381:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'GETC'
A10382:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GETERR'
A10383:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'WHEN'
S10384:	POINT	7,A10384,35
A10384:	BYTE	(2)2(16)^D4+1(18)^D19
	ASCII	'LITERAL ON THE LEFT'
A10385:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CKCCH'
S10386:	POINT	7,A10386,35
A10386:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'=A'
S10387:	POINT	7,A10387,35
A10387:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'#'
A10388:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'RADIX'
S10389:	POINT	7,A10389,35
A10389:	BYTE	(2)2(16)^D4+1(18)^D18
	ASCII	'STRANGE OPERAND...'
A10390:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'GEN'
S10391:	POINT	7,A10391,35
A10391:	BYTE	(2)2(16)^D4+1(18)^D20
	ASCII	'UNDEFINED ELEMENT...'
S10392:	POINT	7,A10392,35
A10392:	BYTE	(2)2(16)^D3+1(18)^D15
	ASCII	'MISPLACED BASE:'
A10393:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GEBASE'
A10394:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'BASELOC'
S10395:	POINT	7,A10395,35
A10395:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'REG'
A10396:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LREG'
A10397:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'REENT.REG'
A10398:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'GENLD'
A10399:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'R'
A10400:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'GETREG'
A10401:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CKREG'
A10402:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'CKREGD'
A10403:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'PUTREG'
A10404:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'GENLOAD'
A10405:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'NOOFF'
A10406:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'PUNCH'
A10407:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'STRING'
A10408:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'FILLTAB'
A10409:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'TEMP'
A10410:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'MESS'
S10411:	POINT	7,A10411,35
A10411:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	':'
A10412:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'TTYOUT'
A10413:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CRLF'
S10414:	POINT	7,A10414,35
A10414:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'ERROR-'
S10415:	POINT	7,A10415,35
A10415:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'**********'
A10416:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'DEC2OCT'
A10417:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'MAXSIZE'
S10418:	POINT	7,A10418,35
A10418:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'GT MAX SIZE...'
A10419:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'D2O'
A10421:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'FLIP'
A10422:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'L.CNT'
A10423:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SAVEDS'
A10424:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DSNR'
A10425:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SAVEDC'
S10426:	POINT	7,A10426,35
A10426:	BYTE	(2)2(16)^D7+1(18)^D31
	ASCII	'NAME  LOCATN  LEN OFF #REF TYPE'
A10427:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'I'
A10428:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ENDLP'
A10429:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'NAME'
A10430:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'NREF'
S10432:	POINT	7,A10432,35
A10432:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'.'
A10433:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'TAB.LEN'
A10435:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SUBROUT'
A10436:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'BASE.REG'
A10437:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SW.OPT1'
A10438:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'INREG'
A10439:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'OFFREG'
A10440:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'OFFLOC'
A10441:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LOC'
A10442:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'RT'
A10443:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CKBLK'
A10444:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'ENTRY.X'
A10445:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CKTYPET'
Q10322:	BYTE	(2)2(16)^D130+1(18)0
	REPEAT	^D130,<0>
Q10323:	BYTE	(2)2(16)^D265*4+1(18)-^D265
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10445,35
F10445:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10444,35
N10444:	BYTE	(4)4(14)0(18)Q10322+^D130
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10443,35
	JRST	L10443
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10442,35
N10442:	BYTE	(4)4(14)0(18)Q10322+^D129
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10441,35
N10441:	BYTE	(4)4(14)0(18)Q10322+^D128
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10440,35
	JRST	L10440
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10439,35
F10439:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10439,35
	JRST	L10439
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10438,35
N10438:	BYTE	(4)4(14)0(18)Q10322+^D127
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10437,35
N10437:	BYTE	(4)4(14)0(18)Q10322+^D126
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10436,35
N10436:	BYTE	(4)4(14)0(18)Q10322+^D125
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10435,35
N10435:	BYTE	(4)4(14)0(18)Q10322+^D124
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10433,35
F10433:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10430,35
N10430:	BYTE	(4)4(14)0(18)Q10322+^D123
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10429,35
N10429:	BYTE	(4)4(14)0(18)Q10322+^D122
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10428,35
	JRST	L10428
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10427,35
N10427:	BYTE	(4)4(14)0(18)Q10322+^D121
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10425,35
N10425:	BYTE	(4)4(14)0(18)Q10322+^D120
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10424,35
	JRST	L10424
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10423,35
N10423:	BYTE	(4)4(14)0(18)Q10322+^D119
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10422,35
N10422:	BYTE	(4)4(14)0(18)Q10322+^D118
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10421,35
	JRST	L10421
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10419,35
	JRST	L10419
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10417,35
N10417:	BYTE	(4)4(14)0(18)Q10322+^D117
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10416,35
F10416:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10416,35
	JRST	L10416
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10416,35
N10416:	BYTE	(4)4(14)0(18)Q10322+^D116
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10413,35
N10413:	BYTE	(4)4(14)0(18)Q10322+^D115
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10412,35
N10412:	BYTE	(4)4(14)0(18)Q10322+^D114
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10410,35
N10410:	BYTE	(4)4(14)0(18)Q10322+^D113
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10409,35
N10409:	BYTE	(4)4(14)0(18)Q10322+^D112
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10408,35
	JRST	L10408
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10408,35
N10408:	BYTE	(4)4(14)0(18)Q10322+^D111
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10407,35
N10407:	BYTE	(4)4(14)0(18)Q10322+^D110
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10406,35
N10406:	BYTE	(4)4(14)0(18)Q10322+^D109
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10405,35
	JRST	L10405
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10404,35
F10404:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10403,35
F10403:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10403,35
	JRST	L10403
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10402,35
F10402:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10401,35
F10401:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10401,35
	JRST	L10401
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10400,35
F10400:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10399,35
N10399:	BYTE	(4)4(14)0(18)Q10322+^D108
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10398,35
F10398:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10398,35
	JRST	L10398
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10397,35
N10397:	BYTE	(4)4(14)0(18)Q10322+^D107
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10396,35
N10396:	BYTE	(4)4(14)0(18)Q10322+^D106
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10394,35
N10394:	BYTE	(4)4(14)0(18)Q10322+^D105
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10393,35
	JRST	L10393
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10390,35
F10390:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10390,35
	JRST	L10390
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10388,35
F10388:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10385,35
	JRST	L10385
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10383,35
N10383:	BYTE	(4)4(14)0(18)Q10322+^D104
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10382,35
	JRST	L10382
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10381,35
	JRST	L10381
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10380,35
N10380:	BYTE	(4)4(14)0(18)Q10322+^D103
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10379,35
N10379:	BYTE	(4)4(14)0(18)Q10322+^D102
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10378,35
N10378:	BYTE	(4)4(14)0(18)Q10322+^D101
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10377,35
N10377:	BYTE	(4)4(14)0(18)Q10322+^D100
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10376,35
F10376:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10375,35
F10375:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10374,35
F10374:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10371,35
N10371:	BYTE	(4)4(14)0(18)Q10322+^D99
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10370,35
	JRST	L10370
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10369,35
N10369:	BYTE	(4)4(14)0(18)Q10322+^D98
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10368,35
N10368:	BYTE	(4)4(14)0(18)Q10322+^D97
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10367,35
N10367:	BYTE	(4)4(14)0(18)Q10322+^D96
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10366,35
N10366:	BYTE	(4)4(14)0(18)Q10322+^D95
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10365,35
F10365:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10365,35
	JRST	L10365
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10365,35
N10365:	BYTE	(4)4(14)0(18)Q10322+^D94
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10364,35
N10364:	BYTE	(4)4(14)0(18)Q10322+^D93
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10363,35
N10363:	BYTE	(4)4(14)0(18)Q10322+^D92
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10362,35
N10362:	BYTE	(4)4(14)0(18)Q10322+^D91
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10361,35
N10361:	BYTE	(4)4(14)0(18)Q10322+^D90
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10360,35
N10360:	BYTE	(4)4(14)0(18)Q10322+^D89
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10359,35
N10359:	BYTE	(4)4(14)0(18)Q10322+^D88
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10358,35
F10358:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10358,35
	JRST	L10358
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10357,35
	JRST	L10357
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10354,35
	JRST	L10354
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10353,35
F10353:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10353,35
	JRST	L10353
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10353,35
N10353:	BYTE	(4)4(14)0(18)Q10322+^D87
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10351,35
	JRST	L10351
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10350,35
F10350:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10348,35
N10348:	BYTE	(4)4(14)0(18)Q10322+^D86
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10347,35
F10347:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10347,35
	JRST	L10347
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10345,35
L10345:		UFERR$	^D8,S$$PGL##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10342,35
	JRST	L10342
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10333,35
	JRST	L10333
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10332,35
	JRST	L10332
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10331,35
	JRST	L10331
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10330,35
F10330:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10330,35
	JRST	L10330
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10329,35
	JRST	L10329
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10327,35
	JRST	L10327
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10324,35
	JRST	L10324
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10323,35
N10323:	BYTE	(4)4(14)0(18)Q10322+^D85
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10322,35
N10322:	BYTE	(4)4(14)0(18)Q10322+^D84
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10321,35
	JRST	L10321
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10320,35
N10320:	BYTE	(4)4(14)0(18)Q10322+^D83
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10317,35
	JRST	L10317
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10315,35
	JRST	L10315
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10314,35
	JRST	L10314
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10312,35
F10312:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10312,35
	JRST	L10312
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10312,35
N10312:	BYTE	(4)4(14)0(18)Q10322+^D82
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10309,35
F10309:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10307,35
	JRST	L10307
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10306,35
N10306:	BYTE	(4)4(14)0(18)Q10322+^D81
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10305,35
	JRST	L10305
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10304,35
F10304:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10303,35
N10303:	BYTE	(4)4(14)0(18)Q10322+^D80
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10302,35
N10302:	BYTE	(4)4(14)0(18)Q10322+^D79
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10301,35
F10301:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10300,35
N10300:	BYTE	(4)4(14)0(18)Q10322+^D78
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10299,35
F10299:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10298,35
N10298:	BYTE	(4)4(14)0(18)Q10322+^D77
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10297,35
N10297:	BYTE	(4)4(14)0(18)Q10322+^D76
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10296,35
	JRST	L10296
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10295,35
F10295:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10295,35
	JRST	L10295
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10294,35
N10294:	BYTE	(4)4(14)0(18)Q10322+^D75
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10293,35
F10293:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10293,35
	JRST	L10293
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10292,35
F10292:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10289,35
N10289:	BYTE	(4)4(14)0(18)Q10322+^D74
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10287,35
N10287:	BYTE	(4)4(14)0(18)Q10322+^D73
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10285,35
F10285:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10285,35
	JRST	L10285
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10284,35
N10284:	BYTE	(4)4(14)0(18)Q10322+^D72
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10283,35
N10283:	BYTE	(4)4(14)0(18)Q10322+^D71
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10281,35
	JRST	L10281
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10278,35
N10278:	BYTE	(4)4(14)0(18)Q10322+^D70
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10273,35
	JRST	L10273
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10271,35
	JRST	L10271
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10270,35
N10270:	BYTE	(4)4(14)0(18)Q10322+^D69
	EXP	0
	BYTE	(5)1(31)0
S10269:	POINT	7,A10269,35
N10269:	BYTE	(4)4(14)0(18)Q10322+^D68
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10267,35
F10267:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10267,35
	JRST	L10267
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10266,35
F10266:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10266,35
	JRST	L10266
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10265,35
	JRST	L10265
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10264,35
N10264:	BYTE	(4)4(14)0(18)Q10322+^D67
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10263,35
N10263:	BYTE	(4)4(14)0(18)Q10322+^D66
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10262,35
F10262:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10262,35
	JRST	L10262
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10262,35
N10262:	BYTE	(4)4(14)0(18)Q10322+^D65
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10261,35
N10261:	BYTE	(4)4(14)0(18)Q10322+^D64
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10260,35
	JRST	L10260
	EXP	0
	BYTE	(5)1(31)0
S10259:	POINT	7,A10259,35
N10259:	BYTE	(4)4(14)0(18)Q10322+^D63
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10258,35
N10258:	BYTE	(4)4(14)0(18)Q10322+^D62
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10257,35
F10257:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10257,35
	JRST	L10257
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10256,35
F10256:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10256,35
	JRST	L10256
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10255,35
F10255:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10255,35
	JRST	L10255
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10254,35
F10254:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10253,35
F10253:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10253,35
	JRST	L10253
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10252,35
N10252:	BYTE	(4)4(14)0(18)Q10322+^D61
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10251,35
	JRST	L10251
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10250,35
	JRST	L10250
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10247,35
	JRST	L10247
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10246,35
	JRST	L10246
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10243,35
N10243:	BYTE	(4)4(14)0(18)Q10322+^D60
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10242,35
N10242:	BYTE	(4)4(14)0(18)Q10322+^D59
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10241,35
	JRST	L10241
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10234,35
N10234:	BYTE	(4)4(14)0(18)Q10322+^D58
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10230,35
F10230:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10228,35
N10228:	BYTE	(4)4(14)0(18)Q10322+^D57
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10227,35
N10227:	BYTE	(4)4(14)0(18)Q10322+^D56
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10226,35
N10226:	BYTE	(4)4(14)0(18)Q10322+^D55
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10225,35
N10225:	BYTE	(4)4(14)0(18)Q10322+^D54
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10224,35
N10224:	BYTE	(4)4(14)0(18)Q10322+^D53
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10221,35
N10221:	BYTE	(4)4(14)0(18)Q10322+^D52
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10220,35
F10220:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10215,35
N10215:	BYTE	(4)4(14)0(18)Q10322+^D51
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10214,35
N10214:	BYTE	(4)4(14)0(18)Q10322+^D50
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10213,35
N10213:	BYTE	(4)4(14)0(18)Q10322+^D49
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10212,35
N10212:	BYTE	(4)4(14)0(18)Q10322+^D48
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10211,35
F10211:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10210,35
F10210:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10210,35
	JRST	L10210
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10208,35
N10208:	BYTE	(4)4(14)0(18)Q10322+^D47
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10206,35
N10206:	BYTE	(4)4(14)0(18)Q10322+^D46
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10204,35
N10204:	BYTE	(4)4(14)0(18)Q10322+^D45
	EXP	0
	BYTE	(5)1(31)0
S10203:	POINT	7,A10203,35
N10203:	BYTE	(4)4(14)0(18)Q10322+^D44
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10202,35
N10202:	BYTE	(4)4(14)0(18)Q10322+^D43
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10201,35
N10201:	BYTE	(4)4(14)0(18)Q10322+^D42
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10200,35
N10200:	BYTE	(4)4(14)0(18)Q10322+^D41
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10199,35
N10199:	BYTE	(4)4(14)0(18)Q10322+^D40
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10198,35
N10198:	BYTE	(4)4(14)0(18)Q10322+^D39
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10197,35
N10197:	BYTE	(4)4(14)0(18)Q10322+^D38
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10196,35
N10196:	BYTE	(4)4(14)0(18)Q10322+^D37
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10195,35
N10195:	BYTE	(4)4(14)0(18)Q10322+^D36
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10194,35
N10194:	BYTE	(4)4(14)0(18)Q10322+^D35
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10193,35
N10193:	BYTE	(4)4(14)0(18)Q10322+^D34
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10192,35
N10192:	BYTE	(4)4(14)0(18)Q10322+^D33
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10190,35
N10190:	BYTE	(4)4(14)0(18)Q10322+^D32
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10189,35
N10189:	BYTE	(4)4(14)0(18)Q10322+^D31
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10187,35
N10187:	BYTE	(4)4(14)0(18)Q10322+^D30
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10186,35
N10186:	BYTE	(4)4(14)0(18)Q10322+^D29
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10185,35
N10185:	BYTE	(4)4(14)0(18)Q10322+^D28
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10183,35
N10183:	BYTE	(4)4(14)0(18)Q10322+^D27
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10182,35
N10182:	BYTE	(4)4(14)0(18)Q10322+^D26
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10179,35
N10179:	BYTE	(4)4(14)0(18)Q10322+^D25
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10178,35
N10178:	BYTE	(4)4(14)0(18)Q10322+^D24
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10177,35
N10177:	BYTE	(4)4(14)0(18)Q10322+^D23
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10176,35
N10176:	BYTE	(4)4(14)0(18)Q10322+^D22
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10174,35
N10174:	BYTE	(4)4(14)0(18)Q10322+^D21
	EXP	0
	BYTE	(5)3(31)0
S10173:	POINT	7,A10173,35
	JRST	L10173
	EXP	0
	BYTE	(5)3(31)0
S10172:	POINT	7,A10172,35
	JRST	L10172
	EXP	0
	BYTE	(5)3(31)0
S10171:	POINT	7,A10171,35
	JRST	L10171
	EXP	0
	BYTE	(5)3(31)0
S10170:	POINT	7,A10170,35
	JRST	L10170
	EXP	0
	BYTE	(5)3(31)0
S10166:	POINT	7,A10166,35
	JRST	L10166
	EXP	0
	BYTE	(5)3(31)0
S10165:	POINT	7,A10165,35
	JRST	L10165
	EXP	0
	BYTE	(5)3(31)0
S10164:	POINT	7,A10164,35
	JRST	L10164
	EXP	0
	BYTE	(5)3(31)0
S10163:	POINT	7,A10163,35
	JRST	L10163
	EXP	0
	BYTE	(5)3(31)0
S10162:	POINT	7,A10162,35
	JRST	L10162
	EXP	0
	BYTE	(5)3(31)0
S10161:	POINT	7,A10161,35
	JRST	L10161
	EXP	0
	BYTE	(5)3(31)0
S10160:	POINT	7,A10160,35
	JRST	L10160
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10159,35
N10159:	BYTE	(4)4(14)0(18)Q10322+^D20
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10156,35
N10156:	BYTE	(4)4(14)0(18)Q10322+^D19
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10155,35
N10155:	BYTE	(4)4(14)0(18)Q10322+^D18
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10154,35
N10154:	BYTE	(4)4(14)0(18)Q10322+^D17
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10152,35
N10152:	BYTE	(4)4(14)0(18)Q10322+^D16
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10151,35
N10151:	BYTE	(4)4(14)0(18)Q10322+^D15
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10146,35
N10146:	BYTE	(4)4(14)0(18)Q10322+^D14
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10145,35
N10145:	BYTE	(4)4(14)0(18)Q10322+^D13
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10143,35
N10143:	BYTE	(4)4(14)0(18)Q10322+^D12
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10142,35
N10142:	BYTE	(4)4(14)0(18)Q10322+^D11
	EXP	0
	BYTE	(5)1(31)0
S10141:	POINT	7,A10141,35
N10141:	BYTE	(4)4(14)0(18)Q10322+^D10
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10140,35
N10140:	BYTE	(4)4(14)0(18)Q10322+^D9
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10138,35
N10138:	BYTE	(4)4(14)0(18)Q10322+^D8
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10137,35
N10137:	BYTE	(4)4(14)0(18)Q10322+^D7
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10136,35
N10136:	BYTE	(4)4(14)0(18)Q10322+^D6
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10132,35
N10132:	BYTE	(4)4(14)0(18)Q10322+^D5
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10100,35
F10100:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
S10100:	POINT	7,A10100,35
	JRST	L10100
	EXP	0
	BYTE	(5)5(31)0
S10091:	POINT	7,A10091,35
F10091:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10086,35
N10086:	BYTE	(4)4(14)0(18)Q10322+^D4
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10083,35
F10083:	BYTE	(4)4(4)0(5)^D3(5)0(18)P$$RPL##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10080,35
F10080:	BYTE	(4)4(4)0(5)^D3(5)0(18)P$$RPD##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10078,35
F10078:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$GTP##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10075,35
F10075:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$EQP##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10074,35
F10074:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$LEP##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10073,35
F10073:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$LTP##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10072,35
F10072:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$IDT##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10071,35
F10071:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DIF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10066,35
F10066:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DEF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10065,35
F10065:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DUP##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10064,35
F10064:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$TBL##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10062,35
F10062:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$CNV##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10060,35
F10060:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$DAT##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10051,35
F10051:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$TRM##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10044,35
F10044:	BYTE	(4)4(4)0(5)^D0(5)0(18)P$$DTE##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10032,35
N10032:	BYTE	(4)4(14)0(18)Q10322+^D3
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10030,35
N10030:	BYTE	(4)4(14)0(18)Q10322+^D2
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10029,35
N10029:	BYTE	(4)4(14)0(18)Q10322+^D1
	POINT	7,A10085,35
Q10000:	XWD	0,Q10322
	XWD	Q10323,^D0
	EXP	Q10323
	END	Q10002