;* * * * * * * * * ;* * DECLARATIONS * * * * * ;* * * * * * * * * ;* ;* LOCAL ;* ; DECLARE('SNOBOL.SUBPROGRAM','INITLB') ; 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','INITLB()') ;* ;* 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','INITLB') ; DECLARE('UNPURGE.LABEL','INITLB') ; 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 ;INITLB DATA('SYM(INAM,ATRB)') TITLE INITLB 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 INITLB 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,S10233 FCALV$ ^D1,F10060 Q10002: ; DATA('NOD(FRNT,BACK)') MOVEI 14,Q10003 MOVEM 14,S$$FLP## MOVE 1,S10234 FCALV$ ^D1,F10060 Q10003: ;* CODE ARRAYS ;* GOTO CODE ; GOTOAR = ARRAY('5') MOVEI 14,Q10004 MOVEM 14,S$$FLP## MOVE 1,S10235 FCALV$ ^D1,F10063 MOVEM 1,@GOTOAR Q10004: ; GOTOAR<1> = 'S$$NFE##' MOVEI 14,Q10005 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,GOTOAR PUSH 16,1 MOVE 1,S10237 JSP 11,S$$ASG## Q10005: ; GOTOAR<2> = TBCHR 'MOVEI 14,S$$BGT##' CRLCHR ;. TBCHR 'MOVEM 14,S$$FLP##' MOVEI 14,Q10006 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,GOTOAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10239 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10240 JSP 14,S$$CNC## EXP ^D5 JSP 11,S$$ASG## Q10006: ; GOTOAR<3> = TBCHR 'JSP 14,S$$ILB##' MOVEI 14,Q10007 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,GOTOAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10242 JSP 14,S$$CNC## EXP ^D2 JSP 11,S$$ASG## Q10007: ; GOTOAR<4> = NOD(.P1,':') MOVEI 14,Q10008 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,GOTOAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10008: ; GOTOAR<5> = NOD(TBCHR 'JRST' TBCHR,.P1) MOVEI 14,Q10009 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,GOTOAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10009: ;* DECLARATION CODE ; DECLAR = ARRAY('4') MOVEI 14,Q10010 MOVEM 14,S$$FLP## MOVE 1,S10248 FCALV$ ^D1,F10063 MOVEM 1,@DECLAR Q10010: ; DECLAR<1> = NOD(NOD('TITLE ',.P1),CRLCHR ;. TBCHR 'OPDEF' TBCHR 'UFERR$' TBCHR '[1B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'CFERR$' TBCHR '[2B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'FCALV$' TBCHR '[3B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'FCALN$' TBCHR '[4B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'DASGN$' TBCHR '[5B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'DCONC$' TBCHR '[6B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'DICNV$' TBCHR '[7B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'DRCNV$' TBCHR '[10B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'AREFV$' TBCHR '[11B8]' CRLCHR ;. TBCHR 'OPDEF' TBCHR 'AREFN$' TBCHR '[12B8]') MOVEI 14,Q10011 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,DECLAR PUSH 16,1 MOVE 1,S10249 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10251 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10252 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10253 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10254 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10255 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10256 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10257 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10258 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10259 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10260 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10261 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10262 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10263 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10264 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10265 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10266 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10267 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10268 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10250 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10269 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10270 JSP 14,S$$CNC## EXP ^D70 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10011: ; DECLAR<2> = NOD('ENTRY ',.P1) MOVEI 14,Q10012 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,DECLAR PUSH 16,1 MOVE 1,S10271 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10012: ; DECLAR<3> = NOD(',',.P1) MOVEI 14,Q10013 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,DECLAR PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10013: ; DECLAR<4> = NOD('EXTERN ',.P1) MOVEI 14,Q10014 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,DECLAR PUSH 16,1 MOVE 1,S10273 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10014: ;* GENERAL PROGRAM CODE ; PROGAR = ARRAY('7') MOVEI 14,Q10015 MOVEM 14,S$$FLP## MOVE 1,S10274 FCALV$ ^D1,F10063 MOVEM 1,@PROGAR Q10015: ; PROGAR<1> = NOD(NOD(NOD(.P1,':' TBCHR 'JSP' TBCHR ;. '14,S$$ILZ##' CRLCHR ;. TBCHR 'XWD' TBCHR '^D'),NOD(.P2,',')),NOD(NOD(.P3,CRLCHR ;. TBCHR 'JRST' TBCHR),.P4)) MOVEI 14,Q10016 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10276 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D10 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10272 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P3 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D4 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10016: ; PROGAR<2> = TBCHR 'JRST' TBCHR 'S$$SXT##' MOVEI 14,Q10017 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10279 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10017: ; PROGAR<3> = NOD(.P1,'=') MOVEI 14,Q10018 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10280 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10018: ; PROGAR<4> = NOD(PROGAR<3>,NOD(.P2,'+3')) MOVEI 14,Q10019 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,I10241 AREFV$ ^D1,PROGAR PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10281 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10019: ; PROGAR<5> = NOD(PROGAR<3>,.P2) MOVEI 14,Q10020 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,I10241 AREFV$ ^D1,PROGAR PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10020: ; PROGAR<6> = GOTOAR<4> MOVEI 14,Q10021 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,I10243 AREFV$ ^D1,GOTOAR JSP 11,S$$ASG## Q10021: ; PROGAR<7> = TBCHR 'JSP' TBCHR '14,S$$CPE##' MOVEI 14,Q10022 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,PROGAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10284 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10022: ;* VARIABLE CODE ; VARBAR = ARRAY('12') MOVEI 14,Q10023 MOVEM 14,S$$FLP## MOVE 1,S10285 FCALV$ ^D1,F10063 MOVEM 1,@VARBAR Q10023: ; VARBAR<1> = NOD('S$$KWD##+^D',.P1) MOVEI 14,Q10024 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,S10286 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10024: ; VARBAR<2> = NOD(TBCHR 'MOVEM' TBCHR '1,',.P1) MOVEI 14,Q10025 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10287 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10025: ; VARBAR<3> = NOD(TBCHR 'SETZM' TBCHR,.P1) MOVEI 14,Q10026 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10289 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10026: ; VARBAR<4> = NOD(NOD(TBCHR 'DCONC$' TBCHR '^D',.P1) ;. ,NOD(',',.P2)) MOVEI 14,Q10027 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10261 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10027: ; VARBAR<5> = NOD(NOD(TBCHR 'DASGN$' TBCHR,.P1) ;. ,NOD(',',.P2)) MOVEI 14,Q10028 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10259 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10028: ; VARBAR<6> = NOD(TBCHR 'SETZM' TBCHR '@',.P1) MOVEI 14,Q10029 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10289 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10290 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10029: ; VARBAR<7> = NOD(TBCHR 'MOVEM' TBCHR '1,@',.P1) MOVEI 14,Q10030 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10287 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10291 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10030: ; VARBAR<8> = TBCHR 'SETZM' TBCHR '(1)' MOVEI 14,Q10031 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10289 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10293 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10031: ; VARBAR<9> = TBCHR 'PUSH' TBCHR '16,1' MOVEI 14,Q10032 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10295 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10296 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10032: ; VARBAR<10> = TBCHR 'JSP' TBCHR '11,S$$ASG##' MOVEI 14,Q10033 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10298 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10033: ; VARBAR<11> = NOD(TBCHR 'MOVE' TBCHR '1,',.P1) MOVEI 14,Q10034 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10034: ; VARBAR<12> = NOD(TBCHR 'MOVEI' TBCHR '1,S$$KWD##+^D' ;. ,NOD(.P1,CRLCHR ;. TBCHR 'HRLI' TBCHR '1,22B23')) MOVEI 14,Q10035 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,VARBAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10302 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10303 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10304 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10305 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10035: ;* MATCH CODE ; MACHAR = ARRAY('9') MOVEI 14,Q10036 MOVEM 14,S$$FLP## MOVE 1,S10306 FCALV$ ^D1,F10063 MOVEM 1,@MACHAR Q10036: ; MACHAR<1> = VARBAR<9> MOVEI 14,Q10037 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 11,S$$ASG## Q10037: ; MACHAR<2> = NOD(TBCHR 'JSP' TBCHR '14,S$$MTX##' ;. CRLCHR TBCHR 'XWD' TBCHR '^D',NOD(.P1,',0')) MOVEI 14,Q10038 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10307 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10308 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10038: ; MACHAR<3> = TBCHR 'BYTE' TBCHR '(2)2(16)1(18).+1' MOVEI 14,Q10039 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10310 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10039: ; MACHAR<4> = TBCHR 'JSP' TBCHR '11,S$$MTS##' MOVEI 14,Q10040 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10311 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10040: ; MACHAR<5> = NOD(TBCHR 'MOVE' TBCHR '1,@',.P1) MOVEI 14,Q10041 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10291 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10041: ; MACHAR<6> = TBCHR 'JSP' TBCHR '14,S$$IVV##' MOVEI 14,Q10042 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10312 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10042: ; MACHAR<7> = TBCHR 'JSP' TBCHR '11,S$$RPS##' MOVEI 14,Q10043 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10313 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10043: ; MACHAR<8> = TBCHR 'JSP' TBCHR '14,S$$RPL##' MOVEI 14,Q10044 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10314 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10044: ; MACHAR<9> = TBCHR 'SETZ' TBCHR '1,' MOVEI 14,Q10045 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,MACHAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10315 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10045: ;* STATEMENT ENTRY CODE ; STENAR = ARRAY('-1:1') MOVEI 14,Q10046 MOVEM 14,S$$FLP## MOVE 1,S10316 FCALV$ ^D1,F10063 MOVEM 1,@STENAR Q10046: ; STENAR<-1> = NOD(TBCHR 'MOVEI' TBCHR '14,',NOD(.P1,CRLCHR ;. TBCHR 'MOVEM' TBCHR '14,S$$FLP##')) MOVEI 14,Q10047 MOVEM 14,S$$FLP## MOVN ^D1,K10236 TLO 1,1B18 TLZ 1,1B19 AREFN$ ^D1,STENAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10302 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10317 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10287 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10318 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10047: ; STENAR<0> = NOD(NOD(TBCHR 'JSP' TBCHR '14,S$$STE##' CRLCHR ;. TBCHR 'XWD' TBCHR '^D',.P2),DECLAR<3>) MOVEI 14,Q10048 MOVEM 14,S$$FLP## MOVE 1,I10319 AREFN$ ^D1,STENAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10320 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,I10241 AREFV$ ^D1,DECLAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10048: ; STENAR<1> = NOD(NOD(TBCHR 'JSP' TBCHR '14,S$$STT##' CRLCHR ;. TBCHR 'XWD' TBCHR '^D',.P2),DECLAR<3>) MOVEI 14,Q10049 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,STENAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10321 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,I10241 AREFV$ ^D1,DECLAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10049: ;* PATTERN CODE ; PATRAR = ARRAY('34') MOVEI 14,Q10050 MOVEM 14,S$$FLP## MOVE 1,S10322 FCALV$ ^D1,F10063 MOVEM 1,@PATRAR Q10050: ; PATRAR<1> = NOD(NOD(TBCHR 'JSP' TBCHR '14,S$$GPB##' CRLCHR ;. TBCHR 'XWD' TBCHR '^D',.P1),NOD(',',.P2)) MOVEI 14,Q10051 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10323 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10051: ; PATRAR<2> = MACHAR<3> MOVEI 14,Q10052 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10241 AREFV$ ^D1,MACHAR JSP 11,S$$ASG## Q10052: ; PATRAR<3> = NOD(TBCHR 'JRST' TBCHR 'S$$PTS##' CRLCHR ;. ,GOTOAR<4>) MOVEI 14,Q10053 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10324 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,I10243 AREFV$ ^D1,GOTOAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10053: ; PATRAR<4> = NOD(TBCHR 'JSP' TBCHR '11,S$$APS##' CRLCHR ;. TBCHR 'XWD' TBCHR '.-.,',.P1) MOVEI 14,Q10054 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10325 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10326 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10054: ; PATRAR<5> = NOD(NOD(GOTOAR<5>,CRLCHR),NOD(.P2,':')) MOVEI 14,Q10055 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10246 AREFV$ ^D1,GOTOAR PUSH 16,1 MOVE 1,@CRLCHR FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10245 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10055: ; PATRAR<6> = NOD(TBCHR 'JSP' TBCHR '11,S$$APR##' CRLCHR ;. TBCHR 'XWD' TBCHR '.-.,',.P1) MOVEI 14,Q10056 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10327 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10326 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10056: ; PATRAR<7> = TBCHR 'JSP' TBCHR '11,S$$APF##' MOVEI 14,Q10057 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10328 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10057: ; PATRAR<8> = GOTOAR<4> MOVEI 14,Q10058 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10243 AREFV$ ^D1,GOTOAR JSP 11,S$$ASG## Q10058: ; PATRAR<9> = TBCHR 'JSP' TBCHR '11,S$$VAS##' MOVEI 14,Q10059 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10329 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10059: ; PATRAR<10> = TBCHR 'JSP' TBCHR '11,S$$CVA##' MOVEI 14,Q10060 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10330 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10060: ; PATRAR<11> = TBCHR 'JSP' TBCHR '11,S$$IVA##' MOVEI 14,Q10061 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10331 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10061: ; PATRAR<12> = NOD(TBCHR 'HRRZ' TBCHR '1,@S$$SJC##' CRLCHR ;. TBCHR 'SUBI' TBCHR '1,(13)' CRLCHR ;. TBCHR 'MOVEM' TBCHR '1,',.P1) MOVEI 14,Q10062 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10332 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10333 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10334 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10335 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10287 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D14 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10062: ; PATRAR<14> = TBCHR 'JSP' TBCHR '11,S$$ASC##' MOVEI 14,Q10063 MOVEM 14,S$$FLP## MOVE 1,I10336 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10337 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10063: ; PATRAR<15> = NOD(VARBAR<11>,CRLCHR ;. TBCHR 'JSP' TBCHR '11,S$$MST##') MOVEI 14,Q10064 MOVEM 14,S$$FLP## MOVE 1,I10338 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10299 AREFV$ ^D1,VARBAR PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10339 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10064: ; PATRAR<16> = TBCHR 'JSP' TBCHR '11,S$$CKP##' CRLCHR ;. TBCHR 'JSP' TBCHR '11,S$$PTX##' MOVEI 14,Q10065 MOVEM 14,S$$FLP## MOVE 1,I10340 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10341 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10342 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10065: ; PATRAR<17> = TBCHR 'JSP' TBCHR '11,S$$MKP##' CRLCHR ;. VARBAR<9> MOVEI 14,Q10066 MOVEM 14,S$$FLP## MOVE 1,I10343 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10344 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 14,S$$CNC## EXP ^D6 JSP 11,S$$ASG## Q10066: ; PATRAR<18> = VARBAR<9> MOVEI 14,Q10067 MOVEM 14,S$$FLP## MOVE 1,I10345 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 11,S$$ASG## Q10067: ; PATRAR<19> = NOD(NOD(TBCHR 'MOVE' TBCHR '1,^D',.P1) ;. ,'(15)' CRLCHR) MOVEI 14,Q10068 MOVEM 14,S$$FLP## MOVE 1,I10346 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10347 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10348 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D2 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10068: ; PATRAR<20> = NOD(PATRAR<19>,TBCHR 'JSP' TBCHR '11,S$$PTX##') MOVEI 14,Q10069 MOVEM 14,S$$FLP## MOVE 1,I10349 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10346 AREFV$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10342 JSP 14,S$$CNC## EXP ^D4 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10069: ; PATRAR<21> = NOD(TBCHR 'HRRZ' TBCHR '1,',.P1) MOVEI 14,Q10070 MOVEM 14,S$$FLP## MOVE 1,I10350 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10332 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10070: ; PATRAR<22> = TBCHR 'JSP' TBCHR '11,S$$MIP##' CRLCHR ;. VARBAR<9> MOVEI 14,Q10071 MOVEM 14,S$$FLP## MOVE 1,I10351 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10352 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 14,S$$CNC## EXP ^D6 JSP 11,S$$ASG## Q10071: ; PATRAR<23> = NOD(TBCHR 'HRRZ' TBCHR '1,^D',NOD(.P1,'(15)' CRLCHR)) MOVEI 14,Q10072 MOVEM 14,S$$FLP## MOVE 1,I10353 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10332 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10347 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10348 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10072: ; PATRAR<24> = TBCHR 'JSP' TBCHR '11,S$$MID##' CRLCHR ;. VARBAR<9> MOVEI 14,Q10073 MOVEM 14,S$$FLP## MOVE 1,I10354 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10355 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 14,S$$CNC## EXP ^D6 JSP 11,S$$ASG## Q10073: ; PATRAR<25> = TBCHR 'JUMPL' TBCHR '1,S$$MIE##' MOVEI 14,Q10074 MOVEM 14,S$$FLP## MOVE 1,I10356 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10357 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10358 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10074: ; PATRAR<26> = TBCHR 'DICNV$' TBCHR '0' MOVEI 14,Q10075 MOVEM 14,S$$FLP## MOVE 1,I10359 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10263 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10360 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10075: ; PATRAR<27> = NOD(TBCHR 'MOVEI' TBCHR '1,',.P1) MOVEI 14,Q10076 MOVEM 14,S$$FLP## MOVE 1,I10361 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10302 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10076: ; PATRAR<28> = TBCHR 'JSP' TBCHR '11,S$$MBT##' CRLCHR ;. TBCHR 'EXP' TBCHR '.' MOVEI 14,Q10077 MOVEM 14,S$$FLP## MOVE 1,I10362 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10363 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10365 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10077: ; PATRAR<29> = PATRAR<28> CRLCHR VARBAR<9> MOVEI 14,Q10078 MOVEM 14,S$$FLP## MOVE 1,I10366 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10362 AREFV$ ^D1,PATRAR PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 14,S$$CNC## EXP ^D3 JSP 11,S$$ASG## Q10078: ; PATRAR<30> = NOD(FRNT(PATRAR<19>),'(15)') MOVEI 14,Q10079 MOVEM 14,S$$FLP## MOVE 1,I10367 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,I10346 AREFV$ ^D1,PATRAR FCALV$ ^D1,F10368 PUSH 16,1 MOVE 1,S10348 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10079: ; PATRAR<31> = TBCHR 'JSP' TBCHR '11,S$$UEB##' MOVEI 14,Q10080 MOVEM 14,S$$FLP## MOVE 1,I10369 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10370 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10080: ; PATRAR<32> = TBCHR 'JSP' TBCHR '11,S$$UES##' MOVEI 14,Q10081 MOVEM 14,S$$FLP## MOVE 1,I10371 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10372 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10081: ; PATRAR<33> = TBCHR 'JSP' TBCHR '11,S$$UFB##' MOVEI 14,Q10082 MOVEM 14,S$$FLP## MOVE 1,I10373 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10374 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10082: ; PATRAR<34> = TBCHR 'JSP' TBCHR '11,S$$UFS##' MOVEI 14,Q10083 MOVEM 14,S$$FLP## MOVE 1,I10375 AREFN$ ^D1,PATRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10376 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10083: ;* PRIMITIVE PATTERN VARIABLE CODE ; PTVRAR = ARRAY('7') MOVEI 14,Q10084 MOVEM 14,S$$FLP## MOVE 1,S10274 FCALV$ ^D1,F10063 MOVEM 1,@PTVRAR Q10084: ; PTVRAR<1> = TBCHR 'POPJ' TBCHR '16,' MOVEI 14,Q10085 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10377 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10378 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10085: ; PTVRAR<2> = TBCHR 'PUSHJ' TBCHR '16,.+2' CRLCHR ;. TBCHR 'JRST' TBCHR 'S$$MTA##' MOVEI 14,Q10086 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10380 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10381 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10086: ; PTVRAR<3> = TBCHR 'JRST' TBCHR 'S$$MTA##' MOVEI 14,Q10087 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10381 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10087: ; PTVRAR<4> = TBCHR 'PUSHJ' TBCHR '16,S$$ARB##' MOVEI 14,Q10088 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10382 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10088: ; PTVRAR<5> = TBCHR 'PUSHJ' TBCHR '16,S$$BAL##' MOVEI 14,Q10089 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10383 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10089: ; PTVRAR<6> = TBCHR 'PUSHJ' TBCHR '16,S$$SUC##' MOVEI 14,Q10090 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10384 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10090: ; PTVRAR<7> = TBCHR 'JSP' TBCHR '11,S$$REM##' MOVEI 14,Q10091 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,PTVRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10385 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10091: ;* PRIMITIVE PATTERN FUNCTION CODE ; PTFNAR = ARRAY('13') MOVEI 14,Q10092 MOVEM 14,S$$FLP## MOVE 1,S10386 FCALV$ ^D1,F10063 MOVEM 1,@PTFNAR Q10092: ; PTFNAR<1> = TBCHR 'JSP' TBCHR '11,S$$LEN##' MOVEI 14,Q10093 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10387 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10093: ; PTFNAR<2> = TBCHR 'JSP' TBCHR '11,S$$TAB##' MOVEI 14,Q10094 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10388 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10094: ; PTFNAR<3> = TBCHR 'JSP' TBCHR '11,S$$RTB##' MOVEI 14,Q10095 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10389 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10095: ; PTFNAR<4> = TBCHR 'HRRZ' TBCHR '2,@S$$SJC##' CRLCHR ;. TBCHR 'SUBI' TBCHR '2,(1)' CRLCHR ;. TBCHR 'CAIE' TBCHR '2,(13)' CRLCHR TBCHR 'POPJ' TBCHR '16,' MOVEI 14,Q10096 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10332 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10390 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10334 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10391 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10392 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10393 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10377 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10378 JSP 14,S$$CNC## EXP ^D19 JSP 11,S$$ASG## Q10096: ; PTFNAR<5> = TBCHR 'CAIE' TBCHR '1,(13)' CRLCHR ;. TBCHR 'POPJ' TBCHR '16,' MOVEI 14,Q10097 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10392 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10335 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10377 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10378 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10097: ; PTFNAR<6> = TBCHR 'JSP' TBCHR '11,S$$SPN##' MOVEI 14,Q10098 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10394 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10098: ; PTFNAR<7> = TBCHR 'JSP' TBCHR '11,S$$BRK##' MOVEI 14,Q10099 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10395 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10099: ; PTFNAR<8> = TBCHR 'JSP' TBCHR '11,S$$ANY##' MOVEI 14,Q10100 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10396 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10100: ; PTFNAR<9> = TBCHR 'JSP' TBCHR '11,S$$NTA##' MOVEI 14,Q10101 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10397 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10101: ; PTFNAR<10> = TBCHR 'JSP' TBCHR '11,S$$NSP##' MOVEI 14,Q10102 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10398 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10102: ; PTFNAR<11> = TBCHR 'JSP' TBCHR '11,S$$BRX##' MOVEI 14,Q10103 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10399 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10103: ; PTFNAR<12> = TBCHR 'JSP' TBCHR '11,S$$BRQ##' MOVEI 14,Q10104 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10400 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10104: ; PTFNAR<13> = NOD(NOD(NOD(TBCHR 'MOVEI' TBCHR '1,',.P1),CRLCHR ;. TBCHR 'JSP' TBCHR '11,S$$RBS##') ;. ,NOD(TBCHR 'JSP' TBCHR '11,S$$RBR##' CRLCHR,GOTOAR<4>)) MOVEI 14,Q10105 MOVEM 14,S$$FLP## MOVE 1,I10401 AREFN$ ^D1,PTFNAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10302 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10288 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10402 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10403 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,I10243 AREFV$ ^D1,GOTOAR FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10105: ;* EXPRESSION CODE ; EXPRAR = ARRAY('24') MOVEI 14,Q10106 MOVEM 14,S$$FLP## MOVE 1,S10404 FCALV$ ^D1,F10063 MOVEM 1,@EXPRAR Q10106: ; EXPRAR<1> = VARBAR<9> MOVEI 14,Q10107 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,VARBAR JSP 11,S$$ASG## Q10107: ; EXPRAR<2> = NOD(TBCHR 'JSP' TBCHR '14,S$$CNC##' CRLCHR ;. TBCHR 'EXP' TBCHR '^D',.P1) MOVEI 14,Q10108 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10405 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10108: ; EXPRAR<3> = TBCHR 'TLO' TBCHR '1,1B18' CRLCHR ;. TBCHR 'TLZ' TBCHR '1,1B19' MOVEI 14,Q10109 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10406 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10407 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10408 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10409 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10109: ; EXPRAR<4> = TBCHR 'LSH' TBCHR '1,-2' CRLCHR ;. TBCHR 'TLO' TBCHR '1,3B19' MOVEI 14,Q10110 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10410 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10411 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10406 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10412 JSP 14,S$$CNC## EXP ^D9 JSP 11,S$$ASG## Q10110: ; EXPRAR<5> = TBCHR 'JSP' TBCHR '14,S$$EXP##' MOVEI 14,Q10111 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10413 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10111: ; EXPRAR<6> = TBCHR 'POP' TBCHR '16,1' MOVEI 14,Q10112 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10414 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10296 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10112: ; EXPRAR<7> = TBCHR 'JSP' TBCHR '14,S$$MUL##' MOVEI 14,Q10113 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10415 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10113: ; EXPRAR<8> = TBCHR 'JSP' TBCHR '14,S$$DIV##' MOVEI 14,Q10114 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10416 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10114: ; EXPRAR<9> = TBCHR 'JSP' TBCHR '14,S$$ADD##' MOVEI 14,Q10115 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10417 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10115: ; EXPRAR<10> = TBCHR 'JSP' TBCHR '14,S$$SUB##' MOVEI 14,Q10116 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10418 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10116: ; EXPRAR<11> = VARBAR<11> MOVEI 14,Q10117 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,I10299 AREFV$ ^D1,VARBAR JSP 11,S$$ASG## Q10117: ; EXPRAR<12> = MACHAR<5> MOVEI 14,Q10118 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,I10246 AREFV$ ^D1,MACHAR JSP 11,S$$ASG## Q10118: ; EXPRAR<13> = MACHAR<9> MOVEI 14,Q10119 MOVEM 14,S$$FLP## MOVE 1,I10401 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,I10294 AREFV$ ^D1,MACHAR JSP 11,S$$ASG## Q10119: ; EXPRAR<14> = TBCHR 'JSP' TBCHR '7,S$$CPS##' MOVEI 14,Q10120 MOVEM 14,S$$FLP## MOVE 1,I10336 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10419 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10120: ; EXPRAR<15> = NOD(TBCHR 'JSP' TBCHR '14,S$$NGS##' CRLCHR ;. TBCHR 'EXP' TBCHR,.P1) MOVEI 14,Q10121 MOVEM 14,S$$FLP## MOVE 1,I10338 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10420 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D8 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10121: ; EXPRAR<16> = TBCHR 'JSP' TBCHR '14,S$$NEG##' MOVEI 14,Q10122 MOVEM 14,S$$FLP## MOVE 1,I10340 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10421 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10122: ; EXPRAR<17> = NOD(TBCHR 'JRST' TBCHR 'S$$NGF##' CRLCHR,GOTOAR<4>) MOVEI 14,Q10123 MOVEM 14,S$$FLP## MOVE 1,I10343 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10422 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,I10243 AREFV$ ^D1,GOTOAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10123: ; EXPRAR<18> = TBCHR 'JSP' TBCHR '14,S$$IVV##' MOVEI 14,Q10124 MOVEM 14,S$$FLP## MOVE 1,I10345 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10312 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10124: ; EXPRAR<19> = TBCHR 'JSP' TBCHR '14,S$$IVN##' MOVEI 14,Q10125 MOVEM 14,S$$FLP## MOVE 1,I10346 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10423 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10125: ; EXPRAR<20> = NOD(.P1,NOD(',',.P2)) MOVEI 14,Q10126 MOVEM 14,S$$FLP## MOVE 1,I10349 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10126: ; EXPRAR<21> = NOD(TBCHR 'AREFV$' TBCHR '^D',EXPRAR<20>) MOVEI 14,Q10127 MOVEM 14,S$$FLP## MOVE 1,I10350 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10267 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10127: ; EXPRAR<22> = NOD(TBCHR 'FCALV$' TBCHR '^D',EXPRAR<20>) MOVEI 14,Q10128 MOVEM 14,S$$FLP## MOVE 1,I10351 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10255 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10128: ; EXPRAR<23> = NOD(TBCHR 'AREFN$' TBCHR '^D',EXPRAR<20>) MOVEI 14,Q10129 MOVEM 14,S$$FLP## MOVE 1,I10353 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10269 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10129: ; EXPRAR<24> = NOD(TBCHR 'FCALN$' TBCHR '^D',EXPRAR<20>) MOVEI 14,Q10130 MOVEM 14,S$$FLP## MOVE 1,I10354 AREFN$ ^D1,EXPRAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10257 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10130: ;* ARITHMETIC OPERATOR CODE ; AROPAR = ARRAY('32:35,0:1') MOVEI 14,Q10131 MOVEM 14,S$$FLP## MOVE 1,S10424 FCALV$ ^D1,F10063 MOVEM 1,@AROPAR Q10131: ; AROPAR<32,0> = TBCHR 'IMUL' TBCHR '^D' MOVEI 14,Q10132 MOVEM 14,S$$FLP## MOVE 1,I10371 PUSH 16,1 MOVE 1,I10319 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10425 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10132: ; AROPAR<32,1> = TBCHR 'FMP' TBCHR '^D' MOVEI 14,Q10133 MOVEM 14,S$$FLP## MOVE 1,I10371 PUSH 16,1 MOVE 1,I10236 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10426 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10133: ; AROPAR<33,0> = TBCHR 'IDIV' TBCHR '^D' MOVEI 14,Q10134 MOVEM 14,S$$FLP## MOVE 1,I10373 PUSH 16,1 MOVE 1,I10319 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10427 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10134: ; AROPAR<33,1> = TBCHR 'FDV' TBCHR '^D' MOVEI 14,Q10135 MOVEM 14,S$$FLP## MOVE 1,I10373 PUSH 16,1 MOVE 1,I10236 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10428 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10135: ; AROPAR<34,0> = TBCHR 'ADD' TBCHR '^D' MOVEI 14,Q10136 MOVEM 14,S$$FLP## MOVE 1,I10375 PUSH 16,1 MOVE 1,I10319 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10429 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10136: ; AROPAR<34,1> = TBCHR 'FAD' TBCHR '^D' MOVEI 14,Q10137 MOVEM 14,S$$FLP## MOVE 1,I10375 PUSH 16,1 MOVE 1,I10236 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10430 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10137: ; AROPAR<35,0> = TBCHR 'SUB' TBCHR '^D' MOVEI 14,Q10138 MOVEM 14,S$$FLP## MOVE 1,I10431 PUSH 16,1 MOVE 1,I10319 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10432 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10138: ; AROPAR<35,1> = TBCHR 'FSB' TBCHR '^D' MOVEI 14,Q10139 MOVEM 14,S$$FLP## MOVE 1,I10431 PUSH 16,1 MOVE 1,I10236 AREFN$ ^D2,AROPAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10433 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10139: ;* ARITHMETIC CODE ; ARITAR = ARRAY('28') MOVEI 14,Q10140 MOVEM 14,S$$FLP## MOVE 1,S10434 FCALV$ ^D1,F10063 MOVEM 1,@ARITAR Q10140: ; ARITAR<1> = TBCHR 'DICNV$' TBCHR '0' MOVEI 14,Q10141 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10263 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10360 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10141: ; ARITAR<2> = TBCHR 'DRCNV$' TBCHR '0' MOVEI 14,Q10142 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10265 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10360 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10142: ; ARITAR<3> = TBCHR 'PUSH' TBCHR '17,1' MOVEI 14,Q10143 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10295 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10435 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10143: ; ARITAR<4> = TBCHR 'POP' TBCHR '17,1' MOVEI 14,Q10144 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10414 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10435 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10144: ; ARITAR<5> = TBCHR 'POP' TBCHR '17,0' MOVEI 14,Q10145 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10414 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10436 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10145: ; ARITAR<6> = NOD(.P1,'1,0') MOVEI 14,Q10146 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10437 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10146: ; ARITAR<7> = NOD(.P1,'0,1' CRLCHR ;. TBCHR 'MOVE' TBCHR '1,0') MOVEI 14,Q10147 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10438 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10437 JSP 14,S$$CNC## EXP ^D6 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10147: ; ARITAR<8> = ARITAR<6> MOVEI 14,Q10148 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,I10282 AREFV$ ^D1,ARITAR JSP 11,S$$ASG## Q10148: ; ARITAR<9> = ARITAR<7> MOVEI 14,Q10149 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,I10283 AREFV$ ^D1,ARITAR JSP 11,S$$ASG## Q10149: ; ARITAR<10> = TBCHR 'JSP' TBCHR '3,S$$RTI##' MOVEI 14,Q10150 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10439 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10150: ; ARITAR<11> = TBCHR 'JSP' TBCHR '3,S$$ITR##' MOVEI 14,Q10151 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10440 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10151: ; ARITAR<12> = NOD('^D',.P1) MOVEI 14,Q10152 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,S10278 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10152: ; ARITAR<13> = EXPRAR<20> MOVEI 14,Q10153 MOVEM 14,S$$FLP## MOVE 1,I10401 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR JSP 11,S$$ASG## Q10153: ; ARITAR<14> = TBCHR 'MOVE' TBCHR '^D' MOVEI 14,Q10154 MOVEM 14,S$$FLP## MOVE 1,I10336 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10154: ; ARITAR<15> = TBCHR 'MOVN' TBCHR '^D' MOVEI 14,Q10155 MOVEM 14,S$$FLP## MOVE 1,I10338 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10441 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10155: ; ARITAR<16> = NOD(.P1,.P2) MOVEI 14,Q10156 MOVEM 14,S$$FLP## MOVE 1,I10340 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10156: ; ARITAR<17> = NOD(NOD(TBCHR 'MOVN' TBCHR '^D',.P1) ;. ,NOD(',^D',.P1)) MOVEI 14,Q10157 MOVEM 14,S$$FLP## MOVE 1,I10343 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10441 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10157: ; ARITAR<18> = TBCHR 'PUSHJ' TBCHR '17,EXP1.0##' MOVEI 14,Q10158 MOVEM 14,S$$FLP## MOVE 1,I10345 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10443 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10158: ; ARITAR<19> = TBCHR 'PUSHJ' TBCHR '17,EXP2.0##' MOVEI 14,Q10159 MOVEM 14,S$$FLP## MOVE 1,I10346 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10444 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10159: ; ARITAR<20> = TBCHR 'PUSHJ' TBCHR '17,EXP3.0##' MOVEI 14,Q10160 MOVEM 14,S$$FLP## MOVE 1,I10349 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10379 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10445 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10160: ; ARITAR<21> = NOD(TBCHR 'DICNV$' TBCHR '@',.P1) MOVEI 14,Q10161 MOVEM 14,S$$FLP## MOVE 1,I10350 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10263 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10290 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10161: ; ARITAR<22> = NOD(TBCHR 'DRCNV$' TBCHR '@',.P1) MOVEI 14,Q10162 MOVEM 14,S$$FLP## MOVE 1,I10351 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10265 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10290 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10162: ; ARITAR<23> = NOD(TBCHR 'SUB' TBCHR '16,S$$STB##' CRLCHR ;. TBCHR 'MOVEM' TBCHR '16,S$$STS##' CRLCHR ;. TBCHR 'JSA' TBCHR '16,',.P1) MOVEI 14,Q10163 MOVEM 14,S$$FLP## MOVE 1,I10353 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10432 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10446 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10287 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10447 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10448 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10378 JSP 14,S$$CNC## EXP ^D14 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10163: ; ARITAR<24> = NOD(TBCHR 'JUMP' TBCHR,EXPRAR<20>) MOVEI 14,Q10164 MOVEM 14,S$$FLP## MOVE 1,I10354 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10449 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,I10349 AREFV$ ^D1,EXPRAR FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10164: ; ARITAR<25> = NOD(.P1,NOD('+^D',.P2)) MOVEI 14,Q10165 MOVEM 14,S$$FLP## MOVE 1,I10356 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10450 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10165: ; ARITAR<26> = TBCHR 'ADD' TBCHR '16,S$$STB##' MOVEI 14,Q10166 MOVEM 14,S$$FLP## MOVE 1,I10359 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10429 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10446 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10166: ; ARITAR<27> = TBCHR 'MOVE' TBCHR '1,0' MOVEI 14,Q10167 MOVEM 14,S$$FLP## MOVE 1,I10361 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10300 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10437 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10167: ; ARITAR<28> = NOD(NOD(NOD(NOD(NOD( ;. TBCHR 'IDIVI' TBCHR '^D',.P1),NOD(',400' CRLCHR ;. TBCHR 'SKIPE' TBCHR '^D',.P1)),NOD(CRLCHR ;. TBCHR 'TLC' TBCHR '^D',.P1)),NOD(NOD(',243000' CRLCHR ;. TBCHR 'TLC' TBCHR '^D',.P1),NOD('+1,233000' CRLCHR ;. TBCHR 'FAD' TBCHR '^D',.P1))),NOD(NOD(',^D',.P1),'+1')) MOVEI 14,Q10168 MOVEM 14,S$$FLP## MOVE 1,I10362 AREFN$ ^D1,ARITAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10451 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10452 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10453 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D6 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10454 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10455 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10454 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D6 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10456 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10430 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D6 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10457 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10168: ;* ARITAR<29> = NOD('^D',NOD(.P1,'(1000)')) ;* END-ACTION CODE ; EACTAR = ARRAY('32') MOVEI 14,Q10169 MOVEM 14,S$$FLP## MOVE 1,S10458 FCALV$ ^D1,F10063 MOVEM 1,@EACTAR Q10169: ; EACTAR<1> = NOD(.P1,NOD(':' TBCHR 'BLOCK' TBCHR '^D',.P2)) MOVEI 14,Q10170 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10459 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10170: ; EACTAR<2> = NOD(NOD('K',.P1),NOD(':' TBCHR 'EXP' TBCHR '^D',.P2)) MOVEI 14,Q10171 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10090 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10171: ; EACTAR<3> = NOD(NOD('C',.P1),NOD(':' TBCHR 'EXP' TBCHR,.P2)) MOVEI 14,Q10172 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10123 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10172: ; EACTAR<4> = NOD(NOD('I',.P1),NOD(NOD(':' TBCHR 'EXP' TBCHR '^D',.P2),'!1B0')) MOVEI 14,Q10173 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10088 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10460 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10173: ; EACTAR<5> = NOD(NOD('R',.P1),NOD(NOD(':' TBCHR 'EXP' TBCHR,.P2),'B37!3B1')) MOVEI 14,Q10174 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10461 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10462 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10174: ; EACTAR<6> = NOD(NOD('B',.P1),NOD(':' TBCHR 'EXP' TBCHR '^D',.P2)) MOVEI 14,Q10175 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10463 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10175: ; EACTAR<7> = NOD(NOD(TBCHR 'XWD' TBCHR '^D',.P1),NOD(',^D',.P2)) MOVEI 14,Q10176 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10176: ; EACTAR<8> = NOD(NOD(.P1,':' TBCHR 'BYTE' TBCHR '(4)4(14)0(18)'),NOD( ;.NOD(.P2,'+^D'),.P3)) MOVEI 14,Q10177 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10464 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10450 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10177: ; EACTAR<9> = NOD(.P1,':' TBCHR 'EXP' TBCHR '0') MOVEI 14,Q10178 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10360 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10178: ; EACTAR<10> = NOD(NOD(.P1,':' TBCHR 'POINT' TBCHR '7,.+1,35' CRLCHR ;. TBCHR 'BYTE' TBCHR '(2)0(16)^D'),NOD(NOD(.P2,'+1(18)0' CRLCHR ;. TBCHR 'BLOCK' TBCHR '^D'),.P2)) MOVEI 14,Q10179 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10466 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10467 JSP 14,S$$CNC## EXP ^D10 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10468 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10459 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D6 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10179: ; EACTAR<11> = NOD(NOD('N',.P1),NOD(NOD(':' TBCHR 'BYTE' TBCHR ;. '(4)4(2)',.P2),NOD('(12)0(18)',.P3))) MOVEI 14,Q10180 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10469 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10470 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10471 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10180: ; EACTAR<12> = TBCHR 'UFERR$' TBCHR '^D8,S$$PGL##' MOVEI 14,Q10181 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10251 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10472 JSP 14,S$$CNC## EXP ^D4 JSP 11,S$$ASG## Q10181: ; EACTAR<13> = NOD(TBCHR 'JRST' TBCHR,.P1) MOVEI 14,Q10182 MOVEM 14,S$$FLP## MOVE 1,I10401 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10247 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10182: ; EACTAR<14> = NOD(NOD('F',.P1),':' TBCHR 'BYTE' TBCHR ;. '(4)4(4)0(5)20(5)0(18)S$$UDF##') MOVEI 14,Q10183 MOVEM 14,S$$FLP## MOVE 1,I10336 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10473 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10474 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10183: ; EACTAR<15> = NOD(NOD(.P1,':' TBCHR 'BYTE' TBCHR ;. '(4)4(4)0(5)^D'),NOD( ;.NOD(.P2,'(5)0(18)E'),.P3)) MOVEI 14,Q10184 MOVEM 14,S$$FLP## MOVE 1,I10338 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10475 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10476 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10184: ; EACTAR<16> = NOD(NOD(NOD('F',.P1),':' TBCHR 'BYTE' TBCHR ;. '(4)4(4)0(5)^D'), ;.NOD(NOD(.P2,'(5)0(18)P$$'),NOD(.P3,'##'))) MOVEI 14,Q10185 MOVEM 14,S$$FLP## MOVE 1,I10340 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10473 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10475 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10477 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P3 PUSH 16,1 MOVE 1,S10478 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10185: ; EACTAR<17> = NOD(NOD('S',.P1),NOD(':' TBCHR 'POINT' ;. TBCHR '7,A',NOD(.P1,',35'))) MOVEI 14,Q10186 MOVEM 14,S$$FLP## MOVE 1,I10343 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10479 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10481 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10186: ; EACTAR<18> = NOD(NOD('A',.P1),NOD(NOD(':' TBCHR ;. 'BYTE' TBCHR '(2)2(16)^D',.P2),NOD('+1(18)^D',.P3))) MOVEI 14,Q10187 MOVEM 14,S$$FLP## MOVE 1,I10345 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10482 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10483 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10484 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10187: ; EACTAR<19> = NOD(NOD(TBCHR 'ASCII' TBCHR,.P1),NOD(.P2,.P1)) MOVEI 14,Q10188 MOVEM 14,S$$FLP## MOVE 1,I10346 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10485 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10188: ; EACTAR<20> = NOD(NOD(.P1,':' TBCHR 'BYTE' TBCHR ;. '(2)2(16)^D'),NOD(NOD(.P2,'+1(18)0' CRLCHR ;. TBCHR 'REPEAT' TBCHR '^D'),NOD(.P2,',<0>'))) MOVEI 14,Q10189 MOVEM 14,S$$FLP## MOVE 1,I10349 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10483 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10468 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10486 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D6 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10487 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10189: ; EACTAR<21> = NOD(NOD(NOD(NOD(TBCHR 'POINT' TBCHR '7,A',.P1),NOD(',35' CRLCHR ;. ,.P2)),NOD(':' TBCHR 'XWD' TBCHR '0,',.P3)),NOD(NOD(NOD(CRLCHR ;. TBCHR 'XWD' TBCHR,.P4),NOD(',^D',.P5)),NOD(CRLCHR ;. TBCHR 'EXP' TBCHR,.P4))) MOVEI 14,Q10190 MOVEM 14,S$$FLP## MOVE 1,I10350 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10481 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D2 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10488 JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10190: ; EACTAR<22> = NOD(NOD(TBCHR 'POINT' TBCHR '7,A',.P1),',35') MOVEI 14,Q10191 MOVEM 14,S$$FLP## MOVE 1,I10351 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10481 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10191: ; EACTAR<23> = NOD(NOD(NOD( ;. TBCHR 'XWD' TBCHR '^D',.P1),NOD(',',.P2)),NOD(NOD(NOD(CRLCHR ;. 'E',.P3),':' TBCHR 'JSP' TBCHR '13,S$$EFI##' CRLCHR ;. TBCHR 'POINT' TBCHR '7,A'),NOD(NOD(.P4,',35' CRLCHR ;. TBCHR 'EXP' TBCHR),.P5))) MOVEI 14,Q10192 MOVEM 14,S$$FLP## MOVE 1,I10353 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10272 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,S10489 JSP 14,S$$CNC## EXP ^D2 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10490 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D10 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P4 PUSH 16,1 MOVE 1,S10481 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10192: ; EACTAR<24> = NOD(NOD(NOD(.P1,':' TBCHR 'BLOCK' TBCHR '1' CRLCHR ;. TBCHR 'JSP' TBCHR '1,S$$FFI##' CRLCHR ;. TBCHR 'XWD' TBCHR '^D'),NOD(.P2,',')),NOD(NOD(NOD(.P3,CRLCHR ;. TBCHR 'POINT' TBCHR '7,A'),.P4),NOD(',35' CRLCHR ;. TBCHR 'EXP' TBCHR,.P5))) MOVEI 14,Q10193 MOVEM 14,S$$FLP## MOVE 1,I10354 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10459 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10491 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10275 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10492 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10277 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10278 JSP 14,S$$CNC## EXP ^D15 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10272 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P3 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10481 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D5 PUSH 16,1 MOVE 1,P5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10193: ; EACTAR<25> = NOD(NOD(.P1,':' TBCHR 'BYTE' TBCHR ;. '(2)2(16)^D'),NOD(NOD(.P2,'*4+1(18)-^D'),.P2)) MOVEI 14,Q10194 MOVEM 14,S$$FLP## MOVE 1,I10356 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10483 JSP 14,S$$CNC## EXP ^D5 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 PUSH 16,1 MOVE 1,S10493 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10194: ; EACTAR<26> = NOD('S',NOD(.P1,':')) MOVEI 14,Q10195 MOVEM 14,S$$FLP## MOVE 1,I10359 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10479 PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10195: ; EACTAR<27> = NOD(NOD(NOD(TBCHR 'EXP' TBCHR '0' CRLCHR ;. TBCHR 'BYTE' TBCHR '(5)',.P1),NOD('(31)0' CRLCHR ;. ,.P2)),NOD(NOD(TBCHR 'POINT' TBCHR '7,A',.P3),NOD(',35' CRLCHR ;. ,.P4))) MOVEI 14,Q10196 MOVEM 14,S$$FLP## MOVE 1,I10361 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10364 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10360 PUSH 16,1 MOVE 1,@CRLCHR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10494 JSP 14,S$$CNC## EXP ^D9 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10495 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D2 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10465 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10480 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10481 PUSH 16,1 MOVE 1,@CRLCHR JSP 14,S$$CNC## EXP ^D2 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10196: ; EACTAR<28> = TBCHR 'END' MOVEI 14,Q10197 MOVEM 14,S$$FLP## MOVE 1,I10362 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10007 JSP 14,S$$CNC## EXP ^D2 JSP 11,S$$ASG## Q10197: ; EACTAR<29> = NOD(TBCHR 'END' TBCHR,.P1) MOVEI 14,Q10198 MOVEM 14,S$$FLP## MOVE 1,I10366 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10007 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D3 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10198: ; EACTAR<30> = 'EXTERN S$$DMP' MOVEI 14,Q10199 MOVEM 14,S$$FLP## MOVE 1,I10367 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,S10496 JSP 11,S$$ASG## Q10199: ; EACTAR<31> = NOD(NOD(.P1,':' TBCHR),.P2) MOVEI 14,Q10200 MOVEM 14,S$$FLP## MOVE 1,I10369 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,P1 PUSH 16,1 MOVE 1,S10245 PUSH 16,1 MOVE 1,@TBCHR JSP 14,S$$CNC## EXP ^D2 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10200: ; EACTAR<32> = NOD(NOD(NOD(NOD(TBCHR 'BYTE' TBCHR ;. '(7)^D',.P1),NOD(',^D',.P2)),NOD(',^D',.P3)),NOD(NOD(',^D',.P4),NOD(',^D',.P5))) MOVEI 14,Q10201 MOVEM 14,S$$FLP## MOVE 1,I10371 AREFN$ ^D1,EACTAR PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10309 PUSH 16,1 MOVE 1,@TBCHR PUSH 16,1 MOVE 1,S10497 JSP 14,S$$CNC## EXP ^D4 PUSH 16,1 MOVE 1,P1 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P2 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P3 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P4 FCALV$ ^D2,F10244 PUSH 16,1 MOVE 1,S10442 PUSH 16,1 MOVE 1,P5 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 FCALV$ ^D2,F10244 JSP 11,S$$ASG## Q10201: ;* PREDEFINED PRIMITIVE CODE ; PRIMAR = ARRAY('45') MOVEI 14,Q10202 MOVEM 14,S$$FLP## MOVE 1,S10498 FCALV$ ^D1,F10063 MOVEM 1,@PRIMAR Q10202: ; PRIMAR<1> = '16APL' MOVEI 14,Q10203 MOVEM 14,S$$FLP## MOVE 1,I10236 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10499 JSP 11,S$$ASG## Q10203: ; PRIMAR<2> = '16ITM' MOVEI 14,Q10204 MOVEM 14,S$$FLP## MOVE 1,I10238 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10500 JSP 11,S$$ASG## Q10204: ; PRIMAR<3> = '0DTE' MOVEI 14,Q10205 MOVEM 14,S$$FLP## MOVE 1,I10241 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10501 JSP 11,S$$ASG## Q10205: ; PRIMAR<4> = '0TIM' MOVEI 14,Q10206 MOVEM 14,S$$FLP## MOVE 1,I10243 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10502 JSP 11,S$$ASG## Q10206: ; PRIMAR<5> = '0DTM' MOVEI 14,Q10207 MOVEM 14,S$$FLP## MOVE 1,I10246 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10503 JSP 11,S$$ASG## Q10207: ; PRIMAR<6> = '0EJC' MOVEI 14,Q10208 MOVEM 14,S$$FLP## MOVE 1,I10282 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10504 JSP 11,S$$ASG## Q10208: ; PRIMAR<7> = '1INT' MOVEI 14,Q10209 MOVEM 14,S$$FLP## MOVE 1,I10283 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10505 JSP 11,S$$ASG## Q10209: ; PRIMAR<8> = '1RAL' MOVEI 14,Q10210 MOVEM 14,S$$FLP## MOVE 1,I10292 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10506 JSP 11,S$$ASG## Q10210: ; PRIMAR<9> = '1SIZ' MOVEI 14,Q10211 MOVEM 14,S$$FLP## MOVE 1,I10294 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10507 JSP 11,S$$ASG## Q10211: ; PRIMAR<10> = '1TRM' MOVEI 14,Q10212 MOVEM 14,S$$FLP## MOVE 1,I10297 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10508 JSP 11,S$$ASG## Q10212: ; PRIMAR<11> = '1DTY' MOVEI 14,Q10213 MOVEM 14,S$$FLP## MOVE 1,I10299 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10509 JSP 11,S$$ASG## Q10213: ; PRIMAR<12> = '1CPY' MOVEI 14,Q10214 MOVEM 14,S$$FLP## MOVE 1,I10301 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10510 JSP 11,S$$ASG## Q10214: ; PRIMAR<13> = '1PRO' MOVEI 14,Q10215 MOVEM 14,S$$FLP## MOVE 1,I10401 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10511 JSP 11,S$$ASG## Q10215: ; PRIMAR<14> = '1COL' MOVEI 14,Q10216 MOVEM 14,S$$FLP## MOVE 1,I10336 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10512 JSP 11,S$$ASG## Q10216: ; PRIMAR<15> = '1XTM' MOVEI 14,Q10217 MOVEM 14,S$$FLP## MOVE 1,I10338 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10513 JSP 11,S$$ASG## Q10217: ; PRIMAR<16> = '1RVS' MOVEI 14,Q10218 MOVEM 14,S$$FLP## MOVE 1,I10340 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10514 JSP 11,S$$ASG## Q10218: ; PRIMAR<17> = '1DTC' MOVEI 14,Q10219 MOVEM 14,S$$FLP## MOVE 1,I10343 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10515 JSP 11,S$$ASG## Q10219: ; PRIMAR<18> = '1RLS' MOVEI 14,Q10220 MOVEM 14,S$$FLP## MOVE 1,I10345 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10516 JSP 11,S$$ASG## Q10220: ; PRIMAR<19> = '1DAT' MOVEI 14,Q10221 MOVEM 14,S$$FLP## MOVE 1,I10346 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10517 JSP 11,S$$ASG## Q10221: ; PRIMAR<20> = '2LGT' MOVEI 14,Q10222 MOVEM 14,S$$FLP## MOVE 1,I10349 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10518 JSP 11,S$$ASG## Q10222: ; PRIMAR<21> = '2CNV' MOVEI 14,Q10223 MOVEM 14,S$$FLP## MOVE 1,I10350 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10519 JSP 11,S$$ASG## Q10223: ; PRIMAR<22> = '2ARR' MOVEI 14,Q10224 MOVEM 14,S$$FLP## MOVE 1,I10351 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10520 JSP 11,S$$ASG## Q10224: ; PRIMAR<23> = '2TBL' MOVEI 14,Q10225 MOVEM 14,S$$FLP## MOVE 1,I10353 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10521 JSP 11,S$$ASG## Q10225: ; PRIMAR<24> = '2DUP' MOVEI 14,Q10226 MOVEM 14,S$$FLP## MOVE 1,I10354 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10522 JSP 11,S$$ASG## Q10226: ; PRIMAR<25> = '2DEF' MOVEI 14,Q10227 MOVEM 14,S$$FLP## MOVE 1,I10356 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10523 JSP 11,S$$ASG## Q10227: ; PRIMAR<26> = '2OPS' MOVEI 14,Q10228 MOVEM 14,S$$FLP## MOVE 1,I10359 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10524 JSP 11,S$$ASG## Q10228: ; PRIMAR<27> = '2OPN' MOVEI 14,Q10229 MOVEM 14,S$$FLP## MOVE 1,I10361 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10525 JSP 11,S$$ASG## Q10229: ; PRIMAR<28> = '2LKF' MOVEI 14,Q10230 MOVEM 14,S$$FLP## MOVE 1,I10362 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10526 JSP 11,S$$ASG## Q10230: ; PRIMAR<29> = '2NTF' MOVEI 14,Q10231 MOVEM 14,S$$FLP## MOVE 1,I10366 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10527 JSP 11,S$$ASG## Q10231: ; PRIMAR<30> = '2DIF' MOVEI 14,Q10232 MOVEM 14,S$$FLP## MOVE 1,I10367 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10528 JSP 11,S$$ASG## Q10232: ; PRIMAR<31> = '2IDT' MOVEI 14,Q10233 MOVEM 14,S$$FLP## MOVE 1,I10369 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10529 JSP 11,S$$ASG## Q10233: ; PRIMAR<32> = '2LTP' MOVEI 14,Q10234 MOVEM 14,S$$FLP## MOVE 1,I10371 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10530 JSP 11,S$$ASG## Q10234: ; PRIMAR<33> = '2LEP' MOVEI 14,Q10235 MOVEM 14,S$$FLP## MOVE 1,I10373 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10531 JSP 11,S$$ASG## Q10235: ; PRIMAR<34> = '2EQP' MOVEI 14,Q10236 MOVEM 14,S$$FLP## MOVE 1,I10375 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10532 JSP 11,S$$ASG## Q10236: ; PRIMAR<35> = '2NEP' MOVEI 14,Q10237 MOVEM 14,S$$FLP## MOVE 1,I10431 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10533 JSP 11,S$$ASG## Q10237: ; PRIMAR<36> = '2GEP' MOVEI 14,Q10238 MOVEM 14,S$$FLP## MOVE 1,I10534 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10535 JSP 11,S$$ASG## Q10238: ; PRIMAR<37> = '2GTP' MOVEI 14,Q10239 MOVEM 14,S$$FLP## MOVE 1,I10536 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10537 JSP 11,S$$ASG## Q10239: ; PRIMAR<38> = '3LPD' MOVEI 14,Q10240 MOVEM 14,S$$FLP## MOVE 1,I10538 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10539 JSP 11,S$$ASG## Q10240: ; PRIMAR<39> = '3RPD' MOVEI 14,Q10241 MOVEM 14,S$$FLP## MOVE 1,I10540 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10541 JSP 11,S$$ASG## Q10241: ; PRIMAR<40> = '3SBS' MOVEI 14,Q10242 MOVEM 14,S$$FLP## MOVE 1,I10542 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10543 JSP 11,S$$ASG## Q10242: ; PRIMAR<41> = '3INP' MOVEI 14,Q10243 MOVEM 14,S$$FLP## MOVE 1,I10544 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10545 JSP 11,S$$ASG## Q10243: ; PRIMAR<42> = '3OUT' MOVEI 14,Q10244 MOVEM 14,S$$FLP## MOVE 1,I10546 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10547 JSP 11,S$$ASG## Q10244: ; PRIMAR<43> = '3CLS' MOVEI 14,Q10245 MOVEM 14,S$$FLP## MOVE 1,I10548 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10549 JSP 11,S$$ASG## Q10245: ; PRIMAR<44> = '3RPL' MOVEI 14,Q10246 MOVEM 14,S$$FLP## MOVE 1,I10550 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10551 JSP 11,S$$ASG## Q10246: ; PRIMAR<45> = '4INS' MOVEI 14,Q10247 MOVEM 14,S$$FLP## MOVE 1,I10552 AREFN$ ^D1,PRIMAR PUSH 16,1 MOVE 1,S10553 JSP 11,S$$ASG## Q10247: ;* ; :(RETURN) JRST S$$SRT## ;END JRST S$$SXT## Q10001: BLOCK ^D0 K10236: EXP ^D1 I10236: EXP ^D1!1B0 I10238: EXP ^D2!1B0 I10241: EXP ^D3!1B0 I10243: EXP ^D4!1B0 I10246: EXP ^D5!1B0 I10282: EXP ^D6!1B0 I10283: EXP ^D7!1B0 I10292: EXP ^D8!1B0 I10294: EXP ^D9!1B0 I10297: EXP ^D10!1B0 I10299: EXP ^D11!1B0 I10301: EXP ^D12!1B0 I10319: EXP ^D0!1B0 I10336: EXP ^D14!1B0 I10338: EXP ^D15!1B0 I10340: EXP ^D16!1B0 I10343: EXP ^D17!1B0 I10345: EXP ^D18!1B0 I10346: EXP ^D19!1B0 I10349: EXP ^D20!1B0 I10350: EXP ^D21!1B0 I10351: EXP ^D22!1B0 I10353: EXP ^D23!1B0 I10354: EXP ^D24!1B0 I10356: EXP ^D25!1B0 I10359: EXP ^D26!1B0 I10361: EXP ^D27!1B0 I10362: EXP ^D28!1B0 I10366: EXP ^D29!1B0 I10367: EXP ^D30!1B0 I10369: EXP ^D31!1B0 I10371: EXP ^D32!1B0 I10373: EXP ^D33!1B0 I10375: EXP ^D34!1B0 I10401: EXP ^D13!1B0 I10431: EXP ^D35!1B0 I10534: EXP ^D36!1B0 I10536: EXP ^D37!1B0 I10538: EXP ^D38!1B0 I10540: EXP ^D39!1B0 I10542: EXP ^D40!1B0 I10544: EXP ^D41!1B0 I10546: EXP ^D42!1B0 I10548: EXP ^D43!1B0 I10550: EXP ^D44!1B0 I10552: EXP ^D45!1B0 F10000: BYTE (4)4(4)0(5)^D3(5)0(18)P$$INP## F10002: BYTE (4)4(4)0(5)^D3(5)0(18)P$$OUT## S10007: POINT 7,A10007,35 A10007: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'END' F10044: BYTE (4)4(4)0(5)^D0(5)0(18)P$$DTE## F10045: BYTE (4)4(4)0(5)^D0(5)0(18)P$$TIM## F10046: BYTE (4)4(4)0(5)^D0(5)0(18)P$$DTM## F10050: BYTE (4)4(4)0(5)^D1(5)0(18)P$$SIZ## F10053: BYTE (4)4(4)0(5)^D1(5)0(18)P$$CPY## F10059: BYTE (4)4(4)0(5)^D1(5)0(18)P$$RLS## F10060: BYTE (4)4(4)0(5)^D1(5)0(18)P$$DAT## F10061: BYTE (4)4(4)0(5)^D2(5)0(18)P$$LGT## F10063: BYTE (4)4(4)0(5)^D2(5)0(18)P$$ARR## F10064: BYTE (4)4(4)0(5)^D2(5)0(18)P$$TBL## F10065: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DUP## F10066: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DEF## F10068: BYTE (4)4(4)0(5)^D2(5)0(18)P$$OPN## F10069: BYTE (4)4(4)0(5)^D2(5)0(18)P$$LKF## F10070: BYTE (4)4(4)0(5)^D2(5)0(18)P$$NTF## F10071: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DIF## F10072: BYTE (4)4(4)0(5)^D2(5)0(18)P$$IDT## F10081: BYTE (4)4(4)0(5)^D3(5)0(18)P$$SBS## V10088: EXP 0 S10088: POINT 7,A10088,35 A10088: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'I' V10089: EXP 0 V10090: EXP 0 S10090: POINT 7,A10090,35 A10090: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'K' A10091: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'INITLB' A10092: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'INITLB()' S10123: POINT 7,A10123,35 A10123: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'C' S10233: POINT 7,A10233,35 A10233: BYTE (2)2(16)^D3+1(18)^D14 ASCII 'SYM(INAM,ATRB)' S10234: POINT 7,A10234,35 A10234: BYTE (2)2(16)^D3+1(18)^D14 ASCII 'NOD(FRNT,BACK)' S10235: POINT 7,A10235,35 A10235: BYTE (2)2(16)^D1+1(18)^D1 ASCII '5' S10237: POINT 7,A10237,35 A10237: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'S$$NFE##' S10239: POINT 7,A10239,35 A10239: BYTE (2)2(16)^D4+1(18)^D17 ASCII 'MOVEI 14,S$$BGT##' S10240: POINT 7,A10240,35 A10240: BYTE (2)2(16)^D4+1(18)^D17 ASCII 'MOVEM 14,S$$FLP##' S10242: POINT 7,A10242,35 A10242: BYTE (2)2(16)^D3+1(18)^D15 ASCII 'JSP 14,S$$ILB##' A10244: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'NOD' S10245: POINT 7,A10245,35 A10245: BYTE (2)2(16)^D1+1(18)^D1 ASCII ':' S10247: POINT 7,A10247,35 A10247: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'JRST' S10248: POINT 7,A10248,35 A10248: BYTE (2)2(16)^D1+1(18)^D1 ASCII '4' S10249: POINT 7,A10249,35 A10249: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'TITLE ' S10250: POINT 7,A10250,35 A10250: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'OPDEF' S10251: POINT 7,A10251,35 A10251: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'UFERR$' S10252: POINT 7,A10252,35 A10252: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[1B8]' S10253: POINT 7,A10253,35 A10253: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'CFERR$' S10254: POINT 7,A10254,35 A10254: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[2B8]' S10255: POINT 7,A10255,35 A10255: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'FCALV$' S10256: POINT 7,A10256,35 A10256: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[3B8]' S10257: POINT 7,A10257,35 A10257: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'FCALN$' S10258: POINT 7,A10258,35 A10258: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[4B8]' S10259: POINT 7,A10259,35 A10259: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'DASGN$' S10260: POINT 7,A10260,35 A10260: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[5B8]' S10261: POINT 7,A10261,35 A10261: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'DCONC$' S10262: POINT 7,A10262,35 A10262: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[6B8]' S10263: POINT 7,A10263,35 A10263: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'DICNV$' S10264: POINT 7,A10264,35 A10264: BYTE (2)2(16)^D1+1(18)^D5 ASCII '[7B8]' S10265: POINT 7,A10265,35 A10265: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'DRCNV$' S10266: POINT 7,A10266,35 A10266: BYTE (2)2(16)^D2+1(18)^D6 ASCII '[10B8]' S10267: POINT 7,A10267,35 A10267: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'AREFV$' S10268: POINT 7,A10268,35 A10268: BYTE (2)2(16)^D2+1(18)^D6 ASCII '[11B8]' S10269: POINT 7,A10269,35 A10269: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'AREFN$' S10270: POINT 7,A10270,35 A10270: BYTE (2)2(16)^D2+1(18)^D6 ASCII '[12B8]' S10271: POINT 7,A10271,35 A10271: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'ENTRY ' S10272: POINT 7,A10272,35 A10272: BYTE (2)2(16)^D1+1(18)^D1 ASCII ',' S10273: POINT 7,A10273,35 A10273: BYTE (2)2(16)^D2+1(18)^D7 ASCII 'EXTERN ' S10274: POINT 7,A10274,35 A10274: BYTE (2)2(16)^D1+1(18)^D1 ASCII '7' S10275: POINT 7,A10275,35 A10275: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'JSP' S10276: POINT 7,A10276,35 A10276: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$ILZ##' S10277: POINT 7,A10277,35 A10277: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'XWD' S10278: POINT 7,A10278,35 A10278: BYTE (2)2(16)^D1+1(18)^D2 ASCII '^D' S10279: POINT 7,A10279,35 A10279: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'S$$SXT##' S10280: POINT 7,A10280,35 A10280: BYTE (2)2(16)^D1+1(18)^D1 ASCII '=' S10281: POINT 7,A10281,35 A10281: BYTE (2)2(16)^D1+1(18)^D2 ASCII '+3' S10284: POINT 7,A10284,35 A10284: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$CPE##' S10285: POINT 7,A10285,35 A10285: BYTE (2)2(16)^D1+1(18)^D2 ASCII '12' S10286: POINT 7,A10286,35 A10286: BYTE (2)2(16)^D3+1(18)^D11 ASCII 'S$$KWD##+^D' S10287: POINT 7,A10287,35 A10287: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'MOVEM' S10288: POINT 7,A10288,35 A10288: BYTE (2)2(16)^D1+1(18)^D2 ASCII '1,' S10289: POINT 7,A10289,35 A10289: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'SETZM' 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)^D3 ASCII '1,@' S10293: POINT 7,A10293,35 A10293: BYTE (2)2(16)^D1+1(18)^D3 ASCII '(1)' S10295: POINT 7,A10295,35 A10295: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'PUSH' S10296: POINT 7,A10296,35 A10296: BYTE (2)2(16)^D1+1(18)^D4 ASCII '16,1' S10298: POINT 7,A10298,35 A10298: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$ASG##' S10300: POINT 7,A10300,35 A10300: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'MOVE' S10302: POINT 7,A10302,35 A10302: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'MOVEI' S10303: POINT 7,A10303,35 A10303: BYTE (2)2(16)^D3+1(18)^D13 ASCII '1,S$$KWD##+^D' S10304: POINT 7,A10304,35 A10304: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'HRLI' S10305: POINT 7,A10305,35 A10305: BYTE (2)2(16)^D2+1(18)^D7 ASCII '1,22B23' S10306: POINT 7,A10306,35 A10306: BYTE (2)2(16)^D1+1(18)^D1 ASCII '9' S10307: POINT 7,A10307,35 A10307: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$MTX##' S10308: POINT 7,A10308,35 A10308: BYTE (2)2(16)^D1+1(18)^D2 ASCII ',0' S10309: POINT 7,A10309,35 A10309: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'BYTE' S10310: POINT 7,A10310,35 A10310: BYTE (2)2(16)^D4+1(18)^D16 ASCII '(2)2(16)1(18).+1' S10311: POINT 7,A10311,35 A10311: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MTS##' S10312: POINT 7,A10312,35 A10312: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$IVV##' S10313: POINT 7,A10313,35 A10313: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$RPS##' S10314: POINT 7,A10314,35 A10314: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$RPL##' S10315: POINT 7,A10315,35 A10315: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'SETZ' S10316: POINT 7,A10316,35 A10316: BYTE (2)2(16)^D1+1(18)^D4 ASCII '-1:1' S10317: POINT 7,A10317,35 A10317: BYTE (2)2(16)^D1+1(18)^D3 ASCII '14,' S10318: POINT 7,A10318,35 A10318: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$FLP##' S10320: POINT 7,A10320,35 A10320: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$STE##' S10321: POINT 7,A10321,35 A10321: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$STT##' S10322: POINT 7,A10322,35 A10322: BYTE (2)2(16)^D1+1(18)^D2 ASCII '34' S10323: POINT 7,A10323,35 A10323: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$GPB##' S10324: POINT 7,A10324,35 A10324: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'S$$PTS##' S10325: POINT 7,A10325,35 A10325: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$APS##' S10326: POINT 7,A10326,35 A10326: BYTE (2)2(16)^D1+1(18)^D4 ASCII '.-.,' S10327: POINT 7,A10327,35 A10327: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$APR##' S10328: POINT 7,A10328,35 A10328: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$APF##' S10329: POINT 7,A10329,35 A10329: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$VAS##' S10330: POINT 7,A10330,35 A10330: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$CVA##' S10331: POINT 7,A10331,35 A10331: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$IVA##' S10332: POINT 7,A10332,35 A10332: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'HRRZ' S10333: POINT 7,A10333,35 A10333: BYTE (2)2(16)^D3+1(18)^D11 ASCII '1,@S$$SJC##' S10334: POINT 7,A10334,35 A10334: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'SUBI' S10335: POINT 7,A10335,35 A10335: BYTE (2)2(16)^D2+1(18)^D6 ASCII '1,(13)' S10337: POINT 7,A10337,35 A10337: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$ASC##' S10339: POINT 7,A10339,35 A10339: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MST##' S10341: POINT 7,A10341,35 A10341: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$CKP##' S10342: POINT 7,A10342,35 A10342: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$PTX##' S10344: POINT 7,A10344,35 A10344: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MKP##' S10347: POINT 7,A10347,35 A10347: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1,^D' S10348: POINT 7,A10348,35 A10348: BYTE (2)2(16)^D1+1(18)^D4 ASCII '(15)' S10352: POINT 7,A10352,35 A10352: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MIP##' S10355: POINT 7,A10355,35 A10355: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MID##' S10357: POINT 7,A10357,35 A10357: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'JUMPL' S10358: POINT 7,A10358,35 A10358: BYTE (2)2(16)^D2+1(18)^D10 ASCII '1,S$$MIE##' S10360: POINT 7,A10360,35 A10360: BYTE (2)2(16)^D1+1(18)^D1 ASCII '0' S10363: POINT 7,A10363,35 A10363: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$MBT##' S10364: POINT 7,A10364,35 A10364: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'EXP' S10365: POINT 7,A10365,35 A10365: BYTE (2)2(16)^D1+1(18)^D1 ASCII '.' A10368: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'FRNT' S10370: POINT 7,A10370,35 A10370: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$UEB##' S10372: POINT 7,A10372,35 A10372: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$UES##' S10374: POINT 7,A10374,35 A10374: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$UFB##' S10376: POINT 7,A10376,35 A10376: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$UFS##' S10377: POINT 7,A10377,35 A10377: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'POPJ' S10378: POINT 7,A10378,35 A10378: BYTE (2)2(16)^D1+1(18)^D3 ASCII '16,' S10379: POINT 7,A10379,35 A10379: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'PUSHJ' S10380: POINT 7,A10380,35 A10380: BYTE (2)2(16)^D2+1(18)^D6 ASCII '16,.+2' S10381: POINT 7,A10381,35 A10381: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'S$$MTA##' S10382: POINT 7,A10382,35 A10382: BYTE (2)2(16)^D3+1(18)^D11 ASCII '16,S$$ARB##' S10383: POINT 7,A10383,35 A10383: BYTE (2)2(16)^D3+1(18)^D11 ASCII '16,S$$BAL##' S10384: POINT 7,A10384,35 A10384: BYTE (2)2(16)^D3+1(18)^D11 ASCII '16,S$$SUC##' S10385: POINT 7,A10385,35 A10385: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$REM##' S10386: POINT 7,A10386,35 A10386: BYTE (2)2(16)^D1+1(18)^D2 ASCII '13' S10387: POINT 7,A10387,35 A10387: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$LEN##' S10388: POINT 7,A10388,35 A10388: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$TAB##' S10389: POINT 7,A10389,35 A10389: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$RTB##' S10390: POINT 7,A10390,35 A10390: BYTE (2)2(16)^D3+1(18)^D11 ASCII '2,@S$$SJC##' S10391: POINT 7,A10391,35 A10391: BYTE (2)2(16)^D1+1(18)^D5 ASCII '2,(1)' S10392: POINT 7,A10392,35 A10392: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'CAIE' S10393: POINT 7,A10393,35 A10393: BYTE (2)2(16)^D2+1(18)^D6 ASCII '2,(13)' S10394: POINT 7,A10394,35 A10394: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$SPN##' S10395: POINT 7,A10395,35 A10395: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$BRK##' S10396: POINT 7,A10396,35 A10396: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$ANY##' S10397: POINT 7,A10397,35 A10397: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$NTA##' S10398: POINT 7,A10398,35 A10398: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$NSP##' S10399: POINT 7,A10399,35 A10399: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$BRX##' S10400: POINT 7,A10400,35 A10400: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$BRQ##' S10402: POINT 7,A10402,35 A10402: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$RBS##' S10403: POINT 7,A10403,35 A10403: BYTE (2)2(16)^D3+1(18)^D11 ASCII '11,S$$RBR##' S10404: POINT 7,A10404,35 A10404: BYTE (2)2(16)^D1+1(18)^D2 ASCII '24' S10405: POINT 7,A10405,35 A10405: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$CNC##' S10406: POINT 7,A10406,35 A10406: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'TLO' S10407: POINT 7,A10407,35 A10407: BYTE (2)2(16)^D2+1(18)^D6 ASCII '1,1B18' S10408: POINT 7,A10408,35 A10408: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'TLZ' S10409: POINT 7,A10409,35 A10409: BYTE (2)2(16)^D2+1(18)^D6 ASCII '1,1B19' S10410: POINT 7,A10410,35 A10410: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'LSH' S10411: POINT 7,A10411,35 A10411: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1,-2' S10412: POINT 7,A10412,35 A10412: BYTE (2)2(16)^D2+1(18)^D6 ASCII '1,3B19' S10413: POINT 7,A10413,35 A10413: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$EXP##' S10414: POINT 7,A10414,35 A10414: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'POP' S10415: POINT 7,A10415,35 A10415: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$MUL##' S10416: POINT 7,A10416,35 A10416: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$DIV##' S10417: POINT 7,A10417,35 A10417: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$ADD##' S10418: POINT 7,A10418,35 A10418: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$SUB##' S10419: POINT 7,A10419,35 A10419: BYTE (2)2(16)^D2+1(18)^D10 ASCII '7,S$$CPS##' S10420: POINT 7,A10420,35 A10420: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$NGS##' S10421: POINT 7,A10421,35 A10421: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$NEG##' S10422: POINT 7,A10422,35 A10422: BYTE (2)2(16)^D2+1(18)^D8 ASCII 'S$$NGF##' S10423: POINT 7,A10423,35 A10423: BYTE (2)2(16)^D3+1(18)^D11 ASCII '14,S$$IVN##' S10424: POINT 7,A10424,35 A10424: BYTE (2)2(16)^D2+1(18)^D9 ASCII '32:35,0:1' S10425: POINT 7,A10425,35 A10425: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'IMUL' S10426: POINT 7,A10426,35 A10426: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'FMP' S10427: POINT 7,A10427,35 A10427: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'IDIV' S10428: POINT 7,A10428,35 A10428: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'FDV' S10429: POINT 7,A10429,35 A10429: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'ADD' S10430: POINT 7,A10430,35 A10430: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'FAD' S10432: POINT 7,A10432,35 A10432: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'SUB' S10433: POINT 7,A10433,35 A10433: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'FSB' S10434: POINT 7,A10434,35 A10434: BYTE (2)2(16)^D1+1(18)^D2 ASCII '28' S10435: POINT 7,A10435,35 A10435: BYTE (2)2(16)^D1+1(18)^D4 ASCII '17,1' S10436: POINT 7,A10436,35 A10436: BYTE (2)2(16)^D1+1(18)^D4 ASCII '17,0' S10437: POINT 7,A10437,35 A10437: BYTE (2)2(16)^D1+1(18)^D3 ASCII '1,0' S10438: POINT 7,A10438,35 A10438: BYTE (2)2(16)^D1+1(18)^D3 ASCII '0,1' S10439: POINT 7,A10439,35 A10439: BYTE (2)2(16)^D2+1(18)^D10 ASCII '3,S$$RTI##' S10440: POINT 7,A10440,35 A10440: BYTE (2)2(16)^D2+1(18)^D10 ASCII '3,S$$ITR##' S10441: POINT 7,A10441,35 A10441: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'MOVN' S10442: POINT 7,A10442,35 A10442: BYTE (2)2(16)^D1+1(18)^D3 ASCII ',^D' S10443: POINT 7,A10443,35 A10443: BYTE (2)2(16)^D3+1(18)^D11 ASCII '17,EXP1.0##' S10444: POINT 7,A10444,35 A10444: BYTE (2)2(16)^D3+1(18)^D11 ASCII '17,EXP2.0##' S10445: POINT 7,A10445,35 A10445: BYTE (2)2(16)^D3+1(18)^D11 ASCII '17,EXP3.0##' S10446: POINT 7,A10446,35 A10446: BYTE (2)2(16)^D3+1(18)^D11 ASCII '16,S$$STB##' S10447: POINT 7,A10447,35 A10447: BYTE (2)2(16)^D3+1(18)^D11 ASCII '16,S$$STS##' S10448: POINT 7,A10448,35 A10448: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'JSA' S10449: POINT 7,A10449,35 A10449: BYTE (2)2(16)^D1+1(18)^D4 ASCII 'JUMP' S10450: POINT 7,A10450,35 A10450: BYTE (2)2(16)^D1+1(18)^D3 ASCII '+^D' S10451: POINT 7,A10451,35 A10451: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'IDIVI' S10452: POINT 7,A10452,35 A10452: BYTE (2)2(16)^D1+1(18)^D4 ASCII ',400' S10453: POINT 7,A10453,35 A10453: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'SKIPE' S10454: POINT 7,A10454,35 A10454: BYTE (2)2(16)^D1+1(18)^D3 ASCII 'TLC' S10455: POINT 7,A10455,35 A10455: BYTE (2)2(16)^D2+1(18)^D7 ASCII ',243000' S10456: POINT 7,A10456,35 A10456: BYTE (2)2(16)^D2+1(18)^D9 ASCII '+1,233000' S10457: POINT 7,A10457,35 A10457: BYTE (2)2(16)^D1+1(18)^D2 ASCII '+1' S10458: POINT 7,A10458,35 A10458: BYTE (2)2(16)^D1+1(18)^D2 ASCII '32' S10459: POINT 7,A10459,35 A10459: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'BLOCK' S10460: POINT 7,A10460,35 A10460: BYTE (2)2(16)^D1+1(18)^D4 ASCII '!1B0' S10461: POINT 7,A10461,35 A10461: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'R' S10462: POINT 7,A10462,35 A10462: BYTE (2)2(16)^D2+1(18)^D7 ASCII 'B37!3B1' S10463: POINT 7,A10463,35 A10463: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'B' S10464: POINT 7,A10464,35 A10464: BYTE (2)2(16)^D3+1(18)^D13 ASCII '(4)4(14)0(18)' S10465: POINT 7,A10465,35 A10465: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'POINT' S10466: POINT 7,A10466,35 A10466: BYTE (2)2(16)^D2+1(18)^D8 ASCII '7,.+1,35' S10467: POINT 7,A10467,35 A10467: BYTE (2)2(16)^D2+1(18)^D10 ASCII '(2)0(16)^D' S10468: POINT 7,A10468,35 A10468: BYTE (2)2(16)^D2+1(18)^D7 ASCII '+1(18)0' S10469: POINT 7,A10469,35 A10469: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'N' S10470: POINT 7,A10470,35 A10470: BYTE (2)2(16)^D2+1(18)^D7 ASCII '(4)4(2)' S10471: POINT 7,A10471,35 A10471: BYTE (2)2(16)^D2+1(18)^D9 ASCII '(12)0(18)' S10472: POINT 7,A10472,35 A10472: BYTE (2)2(16)^D3+1(18)^D12 ASCII '^D8,S$$PGL##' S10473: POINT 7,A10473,35 A10473: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'F' S10474: POINT 7,A10474,35 A10474: BYTE (2)2(16)^D6+1(18)^D29 ASCII '(4)4(4)0(5)20(5)0(18)S$$UDF##' S10475: POINT 7,A10475,35 A10475: BYTE (2)2(16)^D3+1(18)^D13 ASCII '(4)4(4)0(5)^D' S10476: POINT 7,A10476,35 A10476: BYTE (2)2(16)^D2+1(18)^D9 ASCII '(5)0(18)E' S10477: POINT 7,A10477,35 A10477: BYTE (2)2(16)^D3+1(18)^D11 ASCII '(5)0(18)P$$' S10478: POINT 7,A10478,35 A10478: BYTE (2)2(16)^D1+1(18)^D2 ASCII '##' S10479: POINT 7,A10479,35 A10479: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'S' S10480: POINT 7,A10480,35 A10480: BYTE (2)2(16)^D1+1(18)^D3 ASCII '7,A' S10481: POINT 7,A10481,35 A10481: BYTE (2)2(16)^D1+1(18)^D3 ASCII ',35' S10482: POINT 7,A10482,35 A10482: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'A' S10483: POINT 7,A10483,35 A10483: BYTE (2)2(16)^D2+1(18)^D10 ASCII '(2)2(16)^D' S10484: POINT 7,A10484,35 A10484: BYTE (2)2(16)^D2+1(18)^D8 ASCII '+1(18)^D' S10485: POINT 7,A10485,35 A10485: BYTE (2)2(16)^D1+1(18)^D5 ASCII 'ASCII' S10486: POINT 7,A10486,35 A10486: BYTE (2)2(16)^D2+1(18)^D6 ASCII 'REPEAT' S10487: POINT 7,A10487,35 A10487: BYTE (2)2(16)^D1+1(18)^D4 ASCII ',<0>' S10488: POINT 7,A10488,35 A10488: BYTE (2)2(16)^D1+1(18)^D2 ASCII '0,' S10489: POINT 7,A10489,35 A10489: BYTE (2)2(16)^D1+1(18)^D1 ASCII 'E' S10490: POINT 7,A10490,35 A10490: BYTE (2)2(16)^D3+1(18)^D11 ASCII '13,S$$EFI##' S10491: POINT 7,A10491,35 A10491: BYTE (2)2(16)^D1+1(18)^D1 ASCII '1' S10492: POINT 7,A10492,35 A10492: BYTE (2)2(16)^D2+1(18)^D10 ASCII '1,S$$FFI##' S10493: POINT 7,A10493,35 A10493: BYTE (2)2(16)^D3+1(18)^D11 ASCII '*4+1(18)-^D' S10494: POINT 7,A10494,35 A10494: BYTE (2)2(16)^D1+1(18)^D3 ASCII '(5)' S10495: POINT 7,A10495,35 A10495: BYTE (2)2(16)^D1+1(18)^D5 ASCII '(31)0' S10496: POINT 7,A10496,35 A10496: BYTE (2)2(16)^D3+1(18)^D13 ASCII 'EXTERN S$$DMP' S10497: POINT 7,A10497,35 A10497: BYTE (2)2(16)^D1+1(18)^D5 ASCII '(7)^D' S10498: POINT 7,A10498,35 A10498: BYTE (2)2(16)^D1+1(18)^D2 ASCII '45' S10499: POINT 7,A10499,35 A10499: BYTE (2)2(16)^D1+1(18)^D5 ASCII '16APL' S10500: POINT 7,A10500,35 A10500: BYTE (2)2(16)^D1+1(18)^D5 ASCII '16ITM' S10501: POINT 7,A10501,35 A10501: BYTE (2)2(16)^D1+1(18)^D4 ASCII '0DTE' S10502: POINT 7,A10502,35 A10502: BYTE (2)2(16)^D1+1(18)^D4 ASCII '0TIM' S10503: POINT 7,A10503,35 A10503: BYTE (2)2(16)^D1+1(18)^D4 ASCII '0DTM' S10504: POINT 7,A10504,35 A10504: BYTE (2)2(16)^D1+1(18)^D4 ASCII '0EJC' S10505: POINT 7,A10505,35 A10505: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1INT' S10506: POINT 7,A10506,35 A10506: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1RAL' S10507: POINT 7,A10507,35 A10507: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1SIZ' S10508: POINT 7,A10508,35 A10508: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1TRM' S10509: POINT 7,A10509,35 A10509: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1DTY' S10510: POINT 7,A10510,35 A10510: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1CPY' S10511: POINT 7,A10511,35 A10511: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1PRO' S10512: POINT 7,A10512,35 A10512: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1COL' S10513: POINT 7,A10513,35 A10513: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1XTM' S10514: POINT 7,A10514,35 A10514: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1RVS' S10515: POINT 7,A10515,35 A10515: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1DTC' S10516: POINT 7,A10516,35 A10516: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1RLS' S10517: POINT 7,A10517,35 A10517: BYTE (2)2(16)^D1+1(18)^D4 ASCII '1DAT' S10518: POINT 7,A10518,35 A10518: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2LGT' S10519: POINT 7,A10519,35 A10519: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2CNV' S10520: POINT 7,A10520,35 A10520: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2ARR' S10521: POINT 7,A10521,35 A10521: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2TBL' S10522: POINT 7,A10522,35 A10522: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2DUP' S10523: POINT 7,A10523,35 A10523: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2DEF' S10524: POINT 7,A10524,35 A10524: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2OPS' S10525: POINT 7,A10525,35 A10525: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2OPN' S10526: POINT 7,A10526,35 A10526: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2LKF' S10527: POINT 7,A10527,35 A10527: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2NTF' S10528: POINT 7,A10528,35 A10528: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2DIF' S10529: POINT 7,A10529,35 A10529: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2IDT' S10530: POINT 7,A10530,35 A10530: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2LTP' S10531: POINT 7,A10531,35 A10531: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2LEP' S10532: POINT 7,A10532,35 A10532: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2EQP' S10533: POINT 7,A10533,35 A10533: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2NEP' S10535: POINT 7,A10535,35 A10535: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2GEP' S10537: POINT 7,A10537,35 A10537: BYTE (2)2(16)^D1+1(18)^D4 ASCII '2GTP' S10539: POINT 7,A10539,35 A10539: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3LPD' S10541: POINT 7,A10541,35 A10541: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3RPD' S10543: POINT 7,A10543,35 A10543: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3SBS' S10545: POINT 7,A10545,35 A10545: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3INP' S10547: POINT 7,A10547,35 A10547: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3OUT' S10549: POINT 7,A10549,35 A10549: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3CLS' S10551: POINT 7,A10551,35 A10551: BYTE (2)2(16)^D1+1(18)^D4 ASCII '3RPL' S10553: POINT 7,A10553,35 A10553: BYTE (2)2(16)^D1+1(18)^D4 ASCII '4INS' Q10248: BYTE (2)2(16)^D1+1(18)0 REPEAT ^D1,<0> Q10249: BYTE (2)2(16)^D5*4+1(18)-^D5 EXP 0 BYTE (5)5(31)0 POINT 7,A10368,35 F10368: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF## EXP 0 BYTE (5)5(31)0 POINT 7,A10244,35 F10244: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF## EXP 0 BYTE (5)5(31)0 POINT 7,A10091,35 INITLB: 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)Q10248+^D1 POINT 7,A10091,35 Q10000: XWD 0,Q10248 XWD Q10249,^D0 EXP Q10249 XWD ^D7,Q10000 E10091: JSP 13,S$$EFI## POINT 7,A10092,35 EXP 0 END