Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0057/initlb.fas
There are 2 other files named initlb.fas in the archive. Click here to see a list.
;* * * * * * * * *
;* * 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