Trailing-Edge
-
PDP-10 Archives
-
decuslib10-02
-
43,50263/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