;* * * * * * * * * ;* * 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 = 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 = 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 = 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 = 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 = ?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 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