Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0057/initla.fas
There are 2 other files named initla.fas in the archive. Click here to see a list.
;*	*	*	*	*	*	*	*	*
;*	*	DECLARATIONS	*	*	*	*	*
;*	*	*	*	*	*	*	*	*
;*
;*		LOCAL
;*
;	DECLARE('SNOBOL.SUBPROGRAM','INITLA')
;	DECLARE('OPTION','NO.STNO')
;	DECLARE('PURGE.VARIABLE',ALL)
;	DECLARE('PURGE.LABEL',ALL)
;	DECLARE('EXTERNAL.FUNCTION','NEWNAM,
;.PRTOUT,ERRMSG')
;	DECLARE('INTEGER','I,J,K')
;	DECLARE('ENTRY.FUNCTION','INITLA()')
;*
;*		SYSTEM COMMON
;*
;*	TABLES AND LISTS
;	DECLARE('EXTERNAL.VARIABLE',
;.'SYMBTB,XNAMTB,KEYWTB,CTRLTB,DECLTB,CROSTB,CONSTB,ENTFTB,DSIZTB,
;.BOPRTB,UOPRTB')
;	DECLARE('EXTERNAL.VARIABLE',
;.'ENTRLS,EXTRLS,FORTLS')
;*	ARRAYS
;	DECLARE('EXTERNAL.VARIABLE',
;.'PTVRAR,PTFNAR,PRIMAR,GOTOAR,DECLAR,PROGAR,VARBAR,MACHAR,STENAR,BOPRAR,
;.UOPRAR,PATRAR,EXPRAR,AROPAR,ARITAR,EACTAR')
;*	PARAMETERS (STRINGS,DATATYPES)
;	DECLARE('EXTERNAL.VARIABLE',
;.'C,INDENT,SPLASH,ITNAM,ITENT,NOFAIL,SNONAM,SUBNAM,PARBLK,PRGNAM,STARTP,
;.TEMLOC,P1,P2,P3,P4,P5')
;*	PARAMETERS (INTEGERS)
;	DECLARE('EXTERNAL.VARIABLE',
;.'P,OBJFLG,LISTSR,INTGER,ITTYP,ITATR,PRGALV,PRGALL,PRGALF,STNFLG,HSHSIZ,
;.STRTIM,DMPFLG,LISTOB,STNO,MAXTMP')
;	DECLARE('INTEGER',
;.'P,OBJFLG,LISTSR,INTGER,ITTYP,ITATR,PRGALV,PRGALL,PRGALF,STNFLG,HSHSIZ,
;.STRTIM,DMPFLG,LISTOB,STNO,MAXTMP')
;	DECLARE('EXTERNAL.VARIABLE',
;.'XNATRB,VTATRB,VDATRB,LTATRB,FTATRB,FDATRB,TXATRB,VNATRB,VXATRB,VIATRB,
;.VGATRB,LIATRB,LGATRB,FIATRB,FGATRB,FXATRB,SKATRB,SDATRB,BTATRB')
;	DECLARE('INTEGER',
;.'XNATRB,VTATRB,VDATRB,LTATRB,FTATRB,FDATRB,TXATRB,VNATRB,VXATRB,VIATRB,
;.VGATRB,LIATRB,LGATRB,FIATRB,FGATRB,FXATRB,SKATRB,SDATRB,BTATRB')
;	DECLARE('EXTERNAL.VARIABLE',
;.'XNVATR,XNLATR,XNFATR,XNXMSK,VTVATR,VDDATR,VDPATR,VDDMSK,LTDATR,LTTMSK,
;.FTFATR,FDPATR,FDIATR,FDDMSK,TXTATR,TXTMSK,VNNATR,VXXATR,VIPATR,VGGATR,
;.LIPATR,LGGATR,FIPATR,FGGATR,FXXATR,FXXMSK,SKRATR,SDRATR,BTRATR')
;	DECLARE('INTEGER',
;.'XNVATR,XNLATR,XNFATR,XNXMSK,VTVATR,VDDATR,VDPATR,VDDMSK,LTDATR,LTTMSK,
;.FTFATR,FDPATR,FDIATR,FDDMSK,TXTATR,TXTMSK,VNNATR,VXXATR,VIPATR,VGGATR,
;.LIPATR,LGGATR,FIPATR,FGGATR,FXXATR,FXXMSK,SKRATR,SDRATR,BTRATR')
;*	SPECIAL CHARACTERS,CHARACTER SEQUENCES, AND CHARACTER CLASSES
;	DECLARE('EXTERNAL.VARIABLE',
;.'FFCHR,CRLCHR,LFCHR,CRCHR,SQCHR,DQCHR,TBCHR,LCSCHR,BLNCHR,EQLCHR,
;.QTSCHR,ELTCHR,LBCHR')
;*	PATTERNS AND MATCHES
;	DECLARE('EXTERNAL.VARIABLE',
;.'COMSPT,INTGPT,BLNKPT,OPBLPT,PCOMPT,PCPRMT,IDENPT,DCLCMT,RSIDPT,LABLPT,
;.POPRMT,IDENMT,SQLTPT,DQLTPT,LBDCPT,IDDCPT')
;*
;*	MINIMAL SYMBOL TABLE
;*
;	DECLARE('UNPURGE.VARIABLE','INITLA,DXS,DTS
;. ,SYMBOL,EXNAME')
;	DECLARE('UNPURGE.LABEL','INITLA DXS DTS')
;	DECLARE('PURGE.FUNCTION','DATA,SUBSTR,DUPL,TABLE,DEFINE,ARRAY,
;.COPY,TIME,IDENT,OPEN,DIFFER,ENTER,OUTPUT,LOOKUP,INPUT,DATE,
;.DAYTIM,RELEASE,SIZE,LGT')
;*	*	*	*	*	*	*	*	*
;*	*	INITIALIZE SYSTEM COMMON	*	*	*
;*	*	*	*	*	*	*	*	*
;*
;*	LOCAL INITIALIZATION
;INITLA	DATA('SYM(INAM,ATRB)')
TITLE INITLA
	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]
ENTRY INITLA
EXTERN IDDCPT,LBDCPT,DQLTPT,SQLTPT,IDENMT,POPRMT,LABLPT,RSIDPT,DCLCMT,IDENPT
EXTERN PCPRMT,PCOMPT,OPBLPT,BLNKPT,INTGPT,COMSPT,LBCHR,ELTCHR,QTSCHR,EQLCHR
EXTERN BLNCHR,LCSCHR,TBCHR,DQCHR,SQCHR,CRCHR,LFCHR,CRLCHR,FFCHR,BTRATR
EXTERN SDRATR,SKRATR,FXXMSK,FXXATR,FGGATR,FIPATR,LGGATR,LIPATR,VGGATR,VIPATR
EXTERN VXXATR,VNNATR,TXTMSK,TXTATR,FDDMSK,FDIATR,FDPATR,FTFATR,LTTMSK,LTDATR
EXTERN VDDMSK,VDPATR,VDDATR,VTVATR,XNXMSK,XNFATR,XNLATR,XNVATR,BTATRB,SDATRB
EXTERN SKATRB,FXATRB,FGATRB,FIATRB,LGATRB,LIATRB,VGATRB,VIATRB,VXATRB,VNATRB
EXTERN TXATRB,FDATRB,FTATRB,LTATRB,VDATRB,VTATRB,XNATRB,MAXTMP,STNO,LISTOB
EXTERN DMPFLG,STRTIM,HSHSIZ,STNFLG,PRGALF,PRGALL,PRGALV,ITATR,ITTYP,INTGER
EXTERN LISTSR,OBJFLG,P,P5,P4,P3,P2,P1,TEMLOC,STARTP
EXTERN PRGNAM,PARBLK,SUBNAM,SNONAM,NOFAIL,ITENT,ITNAM,SPLASH,INDENT,C
EXTERN EACTAR,ARITAR,AROPAR,EXPRAR,PATRAR,UOPRAR,BOPRAR,STENAR,MACHAR,VARBAR
EXTERN PROGAR,DECLAR,GOTOAR,PRIMAR,PTFNAR,PTVRAR,FORTLS,EXTRLS,ENTRLS,UOPRTB
EXTERN BOPRTB,DSIZTB,ENTFTB,CONSTB,CROSTB,DECLTB,CTRLTB,KEYWTB,XNAMTB,SYMBTB
EXTERN ERRMSG,PRTOUT,NEWNAM
L10091:
	MOVEI	14,Q10002
	MOVEM	14,S$$FLP##
	MOVE	1,S10237
	FCALV$	^D1,F10060
Q10002:
;	DATA('NOD(FRNT,BACK)')
	MOVEI	14,Q10003
	MOVEM	14,S$$FLP##
	MOVE	1,S10238
	FCALV$	^D1,F10060
Q10003:
;*	SPECIAL CHARACTERS, CHARACTERR SEQUENCES, AND CHARACTER CLASSES
;	FFCHR	= SUBSTR(&ALPHABET,1,12)
	MOVEI	14,Q10004
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10240
	FCALV$	^D3,F10081
	MOVEM	1,@FFCHR
Q10004:
;	LFCHR	= SUBSTR(&ALPHABET,1,10)
	MOVEI	14,Q10005
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10241
	FCALV$	^D3,F10081
	MOVEM	1,@LFCHR
Q10005:
;	CRCHR	= SUBSTR(&ALPHABET,1,13)
	MOVEI	14,Q10006
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10242
	FCALV$	^D3,F10081
	MOVEM	1,@CRCHR
Q10006:
;	TBCHR	= SUBSTR(&ALPHABET,1,9)
	MOVEI	14,Q10007
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10243
	FCALV$	^D3,F10081
	MOVEM	1,@TBCHR
Q10007:
;	SQCHR	= SUBSTR(&ALPHABET,1,39)
	MOVEI	14,Q10008
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10244
	FCALV$	^D3,F10081
	MOVEM	1,@SQCHR
Q10008:
;	DQCHR	= SUBSTR(&ALPHABET,1,34)
	MOVEI	14,Q10009
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10245
	FCALV$	^D3,F10081
	MOVEM	1,@DQCHR
Q10009:
;	LBCHR	= SUBSTR(&ALPHABET,1,3)
	MOVEI	14,Q10010
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10239
	PUSH	16,1
	MOVE	1,I10246
	FCALV$	^D3,F10081
	MOVEM	1,@LBCHR
Q10010:
;	CRLCHR	= CRCHR LFCHR
	MOVEI	14,Q10011
	MOVEM	14,S$$FLP##
	MOVE	1,@CRCHR
	PUSH	16,1
	MOVE	1,@LFCHR
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@CRLCHR
Q10011:
;	BLNCHR	= ' ' TBCHR CRCHR
	MOVEI	14,Q10012
	MOVEM	14,S$$FLP##
	MOVE	1,S10247
	PUSH	16,1
	MOVE	1,@TBCHR
	PUSH	16,1
	MOVE	1,@CRCHR
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@BLNCHR
Q10012:
;	EQLCHR	= '=_'
	MOVEI	14,Q10013
	MOVEM	14,S$$FLP##
	MOVE	1,S10248
	MOVEM	1,@EQLCHR
Q10013:
;	QTSCHR	= SQCHR DQCHR
	MOVEI	14,Q10014
	MOVEM	14,S$$FLP##
	MOVE	1,@SQCHR
	PUSH	16,1
	MOVE	1,@DQCHR
	JSP	14,S$$CNC##
	EXP	^D2
	MOVEM	1,@QTSCHR
Q10014:
;	LCSCHR	= SUBSTR(&ALPHABET,26,97)
	MOVEI	14,Q10015
	MOVEM	14,S$$FLP##
	MOVE	1,S$$KWD##+^D7
	PUSH	16,1
	MOVE	1,I10249
	PUSH	16,1
	MOVE	1,I10250
	FCALV$	^D3,F10081
	MOVEM	1,@LCSCHR
Q10015:
;	ELTCHR	= DUPL('A',34) 'DACABDFACCACCA' DUPL('E',10) DUPL('A',5)
;. 'CC' DUPL('G',26) 'AC' DUPL('A',4) DUPL('G',26) DUPL('A',5)
	MOVEI	14,Q10016
	MOVEM	14,S$$FLP##
	MOVE	1,S10251
	PUSH	16,1
	MOVE	1,I10245
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10252
	PUSH	16,1
	MOVE	1,S10253
	PUSH	16,1
	MOVE	1,I10241
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10251
	PUSH	16,1
	MOVE	1,I10254
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10255
	PUSH	16,1
	MOVE	1,S10256
	PUSH	16,1
	MOVE	1,I10249
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10257
	PUSH	16,1
	MOVE	1,S10251
	PUSH	16,1
	MOVE	1,I10258
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10256
	PUSH	16,1
	MOVE	1,I10249
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,S10251
	PUSH	16,1
	MOVE	1,I10254
	FCALV$	^D2,F10065
	JSP	14,S$$CNC##
	EXP	^D10
	MOVEM	1,@ELTCHR
Q10016:
;*	STRING AND INTEGER PARAMETERS
;	&ANCHOR	= 1
	MOVE	^D1,K10239
	MOVEM	1,S$$KWD##+^D9
;	&STLIMIT	= 10000000
	MOVE	^D1,K10259
	MOVEM	1,S$$KWD##+^D13
;	INDENT	= TBCHR
	MOVEI	14,Q10017
	MOVEM	14,S$$FLP##
	MOVE	1,@TBCHR
	MOVEM	1,@INDENT
Q10017:
;	SPLASH	= INDENT DUPL('*',42) CRLCHR
	MOVEI	14,Q10018
	MOVEM	14,S$$FLP##
	MOVE	1,@INDENT
	PUSH	16,1
	MOVE	1,S10260
	PUSH	16,1
	MOVE	1,I10261
	FCALV$	^D2,F10065
	PUSH	16,1
	MOVE	1,@CRLCHR
	JSP	14,S$$CNC##
	EXP	^D3
	MOVEM	1,@SPLASH
Q10018:
;	XNVATR	= 1
	MOVE	^D1,K10239
	MOVEM	1,XNVATR
;	XNLATR	= 2
	MOVE	^D1,K10262
	MOVEM	1,XNLATR
;	XNFATR	= 3
	MOVE	^D1,K10246
	MOVEM	1,XNFATR
;	XNXMSK	= 3
	MOVE	^D1,K10246
	MOVEM	1,XNXMSK
;	VTVATR	= 4
	MOVE	^D1,K10258
	MOVEM	1,VTVATR
;	VDDATR	= 8
	MOVE	^D1,K10263
	MOVEM	1,VDDATR
;	VDPATR	= 4 * 8
	MOVE	^D1,K10258
	IMUL	^D1,K10263
	MOVEM	1,VDPATR
;	VDDMSK	= 7 * 8
	MOVE	^D1,K10264
	IMUL	^D1,K10263
	MOVEM	1,VDDMSK
;	LTDATR	= 64
	MOVE	^D1,K10265
	MOVEM	1,LTDATR
;	LTTMSK	= 3 * 64
	MOVE	^D1,K10246
	IMUL	^D1,K10265
	MOVEM	1,LTTMSK
;	FTFATR	= 256
	MOVE	^D1,K10266
	MOVEM	1,FTFATR
;	FDPATR	= 512
	MOVE	^D1,K10267
	MOVEM	1,FDPATR
;	FDIATR	= 2 * 512
	MOVE	^D1,K10262
	IMUL	^D1,K10267
	MOVEM	1,FDIATR
;	FDDMSK	= 3 * 512
	MOVE	^D1,K10246
	IMUL	^D1,K10267
	MOVEM	1,FDDMSK
;	TXTATR	= 2048
	MOVE	^D1,K10268
	MOVEM	1,TXTATR
;	TXTMSK	= 127 * 2048
	MOVE	^D1,K10269
	IMUL	^D1,K10268
	MOVEM	1,TXTMSK
;	VNNATR	= 262144
	MOVE	^D1,K10270
	MOVEM	1,VNNATR
;	VXXATR	= 524288
	MOVE	^D1,K10271
	MOVEM	1,VXXATR
;	VIPATR	= 1048576
	MOVE	^D1,K10272
	MOVEM	1,VIPATR
;	VGGATR	= 2097152
	MOVE	^D1,K10273
	MOVEM	1,VGGATR
;	LIPATR	= 4194304
	MOVE	^D1,K10274
	MOVEM	1,LIPATR
;	LGGATR	= 8388608
	MOVE	^D1,K10275
	MOVEM	1,LGGATR
;	FIPATR	= 16777216
	MOVE	^D1,K10276
	MOVEM	1,FIPATR
;	FGGATR	= 33554432
	MOVE	^D1,K10277
	MOVEM	1,FGGATR
;	FXXATR	= 67108864
	MOVE	^D1,K10278
	MOVEM	1,FXXATR
;	FXXMSK	= 3 * 67108864
	MOVE	^D1,K10246
	IMUL	^D1,K10278
	MOVEM	1,FXXMSK
;	SKRATR	= 268435456
	MOVE	^D1,K10279
	MOVEM	1,SKRATR
;	SDRATR	= 536870912
	MOVE	^D1,K10280
	MOVEM	1,SDRATR
;	BTRATR	= 1073741824
	MOVE	^D1,K10281
	MOVEM	1,BTRATR
;*	PATTERNS
;	LETTER	= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
	MOVEI	14,Q10019
	MOVEM	14,S$$FLP##
	MOVE	1,S10283
	MOVEM	1,@N10282
Q10019:
;	DIGIT	= '0123456789'
	MOVEI	14,Q10020
	MOVEM	14,S$$FLP##
	MOVE	1,S10285
	MOVEM	1,@N10284
Q10020:
;	COMSPT	= ANY('*-' FFCHR)
	MOVEI	14,Q10022
	MOVEM	14,S$$FLP##
	MOVE	1,S10286
	PUSH	16,1
	MOVE	1,@FFCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10021
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	JRST	S$$PTS##
Q10021:
	MOVEM	1,@COMSPT
Q10022:
;	INTGPT	= (SPAN('0') ! '')  (SPAN(DIGIT) $ STR1  FENCE
;.  (*?ILT(SIZE(STR1),10) ! *LGT('8589934592',STR1))) $ INTGER
	MOVEI	14,Q10028
	MOVEM	14,S$$FLP##
	MOVE	1,@N10284
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-2,Q10027
	JSP	11,S$$APS##
	XWD	.-.,Q10024
	MOVEI	1,B10287
	JSP	11,S$$SPN##
	JRST	Q10023
Q10024:
	JSP	11,S$$APF##

Q10023:
	JSP	11,S$$VAS##
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$SPN##
	MOVE	1,N10288
	JSP	11,S$$IVA##
	PUSHJ	16,.+2
	JRST	S$$MTA##
	JSP	11,S$$APS##
	XWD	.-.,Q10026
	JSP	11,S$$UFB##
	MOVE	1,@N10288
	FCALV$	^D1,F10050
	DASGN$	2,Q10001+^D0
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$LTP##
	JUMP	0,Q10001+^D0
	JUMP	0,K10241
	ADD	16,S$$STB##
	SETZ	1,
	JSP	11,S$$UFS##
	JRST	Q10025
Q10026:
	JSP	11,S$$APF##
	JSP	11,S$$UFB##
	MOVE	1,S10289
	PUSH	16,1
	MOVE	1,@N10288
	FCALV$	^D2,F10061
	JSP	11,S$$UFS##
	JSP	11,S$$CKP##
	JSP	11,S$$PTX##
Q10025:
	MOVE	1,N10143
	JSP	11,S$$IVA##
	JRST	S$$PTS##
Q10027:
	MOVEM	1,@INTGPT
Q10028:
;	BLNKPT	= SPAN(BLNCHR)
	MOVEI	14,Q10030
	MOVEM	14,S$$FLP##
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10029
	MOVE	1,^D1(15)
	JSP	11,S$$SPN##
	JRST	S$$PTS##
Q10029:
	MOVEM	1,@BLNKPT
Q10030:
;	OPBLPT	= NSPAN(BLNCHR)
	MOVEI	14,Q10032
	MOVEM	14,S$$FLP##
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10031
	MOVE	1,^D1(15)
	JSP	11,S$$NSP##
	JRST	S$$PTS##
Q10031:
	MOVEM	1,@OPBLPT
Q10032:
;	PCOMPT	= NSPAN(BLNCHR)  ','  NSPAN(BLNCHR)
	MOVEI	14,Q10034
	MOVEM	14,S$$FLP##
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D3,Q10033
	MOVE	1,^D1(15)
	JSP	11,S$$NSP##
	MOVE	1,S10290
	JSP	11,S$$MST##
	MOVE	1,^D2(15)
	JSP	11,S$$NSP##
	JRST	S$$PTS##
Q10033:
	MOVEM	1,@PCOMPT
Q10034:
;	PCPRMT	= TAB(*P)  NSPAN(BLNCHR)  @P  ')'  @P
	MOVEI	14,Q10036
	MOVEM	14,S$$FLP##
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10035
	MOVE	^D1,P
	JUMPL	1,S$$MIE##
	JSP	11,S$$TAB##
	MOVE	1,^D1(15)
	JSP	11,S$$NSP##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	MOVE	1,S10291
	JSP	11,S$$MST##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	JRST	S$$PTS##
Q10035:
	MOVEM	1,@PCPRMT
Q10036:
;	IDENPT	= (ANY(LETTER LCSCHR)  NSPAN(LETTER LCSCHR DIGIT '.-'))
;. $ ITNAM
	MOVEI	14,Q10038
	MOVEM	14,S$$FLP##
	MOVE	1,@N10282
	PUSH	16,1
	MOVE	1,@LCSCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10282
	PUSH	16,1
	MOVE	1,@LCSCHR
	PUSH	16,1
	MOVE	1,@N10284
	PUSH	16,1
	MOVE	1,S10292
	JSP	14,S$$CNC##
	EXP	^D4
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-3,Q10037
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	MOVE	1,^D2(15)
	JSP	11,S$$NSP##
	MOVE	1,ITNAM
	JSP	11,S$$IVA##
	JRST	S$$PTS##
Q10037:
	MOVEM	1,@IDENPT
Q10038:
;	DCLCMT	= TAB(*P)  SQCHR  @P  NSPAN(BLNCHR)  @P  ')'  @P
;.  NSPAN(BLNCHR)  @P  RPOS(0)
	MOVEI	14,Q10040
	MOVEM	14,S$$FLP##
	MOVE	1,@SQCHR
	JSP	11,S$$MKP##
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D4,Q10039
	MOVE	^D1,P
	JUMPL	1,S$$MIE##
	JSP	11,S$$TAB##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	MOVE	1,^D2(15)
	JSP	11,S$$NSP##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	MOVE	1,S10291
	JSP	11,S$$MST##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	MOVE	1,^D3(15)
	JSP	11,S$$NSP##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	HRRZ	1,K10293
	CAIE	1,(13)
	POPJ	16,
	JRST	S$$PTS##
Q10039:
	MOVEM	1,@DCLCMT
Q10040:
;	RSIDPT	= (@I  ANY(LETTER LCSCHR)  NSPAN(LETTER LCSCHR DIGIT '.'
;.)  @J  *?ILE(J - I,6)) $ ITNAM
	MOVEI	14,Q10042
	MOVEM	14,S$$FLP##
	MOVE	1,@N10282
	PUSH	16,1
	MOVE	1,@LCSCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,@N10282
	PUSH	16,1
	MOVE	1,@LCSCHR
	PUSH	16,1
	MOVE	1,@N10284
	PUSH	16,1
	MOVE	1,S10294
	JSP	14,S$$CNC##
	EXP	^D4
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-3,Q10041
	JSP	11,S$$VAS##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,V10088
	MOVE	1,^D1(15)
	JSP	11,S$$ANY##
	MOVE	1,^D2(15)
	JSP	11,S$$NSP##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,V10089
	JSP	11,S$$UFB##
	MOVE	^D1,V10089
	SUB	^D1,V10088
	MOVEM	1,Q10001+^D0
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$LEP##
	JUMP	0,Q10001+^D0
	JUMP	0,K10295
	ADD	16,S$$STB##
	SETZ	1,
	JSP	11,S$$UFS##
	MOVE	1,ITNAM
	JSP	11,S$$IVA##
	JRST	S$$PTS##
Q10041:
	MOVEM	1,@RSIDPT
Q10042:
;	LABLPT	= (NOTANY('*-+.;' BLNCHR)  (BREAK(';' BLNCHR) ! REM)
;.  FENCE) $ ITNAM
	MOVEI	14,Q10046
	MOVEM	14,S$$FLP##
	MOVE	1,S10296
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	MOVE	1,S10297
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D-3,Q10045
	JSP	11,S$$VAS##
	MOVE	1,^D1(15)
	JSP	11,S$$NTA##
	JSP	11,S$$APS##
	XWD	.-.,Q10044
	MOVE	1,^D2(15)
	JSP	11,S$$BRK##
	JRST	Q10043
Q10044:
	JSP	11,S$$APF##
	JSP	11,S$$REM##
Q10043:
	PUSHJ	16,.+2
	JRST	S$$MTA##
	MOVE	1,ITNAM
	JSP	11,S$$IVA##
	JRST	S$$PTS##
Q10045:
	MOVEM	1,@LABLPT
Q10046:
;	POPRMT	= TAB(*P)  '('  @P  NSPAN(BLNCHR)  @P
	MOVEI	14,Q10048
	MOVEM	14,S$$FLP##
	MOVE	1,@BLNCHR
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10047
	MOVE	^D1,P
	JUMPL	1,S$$MIE##
	JSP	11,S$$TAB##
	MOVE	1,S10298
	JSP	11,S$$MST##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	MOVE	1,^D1(15)
	JSP	11,S$$NSP##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	JRST	S$$PTS##
Q10047:
	MOVEM	1,@POPRMT
Q10048:
;	IDENMT	= TAB(*P)  IDENPT  @P
	MOVEI	14,Q10050
	MOVEM	14,S$$FLP##
	MOVE	1,@IDENPT
	JSP	11,S$$MKP##
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10049
	MOVE	^D1,P
	JUMPL	1,S$$MIE##
	JSP	11,S$$TAB##
	MOVE	1,^D1(15)
	JSP	11,S$$PTX##
	HRRZ	1,@S$$SJC##
	SUBI	1,(13)
	MOVEM	1,P
	JRST	S$$PTS##
Q10049:
	MOVEM	1,@IDENMT
Q10050:
;	SQLTPT	= BREAK(SQCHR CRCHR)
	MOVEI	14,Q10052
	MOVEM	14,S$$FLP##
	MOVE	1,@SQCHR
	PUSH	16,1
	MOVE	1,@CRCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10051
	MOVE	1,^D1(15)
	JSP	11,S$$BRK##
	JRST	S$$PTS##
Q10051:
	MOVEM	1,@SQLTPT
Q10052:
;	DQLTPT	= BREAK(DQCHR CRCHR)
	MOVEI	14,Q10054
	MOVEM	14,S$$FLP##
	MOVE	1,@DQCHR
	PUSH	16,1
	MOVE	1,@CRCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10053
	MOVE	1,^D1(15)
	JSP	11,S$$BRK##
	JRST	S$$PTS##
Q10053:
	MOVEM	1,@DQLTPT
Q10054:
;	LBDCPT	= BREAK(SQCHR BLNCHR)
	MOVEI	14,Q10056
	MOVEM	14,S$$FLP##
	MOVE	1,@SQCHR
	PUSH	16,1
	MOVE	1,@BLNCHR
	JSP	14,S$$CNC##
	EXP	^D2
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10055
	MOVE	1,^D1(15)
	JSP	11,S$$BRK##
	JRST	S$$PTS##
Q10055:
	MOVEM	1,@LBDCPT
Q10056:
;	IDDCPT	= BREAK(SQCHR BLNCHR ',')
	MOVEI	14,Q10058
	MOVEM	14,S$$FLP##
	MOVE	1,@SQCHR
	PUSH	16,1
	MOVE	1,@BLNCHR
	PUSH	16,1
	MOVE	1,S10290
	JSP	14,S$$CNC##
	EXP	^D3
	JSP	11,S$$MBT##
	EXP	.
	PUSH	16,1
	JSP	14,S$$GPB##
	XWD	^D2,Q10057
	MOVE	1,^D1(15)
	JSP	11,S$$BRK##
	JRST	S$$PTS##
Q10057:
	MOVEM	1,@IDDCPT
Q10058:
;*	SYMBOL TABLES
;	CONSTB	= TABLE(3,7)
	MOVEI	14,Q10059
	MOVEM	14,S$$FLP##
	MOVE	1,I10246
	PUSH	16,1
	MOVE	1,I10264
	FCALV$	^D2,F10064
	MOVEM	1,@CONSTB
Q10059:
;	SYMBTB	= TABLE(85,7)
	MOVEI	14,Q10060
	MOVEM	14,S$$FLP##
	MOVE	1,I10299
	PUSH	16,1
	MOVE	1,I10264
	FCALV$	^D2,F10064
	MOVEM	1,@SYMBTB
Q10060:
;	XNAMTB	= TABLE(22,3)
	MOVEI	14,Q10061
	MOVEM	14,S$$FLP##
	MOVE	1,I10300
	PUSH	16,1
	MOVE	1,I10246
	FCALV$	^D2,F10064
	MOVEM	1,@XNAMTB
Q10061:
;* ROUTINE TO DEFINE SYMBOL WITH EXTERNAL NAME
;	DEFINE('DXS(SYMBOL,EXNAME)')	:(DXSKIP)
	MOVEI	14,L10302
	MOVEM	14,S$$FLP##
	MOVE	1,S10301
	FCALV$	^D1,F10066
	JRST	L10302
;DXS	DXS	= NEWNAM()
L10233:
	MOVEI	14,Q10062
	MOVEM	14,S$$FLP##
	FCALV$	^D0,NEWNAM
	MOVEM	1,@N10233
Q10062:
;	SYMBTB[SYMBOL]	= SYM(DXS,I)
	MOVEI	14,Q10063
	MOVEM	14,S$$FLP##
	MOVE	1,@N10235
	AREFN$	^D1,SYMBTB
	PUSH	16,1
	MOVE	1,@N10233
	PUSH	16,1
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	FCALV$	^D2,F10303
	JSP	11,S$$ASG##
Q10063:
;	XNAMTB[DXS]	= EXNAME	:(RETURN)
	MOVEI	14,S$$SRT##
	MOVEM	14,S$$FLP##
	MOVE	1,@N10233
	AREFN$	^D1,XNAMTB
	PUSH	16,1
	MOVE	1,@N10236
	JSP	11,S$$ASG##
	JRST	S$$SRT##
;* EXTERNAL VARIABLES
;DXSKIP	I	= VTVATR + VXXATR + XNVATR
L10302:
	MOVE	^D1,VTVATR
	ADD	^D1,VXXATR
	ADD	^D1,XNVATR
	MOVEM	1,V10088
;	DXS('INPUT','S$$INP##')
	MOVEI	14,Q10064
	MOVEM	14,S$$FLP##
	MOVE	1,S10000
	PUSH	16,1
	MOVE	1,S10304
	FCALV$	^D2,F10233
Q10064:
;	DXS('INPUTC','S$$INC##')
	MOVEI	14,Q10065
	MOVEM	14,S$$FLP##
	MOVE	1,S10001
	PUSH	16,1
	MOVE	1,S10305
	FCALV$	^D2,F10233
Q10065:
;	DXS('OUTPUT','S$$OUT##')
	MOVEI	14,Q10066
	MOVEM	14,S$$FLP##
	MOVE	1,S10002
	PUSH	16,1
	MOVE	1,S10306
	FCALV$	^D2,F10233
Q10066:
;	DXS('OUTPUTC','S$$OUC##')
	MOVEI	14,Q10067
	MOVEM	14,S$$FLP##
	MOVE	1,S10003
	PUSH	16,1
	MOVE	1,S10307
	FCALV$	^D2,F10233
Q10067:
;* EXTERNAL LABELS
;	I	= LTDATR + XNLATR + LIPATR
	MOVE	^D1,LTDATR
	ADD	^D1,XNLATR
	ADD	^D1,LIPATR
	MOVEM	1,V10088
;	DXS('RETURN','S$$SRT##')
	MOVEI	14,Q10068
	MOVEM	14,S$$FLP##
	MOVE	1,S10004
	PUSH	16,1
	MOVE	1,S10308
	FCALV$	^D2,F10233
Q10068:
;	DXS('FRETURN','S$$FRT##')
	MOVEI	14,Q10069
	MOVEM	14,S$$FLP##
	MOVE	1,S10005
	PUSH	16,1
	MOVE	1,S10309
	FCALV$	^D2,F10233
Q10069:
;	DXS('NRETURN','S$$NRT##')
	MOVEI	14,Q10070
	MOVEM	14,S$$FLP##
	MOVE	1,S10006
	PUSH	16,1
	MOVE	1,S10310
	FCALV$	^D2,F10233
Q10070:
;	DXS('END','S$$SXT##')
	MOVEI	14,Q10071
	MOVEM	14,S$$FLP##
	MOVE	1,S10007
	PUSH	16,1
	MOVE	1,S10311
	FCALV$	^D2,F10233
Q10071:
;* EXTERNAL FORTRAN FUNCTIONS
;	I	= FTFATR + FDIATR + XNFATR
	MOVE	^D1,FTFATR
	ADD	^D1,FDIATR
	ADD	^D1,XNFATR
	MOVEM	1,V10088
;	DXS('FREEZE','F$$FRZ##')
	MOVEI	14,Q10072
	MOVEM	14,S$$FLP##
	MOVE	1,S10008
	PUSH	16,1
	MOVE	1,S10312
	FCALV$	^D2,F10233
Q10072:
;	I	= I + TXTATR
	MOVE	^D1,V10088
	ADD	^D1,TXTATR
	MOVEM	1,V10088
;	DXS('NOT','F$$NOT##')
	MOVEI	14,Q10073
	MOVEM	14,S$$FLP##
	MOVE	1,S10009
	PUSH	16,1
	MOVE	1,S10313
	FCALV$	^D2,F10233
Q10073:
;	I	= I + TXTATR
	MOVE	^D1,V10088
	ADD	^D1,TXTATR
	MOVEM	1,V10088
;	DXS('ILT','F$$LTP##')
	MOVEI	14,Q10074
	MOVEM	14,S$$FLP##
	MOVE	1,S10010
	PUSH	16,1
	MOVE	1,S10314
	FCALV$	^D2,F10233
Q10074:
;	DXS('ILE','F$$LEP##')
	MOVEI	14,Q10075
	MOVEM	14,S$$FLP##
	MOVE	1,S10011
	PUSH	16,1
	MOVE	1,S10315
	FCALV$	^D2,F10233
Q10075:
;	DXS('IEQ','F$$EQP##')
	MOVEI	14,Q10076
	MOVEM	14,S$$FLP##
	MOVE	1,S10012
	PUSH	16,1
	MOVE	1,S10316
	FCALV$	^D2,F10233
Q10076:
;	DXS('INE','F$$NEP##')
	MOVEI	14,Q10077
	MOVEM	14,S$$FLP##
	MOVE	1,S10013
	PUSH	16,1
	MOVE	1,S10317
	FCALV$	^D2,F10233
Q10077:
;	DXS('IGE','F$$GEP##')
	MOVEI	14,Q10078
	MOVEM	14,S$$FLP##
	MOVE	1,S10014
	PUSH	16,1
	MOVE	1,S10318
	FCALV$	^D2,F10233
Q10078:
;	DXS('IGT','F$$GTP##')
	MOVEI	14,Q10079
	MOVEM	14,S$$FLP##
	MOVE	1,S10015
	PUSH	16,1
	MOVE	1,S10319
	FCALV$	^D2,F10233
Q10079:
;	DXS('AND','F$$AND##')
	MOVEI	14,Q10080
	MOVEM	14,S$$FLP##
	MOVE	1,S10016
	PUSH	16,1
	MOVE	1,S10320
	FCALV$	^D2,F10233
Q10080:
;	DXS('OR','F$$IOR##')
	MOVEI	14,Q10081
	MOVEM	14,S$$FLP##
	MOVE	1,S10017
	PUSH	16,1
	MOVE	1,S10321
	FCALV$	^D2,F10233
Q10081:
;	DXS('XOR','F$$XOR##')
	MOVEI	14,Q10082
	MOVEM	14,S$$FLP##
	MOVE	1,S10018
	PUSH	16,1
	MOVE	1,S10322
	FCALV$	^D2,F10233
Q10082:
;	DXS('RSHIFT','F$$RSH##')
	MOVEI	14,Q10083
	MOVEM	14,S$$FLP##
	MOVE	1,S10019
	PUSH	16,1
	MOVE	1,S10323
	FCALV$	^D2,F10233
Q10083:
;	DXS('LSHIFT','F$$LSH##')
	MOVEI	14,Q10084
	MOVEM	14,S$$FLP##
	MOVE	1,S10020
	PUSH	16,1
	MOVE	1,S10324
	FCALV$	^D2,F10233
Q10084:
;	DXS('REMDR','F$$RMD##')
	MOVEI	14,Q10085
	MOVEM	14,S$$FLP##
	MOVE	1,S10021
	PUSH	16,1
	MOVE	1,S10325
	FCALV$	^D2,F10233
Q10085:
;* ROUTINE TO DEFINE SYMBOL WITH SPECIAL XT TYPE
;	DEFINE('DTS(SYMBOL)')	:(DTSKIP)
	MOVEI	14,L10327
	MOVEM	14,S$$FLP##
	MOVE	1,S10326
	FCALV$	^D1,F10066
	JRST	L10327
;DTS	SYMBTB[SYMBOL]	= SYM(NEWNAM(),I)
L10234:
	MOVEI	14,Q10086
	MOVEM	14,S$$FLP##
	MOVE	1,@N10235
	AREFN$	^D1,SYMBTB
	PUSH	16,1
	FCALV$	^D0,NEWNAM
	PUSH	16,1
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	FCALV$	^D2,F10303
	JSP	11,S$$ASG##
Q10086:
;	I	= I + TXTATR	:(RETURN)
	MOVE	^D1,V10088
	ADD	^D1,TXTATR
	MOVEM	1,V10088
	JRST	S$$SRT##
;* PRIMITIVE PATTERN VARIABLES
;DTSKIP	I	= VTVATR + VDPATR + TXTATR
L10327:
	MOVE	^D1,VTVATR
	ADD	^D1,VDPATR
	ADD	^D1,TXTATR
	MOVEM	1,V10088
;	DTS('FAIL')
	MOVEI	14,Q10087
	MOVEM	14,S$$FLP##
	MOVE	1,S10022
	FCALV$	^D1,F10234
Q10087:
;	DTS('FENCE')
	MOVEI	14,Q10088
	MOVEM	14,S$$FLP##
	MOVE	1,S10023
	FCALV$	^D1,F10234
Q10088:
;	DTS('ABORT')
	MOVEI	14,Q10089
	MOVEM	14,S$$FLP##
	MOVE	1,S10024
	FCALV$	^D1,F10234
Q10089:
;	DTS('ARB')
	MOVEI	14,Q10090
	MOVEM	14,S$$FLP##
	MOVE	1,S10025
	FCALV$	^D1,F10234
Q10090:
;	DTS('BAL')
	MOVEI	14,Q10091
	MOVEM	14,S$$FLP##
	MOVE	1,S10026
	FCALV$	^D1,F10234
Q10091:
;	DTS('SUCCEED')
	MOVEI	14,Q10092
	MOVEM	14,S$$FLP##
	MOVE	1,S10027
	FCALV$	^D1,F10234
Q10092:
;	DTS('REM')
	MOVEI	14,Q10093
	MOVEM	14,S$$FLP##
	MOVE	1,S10028
	FCALV$	^D1,F10234
Q10093:
;* PRIMITIVE PATTERN FUNCTIONS
;	I	= FTFATR + FDPATR + TXTATR
	MOVE	^D1,FTFATR
	ADD	^D1,FDPATR
	ADD	^D1,TXTATR
	MOVEM	1,V10088
;	DTS('LEN')
	MOVEI	14,Q10094
	MOVEM	14,S$$FLP##
	MOVE	1,S10029
	FCALV$	^D1,F10234
Q10094:
;	DTS('TAB')
	MOVEI	14,Q10095
	MOVEM	14,S$$FLP##
	MOVE	1,S10030
	FCALV$	^D1,F10234
Q10095:
;	DTS('RTAB')
	MOVEI	14,Q10096
	MOVEM	14,S$$FLP##
	MOVE	1,S10031
	FCALV$	^D1,F10234
Q10096:
;	DTS('POS')
	MOVEI	14,Q10097
	MOVEM	14,S$$FLP##
	MOVE	1,S10032
	FCALV$	^D1,F10234
Q10097:
;	DTS('RPOS')
	MOVEI	14,Q10098
	MOVEM	14,S$$FLP##
	MOVE	1,S10033
	FCALV$	^D1,F10234
Q10098:
;	DTS('SPAN')
	MOVEI	14,Q10099
	MOVEM	14,S$$FLP##
	MOVE	1,S10034
	FCALV$	^D1,F10234
Q10099:
;	DTS('BREAK')
	MOVEI	14,Q10100
	MOVEM	14,S$$FLP##
	MOVE	1,S10035
	FCALV$	^D1,F10234
Q10100:
;	DTS('ANY')
	MOVEI	14,Q10101
	MOVEM	14,S$$FLP##
	MOVE	1,S10036
	FCALV$	^D1,F10234
Q10101:
;	DTS('NOTANY')
	MOVEI	14,Q10102
	MOVEM	14,S$$FLP##
	MOVE	1,S10037
	FCALV$	^D1,F10234
Q10102:
;	DTS('NSPAN')
	MOVEI	14,Q10103
	MOVEM	14,S$$FLP##
	MOVE	1,S10038
	FCALV$	^D1,F10234
Q10103:
;	DTS('BREAKX')
	MOVEI	14,Q10104
	MOVEM	14,S$$FLP##
	MOVE	1,S10039
	FCALV$	^D1,F10234
Q10104:
;	DTS('BREAKQ')
	MOVEI	14,Q10105
	MOVEM	14,S$$FLP##
	MOVE	1,S10040
	FCALV$	^D1,F10234
Q10105:
;	DTS('ARBNO')
	MOVEI	14,Q10106
	MOVEM	14,S$$FLP##
	MOVE	1,S10041
	FCALV$	^D1,F10234
Q10106:
;* PREDEFINED PRIMITIVES
;	I	= FXXMSK + TXTATR
	MOVE	^D1,FXXMSK
	ADD	^D1,TXTATR
	MOVEM	1,V10088
;	DTS('APPLY')
	MOVEI	14,Q10107
	MOVEM	14,S$$FLP##
	MOVE	1,S10042
	FCALV$	^D1,F10234
Q10107:
;	DTS('ITEM')
	MOVEI	14,Q10108
	MOVEM	14,S$$FLP##
	MOVE	1,S10043
	FCALV$	^D1,F10234
Q10108:
;	DTS('DATE')
	MOVEI	14,Q10109
	MOVEM	14,S$$FLP##
	MOVE	1,S10044
	FCALV$	^D1,F10234
Q10109:
;	DTS('TIME')
	MOVEI	14,Q10110
	MOVEM	14,S$$FLP##
	MOVE	1,S10045
	FCALV$	^D1,F10234
Q10110:
;	DTS('DAYTIM')
	MOVEI	14,Q10111
	MOVEM	14,S$$FLP##
	MOVE	1,S10046
	FCALV$	^D1,F10234
Q10111:
;	DTS('EJECT')
	MOVEI	14,Q10112
	MOVEM	14,S$$FLP##
	MOVE	1,S10047
	FCALV$	^D1,F10234
Q10112:
;	DTS('INTEGER')
	MOVEI	14,Q10113
	MOVEM	14,S$$FLP##
	MOVE	1,S10048
	FCALV$	^D1,F10234
Q10113:
;	DTS('REAL')
	MOVEI	14,Q10114
	MOVEM	14,S$$FLP##
	MOVE	1,S10049
	FCALV$	^D1,F10234
Q10114:
;	DTS('SIZE')
	MOVEI	14,Q10115
	MOVEM	14,S$$FLP##
	MOVE	1,S10050
	FCALV$	^D1,F10234
Q10115:
;	DTS('TRIM')
	MOVEI	14,Q10116
	MOVEM	14,S$$FLP##
	MOVE	1,S10051
	FCALV$	^D1,F10234
Q10116:
;	DTS('DATATYPE')
	MOVEI	14,Q10117
	MOVEM	14,S$$FLP##
	MOVE	1,S10052
	FCALV$	^D1,F10234
Q10117:
;	DTS('COPY')
	MOVEI	14,Q10118
	MOVEM	14,S$$FLP##
	MOVE	1,S10053
	FCALV$	^D1,F10234
Q10118:
;	DTS('PROTOTYPE')
	MOVEI	14,Q10119
	MOVEM	14,S$$FLP##
	MOVE	1,S10054
	FCALV$	^D1,F10234
Q10119:
;	DTS('COLLECT')
	MOVEI	14,Q10120
	MOVEM	14,S$$FLP##
	MOVE	1,S10055
	FCALV$	^D1,F10234
Q10120:
;	DTS('EXTIME')
	MOVEI	14,Q10121
	MOVEM	14,S$$FLP##
	MOVE	1,S10056
	FCALV$	^D1,F10234
Q10121:
;	DTS('REVERS')
	MOVEI	14,Q10122
	MOVEM	14,S$$FLP##
	MOVE	1,S10057
	FCALV$	^D1,F10234
Q10122:
;	DTS('DETACH')
	MOVEI	14,Q10123
	MOVEM	14,S$$FLP##
	MOVE	1,S10058
	FCALV$	^D1,F10234
Q10123:
;	DTS('RELEASE')
	MOVEI	14,Q10124
	MOVEM	14,S$$FLP##
	MOVE	1,S10059
	FCALV$	^D1,F10234
Q10124:
;	DTS('DATA')
	MOVEI	14,Q10125
	MOVEM	14,S$$FLP##
	MOVE	1,S10060
	FCALV$	^D1,F10234
Q10125:
;	DTS('LGT')
	MOVEI	14,Q10126
	MOVEM	14,S$$FLP##
	MOVE	1,S10061
	FCALV$	^D1,F10234
Q10126:
;	DTS('CONVERT')
	MOVEI	14,Q10127
	MOVEM	14,S$$FLP##
	MOVE	1,S10062
	FCALV$	^D1,F10234
Q10127:
;	DTS('ARRAY')
	MOVEI	14,Q10128
	MOVEM	14,S$$FLP##
	MOVE	1,S10063
	FCALV$	^D1,F10234
Q10128:
;	DTS('TABLE')
	MOVEI	14,Q10129
	MOVEM	14,S$$FLP##
	MOVE	1,S10064
	FCALV$	^D1,F10234
Q10129:
;	DTS('DUPL')
	MOVEI	14,Q10130
	MOVEM	14,S$$FLP##
	MOVE	1,S10065
	FCALV$	^D1,F10234
Q10130:
;	DTS('DEFINE')
	MOVEI	14,Q10131
	MOVEM	14,S$$FLP##
	MOVE	1,S10066
	FCALV$	^D1,F10234
Q10131:
;	DTS('OPSYN')
	MOVEI	14,Q10132
	MOVEM	14,S$$FLP##
	MOVE	1,S10067
	FCALV$	^D1,F10234
Q10132:
;	DTS('OPEN')
	MOVEI	14,Q10133
	MOVEM	14,S$$FLP##
	MOVE	1,S10068
	FCALV$	^D1,F10234
Q10133:
;	DTS('LOOKUP')
	MOVEI	14,Q10134
	MOVEM	14,S$$FLP##
	MOVE	1,S10069
	FCALV$	^D1,F10234
Q10134:
;	DTS('ENTER')
	MOVEI	14,Q10135
	MOVEM	14,S$$FLP##
	MOVE	1,S10070
	FCALV$	^D1,F10234
Q10135:
;	DTS('DIFFER')
	MOVEI	14,Q10136
	MOVEM	14,S$$FLP##
	MOVE	1,S10071
	FCALV$	^D1,F10234
Q10136:
;	DTS('IDENT')
	MOVEI	14,Q10137
	MOVEM	14,S$$FLP##
	MOVE	1,S10072
	FCALV$	^D1,F10234
Q10137:
;	DTS('LT')
	MOVEI	14,Q10138
	MOVEM	14,S$$FLP##
	MOVE	1,S10073
	FCALV$	^D1,F10234
Q10138:
;	DTS('LE')
	MOVEI	14,Q10139
	MOVEM	14,S$$FLP##
	MOVE	1,S10074
	FCALV$	^D1,F10234
Q10139:
;	DTS('EQ')
	MOVEI	14,Q10140
	MOVEM	14,S$$FLP##
	MOVE	1,S10075
	FCALV$	^D1,F10234
Q10140:
;	DTS('NE')
	MOVEI	14,Q10141
	MOVEM	14,S$$FLP##
	MOVE	1,S10076
	FCALV$	^D1,F10234
Q10141:
;	DTS('GE')
	MOVEI	14,Q10142
	MOVEM	14,S$$FLP##
	MOVE	1,S10077
	FCALV$	^D1,F10234
Q10142:
;	DTS('GT')
	MOVEI	14,Q10143
	MOVEM	14,S$$FLP##
	MOVE	1,S10078
	FCALV$	^D1,F10234
Q10143:
;	DTS('LPAD')
	MOVEI	14,Q10144
	MOVEM	14,S$$FLP##
	MOVE	1,S10079
	FCALV$	^D1,F10234
Q10144:
;	DTS('RPAD')
	MOVEI	14,Q10145
	MOVEM	14,S$$FLP##
	MOVE	1,S10080
	FCALV$	^D1,F10234
Q10145:
;	DTS('SUBSTR')
	MOVEI	14,Q10146
	MOVEM	14,S$$FLP##
	MOVE	1,S10081
	FCALV$	^D1,F10234
Q10146:
;* SPECIAL CASE OF 'INPUT' AND 'OUTPUT', ALREADY DEFINED
;	DTS	= .ATRB(SYMBTB['INPUT'])
	MOVEI	14,Q10147
	MOVEM	14,S$$FLP##
	MOVE	1,S10000
	AREFV$	^D1,SYMBTB
	FCALN$	^D1,F10328
	MOVEM	1,@N10234
Q10147:
;	$DTS	= $DTS + I
	MOVEI	14,Q10148
	MOVEM	14,S$$FLP##
	MOVE	1,@N10234
	JSP	14,S$$IVN##
	PUSH	16,1
	MOVE	1,@N10234
	JSP	14,S$$IVV##
	DICNV$	0
	ADD	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10148:
;	DTS	= .ATRB(SYMBTB['OUTPUT'])
	MOVEI	14,Q10149
	MOVEM	14,S$$FLP##
	MOVE	1,S10002
	AREFV$	^D1,SYMBTB
	FCALN$	^D1,F10328
	MOVEM	1,@N10234
Q10149:
;	$DTS	= $DTS + I + TXTATR
	MOVEI	14,Q10150
	MOVEM	14,S$$FLP##
	MOVE	1,@N10234
	JSP	14,S$$IVN##
	PUSH	16,1
	MOVE	1,@N10234
	JSP	14,S$$IVV##
	DICNV$	0
	ADD	^D1,V10088
	ADD	^D1,TXTATR
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10150:
;	I	= I + 2 * TXTATR
	MOVE	^D1,V10088
	MOVE	^D2,K10262
	IMUL	^D2,TXTATR
	ADD	^D1,^D2
	MOVEM	1,V10088
;	DTS('CLOSE')
	MOVEI	14,Q10151
	MOVEM	14,S$$FLP##
	MOVE	1,S10082
	FCALV$	^D1,F10234
Q10151:
;	DTS('REPLACE')
	MOVEI	14,Q10152
	MOVEM	14,S$$FLP##
	MOVE	1,S10083
	FCALV$	^D1,F10234
Q10152:
;	DTS('INSERT')
	MOVEI	14,Q10153
	MOVEM	14,S$$FLP##
	MOVE	1,S10084
	FCALV$	^D1,F10234
Q10153:
;*	OTHER SYSTEM TABLES
;* KEYWORDS
;	KEYWTB	= TABLE(20,1)
	MOVEI	14,Q10154
	MOVEM	14,S$$FLP##
	MOVE	1,I10329
	PUSH	16,1
	MOVE	1,I10239
	FCALV$	^D2,F10064
	MOVEM	1,@KEYWTB
Q10154:
;	KEYWTB['STFCOUNT']	= 0
	MOVEI	14,Q10155
	MOVEM	14,S$$FLP##
	MOVE	1,S10330
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10293
	JSP	11,S$$ASG##
Q10155:
;	KEYWTB['LASTNO']	= 1
	MOVEI	14,Q10156
	MOVEM	14,S$$FLP##
	MOVE	1,S10331
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10239
	JSP	11,S$$ASG##
Q10156:
;	KEYWTB['STNO']	= 2
	MOVEI	14,Q10157
	MOVEM	14,S$$FLP##
	MOVE	1,S10154
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10262
	JSP	11,S$$ASG##
Q10157:
;	KEYWTB['FNCLEVEL']	= 3
	MOVEI	14,Q10158
	MOVEM	14,S$$FLP##
	MOVE	1,S10332
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10246
	JSP	11,S$$ASG##
Q10158:
;	KEYWTB['STCOUNT']	= 4
	MOVEI	14,Q10159
	MOVEM	14,S$$FLP##
	MOVE	1,S10333
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10258
	JSP	11,S$$ASG##
Q10159:
;	KEYWTB['ERRTYPE']	= 5
	MOVEI	14,Q10160
	MOVEM	14,S$$FLP##
	MOVE	1,S10334
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10254
	JSP	11,S$$ASG##
Q10160:
;	KEYWTB['RTNTYPE']	= 6
	MOVEI	14,Q10161
	MOVEM	14,S$$FLP##
	MOVE	1,S10335
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10295
	JSP	11,S$$ASG##
Q10161:
;	KEYWTB['ALPHABET']	= 7
	MOVEI	14,Q10162
	MOVEM	14,S$$FLP##
	MOVE	1,S10336
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10162:
;	KEYWTB['ABEND']	= 8
	MOVEI	14,Q10163
	MOVEM	14,S$$FLP##
	MOVE	1,S10337
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10263
	JSP	11,S$$ASG##
Q10163:
;	KEYWTB['ANCHOR']	= 9
	MOVEI	14,Q10164
	MOVEM	14,S$$FLP##
	MOVE	1,S10338
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10243
	JSP	11,S$$ASG##
Q10164:
;	KEYWTB['FULLSCAN']	= 10
	MOVEI	14,Q10165
	MOVEM	14,S$$FLP##
	MOVE	1,S10339
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10241
	JSP	11,S$$ASG##
Q10165:
;	KEYWTB['STNTRACE']	= 11
	MOVEI	14,Q10166
	MOVEM	14,S$$FLP##
	MOVE	1,S10340
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10341
	JSP	11,S$$ASG##
Q10166:
;	KEYWTB['MAXLNGTH']	= 12
	MOVEI	14,Q10167
	MOVEM	14,S$$FLP##
	MOVE	1,S10342
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10240
	JSP	11,S$$ASG##
Q10167:
;	KEYWTB['STLIMIT']	= 13
	MOVEI	14,Q10168
	MOVEM	14,S$$FLP##
	MOVE	1,S10343
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10242
	JSP	11,S$$ASG##
Q10168:
;	KEYWTB['ERRLIMIT']	= 14
	MOVEI	14,Q10169
	MOVEM	14,S$$FLP##
	MOVE	1,S10344
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10345
	JSP	11,S$$ASG##
Q10169:
;	KEYWTB['DENSITY']	= 15
	MOVEI	14,Q10170
	MOVEM	14,S$$FLP##
	MOVE	1,S10346
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10347
	JSP	11,S$$ASG##
Q10170:
;	KEYWTB['INPUT']	= 16
	MOVEI	14,Q10171
	MOVEM	14,S$$FLP##
	MOVE	1,S10000
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10348
	JSP	11,S$$ASG##
Q10171:
;	KEYWTB['OUTPUT']	= 17
	MOVEI	14,Q10172
	MOVEM	14,S$$FLP##
	MOVE	1,S10002
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10349
	JSP	11,S$$ASG##
Q10172:
;	KEYWTB['DUMP']	= 18
	MOVEI	14,Q10173
	MOVEM	14,S$$FLP##
	MOVE	1,S10350
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10351
	JSP	11,S$$ASG##
Q10173:
;	KEYWTB['SLOWFRAG']	= 19
	MOVEI	14,Q10174
	MOVEM	14,S$$FLP##
	MOVE	1,S10352
	AREFN$	^D1,KEYWTB
	PUSH	16,1
	MOVE	1,I10353
	JSP	11,S$$ASG##
Q10174:
;* CONTROL TYPES
;	CTRLTB	= TABLE(10,1)
	MOVEI	14,Q10175
	MOVEM	14,S$$FLP##
	MOVE	1,I10241
	PUSH	16,1
	MOVE	1,I10239
	FCALV$	^D2,F10064
	MOVEM	1,@CTRLTB
Q10175:
;	CTRLTB['LIST']	= 'CTL1'
	MOVEI	14,Q10176
	MOVEM	14,S$$FLP##
	MOVE	1,S10354
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10355
	JSP	11,S$$ASG##
Q10176:
;	CTRLTB['UNLIST']	= 'CTL2'
	MOVEI	14,Q10177
	MOVEM	14,S$$FLP##
	MOVE	1,S10356
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10357
	JSP	11,S$$ASG##
Q10177:
;	CTRLTB['NOCODE']	= 'CTL3'
	MOVEI	14,Q10178
	MOVEM	14,S$$FLP##
	MOVE	1,S10358
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10359
	JSP	11,S$$ASG##
Q10178:
;	CTRLTB['CODE']	= 'CTL4'
	MOVEI	14,Q10179
	MOVEM	14,S$$FLP##
	MOVE	1,S10360
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10361
	JSP	11,S$$ASG##
Q10179:
;	CTRLTB['EJECT']	= 'CTL5'
	MOVEI	14,Q10180
	MOVEM	14,S$$FLP##
	MOVE	1,S10047
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10362
	JSP	11,S$$ASG##
Q10180:
;	CTRLTB['SPACE']	= 'CTL6'
	MOVEI	14,Q10181
	MOVEM	14,S$$FLP##
	MOVE	1,S10363
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10364
	JSP	11,S$$ASG##
Q10181:
;	CTRLTB['FAIL']	= 'CTL7'
	MOVEI	14,Q10182
	MOVEM	14,S$$FLP##
	MOVE	1,S10022
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10365
	JSP	11,S$$ASG##
Q10182:
;	CTRLTB['NOFAIL']	= 'CTL8'
	MOVEI	14,Q10183
	MOVEM	14,S$$FLP##
	MOVE	1,S10128
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10366
	JSP	11,S$$ASG##
Q10183:
;	CTRLTB['NOCROSS']	= 'CTL9'
	MOVEI	14,Q10184
	MOVEM	14,S$$FLP##
	MOVE	1,S10367
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10368
	JSP	11,S$$ASG##
Q10184:
;	CTRLTB['CROSREF']	= 'CTL10'
	MOVEI	14,Q10185
	MOVEM	14,S$$FLP##
	MOVE	1,S10369
	AREFN$	^D1,CTRLTB
	PUSH	16,1
	MOVE	1,S10370
	JSP	11,S$$ASG##
Q10185:
;* DECLARATION TYPES
;	DECLTB	= TABLE(24,1)
	MOVEI	14,Q10186
	MOVEM	14,S$$FLP##
	MOVE	1,I10371
	PUSH	16,1
	MOVE	1,I10239
	FCALV$	^D2,F10064
	MOVEM	1,@DECLTB
Q10186:
;	DECLTB['OPTION']	= 'OPT'
	MOVEI	14,Q10187
	MOVEM	14,S$$FLP##
	MOVE	1,S10372
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10373
	JSP	11,S$$ASG##
Q10187:
;	DECLTB['SNOBOL.MAIN']	= 'SNO'
	MOVEI	14,Q10188
	MOVEM	14,S$$FLP##
	MOVE	1,S10374
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10375
	JSP	11,S$$ASG##
Q10188:
;	DECLTB['SNOBOL.SUBPROGRAM']	= 'SUB'
	MOVEI	14,Q10189
	MOVEM	14,S$$FLP##
	MOVE	1,S10376
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10377
	JSP	11,S$$ASG##
Q10189:
;	DECLTB['PURGE.VARIABLE']	= 'PRV'
	MOVEI	14,Q10190
	MOVEM	14,S$$FLP##
	MOVE	1,S10378
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10379
	JSP	11,S$$ASG##
Q10190:
;	DECLTB['UNPURGE.VARIABLE']	= 'UPV'
	MOVEI	14,Q10191
	MOVEM	14,S$$FLP##
	MOVE	1,S10380
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10381
	JSP	11,S$$ASG##
Q10191:
;	DECLTB['PURGE.LABEL']	= 'PRL'
	MOVEI	14,Q10192
	MOVEM	14,S$$FLP##
	MOVE	1,S10382
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10383
	JSP	11,S$$ASG##
Q10192:
;	DECLTB['UNPURGE.LABEL']	= 'UPL'
	MOVEI	14,Q10193
	MOVEM	14,S$$FLP##
	MOVE	1,S10384
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10385
	JSP	11,S$$ASG##
Q10193:
;	DECLTB['PURGE.FUNCTION']	= 'PRF'
	MOVEI	14,Q10194
	MOVEM	14,S$$FLP##
	MOVE	1,S10386
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10387
	JSP	11,S$$ASG##
Q10194:
;	DECLTB['UNPURGE.FUNCTION']	= 'UPF'
	MOVEI	14,Q10195
	MOVEM	14,S$$FLP##
	MOVE	1,S10388
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10389
	JSP	11,S$$ASG##
Q10195:
;	DECLTB['STRING']	= 'STR'
	MOVEI	14,Q10196
	MOVEM	14,S$$FLP##
	MOVE	1,S10390
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10391
	JSP	11,S$$ASG##
Q10196:
;	DECLTB['INTEGER']	= 'INT'
	MOVEI	14,Q10197
	MOVEM	14,S$$FLP##
	MOVE	1,S10048
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10392
	JSP	11,S$$ASG##
Q10197:
;	DECLTB['REAL']	= 'REL'
	MOVEI	14,Q10198
	MOVEM	14,S$$FLP##
	MOVE	1,S10049
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10393
	JSP	11,S$$ASG##
Q10198:
;	DECLTB['RENAME']	= 'REN'
	MOVEI	14,Q10199
	MOVEM	14,S$$FLP##
	MOVE	1,S10394
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10395
	JSP	11,S$$ASG##
Q10199:
;	DECLTB['GLOBAL.VARIABLE']	= 'GLV'
	MOVEI	14,Q10200
	MOVEM	14,S$$FLP##
	MOVE	1,S10396
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10397
	JSP	11,S$$ASG##
Q10200:
;	DECLTB['GLOBAL.LABEL']	= 'GLL'
	MOVEI	14,Q10201
	MOVEM	14,S$$FLP##
	MOVE	1,S10398
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10399
	JSP	11,S$$ASG##
Q10201:
;	DECLTB['GLOBAL.FUNCTION']	= 'GLF'
	MOVEI	14,Q10202
	MOVEM	14,S$$FLP##
	MOVE	1,S10400
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10401
	JSP	11,S$$ASG##
Q10202:
;	DECLTB['EXTERNAL.VARIABLE']	= 'EXV'
	MOVEI	14,Q10203
	MOVEM	14,S$$FLP##
	MOVE	1,S10402
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10403
	JSP	11,S$$ASG##
Q10203:
;	DECLTB['ENTRY.VARIABLE']	= 'ENV'
	MOVEI	14,Q10204
	MOVEM	14,S$$FLP##
	MOVE	1,S10404
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10405
	JSP	11,S$$ASG##
Q10204:
;	DECLTB['EXTERNAL.LABEL']	= 'EXL'
	MOVEI	14,Q10205
	MOVEM	14,S$$FLP##
	MOVE	1,S10406
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10407
	JSP	11,S$$ASG##
Q10205:
;	DECLTB['ENTRY.LABEL']	= 'ENL'
	MOVEI	14,Q10206
	MOVEM	14,S$$FLP##
	MOVE	1,S10408
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10409
	JSP	11,S$$ASG##
Q10206:
;	DECLTB['EXTERNAL.FUNCTION']	= 'EXF'
	MOVEI	14,Q10207
	MOVEM	14,S$$FLP##
	MOVE	1,S10410
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10411
	JSP	11,S$$ASG##
Q10207:
;	DECLTB['ENTRY.FUNCTION']	= 'ENF'
	MOVEI	14,Q10208
	MOVEM	14,S$$FLP##
	MOVE	1,S10412
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10413
	JSP	11,S$$ASG##
Q10208:
;	DECLTB['EXTERNAL.FORTRAN.FUNCTION']	= 'XFF'
	MOVEI	14,Q10209
	MOVEM	14,S$$FLP##
	MOVE	1,S10414
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10415
	JSP	11,S$$ASG##
Q10209:
;	DECLTB['ENTRY.FORTRAN.FUNCTION']	= 'NFF'
	MOVEI	14,Q10210
	MOVEM	14,S$$FLP##
	MOVE	1,S10416
	AREFN$	^D1,DECLTB
	PUSH	16,1
	MOVE	1,S10417
	JSP	11,S$$ASG##
Q10210:
;* BINARY OPERATOR TYPES
;	BOPRTB	= TABLE(9,1)
	MOVEI	14,Q10211
	MOVEM	14,S$$FLP##
	MOVE	1,I10243
	PUSH	16,1
	MOVE	1,I10239
	FCALV$	^D2,F10064
	MOVEM	1,@BOPRTB
Q10211:
;	BOPRTB['**']	= 30
	MOVEI	14,Q10212
	MOVEM	14,S$$FLP##
	MOVE	1,S10418
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10419
	JSP	11,S$$ASG##
Q10212:
;	BOPRTB['^']	= 30
	MOVEI	14,Q10213
	MOVEM	14,S$$FLP##
	MOVE	1,S10420
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10419
	JSP	11,S$$ASG##
Q10213:
;	BOPRTB['*']	= 32
	MOVEI	14,Q10214
	MOVEM	14,S$$FLP##
	MOVE	1,S10260
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10421
	JSP	11,S$$ASG##
Q10214:
;	BOPRTB['/']	= 33
	MOVEI	14,Q10215
	MOVEM	14,S$$FLP##
	MOVE	1,S10422
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10423
	JSP	11,S$$ASG##
Q10215:
;	BOPRTB['+']	= 34
	MOVEI	14,Q10216
	MOVEM	14,S$$FLP##
	MOVE	1,S10424
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10245
	JSP	11,S$$ASG##
Q10216:
;	BOPRTB['-']	= 35
	MOVEI	14,Q10217
	MOVEM	14,S$$FLP##
	MOVE	1,S10425
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10426
	JSP	11,S$$ASG##
Q10217:
;	BOPRTB['.']	= 36
	MOVEI	14,Q10218
	MOVEM	14,S$$FLP##
	MOVE	1,S10294
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10427
	JSP	11,S$$ASG##
Q10218:
;	BOPRTB['$']	= 37
	MOVEI	14,Q10219
	MOVEM	14,S$$FLP##
	MOVE	1,S10428
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10429
	JSP	11,S$$ASG##
Q10219:
;	BOPRTB['!']	= 40
	MOVEI	14,Q10220
	MOVEM	14,S$$FLP##
	MOVE	1,S10430
	AREFN$	^D1,BOPRTB
	PUSH	16,1
	MOVE	1,I10431
	JSP	11,S$$ASG##
Q10220:
;* UNARY OPERATOR TYPES
;	UOPRTB	= TABLE(8,1)
	MOVEI	14,Q10221
	MOVEM	14,S$$FLP##
	MOVE	1,I10263
	PUSH	16,1
	MOVE	1,I10239
	FCALV$	^D2,F10064
	MOVEM	1,@UOPRTB
Q10221:
;	UOPRTB['$']	= 10
	MOVEI	14,Q10222
	MOVEM	14,S$$FLP##
	MOVE	1,S10428
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10241
	JSP	11,S$$ASG##
Q10222:
;	UOPRTB['?']	= 11
	MOVEI	14,Q10223
	MOVEM	14,S$$FLP##
	MOVE	1,S10432
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10341
	JSP	11,S$$ASG##
Q10223:
;	UOPRTB['\']	= 12
	MOVEI	14,Q10224
	MOVEM	14,S$$FLP##
	MOVE	1,S10433
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10240
	JSP	11,S$$ASG##
Q10224:
;	UOPRTB['+']	= 13
	MOVEI	14,Q10225
	MOVEM	14,S$$FLP##
	MOVE	1,S10424
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10242
	JSP	11,S$$ASG##
Q10225:
;	UOPRTB['-']	= 14
	MOVEI	14,Q10226
	MOVEM	14,S$$FLP##
	MOVE	1,S10425
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10345
	JSP	11,S$$ASG##
Q10226:
;	UOPRTB['.']	= 15
	MOVEI	14,Q10227
	MOVEM	14,S$$FLP##
	MOVE	1,S10294
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10347
	JSP	11,S$$ASG##
Q10227:
;	UOPRTB['@']	= 16
	MOVEI	14,Q10228
	MOVEM	14,S$$FLP##
	MOVE	1,S10434
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10348
	JSP	11,S$$ASG##
Q10228:
;	UOPRTB['*']	= 17
	MOVEI	14,Q10229
	MOVEM	14,S$$FLP##
	MOVE	1,S10260
	AREFN$	^D1,UOPRTB
	PUSH	16,1
	MOVE	1,I10349
	JSP	11,S$$ASG##
Q10229:
;*	BINARY OPERATOR RESULT ARRAYS
;	BEXPAR	= ARRAY('0:5,0:5',3)
	MOVEI	14,Q10230
	MOVEM	14,S$$FLP##
	MOVE	1,S10436
	PUSH	16,1
	MOVE	1,I10246
	FCALV$	^D2,F10063
	MOVEM	1,@N10435
Q10230:
;	J	=
	MOVEI	14,Q10231
	MOVEM	14,S$$FLP##
	SETZM	V10089
Q10231:
;BEXP0	I	=
L10437:
	MOVEI	14,Q10232
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10232:
;BEXP1	BEXPAR<I,J>	= 2
L10438:
	MOVEI	14,Q10233
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	^D1,V10089
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D2,N10435
	PUSH	16,1
	MOVE	1,I10262
	JSP	11,S$$ASG##
Q10233:
;	I	= ?INE(I,4) I + 2	:S(BEXP1)
	MOVEI	14,Q10234
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10258
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10262
	MOVEM	1,V10088
	JRST	L10438
Q10234:
;	J	= ?INE(J,4) J + 2	:S(BEXP0)
	MOVEI	14,Q10235
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10089
	JUMP	0,K10258
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10089
	ADD	^D1,K10262
	MOVEM	1,V10089
	JRST	L10437
Q10235:
;	BEXPAR<4,4>	= 4
	MOVEI	14,Q10236
	MOVEM	14,S$$FLP##
	MOVE	1,I10258
	PUSH	16,1
	MOVE	1,I10258
	AREFN$	^D2,N10435
	PUSH	16,1
	MOVE	1,I10258
	JSP	11,S$$ASG##
Q10236:
;	I	=
	MOVEI	14,Q10237
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10237:
;BEXP2	BEXPAR<I,5>	= 7
L10439:
	MOVEI	14,Q10238
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	1,I10254
	AREFN$	^D2,N10435
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10238:
;	I	= ?INE(I,5) I + 1	:S(BEXP2)
	MOVEI	14,Q10239
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10439
Q10239:
;	I	=
	MOVEI	14,Q10240
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10240:
;BEXP3	BEXPAR<5,I>	= 7
L10440:
	MOVEI	14,Q10241
	MOVEM	14,S$$FLP##
	MOVE	1,I10254
	PUSH	16,1
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D2,N10435
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10241:
;	I	= ?INE(I,4) I + 1	:S(BEXP3)
	MOVEI	14,Q10242
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10258
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10440
Q10242:
;	BARTAR	= COPY(BEXPAR)
	MOVEI	14,Q10243
	MOVEM	14,S$$FLP##
	MOVE	1,@N10435
	FCALV$	^D1,F10053
	MOVEM	1,@N10441
Q10243:
;	J	=
	MOVEI	14,Q10244
	MOVEM	14,S$$FLP##
	SETZM	V10089
Q10244:
;BART0	I	=
L10442:
	MOVEI	14,Q10245
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10245:
;BART1	BARTAR<I,J>	= OR(I,J)
L10443:
	MOVEI	14,Q10246
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	^D1,V10089
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D2,N10441
	PUSH	16,1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$IOR##
	JUMP	0,V10088
	JUMP	0,V10089
	ADD	16,S$$STB##
	MOVE	1,0
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10246:
;	I	= ?INE(I,1) I + 1	:S(BART1)
	MOVEI	14,Q10247
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10239
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10443
Q10247:
;	J	= ?INE(J,1) J + 1	:S(BART0)
	MOVEI	14,Q10248
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10089
	JUMP	0,K10239
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10089
	ADD	^D1,K10239
	MOVEM	1,V10089
	JRST	L10442
Q10248:
;	BPATAR	= ARRAY('0:5,0:5',7)
	MOVEI	14,Q10249
	MOVEM	14,S$$FLP##
	MOVE	1,S10436
	PUSH	16,1
	MOVE	1,I10264
	FCALV$	^D2,F10063
	MOVEM	1,@N10444
Q10249:
;	J	=
	MOVEI	14,Q10250
	MOVEM	14,S$$FLP##
	SETZM	V10089
Q10250:
;BPAT0	I	=
L10445:
	MOVEI	14,Q10251
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10251:
;BPAT1	BPATAR<I,J>	= 5
L10446:
	MOVEI	14,Q10252
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	^D1,V10089
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D2,N10444
	PUSH	16,1
	MOVE	1,I10254
	JSP	11,S$$ASG##
Q10252:
;	I	= ?IEQ(I,1) 4	:S(BPAT1)
	MOVEI	14,Q10253
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$EQP##
	JUMP	0,V10088
	JUMP	0,K10239
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,K10258
	MOVEM	1,V10088
	JRST	L10446
Q10253:
;	I	= ?INE(I,5) I + 1	:S(BPAT1)
	MOVEI	14,Q10254
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10446
Q10254:
;	J	= ?IEQ(J,1) 4	:S(BPAT0)
	MOVEI	14,Q10255
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$EQP##
	JUMP	0,V10089
	JUMP	0,K10239
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,K10258
	MOVEM	1,V10089
	JRST	L10445
Q10255:
;	J	= ?INE(J,5) J + 1	:S(BPAT0)
	MOVEI	14,Q10256
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10089
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10089
	ADD	^D1,K10239
	MOVEM	1,V10089
	JRST	L10445
Q10256:
;	BSPCAR	= ARRAY('0:5,0:5',4)
	MOVEI	14,Q10257
	MOVEM	14,S$$FLP##
	MOVE	1,S10436
	PUSH	16,1
	MOVE	1,I10258
	FCALV$	^D2,F10063
	MOVEM	1,@N10447
Q10257:
;	J	=
	MOVEI	14,Q10258
	MOVEM	14,S$$FLP##
	SETZM	V10089
Q10258:
;BSPC0	I	=
L10448:
	MOVEI	14,Q10259
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10259:
;BSPC1	K	= J
L10449:
	MOVE	^D1,V10089
	MOVEM	1,V10090
;	K	= ?IGT(I,J) I
	MOVEI	14,Q10260
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$GTP##
	JUMP	0,V10088
	JUMP	0,V10089
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	MOVEM	1,V10090
Q10260:
;	K	= ?IEQ(K,4) 6
	MOVEI	14,Q10261
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$EQP##
	JUMP	0,V10090
	JUMP	0,K10258
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,K10295
	MOVEM	1,V10090
Q10261:
;	BSPCAR<I,J>	= ?IGE(K,5) K
	MOVEI	14,Q10262
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	PUSH	16,1
	MOVE	^D1,V10089
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D2,N10447
	PUSH	16,1
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$GEP##
	JUMP	0,V10090
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10090
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10262:
;	I	= ?INE(I,5) I + 1	:S(BSPC1)
	MOVEI	14,Q10263
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10449
Q10263:
;	J	= ?INE(J,5) J + 1	:S(BSPC0)
	MOVEI	14,Q10264
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10089
	JUMP	0,K10254
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10089
	ADD	^D1,K10239
	MOVEM	1,V10089
	JRST	L10448
Q10264:
;	BOPRAR	= ARRAY('15:20',BARTAR)
	MOVEI	14,Q10265
	MOVEM	14,S$$FLP##
	MOVE	1,S10450
	PUSH	16,1
	MOVE	1,@N10441
	FCALV$	^D2,F10063
	MOVEM	1,@BOPRAR
Q10265:
;	BOPRAR<15>	= BEXPAR
	MOVEI	14,Q10266
	MOVEM	14,S$$FLP##
	MOVE	1,I10347
	AREFN$	^D1,BOPRAR
	PUSH	16,1
	MOVE	1,@N10435
	JSP	11,S$$ASG##
Q10266:
;	BOPRAR<18>	= BPATAR
	MOVEI	14,Q10267
	MOVEM	14,S$$FLP##
	MOVE	1,I10351
	AREFN$	^D1,BOPRAR
	PUSH	16,1
	MOVE	1,@N10444
	JSP	11,S$$ASG##
Q10267:
;	BOPRAR<19>	= BSPCAR
	MOVEI	14,Q10268
	MOVEM	14,S$$FLP##
	MOVE	1,I10353
	AREFN$	^D1,BOPRAR
	PUSH	16,1
	MOVE	1,@N10447
	JSP	11,S$$ASG##
Q10268:
;	BOPRAR<20>	= BPATAR
	MOVEI	14,Q10269
	MOVEM	14,S$$FLP##
	MOVE	1,I10329
	AREFN$	^D1,BOPRAR
	PUSH	16,1
	MOVE	1,@N10444
	JSP	11,S$$ASG##
Q10269:
;*	UNARY OPERATOR RESULT ARRAYS
;	USTRAR	= ARRAY('0:5',4)
	MOVEI	14,Q10270
	MOVEM	14,S$$FLP##
	MOVE	1,S10452
	PUSH	16,1
	MOVE	1,I10258
	FCALV$	^D2,F10063
	MOVEM	1,@N10451
Q10270:
;	USTRAR<5>	= 7
	MOVEI	14,Q10271
	MOVEM	14,S$$FLP##
	MOVE	1,I10254
	AREFN$	^D1,N10451
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10271:
;	UARTAR	= ARRAY('0:5',7)
	MOVEI	14,Q10272
	MOVEM	14,S$$FLP##
	MOVE	1,S10452
	PUSH	16,1
	MOVE	1,I10264
	FCALV$	^D2,F10063
	MOVEM	1,@N10453
Q10272:
;	I	=
	MOVEI	14,Q10273
	MOVEM	14,S$$FLP##
	SETZM	V10088
Q10273:
;UART0	UARTAR<I>	= I
L10454:
	MOVEI	14,Q10274
	MOVEM	14,S$$FLP##
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	AREFN$	^D1,N10453
	PUSH	16,1
	MOVE	^D1,V10088
	TLO	1,1B18
	TLZ	1,1B19
	JSP	11,S$$ASG##
Q10274:
;	I	= ?INE(I,4) I + 1	:S(UART0)
	MOVEI	14,Q10275
	MOVEM	14,S$$FLP##
	SUB	16,S$$STB##
	MOVEM	16,S$$STS##
	JSA	16,F$$NEP##
	JUMP	0,V10088
	JUMP	0,K10258
	ADD	16,S$$STB##
	SETZ	1,
	MOVE	^D1,V10088
	ADD	^D1,K10239
	MOVEM	1,V10088
	JRST	L10454
Q10275:
;	UNAMAR	= COPY(USTRAR)
	MOVEI	14,Q10276
	MOVEM	14,S$$FLP##
	MOVE	1,@N10451
	FCALV$	^D1,F10053
	MOVEM	1,@N10455
Q10276:
;	UNAMAR<2>	= 7
	MOVEI	14,Q10277
	MOVEM	14,S$$FLP##
	MOVE	1,I10262
	AREFN$	^D1,N10455
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10277:
;	UNAMAR<3>	= 7
	MOVEI	14,Q10278
	MOVEM	14,S$$FLP##
	MOVE	1,I10246
	AREFN$	^D1,N10455
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10278:
;	UPOSAR	= ARRAY('0:5',5)
	MOVEI	14,Q10279
	MOVEM	14,S$$FLP##
	MOVE	1,S10452
	PUSH	16,1
	MOVE	1,I10254
	FCALV$	^D2,F10063
	MOVEM	1,@N10456
Q10279:
;	UASTAR	= COPY(UPOSAR)
	MOVEI	14,Q10280
	MOVEM	14,S$$FLP##
	MOVE	1,@N10456
	FCALV$	^D1,F10053
	MOVEM	1,@N10457
Q10280:
;	UPOSAR<2>	= 7
	MOVEI	14,Q10281
	MOVEM	14,S$$FLP##
	MOVE	1,I10262
	AREFN$	^D1,N10456
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10281:
;	UPOSAR<3>	= 7
	MOVEI	14,Q10282
	MOVEM	14,S$$FLP##
	MOVE	1,I10246
	AREFN$	^D1,N10456
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10282:
;	UASTAR<5>	= 7
	MOVEI	14,Q10283
	MOVEM	14,S$$FLP##
	MOVE	1,I10254
	AREFN$	^D1,N10457
	PUSH	16,1
	MOVE	1,I10264
	JSP	11,S$$ASG##
Q10283:
;	UOPRAR	= ARRAY('10:17',USTRAR)
	MOVEI	14,Q10284
	MOVEM	14,S$$FLP##
	MOVE	1,S10458
	PUSH	16,1
	MOVE	1,@N10451
	FCALV$	^D2,F10063
	MOVEM	1,@UOPRAR
Q10284:
;	UOPRAR<13>	= UARTAR
	MOVEI	14,Q10285
	MOVEM	14,S$$FLP##
	MOVE	1,I10242
	AREFN$	^D1,UOPRAR
	PUSH	16,1
	MOVE	1,@N10453
	JSP	11,S$$ASG##
Q10285:
;	UOPRAR<14>	= UARTAR
	MOVEI	14,Q10286
	MOVEM	14,S$$FLP##
	MOVE	1,I10345
	AREFN$	^D1,UOPRAR
	PUSH	16,1
	MOVE	1,@N10453
	JSP	11,S$$ASG##
Q10286:
;	UOPRAR<15>	= UNAMAR
	MOVEI	14,Q10287
	MOVEM	14,S$$FLP##
	MOVE	1,I10347
	AREFN$	^D1,UOPRAR
	PUSH	16,1
	MOVE	1,@N10455
	JSP	11,S$$ASG##
Q10287:
;	UOPRAR<16>	= UPOSAR
	MOVEI	14,Q10288
	MOVEM	14,S$$FLP##
	MOVE	1,I10348
	AREFN$	^D1,UOPRAR
	PUSH	16,1
	MOVE	1,@N10456
	JSP	11,S$$ASG##
Q10288:
;	UOPRAR<17>	= UASTAR
	MOVEI	14,Q10289
	MOVEM	14,S$$FLP##
	MOVE	1,I10349
	AREFN$	^D1,UOPRAR
	PUSH	16,1
	MOVE	1,@N10457
	JSP	11,S$$ASG##
Q10289:
;*
;	:(RETURN)
	JRST	S$$SRT##
;END
	JRST	S$$SXT##
Q10001:	BLOCK	^D1
K10239:	EXP	^D1
I10239:	EXP	^D1!1B0
I10240:	EXP	^D12!1B0
K10241:	EXP	^D10
I10241:	EXP	^D10!1B0
I10242:	EXP	^D13!1B0
I10243:	EXP	^D9!1B0
I10244:	EXP	^D39!1B0
I10245:	EXP	^D34!1B0
K10246:	EXP	^D3
I10246:	EXP	^D3!1B0
I10249:	EXP	^D26!1B0
I10250:	EXP	^D97!1B0
K10254:	EXP	^D5
I10254:	EXP	^D5!1B0
K10258:	EXP	^D4
I10258:	EXP	^D4!1B0
K10259:	EXP	^D10000000
I10261:	EXP	^D42!1B0
K10262:	EXP	^D2
I10262:	EXP	^D2!1B0
K10263:	EXP	^D8
I10263:	EXP	^D8!1B0
K10264:	EXP	^D7
I10264:	EXP	^D7!1B0
K10265:	EXP	^D64
K10266:	EXP	^D256
K10267:	EXP	^D512
K10268:	EXP	^D2048
K10269:	EXP	^D127
K10270:	EXP	^D262144
K10271:	EXP	^D524288
K10272:	EXP	^D1048576
K10273:	EXP	^D2097152
K10274:	EXP	^D4194304
K10275:	EXP	^D8388608
K10276:	EXP	^D16777216
K10277:	EXP	^D33554432
K10278:	EXP	^D67108864
K10279:	EXP	^D268435456
K10280:	EXP	^D536870912
K10281:	EXP	^D1073741824
K10293:	EXP	^D0
I10293:	EXP	^D0!1B0
K10295:	EXP	^D6
I10295:	EXP	^D6!1B0
I10299:	EXP	^D85!1B0
I10300:	EXP	^D22!1B0
I10329:	EXP	^D20!1B0
I10341:	EXP	^D11!1B0
I10345:	EXP	^D14!1B0
I10347:	EXP	^D15!1B0
I10348:	EXP	^D16!1B0
I10349:	EXP	^D17!1B0
I10351:	EXP	^D18!1B0
I10353:	EXP	^D19!1B0
I10371:	EXP	^D24!1B0
I10419:	EXP	^D30!1B0
I10421:	EXP	^D32!1B0
I10423:	EXP	^D33!1B0
I10426:	EXP	^D35!1B0
I10427:	EXP	^D36!1B0
I10429:	EXP	^D37!1B0
I10431:	EXP	^D40!1B0
F10000:	BYTE	(4)4(4)0(5)^D3(5)0(18)P$$INP##
S10000:	POINT	7,A10000,35
A10000:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'INPUT'
S10001:	POINT	7,A10001,35
A10001:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'INPUTC'
F10002:	BYTE	(4)4(4)0(5)^D3(5)0(18)P$$OUT##
S10002:	POINT	7,A10002,35
A10002:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'OUTPUT'
S10003:	POINT	7,A10003,35
A10003:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'OUTPUTC'
S10004:	POINT	7,A10004,35
A10004:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'RETURN'
S10005:	POINT	7,A10005,35
A10005:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'FRETURN'
S10006:	POINT	7,A10006,35
A10006:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'NRETURN'
S10007:	POINT	7,A10007,35
A10007:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'END'
S10008:	POINT	7,A10008,35
A10008:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'FREEZE'
S10009:	POINT	7,A10009,35
A10009:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'NOT'
S10010:	POINT	7,A10010,35
A10010:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ILT'
S10011:	POINT	7,A10011,35
A10011:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ILE'
S10012:	POINT	7,A10012,35
A10012:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'IEQ'
S10013:	POINT	7,A10013,35
A10013:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'INE'
S10014:	POINT	7,A10014,35
A10014:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'IGE'
S10015:	POINT	7,A10015,35
A10015:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'IGT'
S10016:	POINT	7,A10016,35
A10016:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'AND'
S10017:	POINT	7,A10017,35
A10017:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'OR'
S10018:	POINT	7,A10018,35
A10018:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'XOR'
S10019:	POINT	7,A10019,35
A10019:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'RSHIFT'
S10020:	POINT	7,A10020,35
A10020:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'LSHIFT'
S10021:	POINT	7,A10021,35
A10021:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'REMDR'
S10022:	POINT	7,A10022,35
A10022:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'FAIL'
S10023:	POINT	7,A10023,35
A10023:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'FENCE'
S10024:	POINT	7,A10024,35
A10024:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ABORT'
S10025:	POINT	7,A10025,35
A10025:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ARB'
S10026:	POINT	7,A10026,35
A10026:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'BAL'
S10027:	POINT	7,A10027,35
A10027:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'SUCCEED'
S10028:	POINT	7,A10028,35
A10028:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'REM'
S10029:	POINT	7,A10029,35
A10029:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LEN'
S10030:	POINT	7,A10030,35
A10030:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'TAB'
S10031:	POINT	7,A10031,35
A10031:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'RTAB'
S10032:	POINT	7,A10032,35
A10032:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'POS'
S10033:	POINT	7,A10033,35
A10033:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'RPOS'
S10034:	POINT	7,A10034,35
A10034:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'SPAN'
S10035:	POINT	7,A10035,35
A10035:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'BREAK'
S10036:	POINT	7,A10036,35
A10036:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ANY'
S10037:	POINT	7,A10037,35
A10037:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'NOTANY'
S10038:	POINT	7,A10038,35
A10038:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'NSPAN'
S10039:	POINT	7,A10039,35
A10039:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'BREAKX'
S10040:	POINT	7,A10040,35
A10040:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'BREAKQ'
S10041:	POINT	7,A10041,35
A10041:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ARBNO'
S10042:	POINT	7,A10042,35
A10042:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'APPLY'
S10043:	POINT	7,A10043,35
A10043:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'ITEM'
F10044:	BYTE	(4)4(4)0(5)^D0(5)0(18)P$$DTE##
S10044:	POINT	7,A10044,35
A10044:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DATE'
F10045:	BYTE	(4)4(4)0(5)^D0(5)0(18)P$$TIM##
S10045:	POINT	7,A10045,35
A10045:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'TIME'
F10046:	BYTE	(4)4(4)0(5)^D0(5)0(18)P$$DTM##
S10046:	POINT	7,A10046,35
A10046:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DAYTIM'
S10047:	POINT	7,A10047,35
A10047:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'EJECT'
S10048:	POINT	7,A10048,35
A10048:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'INTEGER'
S10049:	POINT	7,A10049,35
A10049:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'REAL'
F10050:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$SIZ##
S10050:	POINT	7,A10050,35
A10050:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'SIZE'
S10051:	POINT	7,A10051,35
A10051:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'TRIM'
S10052:	POINT	7,A10052,35
A10052:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'DATATYPE'
F10053:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$CPY##
S10053:	POINT	7,A10053,35
A10053:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'COPY'
S10054:	POINT	7,A10054,35
A10054:	BYTE	(2)2(16)^D2+1(18)^D9
	ASCII	'PROTOTYPE'
S10055:	POINT	7,A10055,35
A10055:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'COLLECT'
S10056:	POINT	7,A10056,35
A10056:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'EXTIME'
S10057:	POINT	7,A10057,35
A10057:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'REVERS'
S10058:	POINT	7,A10058,35
A10058:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DETACH'
F10059:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$RLS##
S10059:	POINT	7,A10059,35
A10059:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'RELEASE'
F10060:	BYTE	(4)4(4)0(5)^D1(5)0(18)P$$DAT##
S10060:	POINT	7,A10060,35
A10060:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DATA'
F10061:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$LGT##
S10061:	POINT	7,A10061,35
A10061:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'LGT'
S10062:	POINT	7,A10062,35
A10062:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CONVERT'
F10063:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$ARR##
S10063:	POINT	7,A10063,35
A10063:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ARRAY'
F10064:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$TBL##
S10064:	POINT	7,A10064,35
A10064:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'TABLE'
F10065:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DUP##
S10065:	POINT	7,A10065,35
A10065:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DUPL'
F10066:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DEF##
S10066:	POINT	7,A10066,35
A10066:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DEFINE'
S10067:	POINT	7,A10067,35
A10067:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'OPSYN'
F10068:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$OPN##
S10068:	POINT	7,A10068,35
A10068:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'OPEN'
F10069:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$LKF##
S10069:	POINT	7,A10069,35
A10069:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'LOOKUP'
F10070:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$NTF##
S10070:	POINT	7,A10070,35
A10070:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ENTER'
F10071:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$DIF##
S10071:	POINT	7,A10071,35
A10071:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'DIFFER'
F10072:	BYTE	(4)4(4)0(5)^D2(5)0(18)P$$IDT##
S10072:	POINT	7,A10072,35
A10072:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'IDENT'
S10073:	POINT	7,A10073,35
A10073:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LT'
S10074:	POINT	7,A10074,35
A10074:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'LE'
S10075:	POINT	7,A10075,35
A10075:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'EQ'
S10076:	POINT	7,A10076,35
A10076:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'NE'
S10077:	POINT	7,A10077,35
A10077:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'GE'
S10078:	POINT	7,A10078,35
A10078:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'GT'
S10079:	POINT	7,A10079,35
A10079:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LPAD'
S10080:	POINT	7,A10080,35
A10080:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'RPAD'
F10081:	BYTE	(4)4(4)0(5)^D3(5)0(18)P$$SBS##
S10081:	POINT	7,A10081,35
A10081:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SUBSTR'
S10082:	POINT	7,A10082,35
A10082:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CLOSE'
S10083:	POINT	7,A10083,35
A10083:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'REPLACE'
S10084:	POINT	7,A10084,35
A10084:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'INSERT'
V10088:	EXP	0
V10089:	EXP	0
V10090:	EXP	0
A10091:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'INITLA'
A10092:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'INITLA()'
S10128:	POINT	7,A10128,35
A10128:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'NOFAIL'
N10143:	BYTE	(4)4(2)2(12)0(18)INTGER
S10154:	POINT	7,A10154,35
A10154:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'STNO'
A10233:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'DXS'
A10234:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'DTS'
A10235:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'SYMBOL'
A10236:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'EXNAME'
S10237:	POINT	7,A10237,35
A10237:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'SYM(INAM,ATRB)'
S10238:	POINT	7,A10238,35
A10238:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'NOD(FRNT,BACK)'
S10247:	POINT	7,A10247,35
A10247:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	' '
S10248:	POINT	7,A10248,35
A10248:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'=_'
S10251:	POINT	7,A10251,35
A10251:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'A'
S10252:	POINT	7,A10252,35
A10252:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'DACABDFACCACCA'
S10253:	POINT	7,A10253,35
A10253:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'E'
S10255:	POINT	7,A10255,35
A10255:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'CC'
S10256:	POINT	7,A10256,35
A10256:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'G'
S10257:	POINT	7,A10257,35
A10257:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'AC'
S10260:	POINT	7,A10260,35
A10260:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'*'
N10282:	BYTE	(4)4(14)0(18)Q10290+^D6
S10283:	POINT	7,A10283,35
A10283:	BYTE	(2)2(16)^D6+1(18)^D26
	ASCII	'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
N10284:	BYTE	(4)4(14)0(18)Q10290+^D7
S10285:	POINT	7,A10285,35
A10285:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'0123456789'
S10286:	POINT	7,A10286,35
A10286:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'*-'
B10287:	EXP	^D16
	XWD	^D0,^D0
	XWD	^D0,^D0
	XWD	^D0,^D0
A10287:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'0'
N10288:	BYTE	(4)4(14)0(18)Q10290+^D8
S10289:	POINT	7,A10289,35
A10289:	BYTE	(2)2(16)^D2+1(18)^D10
	ASCII	'8589934592'
S10290:	POINT	7,A10290,35
A10290:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	','
S10291:	POINT	7,A10291,35
A10291:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	')'
S10292:	POINT	7,A10292,35
A10292:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'.-'
S10294:	POINT	7,A10294,35
A10294:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'.'
S10296:	POINT	7,A10296,35
A10296:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'*-+.;'
S10297:	POINT	7,A10297,35
A10297:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	';'
S10298:	POINT	7,A10298,35
A10298:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'('
S10301:	POINT	7,A10301,35
A10301:	BYTE	(2)2(16)^D4+1(18)^D18
	ASCII	'DXS(SYMBOL,EXNAME)'
A10303:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'SYM'
S10304:	POINT	7,A10304,35
A10304:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$INP##'
S10305:	POINT	7,A10305,35
A10305:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$INC##'
S10306:	POINT	7,A10306,35
A10306:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$OUT##'
S10307:	POINT	7,A10307,35
A10307:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$OUC##'
S10308:	POINT	7,A10308,35
A10308:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$SRT##'
S10309:	POINT	7,A10309,35
A10309:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$FRT##'
S10310:	POINT	7,A10310,35
A10310:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$NRT##'
S10311:	POINT	7,A10311,35
A10311:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'S$$SXT##'
S10312:	POINT	7,A10312,35
A10312:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$FRZ##'
S10313:	POINT	7,A10313,35
A10313:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$NOT##'
S10314:	POINT	7,A10314,35
A10314:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$LTP##'
S10315:	POINT	7,A10315,35
A10315:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$LEP##'
S10316:	POINT	7,A10316,35
A10316:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$EQP##'
S10317:	POINT	7,A10317,35
A10317:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$NEP##'
S10318:	POINT	7,A10318,35
A10318:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$GEP##'
S10319:	POINT	7,A10319,35
A10319:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$GTP##'
S10320:	POINT	7,A10320,35
A10320:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$AND##'
S10321:	POINT	7,A10321,35
A10321:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$IOR##'
S10322:	POINT	7,A10322,35
A10322:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$XOR##'
S10323:	POINT	7,A10323,35
A10323:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$RSH##'
S10324:	POINT	7,A10324,35
A10324:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$LSH##'
S10325:	POINT	7,A10325,35
A10325:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'F$$RMD##'
S10326:	POINT	7,A10326,35
A10326:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'DTS(SYMBOL)'
A10328:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'ATRB'
S10330:	POINT	7,A10330,35
A10330:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'STFCOUNT'
S10331:	POINT	7,A10331,35
A10331:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'LASTNO'
S10332:	POINT	7,A10332,35
A10332:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'FNCLEVEL'
S10333:	POINT	7,A10333,35
A10333:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'STCOUNT'
S10334:	POINT	7,A10334,35
A10334:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'ERRTYPE'
S10335:	POINT	7,A10335,35
A10335:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'RTNTYPE'
S10336:	POINT	7,A10336,35
A10336:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'ALPHABET'
S10337:	POINT	7,A10337,35
A10337:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'ABEND'
S10338:	POINT	7,A10338,35
A10338:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'ANCHOR'
S10339:	POINT	7,A10339,35
A10339:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'FULLSCAN'
S10340:	POINT	7,A10340,35
A10340:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'STNTRACE'
S10342:	POINT	7,A10342,35
A10342:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'MAXLNGTH'
S10343:	POINT	7,A10343,35
A10343:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'STLIMIT'
S10344:	POINT	7,A10344,35
A10344:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'ERRLIMIT'
S10346:	POINT	7,A10346,35
A10346:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'DENSITY'
S10350:	POINT	7,A10350,35
A10350:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'DUMP'
S10352:	POINT	7,A10352,35
A10352:	BYTE	(2)2(16)^D2+1(18)^D8
	ASCII	'SLOWFRAG'
S10354:	POINT	7,A10354,35
A10354:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'LIST'
S10355:	POINT	7,A10355,35
A10355:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL1'
S10356:	POINT	7,A10356,35
A10356:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'UNLIST'
S10357:	POINT	7,A10357,35
A10357:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL2'
S10358:	POINT	7,A10358,35
A10358:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'NOCODE'
S10359:	POINT	7,A10359,35
A10359:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL3'
S10360:	POINT	7,A10360,35
A10360:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CODE'
S10361:	POINT	7,A10361,35
A10361:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL4'
S10362:	POINT	7,A10362,35
A10362:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL5'
S10363:	POINT	7,A10363,35
A10363:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'SPACE'
S10364:	POINT	7,A10364,35
A10364:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL6'
S10365:	POINT	7,A10365,35
A10365:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL7'
S10366:	POINT	7,A10366,35
A10366:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL8'
S10367:	POINT	7,A10367,35
A10367:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'NOCROSS'
S10368:	POINT	7,A10368,35
A10368:	BYTE	(2)2(16)^D1+1(18)^D4
	ASCII	'CTL9'
S10369:	POINT	7,A10369,35
A10369:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'CROSREF'
S10370:	POINT	7,A10370,35
A10370:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'CTL10'
S10372:	POINT	7,A10372,35
A10372:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'OPTION'
S10373:	POINT	7,A10373,35
A10373:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'OPT'
S10374:	POINT	7,A10374,35
A10374:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'SNOBOL.MAIN'
S10375:	POINT	7,A10375,35
A10375:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'SNO'
S10376:	POINT	7,A10376,35
A10376:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'SNOBOL.SUBPROGRAM'
S10377:	POINT	7,A10377,35
A10377:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'SUB'
S10378:	POINT	7,A10378,35
A10378:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'PURGE.VARIABLE'
S10379:	POINT	7,A10379,35
A10379:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'PRV'
S10380:	POINT	7,A10380,35
A10380:	BYTE	(2)2(16)^D4+1(18)^D16
	ASCII	'UNPURGE.VARIABLE'
S10381:	POINT	7,A10381,35
A10381:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'UPV'
S10382:	POINT	7,A10382,35
A10382:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'PURGE.LABEL'
S10383:	POINT	7,A10383,35
A10383:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'PRL'
S10384:	POINT	7,A10384,35
A10384:	BYTE	(2)2(16)^D3+1(18)^D13
	ASCII	'UNPURGE.LABEL'
S10385:	POINT	7,A10385,35
A10385:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'UPL'
S10386:	POINT	7,A10386,35
A10386:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'PURGE.FUNCTION'
S10387:	POINT	7,A10387,35
A10387:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'PRF'
S10388:	POINT	7,A10388,35
A10388:	BYTE	(2)2(16)^D4+1(18)^D16
	ASCII	'UNPURGE.FUNCTION'
S10389:	POINT	7,A10389,35
A10389:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'UPF'
S10390:	POINT	7,A10390,35
A10390:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'STRING'
S10391:	POINT	7,A10391,35
A10391:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'STR'
S10392:	POINT	7,A10392,35
A10392:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'INT'
S10393:	POINT	7,A10393,35
A10393:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'REL'
S10394:	POINT	7,A10394,35
A10394:	BYTE	(2)2(16)^D2+1(18)^D6
	ASCII	'RENAME'
S10395:	POINT	7,A10395,35
A10395:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'REN'
S10396:	POINT	7,A10396,35
A10396:	BYTE	(2)2(16)^D3+1(18)^D15
	ASCII	'GLOBAL.VARIABLE'
S10397:	POINT	7,A10397,35
A10397:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'GLV'
S10398:	POINT	7,A10398,35
A10398:	BYTE	(2)2(16)^D3+1(18)^D12
	ASCII	'GLOBAL.LABEL'
S10399:	POINT	7,A10399,35
A10399:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'GLL'
S10400:	POINT	7,A10400,35
A10400:	BYTE	(2)2(16)^D3+1(18)^D15
	ASCII	'GLOBAL.FUNCTION'
S10401:	POINT	7,A10401,35
A10401:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'GLF'
S10402:	POINT	7,A10402,35
A10402:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'EXTERNAL.VARIABLE'
S10403:	POINT	7,A10403,35
A10403:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'EXV'
S10404:	POINT	7,A10404,35
A10404:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'ENTRY.VARIABLE'
S10405:	POINT	7,A10405,35
A10405:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ENV'
S10406:	POINT	7,A10406,35
A10406:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'EXTERNAL.LABEL'
S10407:	POINT	7,A10407,35
A10407:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'EXL'
S10408:	POINT	7,A10408,35
A10408:	BYTE	(2)2(16)^D3+1(18)^D11
	ASCII	'ENTRY.LABEL'
S10409:	POINT	7,A10409,35
A10409:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ENL'
S10410:	POINT	7,A10410,35
A10410:	BYTE	(2)2(16)^D4+1(18)^D17
	ASCII	'EXTERNAL.FUNCTION'
S10411:	POINT	7,A10411,35
A10411:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'EXF'
S10412:	POINT	7,A10412,35
A10412:	BYTE	(2)2(16)^D3+1(18)^D14
	ASCII	'ENTRY.FUNCTION'
S10413:	POINT	7,A10413,35
A10413:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'ENF'
S10414:	POINT	7,A10414,35
A10414:	BYTE	(2)2(16)^D5+1(18)^D25
	ASCII	'EXTERNAL.FORTRAN.FUNCTION'
S10415:	POINT	7,A10415,35
A10415:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'XFF'
S10416:	POINT	7,A10416,35
A10416:	BYTE	(2)2(16)^D5+1(18)^D22
	ASCII	'ENTRY.FORTRAN.FUNCTION'
S10417:	POINT	7,A10417,35
A10417:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'NFF'
S10418:	POINT	7,A10418,35
A10418:	BYTE	(2)2(16)^D1+1(18)^D2
	ASCII	'**'
S10420:	POINT	7,A10420,35
A10420:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'^'
S10422:	POINT	7,A10422,35
A10422:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'/'
S10424:	POINT	7,A10424,35
A10424:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'+'
S10425:	POINT	7,A10425,35
A10425:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'-'
S10428:	POINT	7,A10428,35
A10428:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'$'
S10430:	POINT	7,A10430,35
A10430:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'!'
S10432:	POINT	7,A10432,35
A10432:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'?'
S10433:	POINT	7,A10433,35
A10433:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'\'
S10434:	POINT	7,A10434,35
A10434:	BYTE	(2)2(16)^D1+1(18)^D1
	ASCII	'@'
N10435:	BYTE	(4)4(14)0(18)Q10290+^D9
S10436:	POINT	7,A10436,35
A10436:	BYTE	(2)2(16)^D2+1(18)^D7
	ASCII	'0:5,0:5'
N10441:	BYTE	(4)4(14)0(18)Q10290+^D10
N10444:	BYTE	(4)4(14)0(18)Q10290+^D11
N10447:	BYTE	(4)4(14)0(18)Q10290+^D12
S10450:	POINT	7,A10450,35
A10450:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'15:20'
N10451:	BYTE	(4)4(14)0(18)Q10290+^D13
S10452:	POINT	7,A10452,35
A10452:	BYTE	(2)2(16)^D1+1(18)^D3
	ASCII	'0:5'
N10453:	BYTE	(4)4(14)0(18)Q10290+^D14
N10455:	BYTE	(4)4(14)0(18)Q10290+^D15
N10456:	BYTE	(4)4(14)0(18)Q10290+^D16
N10457:	BYTE	(4)4(14)0(18)Q10290+^D17
S10458:	POINT	7,A10458,35
A10458:	BYTE	(2)2(16)^D1+1(18)^D5
	ASCII	'10:17'
Q10290:	BYTE	(2)2(16)^D17+1(18)0
	REPEAT	^D17,<0>
Q10291:	BYTE	(2)2(16)^D13*4+1(18)-^D13
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10328,35
F10328:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10303,35
F10303:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10236,35
N10236:	BYTE	(4)4(14)0(18)Q10290+^D5
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10235,35
N10235:	BYTE	(4)4(14)0(18)Q10290+^D4
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10234,35
F10234:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10234,35
	JRST	L10234
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10234,35
N10234:	BYTE	(4)4(14)0(18)Q10290+^D3
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10233,35
F10233:	BYTE	(4)4(4)0(5)20(5)0(18)S$$UDF##
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10233,35
	JRST	L10233
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10233,35
N10233:	BYTE	(4)4(14)0(18)Q10290+^D2
	EXP	0
	BYTE	(5)5(31)0
	POINT	7,A10091,35
INITLA:	BYTE	(4)4(4)0(5)^D0(5)0(18)E10091
	EXP	0
	BYTE	(5)3(31)0
	POINT	7,A10091,35
	JRST	L10091
	EXP	0
	BYTE	(5)1(31)0
	POINT	7,A10091,35
N10091:	BYTE	(4)4(14)0(18)Q10290+^D1
	POINT	7,A10091,35
Q10000:	XWD	0,Q10290
	XWD	Q10291,^D0
	EXP	Q10291
	XWD	^D7,Q10000
E10091:	JSP	13,S$$EFI##
	POINT	7,A10092,35
	EXP	0
	END