@MASM,SE TPF$.LISP-ASM
MASM 6R2 (950816 1614:49) 1998 Apr 29 Wed 1338:27
COPYRIGHT (c) 1994 Unisys Corporation.
All rights reserved.
UNISYS PROPRIETARY
                                           1.               AXR$.
                                           2.       $(6)    LIT.                                           
                                           3.       /. REGISTER ASSIGNMENTS               (DON'T FOOL WITH THESE)
              000000000001                 4.       XT      EQU        001
              000000000002                 5.       XF      EQU        002
              000000000003                 6.       XC      EQU        003
              000000000004                 7.       XL      EQU        004
              000000000005                 8.       XP      EQU        005
              000000000006                 9.       XI      EQU        006
              000000000007                10.       XR      EQU        007
              000000000010                11.       XW      EQU        010
              000000000011                12.       XO      EQU        011
              000000000012                13.       XW1     EQU        012
              000000000014                14.       XX      EQU        014
              000000000015                15.       XY      EQU        015
              000000000016                16.       XV      EQU        016
              000000000020                17.       XA      EQU        020
              000000000022                18.       XXA     EQU        022
              000000000033                19.       XMCNT   EQU        033
              000000000117                20.       XFLAG   EQU        0117
                                          21.       . OTHER CONSTANTS
              000000000003                22.       RH      EQU        3
              000000000004                23.       LH      EQU        4
                                          24.       PAIR    FORM       18,18
                                          25.       PF      FORM       6,6,6,18.
                                          26.       ESCC    EQU        '!'.                (MUST ALSO CHANGE DELIMS)
                                          27.       STRC    EQU        '"'.                (DITTO)
                                          28.       CTRCHR  EQU        ':' 
                                          29.       /. COMMON LISP MACROS
                                          30.       . LOAD VALUE REGISTER
                                          31.       LOAD*   PROC
                                          32.       I       EQU        LOAD(1,1)
                                          33.       J       EQU        (I=0)++(I>16)
                                          34.               DO         J=0 ,
                                          35.               LMA,RH     XV,STACK-I,XF.
                                          36.               DO         J ,
                                          37.               LMA,U      XV,I.
                                          38.               END
                                          39.       . STORE VALUE REGISTER
                                          40.       STORE*  PROC
                                          41.               DO         STORE=0 ,
                                          42.               SA         XV,STACK,*XT.
                                          43.               DO         STORE>0 ,
                                          44.               SA         XV,STACK-STORE(1,1),XF.
                                          45.               END
                                          46.       . MOVE VALUES TO STACK
                                          47.       MOVE*   PROC
                                          48.       XX*     PROC
                                          49.               LOAD       MOVE(1,I)
                                          50.               STORE
                                          51.               END
                                          52.       I       DO         MOVE(1) , XX.
                                          53.               END
                                          54.       . ENTER FUNCTION
                                          55.       CALL*   PROC
                                          56.               LMJ        XL,ENTRY.
                                          57.               END
                                          58.       . ENTER ROUTINE
                                          59.       CALLR*  PROC
                                          60.               LMJ        XL,ENTRYR.
                                          61.               END
                                          62.       . LEAVE FUNCTION
                                          63.       RETURN* PROC
                                          64.               J          EXIT.
                                          65.               END
                                          66.       . MARK STACK
                                          67.       MARK*   PROC
                                          68.               SX         XT,CSTAK,*XC.
                                          69.               END
                                          70.        . PREPARE TO APPLY FUNCTION
                                          71.       LETS*   PROC
                                          72.               MARK
                                          73.               L,U        R3,LETS(1,1).
                                          74.               S          R3,STACK,*XT.
                                          75.               END
                                          76.       . GET NODE TYPE
                                          77.       GETYPE* PROC
                                          78.               AND,U      XV,PAGMSK.
                                          79.               SSL        XV+1,PAGBIT.
                                          80.               LA,S3      XV+1,PAGTAB,XV+1.
                                          81.               END
                                          82.       . GET CAR OR CDR
                                          83.       UPLOW   PROC
                                          84.       UPPER*  NAME       4
                                          85.       LOWER*  NAME       3
                                          86.               LMA        UPLOW(1,1),0,XV,UPLOW(0,0).                                                                                      87.               END
                                          88.       . FOLLOW CAR-CDR CHAIN
                                          89.       CHAIN*  PROC
                                          90.       I       DO         CHAIN(1) ,
                                          91.               LMA        XV,0,XV,CHAIN(1,I).
                                          92.               END
                                          93.       . BUILD NODE IN MEMORY
                                          94.       NODE*   PROC
                                          95.               LMJ        XL,STORIT(NODE(1,1)).
                                          96.               END
                                          97.       . PUT MESSAGE IN PRINT LINE
                                          98.       EDIT    PROC
                                          99.       EDIT*   NAME       1
                                         100.       EDITA*  NAME       0
                                         101.               LMJ        XR,EDCHAR-EDIT(0,0).
                                         102.       I       DO         EDIT(1) , +(EDIT(1,I)).
                                         103.               END
                                         104.       . POP TOP OF STACK
                                         105.       POP*    PROC
                                         106.               LXM,U      XT,1,XT.
                                         107.               END
                                         108.       /. SET UP ATOMIC SYMBOL TO BE LOADED WITH SYSTEM
                                         109.       AT      PROC
                                         110.       ATOM*   NAME
                                         111.       AF      FORM       18,12,6.
                                         112.       HT*     FUNC       .                   COMPUTE HASH TOTAL
                                         113.       X(1)    EQU        0.
                                         114.       I       DO         AT(2) ,
                                         115.       J       DO         6 ,
                                         116.       X(1)    EQU        X(1)+(AT(2,I)*/(6*J-36)**077).
                                         117.               END        X(1).
                                         118.       $(2)
                                         119.       *       AF         AT(1,1),HT(0),AT(2).
                                         120.               +          $(10).
                                         121.       $(10)
                                         122.       I       DO         AT(2) , + AT(2,I).
                                         123.               DO         1 , END
                                         124.       CHARAT* NAME
                                         125.       AF      FORM       18,12,6.
                                         126.       X(1)    EQU        AT(1,1).
                                         127.       LOOP    NAME
                                         128.       $(2)    AF         0,X(1),1.
                                         129.               +          $(10).
                                         130.       $(10)   +          X(1)*/30
                                         131.       X(1)    EQU        X(1)+1.
                                         132.               DO         X(1)>AT(2,1) , END
                                         133.               GO         LOOP
                                         134.               END
                                         135.       /. PARAMETERS TO DEFINE SYSTEM
                                         136.       . STACK SIZES
              000000004000               137.       STAKL   EQU        2048.               LENGTH OF VALUE STACK
              000000002000               138.       CSTKL   EQU        1024.               LENGTH OF CONTROL STACK
                                         139.       $(10)
   10 000000                             140.       CSTK    RES        CSTKL+512.          CONTROL STACK
              000000040000               141.       CSTAK   EQU        040000
                                         142.       $(0)
    0 000000                             143.       STK     RES        STAKL.              VALUE STACK
              000000040000               144.       STACK   EQU        040000.
                                         145.        . SETUP PAGE PARAMETERS
              000000000007               146.       PAGBIT  EQU        7.                  PAGES ARE 128 WORDS LONG TODAY
              000000000200               147.       PAGSIZ  EQU        1*/PAGBIT
              000000377600               148.       PAGMSK  EQU        (0377777*/-PAGBIT)*/PAGBIT
              000000002000               149.       PAGNUM  EQU        1*/(17-PAGBIT)
              000000000000               150.       PAGLIS(2)          EQU 0
              000000000000               151.       PAGLIS(1)          EQU 0
                                         152.       . PROCEDURE TO GENERATE PAGES
                                         153.       PAGES*  PROC
                                         154.       X       EQU        PAGES(1,2)
                                         155.       XXX(1)  EQU        PAGES(1,1)
                                         156.       $(X)
                                         157.       LOOP    NAME
                                         158.               +          PAGLIS(X)
                                         159.               DO         XXX(2) ,PAGLIS*(X) EQU $-1
                                         160.               RES        PAGSIZ-1
                                         161.       XXX(1)  EQU        XXX(1)-1
                                         162.               DO         XXX(1)>0 , GO LOOP
                                         163.       XXX(2)  EQU        1
                                         164.               END
                                         165.       . PROCEDURE NECESSARY AT END TO FINISH THINGS OFF
                                         166.       WINDUP* PROC
                                         167.       $(7)
                                         168.       ENDCHK* .          END I-BANK CHECKSUM
                                         169.       $(6)
                                         170.       AVAIL*  +          PAGLIS(2).          D-BANK AVAILABLE PAGE LIST
                                         171.               +          PAGLIS(1)           I-BANK    ''      ''   ''
                                         172.               END
                                         173.       /. GENERATE AVAILABLE SPACE & ATOMS LOADED WITH SYSTEM
                                         174.       $(2)
    2 000000  000000000000               175.                PAGES     4,2
      000200  000000000000
      000400  000000000200
      000600  000000000400
                                         176.       BEGAT
      001000  001000 0000 01             177.       NIL     ATOM       NIL 'NIL@@@'
      001001  000000003000
   10 003000  231621000000
              00 16 00 00 0 001000       178.       KNIL    EQUF       NIL,,U.
    2 001002  775706 0000 01             179.       QUOTE   ATOM       -EVQUOT 'QUOTE@'
      001003  000000003001
   10 003001  263224311200
    2 001004  006443 0000 01             180.               ATOM       CONS 'CONS@@'
      001005  000000003002
   10 003002  102423300000
    2 001006  006464 0000 01             181.               ATOM       EQ 'EQ@@@@'
      001007  000000003003
   10 003003  122600000000
    2 001010  006447 0000 01             182.               ATOM       IFATOM 'ATOM@@'
      001011  000000003004
   10 003004  063124220000
    2 001012  001643 0000 01             183.               ATOM       EVAL 'EVAL@@'
      001013  000000003005
   10 003005  123306210000
    2 001014  775720 0006 01             184.               ATOM       -EVLAM 'LAMBDA'
      001015  000000003006
   10 003006  210622071106
    2 001016  775702 0000 01             185.               ATOM       -EVCOND 'COND@@'
      001017  000000003007
   10 003007  102423110000
    2 001020  775654 0000 01             186.               ATOM       -EVDO 'DO@@@@'
      001021  000000003010
   10 003010  112400000000
    2 001022  002531 0000 01             187.               ATOM       PRINT 'PRINT@'
      001023  000000003011
   10 003011  252716233100
    2 001024  003176 0000 01             188.               ATOM       PRINA 'PRIN1@'
      001025  000000003012
   10 003012  252716236100
    2 001026  003510 0000 01             189.               ATOM       READ 'READ@@'
      001027  000000003013
   10 003013  271206110000
    2 001030  003662 0000 01             190.               ATOM       TOKEN 'TOKEN@'
      001031  000000003014
   10 003014  312420122300
                                         191.       $(2)
                                         192.       CHARS .
    2 001032  000046 0000 01             193.               ATOM       LPROG 0
      001033  000000003015
   10 003015  000000000000
    2 001034  000000 0001 01             194.               CHARAT     01 'E'
      001035  000000003016
   10 003016  010000000000
    2 001036  000000 0002 01
      001037  000000003017
   10 003017  020000000000
    2 001040  000000 0003 01
      001041  000000003020
   10 003020  030000000000
    2 001042  000000 0004 01
      001043  000000003021
   10 003021  040000000000
    2 001044  000000 0005 01
      001045  000000003022
   10 003022  050000000000
    2 001046  000000 0006 01
      001047  000000003023
   10 003023  060000000000
    2 001050  000000 0007 01
      001051  000000003024
   10 003024  070000000000
    2 001052  000000 0010 01
      001053  000000003025
   10 003025  100000000000
    2 001054  000000 0011 01
      001055  000000003026
   10 003026  110000000000
    2 001056  000000 0012 01
      001057  000000003027
   10 003027  120000000000
    2 001060  001000 0000 01             195.               ATOM NIL 'F@@@@@'
      001061  000000003030
   10 003030  130000000000
    2 001062  000000 0014 01             196.               CHARAT     'G' 'S'
      001063  000000003031
   10 003031  140000000000
    2 001064  000000 0015 01
      001065  000000003032
   10 003032  150000000000
    2 001066  000000 0016 01
      001067  000000003033
   10 003033  160000000000
    2 001070  000000 0017 01
      001071  000000003034
   10 003034  170000000000
    2 001072  000000 0020 01
      001073  000000003035
   10 003035  200000000000
    2 001074  000000 0021 01
      001075  000000003036
   10 003036  210000000000
    2 001076  000000 0022 01
      001077  000000003037
   10 003037  220000000000
    2 001100  000000 0023 01
      001101  000000003040
   10 003040  230000000000
    2 001102  000000 0024 01
      001103  000000003041
   10 003041  240000000000
    2 001104  000000 0025 01
      001105  000000003042
   10 003042  250000000000
    2 001106  000000 0026 01
      001107  000000003043
   10 003043  260000000000
    2 001110  000000 0027 01
      001111  000000003044
   10 003044  270000000000
    2 001112  000000 0030 01
      001113  000000003045
   10 003045  300000000000
    2 001114  001114 0000 01             197.       TRU     ATOM       TRU 'T@@@@@'
      001115  000000003046
   10 003046  310000000000
    2 001116  000000 0032 01             198.               CHARAT     'U' 076
      001117  000000003047
   10 003047  320000000000
    2 001120  000000 0033 01
      001121  000000003050
   10 003050  330000000000
    2 001122  000000 0034 01
      001123  000000003051
   10 003051  340000000000
    2 001124  000000 0035 01
      001125  000000003052
   10 003052  350000000000
    2 001126  000000 0036 01
      001127  000000003053
   10 003053  360000000000
    2 001130  000000 0037 01
      001131  000000003054
   10 003054  370000000000
    2 001132  000000 0040 01
      001133  000000003055
   10 003055  400000000000
    2 001134  000000 0041 01
      001135  000000003056
   10 003056  410000000000
    2 001136  000000 0042 01
      001137  000000003057
   10 003057  420000000000
    2 001140  000000 0043 01
      001141  000000003060
   10 003060  430000000000
    2 001142  000000 0044 01
      001143  000000003061
   10 003061  440000000000
    2 001144  000000 0045 01
      001145  000000003062
   10 003062  450000000000
    2 001146  000000 0046 01
      001147  000000003063
   10 003063  460000000000
    2 001150  000000 0047 01
      001151  000000003064
   10 003064  470000000000
    2 001152  000000 0050 01
      001153  000000003065
   10 003065  500000000000
    2 001154  000000 0051 01
      001155  000000003066
   10 003066  510000000000
    2 001156  000000 0052 01
      001157  000000003067
   10 003067  520000000000
    2 001160  000000 0053 01
      001161  000000003070
   10 003070  530000000000
    2 001162  000000 0054 01
      001163  000000003071
   10 003071  540000000000
    2 001164  000000 0055 01
      001165  000000003072
   10 003072  550000000000
    2 001166  000000 0056 01
      001167  000000003073
   10 003073  560000000000
    2 001170  000000 0057 01
      001171  000000003074
   10 003074  570000000000
    2 001172  000000 0060 01
      001173  000000003075
   10 003075  600000000000
    2 001174  000000 0061 01
      001175  000000003076
   10 003076  610000000000
    2 001176  000000 0062 01
      001177  000000003077
   10 003077  620000000000
    2 001200  000000 0063 01
      001201  000000003100
   10 003100  630000000000
    2 001202  000000 0064 01
      001203  000000003101
   10 003101  640000000000
    2 001204  000000 0065 01
      001205  000000003102
   10 003102  650000000000
    2 001206  000000 0066 01
      001207  000000003103
   10 003103  660000000000
    2 001210  000000 0067 01
      001211  000000003104
   10 003104  670000000000
    2 001212  000000 0070 01
      001213  000000003105
   10 003105  700000000000
    2 001214  000000 0071 01
      001215  000000003106
   10 003106  710000000000
    2 001216  000000 0072 01
      001217  000000003107
   10 003107  720000000000
    2 001220  000000 0073 01
      001221  000000003110
   10 003110  730000000000
    2 001222  000000 0074 01
      001223  000000003111
   10 003111  740000000000
    2 001224  000000 0075 01
      001225  000000003112
   10 003112  750000000000
    2 001226  000000 0076 01
      001227  000000003113
   10 003113  760000000000
    2 001230  001011 0000 01             199.               ATOM       LISP 'LISP@@'
      001231  000000003114
   10 003114  211630250000
    2 001232  006557 0000 02             200.               ATOM       FUNARG 'FUNCTI','ON@@@@'
      001233  000000003115
   10 003115  133223103116
      003116  242300000000
    2 001234  771156 0000 02             201.               ATOM       -DEFSPEC 'DEFSPE','C@@@@@'
      001235  000000003117
   10 003117  111213302512
      003120  100000000000
    2 001236  771154 0010 01             202.               ATOM       -DEFMAC 'DEFMAC'
      001237  000000003121
   10 003121  111213220610
    2 001240  007016 0000 01             203.               ATOM       MAPC 'MAPC@@'
      001241  000000003122
   10 003122  220625100000
    2 001242  006422 0006 01             204.               ATOM       RPLACA 'RPLACA'
      001243  000000003123
   10 003123  272521061006
    2 001244  006427 0011 01             205.               ATOM       RPLACD 'RPLACD'
      001245  000000003124
   10 003124  272521061011
    2 001246  775475 0023 01             206.               ATOM       -EVRET 'RETURN'
      001247  000000003125
   10 003125  271231322723
    2 001250  010176 0000 02             207.               ATOM       IFNUM 'NUMBER','P@@@@@'
      001251  000000003126
   10 003126  233222071227
      003127  250000000000
    2 001252  000051 0000 01             208.               ATOM       LISTEM-1 'LIST@@'
      001253  000000003130
   10 003130  211630310000
    2 001254  006434 0000 01             209.               ATOM       NULL 'NULL@@'
      001255  000000003131
   10 003131  233221210000
    2 001256  004721 0036 01             210.               ATOM       MEMORY 'MEMORY'
      001257  000000003132
   10 003132  221222242736
    2 001260  010171 0000 01             211.               ATOM       ZEROP 'ZEROP@'
      001261  000000003133
   10 003133  371227242500
    2 001262  007122 0000 01             212.               ATOM       EQUAL 'EQUAL@'
      001263  000000003134
   10 003134  122632062100
    2 001264  010226 0000 02             213.               ATOM       GREAT 'GREATE','RP@@@@'
      001265  000000003135
   10 003135  142712063112
      003136  272500000000
    2 001266  010232 0000 01             214.               ATOM       LESS 'LESSP@'
      001267  000000003137
   10 003137  211230302500
    2 001270  010235 0025 01             215.               ATOM       MINUSP 'MINUSP'
      001271  000000003140
   10 003140  221623323025
    2 001272  010266 0000 01             216.               ATOM       PLUS 'PLUS@@'
      001273  000000003141
   10 003141  252132300000
    2 001274  010273 0000 01             217.               ATOM       TIMES 'TIMES@'
      001275  000000003142
   10 003142  311622123000
    2 001276  010320 0000 02             218.               ATOM       DIFFER 'DIFFER','ENCE@@'
      001277  000000003143
   10 003143  111613131227
      003144  122310120000
    2 001300  010324 0000 02             219.               ATOM       DIV 'QUOTIE','NT@@@@'
      001301  000000003145
   10 003145  263224311612
      003146  233100000000
    2 001302  010331 0000 02             220.               ATOM       REM 'REMAIN','DER@@@'
      001303  000000003147
   10 003147  271222061623
      003150  111227000000
    2 001304  775555 0000 01             221.               ATOM       -EVPROG 'PROG@@'
      001305  000000003151
   10 003151  252724140000
    2 001306  775466 0000 01             222.               ATOM       -EVGO 'GO@@@@'
      001307  000000003152
   10 003152  142400000000
    2 001310  002373 0000 01             223.               ATOM       SET 'SET@@@'
      001311  000000003153
   10 003153  301231000000
    2 001312  006566 0022 01             224.               ATOM       GENSYM 'GENSYM'
      001313  000000003154
   10 003154  141223303622
    2 001314  007264 0027 01             225.               ATOM       MEMBER 'MEMBER'
      001315  000000003155
   10 003155  221222071227
    2 001316  007624 0011 01             226.               ATOM       APPEND 'APPEND'
      001317  000000003156
   10 003156  062525122311
    2 001320  004177 0015 01             227.               ATOM       READCH 'READCH'
      001321  000000003157
   10 003157  271206111015
    2 001322  007716 0000 01             228.               ATOM       INDEX 'INDEX@'
      001323  000000003160
   10 003160  162311123500
    2 001324  007635 0000 01             229.               ATOM       NCONC 'NCONC@'
      001325  000000003161
   10 003161  231024231000
    2 001326  775412 0000 01             230.               ATOM       -SETQ 'SETQ@@'
      001327  000000003162
   10 003162  301231260000
    2 001330  010434 0000 01             231.               ATOM       LOGOR 'LOGOR@'
      001331  000000003163
   10 003163  212414242700
    2 001332  010437 0027 01             232.               ATOM       LOGXOR 'LOGXOR'
      001333  000000003164
   10 003164  212414352427
    2 001334  010442 0011 01             233.               ATOM       LOGAND 'LOGAND'
      001335  000000003165
   10 003165  212414062311
    2 001336  010455 0000 02             234.               ATOM       LSHIFT 'LEFTSH','IFT@@@'
      001337  000000003166
   10 003166  211213313015
      003167  161331000000
    2 001340  003371 0016 01             235.               ATOM       TERPRI 'TERPRI'
      001341  000000003170
   10 003170  311227252716
    2 001342  006434 0000 01             236.               ATOM       NULL 'NOT@@@'
      001343  000000003171
   10 003171  232431000000
    2 001344  004203 0000 02             237.               ATOM       CLEARB 'CLEARB','UFF@@@'
      001345  000000003172
   10 003172  102112062707
      003173  321313000000
    2 001346  007750 0031 01             238.               ATOM       OBLIST 'OBLIST'
      001347  000000003174
   10 003174  240721163031
    2 001350  007614 0015 01             239.               ATOM       LENGTH 'LENGTH'
      001351  000000003175
   10 003175  211223143115
    2 001352  007446 0000 01             240.               ATOM       GET 'GET@@@'
      001353  000000003176
   10 003176  141231000000
    2 001354  007424 0000 01             241.               ATOM       PUTP 'PUT@@@'
      001355  000000003177
   10 003177  253231000000
    2 001356  010112 0023 01             242.               ATOM       SCODE '*BEGIN'
      001357  000000003200
   10 003200  500712141623
    2 001360  010127 0000 01             243.               ATOM       ECODE '*EMIT@'
      001361  000000003201
   10 003201  501222163100
    2 001362  010115 0000 01             244.               ATOM       ORG '*ORG@@'
      001363  000000003202
   10 003202  502427140000
    2 001364  010164 0000 01             245.               ATOM       EPT '*EPT@@'
      001365  000000003203
   10 003203  501225310000
    2 001366  010024 0000 01             246.               ATOM       IFSPEC '*SPEC@'
      001367  000000003204
   10 003204  503025121000
    2 001370  775621 0000 01             247.               ATOM       -EVAND 'AND@@@'
      001371  000000003205
   10 003205  062311000000
    2 001372  775632 0000 01             248.               ATOM       -EVOR 'OR@@@@'
      001373  000000003206
   10 003206  242700000000
    2 001374  010051 0012 01             249.               ATOM       IFTYPE 'IFTYPE'
      001375  000000003207
   10 003207  161331362512
    2 001376  006763 0000 02             250.               ATOM       ONTO 'MAPLIS','T@@@@@'
      001377  000000003210
   10 003210  220625211630
      003211  310000000000
    2 001400  007573 0012 01             251.               ATOM       DEFINE 'DEFINE'
      001401  000000003212
   10 003212  111213162312
    2 001402  007566 0000 01             252.               ATOM       CSET 'CSET@@'
      001403  000000003213
   10 003213  103012310000
    2 001404  770217 0000 01             253.               ATOM       -CSETQ 'CSETQ@'
      001405  000000003214
   10 003214  103012312600
    2 001406  007167 0000 01             254.               ATOM       SUBST 'SUBST@'
      001407  000000003215
   10 003215  303207303100
    2 001410  010262 0000 01             255.               ATOM       ADD1 'ADD1@@'
      001411  000000003216
   10 003216  061111610000
    2 001412  010314 0000 01             256.               ATOM       SUB1 'SUB1@@'
      001413  000000003217
   10 003217  303207610000
    2 001414  775713 0000 01             257.               ATOM       -EVFLAM 'LAMDA@'
      001415  000000003220
   10 003220  210622110600
    2 001416  006412 0000 01             258.               ATOM       TCAR '*CAR@@'
      001417  000000003221
   10 003221  501006270000
    2 001420  006416 0000 01             259.               ATOM       TCDR '*CDR@@'
      001421  000000003222
   10 003222  501011270000
    2 001422  010206 0000 01             260.               ATOM       FIXP 'FIXP@@'
      001423  000000003223
   10 003223  131635250000
    2 001424  010216 0025 01             261.               ATOM       FLOATP 'FLOATP'
      001425  000000003224
   10 003224  132124063125
    2 001426  010401 0000 01             262.               ATOM       MINUS 'MINUS@'
      001427  000000003225
   10 003225  221623323000
    2 001430  007461 0000 01             263.               ATOM       PROP 'PROP@@'
      001431  000000003226
   10 003226  252724250000
    2 001432  007473 0000 02             264.               ATOM       REMPR 'REMPRO','P@@@@@'
      001433  000000003227
   10 003227  271222252724
      003230  250000000000
    2 001434  007652 0000 02             265.               ATOM       REVERS 'REVERS','E@@@@@'
      001435  000000003231
   10 003231  271233122730
      003232  120000000000
    2 001436  010414 0027 01             266.               ATOM       ENTIER 'ENTIER'
      001437  000000003233
   10 003233  122331161227
    2 001440  007012 0000 01             267.               ATOM       MAP 'MAP@@@'
      001441  000000003234
   10 003234  220625000000
    2 001442  006603 0000 01             268.               ATOM       AMB 'AMB@@@'
      001443  000000003235
   10 003235  062207000000
    2 001444  006767 0000 01             269.               ATOM       INTO 'INTO@@'
      001445  000000003236
   10 003236  162331240000
    2 001446  006763 0000 01             270.               ATOM       ONTO 'ONTO@@'
      001447  000000003237
   10 003237  242331240000
    2 001450  007714 0000 01             271.               ATOM       ONDEX 'ONDEX@'
      001451  000000003240
   10 003240  242311123500
    2 001452  005113 0000 01             272.               ATOM       DUMP 'DUMP@@'
      001453  000000003241
   10 003241  113222250000
    2 001454  005663 0000 01             273.               ATOM       LODE 'LOAD@@'
      001455  000000003242
   10 003242  212406110000
    2 001456  007516 0000 01             274.               ATOM       PFLAG 'FLAG@@'
      001457  000000003243
   10 003243  132106140000
    2 001460  007530 0014 01             275.               ATOM       TFLAG 'IFFLAG'
      001461  000000003244
   10 003244  161313210614
    2 001462  007542 0014 01             276.               ATOM       RFLAG 'UNFLAG'
      001463  000000003245
   10 003245  322313210614
    2 001464  007606 0000 01             277.               ATOM       ERASE 'ERASE@'
      001465  000000003246
   10 003246  122706301200
    2 001466  010026 0024 01             278.               ATOM       IFMAC '*MACRO'
      001467  000000003247
   10 003247  502206102724
    2 001470  010045 0023 01             279.               ATOM       IFCHN '*CHAIN'
      001471  000000003250
   10 003250  501015061623
    2 001472  010030 0000 01             280.               ATOM       IFDEF '*DEF@@'
      001473  000000003251
   10 003251  501112130000
    2 001474  006767 0027 01             281.               ATOM       INTO 'MAPCAR'
      001475  000000003252
   10 003252  220625100627
    2 001476  775605 0000 01             282.               ATOM       -EVSTAK 'STACK@'
      001477  000000003253
   10 003253  303106102000
    2 001500  007261 0000 02             283.               ATOM       L1X 'MANIFE','ST@@@@'
      001501  000000003254
   10 003254  220623161312
      003255  303100000000
    2 001502  003235 0000 02             284.               ATOM       CURCOL 'CURRCO','L@@@@@'
      001503  000000003256
   10 003256  103227271024
      003257  210000000000
    2 001504  006703 0000 01             285.               ATOM       BREAK 'BREAK@'
      001505  000000003260
   10 003260  072712062000
    2 001506  006733 0000 02             286.               ATOM       UNBREAK 'UNBREA','K@@@@@'
      001507  000000003261
   10 003261  322307271206
      003262  200000000000
    2 001510  001352 0000 02             287.               ATOM       REQUEST 'REQUES','T@@@@@'
      001511  000000003263
   10 003263  271226321230
      003264  310000000000
    2 001512  004205 0021 01             288.               ATOM       SETCOL 'SETCOL'
      001513  000000003265
   10 003265  301231102421
    2 001514  003174 0000 01             289.               ATOM       PRINA-2 'PRIN2@'
      001515  000000003266
   10 003266  252716236200
    2 001516  775574 0000 02             290.               ATOM       -EVTRY 'ATTEMP','T@@@@@'
      001517  000000003267
   10 003267  063131122225
      003270  310000000000
    2 001520  001425 0000 01             291.               ATOM       ERROR 'ERROR@'.
      001521  000000003271
   10 003271  122727242700
    2 001522  004710 0000 01             292.               ATOM       TIMER 'TIME@@'.
      001523  000000003272
   10 003272  311622120000
    2 001524  004261 0000 02             293.               ATOM       COMPRESS 'COMPRE','SS@@@@'.
      001525  000000003273
   10 003273  102422252712
      003274  303000000000
    2 001526  003316 0000 02             294.               ATOM       EXPLODE 'EXPLOD','E@@@@@'.
      001527  000000003275
   10 003275  123525212411
      003276  120000000000
    2 001530  003314 0000 02             295.               ATOM       EXPLODE-2 'EXPLOD','E2@@@@'.
      001531  000000003277
   10 003277  123525212411
      003300  126200000000
    2 001532  004717 0012 01             296.               ATOM       GCTIME 'GCTIME'.
      001533  000000003301
   10 003301  141031162212
    2 001534  003274 0000 02             297.               ATOM       PLENGTH 'PLENGT','H@@@@@'.
      001535  000000003302
   10 003302  252112231431
      003303  150000000000
    2 001536  003272 0000 02             298.               ATOM       PLENGTH-2 'PLENGT','H2@@@@'.
      001537  000000003304
   10 003304  252112231431
      003305  156200000000
    2 001540  001444 0027 01             299.               ATOM       BACKTR 'BACKTR'.
      001541  000000003306
   10 003306  070610203127
    2 001542  004723 0000 01             300.               ATOM       DATE 'DATE@@'
      001543  000000003307
   10 003307  110631120000
    2 001544  004744 0000 01             301.               ATOM       DTIME 'DTIME@'
      001545  000000003310
   10 003310  113116221200
    2 001546  007667 0000 01             302.               ATOM       NTH 'NTH@@@'
      001547  000000003311
   10 003311  233115000000
    2 001550  007333 0000 01             303.               ATOM       ASSOC 'ASSOC@'
      001551  000000003312
   10 003312  063030241000
    2 001552  002054 0000 01             304.               ATOM       ALIST 'ALIST@'
      001553  000000003313
   10 003313  062116303100
    2 001554  010063 0000 01             305.               ATOM       EXAM '*EXAM@'
      001555  000000003314
   10 003314  501235062200
    2 001556  010075 0000 02             306.               ATOM       DEPOSIT '*DEPOS','IT@@@@'
      001557  000000003315
   10 003315  501112252430
      003316  163100000000
    2 001560  004763 0000 01             307.               ATOM       GROW 'GROW@@'
      001561  000000003317
   10 003317  142724340000
    2 001562  004747 0000 01             308.               ATOM       PACK '*PACK@'
      001563  000000003320
   10 003320  502506102000
    2 001564  004216 0025 01             309.               ATOM       BACKSP 'BACKSP'
      001565  000000003321
   10 003321  070610203025
    2 001566  004244 0000 02             310.               ATOM       READMC 'READMA','C@@@@@'
      001567  000000003322
   10 003322  271206112206
      003323  100000000000
    2 001570  004233 0000 01             311.               ATOM       DELIM 'DELIM@'
      001571  000000003324
   10 003324  111221162200
    2 001572  004410 0014 01             312.               ATOM       GSTRNG 'STRING'
      001573  000000003325
   10 003325  303127162314
    2 001574  004414 0007 01             313.               ATOM       GATSYM 'ATSYMB'
      001575  000000003326
   10 003326  063130362207
    2 001576  003245 0031 01             314.               ATOM       PLIMIT 'PLIMIT'
      001577  000000003327
   10 003327  252116221631
    2 001600  003500 0000 01             315.               ATOM       SPACE 'SPACE@'
      001601  000000003330
   10 003330  302506101200
    2 001602  771304 0000 01             316.               ATOM       -EVKONS 'KONS@@'.
      001603  000000003331
   10 003331  202423300000
    2 001604  006515 0000 01             317.               ATOM       GETCAR-1 'KAR@@@'.
      001605  000000003332
   10 003332  200627000000
    2 001606  006536 0000 01             318.               ATOM       GETCDR-1 'KDR@@@'.
      001607  000000003333
   10 003333  201127000000               319.       /$(2)
    2 001610                             320.       ENDAT   RES        PAGSIZ-(($-BEGAT)**(PAGSIZ-1))
      002000  000000000600               321.               PAGES      100,2
      002200  000000002000
      002400  000000002200
      002600  000000002400
      003000  000000002600
      003200  000000003000
      003400  000000003200
      003600  000000003400
      004000  000000003600
      004200  000000004000
      004400  000000004200
      004600  000000004400
      005000  000000004600
      005200  000000005000
      005400  000000005200
      005600  000000005400
      006000  000000005600
      006200  000000006000
      006400  000000006200
      006600  000000006400
      007000  000000006600
      007200  000000007000
      007400  000000007200
      007600  000000007400
      010000  000000007600
      010200  000000010000
      010400  000000010200
      010600  000000010400
      011000  000000010600
      011200  000000011000
      011400  000000011200
      011600  000000011400
      012000  000000011600
      012200  000000012000
      012400  000000012200
      012600  000000012400
      013000  000000012600
      013200  000000013000
      013400  000000013200
      013600  000000013400
      014000  000000013600
      014200  000000014000
      014400  000000014200
      014600  000000014400
      015000  000000014600
      015200  000000015000
      015400  000000015200
      015600  000000015400
      016000  000000015600
      016200  000000016000
      016400  000000016200
      016600  000000016400
      017000  000000016600
      017200  000000017000
      017400  000000017200
      017600  000000017400
      020000  000000017600
      020200  000000020000
      020400  000000020200
      020600  000000020400
      021000  000000020600
      021200  000000021000
      021400  000000021200
      021600  000000021400
      022000  000000021600
      022200  000000022000
      022400  000000022200
      022600  000000022400
      023000  000000022600
      023200  000000023000
      023400  000000023200
      023600  000000023400
      024000  000000023600
      024200  000000024000
      024400  000000024200
      024600  000000024400
      025000  000000024600
      025200  000000025000
      025400  000000025200
      025600  000000025400
      026000  000000025600
      026200  000000026000
      026400  000000026200
      026600  000000026400
      027000  000000026600
      027200  000000027000
      027400  000000027200
      027600  000000027400
      030000  000000027600
      030200  000000030000
      030400  000000030200
      030600  000000030400
      031000  000000030600
      031200  000000031000
      031400  000000031200
      031600  000000031400
      032000  000000031600
      032200  000000032000
      032400  000000032200
      032600  000000032400
                                         322.       $(8).
    8 000000                             323.       WK0     RES        1
      000001                             324.       SAVEA0  RES        2
      000003                             325.       OPSHUN  RES        1
      000004                             326.       CKSUM   RES        2
                                         327.       $(6)
    6 000000  000000000000               328.               +          0
              00 15 00 00 0 000000       329.       JUSTCG  EQUF       $-1,,S1.            JUST FINISHED GARBAGE COLLECTION
              00 14 00 00 0 000000       330.       GROWN   EQUF       $-1,,S2.            IBANK EXPANDED TO THE HILT
              00 13 00 00 0 000000       331.       INTFLG  EQUF       $-1,,S3.            BREAK DURING GC
      000001  777776 743776              332.       STAKE   +          -1,STK-STACK+STAKL-1.
      000002  000000 002000              333.       CSTKE   +          0,CSTKL.
                                         334.       /. TYPES OF NODES
              000000000000               335.       CONSED  EQU        0.                  CONSED NODES, MUST ALWAYS BE 0
              000000000001               336.       INTGER  EQU        1.                  INTEGERS
              000000000002               337.       OCTAL   EQU        2.                  OCTALS
              000000000003               338.       REAL    EQU        3.                  FLOATING POINT
              000000000004               339.       SYSTEM  EQU        4.                  PAGES OUT OF BOUNDS
              000000000005               340.       CODE    EQU        5.                  COMPILED CODE
              000000000006               341.       LINKER  EQU        6.                  LINKAGE NODES
              000000000007               342.       SYMBOL  EQU        7.                  ATOMIC SYMBOLS
              000000000010               343.       STRING  EQU        8.                  STRINGS
              000000000011               344.       SUSP    EQU        9.                  SUSPENDED EVALUATION
              000000000011               345.       MAXTYP  EQU        9.
              000000000012               346.       NUMTYPS EQU        MAXTYP+1.
                                         347.       . NODE SIZES
              000000000001               348.       SIZE(CONSED)       EQU 1
              000000000001               349.       SIZE(INTGER)       EQU 1
              000000000001               350.       SIZE(REAL)         EQU 1
              000000000001               351.       SIZE(OCTAL)        EQU 1
              000000000002               352.       SIZE(LINKER)       EQU 2
              000000000002               353.       SIZE(SYMBOL)       EQU 2
              000000000001               354.       SIZE(STRING)       EQU 1
              000000000001               355.       SIZE(SUSP)         EQU 1.
                                         356.       . NODE BANKS
              000000000001               357.       BANK(CODE)         EQU 1.              COMPILED CODE GOES INTO IBANK
                                         358.        . PROCEDURE TO MAKE TYPTAB ENTRY
                                         359.       IPRO*   PROC
                                         360.               LMJ        XR,GETPAG.
                                         361.               PAIR       GP(I-1),PUT(I-1).
                                         362.               PF         BANK(I-1),SIZE(I-1),I-1,0.
                                         363.               END
                                         364.       . GENERATE TYPE TABLE
                                         365.       $(4)
                                         366.       TYPTAB  .
    4 000000  74 13 07 00 0 000163       367.       I       DO         NUMTYPS ,STORIT(I-1) IPRO.
      000001  000242 000077
      000002  00 01 00 000000
      000003  74 13 07 00 0 000163
      000004  000216 000100
      000005  00 01 01 000000
      000006  74 13 07 00 0 000163
      000007  000216 000100
      000010  00 01 02 000000
      000011  74 13 07 00 0 000163
      000012  000216 000100
      000013  00 01 03 000000
      000014  74 13 07 00 0 000163
      000015  000000 000000
      000016  00 00 04 000000
      000017  74 13 07 00 0 000163
      000020  000230 000121
      000021  01 00 05 000000
      000022  74 13 07 00 0 000163
      000023  000242 000107
      000024  00 02 06 000000
      000025  74 13 07 00 0 000163
      000026  000242 000110
      000027  00 02 07 000000
      000030  74 13 07 00 0 000163
      000031  000242 000077
      000032  00 01 10 000000
      000033  74 13 07 00 0 000163
      000034  000242 000077
      000035  00 01 11 000000            368.       /. SETUP NODE FLAGS
                                         369.       NFLAGS.
              00 15 00 00 0 000036       370.       NFLG1   EQUF       NFLAGS,,S1.         NODE CAN BE JUMPED TO
              000000000001               371.       NF1(SYSTEM)        EQU 1
              000000000001               372.       NF1(LINKER)        EQU 1
              000000000001               373.       NF1(CODE)          EQU 1
              00 14 00 00 0 000036       374.       NFLG2   EQUF       NFLAGS,,S2.         DON'T FIX TYPTAB DURING TRASH
              000000000001               375.       NF2(CODE)          EQU 1
              000000000001               376.       NF2(SYSTEM)        EQU 1
              00 13 00 00 0 000036       377.       NFLG3   EQUF       NFLAGS,,S3.         TYPE IS A NUMBER
              000000000001               378.       NF3(INTGER)        EQU 1
              000000000001               379.       NF3(OCTAL)         EQU 1
              000000000001               380.       NF3(REAL)          EQU 1
              00 12 00 00 0 000036       381.       NFLG4   EQUF       NFLAGS,,S4.         KEEP THIS TYPE PACKED
              00 11 00 00 0 000036       382.       NFLG5   EQUF       NFLAGS,,S5.         EQ TEST SUFFICIENT FOR TYPE
              000000000001               383.       NF5(SYSTEM)        EQU 1
              000000000001               384.       NF5(CODE)          EQU 1
              000000000001               385.       NF5(LINKER)        EQU 1
              000000000001               386.       NF5(SYMBOL)        EQU 1
                                         387.       . GENERATE NODE FLAG TABLE
                                         388.       I       DO         NUMTYPS ,
    4 000036  000 000 000 000            389.               +          NF1(I-1),NF2(I-1),NF3(I-1),
      000037  0000 0000 0000             390.                          NF4(I-1),NF5(I-1),NF6(I-1).                                                                                  391.       /. PAGE TABLE
                                         392.       $(4)
    4 000040                             393.       PAGTAB  RES        PAGNUM
                                         394.       . HASH TABLE
                                         395.       HASH
      002040  000000000000               396.               DO         64 , + 0.
      002041  000000000000
      002042  000000000000
      002043  000000000000
      002044  000000000000
      002045  000000000000
      002046  000000000000
      002047  000000000000
      002050  000000000000
      002051  000000000000
      002052  000000000000
      002053  000000000000
      002054  000000000000
      002055  000000000000
      002056  000000000000
      002057  000000000000
      002060  000000000000
      002061  000000000000
      002062  000000000000
      002063  000000000000
      002064  000000000000
      002065  000000000000
      002066  000000000000
      002067  000000000000
      002070  000000000000
      002071  000000000000
      002072  000000000000
      002073  000000000000
      002074  000000000000
      002075  000000000000
      002076  000000000000
      002077  000000000000
      002100  000000000000
      002101  000000000000
      002102  000000000000
      002103  000000000000
      002104  000000000000
      002105  000000000000
      002106  000000000000
      002107  000000000000
      002110  000000000000
      002111  000000000000
      002112  000000000000
      002113  000000000000
      002114  000000000000
      002115  000000000000
      002116  000000000000
      002117  000000000000
      002120  000000000000
      002121  000000000000
      002122  000000000000
      002123  000000000000
      002124  000000000000
      002125  000000000000
      002126  000000000000
      002127  000000000000
      002130  000000000000
      002131  000000000000
      002132  000000000000
      002133  000000000000
      002134  000000000000
      002135  000000000000
      002136  000000000000
      002137  000000000000               397.       /. FUNCTION ENTRY & EXIT (STACK HANDLING ROUTINES)
                                         398.       $(3).
    3 000000  06 02 02 03 0 037777       399.       ENTRY   SX,H1      XF,CSTAK-1,XC.      SAVE FUNCTION BASE
      000001  26 00 02 03 0 037777       400.               LXM        XF,CSTAK-1,XC.      SET NEW FUNCTION BASE
      000002  04 03 17 03 0 037777       401.               S,RH       XFLAG,CSTAK-1,XC.   SET FLAG FOR EXIT
      000003  74 04 00 00 0 000006       402.               J          ENTRYR+2.
      000004  06 02 02 03 0 037777       403.       ENTRYR  SX,H1      XF,CSTAK-1,XC.      SAVE FUNCTION BASE
      000005  26 00 02 03 0 037777       404.               LXM        XF,CSTAK-1,XC.      SET NEW FUNCTION BASE
      000006  27 00 14 02 0 040000       405.               LX         XX,STACK,XF.        ADDRESS OF FUNCTION
      000007  06 00 04 02 0 040000       406.               SX         XL,STACK,XF.        SAVE RETURN & ALIST
      000010  74 13 04 14 0 000000       407.               LMJ        XL,0,XX.            LINK TO FUNCTION
      000011  27 00 04 02 0 040000       408.       EXIT    LX         XL,STACK,XF.        RESET RETURN & ALIST
      000012  26 00 01 00 0 000002       409.               LXM        XT,XF.              RESET TOP OF STACK
      000013  26 02 02 03 0 037777       410.               LXM,H1     XF,CSTAK-1,XC.      RESET FUNCTION BASE
      000014  60 03 00 03 0 037777       411.               TP,RH      CSTAK-1,XC.         ENTERED VIA ENTRY OR ENTRYR?
      000015  01 00 02 01 2 040000       412.               STORE.                         ENTRY: PUSH VALUE ONTO STACK
      000016  01 00 02 02 0 040000
      000017  70 00 03 04 0 000000       413.               JGD        XC,0,XL.            POP CSTAK & RETURN
                                         414.       . ENTRY FOR ITERATIVE FORMS (ALIAS TAIL-RECURSIONS)
      000020  10 00 01 03 0 037777       415.       ENTRYI  L          XY,CSTAK-1,XC.      WHERE FUNCTION IS
      000021  46 17 15 00 3 177776       416.               LXI,XU     XY,-1.
      000022  06 00 01 03 0 037777       417.               S          XT,CSTAK-1,XC.
      000023  27 00 01 00 0 000002       418.               L          XT,XF.
      000024  25 16 01 00 0 000001       419.               AN,U       XT,1.
      000025  10 00 00 15 2 040000       420.               L          XX,STACK,*XY.       GET FUNCTION
      000026  26 16 04 00 0 000011       421.               LXM,U      XL,EXIT.            JUST IN CASE
      000027  53 00 01 03 0 037777       422.               TNE        XY,CSTAK-1,XC.      MORE ARGUMENTS?
      000030  70 00 03 14 0 000000       423.               JGD        XC,0,XX.            POP CSTAK AND GO TO FUNCTION
      000031  10 00 02 15 2 040000       424.               L          XV,STACK,*XY.       MOVE AN ARGUMENT UP IN THE STACK
      000032  01 00 02 01 2 040000       425.               S          XV,STACK,*XT.
      000033  74 04 00 00 0 000027       426.               J          $-4.
                                         427.        .
                                         428.        . ESTABLISH TRAP POINT
                                         429.        .      LMJ        XL,TRAP.
                                         430.        .                 XV = TRAP CHAIN
                                         431.        .
      000034  06 03 05 03 0 040000       432.       TRAP    S,RH       XP,CSTAK,XC.
      000035  27 16 05 03 2 000000       433.               L,U        XP,0,*XC.
      000036  06 04 01 03 0 040000       434.               S,LH       XT,CSTAK,XC.
      000037  06 03 02 03 2 040000       435.               S,RH       XF,CSTAK,*XC.
      000040  06 00 04 01 0 040000       436.               S          XL,STACK,XT.
      000041  01 03 02 01 2 040000       437.               S,RH       XV,STACK,*XT.
      000042  74 04 00 04 0 000000       438.               J          0,XL.
                                         439.        .
                                         440.        . REMOVE TRAP POINT
                                         441.        .      LMJ        XL,UNTRAP.
                                         442.        .
      000043  26 04 01 05 0 040001       443.       UNTRAP  LXM,LH     XT,CSTAK+1,XP.
      000044  26 03 02 05 0 040001       444.               LXM,RH     XF,CSTAK+1,XP.
      000045  26 00 03 00 0 000005       445.               LXM        XC,XP.
      000046  26 03 05 05 0 040000       446.               LXM,RH     XP,CSTAK,XP.
      000047  46 04 04 01 0 040000       447.               LXI,LH     XL,STACK,XT.
      000050  74 04 00 04 0 000000       448.               J          0,XL.
                                         449.       /. MAKE LIST OF ELEMENTS IN STACK
    3 000051  27 00 15 00 0 000002       450.               LX         XY,XF.
      000052  12 03 02 02 0 037000       451.       LISTEM  LOAD       NIL.
      000053  12 16 02 00 0 001000
      000054  27 00 14 00 0 000001       452.               LX         XX,XT.
      000055  06 00 04 01 2 040000       453.               SX         XL,STACK,*XT.
      000056  14 16 00 00 0 000001       454.               A,U        XX,1.
      000057  10 00 03 00 0 000016       455.               LA         XV+1,XV.
      000060  53 00 01 00 0 000014       456.               TNE        XY,XX.
      000061  74 04 00 00 0 000065       457.               J          $+4.
      000062  10 00 02 14 0 040000       458.               LA         XV,STACK,XX.
      000063  74 13 04 00 0 000000       459.               NODE       CONSED
      000064  74 04 00 00 0 000055       460.               J          LISTEM+3.
      000065  27 00 04 01 0 040001       461.               LX         XL,STACK+1,XT.
      000066  27 00 01 00 0 000014       462.               L          XT,XX.
      000067  25 16 01 00 0 000001       463.               AN,U       XT,1.
      000070  74 04 00 04 0 000000       464.               J          0,XL.
                                         465.       . MOVE ELEMENTS OF LIST ONTO STACK
      000071  53 16 02 00 0 001000       466.       STAKEM  TNE        XV,KNIL.
      000072  74 04 00 04 0 000000       467.               J          0,XL.
      000073  12 04 04 16 0 000000       468.               UPPER      XA.
      000074  01 00 04 01 2 040000       469.               SA         XA,STACK,*XT.
      000075  12 03 02 16 0 000000       470.               LOWER      XV.
      000076  74 04 00 00 0 000071       471.               J          STAKEM.
                                         472.       /.
                                         473.       PUT(CONSED)        . STORE CONSED NODE, XV=CAR, XV+1=CDR
                                         474.       PUT(STRING)        . STORE STRING, XV=CHARS, XV+1=LINK
                                         475.       PUT(SUSP)          . STORE SUSPENSION, EV=EXPR,XV+1=ALIST
    3 000077  46 00 17 00 0 000016       476.               LXI        XV+1,XV.            BUILD WORD
                                         477.       PUT(INTGER)        . STORE NUMBER, XV+1=NUMBER
                                         478.       PUT(OCTAL)
                                         479.       PUT(REAL)
      000100  27 03 16 07 0 000001       480.               LX,RH      XV,1,XR.            NEXT AVAILABLE WORD
      000101  10 00 06 16 0 000000       481.               LA         XXA,0,XV.
      000102  01 03 06 07 0 000001       482.               SA,RH      XXA,1,XR.
      000103  06 00 17 16 0 000000       483.               SX         XV+1,0,XV.          STORE WORD
      000104  14 16 17 00 0 000001       484.               A,U        XMCNT,1.            UP MEMORY CNTR
      000105  74 01 06 04 0 000000       485.               JNZ        XXA,0,XL.           RETURN
      000106  74 04 00 00 0 000157       486.               J          NUPAGE.
                                         487.       PUT(LINKER)        . STORE LINKAGE NODE, XV=2ND WORD,XV+1=JUMPTO
      000107  46 04 17 00 0 000323       488.               LXI,LH     XV+1,(LMJ XL,BADI).
                                         489.       PUT(SYMBOL)        . STORE ATOMIC SYMBOL, XV=PNAME, XV+1=PROP LIST
      000110  27 00 10 00 0 000016       490.               LX         XW,XV.
      000111  27 03 16 07 0 000001       491.               LX,RH      XV,1,XR.
      000112  10 00 06 16 0 000000       492.               LA         XXA,0,XV.
      000113  01 03 06 07 0 000001       493.               SA,RH      XXA,1,XR.
      000114  06 00 10 16 0 000001       494.               SX         XW,1,XV.
      000115  01 00 03 16 0 000000       495.               SA         XV+1,0,XV.
      000116  14 16 17 00 0 000002       496.               A,U        XMCNT,2.            UP MEMORY CNTR
      000117  74 01 06 04 0 000000       497.               JNZ        XXA,0,XL.
      000120  74 04 00 00 0 000157       498.               J          NUPAGE.
                                         499.       /. EMIT COMPILED CODE, XV+1 = INSTRUCTION.
                                         500.       PUT(CODE)
    3 000121  10 03 02 00 0 000003       501.               LA,RH      XV,T5REC.           ADD OF INST
      000122  01 00 03 16 0 000000       502.               SA         XV+1,0,XV.
      000123  10 04 00 00 0 000004       503.               LA,LH      XX,T5REC+1.
      000124  74 00 00 00 0 000127       504.               JZ         XX,$+3.             IS JUMP TO BE PLUGGED?
      000125  01 03 02 14 0 000000       505.               SA,RH      XV,0,XX.
      000126  05 04 00 00 0 000004       506.               SZ,LH      T5REC+1.
      000127  51 03 00 00 0 000004       507.               TNZ,RH     T5REC+1.
      000130  01 03 02 00 0 000004       508.               SA,RH      XV,T5REC+1.         CAPTURE BEGINNING ADDRESS
      000131  10 00 00 00 0 000003       509.               LA         XX,T5REC.
      000132  72 04 00 00 0 000324       510.               AH         XX,(-1,1).          TO NEXT WORD
      000133  01 00 00 00 0 000003       511.               SA         XX,T5REC.
      000134  14 16 17 00 0 000001       512.               A,U        XMCNT,1.            UP MEMORY CNTR
      000135  50 04 00 00 0 000003       513.               TZ,LH      T5REC.              LAST WORD IN BLOCK?
      000136  74 04 00 04 0 000000       514.               J          0,XL.
      000137  10 03 00 00 0 000005       515.               LA,RH      XX,T5REC+2.
      000140  74 00 00 00 0 000146       516.               JZ         XX,P5NP.
      000141  46 04 14 14 0 000000       517.               LXI,LH     XX,0,XX.            SET FOR NEXT BLOCK
      000142  06 00 14 00 0 000003       518.               SX         XX,T5REC.
      000143  27 03 14 14 0 000000       519.               LX,RH      XX,0,XX.
      000144  06 03 14 00 0 000005       520.               SX,RH      XX,T5REC+2.
      000145  74 04 00 00 0 000150       521.               J          P5CJ.
      000146  10 16 00 00 0 000163       522.       P5NP    LA,U       XX,GETPAG.
      000147  01 03 00 00 0 000017       523.               SA,RH      XX,STORIT(CODE).    SET TO GET NEW PAGE
      000150  10 04 00 00 0 000325       524.       P5CJ    LA,LH      XX,(J BADI).
      000151  53 04 00 16 0 000000       525.               TNE,LH     XX,0,XV.            INST NOT A JUMP?
      000152  74 04 00 04 0 000000       526.               J          0,XL.
      000153  10 00 00 00 0 000325       527.               LA         XX,(J BADI).
      000154  01 00 00 16 0 000000       528.               SA         XX,0,XV.            PUT JUMP
      000155  01 04 02 00 0 000004       529.               SA,LH      XV,T5REC+1.         SET PLUGGER
      000156  74 04 00 00 0 000017       530.               J          STORIT(CODE).       RE-EMIT INSTRUCTION
                                         531.       $(6).
    6 000003  000000000000               532.       T5REC   +0
      000004  000000000000               533.               +0
      000005  000000000000               534.               +0
                                         535.       $(3).
                                         536.       /. SET TRAP FOR NEW PAGE NEXT TIME
    3 000157  25 16 07 00 0 000001       537.       NUPAGE  ANX,U      XR,1.
      000160  10 16 06 00 0 000163       538.               LA,U       XXA,GETPAG.
      000161  01 03 06 07 0 000000       539.               SA,RH      XXA,0,XR.
      000162  74 04 00 04 0 000000       540.               J          0,XL.
                                         541.       . CREATE NEW PAGE
      000163  71 12 02 00 0 000012       542.       GETPAG  DS         XV,GCXV.
      000164  27 15 10 07 0 000001       543.               L,S1       XW,1,XR.
      000165  10 00 02 10 0 000321       544.               L          XV,AVAIL,XW.
      000166  50 16 00 10 0 000000       545.               TZ,U       0,XW.               DBANK PREFERRED?
      000167  74 04 00 00 0 000260       546.               J          GPIBANK.
      000170  74 00 02 00 0 000252       547.               JZ         XV,GPNODB.          NO PAGES LEFT?
      000171  50 15 00 00 0 000000       548.               TZ         JUSTCG.
      000172  74 04 00 00 0 000176       549.               J          GPOK.
      000173  10 13 03 07 0 000001       550.               L,S3       XV+1,1,XR.
      000174  50 12 00 17 0 000036       551.               TZ         NFLG4,XV+1.         SHALL WE KEEP IT PACKED?
      000175  74 04 00 00 0 000314       552.               J          TRASH.              YES, COLLECT GARBAGE
      000176  05 15 00 00 0 000000       553.       GPOK    SZ         JUSTCG.
      000177  10 00 03 16 0 000000       554.               LA         XV+1,0,XV.
      000200  01 00 03 10 0 000321       555.               SA         XV+1,AVAIL,XW.
      000201  20 16 02 00 0 000200       556.               AU,U       XV,PAGSIZ.
      000202  01 00 03 00 0 000000       557.               SA         XV+1,WK0.
      000203  42 16 02 00 1 177600       558.               AND,U      XV,PAGMSK.
      000204  73 02 03 00 0 000007       559.               SSL        XV+1,PAGBIT.
      000205  25 16 07 00 0 000001       560.               ANX,U      XR,1.
      000206  27 04 10 07 0 000002       561.               LX,LH      XW,2,XR.
      000207  06 04 10 17 0 000040       562.               SX,LH      XW,PAGTAB,XV+1.     PLANT TYPE IN PAGE TABLE
      000210  27 00 10 07 0 000001       563.               LX         XW,1,XR.
      000211  06 03 10 07 0 000000       564.               SX,RH      XW,0,XR.            PLUG STORAGE JUMP
      000212  27 04 17 07 0 000001       565.               LX,LH      XV+1,1,XR.
      000213  24 16 07 00 0 000001       566.               AX,U       XR,1.
      000214  10 16 06 00 0 000000       567.               LA,U       XXA,0.
      000215  74 04 00 17 0 000000       568.               J          0,XV+1.             INITIALIZE PAGE
                                         569.       GP(INTGER)         . INITIALIZE PAGE OF NUMBERS
                                         570.       GP(OCTAL)
                                         571.       GP(REAL)
      000216  05 00 00 16 0 000000       572.               SZ         0,XV.
      000217  14 16 02 00 0 000001       573.               AA,U       XV,1.
      000220  01 00 06 16 0 000000       574.               SA         XXA,0,XV.
      000221  10 00 06 00 0 000016       575.               LA         XXA,XV.
      000222  14 16 02 00 0 000001       576.               AA,U       XV,1.
      000223  42 16 02 00 0 000037       577.               AND,U      XV,037.
      000224  74 01 03 00 0 000220       578.               JNZ        XV+1,GP(REAL)+2.
      000225  52 00 02 00 0 000000       579.               TE         XV,WK0.
      000226  74 04 00 00 0 000216       580.               J          GP(REAL).
      000227  74 04 00 00 0 000247       581.               J          GPOUT.
                                         582.       GP(CODE)           . INITIALIZE PAGE OF COMPILED CODE
      000230  46 16 16 00 0 000200       583.               LXI,U      XV,PAGSIZ.
      000231  06 00 16 00 0 000003       584.               SX         XV,T5REC.
      000232  05 03 00 00 0 000005       585.               SZ,RH      T5REC+2.
      000233  23 16 01 00 0 000176       586.               LR,U       R1,PAGSIZ-2.
      000234  05 00 00 16 0 000000       587.               SZ         0,XV.
      000235  24 16 16 00 0 000001       588.               AX,U       XV,1.
      000236  70 04 01 00 0 000234       589.               JGD        R1,$-2.
      000237  10 00 00 00 0 000325       590.               LA         XX,(J BADI).
      000240  01 00 00 16 0 000000       591.               SA         XX,0,XV.
      000241  74 04 00 00 0 000247       592.               J          GPOUT.
                                         593.       GP(CONSED)         . INITIALIZE OTHER PAGES
                                         594.       GP(LINKER)
                                         595.       GP(SYMBOL)
                                         596.       GP(STRING)
                                         597.       GP(SUSP)
      000242  01 00 06 16 0 000000       598.               SA         XXA,0,XV.
      000243  10 00 06 00 0 000016       599.               LA         XXA,XV.
      000244  14 14 02 07 0 000001       600.               AA,S2      XV,1,XR.
      000245  52 00 02 00 0 000000       601.               TE         XV,WK0.
      000246  74 04 00 00 0 000242       602.               J          GP(SYMBOL)
      000247  01 03 06 07 0 000001       603.       GPOUT   SA,RH      XXA,1,XR.
      000250  71 13 02 00 0 000012       604.               DL         XV,GCXV.
      000251  74 04 00 10 0 000000       605.               J          0,XW.
      000252  51 15 00 00 0 000000       606.       GPNODB  TNZ        JUSTCG.
      000253  74 04 00 00 0 000314       607.               J          TRASH.
      000254  27 16 10 00 0 000001       608.               L,U        XW,1.
      000255  10 00 02 10 0 000321       609.               L          XV,AVAIL,XW.        TRY IBANK
      000256  74 01 02 00 0 000176       610.               JNZ        XV,GPOK.
      000257  74 04 00 00 0 000314       611.               J          TRASH.
      000260  74 01 02 00 0 000176       612.       GPIBANK JNZ        XV,GPOK.
      000261  50 14 00 00 0 000000       613.               TZ         GROWN.              IBANK SWOLLEN?
      000262  74 04 00 00 0 000305       614.               J          GPNOIB.             YES
      000263  71 12 00 00 0 000001       615.               DS         A0,SAVEA0.
      000264  10 02 01 00 0 000251       616.               L,H1       XV-1,BANKENDS.
      000265  40 16 01 00 0 000177       617.               OR,U       XV-1,PAGSIZ-1.
      000266  14 16 02 00 0 000001       618.               A,U        XV,1.
      000267  40 16 02 00 0 000777       619.               OR,U       XV,0777.
      000270  10 16 00 17 0 005000       620.               L,U        XX,5*01000,XV+1.
U     000271  54 16 00 00 3 173776       621.               TNG,U      XX,FRSTD$-04001.
      000272  74 04 00 00 0 000275       622.               J          $+3.
      000273  04 14 17 00 0 000000       623.               S          XFLAG,GROWN.
U     000274  10 16 00 00 3 176776       624.               L,U        XX,FRSTD$-01001.
      000275  01 02 00 00 0 000251       625.               S,H1       XX,BANKENDS.
      000276  10 16 03 14 0 000001       626.               L,U        XV+1,1,XX.
U     000277  72 11 00 00 0 000000       627.               ER         MCORE$.             ADD 5 CORE BLOCKS TO IBANK
      000300  10 16 01 00 0 000000       628.               L,U        XV-1,0.
      000301  74 13 14 00 0 005014       629.               LMJ        XX,MAKPAG.          BUILD AVAILABLE PAGE LIST
      000302  01 00 01 00 0 000322       630.               S          XV-1,AVAIL+1.
      000303  71 13 00 00 0 000001       631.               DL         A0,SAVEA0.
      000304  74 04 00 00 0 000164       632.               J          GETPAG+1.           AND TRY AGAIN
      000305  51 15 00 00 0 000000       633.       GPNOIB  TNZ        JUSTCG.
      000306  74 04 00 00 0 000314       634.               J          TRASH.
      000307  27 16 10 00 0 000000       635.               L,U        XW,0.               TRY DBANK
      000310  10 00 02 10 0 000321       636.               L          XV,AVAIL,XW.
      000311  54 16 02 00 1 000000       637.               TNG,U      XV,0200000.         IF BEFORE 65K.
      000312  74 04 00 00 0 000176       638.               J          GPOK.
      000313  74 04 00 00 0 000602       639.               J          EXHAUST.            THAT'S ALL FOLKS                                                                            640.       /. COMMENCE GARBAGE COLLECTION
    3 000314  06 00 06 00 0 000006       641.       TRASH   SX         XI,GCXI.            SAVE REGISTERS
      000315  06 00 04 00 0 000007       642.               SX         XL,GCXL.
      000316  71 12 00 00 0 000010       643.               DS         XX,GCXX.
      000317  71 12 04 00 0 000014       644.               DS         XA,GCXA.
      000320  01 00 06 00 0 000016       645.               SA         XA+2,GCXA+2.
U     000321  72 11 00 00 0 000000       646.               ER         CPU$.
      000322  01 00 00 00 0 000007       647.               SA         A0,GTIME+1.
      000323  27 16 06 00 0 000077       648.               LX,U       XI,63.
      000324  10 03 02 06 0 002040       649.               LA,RH      XV,HASH,XI.         MARK FROM HASH TABLE
      000325  74 13 04 00 0 000637       650.               LMJ        XL,MARK.
      000326  70 00 06 00 0 000324       651.               JGD        XI,$-2.
      000327  27 00 06 00 0 000001       652.               LX         XI,STAKE.
      000330  12 03 02 06 0 040000       653.       MRKL    LMA,RH     XV,STACK,XI.        MARK FROM STACK
      000331  74 13 04 00 0 000637       654.               LMJ        XL,MARK.
      000332  12 04 02 06 2 040000       655.               LMA,LH     XV,STACK,*XI.
      000333  74 13 04 00 0 000637       656.               LMJ        XL,MARK.
      000334  10 00 04 00 0 000006       657.               LA         XA,XI.
      000335  52 00 04 00 0 000001       658.               TE         XA,XT.
      000336  74 04 00 00 0 000330       659.               J          MRKL.
      000337  12 04 02 00 0 000007       660.               LMA,LH     XV,GCXL.
      000340  74 13 04 00 0 000637       661.               LMJ        XL,MARK.            MARK ASSOCIATION LIST
      000341  12 03 02 00 0 000004       662.               LMA,RH     XV,T5REC+1.
      000342  74 13 04 00 0 000637       663.               LMJ        XL,MARK.            MARK BEGIN ADDR FOR CODE
      000343  10 00 02 00 0 000043       664.               L          XV,APQ.
      000344  74 13 04 00 0 000637       665.               LMJ        XL,MARK.            MARK FILES TO CLOSE
      000345  10 04 02 00 0 000024       666.               L,LH       XV,XREGS+XL.
      000346  74 13 04 00 0 000637       667.               LMJ        XL,MARK.            MARK BACKUP A-LIST
      000347  27 16 06 00 0 000077       668.               LX,U       XI,63.
      000350  10 03 02 06 0 000113       669.               LA,RH      XV,DELIMS,XI.       MARK READMACROS
      000351  74 13 04 00 0 000637       670.               LMJ        XL,MARK.
      000352  70 00 06 00 0 000350       671.               JGD        XI,$-2.
      000353  10 13 00 07 0 000001       672.               LA,S3      XX,1,XR.            MARK CURRENT OBJECT
      000354  74 04 00 14 0 000355       673.               J          $+1,XX.
      000355  74 04 00 00 0 000377       674.       I       DO         NUMTYPS , J PN(I-1)
      000356  74 04 00 00 0 000403
      000357  74 04 00 00 0 000403
      000360  74 04 00 00 0 000403
      000361  74 04 00 00 0 000000
      000362  74 04 00 00 0 000376
      000363  74 04 00 00 0 000367
      000364  74 04 00 00 0 000377
      000365  74 04 00 00 0 000374
      000366  74 04 00 00 0 000377
                                         675.       PN(LINKER)
      000367  10 00 04 00 0 000013       676.               LA         XA,GCXV+1.
      000370  53 16 04 00 0 006346       677.               TNE,U      XA,FOLLOW.
      000371  74 04 00 00 0 000403       678.               J          PN(REAL).
      000372  12 04 02 00 0 000012       679.               LMA,LH     XV,GCXV.
      000373  74 04 00 00 0 000400       680.               J          PN(CONSED)+1.
                                         681.       PN(STRING)
      000374  12 03 02 00 0 000013       682.               LMA,RH     XV,GCXV+1.
      000375  74 04 00 00 0 000402       683.               J          PN(INTGER)-1.
                                         684.       PN(CODE)
      000376  05 00 00 00 0 000012       685.               SZ         GCXV.
                                         686.       PN(CONSED)
                                         687.       PN(SYMBOL)
                                         688.       PN(SUSP)
      000377  12 03 02 00 0 000013       689.               LMA,RH     XV,GCXV+1.
      000400  74 13 04 00 0 000637       690.               LMJ        XL,MARK.
      000401  12 03 02 00 0 000012       691.               LMA,RH     XV,GCXV.
      000402  74 13 04 00 0 000637       692.               LMJ        XL,MARK.
                                         693.       PN(INTGER)
                                         694.       PN(OCTAL)
                                         695.       PN(REAL)
                                         696.       .
                                         697.       . SWEEP MEMORY TO GATHER GARBAGE
      000403  10 16 00 00 0 000011       698.               L,U        XX,NUMTYPS-1.
      000404  05 00 00 14 0 000011       699.               SZ         NAVS,XX.
      000405  70 00 14 00 0 000404       700.               JGD        XX,$-1.
      000406  27 16 06 00 0 001777       701.               L,U        XI,PAGNUM-1.
      000407  10 13 00 06 0 000040       702.       BROOM   LA,S3      XX,PAGTAB,XI.       SCAN PAGE TABLE
      000410  10 03 04 14 0 000011       703.               LA,RH      XA,NAVS,XX.
      000411  10 16 05 00 0 000100       704.               LA,U       XA+1,PAGSIZ/2.
      000412  10 00 02 00 0 000006       705.               LA         XV,XI.
      000413  73 12 02 00 0 000007       706.               LSSL       XV,PAGBIT.
      000414  20 16 02 00 0 000200       707.               AU,U       XV,PAGSIZ.
      000415  74 04 00 14 0 000416       708.       SWB     J          $+1,XX.             BRAKOUT TO SWEEP PAGE
      000416  74 04 00 00 0 000504       709.       I       DO         NUMTYPS , J SWEEP(I-1)
      000417  74 04 00 00 0 000446
      000420  74 04 00 00 0 000446
      000421  74 04 00 00 0 000446
      000422  74 04 00 00 0 000535
      000423  74 04 00 00 0 000465
      000424  74 04 00 00 0 000442
      000425  74 04 00 00 0 000430
      000426  74 04 00 00 0 000471
      000427  74 04 00 00 0 000504
                                         710.       SWEEP(SYMBOL)
      000430  10 04 06 16 0 000001       711.               LA,LH      XA+2,1,XV.
      000431  74 03 06 00 0 000435       712.               JN         XA+2,$+4.           ACTIVE?
      000432  01 00 04 16 0 000000       713.       SWP7    SA         XA,0,XV.
      000433  10 00 04 00 0 000016       714.               LA         XA,XV.
      000434  70 01 01 00 0 000436       715.               JGD        XA+1,$+2.
      000435  02 04 06 16 0 000001       716.               SNA,LH     XA+2,1,XV.
      000436  14 16 02 00 0 000002       717.               AA,U       XV,2.
      000437  52 00 02 00 0 000017       718.               TE         XV,XV+1.
      000440  74 04 00 14 0 000416       719.               J          SWB+1,XX.
      000441  74 04 00 00 0 000516       720.               J          SWEEPN.
                                         721.       SWEEP(LINKER)
      000442  10 03 06 16 0 000000       722.               LA,RH      XA+2,0,XV.
      000443  74 02 06 00 0 000432       723.               JP         XA+2,SWP7.
      000444  02 03 06 16 0 000000       724.               SNA,RH     XA+2,0,XV.
      000445  74 04 00 00 0 000436       725.               J          SWP7+4.
                                         726.       SWEEP(INTGER)
                                         727.       SWEEP(REAL)
                                         728.       SWEEP(OCTAL)
      000446  10 16 05 00 0 000174       729.               LA,U       XA+1,PAGSIZ-PAGSIZ/32.
      000447  01 00 03 00 0 000017       730.               SA         XV+1,GCWK0.
      000450  10 00 06 16 0 000000       731.       SWP1    LA         XA+2,0,XV.
      000451  05 00 00 16 0 000000       732.               SZ         0,XV.
      000452  14 16 02 00 0 000001       733.               AA,U       XV,1.
      000453  72 03 06 00 0 000457       734.               JNS        XA+2,$+4.           ACTIVE?
      000454  01 00 04 16 0 000000       735.               SA         XA,0,XV.
      000455  10 00 04 00 0 000016       736.               LA         XA,XV.
      000456  15 16 05 00 0 000001       737.               ANA,U      XA+1,1.
      000457  14 16 02 00 0 000001       738.               AA,U       XV,1.
      000460  42 16 02 00 0 000037       739.               AND,U      XV,037.
      000461  74 01 03 00 0 000453       740.               JNZ        XV+1,SWP1+3.
      000462  52 00 02 00 0 000017       741.               TE         XV,GCWK0.
      000463  74 04 00 00 0 000450       742.               J          SWP1.
      000464  74 04 00 00 0 000516       743.               J          SWEEPN.
                                         744.       SWEEP(CODE)
      000465  51 03 00 06 0 000040       745.               TNZ,RH     PAGTAB,XI.
      000466  74 04 00 00 0 000525       746.               J          SWEEPR+1.
      000467  05 03 00 06 0 000040       747.               SZ,RH      PAGTAB,XI.
      000470  74 04 00 00 0 000535       748.               J          SWEEP(SYSTEM)
                                         749.       SWEEP(STRING)
      000471  10 16 05 00 0 000200       750.               LA,U       XA+1,PAGSIZ.
      000472  10 03 06 16 0 000000       751.               LA,RH      XA+2,0,XV.
      000473  74 03 06 00 0 000477       752.               JN         XA+2,$+4.
      000474  01 00 04 16 0 000000       753.               SA         XA,0,XV.
      000475  10 00 04 00 0 000016       754.               LA         XA,XV.
      000476  70 01 01 00 0 000500       755.               JGD        XA+1,$+2.
      000477  02 03 06 16 0 000000       756.               SNA,RH     XA+2,0,XV.
      000500  14 16 02 00 0 000001       757.               AA,U       XV,1.
      000501  52 00 02 00 0 000017       758.               TE         XV,XV+1.
      000502  74 04 00 00 0 000472       759.               J          SWEEP(STRING)+1.
      000503  74 04 00 00 0 000516       760.               J          SWEEPN.
                                         761.       SWEEP(CONSED)
                                         762.       SWEEP(SUSP)
      000504  10 16 05 00 0 000200       763.               LA,U       XA+1,PAGSIZ.
      000505  10 04 06 16 0 000000       764.               LA,LH      XA+2,0,XV.
      000506  74 03 06 00 0 000512       765.               JN         XA+2,$+4.
      000507  01 00 04 16 0 000000       766.               SA         XA,0,XV.
      000510  10 00 04 00 0 000016       767.               LA         XA,XV.
      000511  70 01 01 00 0 000513       768.               JGD        XA+1,$+2.
      000512  02 04 06 16 0 000000       769.               SNA,LH     XA+2,0,XV.
      000513  14 16 02 00 0 000001       770.               AA,U       XV,1.
      000514  52 00 02 00 0 000017       771.               TE         XV,XV+1.
      000515  74 04 00 00 0 000505       772.               J          SWEEP(CONSED)+1.
      000516  74 00 05 00 0 000524       773.       SWEEPN  JZ         XA+1,SWEEPR.        ENTIRE PAGE GARBAGE?
      000517  01 03 05 06 0 000040       774.               SA,RH      XA+1,PAGTAB,XI.
      000520  14 04 05 14 0 000011       775.               AA,LH      XA+1,NAVS,XX.
      000521  01 04 05 14 0 000011       776.               SA,LH      XA+1,NAVS,XX.
      000522  01 03 04 14 0 000011       777.               SA,RH      XA,NAVS,XX.
      000523  74 04 00 00 0 000535       778.               J          SWEEP(SYSTEM)
      000524  15 16 02 00 0 000200       779.       SWEEPR  ANA,U      XV,PAGSIZ.
      000525  27 16 17 00 0 000000       780.               LX,U       XV+1,0.
U     000526  54 16 02 00 0 000000       781.               TNG,U      XV,FRSTD$
      000527  27 16 17 00 0 000001       782.               LX,U       XV+1,1.
      000530  10 00 04 17 0 000321       783.               LA         XA,AVAIL,XV+1.      ADD TO AVAILABLE PAGE LIST
      000531  01 00 04 16 0 000000       784.               SA         XA,0,XV.
      000532  01 00 02 17 0 000321       785.               SA         XV,AVAIL,XV+1.
      000533  10 00 04 00 0 000326       786.               LA         XA,(SYSTEM*/18).
      000534  01 00 04 06 0 000040       787.               SA         XA,PAGTAB,XI.
                                         788.       SWEEP(SYSTEM)
      000535  70 00 06 00 0 000407       789.               JGD        XI,BROOM.           AND ON TO NEXT PAGE
      000536  27 00 06 00 0 000327       790.               LX         XI,(-3,3*MAXTYP).
      000537  10 03 00 00 0 000010       791.               LA,RH      XX,GCNUM.
      000540  14 16 00 00 0 000001       792.               AA,U       XX,1.
      000541  01 00 00 00 0 000010       793.               SA         XX,GCNUM.
      000542  10 13 00 06 0 000002       794.       GCDL    LA,S3      XX,TYPTAB+2,XI.
      000543  50 14 00 14 0 000036       795.               TZ         NFLG2,XX.
      000544  74 04 00 00 0 000553       796.               J          GCDN.
      000545  10 03 04 14 0 000011       797.               LA,RH      XA,NAVS,XX.         NEW SPACE LIST
      000546  10 16 02 00 0 000163       798.               LA,U       XV,GETPAG.
      000547  74 00 04 00 0 000551       799.               JZ         XA,$+2.
      000550  10 03 02 06 0 000001       800.               LA,RH      XV,TYPTAB+1,XI.
      000551  01 03 04 06 0 000002       801.               SA,RH      XA,TYPTAB+2,XI.
      000552  01 03 02 06 0 000000       802.               SA,RH      XV,TYPTAB,XI.
      000553  74 12 06 00 0 000542       803.       GCDN    JMGI       XI,GCDL.
U     000554  72 11 00 00 0 000000       804.               ER         CPU$.
      000555  15 00 00 00 0 000007       805.               ANA        A0,GTIME+1.
      000556  14 00 00 00 0 000006       806.               AA         A0,GTIME.
      000557  01 00 00 00 0 000006       807.               SA         A0,GTIME.
      000560  05 00 00 00 0 000007       808.               SZ         GTIME+1.
      000561  25 16 07 00 0 000001       809.               ANX,U      XR,1.
      000562  27 00 06 00 0 000006       810.               LX         XI,GCXI.
      000563  27 00 04 00 0 000007       811.               LX         XL,GCXL.
      000564  50 13 00 00 0 000000       812.               TZ         INTFLG.
      000565  74 04 00 00 0 001247       813.               J          IINTDO.             GO DO DELAYED BREAK
      000566  71 13 00 00 0 000010       814.               DL         XX,GCXX.
      000567  71 13 02 00 0 000012       815.               DL         XV,GCXV.
      000570  71 13 04 00 0 000014       816.               DL         XA,GCXA.
      000571  10 00 06 00 0 000016       817.               LA         XA+2,GCXA+2.
      000572  50 03 00 07 0 000002       818.               TZ,RH      2,XR.
      000573  74 04 00 07 0 000000       819.               J          0,XR.
      000574  50 15 00 00 0 000000       820.               TZ         JUSTCG.
      000575  74 04 00 00 0 000602       821.               J          EXHAUST.
      000576  04 15 17 00 0 000000       822.               S          XFLAG,JUSTCG.
      000577  51 00 00 00 0 000321       823.               TNZ        AVAIL.
      000600  50 00 00 00 0 000322       824.               TZ         AVAIL+1.
      000601  74 04 00 07 0 000000       825.               J          0,XR.
      000602  10 00 05 00 0 000003       826.       EXHAUST L          A5,OPSHUN.
      000603  44 16 05 00 0 000004       827.               TEP,U      A5,1*/('Z'-'X').
U     000604  72 11 00 00 0 000000       828.               ER         ERR$.               STOP NOW IF X OPTION
      000605  10 16 00 00 0 000330       829.               P$RINT     (PF 0,2,4,MESS1).
      000606  10 00 00 14 0 000000
U     000607  72 11 00 00 0 000000
      000610  27 16 06 00 0 000011       830.               L,U        XI,NUMTYPS-1.
      000611  27 00 11 00 0 000331       831.               L          XO,(1,0).
      000612  10 04 05 06 0 000011       832.       EXHLP   L,LH       A5,NAVS,XI.
      000613  10 00 07 00 0 000332       833.               L          A7,('      ').
      000614  01 00 07 11 0 000050       834.               S          A7,LINE,XO.
      000615  10 16 06 06 0 000060       835.               L,U        A6,'0',XI.
      000616  01 11 06 11 2 000050       836.               S,S5       A6,LINE,*XO.
      000617  73 05 05 00 0 000044       837.               DSA        A5,36.
      000620  34 16 05 00 0 000012       838.               DI,U       A5,10.
      000621  14 16 06 00 0 000060       839.               A,U        A6,'0'.
      000622  73 03 06 00 0 000006       840.               DSL        A6,6.
      000623  74 01 05 00 0 000617       841.               JNZ        A5,$-4.
      000624  01 00 07 11 2 000050       842.               S          A7,LINE,*XO.
      000625  70 00 06 00 0 000612       843.               JGD        XI,EXHLP.
      000626  10 00 00 00 0 000333       844.               L          A0,(PF 0,2,2*NUMTYPS,LINE).
U     000627  72 11 00 00 0 000000       845.               ER         PRINT$.
      000630  27 16 11 00 0 000000       846.               L,U        XO,0.
      000631  74 04 00 00 0 001416       847.               J          SYSERR.
      000632  221222242736               848.       MESS1   'MEMORY IS EXHAUSTED'
      000633  051630051235
      000634  150632303112
      000635  110505050505
                                         849.       /. MARKING SUBROUTINE
    3 000636  27 00 16 00 0 000014       850.               LX         XV,XX.
      000637  06 00 04 01 2 040000       851.       MARK    SX         XL,STACK,*XT.
      000640  06 04 16 01 0 040001       852.               SX,LH      XV,STACK+1,XT.
      000641  42 16 02 00 1 177600       853.               AND,U      XV,PAGMSK.
      000642  73 02 03 00 0 000007       854.               SSL        XV+1,PAGBIT.
      000643  10 13 00 17 0 000040       855.               LA,S3      XX,PAGTAB,XV+1.
      000644  74 04 00 14 0 000645       856.       MRKB    J          $+1,XX.
      000645  74 04 00 00 0 000705       857.       I       DO         NUMTYPS , J MRK(I-1).
      000646  74 04 00 00 0 000672
      000647  74 04 00 00 0 000672
      000650  74 04 00 00 0 000672
      000651  74 04 00 00 0 000701
      000652  74 04 00 00 0 000737
      000653  74 04 00 00 0 000722
      000654  74 04 00 00 0 000657
      000655  74 04 00 00 0 000713
      000656  74 04 00 00 0 000705
                                         858.       MRK(SYMBOL)
      000657  74 11 02 00 0 000723       859.               JB         XV,MRK(LINKER)+1.
      000660  10 04 00 16 0 000001       860.               LA,LH      XX,1,XV.
      000661  74 03 00 00 0 000701       861.               JN         XX,MARKX.
      000662  02 04 00 16 0 000001       862.               SNA,LH     XX,1,XV.            MAKE ACTIVE
      000663  74 13 04 00 0 000636       863.               LMJ        XL,MARK-1.          MARK NEXT ATOM = HASH
      000664  12 03 02 16 0 000001       864.               LMA,RH     XV,1,XV.
      000665  74 13 04 00 0 000637       865.               LMJ        XL,MARK.            MARK PRINT NAME
      000666  12 03 02 16 0 000000       866.               LMA,RH     XV,0,XV.
      000667  74 13 04 00 0 000637       867.               LMJ        XL,MARK.            MARK PROPERTY LIST
      000670  12 04 02 16 0 000000       868.               LMA,LH     XV,0,XV.
      000671  74 04 00 00 0 000640       869.               J          MARK+1.             MARK VALUE
                                         870.       MRK(INTGER)
                                         871.       MRK(OCTAL)
                                         872.       MRK(REAL)
      000672  42 16 02 00 0 000037       873.               AND,U      XV,037.
      000673  15 00 02 00 0 000017       874.               ANA        XV,XV+1.
      000674  10 00 00 16 0 000000       875.               LA         XX,0,XV.
      000675  73 10 00 17 0 000000       876.               LSSC       XX,0,XV+1.
      000676  40 16 00 00 0 000001       877.               OR,U       XX,1.
      000677  73 00 01 17 0 000000       878.               SSC        XX+1,0,XV+1.
      000700  01 00 01 16 0 000000       879.               SA         XX+1,0,XV.          SET BIT WORD
                                         880.       MRK(SYSTEM)
      000701  26 16 01 01 0 000001       881.       MARKX   POP.
      000702  26 00 04 01 0 040000       882.               LXM        XL,STACK,XT.
      000703  10 04 02 01 0 040001       883.               LA,LH      XV,STACK+1,XT.
      000704  74 04 00 04 0 000000       884.               J          0,XL.
                                         885.       MRK(CONSED)
                                         886.       MRK(SUSP)
      000705  10 04 00 16 0 000000       887.               LA,LH      XX,0,XV.
      000706  74 03 00 00 0 000701       888.               JN         XX,MARKX.
      000707  02 04 00 16 0 000000       889.               SNA,LH     XX,0,XV.
      000710  74 13 04 00 0 000636       890.               LMJ        XL,MARK-1.          MARK CAR.
      000711  12 03 02 16 0 000000       891.               LMA,RH     XV,0,XV.
      000712  74 04 00 00 0 000640       892.               J          MARK+1.
                                         893.       MRK(STRING)
      000713  10 03 00 16 0 000000       894.               LA,RH      XX,0,XV.
      000714  74 03 00 00 0 000701       895.               JN         XX,MARKX.
      000715  02 03 00 16 0 000000       896.               SNA,RH     XX,0,XV.
      000716  10 00 02 00 0 000014       897.               L          XV,XX.
      000717  52 16 02 00 0 001000       898.               TE         XV,KNIL.
      000720  74 04 00 00 0 000713       899.               J          MRK(STRING).        LOOP THROUGH STRING
      000721  74 04 00 00 0 000701       900.               J          MARKX.
                                         901.       MRK(LINKER)
      000722  74 10 02 00 0 000726       902.               JNB        XV,$+4.
      000723  15 16 02 00 0 000001       903.               ANA,U      XV,1.
      000724  06 04 16 01 0 040001       904.               SX,LH      XV,STACK+1,XT.
      000725  74 04 00 14 0 000645       905.               J          MRKB+1,XX.
      000726  10 03 00 16 0 000000       906.               LA,RH      XX,0,XV.
      000727  74 03 00 00 0 000701       907.               JN         XX,MARKX.
      000730  02 03 00 16 0 000000       908.               SNA,RH     XX,0,XV.
      000731  53 16 00 00 0 006346       909.               TNE,U      XX,FOLLOW.
      000732  74 04 00 00 0 000701       910.               J          MARKX.
      000733  12 04 02 16 0 000001       911.               LMA,LH     XV,1,XV.
      000734  74 13 04 00 0 000637       912.               LMJ        XL,MARK.
      000735  12 03 02 16 0 000001       913.               LMA,RH     XV,1,XV.
      000736  74 04 00 00 0 000640       914.               J          MARK+1.
                                         915.       MRK(CODE)
      000737  50 03 00 17 0 000040       916.               TZ,RH      PAGTAB,XV+1.
      000740  74 04 00 00 0 000701       917.               J          MARKX.
      000741  01 03 02 17 0 000040       918.               SA,RH      XV,PAGTAB,XV+1.
      000742  73 13 02 00 0 000053       919.               LDSL       XV,36+PAGBIT.
      000743  01 04 02 01 0 040001       920.       MRK5L   SA,LH      XV,STACK+1,XT.      FOLLOW THRU COMPILED CODE
      000744  74 13 14 00 0 006330       921.               LMJ        XX,IMASK.           GENERATE ADDRESS MASK
      000745  42 00 01 16 0 000000       922.               AND        XV-1,0,XV.          GET ADDRESS
      000746  74 13 04 00 0 000637       923.               LMJ        XL,MARK.
      000747  14 16 02 00 0 000001       924.               AA,U       XV,1.
      000750  42 16 02 00 0 000177       925.               AND,U      XV,PAGSIZ-1.
      000751  74 01 03 00 0 000743       926.               JNZ        XV+1,MRK5L.         MORE INSTRUCTIONS?
      000752  74 04 00 00 0 000701       927.               J          MARKX.
                                         928.       $(6).
    6 000006  000000000000               929.       GTIME   +0
      000007  000000000000               930.               +0
      000010  000000000000               931.       GCNUM   +0
      000011                             932.       NAVS    RES        NUMTYPS.
                                         933.       $(8).
    8 000006                             934.       GCXI    RES        1.
      000007                             935.       GCXL    RES        1.
      000010                             936.       GCXX    RES        2.
      000012                             937.       GCXV    RES        2.
      000014                             938.       GCXA    RES        3.
      000017                             939.       GCWK0   RES        1.
                                         940.       /. INITIALIZE
                                         941.       $(10).
   10 003334  01 00 05 00 0 000003       942.       START   SA         A5,OPSHUN.          CHECK IF BATCH OR DEMAND
      003335  73 02 05 00 0 000027       943.               SSL        A5,23.
      003336  42 16 05 00 0 000003       944.               AND,U      A5,3.
      003337  74 11 06 00 0 003343       945.               JB         A6,IL5+2.           C OPTION?
      003340  74 01 06 00 0 003353       946.               JNZ        A6,IL4.             B OPTION?
      003341  52 16 04 00 0 000004       947.       IL5     TE,U       A4,4.               DEMAND MODE?
      003342  74 04 00 00 0 003353       948.               J          IL4.
      003343  10 16 00 00 0 000077       949.               LA,U       XX,077.
      003344  01 15 00 00 0 000213       950.               SA         XX,CMODE.           SET CONVERSATIONAL MODE
      003345  01 14 00 00 0 000213       951.               SA         XX,LMODE.           SUPRESS INPUT LISTING
      003346  10 16 00 00 0 000063       952.               LA,U       XX,LINE+11.         SHORT PRINT LINE
      003347  01 03 00 00 0 000041       953.               SA         XX,ELINE.
      003350  10 16 00 00 0 001750       954.               L,U        XX,1000.            SHORT BACKTRACE
      003351  01 03 00 00 0 000035       955.               S          XX,BTFLAG.
      003352  01 04 00 00 0 000035       956.               S          XX,BTFLGP.
                                         957.       IL4
U     003353  27 16 14 00 0 000000       958.               LX,U       XX,LASTD$.
      003354  42 16 00 00 3 177000       959.               AND,U      XX,0777000.
      003355  06 00 15 00 0 000002       960.               SX         XX+1,CSTKE.         SET UP STACK POINTERS
      003356  27 00 02 00 0 000001       961.               LX         XF,STAKE.
      003357  27 00 01 00 0 000002       962.               LX         XT,XF.
      003360  27 16 05 00 0 000000       963.               LX,U       XP,0.
      003361  27 00 03 00 0 000334       964.               LX         XC,(1,CSTK-CSTAK).
      003362  06 00 03 00 0 000320       965.               SX         XC,BEPTAB.
      003363  27 00 14 00 0 000335       966.               LX         XX,(1,EPTAB-CSTAK).
      003364  23 00 01 00 0 000317       967.               LR         R1,LEPTAB.
      003365  22 00 03 14 2 040000       968.               BT         XC,CSTAK,*XX.       TRANSFER ENTRY POINT TABLE
      003366  27 16 14 00 0 000326       969.               LX,U       XX,(SYSTEM*/18).
      003367  27 00 11 00 0 000336       970.               LX         XO,(1,PAGTAB).
      003370  23 16 01 00 0 002000       971.               LR,U       R1,PAGNUM.
      003371  22 00 11 14 2 000000       972.               BT         XO,0,*XX.           INITIALIZE PAGE TABLE
      003372  10 16 02 00 0 000000       973.               LA,U       XV,0.
      003373  27 16 11 00 0 000000       974.               LX,U       XO,ENDCHK.
      003374  25 16 11 00 0 000000       975.               ANX,U      XO,ENTRY.
      003375  14 00 02 11 0 000000       976.               AA         XV,ENTRY,XO.        COMPUTE CHECKSUM
      003376  70 00 11 00 0 003375       977.               JGD        XO,$-1.
      003377  01 00 02 00 0 000004       978.               SA         XV,CKSUM.
      003400  27 16 11 00 0 001000       979.               LX         XO,KNIL.
      003401  27 00 15 00 0 000011       980.               LX         XY,XO.
                                         981.       ILOOP              .                   SET UP ATOMIC SYMBOLS
      003402  42 16 01 00 1 177600       982.               AND,U      XY,PAGMSK.
      003403  73 02 02 00 0 000007       983.               SSL        XY+1,PAGBIT.
      003404  10 04 04 00 0 000027       984.               LA,LH      XA,STORIT(SYMBOL)+2.
      003405  01 04 04 16 0 000040       985.               SA,LH      XA,PAGTAB,XY+1.     SET PAGE TYPE TO SYMBOL
      003406  12 03 02 02 0 037000       986.               LOAD       NIL.
      003407  12 16 02 00 0 001000
      003410  27 00 15 11 0 000001       987.               LX         XY,1,XO.
      003411  24 10 15 11 0 000000       988.               AX,S6      XY,0,XO.
                                         989.       IL1                .                   PUT AWAY PRINT NAME
      003412  53 00 01 11 0 000001       990.               TNE        XY,1,XO.
      003413  74 04 00 00 0 003425       991.               J          IL2.
      003414  25 16 15 00 0 000001       992.               ANX,U      XY,1.
      003415  10 00 03 00 0 000016       993.               L          XV+1,XV.
      003416  10 01 02 15 0 000000       994.               L,H2       XV,0,XY.            3 CHAR OF NAME
      003417  74 00 02 00 0 003422       995.               JZ         XV,$+3.
      003420  74 13 04 00 0 000030       996.               NODE       STRING.
      003421  10 00 03 00 0 000016       997.               L          XV+1,XV.
      003422  10 02 02 15 0 000000       998.               L,H1       XV,0,XY.            3 CHAR OF NAME
      003423  74 13 04 00 0 000030       999.               NODE       STRING.
      003424  74 04 00 00 0 003412      1000.               J          IL1.
      003425  27 11 14 11 0 000000      1001.       IL2     LX,S5      XX,0,XO.            HASH TOTAL
      003426  46 03 16 14 0 002040      1002.               LXI,RH     XV,HASH,XX.
      003427  01 00 02 11 0 000001      1003.               SA         XV,1,XO.            SET HASH LINK & PNAME
      003430  06 03 11 14 0 002040      1004.               SX,RH      XO,HASH,XX.         ADD TO HASH TABLE
      003431  12 03 02 02 0 037000      1005.               LOAD       NIL.
      003432  12 16 02 00 0 001000
      003433  01 03 02 11 0 000000      1006.               SA,RH      XV,0,XO.            EMPTY PROPERTY LIST
      003434  12 04 02 11 0 000000      1007.               LM,LH      XV,0,XO.            CONSTANT BINDING
      003435  74 00 02 00 0 003442      1008.               JZ         XV,IL6.             AIN'T THERE ANY?
      003436  01 00 02 03 2 040000      1009.               S          XV,CSTAK,*XC.       PUT IN ENTRY POINT TABLE
      003437  10 00 02 00 0 000317      1010.               L          XV,LEPTAB.
      003440  14 16 02 00 0 000001      1011.               A,U        XV,1.
      003441  01 00 02 00 0 000317      1012.               S          XV,LEPTAB.
      003442  24 16 11 00 0 000002      1013.       IL6     A,U        XO,2.               TO NEXT ATOMIC SYMBOL
      003443  10 00 01 00 0 000011      1014.               LA         XY,XO.
      003444  52 16 01 00 0 001610      1015.               TE,U       XY,ENDAT.           DONE?
      003445  74 04 00 00 0 003402      1016.               J          ILOOP.
      003446  27 00 06 00 0 000331      1017.               LX         XI,(1,0).           INITIALIZE I/O INDICES
      003447  27 00 11 00 0 000331      1018.               LX         XO,(1,0).
      003450  05 00 00 00 0 000033      1019.               SZ         XMCNT.              INITIALIZE MEMORY CNTR
      003451  23 00 17 00 0 000337      1020.               L          XFLAG,(-0).         INITIALIZE FLAG
                                        1021.       IL3                .                   FILL IN AVAILABLE SYMBOL LIST
      003452  42 16 01 00 0 000177      1022.               AND,U      XY,PAGSIZ-1.
      003453  74 00 02 00 0 000753      1023.               JZ         XY+1,BEGIN.
      003454  10 03 02 00 0 000027      1024.               LA,RH      XV,STORIT(SYMBOL)+2.
      003455  01 03 02 15 0 000000      1025.               SA,RH      XV,0,XY.            MAKE WORD AVAILABLE
      003456  01 03 01 00 0 000027      1026.               SA,RH      XY,STORIT(SYMBOL)+2.
      003457  10 16 04 00 0 000110      1027.               LA,U       XA,PUT(SYMBOL).
      003460  01 03 04 00 0 000025      1028.               SA,RH      XA,STORIT(SYMBOL).
      003461  24 16 15 00 0 000002      1029.               AX,U       XY,2.
      003462  74 04 00 00 0 003452      1030.               J          IL3.
                                        1031.       /$(3).
    3 000753  46 16 04 00 0 001000      1032.       BEGIN   LXI        XL,KNIL.
      000754  10 16 00 00 0 000340      1033.               P$RINT     (PF 0,1,3,MESS8)
      000755  10 00 00 14 0 000000
U     000756  72 11 00 00 0 000000
U     000757  72 11 00 00 0 000000      1034.               ER         CPU$.
      000760  01 00 00 00 0 000247      1035.               S          A0,ETIME.
      000761  06 00 01 03 2 040000      1036.               LETS       LISP.
      000762  23 16 03 00 0 001011
      000763  04 00 03 01 2 040000
      000764  74 13 04 00 0 000004      1037.               CALLR.
      000765  10 00 00 00 0 000043      1038.       FINIS   L          XX,APQ.
      000766  74 00 00 00 0 001001      1039.               JZ         XX,GOODBYE.
      000767  12 04 02 14 0 000000      1040.               LMA,LH     XV,0,XX.
      000770  12 03 00 14 0 000000      1041.               LMA,RH     XX,0,XX.
      000771  01 00 00 00 0 000043      1042.               S          XX,APQ.
      000772  74 13 04 00 0 006264      1043.               LMJ        XL,GETNAM.
      000773  74 13 04 00 0 006305      1044.               LMJ        XL,BLANKS.
      000774  71 13 00 00 0 000052      1045.               DL         XX,NAME+1.
      000775  71 12 00 00 0 000025      1046.               DS         XX,BRKPT+2.
      000776  10 00 00 00 0 000341      1047.               L          XX,(+4,BRKPT).
U     000777  72 11 00 00 0 000000      1048.               ER         CSF$.
      001000  74 04 00 00 0 000765      1049.               J          FINIS.
      001001  10 00 00 00 0 000342      1050.       GOODBYE L          A0,(PF 0,3,2,MESS2).
U     001002  72 11 00 00 0 000000      1051.               ER         PRINT$.
U     001003  72 11 00 00 0 000000      1052.               ER         EXIT$.
                                        1053.       $(6)
    6 000023  000727202531              1054.       BRKPT   '@BRKPT      '
      000024  050505050505
      000025  000000000000              1055.               +0D
      000026  000000000000
                                        1056.       $(3)
    3 001004  616161600521              1057.       MESS8   '1110 LISP'
      001005  163025050505
                                        1058.                          . *** UPDATE VERSION EACH ASSEMBLY *** .
      001006  707564050505              1059.       VERSION '8.4'
      001007  122311052413              1060.       MESS2   'END OF LISP'
      001010  052116302505
      001011  12 03 02 02 0 036670      1061.       LISP    MOVE       GETEXP.
      001012  12 16 02 00 0 001110
      001013  01 00 02 01 2 040000
      001014  01 00 02 02 0 040000
      001015  10 00 03 00 0 000004      1062.               L          XV+1,XL.
      001016  73 02 03 00 0 000022      1063.               SSL        XV+1,18.
      001017  10 16 02 00 0 000046      1064.               L,U        XV,LPROG.
      001020  74 13 04 00 0 000000      1065.               NODE       CONSED.             MARK ASSOCIATION LIST
      001021  46 00 04 00 0 000016      1066.               LXI        XL,XV.
      001022  10 16 02 00 0 001127      1067.       LISPRT  L,U        XV,LISPT.
      001023  74 13 04 00 0 000034      1068.               LMJ        XL,TRAP.
      001024  12 03 02 02 0 037777      1069.               LOAD       1.                  MAKE SURE FN OK
      001025  12 16 02 00 0 000001
      001026  74 13 04 00 0 007044      1070.               LMJ        XL,CHKFN.
      001027  01 00 02 01 2 040000      1071.               STORE      1.
      001030  01 00 02 02 0 037777
      001031  05 00 00 00 0 000045      1072.       LISPL   SZ         PFNAM.
      001032  10 00 00 00 0 000343      1073.               LA         XX,(PF 012,043,0,CONTIN).
      001033  10 00 04 00 0 000003      1074.               L          XA,OPSHUN.
      001034  45 16 04 00 0 000004      1075.               TOP,U      XA,1*/('Z'-'X').         ERR QUICK IF X OPTION
U     001035  72 11 00 00 0 000000      1076.               ER         IALL$
      001036  06 00 01 00 0 000021      1077.       I       DO         X11 , S I,XREGS+I.
      001037  06 00 02 00 0 000022
      001040  06 00 03 00 0 000023
      001041  06 00 04 00 0 000024
      001042  06 00 05 00 0 000025
      001043  06 00 06 00 0 000026
      001044  06 00 07 00 0 000027
      001045  06 00 10 00 0 000030
      001046  06 00 11 00 0 000031
      001047  06 00 12 00 0 000032
      001050  06 00 13 00 0 000033
      001051  26 16 06 00 0 000000      1078.               LXM,U      XI,0.
      001052  06 00 01 03 2 040000      1079.               LETS       EVAL
      001053  23 16 03 00 0 001643
      001054  04 00 03 01 2 040000
      001055  06 00 01 03 2 040000      1080.               MARK
      001056  12 03 02 02 0 037777      1081.               MOVE       1
      001057  12 16 02 00 0 000001
      001060  01 00 02 01 2 040000
      001061  01 00 02 02 0 040000
      001062  04 12 17 00 0 000213      1082.               S          XFLAG,EVMODE.
      001063  74 13 04 00 0 000000      1083.               CALL.                          READ EXPRESSION
      001064  05 12 00 00 0 000213      1084.               SZ         EVMODE.
      001065  74 13 04 00 0 000004      1085.               CALLR.                         EVALUATE IT
      001066  10 16 00 00 0 000001      1086.               L,U        XX,1.
      001067  53 14 00 00 0 000213      1087.               TNE        XX,LMODE.
      001070  74 04 00 00 0 001031      1088.               J          LISPL.              LOADING: NO PRINT
      001071  01 07 00 00 0 000047      1089.               S          XX,PLINES.
      001072  05 00 00 00 0 000045      1090.               SZ         PFNAM.
      001073  06 00 01 03 2 040000      1091.               LETS       PRINT.
      001074  23 16 03 00 0 002531
      001075  04 00 03 01 2 040000
      001076  01 00 02 01 2 040000      1092.               STORE.
      001077  01 00 02 02 0 040000
      001100  74 13 07 00 0 003356      1093.               EDIT
      001101  330621321253              1094.               'VALUE: @'
      001102  050005050505
      001103  51 15 00 00 0 000213      1095.               TNZ        CMODE.
      001104  74 13 14 00 0 003475      1096.               LMJ        XX,SENDDB.
      001105  74 13 04 00 0 000004      1097.               CALLR.                         PRINT VALUE
      001106  05 00 00 00 0 000034      1098.               SZ         CCOUNT.             REGISTER CONTINGENCY ROUTINE
      001107  74 04 00 00 0 001031      1099.               J          LISPL.
                                        1100.       . DEFAULT EXPRESSION-GETTER
      001110  10 14 00 00 0 000213      1101.       GETEXP  L          XX,LMODE.
      001111  53 16 00 00 0 000001      1102.               TNE,U      XX,1.
      001112  74 04 00 00 0 003510      1103.               J          READ.               LOADING: NO PRINT
      001113  51 15 00 00 0 000213      1104.               TNZ        CMODE.
      001114  74 04 00 00 0 001120      1105.               J          GEXP2.
      001115  74 13 07 00 0 003356      1106.               EDIT
      001116  123306215300              1107.               'EVAL:@'
      001117  74 04 00 00 0 001125      1108.               J          GEXP.
      001120  74 13 07 00 0 003356      1109.       GEXP2   EDIT
      001121  123525271230              1110.               'EXPRESSION TO EVALUATE:@'
      001122  301624230531
      001123  240512330621
      001124  320631125300
      001125  74 13 14 00 0 003475      1111.       GEXP    LMJ        XX,SENDDB.
      001126  74 04 00 00 0 003510      1112.               J          READ.
                                        1113.       . TRAP LINKAGES
      001127  777775 001141             1114.       LISPT   -          2,LISPT1.           TRAP LINKAGES
      001130  10 16 02 00 0 001127      1115.               L,U        XV,LISPT.
      001131  74 13 04 00 0 000034      1116.               LMJ        XL,TRAP.
      001132  74 04 00 00 0 002343      1117.               J          BADGO.
      001133  777773 002361             1118.               -          4,LISPT2.
      001134  74 04 00 00 0 001142      1119.               J          LISPT1+1.
      001135  777774 001133             1120.               -          3,$-2.
      001136  74 04 00 00 0 001142      1121.               J          LISPT1+1.
      001137  777771 001135             1122.               -          6,$-2.
      001140  74 04 00 00 0 001142      1123.               J          LISPT1+1.
      001141  000000 001137             1124.       LISPT1  +          0,$-2.
      001142  10 16 02 00 0 000000      1125.               LA,U       XV,0.
      001143  27 16 14 00 0 000000      1126.               LX,U       XX,ENDCHK.
      001144  25 16 14 00 0 000000      1127.               ANX,U      XX,ENTRY.
      001145  14 00 02 14 0 000000      1128.               AA         XV,ENTRY,XX.
      001146  70 00 14 00 0 001145      1129.               JGD        XX,$-1.
      001147  53 00 02 00 0 000004      1130.               TNE        XV,CKSUM.
      001150  74 04 00 00 0 001022      1131.               J          LISPRT.
      001151  10 16 00 00 0 000344      1132.               P$RINT     (PF 0,2,5,MESS3).
      001152  10 00 00 14 0 000000
U     001153  72 11 00 00 0 000000
      001154  74 04 00 00 0 001204      1133.               J          ABORT.
      001155  303630311222              1134.       MESS3   'SYSTEM WAS CLOBBERED, SHAME!'
      001156  053406300510
      001157  212407071227
      001160  121156053015
      001161  062212550505
                                        1135.       . CONTINGENCY ROUTINE:  HANDLES IOPR, IGDM, IRST, IINT & IERR
                                        1136.       $(6)
    6 000027  000000000000              1137.               +0
      000030  000000000000              1138.               +0
      000031  000000000000              1139.       CONTIN  +0
      000032  000000000000              1140.               +0
      000033  74 04 00 00 0 001162      1141.               J          CONRT.
      000034  000000000000              1142.       CCOUNT  +0
                                        1143.       $(8)
    8 000020                            1144.       XREGS   RES        16.
                                        1145.       $(3)
    3 001162  71 12 02 00 0 000027      1146.       CONRT   DS         XV,CONTIN-2.
      001163  10 00 02 00 0 000034      1147.               LA         XV,CCOUNT.
      001164  14 16 02 00 0 000001      1148.               AA,U       XV,1.
      001165  01 00 02 00 0 000034      1149.               SA         XV,CCOUNT.
      001166  55 16 02 00 0 000012      1150.               TG,U       XV,10.
      001167  74 04 00 00 0 001204      1151.               J          ABORT.
U     001170  72 11 00 00 0 000000      1152.               ER         CEND$.
      001171  10 13 02 00 0 000031      1153.               LA,S3      XV,CONTIN.
      001172  53 16 02 00 0 000001      1154.               TNE,U      XV,1.
      001173  74 04 00 00 0 001256      1155.               J          IOPR.               ILLEGAL OP
      001174  53 16 02 00 0 000002      1156.               TNE,U      XV,2.
      001175  74 04 00 00 0 001264      1157.               J          IGDM.               GUARD MODE
      001176  53 16 02 00 0 000006      1158.               TNE,U      XV,6.
      001177  74 04 00 00 0 004570      1159.               J          GOBAK.              RESTART
      001200  53 16 02 00 0 000010      1160.               TNE,U      XV,010.
      001201  74 04 00 00 0 001242      1161.               J          IINT.               CONSOLE INTERRUPT
      001202  53 16 02 00 0 000012      1162.               TNE,U      XV,012.
      001203  74 04 00 00 0 001207      1163.               J          IERR.               ERROR
      001204  10 16 00 00 0 000000      1164.       ABORT   LA,U       XX,0.               OTHER
U     001205  72 11 00 00 0 000000      1165.               ER         IALL$.
U     001206  72 11 00 00 0 000000      1166.               ER         ERR$
      001207  10 15 02 00 0 000031      1167.       IERR    LA,S1      XV,CONTIN.
      001210  53 16 02 00 0 000001      1168.               TNE,U      XV,1.
      001211  74 04 00 00 0 001222      1169.               J          IOERR.              I/O ERROR
      001212  53 16 02 00 0 000002      1170.               TNE,U      XV,2.
      001213  74 04 00 00 0 001226      1171.               J          SYMBERR.            SYMBIONT ERROR
      001214  52 16 02 00 0 000004      1172.               TE,U       XV,4.
      001215  74 04 00 00 0 001204      1173.               J          ABORT.
      001216  74 13 07 00 0 003356      1174.               EDIT
      001217  122705122727              1175.               'ER ERROR @'
      001220  242705000505
      001221  74 04 00 00 0 001235      1176.               J          CONTY.
      001222  74 13 07 00 0 003356      1177.       IOERR   EDIT
      001223  167424051227              1178.               'I/O ERROR @'
      001224  272427050005
      001225  74 04 00 00 0 001235      1179.               J          CONTY.
      001226  10 14 02 00 0 000031      1180.       SYMBERR L,S2       XV,CONTIN.
      001227  53 16 02 00 0 000005      1181.               TNE,U      XV,5.
      001230  74 04 00 00 0 004570      1182.               J          GOBAK.              IGNORE BAD ADD CARD
      001231  05 00 00 00 0 000045      1183.               SZ         PFNAM.              CLOSE PRINT FILE
      001232  74 13 07 00 0 003356      1184.               EDIT
      001233  303622070512              1185.               'SYMB ERROR @'
      001234  272724270500
      001235  10 14 02 00 0 000031      1186.       CONTY   L,S2       XV,CONTIN.
      001236  74 13 04 00 0 003066      1187.               LMJ        XL,OCTOUT.
      001237  74 13 07 00 0 003357      1188.               EDITA
      001240  530505050005              1189.               ':   @'
      001241  74 04 00 00 0 001275      1190.               J          CONPA.
      001242  10 15 02 00 0 000031      1191.       IINT    LA,S1      XV,CONTIN.
      001243  52 16 02 00 0 000002      1192.               TE,U       XV,2.
      001244  74 04 00 00 0 001204      1193.               J          ABORT.
      001245  50 00 00 00 0 000007      1194.               TZ         GTIME+1.
      001246  74 04 00 00 0 001252      1195.               J          $+4.
      001247  05 13 00 00 0 000000      1196.       IINTDO  SZ         INTFLG.
      001250  11 16 04 00 0 000003      1197.               LN,U       XA,3.
      001251  74 04 00 00 0 001475      1198.               J          UNWIND.
      001252  71 13 02 00 0 000027      1199.               DL         XV,CONTIN-2.        IINT DURING GARB. COLL.
      001253  05 04 00 00 0 000031      1200.               SZ,LH      CONTIN.
      001254  04 13 17 00 0 000000      1201.               S          XFLAG,INTFLG.       SET FLAG TO DO IT LATER
      001255  74 04 00 00 1 000031      1202.               J          *CONTIN.
      001256  74 13 07 00 0 003356      1203.       IOPR    EDIT
      001257  162121121406              1204.               'ILLEGAL INSTRUCTION:  @'
      001260  210516233031
      001261  273210311624
      001262  235305050005
      001263  74 04 00 00 0 001275      1205.               J          CONPA.
      001264  10 17 02 01 0 000000      1206.       IGDM    LA,XU      XV,0,XT.
      001265  74 03 02 00 0 001303      1207.               JN         XV,OVER.            DID VALUE STACK OVERFLOW?
      001266  10 17 02 03 0 040000      1208.               LA,XU      XV,CSTAK,XC.
      001267  55 00 02 00 0 000002      1209.               TG         XV,CSTKE.           IS CONTROL STACK OK?
      001270  74 04 00 00 0 001303      1210.               J          OVER.
      001271  74 13 07 00 0 003356      1211.               EDIT
      001272  143206271105              1212.               'GUARD MODE: @'
      001273  222411125305
      001274  000505050505
      001275  10 03 02 00 0 000031      1213.       CONPA   LA,RH      XV,CONTIN.
      001276  74 13 04 00 0 003066      1214.               LMJ        XL,OCTOUT.
      001277  74 13 14 00 0 003475      1215.               LMJ        XX,SENDDB.
      001300  50 00 00 00 0 000007      1216.               TZ         GTIME+1.
      001301  74 04 00 00 0 001204      1217.               J          ABORT.              QUIT IF ERROR WHILE SYSTEM MARKED
      001302  74 04 00 00 0 001416      1218.               J          SYSERR.
      001303  10 16 00 00 0 000345      1219.       OVER    P$RINT     (PF 0,2,3,MESS5).
      001304  10 00 00 14 0 000000
U     001305  72 11 00 00 0 000000
      001306  50 00 00 00 0 000007      1220.               TZ         GTIME+1
      001307  74 04 00 00 0 000765      1221.               J          FINIS
                                        1222.       LOADXRS.
      001310  27 00 01 00 0 000021      1223.       I       DO         X11 , L I,XREGS+I.
      001311  27 00 02 00 0 000022
      001312  27 00 03 00 0 000023
      001313  27 00 04 00 0 000024
      001314  27 00 05 00 0 000025
      001315  27 00 06 00 0 000026
      001316  27 00 07 00 0 000027
      001317  27 00 10 00 0 000030
      001320  27 00 11 00 0 000031
      001321  27 00 12 00 0 000032
      001322  27 00 13 00 0 000033
      001323  74 04 00 00 0 001031      1224.               J          LISPL.
      001324  303106102005              1225.       MESS5   'STACK OVERFLOW'
      001325  243312271321
      001326  243405050505              1226.       /. REQUEST VALUE FROM USER (ABORT IF IN BATCH MODE).
    3 001327  51 15 00 00 0 000213      1227.       EVREAD  TNZ        CMODE.              CONVERSATIONAL MODE?
      001330  74 04 00 00 0 001416      1228.               J          SYSERR.
      001331  74 13 07 00 0 003356      1229.               EDIT
      001332  151221255300              1230.               'HELP:@'
      001333  74 13 14 00 0 003475      1231.               LMJ        XX,SENDDB.
      001334  26 16 06 00 0 000000      1232.       EVR1    LXM,U      XI,0.
      001335  06 00 01 03 2 040000      1233.               LETS       READ.               READ VALUE
      001336  23 16 03 00 0 003510
      001337  04 00 03 01 2 040000
      001340  04 12 17 00 0 000213      1234.               S          XFLAG,EVMODE.
      001341  04 11 17 00 0 000213      1235.               S          XFLAG,AFSKIP.
      001342  74 13 07 00 0 004627      1236.               LMJ        XR,RESETL.
      001343  74 13 04 00 0 000004      1237.               CALLR.                         READ EXPRESSION
      001344  01 00 02 01 2 040000      1238.               STORE      1.
      001345  01 00 02 02 0 037777
      001346  26 16 01 02 0 000000      1239.               LXM,U      XT,0,XF.
      001347  25 16 01 00 0 000002      1240.               AN,U       XT,2.
      001350  05 12 00 00 0 000213      1241.               SZ         EVMODE.
      001351  74 04 00 00 0 001642      1242.               J          EVAL-1.             EVALUATE IT
      001352  06 00 01 03 2 040000      1243.       REQUEST LETS       PRINT
      001353  23 16 03 00 0 002531
      001354  04 00 03 01 2 040000
      001355  12 03 02 02 0 037777      1244.               MOVE       1
      001356  12 16 02 00 0 000001
      001357  01 00 02 01 2 040000
      001360  01 00 02 02 0 040000
      001361  74 13 04 00 0 000004      1245.               CALLR
      001362  74 04 00 00 0 001334      1246.               J          EVR1
                                        1247.       /. INITIATE BACKTRACE AFTER CALL TO :BACK
    3 001363  11 16 04 00 0 000006      1248.       BACK    LN,U       XA,6.
      001364  05 00 00 00 0 000045      1249.               SZ         PFNAM.
      001365  10 15 03 00 0 000221      1250.               L,S1       XV+1,IMAGE+2.
      001366  10 04 02 00 0 000035      1251.               L          XV,BTFLGP.
      001367  53 16 03 00 0 000005      1252.               TNE,U      XV+1,' '.
      001370  74 04 00 00 0 001476      1253.               J          UNWIND+1.           DEFAULT 
      001371  12 03 02 02 0 040001      1254.               LOAD       0777776.
      001372  12 16 02 00 3 177776
      001373  53 16 03 00 0 000031      1255.               TNE,U      XV+1,'T'.
      001374  74 04 00 00 0 001476      1256.               J          UNWIND+1.           FULL
      001375  15 16 03 00 0 000060      1257.               AN,U       XV+1,'0'.
      001376  01 00 03 00 0 000016      1258.               S          XV+1,XV.
      001377  74 04 00 00 0 001476      1259.               J          UNWIND+1.
                                        1260.       . INITIATE BACKTRACE AFTER CALL TO :PEEK
      001400  12 03 02 02 0 036364      1261.       PEEK    LOAD       PEEKT.
      001401  12 16 02 00 0 001414
      001402  74 13 04 00 0 000034      1262.               LMJ        XL,TRAP.
      001403  11 16 04 00 0 000007      1263.               LN,U       XA,7.
      001404  74 13 04 00 0 001364      1264.               LMJ        XL,BACK+1.
      001405  74 13 04 00 0 000043      1265.       PEEKDN  LMJ        XL,UNTRAP.
      001406  74 13 07 00 0 003356      1266.               EDIT
      001407  532512122005              1267.               ':PEEK COMPLETED@'
      001410  102422252112
      001411  311211000505
      001412  74 13 14 00 0 003450      1268.               LMJ        XX,SENDIT.
      001413  74 04 00 00 0 004426      1269.               J          RCARD.
      001414  777774 000000             1270.       PEEKT   -          3,0.
      001415  74 04 00 00 0 001406      1271.               J          PEEKDN+1.
                                        1272.       . INITIATE BACKTRACE AFTER SYSTEM ERROR
      001416  10 16 04 00 0 000000      1273.       SYSERR  L,U        XA,0.
      001417  10 00 02 00 0 000003      1274.               L          XV,OPSHUN.
      001420  44 16 02 00 0 000004      1275.               TEP,U      XV,1*/('Z'-'X')
      001421  74 04 00 00 0 001204      1276.               J          ABORT.
      001422  74 13 07 00 0 004627      1277.               LMJ        XR,RESETL.
      001423  10 03 02 00 0 000035      1278.               L          XV,BTFLAG.
      001424  74 04 00 00 0 001476      1279.               J          UNWIND+1.
                                        1280.       . INITIATE BACKTRACE AFTER CALL TO ERROR
      001425  05 00 00 01 2 040000      1281.       ERROR   SZ         STACK,*XT.
      001426  12 03 02 02 0 037777      1282.               LOAD       1.
      001427  12 16 02 00 0 000001
      001430  10 00 04 16 0 000000      1283.               L          XA,0,XV.
      001431  12 03 02 02 0 037776      1284.               LOAD       2.
      001432  12 16 02 00 0 000002
      001433  74 00 02 00 0 001476      1285.               JZ         XV,UNWIND+1.
      001434  53 16 02 00 0 001114      1286.               TNE,U      XV,TRU.
      001435  12 03 02 02 0 037432      1287.               LOAD       (0777776).
      001436  12 16 02 00 0 000346
      001437  53 16 02 00 0 001000      1288.               TNE        XV,KNIL.
      001440  12 03 02 02 0 037431      1289.               LOAD       (0).
      001441  12 16 02 00 0 000347
      001442  10 00 02 16 0 000000      1290.               L          XV,0,XV.
      001443  74 04 00 00 0 001476      1291.               J          UNWIND+1.
                                        1292.       . SET SYSTEM BACKTRACE FLAG AND PRINT LIMITS
      001444  05 00 00 01 2 040000      1293.       BACKTR  SZ         STACK,*XT.
      001445  12 03 02 02 0 037777      1294.               LOAD       1.
      001446  12 16 02 00 0 000001
      001447  10 03 03 00 0 000035      1295.               L          XV+1,BTFLAG.
      001450  74 00 02 00 0 001472      1296.               JZ         XV,BACKDN.
      001451  53 16 02 00 0 001114      1297.               TNE,U      XV,TRU.
      001452  12 03 02 02 0 037432      1298.               LOAD       (0777776).
      001453  12 16 02 00 0 000346
      001454  53 16 02 00 0 001000      1299.               TNE        XV,KNIL.
      001455  12 03 02 02 0 037431      1300.               LOAD       (0).
      001456  12 16 02 00 0 000347
      001457  10 00 02 16 0 000000      1301.               L          XV,0,XV.
      001460  01 03 02 00 0 000035      1302.               S          XV,BTFLAG.
      001461  12 03 02 02 0 037776      1303.               LOAD       2.
      001462  12 16 02 00 0 000002
      001463  74 00 02 00 0 001472      1304.               JZ         XV,BACKDN.
      001464  12 04 00 16 0 000000      1305.               UPPER      XX.
      001465  10 00 00 14 0 000000      1306.               L          XX,0,XX.
      001466  01 04 00 00 0 000036      1307.               S,LH       XX,PLIMSB.
      001467  12 03 00 16 0 000000      1308.               LOWER      XX.
      001470  10 00 00 14 0 000000      1309.               L          XX,0,XX.
      001471  01 03 00 00 0 000036      1310.               S,RH       XX,PLIMSB.
      001472  74 00 03 00 0 006455      1311.       BACKDN  JZ         XV+1,GFAL.
      001473  74 03 03 00 0 006470      1312.               JN         XV+1,GTRU.
      001474  74 04 00 00 0 000003      1313.               J          STORIT(INTGER).
                                        1314.       $(6)
    6 000035  777776 777776             1315.               +          0777776,0777776.
              00 03 00 00 0 000035      1316.       BTFLAG  EQUF       $-1,,RH.
              00 04 00 00 0 000035      1317.       BTFLGP  EQUF       $-1,,LH.
      000036  000003 000012             1318.       PLIMSB  +          3,10.               PRINT LIMITS FOR BACKTRACE
                                        1319.       $(3)
                                        1320.       /. UNWIND STACK TO TRAP AND BACKTRACE
    3 001475  05 00 00 00 0 000016      1321.       UNWIND  SZ         XV.
      001476  06 00 04 01 2 040000      1322.               S          XL,STACK,*XT.
      001477  01 04 04 00 0 000041      1323.               S          XA,ETNUM.
      001500  01 03 02 00 0 000041      1324.               S          XV,ETBTF.
      001501  06 03 05 00 0 000042      1325.               S          XP,ETSXP.
      001502  05 04 00 00 0 000042      1326.               SZ         BTLAL.
      001503  10 03 02 00 0 000036      1327.               L,RH       XV,PLIMSB.
      001504  01 00 02 00 0 000040      1328.               S          XV,PLIML.
      001505  06 03 01 00 0 000040      1329.               S          XT,ETSXT.
      001506  10 03 01 00 0 000042      1330.       ETLOOP  L          XY,ETSXP.
      001507  74 01 01 00 0 001533      1331.               JNZ        XY,ETCHEK.
      001510  26 16 01 01 0 000001      1332.               POP.                           TRAP NOT FOUND
      001511  11 16 04 00 0 000007      1333.               LN,U       XA,7.
      001512  52 04 04 00 0 000041      1334.               TE         XA,ETNUM.
      001513  74 04 00 00 0 001516      1335.               J          $+3.                DO A NO-TRAP TRAP
      001514  27 00 04 01 0 040000      1336.               L          XL,STACK,XT.        WE'RE :PEEKING
      001515  74 04 00 04 0 000000      1337.               J          0,XL.
      001516  74 13 07 00 0 003356      1338.               EDIT
      001517  122727242705              1339.               'ERROR @'
      001520  000505050505
      001521  10 04 02 00 0 000041      1340.               L          XV,ETNUM.
      001522  74 13 04 00 0 003102      1341.               LMJ        XL,INTOUT.
      001523  74 13 07 00 0 003357      1342.               EDITA
      001524  052324310513              1343.               ' NOT FOUND@'
      001525  243223110005
      001526  74 13 14 00 0 003475      1344.               LMJ        XX,SENDDB.
      001527  11 16 04 00 0 000004      1345.               LN,U       XA,4.
      001530  53 04 04 00 0 000041      1346.               TNE        XA,ETNUM.
      001531  74 04 00 00 0 001204      1347.               J          ABORT.
      001532  74 04 00 00 0 001417      1348.               J          SYSERR+1.
      001533  10 03 00 00 0 000040      1349.       ETCHEK  L          XX,ETSXT.
      001534  14 16 00 00 0 000001      1350.               A,U        XX,1.
      001535  01 03 00 00 0 000040      1351.               S          XX,ETSXT.
      001536  52 04 00 15 0 040001      1352.               TE,LH      XX,CSTAK+1,XY.      IS THIS A TRAP POINT?
      001537  74 04 00 00 0 001575      1353.               J          ETNEXT.
      001540  10 03 04 15 0 040000      1354.               L,RH       XA,CSTAK,XY.
      001541  01 03 04 00 0 000042      1355.               S          XA,ETSXP.
      001542  10 03 02 14 0 040000      1356.               L,RH       XV,STACK,XX.
      001543  42 16 02 00 1 177600      1357.               GETYPE.
      001544  73 02 03 00 0 000007
      001545  10 13 03 17 0 000040
      001546  74 00 03 00 0 001561      1358.               JZ         XV+1,ETLIST.
      001547  53 16 02 00 0 001000      1359.               TNE        XV,KNIL.
      001550  74 04 00 00 0 001575      1360.               J          ETNEXT.
      001551  74 00 02 00 0 001575      1361.       ETLOOK  JZ         XV,ETNEXT.
      001552  10 04 04 16 0 000000      1362.               L,LH       XA,0,XV.
      001553  26 16 04 16 0 000001      1363.               LXM,U      XL,1,XV.
      001554  12 03 02 16 0 000000      1364.               LM,RH      XV,0,XV.
      001555  52 04 04 00 0 000325      1365.               TE,LH      XA,(J BADI).
      001556  52 04 04 00 0 000041      1366.               TE         XA,ETNUM.           IS THIS THE TRAP WE WANT?
      001557  74 04 00 00 0 001551      1367.               J          ETLOOK.
      001560  74 04 00 00 0 001570      1368.               J          ETTRAP.
      001561  12 04 00 16 0 000000      1369.       ETLIST  LM,LH      XX,0,XV.            XX = (TNUM TEXP)
      001562  12 04 03 14 0 000000      1370.               LM,LH      XV+1,0,XX.
      001563  10 00 04 17 0 000000      1371.               L          XA,0,XV+1.
      001564  52 04 04 00 0 000041      1372.               TE         XA,ETNUM.
      001565  74 04 00 00 0 001572      1373.               J          ETLIST1.
      001566  12 03 02 14 0 000000      1374.               LM,RH      XV,0,XX.
      001567  26 16 04 00 0 002122      1375.               LXM,U      XL,EVDO-1.
      001570  27 16 05 15 0 000000      1376.       ETTRAP  L,U        XP,0,XY.
      001571  74 04 00 00 0 000043      1377.               J          UNTRAP.
      001572  12 03 02 16 0 000000      1378.       ETLIST1 LM,RH      XV,0,XV.
      001573  52 16 02 00 0 001000      1379.               TE         XV,KNIL.
      001574  74 04 00 00 0 001561      1380.               J          ETLIST.
      001575  10 03 04 00 0 000041      1381.       ETNEXT  L          XA,ETBTF.
      001576  74 00 04 00 0 001506      1382.               JZ         XA,ETLOOP.          NO BACKTRACE
      001577  10 03 00 00 0 000040      1383.               L          XX,ETSXT.
      001600  10 04 02 14 0 040000      1384.               L,LH       XV,STACK,XX.
      001601  74 03 02 00 0 001607      1385.               JN         XV,ETCALL.          PRINT EXPRESSION
      001602  74 02 04 00 0 001506      1386.               JP         XA,ETLOOP.          ABBREVIATED BACKTRACE
      001603  74 00 02 00 0 001620      1387.               JZ         XV,BTCFO.
      001604  53 04 02 00 0 000042      1388.               TNE        XV,BTLAL.           DIFFERENT ASSOCIATION LIST?
      001605  74 04 00 00 0 001620      1389.               J          BTCFO.
      001606  01 04 02 00 0 000042      1390.               S          XV,BTLAL.
      001607  74 03 04 00 0 001612      1391.       ETCALL  JN         XA,$+3.
      001610  15 16 04 00 0 000001      1392.               AN,U       XA,1.
      001611  01 03 04 00 0 000041      1393.               S          XA,ETBTF.
      001612  74 13 07 00 0 003356      1394.               EDIT
      001613  057575750500              1395.               ' ... @'
      001614  10 03 00 00 0 000040      1396.               L          XX,ETSXT.
      001615  12 04 02 14 0 040000      1397.               LM,LH      XV,STACK,XX.
      001616  74 13 04 00 0 001630      1398.               LMJ        XL,BTPRIN.
      001617  74 13 14 00 0 003450      1399.               LMJ        XX,SENDIT.
      001620  10 04 04 00 0 000003      1400.       BTCFO   L,LH       XA,OPSHUN.
      001621  45 16 04 00 0 000004      1401.               TOP,U      XA,1*/('Z'-'F'-18).
      001622  74 04 00 00 0 001506      1402.               J          ETLOOP.
      001623  10 03 00 00 0 000040      1403.               L          XX,ETSXT.
      001624  12 03 02 14 0 040000      1404.               LM,RH      XV,STACK,XX.
      001625  74 13 04 00 0 001630      1405.               LMJ        XL,BTPRIN.
      001626  74 13 14 00 0 003450      1406.               LMJ        XX,SENDIT.
      001627  74 04 00 00 0 001506      1407.               J          ETLOOP.
      001630  06 00 01 03 2 040000      1408.       BTPRIN  LETS       PRIN11.
      001631  23 16 03 00 0 002551
      001632  04 00 03 01 2 040000
      001633  01 00 02 01 2 040000      1409.               STORE.
      001634  01 00 02 02 0 040000
      001635  10 04 02 00 0 000036      1410.               L,LH       XV,PLIMSB.
      001636  01 00 02 01 2 040000      1411.               STORE.
      001637  01 00 02 02 0 040000
      001640  05 00 00 00 0 000045      1412.               SZ         PFNAM.
      001641  74 04 00 00 0 000004      1413.               J          ENTRYR.
                                        1414.       $(8)
    8 000040                            1415.               RES        3.
              00 03 00 00 0 000040      1416.       ETSXT   EQUF       $-3,,RH.
              00 04 00 00 0 000041      1417.       ETNUM   EQUF       $-2,,LH.
              00 03 00 00 0 000041      1418.       ETBTF   EQUF       $-2,,RH.
              00 03 00 00 0 000042      1419.       ETSXP   EQUF       $-1,,RH.
              00 04 00 00 0 000042      1420.       BTLAL   EQUF       $-1,,LH.
                                        1421.       $(3)
                                        1422.       /. EVALUATE EXPRESSION
    3 001642  26 16 04 00 0 000011      1423.               LXM,U      XL,EXIT.
      001643  12 03 02 02 0 037777      1424.       EVAL    LOAD       1
      001644  12 16 02 00 0 000001
      001645  42 16 02 00 1 177600      1425.               GETYPE
      001646  73 02 03 00 0 000007
      001647  10 13 03 17 0 000040
      001650  74 00 03 00 0 001660      1426.               JZ         XV+1,EVALNA.        IF NON-ATOMIC
      001651  52 16 03 00 0 000007      1427.               TE,U       XV+1,SYMBOL.        IS IT AN ATOMIC SYMBOL?
      001652  74 04 00 00 0 000011      1428.               RETURN
      001653  50 04 00 16 0 000000      1429.               TZ,LH      0,XV.               NO CONSTANT BINDING?
      001654  74 04 00 00 0 006413      1430.               J          TCAR+1.
      001655  74 13 04 00 0 002447      1431.               LMJ        XL,LOOKUP.          FIND ON ASSOCIATION LIST
      001656  10 16 02 00 0 000000      1432.               L,U        XV,0.
      001657  74 04 00 00 0 000011      1433.               RETURN.
      001660  02 04 02 02 0 037777      1434.       EVALNA  SNA,LH     XV,STACK-1,XF.      SAVE EXPRESSION FOR BACK-TRACE
      001661  12 03 03 16 0 000000      1435.               LOWER      XV+1.               (CDR FORM)
      001662  12 04 02 16 0 000000      1436.               UPPER      XV.                 (CAR FORM)
      001663  01 03 03 02 0 037777      1437.               SA,RH      XV+1,STACK-1,XF.
      001664  42 16 02 00 1 177600      1438.               GETYPE
      001665  73 02 03 00 0 000007
      001666  10 13 03 17 0 000040
      001667  53 16 03 00 0 000007      1439.               TNE,U      XV+1,SYMBOL.
      001670  61 00 00 16 0 000000      1440.               TN         0,XV.
      001671  74 04 00 00 0 001674      1441.               J          $+3.                NORMAL FUNCTION
      001672  12 04 00 16 0 000000      1442.               LMA,LH     XX,0,XV.            MACRO OR SPECIAL FORM
      001673  74 04 00 14 0 000000      1443.               J          0,XX.
                                        1444.       . EVALUATE ELEMENTS OF LIST
      001674  06 00 01 03 2 040000      1445.               MARK.
      001675  74 13 04 00 0 001705      1446.               LMJ        XL,EVALC.
      001676  12 03 02 02 0 037777      1447.               LOAD       1.
      001677  12 16 02 00 0 000001
      001700  53 16 02 00 0 001000      1448.               TNE        XV,KNIL.            MORE TO EVALUATE?
      001701  74 04 00 00 0 001713      1449.               J          EVALA.              NO, APPLY FUNCTION.
      001702  12 03 04 16 0 000000      1450.       EVALD   LOWER      XA.
      001703  01 03 04 02 0 037777      1451.               SA,RH      XA,STACK-1,XF.
      001704  12 04 02 16 0 000000      1452.               UPPER      XV.
      001705  06 00 01 03 2 040000      1453.       EVALC   LETS       EVAL.
      001706  23 16 03 00 0 001643
      001707  04 00 03 01 2 040000
      001710  01 00 02 01 2 040000      1454.               STORE
      001711  01 00 02 02 0 040000
      001712  74 04 00 00 0 000000      1455.               J          ENTRY.              EVALUATE AN ELEMENT
      001713  12 03 02 02 0 037776      1456.       EVALA   LOAD       2.
      001714  12 16 02 00 0 000002
      001715  42 16 02 00 1 177600      1457.               GETYPE
      001716  73 02 03 00 0 000007
      001717  10 13 03 17 0 000040
      001720  50 15 00 17 0 000036      1458.               TZ         NFLG1,XV+1.         PROPER TYPE FOR FUNCTION?
      001721  74 04 00 00 0 000020      1459.               J          ENTRYI.
      001722  74 13 04 00 0 007052      1460.               LMJ        XL,BADFN.           NO: GO GET A FUNCTION
      001723  01 00 02 01 2 040000      1461.               STORE      2.
      001724  01 00 02 02 0 037776
      001725  74 04 00 00 0 000020      1462.               J          ENTRYI.
                                        1463.       /. APPLY LAMBDA EXPRESSION TO ARGUMENTS
    3 001726  46 04 04 04 0 000000      1464.               LXI,LH     XL,0,XL.            SET ENVIRONMENT
      001727  12 03 02 04 0 000000      1465.       APPLY   LMA,RH     XV,0,XL.            LAMBDA EXPRESSION ADDRESS
      001730  12 04 02 16 0 000000      1466.               CHAIN      LH.
      001731  46 00 16 02 0 040000      1467.               LXI        XV,STACK,XF.
      001732  01 00 02 03 2 040000      1468.               SA         XV,CSTAK,*XC.
      001733  06 03 04 02 0 040000      1469.               S,RH       XL,STACK,XF.
      001734  27 00 15 00 0 000002      1470.               LX         XY,XF.
      001735  42 16 02 00 1 177600      1471.       APLOOP  GETYPE
      001736  73 02 03 00 0 000007
      001737  10 13 03 17 0 000040
      001740  74 01 03 00 0 001766      1472.               JNZ        XV+1,APPD.          NO MORE VARIABLES?
      001741  12 03 03 16 0 000000      1473.               LOWER      XV+1.
      001742  01 03 03 03 0 037777      1474.               SA,RH      XV+1,CSTAK-1,XC.
      001743  12 04 02 16 0 000000      1475.               UPPER      XV.
      001744  12 03 03 15 2 037777      1476.               LMA,RH     XV+1,STACK-1,*XY.
      001745  52 00 01 00 0 000001      1477.               TE         XY,XT.              MISSING ARGUMENT?
      001746  74 04 00 00 0 001763      1478.               J          APP2.
      001747  74 13 04 00 0 002004      1479.               LMJ        XL,APPBAD.
      001750  051006232324              1480.               ' CANNOT BE BOUND BECAUSE OF MISSING ARGUMENT@'
      001751  310507120507
      001752  243223110507
      001753  121006323012
      001754  052413052216
      001755  303016231405
      001756  062714322212
      001757  233100050505
      001760  74 13 04 00 0 002022      1481.               LMJ        XL,APPBX.
      001761  10 16 03 00 0 000000      1482.               LA,U       XV+1,0.
      001762  26 16 15 15 0 000001      1483.               LXM,U      XY,1,XY.
      001763  74 13 04 00 0 002026      1484.       APP2    LMJ        XL,BINDER.          ADD TO A-LIST
      001764  10 03 02 03 0 037777      1485.               LA,RH      XV,CSTAK-1,XC.
      001765  74 04 00 00 0 001735      1486.               J          APLOOP.
      001766  46 16 16 00 0 000000      1487.       APPD    LXI,U      XV,0.
      001767  53 16 02 00 0 001000      1488.               TNE        XV,KNIL.
      001770  74 04 00 00 0 001774      1489.               J          APPX.
      001771  74 13 04 00 0 000052      1490.               LMJ        XL,LISTEM.          LIST REST OF ARGS
      001772  12 03 02 03 0 037777      1491.               LMA,RH     XV,CSTAK-1,XC.
      001773  74 13 04 00 0 002026      1492.               LMJ        XL,BINDER.          ADD TO A-LIST
      001774  27 00 14 02 0 040000      1493.       APPX    LX         XX,STACK,XF.
      001775  10 04 04 03 0 037777      1494.               LA,LH      XA,CSTAK-1,XC.
      001776  01 03 04 02 0 040000      1495.               SA,RH      XA,STACK,XF.
      001777  12 03 02 14 0 000000      1496.               LMA,RH     XV,0,XX.
      002000  12 03 02 16 0 000000      1497.               CHAIN      RH.
      002001  27 00 01 00 0 000002      1498.               LX         XT,XF.
      002002  25 16 01 00 0 000002      1499.               ANX,U      XT,2.
      002003  70 00 03 00 0 002122      1500.               JGD        XC,EVDO-1.
      002004  06 00 15 00 0 000043      1501.       APPBAD  SX         XY,APPS.
      002005  06 00 04 00 0 000044      1502.               SX         XL,APPS+1.
      002006  01 04 02 00 0 000044      1503.               SA,LH      XV,APPS+1.
      002007  06 00 01 03 2 040000      1504.               LETS       PRIN1.
      002010  23 16 03 00 0 002544
      002011  04 00 03 01 2 040000
      002012  01 00 02 01 2 040000      1505.               STORE
      002013  01 00 02 02 0 040000
      002014  74 13 07 00 0 003356      1506.               EDIT
      002015  340627231623              1507.               'WARNING, @'
      002016  145605000505
      002017  74 13 04 00 0 000004      1508.               CALLR
      002020  27 00 07 00 0 000044      1509.               LX         XR,APPS+1.
      002021  74 04 00 00 0 003357      1510.               J          EDCHAR.
      002022  74 13 14 00 0 003475      1511.       APPBX   LMJ        XX,SENDDB.
      002023  27 00 15 00 0 000043      1512.               LX         XY,APPS.
      002024  10 04 02 00 0 000044      1513.               LA,LH      XV,APPS+1.
      002025  74 04 00 04 0 000000      1514.               J          0,XL.
                                        1515.       /. EFFECT BINDING
    3 002026  06 00 04 00 0 000045      1516.       BINDER  SX         XL,APPS+2.
      002027  01 00 03 00 0 000043      1517.               SA         XV+1,APPS.
      002030  42 16 02 00 1 177600      1518.               GETYPE
      002031  73 02 03 00 0 000007
      002032  10 13 03 17 0 000040
      002033  53 16 03 00 0 000007      1519.               TNE,U      XV+1,SYMBOL.        NOT ATOMIC SYMBOL?
      002034  50 04 00 16 0 000000      1520.               TZ,LH      0,XV.               NOT A CONSTANT?
      002035  74 04 00 00 0 002045      1521.               J          BADVAR.
      002036  10 00 03 00 0 000043      1522.               LA         XV+1,APPS.
      002037  74 13 04 00 0 000000      1523.               NODE       CONSED.             (VAR . VALUE)
      002040  12 04 03 00 0 000045      1524.               LMA,LH     XV+1,APPS+2.
      002041  74 13 04 00 0 000000      1525.               NODE       CONSED.             ADD TO ASSOCIATION LIST
      002042  01 04 02 00 0 000045      1526.               SA,LH      XV,APPS+2.
      002043  27 00 04 00 0 000045      1527.       BINDRX  LX         XL,APPS+2.
      002044  74 04 00 04 0 000000      1528.               J          0,XL.
      002045  74 13 04 00 0 002004      1529.       BADVAR  LMJ        XL,APPBAD.
      002046  051630050623              1530.               ' IS AN ILLEGAL VARIABLE@'
      002047  051621211214
      002050  062105330627
      002051  160607211200
      002052  74 13 04 00 0 002022      1531.               LMJ        XL,APPBX.
      002053  74 04 00 00 0 002043      1532.               J          BINDRX.
                                        1533.       $(8)
    8 000043                            1534.       APPS    RES        3
                                        1535.       $(3)
                                        1536.       . RETURN CURRENT ASSOCIATION LIST
    3 002054  06 00 04 01 0 040000      1537.       ALIST   S          XL,STACK,XT.
      002055  12 04 02 01 0 040000      1538.               LM,LH      XV,STACK,XT.
      002056  74 04 00 00 0 000011      1539.               RETURN.
                                        1540.       /. SPECIAL FORMS
                                        1541.       . LAMBDA
    3 002057  12 03 02 02 0 037777      1542.       EVLAM   LOAD       1.
      002060  12 16 02 00 0 000001
      002061  10 16 03 00 0 001727      1543.               LA,U       XV+1,APPLY.
      002062  74 13 04 00 0 000022      1544.               NODE       LINKER.             BUILD LINK TO INTERPRETER
      002063  74 04 00 00 0 000011      1545.               RETURN
                                        1546.       . LAMDA
      002064  27 00 16 00 0 000004      1547.       EVFLAM  LX         XV,XL.
      002065  26 00 16 02 0 037777      1548.               LXM        XV,STACK-1,XF.
      002066  10 16 03 00 0 001726      1549.               LA,U       XV+1,APPLY-1.
      002067  74 13 04 00 0 000022      1550.               NODE       LINKER.
      002070  74 04 00 00 0 000011      1551.               RETURN
                                        1552.       . QUOTE
      002071  12 03 02 02 0 037777      1553.       EVQUOT  LOAD       1.
      002072  12 16 02 00 0 000001
      002073  12 04 02 16 0 000000      1554.               CHAIN      LH.
      002074  74 04 00 00 0 000011      1555.               RETURN
                                        1556.       . COND
      002075  25 16 01 00 0 000001      1557.       EVCOND  ANX,U      XT,1.
      002076  12 03 02 02 0 037777      1558.               LOAD       1.
      002077  12 16 02 00 0 000001
      002100  53 16 02 00 0 001000      1559.               TNE        XV,KNIL.            NO MORE PAIRS
      002101  74 04 00 00 0 000011      1560.               RETURN
      002102  12 03 04 16 0 000000      1561.               LOWER      XA.                 REST OF PAIRS
      002103  01 03 04 02 0 037777      1562.               SA,RH      XA,STACK-1,XF.
      002104  12 04 02 16 0 000000      1563.               UPPER      XV.                 FIRST PAIR.
      002105  12 03 04 16 0 000000      1564.               LOWER      XA.
      002106  01 00 04 02 0 037776      1565.               SA         XA,STACK-2,XF.
      002107  74 13 04 00 0 001704      1566.               LMJ        XL,EVALC-1.         EVALUATE PREDICATE
      002110  26 16 01 01 0 000001      1567.               POP.
      002111  53 16 02 00 0 001000      1568.               TNE        XV,KNIL.
      002112  74 04 00 00 0 002076      1569.               J          EVCOND+1.           NEXT IF FALSE
      002113  10 00 03 02 0 037776      1570.               LA         XV+1,STACK-2,XF.
      002114  53 16 03 00 0 001000      1571.               TNE        XV+1,KNIL.
      002115  74 04 00 00 0 000011      1572.               RETURN.
      002116  01 03 03 02 0 037777      1573.               S,RH       XV+1,STACK-1,XF.
      002117  26 16 01 01 0 000001      1574.               POP.
      002120  74 04 00 00 0 002123      1575.               J          EVDO.               EVAL REST OF PAIR
                                        1576.       . DO
      002121  01 00 02 01 2 040000      1577.               STORE      1.
      002122  01 00 02 02 0 037777
      002123  10 16 02 00 0 001000      1578.       EVDO    LA         XV,KNIL.
      002124  12 03 03 02 0 037777      1579.               LMA,RH     XV+1,STACK-1,XF.
      002125  53 16 03 00 0 001000      1580.               TNE        XV+1,KNIL.          MORE FORMS?
      002126  74 04 00 00 0 000011      1581.               RETURN
      002127  12 03 02 02 0 037777      1582.       EVDOL   LOAD       1
      002130  12 16 02 00 0 000001
      002131  12 03 04 16 0 000000      1583.               LOWER      XA.
      002132  12 04 02 16 0 000000      1584.               UPPER      XV.
      002133  53 16 04 00 0 001000      1585.               TNE        XA,KNIL.
      002134  74 04 00 00 0 002141      1586.               J          EVDOEND.            IF LAST ONE
      002135  01 03 04 02 0 037777      1587.               S,RH       XA,STACK-1,XF.
      002136  74 13 04 00 0 001705      1588.               LMJ        XL,EVALC.
      002137  26 16 01 01 0 000001      1589.               POP
      002140  74 04 00 00 0 002127      1590.               J          EVDOL.
      002141  01 00 02 02 0 037777      1591.       EVDOEND S          XV,STACK-1,XF.      CHANGE ARG TO EVAL,
      002142  27 00 01 00 0 000002      1592.               L          XT,XF.              MAKE STACK RIGHT.
      002143  25 16 01 00 0 000002      1593.               AN,U       XT,2.
      002144  74 04 00 00 0 001643      1594.               J          EVAL.               AND EVALUATE IT.
                                        1595.       . OR
      002145  12 03 02 02 0 037777      1596.       EVOR    LOAD       1
      002146  12 16 02 00 0 000001
      002147  53 16 02 00 0 001000      1597.               TNE        XV,KNIL.
      002150  74 04 00 00 0 000011      1598.               RETURN
      002151  74 13 04 00 0 001702      1599.               LMJ        XL,EVALD.
      002152  26 16 01 01 0 000001      1600.               POP
      002153  53 16 02 00 0 001000      1601.               TNE        XV,KNIL.
      002154  74 04 00 00 0 002145      1602.               J          EVOR.
      002155  74 04 00 00 0 000011      1603.               RETURN
                                        1604.       . AND
      002156  12 03 02 02 0 036664      1605.       EVAND   LOAD       TRU.
      002157  12 16 02 00 0 001114
      002160  12 03 03 02 0 037777      1606.               LMA,RH     XV+1,STACK-1,XF.
      002161  53 16 03 00 0 001000      1607.               TNE        XV+1,KNIL.
      002162  74 04 00 00 0 000011      1608.               RETURN
      002163  12 03 02 02 0 037777      1609.               LOAD       1.
      002164  12 16 02 00 0 000001
      002165  74 13 04 00 0 001702      1610.               LMJ        XL,EVALD.
      002166  26 16 01 01 0 000001      1611.               POP
      002167  52 16 02 00 0 001000      1612.               TE         XV,KNIL.
      002170  74 04 00 00 0 002157      1613.               J          EVAND+1.
      002171  74 04 00 00 0 000011      1614.               RETURN
                                        1615.       . STACK
      002172  12 03 02 02 0 037777      1616.       EVSTAK  LOAD       1.
      002173  12 16 02 00 0 000001
      002174  74 13 04 00 0 001704      1617.               LMJ        XL,EVALC-1.
      002175  26 00 01 00 0 000002      1618.               LXM        XT,XF.
      002176  27 00 07 02 0 040000      1619.               LX         XR,STACK,XF.
      002177  74 13 04 00 0 000071      1620.               LMJ        XL,STAKEM.
      002200  26 02 02 03 0 037777      1621.               LXM,H1     XF,CSTAK-1,XC.
      002201  27 00 04 00 0 000007      1622.               LX         XL,XR.
      002202  70 00 03 04 0 000000      1623.               JGD        XC,0,XL.
                                        1624.       . ATTEMPT
      002203  12 03 02 02 0 037777      1625.       EVTRY   LOAD       1.
      002204  12 16 02 00 0 000001
      002205  12 03 02 16 0 000000      1626.               LOWER      XV.
      002206  74 13 04 00 0 000034      1627.               LMJ        XL,TRAP.
      002207  06 00 01 03 2 040000      1628.               LETS       EVAL.
      002210  23 16 03 00 0 001643
      002211  04 00 03 01 2 040000
      002212  12 03 02 02 0 037777      1629.               LOAD       1.
      002213  12 16 02 00 0 000001
      002214  12 04 02 16 0 000000      1630.               UPPER      XV.
      002215  01 00 02 01 2 040000      1631.               STORE
      002216  01 00 02 02 0 040000
      002217  74 13 04 00 0 000004      1632.               CALLR.
      002220  74 13 04 00 0 000043      1633.               LMJ        XL,UNTRAP.
      002221  74 04 00 00 0 000011      1634.               RETURN.
                                        1635.       /. YE OLDE PROGRAMME FEATURE
    3 002222  12 03 02 02 0 037777      1636.       EVPROG  LOAD       1
      002223  12 16 02 00 0 000001
      002224  12 03 04 16 0 000000      1637.               LOWER      XA
      002225  01 00 04 01 2 040000      1638.               SA         XA,STACK,*XT.
      002226  01 03 04 02 0 037777      1639.               SA,RH      XA,STACK-1,XF.
      002227  12 04 02 16 0 000000      1640.               UPPER      XV
      002230  01 00 02 01 2 040000      1641.               STORE
      002231  01 00 02 02 0 040000
      002232  53 16 02 00 0 001000      1642.       EVPRV   TNE        XV,KNIL.
      002233  74 04 00 00 0 002257      1643.               J          EVPRS.
      002234  12 03 04 16 0 000000      1644.               LOWER      XA
      002235  01 00 04 01 0 040001      1645.               SA         XA,STACK+1,XT.
      002236  12 04 02 16 0 000000      1646.               UPPER      XV
      002237  42 16 02 00 1 177600      1647.               GETYPE
      002240  73 02 03 00 0 000007
      002241  10 13 03 17 0 000040
      002242  74 01 03 00 0 002253      1648.               JNZ        XV+1,EVPRV1.
      002243  12 04 04 16 0 000000      1649.               UPPER      XA.
      002244  01 00 04 01 2 040000      1650.               SA         XA,STACK,*XT.
      002245  12 03 02 16 0 000000      1651.               LOWER      XV
      002246  74 13 04 00 0 001704      1652.               LMJ        XL,EVALC-1.         GET INITIAL VALUE
      002247  10 00 03 00 0 000016      1653.               LA         XV+1,XV.
      002250  10 00 02 01 0 040002      1654.               LA         XV,STACK+2,XT.
      002251  26 16 01 01 0 000002      1655.               LXM,U      XT,2,XT.
      002252  74 04 00 00 0 002254      1656.               J          $+2.
      002253  10 16 03 00 0 001000      1657.       EVPRV1  LA         XV+1,KNIL.
      002254  74 13 04 00 0 002026      1658.               LMJ        XL,BINDER.          ADD TO A-LIST
      002255  10 00 02 01 0 040001      1659.               LA         XV,STACK+1,XT.
      002256  74 04 00 00 0 002232      1660.               J          EVPRV.
      002257  26 16 01 01 0 000001      1661.       EVPRS   POP
      002260  10 16 02 00 0 002317      1662.               L,U        XV,PTRAP.
      002261  74 13 04 00 0 000034      1663.               LMJ        XL,TRAP.
      002262  12 03 02 02 0 037777      1664.       EVPRL   LOAD       1.
      002263  12 16 02 00 0 000001
      002264  52 16 02 00 0 001000      1665.               TE         XV,KNIL.
      002265  74 04 00 00 0 002270      1666.               J          $+3.
      002266  74 13 04 00 0 000043      1667.               LMJ        XL,UNTRAP.
      002267  74 04 00 00 0 000011      1668.               RETURN.
      002270  12 03 04 16 0 000000      1669.               LOWER      XA
      002271  01 03 04 02 0 037777      1670.               SA,RH      XA,STACK-1,XF.
      002272  12 04 02 16 0 000000      1671.               UPPER      XV.
      002273  42 16 02 00 1 177600      1672.               GETYPE
      002274  73 02 03 00 0 000007
      002275  10 13 03 17 0 000040
      002276  74 01 03 00 0 002262      1673.               JNZ        XV+1,EVPRL.
      002277  74 13 04 00 0 001705      1674.               LMJ        XL,EVALC.
      002300  26 16 01 01 0 000001      1675.               POP
      002301  74 04 00 00 0 002262      1676.               J          EVPRL.
                                        1677.       /. RETURN
    3 002302  12 03 02 02 0 037777      1678.       EVRET   LOAD       1.
      002303  12 16 02 00 0 000001
      002304  12 04 02 16 0 000000      1679.               UPPER      XV.
      002305  06 00 04 00 0 000047      1680.               S          XL,PVSAVE.          SAVE ALIST
      002306  01 03 02 00 0 000047      1681.               S,RH       XV,PVSAVE.          AND EXPRESSION TO RETURN VALUE OF
      002307  11 16 04 00 0 000001      1682.               LN,U       XA,1.               THEN UNWIND STACK
      002310  74 04 00 00 0 001475      1683.               J          UNWIND.
                                        1684.        . HANDLE GO
      002311  12 03 02 02 0 037777      1685.       EVGO    LOAD       1.
      002312  12 16 02 00 0 000001
      002313  12 04 02 16 0 000000      1686.               UPPER      XV.
      002314  01 00 02 00 0 000047      1687.               S          XV,PVSAVE.
      002315  11 16 04 00 0 000002      1688.               LN,U       XA,2.
      002316  74 04 00 00 0 001475      1689.               J          UNWIND.
      002317  777775 002361             1690.       PTRAP   -          2,PTRAP1.
      002320  10 00 04 00 0 000047      1691.               L          XA,PVSAVE.
      002321  12 03 02 02 0 037776      1692.               LOAD       2
      002322  12 16 02 00 0 000002
      002323  01 00 02 01 2 040000      1693.               STORE      1
      002324  01 00 02 02 0 037777
      002325  12 03 02 02 0 037777      1694.       EVGO2   LOAD       1
      002326  12 16 02 00 0 000001
      002327  53 16 02 00 0 001000      1695.               TNE        XV,KNIL.
      002330  74 04 00 00 0 002343      1696.               J          BADGO.
      002331  12 03 03 16 0 000000      1697.               LOWER      XV+1.
      002332  01 00 03 02 0 037777      1698.               SA         XV+1,STACK-1,XF.
      002333  12 04 02 16 0 000000      1699.               UPPER      XV.
      002334  42 16 02 00 1 177600      1700.               GETYPE
      002335  73 02 03 00 0 000007
      002336  10 13 03 17 0 000040
      002337  74 00 03 00 0 002325      1701.               JZ         XV+1,EVGO2.
      002340  15 00 02 00 0 000020      1702.               ANA        XV,XA.
      002341  74 00 02 00 0 002260      1703.               JZ         XV,EVPRL-2.
      002342  74 04 00 00 0 002325      1704.               J          EVGO2.
      002343  74 13 07 00 0 003356      1705.       BADGO   EDIT
      002344  142405000505              1706.               'GO @'
      002345  06 00 01 03 2 040000      1707.               LETS       PRIN1.
      002346  23 16 03 00 0 002544
      002347  04 00 03 01 2 040000
      002350  10 00 02 00 0 000047      1708.               L          XV,PVSAVE.
      002351  01 00 02 01 2 040000      1709.               STORE.
      002352  01 00 02 02 0 040000
      002353  74 13 04 00 0 000004      1710.               CALLR.
      002354  74 13 07 00 0 003357      1711.               EDITA
      002355  051621211214              1712.               ' ILLEGAL@'
      002356  062100050505
      002357  74 13 14 00 0 003475      1713.               LMJ        XX,SENDDB.
      002360  74 04 00 00 0 001416      1714.               J          SYSERR.
                                        1715.       LISPT2.
      002361  777776 000000             1716.       PTRAP1  -          1,0.
      002362  10 03 02 00 0 000047      1717.               L,RH       XV,PVSAVE.          EXPRESSION TO RETURN
      002363  46 04 04 00 0 000047      1718.               LXI,LH     XL,PVSAVE.          ALIST CURRENT AT RETURN
      002364  74 04 00 00 0 002141      1719.               J          EVDOEND.
                                        1720.       /. ALTER BINDING ON ASSOCIATION LIST
    3 002365  12 03 02 02 0 037777      1721.       SETQ    LOAD       1.
      002366  12 16 02 00 0 000001
      002367  12 04 04 16 0 000000      1722.               UPPER      XA
      002370  01 03 04 02 0 037777      1723.               SA,RH      XA,STACK-1,XF.
      002371  12 03 02 16 0 000000      1724.               LOWER      XV.
      002372  74 13 04 00 0 001704      1725.               LMJ        XL,EVALC-1.
      002373  12 03 02 02 0 037777      1726.       SET     LOAD       1.
      002374  12 16 02 00 0 000001
      002375  12 00 03 02 0 037776      1727.               LMA        XV+1,STACK-2,XF.
      002376  71 12 02 03 0 040000      1728.               DS         XV,CSTAK,XC.
      002377  74 13 04 00 0 002447      1729.               LMJ        XL,LOOKUP.
      002400  01 16 03 00 0 000000      1730.               S,U        XV+1,0.
      002401  10 00 02 00 0 000017      1731.               L          XV,XV+1.
      002402  74 04 00 00 0 000011      1732.               RETURN
      002403  10 16 03 00 0 000000      1733.       LUSTOR  L,U        XV+1,0.
      002404  74 13 04 00 0 000000      1734.               NODE       CONSED.             CREATE BINDING
      002405  12 04 03 01 0 040001      1735.               LMA,LH     XV+1,STACK+1,XT.
      002406  12 04 04 17 0 000000      1736.               LMA,LH     XA,0,XV+1.
      002407  01 00 03 00 0 000046      1737.               SA         XV+1,LPROG.
      002410  12 03 03 17 0 000000      1738.               LMA,RH     XV+1,0,XV+1.
      002411  52 16 04 00 0 000046      1739.               TE,U       XA,LPROG.
      002412  74 04 00 00 0 002406      1740.               J          $-4.
      002413  74 13 04 00 0 000000      1741.               NODE       CONSED.
      002414  10 00 03 00 0 000046      1742.               LA         XV+1,LPROG.
      002415  01 03 02 17 0 000000      1743.               SA,RH      XV,0,XV+1.
      002416  12 04 01 16 0 000000      1744.               LM,LH      XY,0,XV.
      002417  26 16 01 01 0 000001      1745.               POP.
      002420  74 04 00 00 0 002526      1746.               J          LUGOON.
                                        1747.       $(8)
    8 000046                            1748.       LPROG   RES        1.
      000047                            1749.       PVSAVE  RES        1.
                                        1750.       $(3)
                                        1751.       . COMPILER ROUTINES FOR HANDLING FREE VARIABLES
                                        1752.       . ESTABLISH BINDING ON ASSOCIATION LIST
    3 002421  06 00 04 01 2 040000      1753.       BIND    SX         XL,STACK,*XT.
      002422  73 01 02 00 0 000044      1754.               DSC        XV,36.
      002423  74 13 04 00 0 000000      1755.               NODE       CONSED
      002424  12 04 03 01 0 040001      1756.               LMA,LH     XV+1,STACK+1,XT.
      002425  74 13 04 00 0 000000      1757.               NODE       CONSED.
      002426  01 04 02 01 0 040001      1758.               S,LH       XV,STACK+1,XT.
      002427  27 00 04 01 0 040001      1759.               L          XL,STACK+1,XT.
      002430  12 04 02 16 0 000000      1760.               CHAIN      LH.                 RETURN PNTR TO PAIR
      002431  26 16 01 01 0 000001      1761.               POP.
      002432  74 04 00 04 0 000000      1762.               J          0,XL.
                                        1763.       . REMOVE BINDINGS
      002433  74 00 03 04 0 000000      1764.       UNBIND  JZ         XV+1,0,XL.
      002434  06 00 04 01 0 040000      1765.               SX         XL,STACK,XT.
      002435  10 04 00 01 0 040000      1766.               LA,LH      XX,STACK,XT.
      002436  46 03 04 14 0 000000      1767.               LXI,RH     XL,0,XX.
      002437  15 16 03 00 0 000001      1768.               AN,U       XV+1,1.
      002440  74 04 00 00 0 002433      1769.               J          UNBIND.
                                        1770.       /. LOOKUP VARIABLE ON CURRENT ASSOCIATION LIST
    3 002441  26 03 04 04 0 000000      1771.               LXM,RH     XL,0,XL.
      002442  10 15 04 04 0 000000      1772.       LOOKIE  L,S1       XA,0,XL.            COMPILER ENTRY
      002443  53 15 04 00 0 000325      1773.               TNE,S1     XA,(J BADI).
      002444  74 04 00 00 0 002441      1774.               J          LOOKIE-1.
      002445  71 12 02 03 0 040000      1775.               DS         XV,CSTAK,XC.
      002446  10 03 02 04 0 000000      1776.               L,RH       XV,0,XL.            GET ATOM ADDRESS
      002447  06 00 04 01 0 040000      1777.       LOOKUP  S          XL,STACK,XT.
      002450  71 12 00 03 0 040002      1778.               DS         XX,CSTAK+2,XC.
      002451  10 04 00 01 0 040000      1779.               L,LH       XX,STACK,XT.        ASSOCIATION LIST
      002452  51 04 00 16 0 000000      1780.               TNZ,LH     0,XV.               IS IT BY CHANCE A CONSTANT?
      002453  74 04 00 00 0 002457      1781.               J          LULOOP.
      002454  10 16 01 16 0 000000      1782.               L,U        XY,0,XV.
      002455  46 16 15 00 0 002007      1783.               LXI,U      XY,LH*/8++XR.
      002456  74 04 00 00 0 002470      1784.               J          LUFIX+1.
      002457  53 16 00 00 0 001000      1785.       LULOOP  TNE        XX,KNIL.
      002460  74 04 00 00 0 002501      1786.               J          LUNOT.              DIDN'T FIND IT
      002461  12 04 01 14 0 000000      1787.               LM,LH      XY,0,XX.
      002462  12 03 00 14 0 000000      1788.               LM,RH      XX,0,XX.
      002463  52 04 02 15 0 000000      1789.               TE,LH      XV,0,XY.            DESIRED BINDING?
      002464  74 04 00 00 0 002457      1790.               J          LULOOP.
      002465  51 03 00 15 0 000000      1791.               TNZ,RH     0,XY.
      002466  74 04 00 00 0 002501      1792.               J          LUNOT.              IF MISSING ARGUMENT
      002467  46 16 15 00 0 001407      1793.       LUFIX   LXI,U      XY,RH*/8++XR.
      002470  27 16 07 15 0 000000      1794.               L,U        XR,0,XY.
      002471  23 00 02 00 0 000350      1795.               L          R2,(I$ 077,0,017,0,0,0).
      002472  43 00 01 04 0 000000      1796.               MLU        XY,0,XL.
      002473  01 00 02 03 0 040004      1797.               S          XY+1,CSTAK+4,XC.
      002474  05 01 00 03 0 040004      1798.               SZ,H2      CSTAK+4,XC.
      002475  71 13 02 03 0 040000      1799.               DL         XV,CSTAK,XC.
      002476  71 13 00 03 0 040002      1800.               DL         XX,CSTAK+2,XC.
      002477  72 10 00 03 0 040004      1801.               EX         CSTAK+4,XC.
      002500  74 04 00 04 0 000001      1802.               J          1,XL.
      002501  24 16 03 00 0 000004      1803.       LUNOT   A,U        XC,4.
      002502  25 16 01 00 0 000001      1804.               AN,U       XT,1.
      002503  10 15 04 04 0 000000      1805.               L,S1       XA,0,XL.
      002504  54 16 04 00 0 000007      1806.               TNG,U      XA,07.               ARE WE NOT STORING?
      002505  74 04 00 00 0 002403      1807.               J          LUSTOR.
      002506  06 00 01 03 2 040000      1808.               LETS       PRIN1.
      002507  23 16 03 00 0 002544
      002510  04 00 03 01 2 040000
      002511  01 00 02 01 2 040000      1809.               STORE
      002512  01 00 02 02 0 040000
      002513  74 13 07 00 0 003356      1810.               EDIT
      002514  322307243223              1811.               'UNBOUND @'
      002515  110500050505
      002516  74 13 04 00 0 000004      1812.               CALLR
      002517  74 13 14 00 0 003475      1813.               LMJ        XX,SENDDB.
      002520  06 00 01 03 2 040000      1814.               LETS       EVREAD.
      002521  23 16 03 00 0 001327
      002522  04 00 03 01 2 040000
      002523  74 13 04 00 0 000000      1815.               CALL
      002524  10 16 01 01 0 040001      1816.               L,U        XY,STACK+1,XT.
      002525  26 16 01 01 0 000002      1817.               LXM,U      XT,2,XT.
      002526  25 16 03 00 0 000004      1818.       LUGOON  AN,U       XC,4.
      002527  27 00 04 01 0 040000      1819.               L          XL,STACK,XT.
      002530  74 04 00 00 0 002467      1820.               J          LUFIX.
                                        1821.       /. PRINT ROUTINE
    3 002531  05 13 00 00 0 000041      1822.       PRINT   SZ         LESC.               CLEAR ESCAPE FLAG
      002532  06 00 01 03 2 040000      1823.               LETS       PRIN1.
      002533  23 16 03 00 0 002544
      002534  04 00 03 01 2 040000
      002535  12 03 02 02 0 037777      1824.               MOVE       1.
      002536  12 16 02 00 0 000001
      002537  01 00 02 01 2 040000
      002540  01 00 02 02 0 040000
      002541  74 13 04 00 0 000004      1825.               CALLR.                         EDIT OBJECT
      002542  74 13 14 00 0 003450      1826.               LMJ        XX,SENDIT.
      002543  74 04 00 00 0 007261      1827.               J          L1X.
                                        1828.       . EDITING ROUTINE
      002544  10 04 02 00 0 000037      1829.       PRIN1   L,LH       XV,PLIMS.
      002545  01 00 02 01 2 040000      1830.               STORE.                         MOVE DEPTH
      002546  01 00 02 02 0 040000
      002547  10 03 02 00 0 000037      1831.               L,RH       XV,PLIMS.
      002550  01 00 02 00 0 000040      1832.               S          XV,PLIML.           SAVE LENGTH
      002551  12 03 02 02 0 037777      1833.       PRIN11  LOAD       1
      002552  12 16 02 00 0 000001
      002553  74 00 02 00 0 002700      1834.               JZ         XV,PRIN03+2.        UNDEFINED?
      002554  42 16 02 00 1 177600      1835.               GETYPE
      002555  73 02 03 00 0 000007
      002556  10 13 03 17 0 000040
      002557  10 00 02 16 0 000000      1836.               LA         XV,0,XV.
      002560  74 04 00 17 0 002561      1837.               J          $+1,XV+1.           BREAKOUT FOR TYPE
      002561  74 04 00 00 0 002573      1838.       I       DO         NUMTYPS , J PRNT(I-1)
      002562  74 04 00 00 0 003102
      002563  74 04 00 00 0 003066
      002564  74 04 00 00 0 003126
      002565  74 04 00 00 0 003016
      002566  74 04 00 00 0 003016
      002567  74 04 00 00 0 003016
      002570  74 04 00 00 0 002702
      002571  74 04 00 00 0 002737
      002572  74 04 00 00 0 003016      1839.       /. EDIT S-EXPRESSION
                                        1840.       PRNT(CONSED)
    3 002573  12 03 02 02 0 037776      1841.               LOAD       2.                  GET CURRENT DEPTH
      002574  12 16 02 00 0 000002
      002575  74 01 02 00 0 002600      1842.               JNZ        XV,$+3.
      002576  10 16 02 00 0 000046      1843.               L,U        XV,'&'.             TOO DEEP: JUST PRINT '&'
      002577  74 04 00 00 0 002700      1844.               J          PRIN03+2.
      002600  10 00 02 00 0 000040      1845.               L          XV,PLIML.
      002601  01 00 02 03 2 040000      1846.               S          XV,CSTAK,*XC.       SAVE LENGTH
      002602  10 16 02 00 0 000051      1847.               LA,U       XV,'('.
      002603  72 10 00 11 2 003421      1848.       PRIN01  EX         OUTPUT,*XO.
      002604  10 00 02 03 0 037777      1849.               L          XV,CSTAK-1,XC.      GET LENGTH
      002605  74 01 02 00 0 002612      1850.               JNZ        XV,PRIN04.
      002606  10 16 02 00 0 000041      1851.               L,U        XV,'-'.             TOO LONG: PRINT '--'
      002607  72 10 00 11 2 003421      1852.               EX         OUTPUT,*XO.
      002610  72 10 00 11 2 003421      1853.               EX         OUTPUT,*XO.
      002611  74 04 00 00 0 002676      1854.               J          PRIN03.
      002612  15 16 02 00 0 000001      1855.       PRIN04  AN,U       XV,1.               DECREASE LENGTH
      002613  01 00 02 03 0 037777      1856.               S          XV,CSTAK-1,XC.
      002614  12 03 02 02 0 037777      1857.               LOAD       1
      002615  12 16 02 00 0 000001
      002616  74 13 04 00 0 006516      1858.               LMJ        XL,GETCAR.
      002617  06 00 01 03 2 040000      1859.               LETS       PRIN11.
      002620  23 16 03 00 0 002551
      002621  04 00 03 01 2 040000
      002622  01 00 02 01 2 040000      1860.               STORE.
      002623  01 00 02 02 0 040000
      002624  12 03 02 02 0 037776      1861.               LOAD       2.
      002625  12 16 02 00 0 000002
      002626  15 16 02 00 0 000001      1862.               AN,U       XV,1.               DECREASE DEPTH COUNT
      002627  01 00 02 01 2 040000      1863.               STORE.
      002630  01 00 02 02 0 040000
      002631  74 13 04 00 0 000004      1864.               CALLR.                         PRINT ELEMENT OF LIST
      002632  12 03 02 02 0 037777      1865.               LOAD       1
      002633  12 16 02 00 0 000001
      002634  74 13 04 00 0 006537      1866.               LMJ        XL,GETCDR.
      002635  01 00 02 01 2 040000      1867.               STORE      1.
      002636  01 00 02 02 0 037777
      002637  42 16 02 00 1 177600      1868.               GETYPE
      002640  73 02 03 00 0 000007
      002641  10 13 03 17 0 000040
      002642  74 01 03 00 0 002652      1869.               JNZ        XV+1,PRIN02.
      002643  10 00 02 00 0 000050      1870.               LA         XV,LINE.
      002644  61 17 00 11 0 000000      1871.               TN,XU      0,XO.
      002645  54 03 02 00 0 000041      1872.               TLE        XV,ELINE.
      002646  74 04 00 00 0 002650      1873.               J          $+2.
      002647  74 13 14 00 0 003450      1874.               LMJ        XX,SENDIT.          IF LONG LINE AND PRINTING
      002650  10 16 02 00 0 000005      1875.               LA,U       XV,' '.
      002651  74 04 00 00 0 002603      1876.               J          PRIN01.
      002652  53 16 02 00 0 001000      1877.       PRIN02  TNE        XV,KNIL.
      002653  74 04 00 00 0 002676      1878.               J          PRIN03.
      002654  10 16 02 00 0 000005      1879.               LA,U       XV,' '.
      002655  72 10 00 11 2 003421      1880.               EX         OUTPUT,*XO.
      002656  10 16 02 00 0 000075      1881.               LA,U       XV,'.'.
      002657  72 10 00 11 2 003421      1882.               EX         OUTPUT,*XO.
      002660  10 16 02 00 0 000005      1883.               LA,U       XV,' '.
      002661  72 10 00 11 2 003421      1884.               EX         OUTPUT,*XO.
      002662  06 00 01 03 2 040000      1885.               LETS       PRIN11.
      002663  23 16 03 00 0 002551
      002664  04 00 03 01 2 040000
      002665  12 03 02 02 0 037777      1886.               MOVE       1,2.
      002666  12 16 02 00 0 000001
      002667  01 00 02 01 2 040000
      002670  01 00 02 02 0 040000
      002671  12 03 02 02 0 037776
      002672  12 16 02 00 0 000002
      002673  01 00 02 01 2 040000
      002674  01 00 02 02 0 040000
      002675  74 13 04 00 0 000004      1887.               CALLR.
      002676  25 16 03 00 0 000001      1888.       PRIN03  ANX,U      XC,1.               POP LENGTH
      002677  10 16 02 00 0 000040      1889.               LA,U       XV,+')'.
      002700  72 10 00 11 2 003421      1890.               EX         OUTPUT,*XO.
      002701  74 04 00 00 0 000011      1891.               RETURN.
                                        1892.       /. EDIT ATOMIC SYMBOL
                                        1893.       PRNT(SYMBOL)
    3 002702  05 15 00 00 0 000041      1894.               SZ         LSTR.               CLEAR STRING FLAG
      002703  04 14 17 00 0 000041      1895.               S          XFLAG,LCHR1.        SET 1ST CHAR FLAG
      002704  12 03 02 02 0 037777      1896.               LOAD       1.
      002705  12 16 02 00 0 000001
      002706  12 03 02 16 0 000001      1897.               LMA,RH     XV,1,XV.            GET PRINT-NAME
      002707  42 16 02 00 1 177600      1898.               GETYPE.
      002710  73 02 03 00 0 000007
      002711  10 13 03 17 0 000040
      002712  52 16 03 00 0 000001      1899.               TE,U       XV+1,INTGER.        GENSYM?
      002713  74 04 00 00 0 002744      1900.               J          STROUT+1.           NO: PRINT STRING
                                        1901.       . EDIT GENSYM
      002714  06 00 01 03 2 040000      1902.               LETS       PRIN11.
      002715  23 16 03 00 0 002551
      002716  04 00 03 01 2 040000
      002717  12 03 02 02 0 037777      1903.               LOAD       1.
      002720  12 16 02 00 0 000001
      002721  12 04 02 16 0 000001      1904.               LMA,LH     XV,1,XV.
      002722  01 00 02 01 2 040000      1905.               STORE
      002723  01 00 02 02 0 040000
      002724  12 03 02 02 0 037776      1906.               MOVE       2.
      002725  12 16 02 00 0 000002
      002726  01 00 02 01 2 040000
      002727  01 00 02 02 0 040000
      002730  74 13 04 00 0 000004      1907.               CALLR.                         PRINT HEADING
      002731  12 03 02 02 0 037777      1908.               LOAD       1.
      002732  12 16 02 00 0 000001
      002733  12 03 02 16 0 000001      1909.               LMA,RH     XV,1,XV.
      002734  10 00 02 16 0 000000      1910.               LA         XV,0,XV.
      002735  26 16 04 00 0 000011      1911.               LXM,U      XL,EXIT.
      002736  74 04 00 00 0 003102      1912.               J          INTOUT.             PRINT NUMBER                                                                               1913.       /. EDIT STRING (INCLUDING ATOMIC SYMBOL PRINT-NAME)
                                        1914.       PRNT(STRING)
    3 002737  04 15 17 00 0 000041      1915.               S          XFLAG,LSTR.         SET STRING FLAG
      002740  10 11 02 00 0 000100      1916.               L          XV,STRCHR.
      002741  50 13 00 00 0 000041      1917.               TZ         LESC.
      002742  72 10 00 11 2 003421      1918.               EX         OUTPUT,*XO.         LEADING STRCHR IF PRIN2
      002743  12 03 02 02 0 037777      1919.       STROUT  LOAD       1.                  GET STRING
      002744  12 16 02 00 0 000001
      002745  53 16 02 00 0 001000      1920.               TNE        XV,KNIL.
      002746  74 04 00 00 0 003010      1921.               J          STRDN.
      002747  10 02 03 16 0 000000      1922.               L,H1       XV+1,0,XV.          GET CHARACTERS
      002750  12 03 02 16 0 000000      1923.               CHAIN      RH.
      002751  01 00 02 01 2 040000      1924.               STORE      1.
      002752  01 00 02 02 0 037777
      002753  73 12 03 00 0 000022      1925.               LSSL       XV+1,18.
      002754  74 00 03 00 0 002743      1926.       STR1    JZ         XV+1,STROUT.        NEXT WORD
      002755  05 00 00 00 0 000016      1927.               SZ         XV.
      002756  73 13 02 00 0 000006      1928.               LDSL       XV,6.               NEXT CHAR
      002757  51 13 00 00 0 000041      1929.               TNZ        LESC.
      002760  74 04 00 00 0 003006      1930.               J          STR2.               IF PRIN1
      002761  51 15 00 00 0 000041      1931.               TNZ        LSTR.               PRIN2:
      002762  74 04 00 00 0 002766      1932.               J          $+4.
      002763  53 11 02 00 0 000100      1933.               TNE        XV,STRCHR.          STRING: NEED DOUBLE STRCHR?
      002764  72 10 00 11 2 003421      1934.               EX         OUTPUT,*XO.         YES
      002765  74 04 00 00 0 003006      1935.               J          STR2.
      002766  51 14 00 00 0 000041      1936.               TNZ        LCHR1.              AT. SYMBOL: 1ST CHAR?
      002767  74 04 00 00 0 002774      1937.               J          $+5.                NO
      002770  05 14 00 00 0 000041      1938.               SZ         LCHR1.              YES: NOT ANY MORE
      002771  10 03 06 16 0 000113      1939.               L,RH       XXA,DELIMS,XV.      READMACRO?
      002772  52 16 06 00 0 001000      1940.               TE         XXA,KNIL.
      002773  74 04 00 00 0 003001      1941.               J          STRESC.             YES:NEED ESCAPE
      002774  10 04 06 16 0 000113      1942.               L,LH       XXA,DELIMS,XV.      DELIMITER?
      002775  52 16 06 00 0 001000      1943.               TE         XXA,KNIL.
      002776  74 04 00 00 0 003001      1944.               J          STRESC.             YES: NEED ESCAPE
      002777  52 10 02 00 0 000100      1945.               TE         XV,ESCCHR.          ESCAPE CHAR?
      003000  74 04 00 00 0 003006      1946.               J          STR2.               NO: NO ESCAPE NEEDED
      003001  73 03 02 00 0 000006      1947.       STRESC  DSL        XV,6.
      003002  10 10 02 00 0 000100      1948.               L          XV,ESCCHR.
      003003  72 10 00 11 2 003421      1949.               EX         OUTPUT,*XO.
      003004  05 00 00 00 0 000016      1950.               SZ         XV.
      003005  73 13 02 00 0 000006      1951.               LDSL       XV,6.
      003006  72 10 00 11 2 003421      1952.       STR2    EX         OUTPUT,*XO.
      003007  74 04 00 00 0 002754      1953.               J          STR1.
      003010  50 13 00 00 0 000041      1954.       STRDN   TZ         LESC.               ALL DONE
      003011  51 15 00 00 0 000041      1955.               TNZ        LSTR.
      003012  74 04 00 00 0 000011      1956.               RETURN.
      003013  10 11 02 00 0 000100      1957.               L          XV,STRCHR.          FINAL STRCHR IF NEEDED
      003014  72 10 00 11 2 003421      1958.               EX         OUTPUT,*XO.
      003015  74 04 00 00 0 000011      1959.               RETURN.
                                        1960.       /. EDIT OUT OF BOUNDS ADDRESS
                                        1961.       PRNT(SYSTEM)
                                        1962.       PRNT(CODE)
                                        1963.       PRNT(LINKER)
                                        1964.       PRNT(SUSP)
    3 003016  01 00 03 00 0 000101      1965.               SA         XV+1,NUMBER.
      003017  10 16 02 00 0 000001      1966.               LA,U       XV,'['.
      003020  72 10 00 11 2 003421      1967.               EX         OUTPUT,*XO.
      003021  27 00 14 00 0 000351      1968.               LX         XX,(1,-1).
      003022  23 16 01 00 0 002000      1969.               LR,U       R1,PAGNUM.
      003023  10 16 02 00 0 000007      1970.       OBO1    LA,U       XV,SYMBOL.
      003024  62 13 02 14 2 000041      1971.               SE,S3      XV,PAGTAB+1,*XX.
      003025  74 04 00 00 0 003054      1972.               J          OBON.
      003026  27 00 15 00 0 000014      1973.               LX         XY,XX.
      003027  73 12 01 00 0 000007      1974.               LSSL       XY,PAGBIT.
      003030  46 16 15 00 0 000002      1975.               LXI,U      XY,2.
      003031  10 16 04 00 0 000077      1976.               L,U        XA,PAGSIZ/2-1.
      003032  12 03 02 02 0 037777      1977.               LOAD       1.
      003033  12 16 02 00 0 000001
      003034  12 04 03 15 2 000000      1978.               LMA,LH     XV+1,0,*XY.
      003035  53 00 02 00 0 000017      1979.               TNE        XV,XV+1.
      003036  74 04 00 00 0 003041      1980.               J          $+3.
      003037  70 01 00 00 0 003034      1981.               JGD        XA,$-3.
      003040  74 04 00 00 0 003023      1982.               J          OBO1.
      003041  25 16 15 00 0 000002      1983.               ANX,U      XY,2.
      003042  06 00 01 03 2 040000      1984.               LETS       PRIN11.
      003043  23 16 03 00 0 002551
      003044  04 00 03 01 2 040000
      003045  01 00 01 01 2 040000      1985.               SA         XY,STACK,*XT.
      003046  12 03 02 02 0 037776      1986.               MOVE       2.
      003047  12 16 02 00 0 000002
      003050  01 00 02 01 2 040000
      003051  01 00 02 02 0 040000
      003052  74 13 04 00 0 000004      1987.               CALLR.
      003053  74 04 00 00 0 003063      1988.               J          OBOX.
      003054  10 00 02 00 0 000101      1989.       OBON    LA         XV,NUMBER.
      003055  74 13 04 00 0 003102      1990.               LMJ        XL,INTOUT.
      003056  10 16 02 00 0 000053      1991.               LA,U       XV,':'.
      003057  72 10 00 11 2 003421      1992.               EX         OUTPUT,*XO.
      003060  12 03 02 02 0 037777      1993.               LOAD       1.
      003061  12 16 02 00 0 000001
      003062  74 13 04 00 0 003066      1994.               LMJ        XL,OCTOUT.
      003063  10 16 02 00 0 000002      1995.       OBOX    LA,U       XV,']'.
      003064  72 10 00 11 2 003421      1996.               EX         OUTPUT,*XO.
      003065  74 04 00 00 0 000011      1997.               RETURN.
                                        1998.       /. EDIT OCTAL NUMBER
                                        1999.       PRNT(OCTAL)
    3 003066  10 16 03 00 0 000000      2000.       OCTOUT  LA,U       XV+1,0.
      003067  11 16 04 00 0 000001      2001.               LN,U       XA,1.
      003070  73 03 02 00 0 000003      2002.               DSL        XV,3.
      003071  14 16 04 00 0 000001      2003.               AA,U       XA,1.
      003072  74 01 02 00 0 003070      2004.               JNZ        XV,$-2.
      003073  10 16 02 00 0 000006      2005.               LA,U       XV,06.
      003074  73 13 02 00 0 000003      2006.               LDSL       XV,3.
      003075  72 10 00 11 2 003421      2007.               EX         OUTPUT,*XO.
      003076  70 01 00 00 0 003073      2008.               JGD        XA,$-3.
      003077  10 16 02 00 0 000026      2009.               LA,U       XV,'Q'.
      003100  72 10 00 11 2 003421      2010.               EX         OUTPUT,*XO.
      003101  74 04 00 04 0 000000      2011.               J          0,XL.
                                        2012.       /. EDIT INTEGER
                                        2013.       PRNT(INTGER)
    3 003102  06 00 01 03 0 040000      2014.       INTOUT  SX         XT,CSTAK,XC.
      003103  26 16 07 00 0 003112      2015.               LXM,U      XR,INTO1.
      003104  74 02 02 07 0 000000      2016.               JP         XV,0,XR.
      003105  10 00 03 00 0 000016      2017.               LA         XV+1,XV.
      003106  10 16 02 00 0 000041      2018.               LA,U       XV,'-'.
      003107  72 10 00 11 2 003421      2019.               EX         OUTPUT,*XO.         EDIT MINUS SIGN
      003110  11 00 02 00 0 000017      2020.               LNA        XV,XV+1.
      003111  74 04 00 07 0 000000      2021.               J          0,XR.
      003112  73 03 02 00 0 000044      2022.       INTO1   DSL        XV,36.
      003113  34 16 02 00 0 000012      2023.               DI,U       XV,10.
      003114  01 00 03 01 2 040000      2024.               SA         XV+1,STACK,*XT.
      003115  74 01 02 00 0 003112      2025.               JNZ        XV,$-3.
      003116  10 00 02 01 0 040001      2026.               LA         XV,STACK+1,XT.
      003117  14 16 02 00 0 000060      2027.               AA,U       XV,'0'.
      003120  72 10 00 11 2 003421      2028.               EX         OUTPUT,*XO.
      003121  26 16 01 01 0 000001      2029.               POP.
      003122  10 00 02 00 0 000001      2030.               LA         XV,XT.
      003123  52 00 02 03 0 040000      2031.               TE         XV,CSTAK,XC.
      003124  74 04 00 00 0 003116      2032.               J          $-6.
      003125  74 04 00 04 0 000000      2033.               J          0,XL.
                                        2034.       /. EDIT FLOATING POINT NUMBER
                                        2035.       PRNT(REAL)
    3 003126  74 13 07 00 0 003104      2036.               LMJ        XR,INTOUT+2.        SEND SIGN
      003127  10 16 04 00 0 001750      2037.               LA,U       XA,1000.
      003130  74 00 02 00 0 003142      2038.               JZ         XV,FPO2.            ZERO?
      003131  74 04 00 00 0 003133      2039.               J          $+2.
      003132  76 02 02 00 0 000352      2040.               FM         XV,(10.0).
      003133  54 00 02 00 0 000353      2041.       FPO1    TNG        XV,(1.0).           GET IN RANGE 1.0 - 10.0
      003134  70 01 00 00 0 003132      2042.               JGD        XA,$-2.
      003135  54 00 02 00 0 000352      2043.               TNG        XV,(10.0).
      003136  74 04 00 00 0 003142      2044.               J          FPO2
      003137  14 16 04 00 0 000001      2045.               AA,U       XA,1.
      003140  76 03 02 00 0 000352      2046.               FD         XV,(10.0).
      003141  74 04 00 00 0 003133      2047.               J          FPO1.
      003142  10 00 05 00 0 000354      2048.       FPO2    LA         XA+1,(0.000003).
      003143  15 16 04 00 0 001750      2049.               ANA,U      XA,1000.
      003144  01 00 02 00 0 000101      2050.               SA         XV,NUMBER.
      003145  74 13 07 00 0 003160      2051.               LMJ        XR,FPDO.            SEND FIRST DIGIT
      003146  10 16 02 00 0 000075      2052.               LA,U       XV,'.'.
      003147  72 10 00 11 2 003421      2053.               EX         OUTPUT,*XO.         SEND DECIMAL POINT
      003150  74 13 07 00 0 003160      2054.               LMJ        XR,FPDO.            SEND ANOTHER DIGIT
      003151  54 00 05 00 0 000101      2055.               TNG        XA+1,NUMBER.        ARE WE DONE?
      003152  74 04 00 00 0 003150      2056.               J          $-2.
      003153  74 00 04 04 0 000000      2057.               JZ         XA,0,XL.
      003154  10 16 02 00 0 000012      2058.               LA,U       XV,'E'.
      003155  72 10 00 11 2 003421      2059.               EX         OUTPUT,*XO.
      003156  10 00 02 00 0 000020      2060.               LA         XV,XA.
      003157  74 04 00 00 0 003102      2061.               J          INTOUT.
      003160  10 00 00 00 0 000101      2062.       FPDO    LA         XX,NUMBER.
      003161  76 00 00 00 0 000021      2063.               FA         XX,XA+1.
      003162  10 16 02 00 0 000071      2064.               LA,U       XV,'9'.
      003163  54 00 00 16 0 000021      2065.               TNG        XX,FPDIGS-060,XV.
      003164  70 00 16 00 0 003163      2066.               JGD        XV,$-1.
      003165  76 01 00 16 0 000021      2067.               FAN        XX,FPDIGS-060,XV.
      003166  76 01 00 00 0 000021      2068.               FAN        XX,XA+1.
      003167  76 02 00 00 0 000352      2069.               FM         XX,(10.0).
      003170  01 00 00 00 0 000101      2070.               SA         XX,NUMBER.
      003171  76 02 05 00 0 000352      2071.               FM         XA+1,(10.0).
      003172  72 10 00 11 2 003421      2072.               EX         OUTPUT,*XO.
                                        2074.       /. EDIT INTO A SPECIFIED COLUMN
    3 003174  04 13 17 00 0 000041      2075.               S          XFLAG,LESC.         SET ESCAPE FLAG
      003175  74 04 00 00 0 003177      2076.               J          PRINA+1.
      003176  05 13 00 00 0 000041      2077.       PRINA   SZ         LESC.               CLEAR ESCAPE FLAG
      003177  05 00 00 01 2 040000      2078.               SZ         STACK,*XT.
      003200  12 03 02 02 0 037776      2079.               LOAD       2
      003201  12 16 02 00 0 000002
      003202  74 00 02 00 0 003222      2080.               JZ         XV,PRINA1.
      003203  10 00 04 16 0 000000      2081.               LA         XA,0,XV.
      003204  15 16 04 00 0 000001      2082.               ANA,U      XA,1.
      003205  42 16 04 00 0 000177      2083.               AND,U      XA,0177.
      003206  10 16 04 00 0 000000      2084.               LA,U       XA,0.
      003207  34 16 04 00 0 000006      2085.               DI,U       XA,6.
      003210  14 16 04 00 0 000050      2086.               AA,U       XA,LINE.
      003211  01 03 04 00 0 000042      2087.               SA,RH      XA,LINER.
      003212  14 16 04 00 0 000001      2088.               AA,U       XA,1.
      003213  01 03 04 00 0 000050      2089.               SA,RH      XA,LINE.
      003214  14 16 05 00 0 000001      2090.               AA,U       XA+1,1.
      003215  46 16 11 00 0 000001      2091.               LXI,U      XO,1.
      003216  06 04 11 00 0 000042      2092.               SX,LH      XO,LINER.
      003217  50 04 00 00 0 000042      2093.               TZ,LH      LINER.
      003220  26 00 11 00 0 000021      2094.               LXM        XO,XA+1.
      003221  01 04 05 00 0 000042      2095.               SA,LH      XA+1,LINER.
      003222  06 00 01 03 2 040000      2096.       PRINA1  LETS       PRIN1.
      003223  23 16 03 00 0 002544
      003224  04 00 03 01 2 040000
      003225  12 03 02 02 0 037777      2097.               MOVE       1.
      003226  12 16 02 00 0 000001
      003227  01 00 02 01 2 040000
      003230  01 00 02 02 0 040000
      003231  74 13 04 00 0 000004      2098.               CALLR.
      003232  10 00 04 00 0 000355      2099.               LA         XA,(1,LINE).
      003233  01 00 04 00 0 000042      2100.               SA         XA,LINER.
      003234  74 04 00 00 0 007261      2101.               J          L1X.
                                        2102.       . GET CURRENT PRINT POSITION
      003235  10 16 03 00 0 000001      2103.       CURCOL  L,U        XV+1,1.
      003236  51 16 00 11 0 000000      2104.               TNZ,U      0,XO.
      003237  74 04 00 00 0 000003      2105.               J          STORIT(INTGER).
      003240  10 00 03 00 0 000050      2106.               L          XV+1,LINE.
      003241  15 16 03 00 0 000051      2107.               AN,U       XV+1,LINE+1.
      003242  31 16 03 00 0 000006      2108.               MSI,U      XV+1,6.
      003243  14 16 03 11 0 000000      2109.               A,U        XV+1,0,XO.
      003244  74 04 00 00 0 000003      2110.               J          STORIT(INTGER).
                                        2111.       /. SET NEW PRINT LIMITS
    3 003245  05 00 00 01 2 040000      2112.       PLIMIT  SZ         STACK,*XT.
      003246  10 00 02 00 0 000037      2113.               L          XV,PLIMS.
      003247  01 00 02 00 0 000040      2114.               S          XV,PLIML.           SAVE OLD LIMITS
      003250  12 03 02 02 0 037777      2115.               LOAD       1.
      003251  12 16 02 00 0 000001
      003252  74 00 02 00 0 003261      2116.               JZ         XV,PLIM1.           JUST RETURN CURRENT LIMITS
      003253  12 04 03 16 0 000000      2117.               UPPER      XV+1.
      003254  10 00 03 17 0 000000      2118.               L          XV+1,0,XV+1.
      003255  01 04 03 00 0 000037      2119.               S,LH       XV+1,PLIMS.
      003256  12 03 03 16 0 000000      2120.               LOWER      XV+1.
      003257  10 00 03 17 0 000000      2121.               L          XV+1,0,XV+1.
      003260  01 03 03 00 0 000037      2122.               S,RH       XV+1,PLIMS.
      003261  10 03 03 00 0 000040      2123.       PLIM1   L,RH       XV+1,PLIML.
      003262  74 13 04 00 0 000003      2124.               NODE       INTGER.
      003263  01 00 02 01 2 040000      2125.               STORE      1.
      003264  01 00 02 02 0 037777
      003265  10 04 03 00 0 000040      2126.               L,LH       XV+1,PLIML.
      003266  74 13 04 00 0 000003      2127.               NODE       INTGER.
      003267  12 03 03 02 0 037777      2128.               LMA,RH     XV+1,STACK-1,XF.
      003270  74 13 04 00 0 000000      2129.               NODE       CONSED.
      003271  74 04 00 00 0 000011      2130.               RETURN.
                                        2131.       $(6)
    6 000037  000012 000062             2132.       PLIMS   +          10,50.              PRINT DEPTH, LENGTH
      000040  000000000062              2133.       PLIML   +          50.                 TEMP STORAGE OF LENGTH
                                        2134.       $(3)
                                        2135.       /. COMPUTE LENGTH OF PRINTED OBJECT
    3 003272  04 13 17 00 0 000041      2136.               S          XFLAG,LESC.         SET ESCAPE FLAG
      003273  74 04 00 00 0 003275      2137.               J          PLENGTH+1.
      003274  05 13 00 00 0 000041      2138.       PLENGTH SZ         LESC.               CLEAR ESCAPE FLAG
      003275  05 00 00 00 0 000012      2139.               SZ         XW1.                ZERO COUNTER
      003276  06 00 11 00 0 000050      2140.               S          XO,XOSAV.           SAVE XO
      003277  27 00 11 00 0 000356      2141.               L          XO,(0,-1).
      003300  06 00 01 03 2 040000      2142.               LETS       PRIN1.
      003301  23 16 03 00 0 002544
      003302  04 00 03 01 2 040000
      003303  12 03 02 02 0 037777      2143.               MOVE       1.
      003304  12 16 02 00 0 000001
      003305  01 00 02 01 2 040000
      003306  01 00 02 02 0 040000
      003307  74 13 04 00 0 000004      2144.               CALLR.
      003310  27 00 11 00 0 000050      2145.               L          XO,XOSAV.           RESTORE XO
      003311  10 00 03 00 0 000012      2146.               L          XV+1,XW1.           GET COUNT
      003312  74 13 04 00 0 000003      2147.               NODE       INTGER.
      003313  74 04 00 00 0 000011      2148.               RETURN.
                                        2149.       . EXPLODE ATOM INTO A LIST
      003314  04 13 17 00 0 000041      2150.               S          XFLAG,LESC.         SET ESCAPE FLAG
      003315  74 04 00 00 0 003317      2151.               J          EXPLODE+1.
      003316  05 13 00 00 0 000041      2152.       EXPLODE SZ         LESC.               CLEAR ESCAPE FLAG
      003317  06 00 11 00 0 000050      2153.               S          XO,XOSAV.           SAVE XO
      003320  27 00 11 00 0 000357      2154.               L          XO,(0,-2).
      003321  27 00 12 00 0 000331      2155.               L          XW1,(1,0).
      003322  06 00 01 03 2 040000      2156.               LETS       PRIN1.
      003323  23 16 03 00 0 002544
      003324  04 00 03 01 2 040000
      003325  12 03 02 02 0 037777      2157.               MOVE       1.
      003326  12 16 02 00 0 000001
      003327  01 00 02 01 2 040000
      003330  01 00 02 02 0 040000
      003331  74 13 04 00 0 000004      2158.               CALLR.
      003332  27 00 11 00 0 000050      2159.               L          XO,XOSAV.           RESTORE XO
      003333  25 16 12 00 0 000001      2160.               AN,U       XW1,1.
      003334  46 16 12 00 3 177776      2161.               LXI,U      XW1,0777776.
      003335  12 03 02 02 0 037000      2162.               LOAD       NIL.
      003336  12 16 02 00 0 001000
      003337  72 10 00 12 2 003345      2163.       EXPLLP  EX         EXPLG,*XW1.         GET A CHAR (BACKWARDS)
      003340  73 12 03 00 0 000001      2164.               LSSL       XV+1,1.
      003341  14 16 03 00 0 001032      2165.               A,U        XV+1,CHARS.         CONVERT TO ATOM ADDRESS
      003342  73 01 02 00 0 000044      2166.               DSC        XV,36.
      003343  74 13 04 00 0 000000      2167.               NODE       CONSED.
      003344  74 04 00 00 0 003337      2168.               J          EXPLLP.
      003345  74 04 00 00 0 003347      2169.       EXPLG   J          EXPLD.
                                        2170.       I       DO         6 ,
      003346  10 10 03 00 1 000051      2171.               L          XV+1,*NAME,,S1-I+1.
      003347  10 00 06 00 0 000051      2172.       EXPLD   L          XXA,NAME.
      003350  15 16 06 00 0 000001      2173.               AN,U       XXA,1.
      003351  53 16 06 00 0 000051      2174.               TNE,U      XXA,NAME.
      003352  74 04 00 00 0 000011      2175.               RETURN.
      003353  01 00 06 00 0 000051      2176.               S          XXA,NAME.
      003354  26 16 12 00 0 000006      2177.               LXM,U      XW1,6.
      003355  74 04 00 00 0 003337      2178.               J          EXPLLP.
                                        2179.       /. SEND SYSTEM MESSAGE TO PRINT LINE
    3 003356  74 13 14 00 0 003450      2180.               LMJ        XX,SENDIT.
      003357  05 00 00 00 0 000045      2181.       EDCHAR  SZ         PFNAM.
      003360  10 16 04 00 0 000005      2182.       EDCHL   LA,U       XA,5.
      003361  10 00 03 07 0 000000      2183.               LA         XV+1,0,XR.
      003362  10 16 02 00 0 000000      2184.               LA,U       XV,0.
      003363  73 13 02 00 0 000006      2185.               LDSL       XV,6.
      003364  74 00 02 07 0 000001      2186.               JZ         XV,1,XR.
      003365  72 10 00 11 2 003421      2187.               EX         OUTPUT,*XO.
      003366  70 01 00 00 0 003362      2188.               JGD        XA,$-4.
      003367  24 16 07 00 0 000001      2189.               AX,U       XR,1.
      003370  74 04 00 00 0 003360      2190.               J          EDCHL.
                                        2191.       . DUMP PRINT LINE
      003371  05 00 00 01 2 040000      2192.       TERPRI  SZ         STACK,*XT.
      003372  05 00 00 00 0 000045      2193.               SZ         PFNAM.
      003373  12 03 02 02 0 037777      2194.               LOAD       1.
      003374  12 16 02 00 0 000001
      003375  74 00 02 00 0 003415      2195.               JZ         XV,TERPRI1.
      003376  74 13 04 00 0 006264      2196.               LMJ        XL,GETNAM.
      003377  74 13 04 00 0 006305      2197.               LMJ        XL,BLANKS.
      003400  71 12 04 00 0 000045      2198.               DS         XA,PFNAM.
      003401  12 03 02 02 0 037777      2199.               LOAD       1.
      003402  12 16 02 00 0 000001
      003403  10 00 00 00 0 000043      2200.               L          XX,APQ.
      003404  74 00 00 00 0 003411      2201.       TERPRI2 JZ         XX,INAPQ.
      003405  53 04 02 14 0 000000      2202.               TNE,LH     XV,0,XX.
      003406  74 04 00 00 0 003415      2203.               J          TERPRI1.
      003407  12 03 00 14 0 000000      2204.               LMA,RH     XX,0,XX.
      003410  74 04 00 00 0 003404      2205.               J          TERPRI2.
      003411  10 00 03 00 0 000043      2206.       INAPQ   L          XV+1,APQ.
      003412  74 13 04 00 0 000000      2207.               NODE       CONSED.
      003413  01 00 02 00 0 000043      2208.               S          XV,APQ.
      003414  74 13 04 00 0 006323      2209.               LMJ        XL,ASSIGN.
      003415  74 13 14 00 0 003450      2210.       TERPRI1 LMJ        XX,SENDIT.
      003416  74 04 00 00 0 006455      2211.               J          GFAL.
                                        2212.       /. OUTPUT ROUTINE
    3 003417  72 10 00 12 2 004162      2213.               EX         PUTIT,*XW1.         COME HERE FOR EXPLODE
      003420  24 16 12 00 0 000001      2214.               A,U        XW1,1.              COME HERE FOR PLENGTH
      003421  74 13 14 00 0 003424      2215.       OUTPUT  LMJ        XX,OUTPT1.
                                        2216.       I       DO         6 ,
      003422  01 10 02 00 1 000050      2217.               SA         XV,*LINE,,S1-I+1.
      003423  74 13 14 00 0 003434      2218.               LMJ        XX,OUTPT2.
      003424  10 03 06 00 0 000042      2219.       OUTPT1  LA,RH      XXA,LINER.
      003425  01 00 06 00 0 000050      2220.               SA         XXA,LINE.
      003426  27 16 11 00 0 000026      2221.               LX,U       XO,22.
      003427  10 00 06 00 0 000332      2222.               LA         XXA,('      ').
      003430  01 00 06 11 0 000051      2223.               SA         XXA,LINE+1,XO.
      003431  70 00 11 00 0 003430      2224.               JGD        XO,$-1.
      003432  26 04 11 00 0 000042      2225.               LXM,LH     XO,LINER.
      003433  74 04 00 00 0 003435      2226.               J          $+2.
      003434  26 16 11 00 0 000001      2227.       OUTPT2  LXM,U      XO,1.
      003435  46 16 11 00 0 000001      2228.               LXI,U      XO,1.
      003436  10 00 06 00 0 000050      2229.               LA         XXA,LINE.
      003437  14 16 06 00 0 000001      2230.               AA,U       XXA,1.
      003440  01 00 06 00 0 000050      2231.               SA         XXA,LINE.
      003441  15 16 00 00 0 000001      2232.               AN,U       XX,1.
      003442  54 16 06 00 0 000077      2233.               TNG,U      XXA,LINE+23.
      003443  74 04 00 14 0 000000      2234.               J          0,XX.
      003444  46 16 14 00 0 000000      2235.               LXI,U      XX,0.
      003445  52 16 00 00 0 003457      2236.               TE,U       XX,SENDL-1.         (UGH, DO I HATE TO DO IT!)
      003446  01 00 00 00 0 000050      2237.               S          XX,XOSAV.
      003447  74 04 00 00 0 003460      2238.               J          SENDL.
                                        2239.       /. PRINT LINE
    3 003450  51 16 00 11 0 000000      2240.       SENDIT  TNZ,U      0,XO.
      003451  74 04 00 14 0 000000      2241.               J          0,XX.               LINE EMPTY
      003452  01 00 00 00 0 000050      2242.               S          XX,XOSAV.
      003453  51 00 00 00 0 000045      2243.               TNZ        PFNAM.
      003454  51 15 00 00 0 000213      2244.               TNZ        CMODE.
      003455  74 04 00 00 0 003460      2245.               J          $+3.
      003456  10 16 02 00 0 000077      2246.               L,U        XV,077.
      003457  72 10 00 11 2 003421      2247.               EX         OUTPUT,*XO.         STOP CODE IF SENDING TO TERMINAL
      003460  10 00 00 00 0 000047      2248.       SENDL   L          A0,LINE-1.
      003461  50 00 00 00 0 000045      2249.               TZ         PFNAM.
      003462  74 04 00 00 0 003465      2250.               J          ALTPRT.
U     003463  72 11 00 00 0 000000      2251.               ER         PRINT$.
      003464  74 04 00 00 0 003470      2252.               J          SEND1.
      003465  01 00 00 00 0 000044      2253.       ALTPRT  S          A0,PFNAM-1.
      003466  10 16 00 00 0 000044      2254.               L,U        A0,PFNAM-1.
U     003467  72 11 00 00 0 000000      2255.               ER         PRNTA$.
      003470  10 16 06 00 0 000001      2256.       SEND1   L,U        XXA,1.
      003471  01 07 06 00 0 000047      2257.               S          XXA,PLINES.
      003472  26 16 11 00 0 000000      2258.               LXM,U      XO,0.
      003473  10 00 00 00 0 000050      2259.               L          XX,XOSAV.
      003474  74 04 00 14 0 000000      2260.               J          0,XX.
                                        2261.       . PRINT LINE WITH DOUBLE SPACING
      003475  10 16 06 00 0 000002      2262.       SENDDB  L,U        XXA,2.
      003476  01 07 06 00 0 000047      2263.               S          XXA,PLINES.
      003477  74 04 00 00 0 003450      2264.               J          SENDIT.
                                        2265.       . SET LINE SPACING
      003500  12 03 02 02 0 037777      2266.       SPACE   LOAD       1.
      003501  12 16 02 00 0 000001
      003502  10 00 06 16 0 000000      2267.               L          XXA,0,XV.
      003503  74 00 06 00 0 003505      2268.               JZ         XXA,$+2.
      003504  14 16 06 00 0 000001      2269.               A,U        XXA,1.
      003505  01 07 06 00 0 000047      2270.               S          XXA,PLINES.
      003506  74 04 00 00 0 006455      2271.               J          GFAL.
                                        2272.       /$(6).
    6 000041  000000 000071             2273.               +          0,LINE+17.
              00 03 00 00 0 000041      2274.       ELINE   EQUF       $-1,,RH.
              00 15 00 00 0 000041      2275.       LSTR    EQUF       $-1,,S1.
              00 14 00 00 0 000041      2276.       LCHR1   EQUF       $-1,,S2.
              00 13 00 00 0 000041      2277.       LESC    EQUF       $-1,,S3.
      000042  000001 000050             2278.       LINER   PAIR       1,LINE.
      000043  000000 000000             2279.       APQ     +0,0
      000044  000000000000              2280.               +0
      000045  000000000000              2281.       PFNAM   +0D
      000046  000000000000
      000047  00 01 26 000051           2282.               PF         0,1,22,LINE+1.
              00 07 00 00 0 000047      2283.       PLINES  EQUF       $-1,,T1.
              00 13 00 00 0 000047      2284.       PWORDS  EQUF       $-1,,S3.
      000050                            2285.       LINE    RES        24.
                                        2286.       $(8)
    8 000050                            2287.       XOSAV   RES        1.
                                        2288.       $(3).
                                        2289.       /. READ ROUTINE
                                        2290.       CHA*    FUNC
                                        2291.               END        CHARS+2*CHA(1).
                                        2292.       IFIS*   PROC
                                        2293.               ANU,U      XV,CHA(IFIS(1,1)).
                                        2294.               JZ         XV+1,IFIS(2,1).
                                        2295.               END
                                        2296.       IFNOT*  PROC
                                        2297.               ANU,U      XV,CHA(IFNOT(1,1)).
                                        2298.               JNZ        XV+1,IFNOT(2,1).
                                        2299.               END
    3 003507  777772 000000             2300.               -          5,0.
      003510  10 16 02 00 0 003507      2301.       READ    L,U        XV,$-1.
      003511  74 13 04 00 0 000034      2302.               LMJ        XL,TRAP.
      003512  06 00 01 03 2 040000      2303.               LETS       REED.
      003513  23 16 03 00 0 003520
      003514  04 00 03 01 2 040000
      003515  74 13 04 00 0 000004      2304.               CALLR.
      003516  74 13 04 00 0 000043      2305.               LMJ        XL,UNTRAP.
      003517  74 04 00 00 0 000011      2306.               RETURN.
      003520  06 00 01 03 2 040000      2307.       REED    LETS       READA.
      003521  23 16 03 00 0 003632
      003522  04 00 03 01 2 040000
      003523  74 13 04 00 0 000004      2308.               CALLR.                         GET A TOKEN
      003524  74 02 02 00 0 000011      2309.               JP         XV,EXIT.            RETURN IF NOT A DELIM
      003525  11 00 02 00 0 000016      2310.               LN         XV,XV.
      003526  21 16 02 00 0 001154      2311.               IFIS       '(' BRAK1.          IS IT AN OPENING BRACKET?
      003527  74 00 03 00 0 003534
      003530  21 16 02 00 0 001034      2312.               IFIS       '[' BRAK1.
      003531  74 00 03 00 0 003534
      003532  21 16 02 00 0 001140      2313.               IFNOT      '<' EXIT.
      003533  74 01 03 00 0 000011
      003534  01 00 02 01 2 040000      2314.       BRAK1   STORE
      003535  01 00 02 02 0 040000
      003536  06 00 01 03 2 040000      2315.       READ1   LETS       READA.
      003537  23 16 03 00 0 003632
      003540  04 00 03 01 2 040000
      003541  74 13 04 00 0 000004      2316.               CALLR.                         GET A TOKEN
      003542  74 02 02 00 0 003626      2317.               JP         XV,READ13.          IF NOT A DELIM
      003543  11 00 02 00 0 000016      2318.               LN         XV,XV.
      003544  21 16 02 00 0 001154      2319.               IFIS       '(' BRAK2.          OPENING BRACKET?
      003545  74 00 03 00 0 003552
      003546  21 16 02 00 0 001034      2320.               IFIS       '[' BRAK2.
      003547  74 00 03 00 0 003552
      003550  21 16 02 00 0 001140      2321.               IFNOT      '<' READ11.
      003551  74 01 03 00 0 003571
      003552  06 00 01 03 2 040000      2322.       BRAK2   LETS       READ1.
      003553  23 16 03 00 0 003536
      003554  04 00 03 01 2 040000
      003555  01 00 02 01 2 040000      2323.               STORE
      003556  01 00 02 02 0 040000
      003557  74 13 04 00 0 000000      2324.               CALL.                          READ SUBLIST
      003560  06 00 01 03 2 040000      2325.       READ1R  LETS       READ1.
      003561  23 16 03 00 0 003536
      003562  04 00 03 01 2 040000
      003563  12 03 02 02 0 037777      2326.               MOVE       1.
      003564  12 16 02 00 0 000001
      003565  01 00 02 01 2 040000      
      003566  01 00 02 02 0 040000
      003567  74 13 04 00 0 000000      2327.               CALL.                          READ REST OF SUBLIST
      003570  74 04 00 00 0 006443      2328.               J          CONS.
      003571  10 16 04 00 0 001154      2329.       READ11  LA,U       XA,CHA('(').
      003572  21 16 02 00 0 001132      2330.               IFIS       ')' BRAK3.          CLOSING BRACKET?
      003573  74 00 03 00 0 003602
      003574  10 16 04 00 0 001034      2331.               LA,U       XA,CHA('[').
      003575  21 16 02 00 0 001036      2332.               IFIS       ']' BRAK3.
      003576  74 00 03 00 0 003602
      003577  10 16 04 00 0 001140      2333.               LA,U       XA,CHA('<').
      003600  21 16 02 00 0 001144      2334.               IFNOT      '>' READ12.
      003601  74 01 03 00 0 003605
      003602  52 00 04 02 0 037777      2335.       BRAK3   TE         XA,STACK-1,XF.      CORRECT ONE?
      003603  25 16 06 00 0 000001      2336.               ANX,U      XI,1.               REREAD CLOSING BRACKET
      003604  74 04 00 00 0 006455      2337.               J          GFAL.               CORRECT ONE?
      003605  21 16 02 00 0 001224      2338.       READ12  IFNOT      '.' READ13.
      003606  74 01 03 00 0 003626
      003607  06 00 01 03 2 040000      2339.               LETS       REED.
      003610  23 16 03 00 0 003520
      003611  04 00 03 01 2 040000
      003612  74 13 04 00 0 000000      2340.               CALL.                          READ AFTER DOT
      003613  06 00 01 03 2 040000      2341.               LETS       READ1.
      003614  23 16 03 00 0 003536
      003615  04 00 03 01 2 040000
      003616  12 03 02 02 0 037777      2342.               MOVE       1.
      003617  12 16 02 00 0 000001
      003620  01 00 02 01 2 040000
      003621  01 00 02 02 0 040000
      003622  74 13 04 00 0 000004      2343.               CALLR.                         SKIP CLOSING BRACKET
      003623  12 03 02 02 0 037776      2344.               LOAD       2.
      003624  12 16 02 00 0 000002
      003625  74 04 00 00 0 000011      2345.               RETURN
      003626  01 00 02 01 2 040000      2346.       READ13  STORE
      003627  01 00 02 02 0 040000
      003630  74 04 00 00 0 003560      2347.               J          READ1R.
                                        2348.       /. READ NEXT LISP ENTITY
    3 003631  26 16 06 00 0 000000      2349.       MACEND  LXM,U      XI,0.               END OF CARD MACRO
                                        2350.       MACIGN             .                   IGNORE CHAR MACRO
      003632  72 10 00 06 2 004422      2351.       READA   EX         INPUT,*XI.          GET FIRST CHAR
      003633  10 03 00 16 0 000113      2352.               L,RH       XX,DELIMS,XV.
      003634  53 16 00 00 0 003717      2353.               TNE,U      XX,MACESC.          ESCAPE CHAR?
      003635  74 04 00 00 0 003702      2354.               J          TOKEN1.             YES: IT'S A TOKEN
      003636  52 16 00 00 0 001000      2355.               TE         XX,KNIL.            READMACRO?
      003637  74 04 00 14 0 000000      2356.               J          0,XX.               YES: CALL IT
      003640  10 04 00 16 0 000113      2357.               L,LH       XX,DELIMS,XV.
      003641  53 16 00 00 0 001000      2358.               TNE        XX,KNIL.            DELIMITER?
      003642  74 04 00 00 0 003702      2359.               J          TOKEN1.             NO: GET REST OF TOKEN
      003643  73 12 02 00 0 000001      2360.               LSSL       XV,1.               YES
      003644  14 16 02 00 0 001032      2361.               A,U        XV,CHARS.
      003645  11 00 02 00 0 000016      2362.               LN         XV,XV.              TELL REED IT'S A DELIM
      003646  74 04 00 00 0 000011      2363.               RETURN.
      003647  06 00 01 03 2 040000      2364.       MACQUO  LETS       REED.               QUOTE MACRO
      003650  23 16 03 00 0 003520
      003651  04 00 03 01 2 040000
      003652  74 13 04 00 0 000004      2365.               CALLR.                         READ EXP TO BE QUOTED
      003653  27 16 17 00 0 001000      2366.               LX         XV+1,KNIL.
      003654  74 13 04 00 0 000000      2367.               NODE       CONSED
      003655  27 00 17 00 0 000016      2368.               LX         XV+1,XV.
      003656  12 03 02 02 0 036776      2369.               LOAD       QUOTE.
      003657  12 16 02 00 0 001002
      003660  74 13 04 00 0 000000      2370.               NODE       CONSED
      003661  74 04 00 00 0 000011      2371.               RETURN.
                                        2372.       /. PARSE OUT NEXT TOKEN FROM INPUT STREAM
                                        2373.       BREAK*  PROC
                                        2374.       XX*     PROC
                                        2375.               TNE,U      XV,BREAK(I,1)**077.
                                        2376.               J          BREAK(I,2).
                                        2377.               END
                                        2378.       I       DO         BREAK , XX.
                                        2379.               END
    3 003662  72 10 00 06 2 004422      2380.       TOKEN   EX         INPUT,*XI.          GET A CHARACTER
      003663  53 16 02 00 0 000005      2381.               BREAK      ' ',TOKEN.          MOVE TO NON-SPACE
      003664  74 04 00 00 0 003662
      003665  74 02 02 00 0 003670      2382.               JP         XV,$+3.
      003666  12 03 02 02 0 037000      2383.               LOAD       NIL.                END OF COMPRESS
      003667  12 16 02 00 0 001000
      003670  74 04 00 00 0 000011      2384.               RETURN.
      003671  10 03 03 16 0 000113      2385.               L,RH       XV+1,DELIMS,XV.
      003672  53 16 03 00 0 004144      2386.               TNE,U      XV+1,MACSTR.        STRING?
      003673  74 04 00 00 0 004144      2387.               J          MACSTR.             YES
      003674  10 04 03 16 0 000113      2388.               L,LH       XV+1,DELIMS,XV.
      003675  53 16 03 00 0 001000      2389.               TNE        XV+1,KNIL.          DELIMITER?
      003676  74 04 00 00 0 003702      2390.               J          TOKEN1.             NO
      003677  73 12 02 00 0 000001      2391.               LSSL       XV,1.               YES: RETURN IT
      003700  24 16 16 00 0 001032      2392.               AX,U       XV,CHARS.
      003701  74 04 00 00 0 000011      2393.               RETURN
      003702  26 16 10 00 0 003734      2394.       TOKEN1  LXM,U      XW,BR0.             SET UP FOR ATOM
      003703  46 16 10 00 0 004140      2395.               LXI,U      XW,NORMAL.
      003704  05 00 00 00 0 000020      2396.               SZ         XA.
      003705  05 00 00 00 0 000101      2397.               SZ         NUMBER
      003706  05 00 00 00 0 000103      2398.               SZ         SIGN
      003707  05 00 00 00 0 000102      2399.               SZ         OKTAL.
      003710  27 00 12 00 0 000331      2400.               LX         XW1,(1,0).
      003711  10 03 03 16 0 000113      2401.       TOKEN2  L,RH       XV+1,DELIMS,XV.
      003712  53 16 03 00 0 003717      2402.               TNE,U      XV+1,MACESC.
      003713  74 04 00 00 0 003717      2403.               J          MACESC.             ESCAPE CHAR
      003714  72 10 00 12 2 004162      2404.               EX         PUTIT,*XW1.         STORE CHARACTER
      003715  14 00 04 00 0 000016      2405.               AA         XA,XV.
      003716  74 04 00 10 0 000000      2406.               J          0,XW.               BREAK OUT
      003717  72 10 00 06 2 004422      2407.       MACESC  EX         INPUT,*XI.          ESCAPE: READ NEXT CHAR
      003720  72 10 00 12 2 004162      2408.               EX         PUTIT,*XW1.
      003721  14 00 04 00 0 000016      2409.               AA         XA,XV.
      003722  46 16 10 00 0 004140      2410.       CANCEL  LXI,U      XW,NORMAL.
      003723  26 16 10 00 0 003724      2411.               LXM,U      XW,$+1.
      003724  72 10 00 06 2 004422      2412.       NEXTC   EX         INPUT,*XI.
      003725  74 03 02 00 0 003731      2413.               JN         XV,BRD.             END OF COMPRESS?
      003726  10 04 03 16 0 000113      2414.               L,LH       XV+1,DELIMS,XV.
      003727  53 16 03 00 0 001000      2415.               TNE        XV+1,KNIL.          DELIMITER?
      003730  74 04 00 00 0 003711      2416.               J          TOKEN2.             NO
      003731  27 00 17 00 0 000010      2417.       BRD     LX         XV+1,XW.            YES
      003732  73 02 03 00 0 000022      2418.               SSL        XV+1,18.
      003733  74 04 00 17 0 000000      2419.               J          0,XV+1.             TAKE FINAL BREAKOUT
      003734  53 16 02 00 0 000010      2420.       BR0     BREAK      'C',BRC '+',BRP
      003735  74 04 00 00 0 004077
      003736  53 16 02 00 0 000042
      003737  74 04 00 00 0 003744
      003740  52 16 02 00 0 000041      2421.               TE,U       XV,'-'.
      003741  74 04 00 00 0 003745      2422.               J          BRP+1.
      003742  10 16 03 00 0 000000      2423.               LA,U       XV+1,0.
      003743  02 00 03 00 0 000103      2424.               SNA        XV+1,SIGN.          SET SIGN NEGATIVE
      003744  74 13 10 00 0 003724      2425.       BRP     LMJ        XW,NEXTC.           NEXT CHARACTER
      003745  27 00 10 00 0 000360      2426.               LX         XW,(PAIR INT,BR02).
      003746  15 16 02 00 0 000060      2427.       BR01    ANA,U      XV,'0'.
      003747  74 03 02 00 0 003722      2428.               JN         XV,CANCEL.          IF NOT NUMERIC
      003750  55 16 02 00 0 000012      2429.               TG,U       XV,10.              IS IT A DIGIT
      003751  74 04 00 00 0 003722      2430.               J          CANCEL.
      003752  10 00 03 00 0 000101      2431.               LA         XV+1,NUMBER.
      003753  31 16 03 00 0 000012      2432.               MSI,U      XV+1,10.            BUILD INTEGR
      003754  14 00 03 00 0 000016      2433.               A          XV+1,XV.
      003755  01 00 03 00 0 000101      2434.               SA         XV+1,NUMBER.
      003756  73 03 02 00 0 000003      2435.               DSL        XV,3.               BUILD OCTAL
      003757  10 00 02 00 0 000102      2436.               LA         XV,OKTAL.
      003760  73 13 02 00 0 000003      2437.               LDSL       XV,3.
      003761  01 00 02 00 0 000102      2438.               SA         XV,OKTAL.
      003762  74 04 00 00 0 003724      2439.               J          NEXTC.
      003763  53 16 02 00 0 000012      2440.       BR02    BREAK      'E',BRSI 'Q',BRSO.
      003764  74 04 00 00 0 004043
      003765  53 16 02 00 0 000026
      003766  74 04 00 00 0 004053
      003767  74 04 00 00 0 003746      2441.               J          BR01.
      003770  53 16 02 00 0 000075      2442.       INT     BREAK      '.',FPNUM.
      003771  74 04 00 00 0 003776
      003772  10 00 02 00 0 000101      2443.               LA         XV,NUMBER.
      003773  41 00 02 00 0 000103      2444.               XOR        XV,SIGN.
      003774  74 13 04 00 0 000003      2445.               NODE       INTGER.             STORE INTEGER
      003775  74 04 00 00 0 004142      2446.               J          TOKOUT.
      003776  72 10 00 12 2 004162      2447.       FPNUM   EX         PUTIT,*XW1.
      003777  10 16 02 00 0 000233      2448.               LA,U       XV,0233.
      004000  76 05 02 00 0 000101      2449.               LCF        XV,NUMBER.          CONVERT TO FLOATING
      004001  01 00 03 00 0 000101      2450.               SA         XV+1,NUMBER.
      004002  46 16 10 00 0 004017      2451.               LXI,U      XW,FPEND.
      004003  10 00 02 00 0 000352      2452.               LA         XV,(10.0).
      004004  01 00 02 00 0 000102      2453.       FPLOOP  SA         XV,OKTAL.
      004005  74 13 10 00 0 003724      2454.               LMJ        XW,NEXTC.           NEXT CHARACTER
      004006  53 16 02 00 0 000012      2455.               BREAK      'E',FPS.
      004007  74 04 00 00 0 004062
      004010  10 00 02 16 0 000021      2456.               LA         XV,FPDIGS-060,XV.   BUILD FRACTIONAL PART
      004011  76 03 02 00 0 000102      2457.               FD         XV,OKTAL.
      004012  76 00 02 00 0 000101      2458.               FA         XV,NUMBER.
      004013  01 00 02 00 0 000101      2459.               SA         XV,NUMBER.
      004014  10 00 02 00 0 000102      2460.               LA         XV,OKTAL.
      004015  76 02 02 00 0 000352      2461.               FM         XV,(10.0).
      004016  74 04 00 00 0 004004      2462.               J          FPLOOP.
      004017  10 00 02 00 0 000101      2463.       FPEND   LA         XV,NUMBER.
      004020  41 00 02 00 0 000103      2464.               XOR        XV,SIGN.
      004021  74 13 04 00 0 000011      2465.               NODE       REAL
      004022  74 04 00 00 0 004142      2466.               J          TOKOUT.
      004023  41 00 02 00 0 000103      2467.       SCALE   XOR        XV,SIGN.
      004024  01 00 03 00 0 000104      2468.               SA         XV+1,SAVE.
      004025  46 16 10 00 0 004041      2469.               LXI,U      XW,SCALE1.
      004026  05 00 00 00 0 000103      2470.               SZ         SIGN.
      004027  05 00 00 00 0 000101      2471.               SZ         NUMBER.
      004030  74 13 10 00 0 003724      2472.               LMJ        XW,NEXTC.
      004031  26 16 10 00 0 003746      2473.               LXM,U      XW,BR01.
      004032  53 16 02 00 0 000042      2474.               BREAK      '+',NEXTC.
      004033  74 04 00 00 0 003724
      004034  52 16 02 00 0 000041      2475.               TE,U       XV,'-'.
      004035  74 04 00 00 0 003746      2476.               J          BR01.
      004036  10 16 02 00 0 000000      2477.               LA,U       XV,0.
      004037  02 00 02 00 0 000103      2478.               SNA        XV,SIGN.
      004040  74 04 00 00 0 003724      2479.               J          NEXTC.
      004041  10 00 02 00 0 000101      2480.       SCALE1  LA         XV,NUMBER.
      004042  74 04 00 04 0 000000      2481.               J          0,XL.
      004043  10 00 02 00 0 000101      2482.       BRSI    LA         XV,NUMBER.
      004044  74 13 04 00 0 004023      2483.               LMJ        XL,SCALE.           GET SCALE FACTOR
      004045  10 00 03 00 0 000104      2484.               LA         XV+1,SAVE.
      004046  74 04 00 00 0 004050      2485.               J          $+2.
      004047  31 16 03 00 0 000012      2486.               MSI,U      XV+1,10.
      004050  70 00 16 00 0 004047      2487.               JGD        XV,$-1.
      004051  74 13 04 00 0 000003      2488.               NODE       INTGER
      004052  74 04 00 00 0 004142      2489.               J          TOKOUT.
      004053  10 00 02 00 0 000102      2490.       BRSO    LA         XV,OKTAL.
      004054  74 13 04 00 0 004023      2491.               LMJ        XL,SCALE.
      004055  31 16 02 00 0 000003      2492.               MSI,U      XV,3.
      004056  10 00 03 00 0 000104      2493.               LA         XV+1,SAVE.
      004057  73 10 03 16 0 000000      2494.               LSSC       XV+1,0,XV.
      004060  74 13 04 00 0 000006      2495.               NODE       OCTAL.
      004061  74 04 00 00 0 004142      2496.               J          TOKOUT.
      004062  10 00 02 00 0 000101      2497.       FPS     LA         XV,NUMBER.
      004063  74 13 04 00 0 004023      2498.               LMJ        XL,SCALE.           GET EXPONENT.
      004064  10 00 03 00 0 000104      2499.               LA         XV+1,SAVE.
      004065  61 00 00 00 0 000103      2500.               TN         SIGN.
      004066  74 04 00 00 0 004071      2501.               J          FPS1.
      004067  74 04 00 00 0 004074      2502.               J          FPS2.
      004070  76 02 03 00 0 000352      2503.               FM         XV+1,(10.0).
      004071  70 00 16 00 0 004070      2504.       FPS1    JGD        XV,$-1.
      004072  74 04 00 00 0 004075      2505.               J          FPS2+1.
      004073  76 03 03 00 0 000352      2506.               FD         XV+1,(10.0).
      004074  70 00 16 00 0 004073      2507.       FPS2    JGD        XV,$-1.
      004075  74 13 04 00 0 000011      2508.               NODE       REAL.
      004076  74 04 00 00 0 004142      2509.               J          TOKOUT.
      004077  10 16 02 00 0 000001      2510.       BRC     LA,U       XV,1.
      004100  01 00 02 00 0 000102      2511.               SA         XV,OKTAL.
      004101  74 13 10 00 0 003724      2512.               LMJ        XW,NEXTC.
      004102  53 16 02 00 0 000006      2513.               BREAK      'A',BRCA 'D',BRCD 'R',BRCR.
      004103  74 04 00 00 0 004111
      004104  53 16 02 00 0 000011
      004105  74 04 00 00 0 004113
      004106  53 16 02 00 0 000027
      004107  74 04 00 00 0 004121
      004110  74 04 00 00 0 003722      2514.               J          CANCEL.
      004111  10 16 02 00 0 000000      2515.       BRCA    LA,U       XV,0.
      004112  74 04 00 00 0 004114      2516.               J          $+2
      004113  10 16 02 00 0 000001      2517.       BRCD    LA,U       XV,1.
      004114  73 03 02 00 0 000001      2518.               DSL        XV,1.
      004115  10 00 02 00 0 000102      2519.               LA         XV,OKTAL.
      004116  73 13 02 00 0 000001      2520.               LDSL       XV,1.
      004117  01 00 02 00 0 000102      2521.               SA         XV,OKTAL.
      004120  74 04 00 00 0 003724      2522.               J          NEXTC.
      004121  46 16 10 00 0 004124      2523.       BRCR    LXI,U      XW,CARCDR.
      004122  26 16 10 00 0 003722      2524.               LXM,U      XW,CANCEL.
      004123  74 04 00 00 0 003724      2525.               J          NEXTC.
      004124  74 13 04 00 0 004327      2526.       CARCDR  LMJ        XL,INTERN.          PUT AWAY ATOM
      004125  74 04 00 00 0 004142      2527.               J          TOKOUT.             ALREADY THERE
      004126  01 00 02 01 2 040000      2528.               STORE
      004127  01 00 02 02 0 040000
      004130  10 00 02 00 0 000102      2529.               LA         XV,OKTAL.
      004131  10 16 03 00 0 006346      2530.               LA,U       XV+1,FOLLOW.
      004132  74 13 04 00 0 000022      2531.               NODE       LINKER
      004133  10 00 03 00 0 000016      2532.               LA         XV+1,XV.
      004134  26 16 01 01 0 000001      2533.               POP
      004135  10 00 02 01 0 040000      2534.               LA         XV,STACK,XT.
      004136  01 04 03 16 0 000000      2535.               SA,LH      XV+1,0,XV.          PLUG VALUE OF ATOM
      004137  74 04 00 00 0 004142      2536.               J          TOKOUT.
      004140  74 13 04 00 0 004327      2537.       NORMAL  LMJ        XL,INTERN.          PUT AWAY ATOM
      004141  74 06 00 00 0 000000      2538.               NOP .                          DON'T CARE IF NEW
      004142  25 16 06 00 0 000001      2539.       TOKOUT  ANX,U      XI,1.               REPICK LAST CHARACTER
      004143  74 04 00 00 0 000011      2540.               RETURN
                                        2541.       . READ A STRING
      004144  27 00 12 00 0 000331      2542.       MACSTR  LX         XW1,(1,0).
      004145  72 10 00 06 2 004422      2543.               EX         INPUT,*XI.          READ TILL NEXT STRCHR
      004146  74 03 02 00 0 004160      2544.               JN         XV,MCSTRD.          END OF COMPRESS
      004147  10 03 03 16 0 000113      2545.               L,RH       XV+1,DELIMS,XV.
      004150  52 16 03 00 0 004144      2546.               TE,U       XV+1,MACSTR.        STRCHR?
      004151  74 04 00 00 0 004156      2547.               J          $+5.                NO
      004152  72 10 00 06 2 004422      2548.               EX         INPUT,*XI.          YES
      004153  10 03 03 16 0 000113      2549.               L,RH       XV+1,DELIMS,XV.
      004154  52 16 03 00 0 004144      2550.               TE,U       XV+1,MACSTR.        DOUBLE STRCHR = STRCHR
      004155  74 04 00 00 0 004160      2551.               J          MCSTRD.
      004156  72 10 00 12 2 004162      2552.               EX         PUTIT,*XW1.
      004157  74 04 00 00 0 004145      2553.               J          MACSTR+1.
      004160  74 13 14 00 0 004372      2554.       MCSTRD  LMJ        XX,MAKSTR.          CONSTRUCT THE STRING
      004161  74 04 00 00 0 004142      2555.               J          TOKOUT.
                                        2556.       . PUT CHARS IN NAME BUFFER
      004162  74 13 14 00 0 004165      2557.       PUTIT   LMJ        XX,PUTIT1.
                                        2558.       I       DO         6 ,
      004163  01 10 02 00 1 000051      2559.               SA         XV,*NAME,,S1-I+1.
      004164  74 13 14 00 0 004167      2560.               LMJ        XX,PUTIT2.
      004165  10 16 06 00 0 000051      2561.       PUTIT1  LA,U       XXA,NAME.
      004166  01 00 06 00 0 000051      2562.               SA         XXA,NAME.
      004167  10 00 06 00 0 000051      2563.       PUTIT2  LA         XXA,NAME.
      004170  52 16 06 00 0 000100      2564.               TE,U       XXA,NAME+23.
      004171  14 16 06 00 0 000001      2565.               AA,U       XXA,1.
      004172  01 00 06 00 0 000051      2566.               SA         XXA,NAME.
      004173  05 00 00 00 1 000051      2567.               SZ         *NAME.
      004174  01 15 02 00 1 000051      2568.               SA,S1      XV,*NAME.
      004175  26 16 12 00 0 000002      2569.               LXM,U      XW1,2.
      004176  74 04 00 14 0 000000      2570.               J          0,XX.
                                        2571.       /$(8).
    8 000051                            2572.       NAME    RES        24
      000101                            2573.       NUMBER  RES        1
      000102                            2574.       OKTAL   RES        1
      000103                            2575.       SIGN    RES        1
      000104                            2576.       SAVE    RES        1
                                        2577.       $(6).
    6 000100  00 00 00 00 76 55         2578.               +          0,0,0,0,STRC,ESCC.
              00 11 00 00 0 000100      2579.       STRCHR  EQUF       $-1,,S5.
              00 10 00 00 0 000100      2580.       ESCCHR  EQUF       $-1,,S6.
                                        2581.       FPDIGS .
      000101  000000000000              2582.       I       DO         10 , +(I-1.0).
      000102  201400000000
      000103  202400000000
      000104  202600000000
      000105  203400000000
      000106  203500000000
      000107  203600000000
      000110  203700000000
      000111  204400000000
      000112  204440000000
                                        2583.       . DELIMITER / READMACRO TABLE
      000113  001000 001000             2584.       DELIMS  +          NIL,NIL.            @
      000114  001114 001000             2585.               +          TRU,NIL.            [
      000115  001114 001000             2586.               +          TRU,NIL.            ]
      000116  001000 001000             2587.               +          NIL,NIL.            #
      000117  001000 001000             2588.               +          NIL,NIL.            ^
      000120  001114 003632             2589.               +          TRU,MACIGN.         (SPACE)
      000121  001000 001000             2590.               DO  'Z'-'A'+1 , + NIL,NIL.     (A - Z)
      000122  001000 001000
      000123  001000 001000
      000124  001000 001000
      000125  001000 001000
      000126  001000 001000
      000127  001000 001000
      000130  001000 001000
      000131  001000 001000
      000132  001000 001000
      000133  001000 001000
      000134  001000 001000
      000135  001000 001000
      000136  001000 001000
      000137  001000 001000
      000140  001000 001000
      000141  001000 001000
      000142  001000 001000
      000143  001000 001000
      000144  001000 001000
      000145  001000 001000
      000146  001000 001000
      000147  001000 001000
      000150  001000 001000
      000151  001000 001000
      000152  001000 001000
      000153  001114 001000             2591.               +          TRU,NIL.            )
      000154  001000 001000             2592.               +          NIL,NIL.            -
      000155  001000 001000             2593.               +          NIL,NIL.            +
      000156  001114 001000             2594.               +          TRU,NIL.            <
      000157  001000 001000             2595.               +          NIL,NIL.            =
      000160  001114 001000             2596.               +          TRU,NIL.            >
      000161  001000 001000             2597.               +          NIL,NIL.            &
      000162  001000 001000             2598.               +          NIL,NIL.            $
      000163  001000 001000             2599.               +          NIL,NIL.            *
      000164  001114 001000             2600.               +          TRU,NIL.            (
      000165  001000 001000             2601.               +          NIL,NIL.            %
      000166  001000 001000             2602.               +          NIL,NIL.            :
      000167  001114 003631             2603.               +          TRU,MACEND.         ?
      000170  001000 003717             2604.               +          NIL,MACESC.         !
      000171  001114 003632             2605.               +          TRU,MACIGN.         ,
      000172  001000 001000             2606.               +          NIL,NIL.            \
      000173  001000 001000             2607.               DO  '9'-'0'+1 , + NIL,NIL.     (1 - 9)
      000174  001000 001000
      000175  001000 001000
      000176  001000 001000
      000177  001000 001000
      000200  001000 001000
      000201  001000 001000
      000202  001000 001000
      000203  001000 001000
      000204  001000 001000
      000205  001114 003647             2608.               +          TRU,MACQUO.         '
      000206  001000 001000             2609.               +          NIL,NIL.
      000207  001000 001000             2610.               +          NIL,NIL.            /
      000210  001114 001000             2611.               +          TRU,NIL.            .
      000211  001000 004144             2612.               +          NIL,MACSTR.         "
      000212  001000 001000             2613.               +          NIL,NIL.            (077)
                                        2614.       $(3).
                                        2615.       /. READ ONE CHARACTER.
    3 004177  72 10 00 06 2 004422      2616.       READCH  EX         INPUT,*XI.
      004200  73 12 02 00 0 000001      2617.               LSSL       XV,1.
      004201  24 16 16 00 0 001032      2618.               AX,U       XV,CHARS.
      004202  74 04 00 00 0 000011      2619.               RETURN
                                        2620.       . CLEAR INPUT BUFFER
      004203  26 16 06 00 0 000000      2621.       CLEARB  LXM,U      XI,0.
      004204  74 04 00 00 0 006455      2622.               J          GFAL.
                                        2623.       . SET COLUMN FOR READ
      004205  12 03 02 02 0 037777      2624.       SETCOL  LOAD       1.
      004206  12 16 02 00 0 000001
      004207  10 00 00 16 0 000000      2625.               L          XX,0,XV.
      004210  73 05 00 00 0 000044      2626.               DSA        XX,36.
      004211  34 16 00 00 0 000006      2627.               DI,U       XX,6.
      004212  14 16 00 00 0 000220      2628.               A,U        XX,IMAGE+1.
      004213  01 00 00 00 0 000217      2629.               S          XX,IMAGE.
      004214  26 00 06 00 0 000015      2630.               LXM        XI,XX+1.
      004215  74 04 00 00 0 006455      2631.               J          GFAL.
                                        2632.       . BACKSPACE ONE CHARACTER
      004216  26 00 14 00 0 000006      2633.       BACKSP  LXM        XX,XI.
      004217  74 00 00 00 0 006455      2634.               JZ         XX,GFAL.            BUFFER EMPTY
      004220  53 16 00 00 0 000001      2635.               TNE,U      XX,1.
      004221  74 04 00 00 0 004224      2636.               J          $+3.
      004222  25 16 06 00 0 000001      2637.               ANX,U      XI,1.
      004223  74 04 00 00 0 006470      2638.               J          GTRU.               OK
      004224  10 00 00 00 0 000217      2639.               L          XX,IMAGE.           AT START OF WORD
      004225  53 16 00 00 0 000220      2640.               TNE,U      XX,IMAGE+1.         FIRST WORD IN IMAGE?
      004226  74 04 00 00 0 006455      2641.               J          GFAL.               YES
      004227  15 16 00 00 0 000001      2642.               AN,U       XX,1.               NO: MOVE TO PRECEEDING WORD
      004230  01 00 00 00 0 000217      2643.               S          XX,IMAGE.
      004231  26 16 06 00 0 000006      2644.               LXM,U      XI,6.
      004232  74 04 00 00 0 006470      2645.               J          GTRU.
                                        2646.       . SET OR CLEAR DELIMITER FLAG
      004233  05 00 00 01 2 040000      2647.       DELIM   SZ         STACK,*XT.
      004234  12 03 02 02 0 037777      2648.               LOAD       1.
      004235  12 16 02 00 0 000001
      004236  10 15 00 16 0 000000      2649.               L,S1       XX,0,XV.            GET CHARACTER
      004237  10 04 02 14 0 000113      2650.               L,LH       XV,DELIMS,XX.       GET OLD FLAG
      004240  12 03 03 02 0 037776      2651.               LMA,RH     XV+1,STACK-2,XF.
      004241  74 00 03 00 0 000011      2652.               JZ         XV+1,EXIT.          JUST RETURN IT
      004242  01 04 03 14 0 000113      2653.               S,LH       XV+1,DELIMS,XX.     SET NEW FLAG FIRST
      004243  74 04 00 00 0 000011      2654.               RETURN.
                                        2655.       . DEFINE OR CLEAR READMACRO
      004244  05 00 00 01 2 040000      2656.       READMC  SZ         STACK,*XT.
      004245  12 03 02 02 0 037777      2657.               LOAD       1.
      004246  12 16 02 00 0 000001
      004247  10 15 00 16 0 000000      2658.               L,S1       XX,0,XV.            GET CHARACTER
      004250  10 03 02 14 0 000113      2659.               L,RH       XV,DELIMS,XX.       GET OLD READMACRO (OR NIL)
      004251  12 03 03 02 0 037776      2660.               LMA,RH     XV+1,STACK-2,XF.
      004252  74 00 03 00 0 000011      2661.               JZ         XV+1,EXIT.          JUST RETURN IT
      004253  01 03 03 14 0 000113      2662.               S,RH       XV+1,DELIMS,XX.     SET NEW READMACRO FIRST
      004254  53 16 03 00 0 003717      2663.               TNE,U      XV+1,MACESC.
      004255  01 10 00 00 0 000100      2664.               S          XX,ESCCHR.          STORE NEW ESCAPE CHAR FOR PRIN2
      004256  53 16 03 00 0 004144      2665.               TNE,U      XV+1,MACSTR.
      004257  01 11 00 00 0 000100      2666.               S          XX,STRCHR.          STORE NEW STRING CHAR FOR PRIN2
      004260  74 04 00 00 0 000011      2667.               RETURN.
                                        2668.       /. COMPRESS LIST INTO AN ATOM
                                        2669.       COMPRESS
    3 004261  06 00 06 00 0 000152      2670.               S          XI,XISAV.           SAVE XI
      004262  27 00 06 00 0 000356      2671.               L          XI,(0,-1).
      004263  12 03 02 02 0 037777      2672.               LOAD       1.
      004264  12 16 02 00 0 000001
      004265  01 00 02 00 0 000105      2673.               S          XV,COMPL.
      004266  06 00 01 03 2 040000      2674.               LETS       TOKEN.
      004267  23 16 03 00 0 003662
      004270  04 00 03 01 2 040000
      004271  74 13 04 00 0 000004      2675.               CALLR.
      004272  27 00 06 00 0 000152      2676.               L          XI,XISAV.           RESTORE XI
      004273  74 04 00 00 0 000011      2677.               RETURN.
                                        2678.       . COME HERE TO GET A CHAR
      004274  10 00 02 00 0 000105      2679.       COMPGC  L          XV,COMPL.
      004275  53 16 02 00 0 001000      2680.               TNE        XV,KNIL.
      004276  74 04 00 00 0 004311      2681.               J          COMPDN.
      004277  12 03 03 16 0 000000      2682.               LOWER      XV+1.
      004300  01 00 03 00 0 000105      2683.               S          XV+1,COMPL.
      004301  12 04 02 16 0 000000      2684.               UPPER      XV.
      004302  42 16 02 00 1 177600      2685.               GETYPE.
      004303  73 02 03 00 0 000007
      004304  10 13 03 17 0 000040
      004305  53 16 03 00 0 000007      2686.               TNE,U      XV+1,SYMBOL.
      004306  12 03 02 16 0 000001      2687.               LMA,RH     XV,1,XV.
      004307  10 15 02 16 0 000000      2688.               L,S1       XV,0,XV.
      004310  74 04 00 14 0 000000      2689.               J          0,XX.
      004311  11 16 02 00 0 000077      2690.       COMPDN  LN,U       XV,077.             STOP READING
      004312  74 04 00 14 0 000000      2691.               J          0,XX.
                                        2692.       $(8).
    8 000105                            2693.       COMPL   RES        1.
                                        2694.       $(3).
                                        2695.       /. GUARANTEE UNIQUENESS FOR ATOMIC SYMBOL
    3 004313  10 16 04 00 0 000000      2696.       INTERH  LA,U       XA,0.               COMPUTE HASH TOTAL.
      004314  27 16 14 00 0 000051      2697.               LX,U       XX,NAME.
      004315  53 03 00 00 0 000051      2698.       INTER1  TNE,RH     XX,NAME.            ADD UP CHARACTERS
      004316  74 04 00 00 0 004327      2699.               J          INTERN.
      004317  24 16 14 00 0 000001      2700.               AX,U       XX,1.
      004320  14 15 04 14 0 000000      2701.       I       DO         6 ,  AA   XA,0,XX,S1-I+1.
      004321  14 14 04 14 0 000000
      004322  14 13 04 14 0 000000
      004323  14 12 04 14 0 000000
      004324  14 11 04 14 0 000000
      004325  14 10 04 14 0 000000
      004326  74 04 00 00 0 004315      2702.               J          INTER1.
      004327  01 00 04 00 0 000101      2703.       INTERN  SA         XA,NUMBER.          HASH TOTAL ALREADY COMPUTED
      004330  27 10 14 00 0 000101      2704.               LX,S6      XX,NUMBER.
      004331  12 03 02 14 0 002040      2705.               LMA,RH     XV,HASH,XX.
      004332  74 00 02 00 0 004357      2706.       P7LOOP  JZ         XV,P7NEW.           ATOM NOT IN HASH LIST?
      004333  12 03 03 16 0 000001      2707.               LMA,RH     XV+1,1,XV.          PNAME OF EXISTING ATOM
      004334  27 16 14 00 0 000051      2708.               LX,U       XX,NAME.
      004335  21 03 00 00 0 000051      2709.       P7L1    ANU,RH     XX,NAME.
      004336  52 16 03 00 0 001000      2710.               TE         XV+1,KNIL.          NO MORE PNAME?
      004337  74 04 00 00 0 004343      2711.               J          P7L2.
      004340  74 00 01 04 0 000000      2712.               JZ         XX+1,0,XL.          NO MORE NAME?
      004341  12 04 02 16 0 000001      2713.       P7NA    LMA,LH     XV,1,XV.            NEXT ATOM IN HASH LIST
      004342  74 04 00 00 0 004332      2714.               J          P7LOOP.
      004343  74 00 01 00 0 004341      2715.       P7L2    JZ         XX+1,P7NA.
      004344  05 00 00 00 0 000015      2716.               SZ         XY.
      004345  46 02 15 17 0 000000      2717.               LXI,H1     XY,0,XV+1.          GET 3 CHARS
      004346  12 03 03 17 0 000000      2718.               LMA,RH     XV+1,0,XV+1.
      004347  52 16 03 00 0 001000      2719.               TE         XV+1,KNIL.
      004350  26 02 15 17 0 000000      2720.               LXM,H1     XY,0,XV+1.          GET NEXT 3 CHARS (0 IF NONE)
      004351  24 16 14 00 0 000001      2721.               AX,U       XX,1.               MOVE TO NEXT WORD
      004352  52 00 01 14 0 000000      2722.               TE         XY,0,XX.            TEST 6 CHARS
      004353  74 04 00 00 0 004341      2723.               J          P7NA.
      004354  52 16 03 00 0 001000      2724.               TE         XV+1,KNIL.          AT END OF NAME?
      004355  12 03 03 17 0 000000      2725.               LMA,RH     XV+1,0,XV+1         NO: MOVE TO NEXT 3 CHARS
      004356  74 04 00 00 0 004335      2726.               J          P7L1.
      004357  06 00 04 01 2 040000      2727.       P7NEW   SX         XL,STACK,*XT.
      004360  74 13 14 00 0 004372      2728.               LMJ        XX,MAKSTR.          CONSTRUCT PRINT-NAME
      004361  10 16 03 00 0 001000      2729.               LA         XV+1,KNIL.          EMPTY PROPERTY LIST
      004362  74 13 04 00 0 000025      2730.               NODE       SYMBOL.             CREATE ATOMIC SYMBOL
      004363  27 10 14 00 0 000101      2731.               LX,S6      XX,NUMBER.
      004364  12 03 01 14 0 002040      2732.               LMA,RH     XY,HASH,XX.         ADD TO HASH LIST
      004365  01 04 01 16 0 000001      2733.               SA,LH      XY,1,XV.
      004366  01 03 02 14 0 002040      2734.               SA,RH      XV,HASH,XX.
      004367  26 00 04 01 0 040001      2735.               LXM        XL,STACK+1,XT.
      004370  26 16 01 01 0 000001      2736.               POP
      004371  74 04 00 04 0 000001      2737.               J          1,XL.               EXIT FOR NEW ATOM                                                                          2738.       /. CONSTRUCT A STRING FROM NAME BUFFER
    3 004372  12 03 02 02 0 037000      2739.       MAKSTR  LOAD       NIL.
      004373  12 16 02 00 0 001000
      004374  10 03 01 00 0 000051      2740.               L,RH       XY,NAME.
      004375  53 16 01 00 0 000051      2741.               TNE,U      XY,NAME.
      004376  74 04 00 14 0 000000      2742.               J          0,XX.               DONE
      004377  10 00 03 00 0 000016      2743.               L          XV+1,XV.
      004400  10 01 02 15 0 000000      2744.               L,H2       XV,0,XY.            3 CHARS
      004401  74 00 02 00 0 004404      2745.               JZ         XV,$+3.
      004402  74 13 04 00 0 000030      2746.               NODE       STRING.
      004403  10 00 03 00 0 000016      2747.               L          XV+1,XV.            3 CHARS
      004404  10 02 02 15 0 000000      2748.               L,H1       XV,0,XY.
      004405  74 13 04 00 0 000030      2749.               NODE       STRING.
      004406  25 16 15 00 0 000001      2750.               ANX,U      XY,1.
      004407  74 04 00 00 0 004374      2751.               J          MAKSTR+2.
                                        2752.       . CONVERT ATOMIC SYMBOL TO STRING
      004410  12 03 02 02 0 037777      2753.       GSTRNG  LOAD       1.
      004411  12 16 02 00 0 000001
      004412  12 03 02 16 0 000001      2754.               LMA,RH     XV,1,XV.
      004413  74 04 00 00 0 000011      2755.               RETURN.
                                        2756.       . CONVERT STRING TO ATOMIC SYMBOL
      004414  12 03 00 02 0 037777      2757.       GATSYM  LMA,RH     XX,STACK-1,XF.
      004415  74 13 04 00 0 006265      2758.               LMJ        XL,GETNAM+1.
      004416  74 13 04 00 0 004313      2759.               LMJ        XL,INTERH.
      004417  74 06 00 00 0 000000      2760.               NOP.
      004420  74 04 00 00 0 000011      2761.               RETURN.
                                        2762.       /. INPUT ROUTINE
    3 004421  74 13 14 00 0 004274      2763.               LMJ        XX,COMPGC.          COME HERE FOR COMPRESS
      004422  74 13 14 00 0 004425      2764.       INPUT   LMJ        XX,INPUT1
                                        2765.       I       DO         6 ,
      004423  10 10 02 00 1 000217      2766.               LA         XV,*IMAGE,,S1-I+1.
      004424  74 13 14 00 0 004475      2767.               LMJ        XX,INPUT2.
      004425  01 00 00 00 0 000152      2768.       INPUT1  S          XX,XISAV.
      004426  10 16 00 00 0 000361      2769.       RCARD   R$EAD      (PAIR EOF,IMAGE+1).
      004427  10 00 00 14 0 000000
U     004430  72 11 00 00 0 000000
      004431  50 11 00 00 0 000213      2770.               TZ         AFSKIP.
      004432  45 00 00 00 0 000362      2771.               TOP        A0,(1*/34).
      004433  74 04 00 00 0 004435      2772.               J          $+2.
      004434  74 04 00 00 0 004426      2773.               J          RCARD.              SKIP @ADD STUFF
      004435  05 11 00 00 0 000213      2774.               SZ         AFSKIP.
      004436  44 00 00 00 0 000363      2775.               TEP        A0,(1*/31).
      004437  74 04 00 00 0 004426      2776.               J          RCARD.              IGNORE INFOR STUFF
      004440  27 00 16 00 0 000332      2777.               LX         XV,('      ').
      004441  06 00 16 14 0 000220      2778.               SX         XV,IMAGE+1,A0.
      004442  01 13 00 00 0 000215      2779.               S          A0,RWORDS.
      004443  46 16 14 00 0 000000      2780.               LXI,U      A0,0.
      004444  14 16 00 00 0 000221      2781.               AA,U       A0,IMAGE+2.
      004445  01 00 00 00 0 000216      2782.               SA         A0,IMAGE-1.
      004446  10 00 00 00 0 000215      2783.               LA         A0,LFLAG.
      004447  51 14 00 00 0 000213      2784.               TNZ        LMODE.              NO LISTING?
U     004450  72 11 00 00 0 000000      2785.               ER         PRINT$
      004451  10 15 00 00 0 000220      2786.               LA,S1      XX,IMAGE+1.
      004452  53 16 00 00 0 000053      2787.               TNE,U      XX,CTRCHR.
      004453  74 04 00 00 0 004513      2788.               J          CONTRL.
      004454  50 13 00 00 0 000213      2789.               TZ         DMODE.
      004455  51 12 00 00 0 000213      2790.               TNZ        EVMODE.
      004456  74 04 00 00 0 004471      2791.               J          INPUT3.
      004457  10 00 00 00 0 000364      2792.               L          XX,(PF 0,2,5,MESS23).
      004460  51 10 00 00 0 000213      2793.               TNZ        DSKIP.
U     004461  72 11 00 00 0 000000      2794.               ER         PRINT$.
      004462  04 10 17 00 0 000213      2795.               S          XFLAG,DSKIP.
      004463  74 04 00 00 0 004426      2796.               J          RCARD.
      004464  100627113005              2797.       MESS23  'CARDS SKIPPED IN DATA MODE'
      004465  302016252512
      004466  110516230511
      004467  063106052224
      004470  111205050505
      004471  05 10 00 00 0 000213      2798.       INPUT3  SZ         DSKIP.
      004472  10 00 00 00 0 000152      2799.               L          XX,XISAV.
      004473  10 16 02 00 0 000217      2800.               LA,U       XV,IMAGE.
      004474  01 00 02 00 0 000217      2801.               SA         XV,IMAGE.
      004475  27 00 06 00 0 000365      2802.       INPUT2  LX         XI,(+1,1).
      004476  10 00 02 00 0 000217      2803.               LA         XV,IMAGE.           TO NEXT WORD
      004477  14 16 02 00 0 000001      2804.               AA,U       XV,1.
      004500  01 00 02 00 0 000217      2805.               SA         XV,IMAGE.
      004501  55 00 02 00 0 000216      2806.               TG         XV,IMAGE-1.
      004502  74 04 00 00 0 004425      2807.               J          INPUT1.
      004503  72 10 00 06 2 004422      2808.               EX         INPUT,*XI.
      004504  74 04 00 14 0 000000      2809.               J          0,XX.
      004505  10 16 00 00 0 000366      2810.       EOF     P$RINT     (PF 0,2,2,MESS4).
      004506  10 00 00 14 0 000000
U     004507  72 11 00 00 0 000000
      004510  74 04 00 00 0 000765      2811.               J          FINIS.
      004511  122311052413              2812.       MESS4   'END OF FILE'
      004512  051316211205
      004513  27 16 16 00 0 000000      2813.       CONTRL  LX,U       XV,0.
      004514  10 00 00 16 0 004531      2814.               LA         XX,CTAB,XV.
      004515  53 00 00 00 0 000220      2815.               TNE        XX,IMAGE+1.
      004516  74 04 00 16 0 004532      2816.               J          CTAB+1,XV.
      004517  24 16 16 00 0 000002      2817.               AX,U       XV,2.
      004520  74 01 00 00 0 004514      2818.               JNZ        XX,CONTRL+1.
      004521  10 16 00 00 0 000367      2819.               P$RINT     (PF 0,2,4,MESS6).
      004522  10 00 00 14 0 000000
U     004523  72 11 00 00 0 000000
      004524  74 04 00 00 0 004426      2820.               J          RCARD.
      004525  102423312724              2821.       MESS6   'CONTROL CARD MISPELED'
      004526  210510062711
      004527  052216302512
      004530  211211050505
                                        2822.       CON*    PROC
                                        2823.       XX      FORM       6,30
                                        2824.               XX         CTRCHR,CON(1,1)
                                        2825.               J          CON(2,1)
                                        2826.               END
      004531  53 2116302505             2827.       CTAB    CON        'LISP ' R2S
      004532  74 04 00 00 0 004566
      004533  53 3031242505             2828.               CON        'STOP ' FINIS
      004534  74 04 00 00 0 000765
      004535  53 1235121005             2829.               CON        'EXEC ' CSF
      004536  74 04 00 00 0 004636
      004537  53 3116221205             2830.               CON        'TIME ' TIME
      004540  74 04 00 00 0 004654
      004541  53 2116303105             2831.               CON        'LIST ' LON
      004542  74 04 00 00 0 004575
      004543  53 3223211630             2832.               CON        'UNLIS' LOFF
      004544  74 04 00 00 0 004577
      004545  53 0706102005             2833.               CON        'BACK ' BACK
      004546  74 04 00 00 0 001363
      004547  53 2424253005             2834.               CON        'OOPS ' OOPS
      004550  74 04 00 00 0 004572
      004551  53 1106310605             2835.               CON        'DATA ' SDATA
      004552  74 04 00 00 0 004601
      004553  53 2124061105             2836.               CON        'LOAD ' SLOAD
      004554  74 04 00 00 0 004603
      004555  53 1223110505             2837.               CON        'END  ' ENDER
      004556  74 04 00 00 0 004616
      004557  53 1020253105             2838.               CON        'CKPT ' CKPT
      004560  74 04 00 00 0 005025
      004561  53 2730312705             2839.               CON        'RSTR ' RSTR
      004562  74 04 00 00 0 005051
      004563  53 2512122005             2840.               CON        'PEEK ' PEEK
      004564  74 04 00 00 0 001400
      004565  000000000000              2841.               +          0.
                                        2842.       /$(6)
    6 000213  000000000000              2843.               +          0.
              00 15 00 00 0 000213      2844.       CMODE   EQUF       $-1,,S1.            CONVERSATIONAL FLAG
              00 14 00 00 0 000213      2845.       LMODE   EQUF       $-1,,S2.            LISTING FLAG
              00 13 00 00 0 000213      2846.       DMODE   EQUF       $-1,,S3.            DATA MODE FLAG
              00 12 00 00 0 000213      2847.       EVMODE  EQUF       $-1,,S4.            EVALUATION MODE FLAG
              00 11 00 00 0 000213      2848.       AFSKIP  EQUF       $-1,,S5.            SKIP @ADD STUFF FLAG
              00 10 00 00 0 000213      2849.       DSKIP   EQUF       $-1,,S6.            SKIP DATA MESSAGE FLAG
      000214  000000000000              2850.               +          0.
              00 03 00 00 0 000214      2851.       LMDCNT  EQUF       $-1,,RH.
              00 15 00 00 0 000214      2852.       LMDSAV  EQUF       $-1,,S1.
      000215  00 01 16 000220           2853.       LFLAG   PF         0,1,14,IMAGE+1.
              00 07 00 00 0 000215      2854.       RLINES  EQUF       LFLAG,,T1.
              00 13 00 00 0 000215      2855.       RWORDS  EQUF       LFLAG,,S3.
      000216                            2856.               RES        1
      000217                            2857.       IMAGE   RES        24
                                        2858.       $(3).
                                        2859.       /. HANDLE VARIOUS CONTROL CARDS
    3 004566  74 13 07 00 0 004627      2860.       R2S     LMJ        XR,RESETL.          RETURN TO SYSTEM
      004567  05 13 00 00 0 000213      2861.               SZ         DMODE.
      004570  11 16 04 00 0 000006      2862.       GOBAK   LN,U       XA,6.
      004571  74 04 00 00 0 001475      2863.               J          UNWIND.
      004572  11 16 04 00 0 000005      2864.       OOPS    LN,U       XA,5.               RE-START READ ROUTINE
      004573  26 16 06 00 0 000000      2865.               LXM,U      XI,0.
      004574  74 04 00 00 0 001475      2866.               J          UNWIND.
      004575  05 14 00 00 0 000213      2867.       LON     SZ         LMODE.              LISTING ON
      004576  74 04 00 00 0 004426      2868.               J          RCARD.
      004577  04 14 17 00 0 000213      2869.       LOFF    S          XFLAG,LMODE.
      004600  74 04 00 00 0 004426      2870.               J          RCARD.
      004601  04 13 17 00 0 000213      2871.       SDATA   S          XFLAG,DMODE.        SET DATA MODE
      004602  74 04 00 00 0 004426      2872.               J          RCARD.
      004603  10 03 02 00 0 000214      2873.       SLOAD   L          XV,LMDCNT.          SET LOAD MODE
      004604  74 00 02 00 0 004607      2874.               JZ         XV,$+3.
      004605  14 16 02 00 0 000001      2875.               A,U        XV,1.               NESTED :LOAD'S
      004606  74 04 00 00 0 004612      2876.               J          $+4.
      004607  10 14 03 00 0 000213      2877.               L          XV+1,LMODE.         FIRST :LOAD
      004610  01 15 03 00 0 000214      2878.               S          XV+1,LMDSAV.
      004611  10 16 02 00 0 000001      2879.               L,U        XV,1.
      004612  01 03 02 00 0 000214      2880.               S          XV,LMDCNT.
      004613  10 16 02 00 0 000001      2881.               L,U        XV,1.
      004614  01 14 02 00 0 000213      2882.               S          XV,LMODE.
      004615  74 04 00 00 0 004426      2883.               J          RCARD.
      004616  05 13 00 00 0 000213      2884.       ENDER   SZ         DMODE.              END DATA AND LOAD MODE
      004617  10 03 02 00 0 000214      2885.               L          XV,LMDCNT.
      004620  74 00 02 00 0 004426      2886.               JZ         XV,RCARD.           NOT :LOADING
      004621  15 16 02 00 0 000001      2887.               AN,U       XV,1.
      004622  01 03 02 00 0 000214      2888.               S          XV,LMDCNT.
      004623  74 01 02 00 0 004426      2889.               JNZ        XV,RCARD.           STILL :LOADING
      004624  10 15 02 00 0 000214      2890.               L          XV,LMDSAV.
      004625  01 14 02 00 0 000213      2891.               S          XV,LMODE.           RESTORE LISTING MODE
      004626  74 04 00 00 0 004426      2892.               J          RCARD.
                                        2893.       . ROUTINE TO RESET LISTING MODE
      004627  05 00 00 00 0 000045      2894.       RESETL  SZ         PFNAM.
      004630  51 03 00 00 0 000214      2895.               TNZ        LMDCNT.
      004631  74 04 00 07 0 000000      2896.               J          0,XR.
      004632  10 15 00 00 0 000214      2897.               L          XX,LMDSAV.
      004633  01 14 00 00 0 000213      2898.               S          XX,LMODE.
      004634  05 03 00 00 0 000214      2899.               SZ         LMDCNT.
      004635  74 04 00 07 0 000000      2900.               J          0,XR.
                                        2901.       /. LINK TO EXEC TO HANDLE SYSTEM CONTROL CARD
    3 004636  46 13 14 00 0 000215      2902.       CSF     LXI        XX,RWORDS.
      004637  26 16 14 00 0 000221      2903.               LXM,U      XX,IMAGE+2.
      004640  05 15 00 00 0 000221      2904.               SZ,S1      IMAGE+2.
U     004641  72 11 00 00 0 000000      2905.               ER         CSF$
      004642  74 02 00 00 0 004570      2906.               JP         XX,GOBAK.
      004643  01 00 00 00 0 000220      2907.               SA         XX,IMAGE+1.
      004644  74 13 07 00 0 003356      2908.               EDIT
      004645  123512100527              2909.               'EXEC REJECTED: @'
      004646  121712103112
      004647  115305000505
      004650  10 00 02 00 0 000220      2910.               LA         XV,IMAGE+1.
      004651  74 13 04 00 0 003066      2911.               LMJ        XL,OCTOUT.
      004652  74 13 14 00 0 003475      2912.               LMJ        XX,SENDDB.
      004653  74 04 00 00 0 004570      2913.               J          GOBAK.
                                        2914.       /. PRINT TIMING INFORMATION
    3 004654  74 13 07 00 0 003356      2915.       TIME    EDIT
      004655  123306213206              2916.               'EVALUATION: @'
      004656  311624235305
      004657  000505050505
U     004660  72 11 00 00 0 000000      2917.               ER         CPU$.
      004661  15 00 00 00 0 000247      2918.               ANA        A0,ETIME.
      004662  10 00 02 00 0 000014      2919.               LA         XV,A0.
      004663  74 13 04 00 0 004704      2920.               LMJ        XL,TIMED.
      004664  74 13 07 00 0 003357      2921.               EDITA
      004665  560514062707              2922.               ', GARBAGE: @'
      004666  061412530500
      004667  10 00 02 00 0 000006      2923.               LA         XV,GTIME.
      004670  74 13 04 00 0 004704      2924.               LMJ        XL,TIMED.
      004671  74 13 07 00 0 003357      2925.               EDITA
      004672  055100050505              2926.               ' (@'
      004673  10 00 02 00 0 000010      2927.               LA         XV,GCNUM.
      004674  74 13 04 00 0 003102      2928.               LMJ        XL,INTOUT.
      004675  74 13 07 00 0 003357      2929.               EDITA
      004676  405605221222              2930.               '), MEMORY: @'
      004677  242736530500
      004700  10 00 02 00 0 000033      2931.               LA         XV,XMCNT.
      004701  74 13 04 00 0 003102      2932.               LMJ        XL,INTOUT.
      004702  74 13 14 00 0 003450      2933.               LMJ        XX,SENDIT.
      004703  74 04 00 00 0 004570      2934.               J          GOBAK.
      004704  14 16 02 00 0 000002      2935.       TIMED   A,U        XV,2.               CONVERT TO MSEC
      004705  73 05 02 00 0 000044      2936.               DSA        XV,36.
      004706  34 16 02 00 0 000005      2937.               DI,U       XV,5.
      004707  74 04 00 00 0 003102      2938.               J          INTOUT.
                                        2939.       . RETURN TOTAL TIME IN MSEC
U     004710  72 11 00 00 0 000000      2940.       TIMER   ER         CPU$.
      004711  15 00 00 00 0 000247      2941.               ANA        A0,ETIME.
      004712  10 00 03 00 0 000014      2942.               LA         XV+1,A0.
      004713  14 16 03 00 0 000002      2943.       TIMEST  A,U        XV+1,2.
      004714  73 05 03 00 0 000044      2944.               DSA        XV+1,36.
      004715  34 16 03 00 0 000005      2945.               DI,U       XV+1,5.
      004716  74 04 00 00 0 000003      2946.               J          STORIT(INTGER).
                                        2947.       . RETURN GC TIME IN MSEC
      004717  10 00 03 00 0 000006      2948.       GCTIME  L          XV+1,GTIME.
      004720  74 04 00 00 0 004713      2949.               J          TIMEST.
                                        2950.       .
                                        2951.       . RETURN # OF WORDS OF MEMORY USED SO FAR
      004721  10 00 03 00 0 000033      2952.       MEMORY  L          XV+1,XMCNT.
      004722  74 04 00 00 0 000003      2953.               J          STORIT(INTGER).
                                        2954.       $(6).
    6 000247                            2955.       ETIME   RES        1.
                                        2956.       $(3).
                                        2957.       /. GET TODAY'S DATE
U   3 004723  72 11 00 00 0 000000      2958.       DATE    ER         TDATE$.
      004724  01 00 00 00 0 000106      2959.               S          A0,SDATE.
      004725  10 15 03 00 0 000106      2960.               L,S1       XV+1,SDATE.         GET MONTH
      004726  74 13 04 00 0 000003      2961.               NODE       INTGER.
      004727  01 00 02 01 2 040000      2962.               STORE.
      004730  01 00 02 02 0 040000
      004731  10 14 03 00 0 000106      2963.               L,S2       XV+1,SDATE.         GET DAY
      004732  74 13 04 00 0 000003      2964.               NODE       INTGER.
      004733  01 00 02 01 2 040000      2965.               STORE.
      004734  01 00 02 02 0 040000
      004735  10 13 03 00 0 000106      2966.               L,S3       XV+1,SDATE.         GET YEAR
      004736  14 16 03 00 0 000100      2967.               A,U        XV+1,64.            GET RID OF OFFSET
      004737  74 13 04 00 0 000003      2968.               NODE       INTGER.
      004740  01 00 02 01 2 040000      2969.               STORE.
      004741  01 00 02 02 0 040000
      004742  74 13 04 00 0 000051      2970.               LMJ        XL,LISTEM-1.
      004743  74 04 00 00 0 000011      2971.               RETURN.
                                        2972.       .
                                        2973.       . GET CURRENT TIME IN MSEC
U     004744  72 11 00 00 0 000000      2974.       DTIME   ER         TIME$.
      004745  10 00 03 00 0 000014      2975.               L          XV+1,A0.
      004746  74 04 00 00 0 000003      2976.               J          STORIT(INTGER).
                                        2977.       .
                                        2978.       $(8)
    8 000106                            2979.       SDATE   RES        1.
                                        2980.       $(3)
                                        2981.       /. SET FLAG TO KEEP TYPE PACKED (OR CLEAR FLAGS)
    3 004747  05 00 00 01 2 040000      2982.       PACK    SZ         STACK,*XT.
      004750  12 03 02 02 0 037777      2983.               LOAD       1.
      004751  12 16 02 00 0 000001
      004752  74 01 02 00 0 004757      2984.               JNZ        XV,$+5.
      004753  10 16 02 00 0 000011      2985.               L,U        XV,NUMTYPS-1.       (*PACK) = CLEAR FLAGS
      004754  05 12 00 16 0 000036      2986.               SZ         NFLG4,XV.
      004755  70 00 16 00 0 004754      2987.               JGD        XV,$-1.
      004756  74 04 00 00 0 006455      2988.               J          GFAL.
      004757  12 00 02 16 0 000000      2989.               LMA        XV,0,XV.            SET FLAG FOR INDICATED TYPE
      004760  54 16 02 00 0 000012      2990.               TLE,U      XV,NUMTYPS.
      004761  04 12 17 16 0 000036      2991.               S          XFLAG,NFLG4,XV.
      004762  74 04 00 00 0 006455      2992.               J          GFAL.
                                        2993.       /. ADD MORE MEMORY TO SYSTEM
    3 004763  10 00 02 00 0 000250      2994.       GROW    L          XV,ENDMEM.
      004764  40 16 02 00 0 000777      2995.               OR,U       XV,0777.
      004765  14 16 03 00 0 000001      2996.               A,U        XV+1,1.
      004766  01 00 03 00 0 000250      2997.               S          XV+1,ENDMEM.
      004767  12 03 02 02 0 037431      2998.               MOVE       (0).
      004770  12 16 02 00 0 000347
      004771  01 00 02 01 2 040000
      004772  01 00 02 02 0 040000
      004773  12 03 02 02 0 037777      2999.               LOAD       1.
      004774  12 16 02 00 0 000001
      004775  10 00 00 16 0 000000      3000.               L          XX,0,XV.
      004776  73 12 00 00 0 000011      3001.               LSSL       XX,9.
      004777  14 00 00 00 0 000250      3002.               AA         XX,ENDMEM.
      005000  54 00 00 00 0 000250      3003.               TNG        XX,ENDMEM.
      005001  10 00 00 00 0 000250      3004.               L          XX,ENDMEM.
      005002  55 16 00 00 2 000000      3005.               TG,U       XX,0400000.
      005003  10 16 00 00 2 000000      3006.               LA,U       XX,0400000.
      005004  15 16 00 00 0 000001      3007.               ANA,U      XX,1.
      005005  01 01 00 00 0 000251      3008.               S,H2       A0,BANKENDS.
U     005006  72 11 00 00 0 000000      3009.               ER         MCORE$
      005007  10 00 02 00 0 000250      3010.               L          XV,ENDMEM.
      005010  01 00 00 00 0 000250      3011.               S          XX,ENDMEM.
      005011  10 16 03 14 0 000001      3012.               L,U        XV+1,1,XX.
      005012  10 00 01 00 0 000321      3013.               LA         XV-1,AVAIL.
      005013  10 16 00 00 0 005022      3014.               L,U        XX,GROWX.
      005014  53 16 03 16 0 000000      3015.       MAKPAG  TNE,U      XV+1,0,XV.
      005015  74 04 00 14 0 000000      3016.               J          0,XX.
      005016  01 00 01 16 0 000000      3017.               S          XV-1,0,XV.
      005017  10 16 01 16 0 000000      3018.               L,U        XV-1,0,XV.
      005020  14 16 02 00 0 000200      3019.               A,U        XV,PAGSIZ.
      005021  74 04 00 00 0 005014      3020.               J          MAKPAG.
      005022  01 00 01 00 0 000321      3021.       GROWX   S          XV-1,AVAIL.
      005023  10 00 03 00 0 000250      3022.               L          XV+1,ENDMEM.
      005024  74 04 00 00 0 000006      3023.               J          STORIT(OCTAL).
                                        3024.       $(6).
U   6 000250  000000 000000             3025.       ENDMEM  PAIR       0,LASTD$
                                        3026.       $(3)
                                        3027.       /. CHECKPOINT ENTIRE SYSTEM
    3 005025  71 13 00 00 0 000221      3028.       CKPT    DL         A0,IMAGE+2.
      005026  71 12 00 00 0 000252      3029.               DS         A0,CKPTIOPAK.
      005027  05 00 00 00 0 000257      3030.               SZ         CKPTIOPAK+5.
U     005030  10 16 00 00 0 000000      3031.               L,U        A0,W$.
      005031  01 14 00 00 0 000255      3032.               S,S2       A0,CKPTIOPAK+3.
U     005032  10 16 00 00 0 000000      3033.               L,U        A0,FRSTD$.
      005033  10 16 01 00 0 000251      3034.               L,U        A1,CKPTIOPAK-1.
      005034  74 13 04 00 0 005077      3035.               LMJ        XL,CKPTIO.
U     005035  10 16 00 00 0 000000      3036.               L,U        A0,FRSTI$.
      005036  10 02 01 00 0 000251      3037.               L,H1       A1,BANKENDS.
      005037  74 13 04 00 0 005077      3038.               LMJ        XL,CKPTIO.
      005040  10 16 00 00 0 000260      3039.               L,U        A0,CKPTIOPAKE.
      005041  10 01 01 00 0 000251      3040.               L,H2       A1,BANKENDS.
      005042  74 13 04 00 0 005077      3041.               LMJ        XL,CKPTIO.
      005043  10 00 00 00 0 000370      3042.               L          A0,(PF 0,2,3,CKPTMSG).
U     005044  72 11 00 00 0 000000      3043.               ER         PRINT$.
      005045  74 04 00 00 0 001310      3044.               J          LOADXRS.
      005046  211630250510              3045.       CKPTMSG 'LISP CHECKPOINTED'
      005047  151210202524
      005050  162331121105
      005051  71 13 00 00 0 000221      3046.       RSTR    DL         A0,IMAGE+2.
      005052  71 12 00 00 0 000252      3047.               DS         A0,CKPTIOPAK.
      005053  05 00 00 00 0 000257      3048.               SZ         CKPTIOPAK+5.
U     005054  10 16 00 00 0 000000      3049.               L,U        A0,R$.
      005055  01 14 00 00 0 000255      3050.               S,S2       A0,CKPTIOPAK+3.
U     005056  10 16 00 00 0 000000      3051.               L,U        A0,FRSTD$.
      005057  10 16 01 00 0 000251      3052.               L,U        A1,CKPTIOPAK-1.
      005060  74 13 04 00 0 005077      3053.               LMJ        XL,CKPTIO.
      005061  10 02 00 00 0 000251      3054.               L,H1       A0,BANKENDS.
U     005062  72 11 00 00 0 000000      3055.               ER         MCORE$.
U     005063  10 16 00 00 0 000000      3056.               L,U        A0,FRSTI$.
      005064  10 02 01 00 0 000251      3057.               L,H1       A1,BANKENDS.
      005065  74 13 04 00 0 005077      3058.               LMJ        XL,CKPTIO.
      005066  10 01 00 00 0 000251      3059.               L,H2       A0,BANKENDS.
U     005067  72 11 00 00 0 000000      3060.               ER         MCORE$.
      005070  10 16 00 00 0 000260      3061.               L,U        A0,CKPTIOPAKE.
      005071  10 01 01 00 0 000251      3062.               L,H2       A1,BANKENDS.
      005072  74 13 04 00 0 005077      3063.               LMJ        XL,CKPTIO.
U     005073  72 11 00 00 0 000000      3064.               ER         CPU$.
      005074  01 00 00 00 0 000247      3065.               S          A0,ETIME.
      005075  05 00 00 00 0 000033      3066.               SZ         XMCNT.
      005076  74 04 00 00 0 001310      3067.               J          LOADXRS.
      005077  01 01 00 00 0 000256      3068.       CKPTIO  S,H2       A0,CKPTIOPAK+4.
      005100  14 16 01 00 0 000001      3069.               A,U        A1,1.
      005101  15 16 01 14 0 000000      3070.               AN,U       A1,0,A0.
      005102  01 02 01 00 0 000256      3071.               S,H1       A1,CKPTIOPAK+4.
      005103  10 16 00 00 0 000252      3072.               L,U        A0,CKPTIOPAK.
U     005104  72 11 00 00 0 000000      3073.               ER         IOW$.
      005105  14 16 01 00 0 000033      3074.               A,U        A1,27.
      005106  10 16 00 00 0 000000      3075.               L,U        A0,0.
      005107  34 16 00 00 0 000034      3076.               DI,U       A0,28.
      005110  14 00 00 00 0 000257      3077.               A          A0,CKPTIOPAK+5.
      005111  01 00 00 00 0 000257      3078.               S          A0,CKPTIOPAK+5.
      005112  74 04 00 04 0 000000      3079.               J          0,XL.
                                        3080.       $(6)
U   6 000251  000000 000000             3081.       BANKENDS +         LASTI$,LASTD$.
      000252  000000000000              3082.       CKPTIOPAK +        0D.
      000253  000000000000
      000254  000000000000              3083.               +          0.
      000255  000000000000              3084.               +          0D.
      000256  000000000000
      000257  000000000000              3085.               +          0.
                                        3086.       CKPTIOPAKE
                                        3087.       $(3)
                                        3088.       /. DUMP OBJECT ONTO FASTRAND
              000000000077              3089.       XREFTYP EQU        077.
    3 005113  05 00 00 01 2 040000      3090.       DUMP    SZ         STACK,*XT.
      005114  12 03 02 02 0 037776      3091.               LOAD       2.                  GET FILE NAME
      005115  12 16 02 00 0 000002
      005116  74 00 02 00 0 005155      3092.               JZ         XV,DUMP1.           SAME AS LAST?
      005117  42 16 02 00 1 177600      3093.               GETYPE
      005120  73 02 03 00 0 000007
      005121  10 13 03 17 0 000040
      005122  01 13 03 00 0 000273      3094.               S          XV+1,PFFLAG.
      005123  74 01 03 00 0 005147      3095.               JNZ        XV+1,DUMP2.         FILE NAME?
      005124  12 04 02 16 0 000000      3096.               UPPER      XV.
      005125  74 13 04 00 0 006264      3097.               LMJ        XL,GETNAM.
      005126  74 13 04 00 0 006305      3098.               LMJ        XL,BLANKS.
      005127  74 13 04 00 0 006323      3099.               LMJ        XL,ASSIGN.
      005130  71 12 04 00 0 000274      3100.               DS         XA,PFPAK.
      005131  71 12 04 00 0 000263      3101.               DS         XA,PAKET.
      005132  12 03 02 02 0 037776      3102.               LOAD       2.
      005133  12 16 02 00 0 000002
      005134  12 03 02 16 0 000000      3103.               LOWER      XV.
      005135  74 13 04 00 0 006264      3104.               LMJ        XL,GETNAM.          GET ELEMENT NAME
      005136  74 13 04 00 0 006305      3105.               LMJ        XL,BLANKS.
      005137  71 13 04 00 0 000052      3106.               DL         XA,NAME+1.
      005140  71 12 04 00 0 000276      3107.               DS         XA,PFPAK+2.
      005141  10 16 00 00 0 000274      3108.               L,U        A0,PFPAK.
U     005142  72 11 00 00 0 000000      3109.               ER         PFWL$.              GET STARTING SECTOR
      005143  01 00 01 00 0 000270      3110.               S          A1,PAKET+5.
      005144  01 03 01 00 0 000273      3111.               S          A1,PFWL.
      005145  01 00 01 00 0 000306      3112.               S          A1,PFPAK+10.
      005146  74 04 00 00 0 005155      3113.               J          DUMP1.
      005147  74 13 04 00 0 006264      3114.       DUMP2   LMJ        XL,GETNAM.
      005150  74 13 04 00 0 006305      3115.               LMJ        XL,BLANKS.
      005151  74 13 04 00 0 006323      3116.               LMJ        XL,ASSIGN.
      005152  71 13 04 00 0 000052      3117.               DL         XA,NAME+1.
      005153  71 12 04 00 0 000263      3118.               DS         XA,PAKET.
      005154  05 00 00 00 0 000270      3119.               SZ         PAKET+5.
      005155  10 16 00 01 0 040000      3120.       DUMP1   LA,U       XX,STACK,XT.        SET ORIGIN OF SYMBOL TABLE
      005156  46 16 14 00 0 000001      3121.               LXI,U      XX,1.
      005157  01 00 00 00 0 000261      3122.               SA         XX,STS.
      005160  05 00 00 01 0 040000      3123.               SZ         STACK,XT.
      005161  10 00 04 00 0 000371      3124.               LA         XA,('C@@@@@').
      005162  01 00 04 00 0 000110      3125.               SA         XA,SECTOR+1.        CREATE SDF LABEL
      005163  71 13 04 00 0 000263      3126.               DL         XA,PAKET.
      005164  71 12 04 00 0 000111      3127.               DS         XA,SECTOR+2.
      005165  71 13 04 00 0 000004      3128.               DL         XA,CKSUM.
      005166  71 12 04 00 0 000113      3129.               DS         XA,SECTOR+4.
      005167  10 04 04 00 0 000261      3130.               LA,LH      XA,STS.
      005170  10 00 05 00 0 001006      3131.               LA         XA+1,MESS8+2.
      005171  71 12 04 00 0 000115      3132.               DS         XA,SECTOR+6.
      005172  10 16 04 00 0 005033      3133.               LA,U       XA,05033.
      005173  01 07 04 00 0 000107      3134.               SA,T1      XA,SECTOR.
      005174  74 13 07 00 0 005650      3135.               LMJ        XR,DWRITE.          WRITE LABEL
      005175  10 16 04 00 0 005254      3136.               L,U        XA,PASS1.
      005176  01 03 04 00 0 000260      3137.               S,RH       XA,BRKOUT.
      005177  01 00 04 00 0 000007      3138.               S          XA,GTIME+1.         SET SYSTEM MARKED FLAG
      005200  06 00 06 00 0 000152      3139.               S          XI,XISAV.
      005201  12 03 02 02 0 037777      3140.               LOAD       1.
      005202  12 16 02 00 0 000001
      005203  74 13 04 00 0 005246      3141.               LMJ        XL,WALK.            MARK OBJECT.
      005204  10 16 04 00 0 005266      3142.               LA,U       XA,PASS2.           SET PASS2 BREAKOUT
      005205  01 03 04 00 0 000260      3143.               SA,RH      XA,BRKOUT.
      005206  12 03 02 02 0 037777      3144.               LOAD       1.
      005207  12 16 02 00 0 000001
      005210  74 13 04 00 0 005246      3145.               LMJ        XL,WALK.            DUMP OBJECT
      005211  27 00 06 00 0 000152      3146.               L          XI,XISAV.
      005212  05 00 00 00 0 000007      3147.               SZ         GTIME+1.
      005213  51 14 00 00 0 000107      3148.               TNZ,S2     SECTOR.
      005214  74 04 00 00 0 005220      3149.               J          $+4.
      005215  10 16 04 00 0 000000      3150.               LA,U       XA,0.
      005216  74 13 07 00 0 005642      3151.               LMJ        XR,ITEM.            PAD LAST RECORD WITH 0'S
      005217  74 04 00 00 0 005213      3152.               J          $-4.
      005220  10 16 00 00 0 007733      3153.               LA,U       XX,07733.
      005221  01 07 00 00 0 000107      3154.               SA,T1      XX,SECTOR.
      005222  10 00 04 00 0 000372      3155.               LA         XA,('$@EOF$').
      005223  01 00 04 00 0 000110      3156.               SA         XA,SECTOR+1.
      005224  74 13 07 00 0 005650      3157.               LMJ        XR,DWRITE.          WRITE SDF END-OF-FILE
      005225  10 00 04 00 0 000270      3158.               LA         XA,PAKET+5.
      005226  21 16 04 00 0 000001      3159.               ANU,U      XA,1.
      005227  01 00 05 00 0 000270      3160.               S          XA+1,PAKET+5.
      005230  50 13 00 00 0 000273      3161.               TZ         PFFLAG.
      005231  74 04 00 00 0 005242      3162.               J          DUMP4.
      005232  21 03 04 00 0 000273      3163.               ANU        XA,PFWL.
      005233  01 03 05 00 0 000305      3164.               S,RH       XA+1,PFPAK+9.
U     005234  72 11 00 00 0 000000      3165.               ER         TDATE$.
      005235  73 00 00 00 0 000022      3166.               SSC        A0,18.
      005236  01 00 00 00 0 000307      3167.               S          A0,PFPAK+11.
      005237  11 16 00 00 0 000274      3168.               LN,U       A0,PFPAK.
      005240  10 00 01 00 0 000020      3169.               L          A1,XA.
U     005241  72 11 00 00 0 000000      3170.               ER         PFI$.
      005242  50 13 00 00 0 000000      3171.       DUMP4   TZ         INTFLG.
      005243  74 04 00 00 0 001247      3172.               J          IINTDO.             GO DO DELAYED BREAK
      005244  74 04 00 00 0 006455      3173.               J          GFAL.
                                        3174.       /. OBJECT TRANSVERSAL FOR PASSES 1 & 2
    3 005245  10 00 02 00 0 000014      3175.               LA         XV,XX.
      005246  06 03 04 03 2 040000      3176.       WALK    SX,RH      XL,CSTAK,*XC.
      005247  01 04 02 03 0 037777      3177.               SA,LH      XV,CSTAK-1,XC.
      005250  42 16 02 00 1 177600      3178.               AND,U      XV,PAGMSK.
      005251  73 02 03 00 0 000007      3179.               SSL        XV+1,PAGBIT.
      005252  27 13 06 17 0 000040      3180.               LX,S3      XI,PAGTAB,XV+1.     TYPE OF OBJECT
      005253  74 04 00 00 0 000260      3181.               J          BRKOUT.             BREAKOUT FOR TYPE & PASS
                                        3182.       PASS1.
      005254  74 04 00 00 0 005300      3183.       I       DO         NUMTYPS , J  BST(I-1).
      005255  74 04 00 00 0 005306
      005256  74 04 00 00 0 005306
      005257  74 04 00 00 0 005306
      005260  74 04 00 00 0 005321
      005261  74 04 00 00 0 005324
      005262  74 04 00 00 0 005342
      005263  74 04 00 00 0 005355
      005264  74 04 00 00 0 005375
      005265  74 04 00 00 0 005300
                                        3184.       PASS2.
      005266  74 04 00 00 0 005435      3185.       I       DO         NUMTYPS , J  DMP(I-1).
      005267  74 04 00 00 0 005445
      005270  74 04 00 00 0 005445
      005271  74 04 00 00 0 005445
      005272  74 04 00 00 0 005456
      005273  74 04 00 00 0 005473
      005274  74 04 00 00 0 005515
      005275  74 04 00 00 0 005537
      005276  74 04 00 00 0 005611
      005277  74 04 00 00 0 005435      3186.       /. BREAKOUTS FOR PASS1 (BUILDING SYMBOL TABLE).
                                        3187.       BST(CONSED)
                                        3188.       BST(SUSP)
    3 005300  10 04 00 16 0 000000      3189.               LA,LH      XX,0,XV.
      005301  74 03 00 00 0 005402      3190.               JN         XX,BUILD.           MARKED ALREADY?
      005302  02 04 00 16 0 000000      3191.               SNA,LH     XX,0,XV.            MARK NODE
      005303  74 13 04 00 0 005245      3192.               LMJ        XL,WALK-1.          FOLLOW CAR
      005304  12 03 02 16 0 000000      3193.               LMA,RH     XV,0,XV.
      005305  74 04 00 00 0 005247      3194.               J          WALK+1.             FOLLOW CDR
                                        3195.       BST(INTGER)
                                        3196.       BST(OCTAL)
                                        3197.       BST(REAL)
      005306  26 16 07 00 0 005401      3198.               LXM,U      XR,BST1.
      005307  10 00 00 00 0 000016      3199.       BSTN    LA         XX,XV.
      005310  42 16 00 00 0 000037      3200.               AND,U      XX,037.
      005311  15 00 00 00 0 000015      3201.               ANA        XX,XX+1.
      005312  10 00 04 14 0 000000      3202.               LA         XA,0,XX.            GET BIT TABLE
      005313  73 03 04 15 0 000000      3203.               DSL        XA,0,XX+1.          SHIFT TO BIT
      005314  74 11 04 07 0 000001      3204.               JB         XA,1,XR.            ALREADY MARKED?
      005315  74 04 00 07 0 000000      3205.               J          0,XR.
      005316  14 16 04 00 0 000001      3206.       BST2    AA,U       XA,1.
      005317  73 13 04 15 0 000000      3207.               LDSL       XA,0,XX+1.
      005320  01 00 04 14 0 000000      3208.               SA         XA,0,XX.            MARK WORD
                                        3209.       BST(SYSTEM)
      005321  10 04 02 03 0 037776      3210.       WALKX   LA,LH      XV,CSTAK-2,XC.      RESET OBJECT
      005322  26 00 04 03 0 037777      3211.               LXM        XL,CSTAK-1,XC.
      005323  70 00 03 04 0 000000      3212.               JGD        XC,0,XL.
                                        3213.       BST(CODE)
      005324  42 16 02 00 1 177600      3214.               AND,U      XV,PAGMSK.
      005325  10 00 02 00 0 000017      3215.               LA         XV,XV+1.
      005326  73 02 03 00 0 000007      3216.               SSL        XV+1,PAGBIT.
      005327  50 03 00 17 0 000040      3217.               TZ,RH      PAGTAB,XV+1.
      005330  74 04 00 00 0 005402      3218.               J          BUILD.
      005331  01 03 02 17 0 000040      3219.               SA,RH      XV,PAGTAB,XV+1.     MARK PAGE
      005332  01 04 02 03 0 037777      3220.       BST5L   SA,LH      XV,CSTAK-1,XC.      FOLLOW THRU COMPILED CODE
      005333  74 13 14 00 0 006330      3221.               LMJ        XX,IMASK.           GENERATE ADDRESS MASK
      005334  42 00 01 16 0 000000      3222.               AND        XV-1,0,XV.          GET ADDRESS
      005335  74 13 04 00 0 005246      3223.               LMJ        XL,WALK.
      005336  14 16 02 00 0 000001      3224.               AA,U       XV,1.
      005337  42 16 02 00 0 000177      3225.               AND,U      XV,PAGSIZ-1.
      005340  74 01 03 00 0 005332      3226.               JNZ        XV+1,BST5L.
      005341  74 04 00 00 0 005321      3227.               J          WALKX.
                                        3228.       BST(LINKER)
      005342  10 03 00 16 0 000000      3229.               LA,RH      XX,0,XV.
      005343  74 03 00 00 0 005402      3230.               JN         XX,BUILD.           ALREADY MARKED?
      005344  02 03 00 16 0 000000      3231.               SNA,RH     XX,0,XV.
      005345  74 13 04 00 0 005245      3232.               LMJ        XL,WALK-1.          FOLLOW JUMP-TO
      005346  12 03 00 16 0 000000      3233.               LMA,RH     XX,0,XV.
      005347  53 16 00 00 0 006346      3234.               TNE,U      XX,FOLLOW.
      005350  74 04 00 00 0 005321      3235.               J          WALKX.
      005351  12 04 02 16 0 000001      3236.               LMA,LH     XV,1,XV.
      005352  74 13 04 00 0 005246      3237.               LMJ        XL,WALK.
      005353  12 03 02 16 0 000001      3238.               LMA,RH     XV,1,XV.
      005354  74 04 00 00 0 005247      3239.               J          WALK+1.
                                        3240.       BST(SYMBOL)
      005355  10 03 00 16 0 000000      3241.               LA,RH      XX,0,XV.
      005356  74 03 00 00 0 005402      3242.               JN         XX,BUILD.           ALREADY MARKED?
      005357  02 03 00 16 0 000000      3243.               SNA,RH     XX,0,XV.
      005360  12 03 02 16 0 000001      3244.               LMA,RH     XV,1,XV.            PRINT NAME
      005361  42 16 02 00 1 177600      3245.               GETYPE
      005362  73 02 03 00 0 000007
      005363  10 13 03 17 0 000040
      005364  12 04 02 03 0 037777      3246.               LMA,LH     XV,CSTAK-1,XC.
      005365  52 16 03 00 0 000001      3247.               TE,U       XV+1,INTGER.        GENSYM?
      005366  74 04 00 00 0 005371      3248.               J          BST7.
      005367  12 04 02 16 0 000001      3249.               LMA,LH     XV,1,XV.
      005370  74 13 04 00 0 005246      3250.               LMJ        XL,WALK.            MARK GENSYM HEADING
      005371  12 03 02 16 0 000000      3251.       BST7    LMA,RH     XV,0,XV.
      005372  74 13 04 00 0 005246      3252.               LMJ        XL,WALK.            FOLLOW PROPERTY LIST
      005373  12 04 02 16 0 000000      3253.               LMA,LH     XV,0,XV.
      005374  74 04 00 00 0 005247      3254.               J          WALK+1.             FOLLOW VALUE
                                        3255.       BST(STRING)
      005375  10 03 00 16 0 000000      3256.               LA,RH      XX,0,XV.
      005376  74 03 00 00 0 005402      3257.               JN         XX,BUILD.           MARKED ALREADY?
      005377  02 03 00 16 0 000000      3258.               SNA,RH     XX,0,XV.            MARK FIRST NODE
      005400  74 04 00 00 0 005321      3259.               J          WALKX.
                                        3260.       /. MAKE ENTRY IN SYMBOL TABLE
    3 005401  74 04 00 00 0 005316      3261.       BST1    J          BST2.
      005402  74 13 04 00 0 005415      3262.       BUILD   LMJ        XL,SRCH.            LOOKUP IN SYMBOL TABLE
      005403  74 04 00 00 0 005321      3263.               J          WALKX.              ALREADY THERE?
      005404  50 04 00 14 0 000001      3264.               TZ,LH      1,XX.               UPPER HALF EMPTY?
      005405  74 04 00 00 0 005410      3265.               J          $+3.
      005406  01 04 02 14 0 000001      3266.               SA,LH      XV,1,XX.
      005407  74 04 00 00 0 005321      3267.               J          WALKX.
      005410  01 00 02 14 0 000000      3268.               SA         XV,0,XX.
      005411  10 04 00 00 0 000261      3269.               LA,LH      XX,STS.
      005412  14 16 00 00 0 000001      3270.               AA,U       XX,1.               ADD WORD TO SYMBOL TABLE
      005413  01 04 00 00 0 000261      3271.               SA,LH      XX,STS.
      005414  74 04 00 00 0 005321      3272.               J          WALKX.
                                        3273.        .
                                        3274.        . LOOK UP IN SYMBOL TABLE
                                        3275.        .
      005415  26 00 14 00 0 000261      3276.       SRCH    LXM        XX,STS.
      005416  23 04 01 00 0 000261      3277.               LR,LH      R1,STS.
      005417  46 16 14 00 3 177776      3278.               LXI,U      XX,-1.
      005420  62 03 02 14 2 000000      3279.               SE,RH      XV,0,*XX.
      005421  74 04 00 00 0 005426      3280.               J          SRCH1.
      005422  46 16 14 00 0 000000      3281.               LXI,U      XX,0.
      005423  15 03 00 00 0 000261      3282.               ANA,RH     XX,STS.
      005424  12 00 00 00 0 000014      3283.               LMA        XX,XX.
      005425  74 04 00 04 0 000000      3284.               J          0,XL.
      005426  26 00 14 00 0 000261      3285.       SRCH1   LXM        XX,STS.
      005427  23 04 01 00 0 000261      3286.               LR,LH      R1,STS.
      005430  62 04 02 14 2 000000      3287.               SE,LH      XV,0,*XX.
      005431  74 04 00 04 0 000001      3288.               J          1,XL.
      005432  46 16 14 00 0 000000      3289.               LXI,U      XX,0.
      005433  15 03 00 00 0 000261      3290.               ANA,RH     XX,STS.
      005434  74 04 00 04 0 000000      3291.               J          0,XL.
                                        3292.       /. BREAKOUTS FOR PASS 2 (DUMPING OBJECT)
                                        3293.       DMP(CONSED)
                                        3294.       DMP(SUSP)
    3 005435  10 04 00 16 0 000000      3295.               LA,LH      XX,0,XV.
      005436  74 02 00 00 0 005631      3296.               JP         XX,XREF.            ALREADY CLEAR?
      005437  02 04 00 16 0 000000      3297.               SNA,LH     XX,0,XV.
      005440  74 13 07 00 0 005635      3298.               LMJ        XR,RECORD.          WRITE RECORD
      005441  12 04 02 16 0 000000      3299.               LMA,LH     XV,0,XV.
      005442  74 13 04 00 0 005246      3300.               LMJ        XL,WALK.            DUMP CAR
      005443  12 03 02 16 0 000000      3301.               LMA,RH     XV,0,XV.
      005444  74 04 00 00 0 005247      3302.               J          WALK+1.             DUMP CDR
                                        3303.       DMP(INTGER)
                                        3304.       DMP(OCTAL)
                                        3305.       DMP(REAL)
      005445  74 13 07 00 0 005307      3306.               LMJ        XR,BSTN.            MARKED?
      005446  74 04 00 00 0 005631      3307.               J          XREF.               NO
      005447  15 16 04 00 0 000001      3308.               ANA,U      XA,1.
      005450  73 13 04 15 0 000000      3309.               LDSL       XA,0,XX+1.
      005451  01 00 04 14 0 000000      3310.               SA         XA,0,XX.            UNMARK
      005452  74 13 07 00 0 005635      3311.               LMJ        XR,RECORD.          WRITE RECORD
      005453  10 00 04 16 0 000000      3312.               LA         XA,0,XV.
      005454  74 13 07 00 0 005642      3313.               LMJ        XR,ITEM.            WRITE BITS.
      005455  74 04 00 00 0 005321      3314.               J          WALKX.
                                        3315.       DMP(SYSTEM)
      005456  46 16 16 00 0 000000      3316.               LXI,U      XV,0.
      005457  23 00 01 00 0 000317      3317.               L          R1,LEPTAB.
      005460  10 00 00 00 0 000320      3318.               L          XX,BEPTAB.
      005461  55 16 02 00 0 001000      3319.               TG,U       XV,01000.
      005462  62 00 02 14 2 040000      3320.               SE         XV,CSTAK,*XX.       LOOK UP ENTRY POINT
      005463  10 00 00 00 0 000320      3321.               L          XX,BEPTAB.          MUST BE STACK
      005464  72 05 00 00 0 000320      3322.               ANH        XX,BEPTAB.
      005465  73 12 00 00 0 000030      3323.               LSSL       XX,24.
      005466  46 16 16 00 0 000004      3324.               LXI,U      XV,SYSTEM.
      005467  14 00 02 00 0 000014      3325.               A          XV,XX.
      005470  10 00 04 00 0 000016      3326.               LA         XA,XV.
      005471  74 13 07 00 0 005642      3327.               LMJ        XR,ITEM.            WRITE ITEM.
      005472  74 04 00 00 0 005321      3328.               J          WALKX.
                                        3329.       DMP(CODE)
      005473  27 00 14 00 0 000017      3330.               LX         XX,XV+1.
      005474  42 16 02 00 0 000177      3331.               AND,U      XV,PAGSIZ-1.
      005475  01 03 03 00 0 000262      3332.               SA,RH      XV+1,DMPWD.         RELATIVE ADDRESS IN PAGE
      005476  15 00 02 00 0 000017      3333.               ANA        XV,XV+1.
      005477  51 03 00 14 0 000040      3334.               TNZ,RH     PAGTAB,XX.          PAGE MARKED?
      005500  74 04 00 00 0 005632      3335.               J          XREF+1.
      005501  05 03 00 14 0 000040      3336.               SZ,RH      PAGTAB,XX.
      005502  74 13 07 00 0 005636      3337.               LMJ        XR,RECORD+1.        WRITE RECORD FOR PAGE
      005503  01 04 02 03 0 037777      3338.       DMP5L   SA,LH      XV,CSTAK-1,XC.
      005504  10 00 04 16 0 000000      3339.               LA         XA,0,XV.
      005505  74 13 07 00 0 005642      3340.               LMJ        XR,ITEM.            WRITE INSTRUCTION
      005506  74 13 14 00 0 006330      3341.               LMJ        XX,IMASK.           GENERATE ADDRESS MASK
      005507  42 00 01 16 0 000000      3342.               AND        XV-1,0,XV.          GET ADDRESS
      005510  74 13 04 00 0 005246      3343.               LMJ        XL,WALK.            WRITE U-FIELD RECORD
      005511  14 16 02 00 0 000001      3344.               AA,U       XV,1.
      005512  42 16 02 00 0 000177      3345.               AND,U      XV,PAGSIZ-1.
      005513  74 01 03 00 0 005503      3346.               JNZ        XV+1,DMP5L.         MORE INSTRUCTIONS?
      005514  74 04 00 00 0 005321      3347.               J          WALKX.
                                        3348.       DMP(LINKER)
      005515  10 03 00 16 0 000000      3349.               LA,RH      XX,0,XV.
      005516  74 02 00 00 0 005631      3350.               JP         XX,XREF.            ALREADY CLEAR?
      005517  02 03 00 16 0 000000      3351.               SNA,RH     XX,0,XV.
      005520  74 13 07 00 0 005635      3352.               LMJ        XR,RECORD.          WRITE RECORD
      005521  12 03 02 16 0 000000      3353.               LMA,RH     XV,0,XV.
      005522  74 13 04 00 0 005246      3354.               LMJ        XL,WALK.            DUMP JUMPTO
      005523  12 03 00 16 0 000000      3355.               LMA,RH     XX,0,XV.
      005524  53 16 00 00 0 006346      3356.               TNE,U      XX,FOLLOW.          NOT CAR-CDR CHAIN?
      005525  74 04 00 00 0 005534      3357.               J          DMP6C.
      005526  10 16 04 00 0 000000      3358.               LA,U       XA,0.
      005527  74 13 07 00 0 005642      3359.               LMJ        XR,ITEM.
      005530  12 04 02 16 0 000001      3360.               LMA,LH     XV,1,XV.            DUMP SECOND WORD
      005531  74 13 04 00 0 005246      3361.               LMJ        XL,WALK.
      005532  12 03 02 16 0 000001      3362.               LMA,RH     XV,1,XV.
      005533  74 04 00 00 0 005247      3363.               J          WALK+1.
      005534  10 00 04 16 0 000001      3364.       DMP6C   LA         XA,1,XV.
      005535  74 13 07 00 0 005642      3365.               LMJ        XR,ITEM.
      005536  74 04 00 00 0 005321      3366.               J          WALKX.
                                        3367.       DMP(SYMBOL)
      005537  10 03 00 16 0 000000      3368.               LA,RH      XX,0,XV.
      005540  74 02 00 00 0 005631      3369.               JP         XX,XREF.            CLEAR ALREADY?
      005541  02 03 00 16 0 000000      3370.               SNA,RH     XX,0,XV.            UNMARK
      005542  74 13 07 00 0 005635      3371.               LMJ        XR,RECORD.
      005543  12 03 02 16 0 000001      3372.               LMA,RH     XV,1,XV.
      005544  42 16 02 00 1 177600      3373.               GETYPE
      005545  73 02 03 00 0 000007
      005546  10 13 03 17 0 000040
      005547  12 04 02 03 0 037777      3374.               LMA,LH     XV,CSTAK-1,XC.
      005550  52 16 03 00 0 000001      3375.               TE,U       XV+1,INTGER.        GENSYM?
      005551  74 13 04 00 0 006264      3376.               LMJ        XL,GETNAM.          NO: GET PRINT-NAME
      005552  10 00 04 00 0 000051      3377.               LA         XA,NAME.
      005553  15 16 04 00 0 000051      3378.               ANA,U      XA,NAME.            COMPUTE # OF WORDS
      005554  53 16 03 00 0 000001      3379.               TNE,U      XV+1,INTGER.        NOT GENSYM?
      005555  10 16 04 00 0 000100      3380.               LA,U       XA,0100.
      005556  50 04 00 16 0 000000      3381.               TZ,LH      0,XV.               NOT A CONSTANT?
      005557  14 16 04 00 0 000200      3382.               AA,U       XA,0200.
      005560  60 04 00 16 0 000000      3383.               TP,LH      0,XV.               NOT SPECIAL FORM?
      005561  14 16 04 00 0 000400      3384.               AA,U       XA,0400.
      005562  10 16 02 00 0 000051      3385.               LA,U       XV,NAME.
      005563  52 16 03 00 0 000001      3386.               TE,U       XV+1,INTGER.        GENSYM?
      005564  74 04 00 00 0 005600      3387.               J          DMP7L+2.
      005565  12 04 02 03 0 037777      3388.               LMA,LH     XV,CSTAK-1,XC.
      005566  12 03 00 16 0 000001      3389.               LMA,RH     XX,1,XV.
      005567  73 03 04 00 0 000014      3390.               DSL        XA,12.
      005570  10 00 04 14 0 000000      3391.               LA         XA,0,XX.            GET GENSYM #
      005571  73 13 04 00 0 000014      3392.               LDSL       XA,12.
      005572  74 13 07 00 0 005642      3393.               LMJ        XR,ITEM.
      005573  12 04 02 16 0 000001      3394.               LMA,LH     XV,1,XV.
      005574  74 13 04 00 0 005246      3395.               LMJ        XL,WALK.            DUMP GENSYM HEAD
      005575  74 04 00 00 0 005603      3396.               J          DMP7PL.
      005576  24 16 16 00 0 000001      3397.       DMP7L   AX,U       XV,1.
      005577  10 00 04 16 0 000000      3398.               LA         XA,0,XV.
      005600  74 13 07 00 0 005642      3399.               LMJ        XR,ITEM.
      005601  52 00 02 00 0 000051      3400.               TE         XV,NAME.            DONE WITH PNAME?
      005602  74 04 00 00 0 005576      3401.               J          DMP7L.
      005603  12 04 02 03 0 037777      3402.       DMP7PL  LMA,LH     XV,CSTAK-1,XC.
      005604  12 03 02 16 0 000000      3403.               LMA,RH     XV,0,XV.
      005605  74 13 04 00 0 005246      3404.               LMJ        XL,WALK.            DUMP PROPERTY LIST
      005606  12 04 02 16 0 000000      3405.               LMA,LH     XV,0,XV.
      005607  74 00 02 00 0 005321      3406.               JZ         XV,WALKX.           NOT A CONSTANT?
      005610  74 04 00 00 0 005247      3407.               J          WALK+1.
                                        3408.       DMP(STRING)
      005611  10 03 00 16 0 000000      3409.               LA,RH      XX,0,XV.
      005612  74 02 00 00 0 005631      3410.               JP         XX,XREF.            ALREADY CLEAR?
      005613  02 03 00 16 0 000000      3411.               SNA,RH     XX,0,XV.
      005614  10 00 00 00 0 000016      3412.               L          XX,XV.
      005615  74 13 04 00 0 006265      3413.               LMJ        XL,GETNAM+1.        GET CHARACTERS
      005616  10 00 04 00 0 000051      3414.               LA         XA,NAME.
      005617  15 16 04 00 0 000051      3415.               ANA,U      XA,NAME.
      005620  01 03 04 00 0 000262      3416.               SA,RH      XA,DMPWD.
      005621  74 13 07 00 0 005636      3417.               LMJ        XR,RECORD+1.        WRITE RECORD WITH # OF WORDS
      005622  10 16 02 00 0 000051      3418.               L,U        XV,NAME.
      005623  53 00 02 00 0 000051      3419.       DMP8L   TNE        XV,NAME.            DUMP CHARACTERS
      005624  74 04 00 00 0 005321      3420.               J          WALKX.
      005625  14 16 02 00 0 000001      3421.               A,U        XV,1.
      005626  10 00 04 16 0 000000      3422.               L          XA,0,XV.
      005627  74 13 07 00 0 005642      3423.               LMJ        XR,ITEM.
      005630  74 04 00 00 0 005623      3424.               J          DMP8L.
                                        3425.       /. WRITE ENTRY FOR SYMBOL TABLE REFERENCE.
    3 005631  05 03 00 00 0 000262      3426.       XREF    SZ,RH      DMPWD.              NO ADJUSTMENT
      005632  27 16 07 00 0 005321      3427.               LX,U       XR,WALKX.
      005633  27 16 06 00 0 000077      3428.               LX,U       XI,XREFTYP.
      005634  74 04 00 00 0 005636      3429.               J          RECORD+1.
                                        3430.       . WRITE RECORD FOR NODE
      005635  01 03 02 00 0 000262      3431.       RECORD  SA,RH      XV,DMPWD.           SET ADDRESS
      005636  06 04 06 00 0 000262      3432.               SX,LH      XI,DMPWD.           SET TYPE
      005637  74 13 04 00 0 005415      3433.               LMJ        XL,SRCH.            LOOKUP IN SYMBOL TABLE
      005640  06 07 14 00 0 000262      3434.               SX,T1      XX,DMPWD.           SET INDEX IF FOUND
      005641  10 00 04 00 0 000262      3435.               LA         XA,DMPWD.
                                        3436.       . WRITE 1 RECORD.
      005642  27 14 14 00 0 000107      3437.       ITEM    LX,S2      XX,SECTOR.
      005643  24 16 14 00 0 000001      3438.               AX,U       XX,1.
      005644  06 07 14 00 0 000107      3439.               SX,T1      XX,SECTOR.
      005645  01 00 04 14 0 000107      3440.               SA         XA,SECTOR,XX.       PUT WORD IN RECORD
      005646  52 16 00 00 0 000033      3441.               TE,U       XX,27.              FULL RECORD?
      005647  74 04 00 07 0 000000      3442.               J          0,XR.
U     005650  10 16 00 00 0 000000      3443.       DWRITE  LA,U       XX,W$.
      005651  01 14 00 00 0 000266      3444.               SA,S2      XX,PAKET+3.         SET FUNCTION
      005652  10 00 00 00 0 000373      3445.               LA         XX,(28,SECTOR).
      005653  01 00 00 00 0 000267      3446.               SA         XX,PAKET+4.
      005654  10 16 00 00 0 000263      3447.               LA,U       XX,PAKET.
U     005655  72 11 00 00 0 000000      3448.               ER         IOW$.               WRITE SECTOR ON DRUM
      005656  10 00 00 00 0 000270      3449.               LA         XX,PAKET+5.
      005657  14 16 00 00 0 000001      3450.               AA,U       XX,1.
      005660  01 00 00 00 0 000270      3451.               SA         XX,PAKET+5.         NEXT SECTOR ADDRESS
      005661  05 07 00 00 0 000107      3452.               SZ,T1      SECTOR.
      005662  74 04 00 07 0 000000      3453.               J          0,XR.
                                        3454.       /. LOAD OBJECT FROM FASTRAND
    3 005663  05 00 00 01 2 040000      3455.       LODE    SZ         STACK,*XT.
      005664  06 00 06 00 0 000152      3456.               SX         XI,XISAV.
      005665  12 03 02 02 0 037777      3457.               LOAD       1.                  GET FILE
      005666  12 16 02 00 0 000001
      005667  74 00 02 00 0 005724      3458.               JZ         XV,LODE1.           SAME AS LAST?
      005670  42 16 02 00 1 177600      3459.               GETYPE
      005671  73 02 03 00 0 000007
      005672  10 13 03 17 0 000040
      005673  01 13 03 00 0 000273      3460.               S          XV+1,PFFLAG.
      005674  74 01 03 00 0 005717      3461.               JNZ        XV+1,LODE2.
      005675  12 04 02 16 0 000000      3462.               UPPER      XV.
      005676  74 13 04 00 0 006264      3463.               LMJ        XL,GETNAM.
      005677  74 13 04 00 0 006305      3464.               LMJ        XL,BLANKS.
      005700  74 13 04 00 0 006323      3465.               LMJ        XL,ASSIGN.
      005701  71 12 04 00 0 000274      3466.               DS         XA,PFPAK.
      005702  71 12 04 00 0 000263      3467.               DS         XA,PAKET.
      005703  12 03 02 02 0 037777      3468.               LOAD       1.
      005704  12 16 02 00 0 000001
      005705  12 03 02 16 0 000000      3469.               LOWER      XV.
      005706  74 13 04 00 0 006264      3470.               LMJ        XL,GETNAM.
      005707  74 13 04 00 0 006305      3471.               LMJ        XL,BLANKS.
      005710  71 13 04 00 0 000052      3472.               DL         XA,NAME+1.
      005711  71 12 04 00 0 000276      3473.               DS         XA,PFPAK+2.
      005712  10 16 00 00 0 000274      3474.               L,U        A0,PFPAK.
U     005713  72 11 00 00 0 000000      3475.               ER         PFS$.
      005714  10 03 04 00 0 000306      3476.               L,RH       XA,PFPAK+10.
      005715  01 00 04 00 0 000270      3477.               S          XA,PAKET+5.
      005716  74 04 00 00 0 005724      3478.               J          LODE1.
      005717  74 13 04 00 0 006264      3479.       LODE2   LMJ        XL,GETNAM.
      005720  74 13 04 00 0 006305      3480.               LMJ        XL,BLANKS.
      005721  74 13 04 00 0 006323      3481.               LMJ        XL,ASSIGN.
      005722  71 12 04 00 0 000263      3482.               DS         XA,PAKET.
      005723  05 00 00 00 0 000270      3483.               SZ         PAKET+5.
      005724  10 16 00 03 0 040000      3484.       LODE1   LA,U       XX,CSTAK,XC.        SET SYMBOL TABLE ORIGIN
      005725  01 00 00 00 0 000261      3485.               SA         XX,STS.
      005726  74 13 04 00 0 006260      3486.               LMJ        XL,FETCH1.          BYPASS LABEL
      005727  60 00 00 00 0 000107      3487.               TP         SECTOR.             NOT END OF FILE?
      005730  74 04 00 00 0 006455      3488.               J          GFAL.
      005731  10 16 00 00 0 000033      3489.               LA,U       XX,27.
      005732  01 14 00 00 0 000107      3490.               SA,S2      XX,SECTOR.
      005733  10 03 00 00 0 000017      3491.               LA,RH      XX,STORIT(CODE)
      005734  10 00 01 00 0 000003      3492.               LA         XX+1,T5REC.
      005735  71 12 00 00 0 000146      3493.               DS         XX,LODSAV.
      005736  71 13 00 00 0 000004      3494.               DL         XX,T5REC+1.
      005737  71 12 00 00 0 000150      3495.               DS         XX,LODSAV+2.
      005740  74 13 04 00 0 005751      3496.               LMJ        XL,LOAD.            LOAD OBJECT
      005741  05 14 00 00 0 000107      3497.               SZ,S2      SECTOR.
      005742  71 13 00 00 0 000146      3498.               DL         XX,LODSAV.
      005743  01 03 00 00 0 000017      3499.               SA,RH      XX,STORIT(CODE)
      005744  01 00 01 00 0 000003      3500.               SA         XX+1,T5REC.
      005745  71 13 00 00 0 000150      3501.               DL         XX,LODSAV+2.
      005746  71 12 00 00 0 000004      3502.               DS         XX,T5REC+1.
      005747  27 00 06 00 0 000152      3503.               LX         XI,XISAV.
      005750  74 04 00 00 0 000011      3504.               RETURN
                                        3505.       /. GET THE OBJECT IN
    3 005751  06 00 04 01 2 040000      3506.       LOAD    SX         XL,STACK,*XT.       SAVE RETURN
      005752  74 13 07 00 0 006250      3507.               LMJ        XR,FETCH.           GET NEXT ITEM
      005753  27 13 14 00 0 000262      3508.               LX,S3      XX,DMPWD.           GET RECORD TYPE
      005754  73 03 02 00 0 000107      3509.               DSL        XV,71.
      005755  53 16 00 00 0 000077      3510.               TNE,U      XX,XREFTYP.
      005756  74 04 00 00 0 006220      3511.               J          LOD(XREFTYP).
      005757  74 04 00 14 0 005760      3512.               J          $+1,XX.             BREAKOUT
      005760  74 04 00 00 0 005774      3513.       I       DO         NUMTYPS , J  LOD(I-1).
      005761  74 04 00 00 0 006007
      005762  74 04 00 00 0 006007
      005763  74 04 00 00 0 006007
      005764  74 04 00 00 0 006015
      005765  74 04 00 00 0 006024
      005766  74 04 00 00 0 006056
      005767  74 04 00 00 0 006074
      005770  74 04 00 00 0 006202
      005771  74 04 00 00 0 005772
                                        3514.       LOD(SUSP)
      005772  74 13 04 00 0 000033      3515.               NODE       SUSP.
      005773  74 04 00 00 0 005775      3516.               J          LOD(CONSED)+1.
                                        3517.       LOD(CONSED)
      005774  74 13 04 00 0 000000      3518.               NODE       CONSED.             ALLOCATE NODE
      005775  74 13 04 00 0 006235      3519.               LMJ        XL,CKSTI.           FIX SYMBOL TABLE
      005776  74 13 04 00 0 005751      3520.               LMJ        XL,LOAD.
      005777  01 04 02 14 0 000000      3521.               SA,LH      XV,0,XX.            PLUG CAR
      006000  74 13 04 00 0 005751      3522.               LMJ        XL,LOAD.            GET CDR
      006001  01 03 02 14 0 000000      3523.               SA,RH      XV,0,XX.            & PLUG IT
      006002  12 04 02 01 0 040001      3524.               LMA,LH     XV,STACK+1,XT.      ADD OF NODE
      006003  26 00 04 01 0 040001      3525.       LOADX   LXM        XL,STACK+1,XT.
      006004  26 16 01 01 0 000001      3526.               POP.
      006005  12 04 00 01 0 040001      3527.               LMA,LH     XX,STACK+1,XT.
      006006  74 04 00 04 0 000000      3528.               J          0,XL.               EXIT
                                        3529.       LOD(INTGER)
                                        3530.       LOD(OCTAL)
                                        3531.       LOD(REAL)
      006007  31 16 00 00 0 000003      3532.               MSI,U      XX,3.
      006010  74 13 04 14 0 000000      3533.               LMJ        XL,TYPTAB,XX.       ALLOCATE NODE
      006011  74 13 04 00 0 006235      3534.               LMJ        XL,CKSTI.           FIX TABLE
      006012  74 13 07 00 0 006250      3535.               LMJ        XR,FETCH.
      006013  01 00 04 16 0 000000      3536.               SA         XA,0,XV.            STORE BITS
      006014  74 04 00 00 0 006003      3537.               J          LOADX.
                                        3538.       LOD(SYSTEM)
      006015  10 07 00 00 0 000262      3539.               L,T1       XX,DMPWD.
      006016  74 00 00 00 0 006022      3540.               JZ         XX,LOD4X.
      006017  72 04 00 00 0 000320      3541.               AH         XX,BEPTAB.
      006020  10 00 02 14 0 037777      3542.               L          XV,CSTAK-1,XX.      GET ENTRY POINT
      006021  74 04 00 00 0 006003      3543.               J          LOADX.
      006022  10 03 02 00 0 000262      3544.       LOD4X   L,RH       XV,DMPWD.
      006023  74 04 00 00 0 006003      3545.               J          LOADX.
                                        3546.       LOD(CODE)
      006024  10 16 00 00 0 000163      3547.               LA,U       XX,GETPAG.          SET TO GET NEW PAGE
      006025  01 03 00 00 0 000017      3548.               SA,RH      XX,STORIT(CODE)
      006026  74 13 04 00 0 000017      3549.               NODE       CODE
      006027  14 16 17 00 0 000177      3550.               A,U        XMCNT,PAGSIZ-1.     UPDATE MEMORY CNTR FOR WHOLE PAGE
      006030  74 13 04 00 0 006235      3551.               LMJ        XL,CKSTI.           FIX TABLE
      006031  10 03 00 00 0 000262      3552.               LA,RH      XX,DMPWD.
      006032  01 00 00 01 2 040000      3553.               SA         XX,STACK,*XT.
      006033  74 13 07 00 0 006250      3554.       LOD5L   LMJ        XR,FETCH.           GET INSTRUCTION
      006034  10 00 03 00 0 000016      3555.               L          XV+1,XV.            SAVE POINTER
      006035  10 16 02 00 0 000262      3556.               L,U        XV,DMPWD.
      006036  74 13 14 00 0 006330      3557.               LMJ        XX,IMASK.           GENERATE ADDRESS MASK
      006037  11 00 01 00 0 000015      3558.               LN         XV-1,XV-1.
      006040  42 00 01 16 0 000000      3559.               AND        XV-1,0,XV.          MASK OUT OLD ADDRESS
      006041  01 00 02 17 0 000000      3560.               S          XV,0,XV+1.
      006042  74 13 04 00 0 005751      3561.               LMJ        XL,LOAD.            GET U-FIELD
      006043  12 04 01 01 0 040002      3562.               LMA,LH     XV-1,STACK+2,XT.
      006044  40 00 02 15 0 000000      3563.               OR         XV,0,XV-1.
      006045  01 00 03 15 0 000000      3564.               SA         XV+1,0,XV-1.
      006046  20 16 01 00 0 000001      3565.               AU,U       XV-1,1.
      006047  01 04 02 01 0 040002      3566.               SA,LH      XV,STACK+2,XT.
      006050  42 16 02 00 0 000177      3567.               AND,U      XV,PAGSIZ-1.
      006051  74 01 03 00 0 006033      3568.               JNZ        XV+1,LOD5L.         MORE CODE?
      006052  15 16 02 00 0 000200      3569.               ANA,U      XV,PAGSIZ.
      006053  14 03 02 01 0 040001      3570.               AA,RH      XV,STACK+1,XT.      ENTRY INTO CODE
      006054  26 16 01 01 0 000001      3571.               POP.
      006055  74 04 00 00 0 006003      3572.               J          LOADX.
                                        3573.       LOD(LINKER)
      006056  74 13 04 00 0 000022      3574.               NODE       LINKER.             ALLOCATE NODE
      006057  74 13 04 00 0 006235      3575.               LMJ        XL,CKSTI.           FIX TABLE
      006060  74 13 04 00 0 005751      3576.               LMJ        XL,LOAD.            GET JUMPTO
      006061  01 03 02 14 0 000000      3577.               SA,RH      XV,0,XX.            & PLUG
      006062  74 13 07 00 0 006250      3578.               LMJ        XR,FETCH.
      006063  74 01 04 00 0 006071      3579.               JNZ        XA,LOD6C.           CAR-CDR CHAIN?
      006064  74 13 04 00 0 005751      3580.               LMJ        XL,LOAD.            GET SECOND WORD
      006065  01 04 02 14 0 000001      3581.               SA,LH      XV,1,XX.
      006066  74 13 04 00 0 005751      3582.               LMJ        XL,LOAD.
      006067  01 03 02 14 0 000001      3583.               SA,RH      XV,1,XX.
      006070  74 04 00 00 0 006002      3584.               J          LOADX-1.
      006071  12 04 02 01 0 040001      3585.       LOD6C   LMA,LH     XV,STACK+1,XT.
      006072  01 00 04 16 0 000001      3586.               SA         XA,1,XV.
      006073  74 04 00 00 0 006003      3587.               J          LOADX.
                                        3588.       LOD(SYMBOL)
      006074  01 00 04 00 0 000143      3589.               SA         XA,LOD7WK.
      006075  74 13 07 00 0 006250      3590.               LMJ        XR,FETCH.           GET INFO
      006076  01 00 04 00 0 000144      3591.               SA         XA,LOD7WK+1.
      006077  05 04 00 01 0 040001      3592.               SZ,LH      STACK+1,XT.
      006100  10 11 00 00 0 000144      3593.               LA,S5      XX,LOD7WK+1.
      006101  01 00 00 01 2 040000      3594.               SA         XX,STACK,*XT.
      006102  74 11 00 00 0 006114      3595.               JB         XX,LOD7GS.          IS IT A GENSYM?
      006103  10 10 02 00 0 000144      3596.               LA,S6      XV,LOD7WK+1.        MOVE IN PRINT NAME
      006104  10 16 03 00 0 000051      3597.               L,U        XV+1,NAME.
      006105  01 00 03 00 0 000051      3598.       LOD7N   S          XV+1,NAME.
      006106  74 00 02 00 0 006126      3599.               JZ         XV,LOD7ND.
      006107  74 13 07 00 0 006250      3600.               LMJ        XR,FETCH.           GET 6 CHAR
      006110  15 16 02 00 0 000001      3601.               AN,U       XV,1.
      006111  14 16 03 00 0 000001      3602.               A,U        XV+1,1.
      006112  01 00 04 17 0 000000      3603.               SA         XA,0,XV+1.
      006113  74 04 00 00 0 006105      3604.               J          LOD7N.
      006114  10 00 03 00 0 000315      3605.       LOD7GS  LA         XV+1,GENNO.
      006115  14 16 03 00 0 000001      3606.               AA,U       XV+1,1.             BUMP GENSYM COUNTER
      006116  01 00 03 00 0 000315      3607.               SA         XV+1,GENNO.
      006117  74 13 04 00 0 000003      3608.               NODE       INTGER.
      006120  10 16 03 00 0 001000      3609.               LA         XV+1,KNIL.
      006121  74 13 04 00 0 000025      3610.               NODE       SYMBOL.
      006122  74 13 04 00 0 006233      3611.               LMJ        XL,CKSTI-2.         FIX TABLE
      006123  74 13 04 00 0 005751      3612.               LMJ        XL,LOAD.            GET HEADING
      006124  01 04 02 14 0 000001      3613.               SA,LH      XV,1,XX.
      006125  74 04 00 00 0 006131      3614.               J          LOD7PL-1.
      006126  74 13 04 00 0 004313      3615.       LOD7ND  LMJ        XL,INTERH.          ALLOCATE ATOM
      006127  74 06 00 00 0 000000      3616.               NOP        .                   DONT CARE IF THERE
      006130  74 13 04 00 0 006233      3617.               LMJ        XL,CKSTI-2.         ENTER IN SYMBOL TABLE
      006131  74 13 04 00 0 005751      3618.               LMJ        XL,LOAD.
      006132  53 16 02 00 0 001000      3619.       LOD7PL  TNE        XV,KNIL.
      006133  74 04 00 00 0 006167      3620.               J          LOD7PD.
      006134  27 00 07 00 0 000016      3621.               LX         XR,XV.
      006135  27 03 06 16 0 000000      3622.               LX,RH      XI,0,XV.
      006136  27 04 10 16 0 000000      3623.               LX,LH      XW,0,XV.
      006137  12 04 00 01 0 040001      3624.               LMA,LH     XX,STACK+1,XT.
      006140  12 00 02 00 0 000010      3625.               LMA        XV,XW.
      006141  42 16 02 00 1 177600      3626.               GETYPE
      006142  73 02 03 00 0 000007
      006143  10 13 03 17 0 000040
      006144  74 00 03 00 0 006154      3627.               JZ         XV+1,LOD7PP.        IS IT AT-VAL PAIR?
      006145  12 03 01 14 0 000000      3628.               LMA,RH     XY,0,XX.            PROP LIST
      006146  53 16 01 00 0 001000      3629.               TNE        XY,KNIL.
      006147  74 04 00 00 0 006162      3630.               J          LOD7AP.
      006150  53 04 02 15 0 000000      3631.               TNE,LH     XV,0,XY.            FLAG NOT THERE?
      006151  74 04 00 00 0 006165      3632.               J          LOD7NP.
      006152  12 00 00 00 0 000015      3633.               LMA        XX,XY.
      006153  74 04 00 00 0 006145      3634.               J          $-6.
      006154  12 04 04 10 0 000000      3635.       LOD7PP  LMA,LH     XA,0,XW.
      006155  74 13 04 00 0 007502      3636.               LMJ        XL,PLLU1.           LOOK UP ATTRIBUTE ON OLD PL
      006156  74 04 00 00 0 006162      3637.               J          $+4.
      006157  12 03 04 10 0 000000      3638.               LMA,RH     XA,0,XW.
      006160  01 03 04 16 0 000000      3639.               SA,RH      XA,0,XV.            REPLACE VALUE
      006161  74 04 00 00 0 006165      3640.               J          LOD7NP.
      006162  06 03 07 14 0 000000      3641.       LOD7AP  SX,RH      XR,0,XX.
      006163  10 16 04 00 0 001000      3642.               LA         XA,KNIL.
      006164  01 03 04 07 0 000000      3643.               SA,RH      XA,0,XR.
      006165  10 00 02 00 0 000006      3644.       LOD7NP  LA         XV,XI.
      006166  74 04 00 00 0 006132      3645.               J          LOD7PL.
      006167  10 10 04 01 0 040001      3646.       LOD7PD  LA,S6      XA,STACK+1,XT.
      006170  45 16 04 00 0 000002      3647.               TOP,U      XA,02.              CONSTANT?
      006171  74 04 00 00 0 006177      3648.               J          LOD7X.
      006172  74 13 04 00 0 005751      3649.               LMJ        XL,LOAD.            GET VALUE
      006173  01 04 02 14 0 000000      3650.               SA,LH      XV,0,XX.
      006174  10 10 04 01 0 040001      3651.               LA,S6      XA,STACK+1,XT.
      006175  44 16 04 00 0 000004      3652.               TEP,U      XA,04.              NOT SPECIAL FORM?
      006176  02 04 02 14 0 000000      3653.               SNA,LH     XV,0,XX.
      006177  12 04 02 01 0 040001      3654.       LOD7X   LMA,LH     XV,STACK+1,XT.
      006200  26 16 01 01 0 000001      3655.               POP.
      006201  74 04 00 00 0 006003      3656.               J          LOADX.
                                        3657.       LOD(STRING)
      006202  01 00 04 00 0 000145      3658.               S          XA,LOD8WK.
      006203  12 03 02 00 0 000262      3659.               LMA,RH     XV,DMPWD.           GET # OF WORDS
      006204  10 16 03 00 0 000051      3660.               L,U        XV+1,NAME.
      006205  01 00 03 00 0 000051      3661.       LOD8L   S          XV+1,NAME.          MOVE CHARS TO NAME BUFFER
      006206  74 00 02 00 0 006214      3662.               JZ         XV,LOD8D.
      006207  74 13 07 00 0 006250      3663.               LMJ        XR,FETCH.           6 CHARS
      006210  15 16 02 00 0 000001      3664.               AN,U       XV,1.
      006211  14 16 03 00 0 000001      3665.               A,U        XV+1,1.
      006212  01 00 04 17 0 000000      3666.               S          XA,0,XV+1.
      006213  74 04 00 00 0 006205      3667.               J          LOD8L.
      006214  74 13 14 00 0 004372      3668.       LOD8D   LMJ        XX,MAKSTR.          GET A STRING
      006215  10 00 00 00 0 000145      3669.               L          XX,LOD8WK.
      006216  74 13 04 00 0 006234      3670.               LMJ        XL,CKSTI-1.         ENTER IN SYMBOL TABLE
      006217  74 04 00 00 0 006003      3671.               J          LOADX.
                                        3672.       LOD(XREFTYP)
      006220  10 07 00 00 0 000262      3673.               LA,T1      XX,DMPWD.
      006221  74 03 00 00 0 006226      3674.               JN         XX,LODSU.           UPPER HALF?
      006222  74 00 00 00 0 006022      3675.               JZ         XX,LOD4X.
      006223  24 00 14 00 0 000261      3676.               AX         XX,STS.
      006224  12 03 02 14 0 000000      3677.               LMA,RH     XV,0,XX.
      006225  74 04 00 00 0 006231      3678.               J          LODSX.
      006226  11 07 00 00 0 000262      3679.       LODSU   LNA,T1     XX,DMPWD.
      006227  24 00 14 00 0 000261      3680.               AX         XX,STS.
      006230  12 04 02 14 0 000000      3681.               LMA,LH     XV,0,XX.
      006231  14 03 02 00 0 000262      3682.       LODSX   AA,RH      XV,DMPWD.
      006232  74 04 00 00 0 006003      3683.               J          LOADX.
                                        3684.       /. CHECK FOR ENTRY TO SYMBOL TABLE
    3 006233  10 00 00 00 0 000143      3685.               LA         XX,LOD7WK.
      006234  01 00 00 00 0 000262      3686.               SA         XX,DMPWD.
      006235  01 04 02 01 0 040001      3687.       CKSTI   SA,LH      XV,STACK+1,XT.      SAVE ALLOCATED OBJECT
      006236  10 07 00 00 0 000262      3688.               LA,T1      XX,DMPWD.           TABLE INDEX
      006237  74 00 00 04 0 000000      3689.               JZ         XX,0,XL.            NODNE?
      006240  74 03 00 00 0 006244      3690.               JN         XX,CKSTI1.          UPPER HALF?
      006241  24 00 14 00 0 000261      3691.               AX         XX,STS.
      006242  01 03 02 14 0 000000      3692.               SA,RH      XV,0,XX.
      006243  74 04 00 04 0 000000      3693.               J          0,XL.
      006244  11 07 00 00 0 000262      3694.       CKSTI1  LNA,T1     XX,DMPWD.
      006245  24 00 14 00 0 000261      3695.               AX         XX,STS.
      006246  01 04 02 14 0 000000      3696.               SA,LH      XV,0,XX.
      006247  74 04 00 04 0 000000      3697.               J          0,XL.
                                        3698.       . GET NEXT ITEM IN RECORD
      006250  10 14 00 00 0 000107      3699.       FETCH   LA,S2      XX,SECTOR.
      006251  14 16 00 00 0 000001      3700.               AA,U       XX,1.
      006252  01 14 00 00 0 000107      3701.               SA,S2      XX,SECTOR.
      006253  10 00 04 14 0 000107      3702.               LA         XA,SECTOR,XX.
      006254  01 00 04 00 0 000262      3703.               SA         XA,DMPWD.
      006255  52 16 00 00 0 000034      3704.               TE,U       XX,28.
      006256  74 04 00 07 0 000000      3705.               J          0,XR.
      006257  26 00 04 00 0 000007      3706.               LXM        XL,XR.
U     006260  10 16 00 00 0 000000      3707.       FETCH1  LA,U       XX,R$.
      006261  74 13 07 00 0 005651      3708.               LMJ        XR,DWRITE+1.
      006262  26 00 07 00 0 000004      3709.               LXM        XR,XL.
      006263  74 04 00 00 0 006250      3710.               J          FETCH.
                                        3711.       /. GET PRINT NAME OF ATOMIC SYMBOL
    3 006264  12 03 00 16 0 000001      3712.       GETNAM  LMA,RH     XX,1,XV.
      006265  27 16 15 00 0 000051      3713.               LX,U       XY,NAME.
      006266  06 00 15 00 0 000051      3714.       GETNL   SX         XY,NAME.
      006267  53 16 00 00 0 001000      3715.               TNE        XX,KNIL.            NOT DONE?
      006270  74 04 00 04 0 000000      3716.               J          0,XL.
      006271  52 16 01 00 0 000100      3717.               TE,U       XY,NAME+23.
      006272  24 16 15 00 0 000001      3718.               AX,U       XY,1.
      006273  05 00 00 15 0 000000      3719.               SZ         0,XY.
      006274  10 02 04 14 0 000000      3720.               L,H1       XA,0,XX.            3 CHARS
      006275  01 02 04 15 0 000000      3721.               S,H1       XA,0,XY.
      006276  12 03 00 14 0 000000      3722.               LMA,RH     XX,0,XX.
      006277  53 16 00 00 0 001000      3723.               TNE        XX,KNIL.
      006300  74 04 00 00 0 006266      3724.               J          GETNL.
      006301  10 02 04 14 0 000000      3725.               L,H1       XA,0,XX.            3 CHARS
      006302  01 01 04 15 0 000000      3726.               S,H2       XA,0,XY.
      006303  12 03 00 14 0 000000      3727.               LMA,RH     XX,0,XX.
      006304  74 04 00 00 0 006266      3728.               J          GETNL.
                                        3729.       . CHANGE TRAILING ZEROES TO SPACES
      006305  27 03 14 00 0 000051      3730.       BLANKS  LX,RH      XX,NAME.
      006306  10 16 01 00 0 000000      3731.               LA,U       XY,0.
      006307  10 00 04 14 0 000000      3732.               LA         XA,0,XX.
      006310  74 00 04 00 0 006314      3733.       BLANK1  JZ         XA,BLANK2.
      006311  24 16 15 00 0 000006      3734.               AX,U       XY,6.
      006312  73 13 03 00 0 000006      3735.               LDSL       XA-1,6.
      006313  74 04 00 00 0 006310      3736.               J          BLANK1.
      006314  10 00 04 00 0 000332      3737.       BLANK2  LA         XA,('      ').
      006315  01 00 04 14 0 000001      3738.               SA         XA,1,XX.
      006316  01 00 04 14 0 000002      3739.               SA         XA,2,XX.
      006317  73 03 03 15 0 000000      3740.               DSL        XA-1,0,XY.
      006320  01 00 04 14 0 000000      3741.               SA         XA,0,XX.
      006321  71 13 04 00 0 000052      3742.               DL         XA,NAME+1.
      006322  74 04 00 04 0 000000      3743.               J          0,XL.
                                        3744.        . MAKE SURE FILE IS ASSIGNED
      006323  71 13 04 00 0 000052      3745.       ASSIGN  DL         XA,NAME+1.
      006324  71 12 04 00 0 000312      3746.               DS         XA,CSFFN.
      006325  10 16 00 00 0 000310      3747.               L,U        A0,CSFIM.
U     006326  72 11 00 00 0 000000      3748.               ER         CSF$.
      006327  74 04 00 04 0 000000      3749.               J          0,XL.
                                        3750.       . GENERATE ADDRESS MASK FOR AN INSTRUCTION (LEAVE IN XV-1)
      006330  10 15 01 16 0 000000      3751.       IMASK   L,S1       XV-1,0,XV.          ENTER WITH XV POINTING TO INST
      006331  55 16 01 00 0 000070      3752.               TG,U       XV-1,070.
      006332  74 04 00 00 0 006344      3753.               J          IMASKD.             J = MINOR FUNC CODE: 16 BITS
      006333  10 14 01 16 0 000000      3754.               L,S2       XV-1,0,XV.
      006334  73 02 01 00 0 000003      3755.               SSL        XV-1,3.
      006335  52 16 01 00 0 000007      3756.               TE,U       XV-1,7.
      006336  74 04 00 00 0 006344      3757.               J          IMASKD.             J NOT 16 OR 17: 16 BITS
      006337  10 13 01 16 0 000000      3758.               L,S3       XV-1,0,XV.
      006340  73 12 01 00 0 000040      3759.               LSSL       XV-1,32.
      006341  74 01 01 00 0 006344      3760.               JNZ        XV-1,IMASKD.        X NOT ZERO: 16 BITS
      006342  10 16 01 00 1 177777      3761.               L,U        XV-1,0377777.       OK: 17-BIT MASK
      006343  74 04 00 14 0 000000      3762.               J          0,XX.
      006344  10 16 01 00 0 177777      3763.       IMASKD  L,U        XV-1,0177777.       16-BIT MASK
      006345  74 04 00 14 0 000000      3764.               J          0,XX.
                                        3765.       /$(6)
    6 000260  74 04 00 06 0 005254      3766.       BRKOUT  J          PASS1,XI.           PASSU-2 BREAKOUT SWITCH
      000261  000000000000              3767.       STS     +0
      000262  000000000000              3768.       DMPWD   +0
      000263  050505050505              3769.       PAKET   ' '
      000264  050505050505              3770.               ' '
      000265  000000000000              3771.               DO         6 , +0
      000266  000000000000
      000267  000000000000
      000270  000000000000
      000271  000000000000
      000272  000000000000
      000273  000000 000000             3772.               +          0,0
              00 13 00 00 0 000273      3773.       PFFLAG  EQUF       $-1,,S3.
              00 03 00 00 0 000273      3774.       PFWL    EQUF       $-1,,RH.
      000274  312513470505              3775.       PFPAK   'TPF$        '
      000275  050505050505
      000276  211630254711              3776.               'LISP$DUMP'
      000277  322225050505
      000300  000000000000              3777.               +          0
      000301  00 00 06 000000           3778.               PF         0,0,6,0
      000302  050505050505              3779.               '            '
      000303  050505050505
      000304  000000000000              3780.               +          0D
      000305  000000000000
      000306  000000000000              3781.               +          0D
      000307  000000000000
      000310  000630145606              3782.       CSFIM   '@ASG,A '
      000311  050505050505
      000312  000000000000              3783.       CSFFN   +          0D
      000313  000000000000
      000314  057505050505              3784.               ' . '
                                        3785.       $(8)
    8 000107                            3786.       SECTOR  RES        28
      000143                            3787.       LOD7WK  RES        2
      000145                            3788.       LOD8WK  RES        1
      000146                            3789.       LODSAV  RES        4
      000152                            3790.       XISAV   RES        1
                                        3791.       $(3)
                                        3792.       /. FOLLOW CAR-CDR CHAIN
    3 006346  10 00 04 04 0 000000      3793.       FOLLOW  LA         XA,0,XL.
      006347  12 03 02 02 0 037777      3794.               LOAD       1.
      006350  12 16 02 00 0 000001
      006351  10 00 00 00 0 000003      3795.               LA         XX,OPSHUN.
      006352  74 11 00 00 0 006405      3796.               JB         XX,FOLLF.           INHIBIT ATOM CHECK?
      006353  73 03 04 00 0 000001      3797.       FOLL1   DSL        XA,1.
      006354  74 00 04 00 0 000011      3798.               JZ         XA,EXIT.
      006355  42 16 02 00 1 177600      3799.               GETYPE
      006356  73 02 03 00 0 000007
      006357  10 13 03 17 0 000040
      006360  74 01 03 00 0 006366      3800.               JNZ        XV+1,FOLLB.
      006361  74 02 05 00 0 006364      3801.               JP         XA+1,$+3.
      006362  12 03 02 16 0 000000      3802.               CHAIN      RH.
      006363  74 04 00 00 0 006353      3803.               J          FOLL1.
      006364  12 04 02 16 0 000000      3804.               CHAIN      LH.
      006365  74 04 00 00 0 006353      3805.               J          FOLL1.
      006366  06 00 01 03 2 040000      3806.       FOLLB   LETS       PRIN1.
      006367  23 16 03 00 0 002544
      006370  04 00 03 01 2 040000
      006371  01 00 02 01 2 040000      3807.               STORE
      006372  01 00 02 02 0 040000
      006373  74 13 07 00 0 003356      3808.               EDIT
      006374  100623232431              3809.               'CANNOT TAKE CAR OR CDR OF @'
      006375  053106201205
      006376  100627052427
      006377  051011270524
      006400  130500050505
      006401  74 13 04 00 0 000004      3810.               CALLR.
      006402  74 13 14 00 0 003475      3811.               LMJ        XX,SENDDB.
      006403  74 04 00 00 0 001416      3812.               J          SYSERR.
      006404  12 03 02 16 0 000000      3813.               CHAIN      RH.
      006405  73 03 04 00 0 000001      3814.       FOLLF   DSL        XA,1.
      006406  74 00 04 00 0 000011      3815.               JZ         XA,EXIT.
      006407  74 03 05 00 0 006404      3816.               JN         XA+1,FOLLF-1.
      006410  12 04 02 16 0 000000      3817.               CHAIN      LH.
      006411  74 04 00 00 0 006405      3818.               J          FOLLF.
      006412  12 03 02 02 0 037777      3819.       TCAR    LOAD       1
      006413  12 16 02 00 0 000001
      006414  12 04 02 16 0 000000      3820.               CHAIN      LH.
      006415  74 04 00 00 0 000011      3821.               RETURN
      006416  12 03 02 02 0 037777      3822.       TCDR    LOAD       1
      006417  12 16 02 00 0 000001
      006420  12 03 02 16 0 000000      3823.               CHAIN      RH.
      006421  74 04 00 00 0 000011      3824.               RETURN
                                        3825.       . REPLACE CAR OF NODE
      006422  12 03 02 02 0 037777      3826.       RPLACA  LOAD       1.
      006423  12 16 02 00 0 000001
      006424  10 00 03 02 0 037776      3827.               LA         XV+1,STACK-2,XF.
      006425  01 04 03 16 0 000000      3828.               SA,LH      XV+1,0,XV.
      006426  74 04 00 00 0 000011      3829.               RETURN
                                        3830.       . REPLACE CDR OF NODE
      006427  12 03 02 02 0 037777      3831.       RPLACD  LOAD       1.
      006430  12 16 02 00 0 000001
      006431  10 00 03 02 0 037776      3832.               LA         XV+1,STACK-2,XF.
      006432  01 03 03 16 0 000000      3833.               SA,RH      XV+1,0,XV.
      006433  74 04 00 00 0 000011      3834.               RETURN
                                        3835.       /. NULL PREDICATE
    3 006434  12 03 02 02 0 037777      3836.       NULL    LOAD       1.
      006435  12 16 02 00 0 000001
      006436  52 16 02 00 0 001000      3837.               TE         XV,KNIL.
      006437  74 04 00 00 0 006455      3838.               J          GFAL.
      006440  12 03 02 02 0 036664      3839.               LOAD       TRU.
      006441  12 16 02 00 0 001114
      006442  74 04 00 00 0 000011      3840.               RETURN
                                        3841.       . CONSTRUCT CONSED NODE
      006443  10 00 02 01 0 040002      3842.       CONS    LA         XV,STACK+2,XT.
      006444  10 00 03 01 0 040001      3843.               LA         XV+1,STACK+1,XT.
      006445  74 13 04 00 0 000000      3844.               NODE       CONSED
      006446  74 04 00 00 0 000011      3845.               RETURN
                                        3846.       . ATOM PREDICATE
      006447  12 03 02 02 0 037777      3847.       IFATOM  LOAD       1.
      006450  12 16 02 00 0 000001
      006451  42 16 02 00 1 177600      3848.               GETYPE
      006452  73 02 03 00 0 000007
      006453  10 13 03 17 0 000040
      006454  74 01 03 00 0 006470      3849.               JNZ        XV+1,GTRU.
      006455  12 03 02 02 0 037000      3850.       GFAL    LOAD       NIL.
      006456  12 16 02 00 0 001000
      006457  74 04 00 00 0 000011      3851.               RETURN
                                        3852.       . GET TYPE OF OBJECT (FOR COMPILED CODE)
      006460  42 16 02 00 1 177600      3853.       GETYP   GETYPE
      006461  73 02 03 00 0 000007
      006462  10 13 03 17 0 000040
      006463  74 04 00 04 0 000000      3854.               J          0,XL.
                                        3855.       . EQ PREDICATE
      006464  12 03 02 02 0 037777      3856.       EQ      LOAD       1.
      006465  12 16 02 00 0 000001
      006466  52 03 02 02 0 037776      3857.               TE,RH      XV,STACK-2,XF.
      006467  74 04 00 00 0 006455      3858.               J          GFAL.
      006470  12 03 02 02 0 036664      3859.       GTRU    LOAD       TRU.
      006471  12 16 02 00 0 001114
      006472  74 04 00 00 0 000011      3860.               RETURN
                                        3861.       /. PRIMITIVES FOR SUSPENDING CONS (CALLED KONS)
    3 006473  12 03 02 02 0 037777      3862.       EVKONS  LOAD       1.
      006474  12 16 02 00 0 000001
      006475  12 03 04 16 0 000000      3863.               LOWER      XA.
      006476  01 03 04 02 0 037777      3864.               S,RH       XA,STACK-1,XF.
      006477  12 04 02 16 0 000000      3865.               UPPER      XV.
      006500  10 00 03 00 0 000004      3866.               L          XV+1,XL.
      006501  73 02 03 00 0 000022      3867.               SSL        XV+1,18.
      006502  74 13 04 00 0 000033      3868.               NODE       SUSP.
      006503  12 03 03 02 0 037777      3869.               LM,RH      XV+1,STACK-1,XF.
      006504  01 03 02 02 0 037777      3870.               S,RH       XV,STACK-1,XF.
      006505  12 04 02 17 0 000000      3871.               LM,LH      XV,0,XV+1.
      006506  10 00 03 00 0 000004      3872.               L          XV+1,XL.
      006507  73 02 03 00 0 000022      3873.               SSL        XV+1,18.
      006510  74 13 04 00 0 000033      3874.               NODE       SUSP.
      006511  10 00 03 02 0 037777      3875.               L          XV+1,STACK-1,XF.
      006512  73 01 02 00 0 000044      3876.               DSC        XV,36.
      006513  74 13 04 00 0 000000      3877.               NODE       CONSED.
      006514  74 04 00 00 0 000011      3878.               RETURN.
                                        3879.       .
      006515  26 16 04 00 0 000011      3880.               LXM,U      XL,EXIT.
      006516  01 00 02 01 0 040000      3881.       GETCAR  S          XV,STACK,XT.
      006517  12 04 02 16 0 000000      3882.               UPPER      XV.
      006520  42 16 02 00 1 177600      3883.               GETYPE
      006521  73 02 03 00 0 000007
      006522  10 13 03 17 0 000040
      006523  52 16 03 00 0 000011      3884.               TE,U       XV+1,SUSP.          IS IT A SUSPENSION?
      006524  74 04 00 04 0 000000      3885.               J          0,XL.
      006525  25 16 01 00 0 000001      3886.               AN,U       XT,1.
      006526  06 00 04 01 2 040000      3887.               S          XL,STACK,*XT.
      006527  46 03 04 16 0 000000      3888.               LXI,RH     XL,0,XV.            ALIST FROM SUSPENSION
      006530  74 13 04 00 0 001704      3889.               LMJ        XL,EVALC-1.         EVALUATE EXPRESSION
      006531  10 00 03 01 0 040003      3890.               L          XV+1,STACK+3,XT.    CONSED NODE
      006532  01 04 02 17 0 000000      3891.               S,LH       XV,0,XV+1.          REPLACE SUSPENSION (CAR PART)
      006533  27 00 04 01 0 040002      3892.               L          XL,STACK+2,XT.
      006534  26 16 01 01 0 000003      3893.               LXM,U      XT,3,XT.
      006535  74 04 00 04 0 000000      3894.               J          0,XL.
                                        3895.       .
      006536  26 16 04 00 0 000011      3896.               LXM,U      XL,EXIT.
      006537  01 00 02 01 0 040000      3897.       GETCDR  S          XV,STACK,XT.
      006540  12 03 02 16 0 000000      3898.               LOWER      XV.
      006541  42 16 02 00 1 177600      3899.               GETYPE
      006542  73 02 03 00 0 000007
      006543  10 13 03 17 0 000040
      006544  52 16 03 00 0 000011      3900.               TE,U       XV+1,SUSP.          IS IT SUSPENDED?
      006545  74 04 00 04 0 000000      3901.               J          0,XL.
      006546  25 16 01 00 0 000001      3902.               AN,U       XT,1.
      006547  06 00 04 01 2 040000      3903.               S          XL,STACK,*XT.
      006550  46 03 04 16 0 000000      3904.               LXI,RH     XL,0,XV.            ALIST
      006551  74 13 04 00 0 001704      3905.               LMJ        XL,EVALC-1.
      006552  10 00 03 01 0 040003      3906.               L          XV+1,STACK+3,XT.
      006553  01 03 02 17 0 000000      3907.               S,RH       XV,0,XV+1.          REPLACE OLD SUSPENSION
      006554  27 00 04 01 0 040002      3908.               L          XL,STACK+2,XT.
      006555  26 16 01 01 0 000003      3909.               LXM,U      XT,3,XT.
      006556  74 04 00 04 0 000000      3910.               J          0,XL.
                                        3911.       /. CAPTURE CLOSURE OF FUNCTION
    3 006557  27 00 16 00 0 000004      3912.       FUNARG  LX         XV,XL.
      006560  26 00 16 01 0 040001      3913.               LXM        XV,STACK+1,XT.        FUNCTION ADDRESS
      006561  74 13 17 00 0 000022      3914.               LMJ        XV+1,STORIT(LINKER).  BUILD LINKAGE NODE & EXIT
      006562  46 04 04 04 0 000000      3915.               LXI,LH     XL,0,XL.
      006563  12 03 00 04 0 000000      3916.               LMA,RH     XX,0,XL.
      006564  26 16 04 00 0 000011      3917.               LXM,U      XL,EXIT.
      006565  74 04 00 14 0 000000      3918.               J          0,XX.
                                        3919.       . GENERATE FRESH ATOMIC SYMBOL
      006566  12 03 02 02 0 036716      3920.       GENSYM  MOVE       CHA('G').
      006567  12 16 02 00 0 001062
      006570  01 00 02 01 2 040000
      006571  01 00 02 02 0 040000
      006572  10 00 03 00 0 000315      3921.               LA         XV+1,GENNO.         BUMP GENSYM COUNTER
      006573  14 16 03 00 0 000001      3922.               AA,U       XV+1,1.
      006574  01 00 03 00 0 000315      3923.               SA         XV+1,GENNO.
      006575  74 13 04 00 0 000003      3924.               NODE       INTGER.
      006576  10 16 03 00 0 001000      3925.               LA         XV+1,KNIL.
      006577  74 13 04 00 0 000025      3926.               NODE       SYMBOL.             CREATE NEW ATOMIC SYMBOL
      006600  10 00 00 02 0 037777      3927.               LA         XX,STACK-1,XF.
      006601  01 04 00 16 0 000001      3928.               SA,LH      XX,1,XV.            PLUG HEADING
      006602  74 04 00 00 0 000011      3929.               RETURN
                                        3930.       $(6)
    6 000315  000000000000              3931.       GENNO   +0
      000316  000000000000              3932.       RAND    +          0.
                                        3933.       $(3)
                                        3934.       . AMBIGUITY FUNCTION
    3 006603  12 00 01 00 0 000316      3935.       AMB     LM         A1,RAND.
      006604  74 01 01 00 0 006607      3936.               JNZ        A1,$+3.
U     006605  72 11 00 00 0 000000      3937.               ER         TDATE$.
      006606  40 16 00 00 0 000001      3938.               OR,U       A0,1.
      006607  30 00 01 00 0 000374      3939.               MI         A1,(0343277244615). THE FAMOUS 5**15
      006610  12 00 02 00 0 000016      3940.               LM         A2,A2.
      006611  01 00 02 00 0 000316      3941.               S          A2,RAND.
      006612  10 16 00 02 0 000000      3942.               L,U        XX,0,XF.
      006613  15 16 00 01 0 000001      3943.               AN,U       XX,1,XT.
      006614  30 00 02 00 0 000014      3944.               MI         A2,XX.
      006615  73 13 02 00 0 000001      3945.               LDSL       A2,1.
      006616  14 16 02 01 0 000001      3946.               A,U        A2,1,XT.
      006617  10 00 02 16 0 040000      3947.               L          XV,STACK,A2.
      006620  74 04 00 00 0 000011      3948.               RETURN
                                        3949.       /. DEFINE SPECIAL FORM
    3 006621  10 16 01 00 0 006660      3950.       DEFSPEC L,U        XY,SEXPAND.
      006622  74 04 00 00 0 006624      3951.               J          $+2.
                                        3952.       . DEFINE MACRO
      006623  10 16 01 00 0 006670      3953.       DEFMAC  L,U        XY,MEXPAND.
      006624  12 03 02 02 0 037777      3954.               LOAD       1.
      006625  12 16 02 00 0 000001
      006626  12 04 00 16 0 000000      3955.               UPPER      XX.                 GET NAME
      006627  12 04 02 16 0 000000      3956.               CHAIN      RH,LH.              GET 2ND ARG
      006630  42 16 02 00 1 177600      3957.               GETYPE.
      006631  73 02 03 00 0 000007
      006632  10 13 03 17 0 000040
      006633  53 16 03 00 0 000007      3958.               TNE,U      XV+1,SYMBOL.
      006634  61 00 00 16 0 000000      3959.               TN         0,XV.
      006635  74 04 00 00 0 006642      3960.               J          $+5.                NORMAL FUNCTION
      006636  12 04 03 16 0 000000      3961.               LM,LH      XV+1,0,XV.          ALREADY MACRO OR SPECIAL FORM
      006637  10 00 02 00 0 000014      3962.               L          XV,XX.
      006640  02 04 03 16 0 000000      3963.               SNA,LH     XV+1,0,XV.          ACT LIKE A MINUS CSETQ
      006641  74 04 00 00 0 000011      3964.               RETURN.
      006642  01 03 00 02 0 037777      3965.               S,RH       XX,STACK-1,XF.      SAVE NAME
      006643  01 03 01 01 2 040000      3966.               S,RH       XY,STACK,*XT.       SAVE TYPE
      006644  74 13 04 00 0 001705      3967.               LMJ        XL,EVALC.           GET FUNCTION ADDRESS
      006645  74 13 04 00 0 007044      3968.               LMJ        XL,CHKFN.           CHECK IT
      006646  74 04 00 00 0 006650      3969.               J          $+2.
      006647  12 03 02 02 0 037775      3970.       DEFSPM  LOAD       3.                  ENTRY FOR COMPILED CODE
      006650  12 16 02 00 0 000003
      006651  10 00 03 02 0 037776      3971.               L          XV+1,STACK-2,XF.
      006652  74 13 04 00 0 000022      3972.               NODE       LINKER.
      006653  10 00 03 00 0 000016      3973.               L          XV+1,XV.
      006654  12 03 02 02 0 037777      3974.               LOAD       1.                  GET NAME
      006655  12 16 02 00 0 000001
      006656  02 04 03 16 0 000000      3975.               SNA,LH     XV+1,0,XV.          STASH NEGATIVE PNTR
      006657  74 04 00 00 0 000011      3976.               RETURN.
                                        3977.       . EXPAND SPECIAL FORM
      006660  06 00 01 03 2 040000      3978.       SEXPAND MARK.
      006661  12 03 02 04 0 000000      3979.               LMA,RH     XV,0,XL.            FUNCTION ADDRESS
      006662  01 00 02 01 2 040000      3980.               STORE.
      006663  01 00 02 02 0 040000
      006664  12 03 02 02 0 037777      3981.               LOAD       1.
      006665  12 16 02 00 0 000001
      006666  74 13 04 00 0 000071      3982.               LMJ        XL,STAKEM.          ARGS TO STACK.
      006667  74 04 00 00 0 000020      3983.               J          ENTRYI.             APPLY FUNCTION
                                        3984.       . EXPAND MACRO
      006670  06 00 01 03 2 040000      3985.       MEXPAND MARK
      006671  12 03 02 04 0 000000      3986.               LMA,RH     XV,0,XL.            FUNCTION ADDRESS
      006672  01 00 02 01 2 040000      3987.               STORE.
      006673  01 00 02 02 0 040000
      006674  12 03 02 02 0 037777      3988.               LOAD       1.
      006675  12 16 02 00 0 000001
      006676  74 13 04 00 0 000071      3989.               LMJ        XL,STAKEM.          ARGS TO STACK.
      006677  74 13 04 00 0 000004      3990.               CALLR.                         APPLY FUNCTION
      006700  01 00 02 01 2 040000      3991.               STORE      1.
      006701  01 00 02 02 0 037777
      006702  74 04 00 00 0 001642      3992.               J          EVAL-1.             EVAL RESULT                                                                                3993.       /. SET BREAK INTO FUNCTION
    3 006703  12 03 02 02 0 037777      3994.       BREAK   LOAD       1.                  GET ATOMIC SYMBOL
      006704  12 16 02 00 0 000001
      006705  10 04 02 16 0 000000      3995.               L,LH       XV,0,XV.
      006706  74 03 02 00 0 006710      3996.               JN         XV,$+2.             SPECIAL FORM OR MACRO?
      006707  74 13 04 00 0 007044      3997.               LMJ        XL,CHKFN.           NO: MAKE SURE ITS A FUNCTION
      006710  01 00 02 00 0 000153      3998.               S          XV,BRFN.
      006711  12 03 02 02 0 037776      3999.               LOAD       2.                  GET BREAK FUNCTION
      006712  12 16 02 00 0 000002
      006713  74 13 04 00 0 007044      4000.               LMJ        XL,CHKFN.           MAKE SURE ITS A FUNCTION
      006714  10 00 03 00 0 000016      4001.               L          XV+1,XV.
      006715  12 03 02 02 0 037777      4002.               LOAD       1.
      006716  12 16 02 00 0 000001
      006717  74 13 04 00 0 000000      4003.               NODE       CONSED.
      006720  73 12 02 00 0 000022      4004.               LSSL       XV,18.
      006721  26 00 16 00 0 000153      4005.               LXM        XV,BRFN.
      006722  10 16 03 00 0 006744      4006.               L,U        XV+1,BREAKER.
      006723  74 13 04 00 0 000022      4007.               NODE       LINKER.             CREATE LINKAGE NODE
      006724  10 00 03 00 0 000016      4008.               L          XV+1,XV.
      006725  60 00 00 00 0 000153      4009.               TP         BRFN.
      006726  11 00 03 00 0 000017      4010.               LN         XV+1,XV+1.          NEGATIVE PNTR IF SF OR MAC
      006727  12 03 02 02 0 037777      4011.               LOAD       1.
      006730  12 16 02 00 0 000001
      006731  01 04 03 16 0 000000      4012.               S,LH       XV+1,0,XV.          STASH PNTR
      006732  74 04 00 00 0 000011      4013.               RETURN.
                                        4014.       . REMOVE BREAK FROM FUNCTION
      006733  12 03 02 02 0 037777      4015.       UNBREAK LOAD       1.
      006734  12 16 02 00 0 000001
      006735  12 04 03 16 0 000000      4016.               LMA,LH     XV+1,0,XV.
      006736  10 00 04 17 0 000000      4017.               L          XA,0,XV+1.
      006737  52 00 04 00 0 000375      4018.               TE         XA,(LMJ XL,BREAKER).
      006740  74 04 00 00 0 000011      4019.               RETURN.                        NOT BROKEN!
      006741  10 03 03 17 0 000001      4020.               L,RH       XV+1,1,XV+1.
      006742  01 04 03 16 0 000000      4021.               S,LH       XV+1,0,XV.
      006743  74 04 00 00 0 000011      4022.               RETURN.
                                        4023.       $(8)
    8 000153                            4024.       BRFN    RES        1.
                                        4025.       $(3)
                                        4026.       . BREAK ROUTINE
    3 006744  10 16 01 01 0 000001      4027.       BREAKER L,U        XY,1,XT.
      006745  25 16 01 00 0 000002      4028.               AN,U       XT,2.               MOVE UP 2 WORDS IN STACK
      006746  53 16 01 02 0 000000      4029.       BRMOVE  TNE,U      XY,0,XF.
      006747  74 04 00 00 0 006754      4030.               J          $+5.
      006750  10 03 04 15 0 040000      4031.               L,RH       XA,STACK,XY.
      006751  01 00 04 15 0 037776      4032.               S          XA,STACK-2,XY.
      006752  26 16 15 15 0 000001      4033.               LXM,U      XY,1,XY.
      006753  74 04 00 00 0 006746      4034.               J          BRMOVE
      006754  10 04 02 04 0 000000      4035.               L,LH       XV,0,XL.
      006755  12 04 00 16 0 000000      4036.               UPPER      XX.
      006756  01 00 00 02 0 037777      4037.               S          XX,STACK-1,XF.      SET FUNCTION NAME
      006757  12 03 00 04 0 000000      4038.               LMA,RH     XX,0,XL.
      006760  01 00 00 02 0 037776      4039.               S          XX,STACK-2,XF.
      006761  12 03 00 16 0 000000      4040.               LOWER      XX.
      006762  74 04 00 14 0 000000      4041.               J          0,XX.               ENTER BREAK FUNCTION                                                                       4042.       /. SEQUENCERS: ONTO (MAPLIST), INTO (MAPCAR), MAP, MAPC
    3 006763  10 16 04 00 0 000077      4043.       ONTO    LA,U       XA,077.
      006764  74 04 00 00 0 006770      4044.               J          INTO+1.
      006765  01 00 02 01 2 040000      4045.               STORE
      006766  01 00 02 02 0 040000
      006767  10 16 04 00 0 000000      4046.       INTO    LA,U       XA,0.
      006770  01 00 04 03 2 040000      4047.               SA         XA,CSTAK,*XC.
      006771  12 03 02 02 0 037776      4048.               LOAD 2.
      006772  12 16 02 00 0 000002
      006773  74 13 04 00 0 007044      4049.               LMJ        XL,CHKFN.           CHECK FN
      006774  01 00 02 01 2 040000      4050.               STORE      2.
      006775  01 00 02 02 0 037776
      006776  12 03 02 02 0 037777      4051.               LOAD       1.
      006777  12 16 02 00 0 000001
      007000  53 16 02 00 0 001000      4052.               TNE        XV,KNIL.
      007001  70 00 03 00 0 007005      4053.               JGD        XC,$+4.
      007002  74 13 04 00 0 007032      4054.               LMJ        XL,MAPPER.
      007003  01 00 02 01 2 040000      4055.               STORE.
      007004  01 00 02 02 0 040000
      007005  74 04 00 00 0 007000      4056.               J          $-5.
      007006  27 00 15 00 0 000002      4057.               LX         XY,XF.
      007007  25 16 15 00 0 000002      4058.               ANX,U      XY,2.
      007010  74 13 04 00 0 000052      4059.               LMJ        XL,LISTEM.
      007011  74 04 00 00 0 000011      4060.               RETURN.
      007012  10 16 04 00 0 000077      4061.       MAP     LA,U       XA,077.
      007013  74 04 00 00 0 007017      4062.               J          MAPC+1.
      007014  01 00 02 01 2 040000      4063.               STORE.
      007015  01 00 02 02 0 040000
      007016  10 16 04 00 0 000000      4064.       MAPC    LA,U       XA,0.
      007017  01 00 04 03 2 040000      4065.               SA         XA,CSTAK,*XC.
      007020  12 03 02 02 0 037776      4066.               LOAD       2.
      007021  12 16 02 00 0 000002
      007022  74 13 04 00 0 007044      4067.               LMJ        XL,CHKFN.           CHECK FN
      007023  01 00 02 01 2 040000      4068.               STORE      2.
      007024  01 00 02 02 0 037776
      007025  12 03 02 02 0 037777      4069.               LOAD       1.
      007026  12 16 02 00 0 000001
      007027  53 16 02 00 0 001000      4070.               TNE        XV,KNIL.            MORE?
      007030  70 00 03 00 0 000011      4071.               JGD        XC,EXIT.
      007031  26 16 04 00 0 007026      4072.               LXM,U      XL,$-3.
      007032  12 03 04 16 0 000000      4073.       MAPPER  LOWER      XA.
      007033  01 00 04 02 0 037777      4074.               SA         XA,STACK-1,XF.
      007034  51 03 00 03 0 037777      4075.               TNZ,RH     CSTAK-1,XC.         ONTO?
      007035  12 04 02 16 0 000000      4076.               UPPER      XV
      007036  06 00 01 03 2 040000      4077.               MARK
      007037  10 00 04 02 0 037776      4078.               LA         XA,STACK-2,XF.
      007040  01 00 04 01 2 040000      4079.               SA         XA,STACK,*XT.
      007041  01 00 02 01 2 040000      4080.               STORE
      007042  01 00 02 02 0 040000
      007043  74 04 00 00 0 000004      4081.               J          ENTRYR.
                                        4082.       /. CHECK XV TO SEE IF IT IS A FUNCTION
    3 007044  74 00 02 00 0 007052      4083.       CHKFN   JZ         XV,BADFN.
      007045  42 16 02 00 1 177600      4084.               GETYPE.
      007046  73 02 03 00 0 000007
      007047  10 13 03 17 0 000040
      007050  50 15 00 17 0 000036      4085.               TZ         NFLG1,XV+1.
      007051  74 04 00 04 0 000000      4086.               J          0,XL.               OK
      007052  06 00 04 01 2 040000      4087.       BADFN   S          XL,STACK,*XT.       NO: SAVE RETURN
      007053  74 13 14 00 0 003450      4088.               LMJ        XX,SENDIT.
      007054  06 00 01 03 2 040000      4089.               LETS       PRIN1.
      007055  23 16 03 00 0 002544
      007056  04 00 03 01 2 040000
      007057  01 00 02 01 2 040000      4090.               STORE.
      007060  01 00 02 02 0 040000
      007061  74 13 04 00 0 000004      4091.               CALLR.
      007062  74 13 07 00 0 003357      4092.               EDITA
      007063  051630052324              4093.               ' IS NOT A FUNCTION@'
      007064  310506051332
      007065  231031162423
      007066  000505050505
      007067  74 13 14 00 0 003475      4094.               LMJ        XX,SENDDB.
      007070  06 00 01 03 2 040000      4095.               LETS       EVREAD.
      007071  23 16 03 00 0 001327
      007072  04 00 03 01 2 040000
      007073  74 13 04 00 0 000004      4096.               CALLR.                         GET A NEW FN
      007074  27 00 04 01 0 040001      4097.               L          XL,STACK+1,XT.      GET RETURN ADDR
      007075  26 16 01 01 0 000001      4098.               POP.
      007076  74 04 00 00 0 007044      4099.               J          CHKFN.              GO CHECK NEW FN                                                                            4100.       /. COMPARE TWO S-EXPRESSIONS FOR EQUALITY
    3 007077  74 01 03 00 0 006455      4101.       EQUAL1  JNZ        XV+1,GFAL.
      007100  12 03 04 16 0 000000      4102.               LOWER      XA.                 BOTH LISTS
      007101  01 00 04 02 0 037776      4103.               SA         XA,STACK-2,XF.
      007102  12 04 02 16 0 000000      4104.               UPPER      XV.
      007103  06 00 01 03 2 040000      4105.               LETS       EQUAL.
      007104  23 16 03 00 0 007122
      007105  04 00 03 01 2 040000
      007106  01 00 02 01 2 040000      4106.               STORE
      007107  01 00 02 02 0 040000
      007110  12 03 02 02 0 037777      4107.               LOAD       1.
      007111  12 16 02 00 0 000001
      007112  12 03 04 16 0 000000      4108.               LOWER      XA
      007113  01 00 04 02 0 037777      4109.               SA         XA,STACK-1,XF.
      007114  12 04 02 16 0 000000      4110.               UPPER      XV.
      007115  01 00 02 01 2 040000      4111.               STORE
      007116  01 00 02 02 0 040000
      007117  74 13 04 00 0 000004      4112.               CALLR.
      007120  53 16 02 00 0 001000      4113.               TNE        XV,KNIL.
      007121  74 04 00 00 0 000011      4114.               RETURN
      007122  12 03 02 02 0 037777      4115.       EQUAL   LOAD       1
      007123  12 16 02 00 0 000001
      007124  53 03 02 02 0 037776      4116.               TNE,RH     XV,STACK-2,XF.
      007125  74 04 00 00 0 006470      4117.               J          GTRU.               THEY'RE EQ
      007126  42 16 02 00 1 177600      4118.               GETYPE
      007127  73 02 03 00 0 000007
      007130  10 13 03 17 0 000040
      007131  50 11 00 17 0 000036      4119.               TZ         NFLG5,XV+1.
      007132  74 04 00 00 0 006455      4120.               J          GFAL.               1ST IS EQ-TYPE BUT NOT EQ
      007133  10 00 00 00 0 000017      4121.               L          XX,XV+1.
      007134  12 03 02 02 0 037776      4122.               LOAD       2.
      007135  12 16 02 00 0 000002
      007136  42 16 02 00 1 177600      4123.               GETYPE.
      007137  73 02 03 00 0 000007
      007140  10 13 03 17 0 000040
      007141  74 00 00 00 0 007077      4124.               JZ         XX,EQUAL1.          FIRST IS LIST STRUCTURE
      007142  51 13 00 14 0 000036      4125.               TNZ        NFLG3,XX.
      007143  74 04 00 00 0 007151      4126.               J          EQUAL2.
      007144  51 13 00 17 0 000036      4127.               TNZ        NFLG3,XV+1.         FIRST IS NUMBER
      007145  74 04 00 00 0 006455      4128.               J          GFAL.
      007146  74 13 10 00 0 010242      4129.               LMJ        XW,LEG.             BOTH NUMBERS
      007147  74 00 04 00 0 006470      4130.               JZ         XA,GTRU.
      007150  74 04 00 00 0 006455      4131.               J          GFAL.
      007151  52 16 03 00 0 000010      4132.       EQUAL2  TE,U       XV+1,STRING.        FIRST MUST BE STRING
      007152  74 04 00 00 0 006455      4133.               J          GFAL.
      007153  10 00 03 02 0 037777      4134.               L          XV+1,STACK-1,XF.    BOTH STRINGS
      007154  10 02 00 16 0 000000      4135.       EQUAL3  L,H1       XX,0,XV.
      007155  52 02 00 17 0 000000      4136.               TE,H1      XX,0,XV+1.
      007156  74 04 00 00 0 006455      4137.               J          GFAL.
      007157  12 03 02 16 0 000000      4138.               LMA,RH     XV,0,XV.
      007160  53 03 02 17 0 000000      4139.               TNE,RH     XV,0,XV+1.
      007161  74 04 00 00 0 006470      4140.               J          GTRU.
      007162  12 03 03 17 0 000000      4141.               LMA,RH     XV+1,0,XV+1.
      007163  52 16 02 00 0 001000      4142.               TE         XV,KNIL.
      007164  53 16 03 00 0 001000      4143.               TNE        XV+1,KNIL.
      007165  74 04 00 00 0 006455      4144.               J          GFAL.
      007166  74 04 00 00 0 007154      4145.               J          EQUAL3.
                                        4146.       /. MAKE SUBSTITUTION IN S-EXPRESSION
    3 007167  12 03 02 02 0 037777      4147.       SUBST   LOAD       1
      007170  12 16 02 00 0 000001
      007171  01 04 02 00 0 000154      4148.               SA,LH      XV,SUBWK.
      007172  12 03 02 02 0 037776      4149.               LOAD       2.
      007173  12 16 02 00 0 000002
      007174  01 03 02 00 0 000154      4150.               SA,RH      XV,SUBWK.
      007175  06 00 01 03 2 040000      4151.               LETS       SUBST1.
      007176  23 16 03 00 0 007205
      007177  04 00 03 01 2 040000
      007200  12 03 02 02 0 037775      4152.               MOVE       3.
      007201  12 16 02 00 0 000003
      007202  01 00 02 01 2 040000
      007203  01 00 02 02 0 040000
      007204  74 04 00 00 0 000020      4153.               J          ENTRYI.
      007205  06 00 01 03 2 040000      4154.       SUBST1  LETS       EQUAL.
      007206  23 16 03 00 0 007122
      007207  04 00 03 01 2 040000
      007210  12 03 02 02 0 037777      4155.               MOVE       1.
      007211  12 16 02 00 0 000001
      007212  01 00 02 01 2 040000
      007213  01 00 02 02 0 040000
      007214  12 03 02 00 0 000154      4156.               LMA,RH     XV,SUBWK.
      007215  01 00 02 01 2 040000      4157.               STORE
      007216  01 00 02 02 0 040000
      007217  74 13 04 00 0 000004      4158.               CALLR
      007220  21 16 02 00 0 001000      4159.               ANU        XV,KNIL.
      007221  01 00 03 00 0 000155      4160.               SA         XV+1,SUBWK+1.
      007222  12 04 02 00 0 000154      4161.               LMA,LH     XV,SUBWK.
      007223  74 01 03 00 0 000011      4162.               JNZ        XV+1,EXIT.
      007224  12 03 02 02 0 037777      4163.               LOAD       1.
      007225  12 16 02 00 0 000001
      007226  42 16 02 00 1 177600      4164.               GETYPE
      007227  73 02 03 00 0 000007
      007230  10 13 03 17 0 000040
      007231  74 01 03 00 0 000011      4165.               JNZ        XV+1,EXIT.
      007232  12 03 04 16 0 000000      4166.               LOWER      XA.
      007233  01 00 04 01 2 040000      4167.               SA         XA,STACK,*XT.
      007234  12 04 02 16 0 000000      4168.               UPPER      XV
      007235  06 00 01 03 2 040000      4169.               LETS       SUBST1.
      007236  23 16 03 00 0 007205
      007237  04 00 03 01 2 040000
      007240  01 00 02 01 2 040000      4170.               STORE.
      007241  01 00 02 02 0 040000
      007242  74 13 04 00 0 000000      4171.               CALL
      007243  06 00 01 03 2 040000      4172.               LETS       SUBST1.
      007244  23 16 03 00 0 007205
      007245  04 00 03 01 2 040000
      007246  12 03 02 02 0 037776      4173.               MOVE       2.
      007247  12 16 02 00 0 000002
      007250  01 00 02 01 2 040000
      007251  01 00 02 02 0 040000
      007252  10 00 04 00 0 000155      4174.               LA         XA,SUBWK+1.
      007253  01 00 04 02 0 037776      4175.               SA         XA,STACK-2,XF.
      007254  74 13 04 00 0 000000      4176.               CALL
      007255  10 00 04 00 0 000155      4177.               LA         XA,SUBWK+1.
      007256  40 00 04 02 0 037776      4178.               OR         XA,STACK-2,XF.
      007257  01 00 05 00 0 000155      4179.               SA         XA+1,SUBWK+1.
      007260  74 01 05 00 0 006443      4180.               JNZ        XA+1,CONS.
      007261  12 03 02 02 0 037777      4181.       L1X     LOAD       1.
      007262  12 16 02 00 0 000001
      007263  74 04 00 00 0 000011      4182.               RETURN
                                        4183.       $(8)
    8 000154                            4184.       SUBWK   RES        2
                                        4185.       $(3)
                                        4186.       /
                                        4187.       . IS ELEMENT MEMBER OF LIST
    3 007264  12 03 02 02 0 037777      4188.       MEMBER  LOAD       1.                  GET ELEMENT
      007265  12 16 02 00 0 000001
      007266  42 16 02 00 1 177600      4189.               GETYPE.
      007267  73 02 03 00 0 000007
      007270  10 13 03 17 0 000040
      007271  51 11 00 17 0 000036      4190.               TNZ        NFLG5,XV+1.
      007272  74 04 00 00 0 007304      4191.               J          MEMB2.              NEED EQUAL CHECK
                                        4192.       . SIMPLE POINTER: DO A FAST MEMBER
      007273  10 00 03 00 0 000016      4193.               L          XV+1,XV.
      007274  12 03 02 02 0 037776      4194.               LOAD       2.                  GET LIST
      007275  12 16 02 00 0 000002
      007276  53 16 02 00 0 001000      4195.       MEMB1   TNE        XV,KNIL.
      007277  74 04 00 00 0 000011      4196.               RETURN.                        NOT FOUND
      007300  53 04 03 16 0 000000      4197.               TNE,LH     XV+1,0,XV.
      007301  74 04 00 00 0 000011      4198.               RETURN.                        FOUND
      007302  12 03 02 16 0 000000      4199.               LOWER      XV.
      007303  74 04 00 00 0 007276      4200.               J          MEMB1.
                                        4201.       . COMPLEX OBJECT: DO A SLOW MEMBER
      007304  12 03 02 02 0 037776      4202.       MEMB2   LOAD       2
      007305  12 16 02 00 0 000002
      007306  53 16 02 00 0 001000      4203.               TNE        XV,KNIL.
      007307  74 04 00 00 0 000011      4204.               RETURN.                        NOT FOUND
      007310  12 04 04 16 0 000000      4205.               UPPER      XA.
      007311  06 00 01 03 2 040000      4206.               LETS       EQUAL.
      007312  23 16 03 00 0 007122
      007313  04 00 03 01 2 040000
      007314  12 03 02 02 0 037777      4207.               MOVE       1.
      007315  12 16 02 00 0 000001
      007316  01 00 02 01 2 040000
      007317  01 00 02 02 0 040000
      007320  01 00 04 01 2 040000      4208.               SA         XA,STACK,*XT.
      007321  74 13 04 00 0 000004      4209.               CALLR
      007322  10 00 03 00 0 000016      4210.               L          XV+1,XV.
      007323  12 03 02 02 0 037776      4211.               LOAD       2.
      007324  12 16 02 00 0 000002
      007325  52 16 03 00 0 001000      4212.               TE         XV+1,KNIL.
      007326  74 04 00 00 0 000011      4213.               RETURN.                        FOUND
      007327  12 03 02 16 0 000000      4214.               LOWER      XV.
      007330  01 00 02 01 2 040000      4215.               STORE      2.
      007331  01 00 02 02 0 037776
      007332  74 04 00 00 0 007305      4216.               J          MEMB2+1.
                                        4217.       /. RETURN NTH MEMBER OF LIST WHOSE CAR IS ELEMENT
    3 007333  12 03 02 02 0 037402      4218.       ASSOC   MOVE       (1).
      007334  12 16 02 00 0 000376
      007335  01 00 02 01 2 040000
      007336  01 00 02 02 0 040000
      007337  12 03 02 02 0 037775      4219.               LOAD       3.                  GET N
      007340  12 16 02 00 0 000003
      007341  10 00 04 16 0 000000      4220.               L          XA,0,XV.
      007342  12 03 02 02 0 037777      4221.               LOAD       1.                  GET ELEMENT
      007343  12 16 02 00 0 000001
      007344  42 16 02 00 1 177600      4222.               GETYPE.
      007345  73 02 03 00 0 000007
      007346  10 13 03 17 0 000040
      007347  51 11 00 17 0 000036      4223.               TNZ        NFLG5,XV+1.
      007350  74 04 00 00 0 007367      4224.               J          ASSOC2.             NEED EQUAL CHECK
                                        4225.       . SIMPLE POINTER: DO A FAST ASSOC
      007351  10 00 03 00 0 000016      4226.               L          XV+1,XV.
      007352  12 03 02 02 0 037776      4227.               LOAD       2.                  GET LIST
      007353  12 16 02 00 0 000002
      007354  53 16 02 00 0 001000      4228.       ASSOC1  TNE        XV,KNIL.
      007355  74 04 00 00 0 000011      4229.               RETURN.                        NOT FOUND
      007356  12 04 00 16 0 000000      4230.               UPPER      XX.
      007357  12 03 02 16 0 000000      4231.               LOWER      XV.
      007360  52 04 03 14 0 000000      4232.               TE,LH      XV+1,0,XX.
      007361  74 04 00 00 0 007354      4233.               J          ASSOC1.
      007362  15 16 04 00 0 000001      4234.               AN,U       XA,1.               FOUND AN OCCURANCE
      007363  55 16 04 00 0 000001      4235.               TG,U       XA,1.
      007364  74 04 00 00 0 007354      4236.               J          ASSOC1.             LOOK FOR ANOTHER
      007365  10 00 02 00 0 000014      4237.               L          XV,XX.              ALL DONE
      007366  74 04 00 00 0 000011      4238.               RETURN.
                                        4239.       . COMPLEX OBJECT: DO A SLOW ASSOC
      007367  01 00 04 00 0 000156      4240.       ASSOC2  S          XA,ASSCNT.          SAVE N
      007370  12 03 02 02 0 037776      4241.               LOAD       2.
      007371  12 16 02 00 0 000002
      007372  53 16 02 00 0 001000      4242.               TNE        XV,KNIL.
      007373  74 04 00 00 0 000011      4243.               RETURN.                        NOT FOUND
      007374  12 03 04 16 0 000000      4244.               LOWER      XA.
      007375  01 00 04 02 0 037776      4245.               S          XA,STACK-2,XF.
      007376  12 04 02 16 0 000000      4246.               UPPER      XV.
      007377  01 00 02 01 2 040000      4247.               STORE      3.
      007400  01 00 02 02 0 037775
      007401  12 04 04 16 0 000000      4248.               UPPER      XA.
      007402  06 00 01 03 2 040000      4249.               LETS       EQUAL.
      007403  23 16 03 00 0 007122
      007404  04 00 03 01 2 040000
      007405  12 03 02 02 0 037777      4250.               MOVE       1.
      007406  12 16 02 00 0 000001
      007407  01 00 02 01 2 040000
      007410  01 00 02 02 0 040000
      007411  01 00 04 01 2 040000      4251.               S          XA,STACK,*XT.
      007412  74 13 04 00 0 000004      4252.               CALLR.
      007413  53 16 02 00 0 001000      4253.               TNE        XV,KNIL.
      007414  74 04 00 00 0 007370      4254.               J          ASSOC2+1.
      007415  10 00 04 00 0 000156      4255.               L          XA,ASSCNT.          FOUND AN OCCURANCE
      007416  15 16 04 00 0 000001      4256.               AN,U       XA,1.
      007417  55 16 04 00 0 000001      4257.               TG,U       XA,1.
      007420  74 04 00 00 0 007367      4258.               J          ASSOC2.             LOOK FOR ANOTHER
      007421  12 03 02 02 0 037775      4259.               LOAD       3.                  ALL DONE
      007422  12 16 02 00 0 000003
      007423  74 04 00 00 0 000011      4260.               RETURN.
                                        4261.       $(8).
    8 000156                            4262.       ASSCNT  RES        1.
                                        4263.       $(3).
                                        4264.       /. PUT VALUE ON PROPERTY LIST
    3 007424  74 13 04 00 0 007500      4265.       PUTP    LMJ        XL,PLLU.            LOOKUP INDICATOR
      007425  74 04 00 00 0 007433      4266.               J          PUTPN.
      007426  10 00 04 02 0 037775      4267.               LA         XA,STACK-3,XF.
      007427  01 03 04 16 0 000000      4268.       PUTPP   SA,RH      XA,0,XV.
      007430  12 03 02 02 0 037777      4269.               LOAD       1.
      007431  12 16 02 00 0 000001
      007432  74 04 00 00 0 000011      4270.               RETURN
      007433  12 03 02 02 0 037776      4271.       PUTPN   LOAD       2
      007434  12 16 02 00 0 000002
      007435  10 00 03 02 0 037775      4272.               LA         XV+1,STACK-3,XF.
      007436  74 13 04 00 0 000000      4273.               NODE       CONSED.
      007437  10 00 03 02 0 037777      4274.               LA         XV+1,STACK-1,XF.
      007440  12 03 03 17 0 000000      4275.               LMA,RH     XV+1,0,XV+1.
      007441  74 13 04 00 0 000000      4276.               NODE       CONSED.
      007442  10 00 04 00 0 000016      4277.               LA         XA,XV.
      007443  12 03 02 02 0 037777      4278.               LOAD       1.
      007444  12 16 02 00 0 000001
      007445  74 04 00 00 0 007427      4279.               J          PUTPP.
                                        4280.       . GET VALUE FROM PROPERTY LIST
      007446  12 03 02 02 0 037777      4281.       GET     LOAD       1.
      007447  12 16 02 00 0 000001
      007450  42 16 02 00 1 177600      4282.               GETYPE
      007451  73 02 03 00 0 000007
      007452  10 13 03 17 0 000040
      007453  52 16 03 00 0 000007      4283.               TE,U       XV+1,SYMBOL.
      007454  74 04 00 00 0 006455      4284.               J          GFAL.
      007455  74 13 04 00 0 007500      4285.               LMJ        XL,PLLU.
      007456  74 04 00 00 0 006455      4286.               J          GFAL.
      007457  12 03 02 16 0 000000      4287.               LOWER      XV.
      007460  74 04 00 00 0 000011      4288.               RETURN.
                                        4289.       . GET PAIR FROM PROPERTY LIST.
      007461  74 13 04 00 0 007500      4290.       PROP    LMJ        XL,PLLU.
      007462  74 04 00 00 0 007464      4291.               J          $+2.
      007463  74 04 00 00 0 000011      4292.               RETURN
      007464  12 03 02 02 0 037775      4293.               LOAD       3.
      007465  12 16 02 00 0 000003
      007466  74 13 04 00 0 007044      4294.               LMJ        XL,CHKFN.           MAKE SURE 3RD ARG IS A FN
      007467  06 00 01 03 2 040000      4295.               MARK.
      007470  01 00 02 01 2 040000      4296.               STORE.
      007471  01 00 02 02 0 040000
      007472  74 04 00 00 0 000020      4297.               J          ENTRYI.
                                        4298.       . REMOVE PAIR FROM PROPERTY LIST.
      007473  74 13 04 00 0 007500      4299.       REMPR   LMJ        XL,PLLU.
      007474  74 04 00 00 0 007430      4300.               J          PUTPP+1.
      007475  12 03 02 15 0 000000      4301.               LMA,RH     XV,0,XY.            PATCH AROUND PAIR
      007476  01 03 02 14 0 000000      4302.               SA,RH      XV,0,XX.
      007477  74 04 00 00 0 007430      4303.               J          PUTPP+1.
                                        4304.       . SEARCH PROPERTY LIST
      007500  12 03 00 02 0 037777      4305.       PLLU    LMA,RH     XX,STACK-1,XF.
      007501  12 03 04 02 0 037776      4306.               LMA,RH     XA,STACK-2,XF.
      007502  12 03 01 14 0 000000      4307.       PLLU1   LMA,RH     XY,0,XX.
      007503  53 16 01 00 0 001000      4308.               TNE        XY,KNIL.            MORE PROPERTY LIST?
      007504  74 04 00 04 0 000000      4309.               J          0,XL.
      007505  12 04 02 15 0 000000      4310.               LMA,LH     XV,0,XY.
      007506  42 16 02 00 1 177600      4311.               GETYPE
      007507  73 02 03 00 0 000007
      007510  10 13 03 17 0 000040
      007511  74 01 03 00 0 007514      4312.               JNZ        XV+1,PLLU2.         IS IT A FLAG
      007512  53 04 04 16 0 000000      4313.               TNE,LH     XA,0,XV.            NOT DESIRED ATTRIBUTE?
      007513  74 04 00 04 0 000001      4314.               J          1,XL.
      007514  10 00 00 00 0 000015      4315.       PLLU2   LA         XX,XY.
      007515  74 04 00 00 0 007502      4316.               J          PLLU1.
                                        4317.       /. PUT FLAG ON PROPERTY LIST
    3 007516  74 13 04 00 0 007547      4318.       PFLAG   LMJ        XL,FLAGR.           LOOK FOR FLAG
      007517  74 04 00 00 0 007525      4319.               J          FLAGX.
      007520  74 13 04 00 0 000000      4320.               NODE       CONSED.
      007521  10 00 00 02 0 037777      4321.               LA         XX,STACK-1,XF.      ADD FLAG TO PROPERTY LIST
      007522  12 03 04 14 0 000000      4322.               LMA,RH     XA,0,XX.
      007523  01 03 04 16 0 000000      4323.               SA,RH      XA,0,XV.
      007524  01 03 02 14 0 000000      4324.               SA,RH      XV,0,XX.
      007525  12 03 02 02 0 037777      4325.       FLAGX   LOAD       1.
      007526  12 16 02 00 0 000001
      007527  74 04 00 00 0 000011      4326.               RETURN
                                        4327.       . TEST FLAG
      007530  12 03 02 02 0 037777      4328.       TFLAG   LOAD       1.
      007531  12 16 02 00 0 000001
      007532  42 16 02 00 1 177600      4329.               GETYPE
      007533  73 02 03 00 0 000007
      007534  10 13 03 17 0 000040
      007535  52 16 03 00 0 000007      4330.               TE,U       XV+1,SYMBOL.
      007536  74 04 00 00 0 006455      4331.               J          GFAL
      007537  74 13 04 00 0 007547      4332.               LMJ        XL,FLAGR.
      007540  74 04 00 00 0 006470      4333.               J          GTRU.
      007541  74 04 00 00 0 006455      4334.               J          GFAL.
                                        4335.       . REMOVE FLAG
      007542  74 13 04 00 0 007547      4336.       RFLAG   LMJ        XL,FLAGR.
      007543  74 04 00 00 0 007545      4337.               J          $+2.
      007544  74 04 00 00 0 007525      4338.               J          FLAGX.
      007545  12 03 02 17 0 000000      4339.               LMA,RH     XV,0,XV+1.
      007546  74 04 00 00 0 007524      4340.               J          FLAGX-1.
                                        4341.       . SEARCH FOR FLAG
      007547  10 00 00 02 0 037777      4342.       FLAGR   LA         XX,STACK-1,XF.
      007550  10 00 02 02 0 037776      4343.               LA         XV,STACK-2,XF.
      007551  12 03 03 14 0 000000      4344.               LMA,RH     XV+1,0,XX.
      007552  53 16 03 00 0 001000      4345.               TNE        XV+1,KNIL.
      007553  74 04 00 04 0 000001      4346.               J          1,XL.
      007554  53 04 02 17 0 000000      4347.               TNE,LH     XV,0,XV+1.
      007555  74 04 00 04 0 000000      4348.               J          0,XL.
      007556  10 00 00 00 0 000017      4349.               LA         XX,XV+1.
      007557  74 04 00 00 0 007551      4350.               J          FLAGR+2.
                                        4351.       /. ESTABLISH CONSTANTS
    3 007560  12 03 02 02 0 037777      4352.       CSETQ   LOAD       1.
      007561  12 16 02 00 0 000001
      007562  12 04 04 16 0 000000      4353.               UPPER      XA.
      007563  01 03 04 02 0 037777      4354.               SA,RH      XA,STACK-1,XF.
      007564  12 03 02 16 0 000000      4355.               LOWER      XV.
      007565  74 13 04 00 0 001704      4356.               LMJ        XL,EVALC-1.
      007566  12 03 02 02 0 037776      4357.       CSET    LOAD       2.
      007567  12 16 02 00 0 000002
      007570  12 03 03 02 0 037777      4358.               LMA,RH     XV+1,STACK-1,XF.
      007571  01 04 02 17 0 000000      4359.               SA,LH      XV,0,XV+1.
      007572  74 04 00 00 0 000011      4360.               RETURN.
                                        4361.       . DEFINE FUNCTIONS.
      007573  74 13 16 00 0 006766      4362.       DEFINE  LMJ        XV,INTO-1.
      007574  12 03 02 02 0 037777      4363.               LOAD       1.
      007575  12 16 02 00 0 000001
      007576  12 03 02 16 0 000000      4364.               LOWER      XV.
      007577  74 13 04 00 0 001704      4365.               LMJ        XL,EVALC-1.
      007600  12 03 02 02 0 037777      4366.               LOAD       1.
      007601  12 16 02 00 0 000001
      007602  12 04 02 16 0 000000      4367.               CHAIN      LH.
      007603  01 00 02 01 2 040000      4368.               STORE      1.
      007604  01 00 02 02 0 037777
      007605  74 04 00 00 0 006422      4369.               J          RPLACA.
                                        4370.       . ERASE ATOMIC SYMBOLS
      007606  74 13 16 00 0 007015      4371.       ERASE   LMJ        XV,MAPC-1.
      007607  12 03 02 02 0 037777      4372.               LOAD       1.
      007610  12 16 02 00 0 000001
      007611  10 16 04 00 0 001000      4373.               LA         XA,KNIL.
      007612  01 00 04 16 0 000000      4374.               SA         XA,0,XV.
      007613  74 04 00 00 0 000011      4375.               RETURN
                                        4376.       /. GET LENGTH OF LIST
    3 007614  12 03 02 02 0 037777      4377.       LENGTH  LOAD       1.
      007615  12 16 02 00 0 000001
      007616  10 16 03 00 0 000000      4378.               LA,U       XV+1,0.
      007617  53 16 02 00 0 001000      4379.               TNE        XV,KNIL.
      007620  74 04 00 00 0 000003      4380.               J          STORIT(INTGER).
      007621  14 16 03 00 0 000001      4381.               AA,U       XV+1,1.
      007622  12 03 02 16 0 000000      4382.               CHAIN      RH.
      007623  74 04 00 00 0 007616      4383.               J          LENGTH+2.
                                        4384.       . APPEND TWO LISTS
      007624  12 03 02 02 0 037777      4385.       APPEND  LOAD       1.
      007625  12 16 02 00 0 000001
      007626  74 13 04 00 0 000071      4386.               LMJ        XL,STAKEM.
      007627  12 03 02 02 0 037776      4387.               LOAD       2.
      007630  12 16 02 00 0 000002
      007631  27 00 15 00 0 000002      4388.               LX         XY,XF.
      007632  25 16 15 00 0 000002      4389.               ANX,U      XY,2.
      007633  74 13 04 00 0 000053      4390.               LMJ        XL,LISTEM+1.
      007634  74 04 00 00 0 000011      4391.               RETURN.
                                        4392.       . CONCATENATE TWO LISTS
      007635  10 00 00 02 0 037777      4393.       NCONC   LA         XX,STACK-1,XF.
      007636  12 03 02 02 0 037776      4394.               LOAD       2.
      007637  12 16 02 00 0 000002
      007640  53 16 00 00 0 001000      4395.               TNE        XX,KNIL.
      007641  74 04 00 00 0 000011      4396.               RETURN
      007642  10 00 01 00 0 000014      4397.               LA         XY,XX.
      007643  12 03 00 14 0 000000      4398.               LMA,RH     XX,0,XX.
      007644  52 16 00 00 0 001000      4399.               TE         XX,KNIL.
      007645  74 04 00 00 0 007642      4400.               J          $-3.
      007646  01 03 02 15 0 000000      4401.               SA,RH      XV,0,XY.
      007647  12 03 02 02 0 037777      4402.               LOAD       1.
      007650  12 16 02 00 0 000001
      007651  74 04 00 00 0 000011      4403.               RETURN
                                        4404.       . REVERSE A LIST
      007652  10 16 03 00 0 001000      4405.       REVERS  LA         XV+1,KNIL.
      007653  12 03 02 02 0 037777      4406.               LOAD       1.
      007654  12 16 02 00 0 000001
      007655  53 16 02 00 0 001000      4407.               TNE        XV,KNIL.
      007656  74 04 00 00 0 007665      4408.               J          REVX.
      007657  12 03 04 16 0 000000      4409.               LOWER      XA.
      007660  01 00 04 02 0 037777      4410.               SA         XA,STACK-1,XF.
      007661  12 04 02 16 0 000000      4411.               UPPER      XV.
      007662  74 13 04 00 0 000000      4412.               NODE       CONSED
      007663  10 00 03 00 0 000016      4413.               LA         XV+1,XV.
      007664  74 04 00 00 0 007653      4414.               J          REVERS+1.
      007665  10 00 02 00 0 000017      4415.       REVX    LA         XV,XV+1.
      007666  74 04 00 00 0 000011      4416.               RETURN
                                        4417.       /. RETURN NTH SEGMENT OF LIST
    3 007667  12 03 02 02 0 037776      4418.       NTH     LOAD       2.                  GET N
      007670  12 16 02 00 0 000002
      007671  10 00 04 16 0 000000      4419.               L          XA,0,XV.
      007672  74 02 04 00 0 007703      4420.               JP         XA,NTHP.
      007673  12 03 02 02 0 037777      4421.               LOAD       1.                  N NEGATIVE: COMPUTE N+LENGTH+1
      007674  12 16 02 00 0 000001
      007675  14 16 04 00 0 000001      4422.               A,U        XA,1.
      007676  53 16 02 00 0 001000      4423.               TNE        XV,KNIL.
      007677  74 04 00 00 0 007702      4424.               J          $+3.
      007700  12 03 02 16 0 000000      4425.               CHAIN      RH.
      007701  74 04 00 00 0 007675      4426.               J          $-4.
      007702  74 03 04 00 0 006455      4427.               JN         XA,GFAL.            LIST TOO SHORT
      007703  74 00 04 00 0 006455      4428.       NTHP    JZ         XA,GFAL.            DITTO
      007704  12 03 02 02 0 037777      4429.               LOAD       1.
      007705  12 16 02 00 0 000001
      007706  15 16 04 00 0 000001      4430.               AN,U       XA,1.
      007707  74 00 04 00 0 000011      4431.               JZ         XA,EXIT.
      007710  53 16 02 00 0 001000      4432.               TNE        XV,KNIL.
      007711  74 04 00 00 0 000011      4433.               RETURN.                        DITTO
      007712  12 03 02 16 0 000000      4434.               CHAIN      RH.
      007713  74 04 00 00 0 007706      4435.               J          $-5.
                                        4436.       /. ITERATE DOWN LIST
    3 007714  10 16 04 00 0 001000      4437.       ONDEX   LA         XA,KNIL.
      007715  74 04 00 00 0 007717      4438.               J          INDEX+1.
      007716  10 16 04 00 0 000000      4439.       INDEX   LA,U       XA,0.
      007717  01 04 04 02 0 037775      4440.               SA,LH      XA,STACK-3,XF.
      007720  12 03 02 02 0 037775      4441.               LOAD       3.
      007721  12 16 02 00 0 000003
      007722  74 13 04 00 0 007044      4442.               LMJ        XL,CHKFN.           MAKE SURE WE HAVE A FN
      007723  01 03 02 02 0 037775      4443.               S,RH       XV,STACK-3,XF.
      007724  12 03 02 02 0 037776      4444.               LOAD       2.
      007725  12 16 02 00 0 000002
      007726  12 03 03 02 0 037777      4445.               LMA,RH     XV+1,STACK-1,XF.
      007727  53 16 03 00 0 001000      4446.               TNE        XV+1,KNIL.          MORE LIST?
      007730  74 04 00 00 0 000011      4447.               RETURN.
      007731  06 00 01 03 2 040000      4448.               MARK
      007732  10 00 00 02 0 037775      4449.               LA         XX,STACK-3,XF.
      007733  01 00 00 01 2 040000      4450.               SA         XX,STACK,*XT.
      007734  12 03 01 17 0 000000      4451.               LMA,RH     XY,0,XV+1.
      007735  51 04 00 02 0 037775      4452.               TNZ,LH     STACK-3,XF.         ONDEX?
      007736  12 04 03 17 0 000000      4453.               LMA,LH     XV+1,0,XV+1.
      007737  01 00 03 01 2 040000      4454.               SA         XV+1,STACK,*XT.
      007740  06 00 01 03 2 040000      4455.               MARK
      007741  10 16 04 00 0 007723      4456.               LA,U       XA,INDEX+5.
      007742  01 00 04 01 2 040000      4457.               SA         XA,STACK,*XT.
      007743  01 00 01 01 2 040000      4458.               SA         XY,STACK,*XT.
      007744  01 00 02 01 2 040000      4459.               SA         XV,STACK,*XT.
      007745  01 00 00 01 2 040000      4460.               SA         XX,STACK,*XT.
      007746  74 13 04 00 0 000000      4461.               CALL
      007747  74 04 00 00 0 000020      4462.               J          ENTRYI.
                                        4463.       /. APPLY FUNCTION TO EVERY ATOM IN SYSTEM
    3 007750  12 03 02 02 0 027774      4464.       OBLIST  MOVE       OBLPR.
      007751  12 16 02 00 0 010004
      007752  01 00 02 01 2 040000
      007753  01 00 02 02 0 040000
      007754  05 00 00 03 2 040000      4465.               SZ         CSTAK,*XC.
      007755  12 03 02 02 0 037777      4466.               LOAD       1.
      007756  12 16 02 00 0 000001
      007757  74 13 04 00 0 007044      4467.               LMJ        XL,CHKFN.           MAKE SURE WE HAVE A FN
      007760  01 00 02 01 2 040000      4468.               STORE      1.
      007761  01 00 02 02 0 037777
      007762  10 03 00 03 0 037777      4469.       OBL1    LA,RH      XX,CSTAK-1,XC.
      007763  53 16 00 00 0 000100      4470.               TNE,U      XX,64.
      007764  70 00 03 00 0 006455      4471.               JGD        XC,GFAL.
      007765  12 03 02 14 0 002040      4472.               LMA,RH     XV,HASH,XX.
      007766  14 16 00 00 0 000001      4473.               AA,U       XX,1.
      007767  01 03 00 03 0 037777      4474.               SA,RH      XX,CSTAK-1,XC.
      007770  01 03 00 00 0 000157      4475.               SA,RH      XX,OBLF.
      007771  74 00 02 00 0 007762      4476.       OBL2    JZ         XV,OBL1.
      007772  12 04 04 16 0 000001      4477.               LMA,LH     XA,1,XV.
      007773  01 04 04 03 0 037777      4478.               SA,LH      XA,CSTAK-1,XC.
      007774  06 00 01 03 2 040000      4479.               MARK
      007775  10 00 00 02 0 037777      4480.               LA         XX,STACK-1,XF.
      007776  01 00 00 01 2 040000      4481.               SA         XX,STACK,*XT.
      007777  01 00 02 01 2 040000      4482.               STORE
      010000  01 00 02 02 0 040000
      010001  74 13 04 00 0 000004      4483.               CALLR
      010002  10 04 02 03 0 037777      4484.               LA,LH      XV,CSTAK-1,XC.
      010003  74 04 00 00 0 007771      4485.               J          OBL2.
      010004  01 04 04 00 0 000157      4486.       OBLPR   SA,LH      XA,OBLF.
      010005  06 00 01 03 2 040000      4487.               LETS       PRIN1.
      010006  23 16 03 00 0 002544
      010007  04 00 03 01 2 040000
      010010  12 03 02 02 0 037777      4488.               MOVE       1.
      010011  12 16 02 00 0 000001
      010012  01 00 02 01 2 040000
      010013  01 00 02 02 0 040000
      010014  74 13 04 00 0 000004      4489.               CALLR
      010015  10 16 02 00 0 000005      4490.               LA,U       XV,' '.
      010016  72 10 00 11 2 003421      4491.               EX         OUTPUT,*XO.
      010017  10 00 00 00 0 000050      4492.               LA         XX,LINE.
      010020  50 04 00 00 0 000157      4493.               TZ,LH      OBLF.
      010021  55 03 00 00 0 000041      4494.               TG         XX,ELINE.
      010022  74 13 14 00 0 003450      4495.               LMJ        XX,SENDIT.
      010023  74 04 00 00 0 000011      4496.               RETURN
                                        4497.       $(8).
    8 000157                            4498.       OBLF    RES        1
                                        4499.       $(3).
                                        4500.       /. TEST FOR VARIOUS LINKAGE NODES
    3 010024  10 16 04 00 0 006660      4501.       IFSPEC  LA,U       XA,SEXPAND.
      010025  74 04 00 00 0 010031      4502.               J          IFT6.
      010026  10 16 04 00 0 006670      4503.       IFMAC   LA,U       XA,MEXPAND.
      010027  74 04 00 00 0 010031      4504.               J          IFT6.
      010030  10 16 04 00 0 001727      4505.       IFDEF   LA,U       XA,APPLY.
      010031  12 03 02 02 0 037777      4506.       IFT6    LOAD       1.
      010032  12 16 02 00 0 000001
      010033  12 04 02 16 0 000000      4507.               CHAIN      LH.
      010034  42 16 02 00 1 177600      4508.               GETYPE
      010035  73 02 03 00 0 000007
      010036  10 13 03 17 0 000040
      010037  53 16 03 00 0 000006      4509.               TNE,U      XV+1,LINKER.
      010040  52 03 04 16 0 000000      4510.               TE,RH      XA,0,XV.
      010041  74 04 00 00 0 006455      4511.               J          GFAL.
      010042  10 00 03 16 0 000001      4512.               LA         XV+1,1,XV.
      010043  12 03 02 16 0 000001      4513.               LMA,RH     XV,1,XV.
      010044  74 04 00 04 0 000000      4514.               J          0,XL.
      010045  10 16 04 00 0 006346      4515.       IFCHN   LA,U       XA,FOLLOW.
      010046  74 13 04 00 0 010031      4516.               LMJ        XL,IFT6.
      010047  74 13 04 00 0 000006      4517.               NODE       OCTAL.
      010050  74 04 00 00 0 000011      4518.               RETURN
      010051  12 03 02 02 0 037777      4519.       IFTYPE  LOAD       1.
      010052  12 16 02 00 0 000001
      010053  42 16 02 00 1 177600      4520.               GETYPE
      010054  73 02 03 00 0 000007
      010055  10 13 03 17 0 000040
      010056  12 03 02 02 0 037776      4521.               LOAD       2.
      010057  12 16 02 00 0 000002
      010060  52 00 03 16 0 000000      4522.               TE         XV+1,0,XV.
      010061  74 04 00 00 0 006455      4523.               J          GFAL.
      010062  74 04 00 00 0 006470      4524.               J          GTRU.
                                        4525.       /. EXAMINE WORD IN MEMORY
    3 010063  12 03 02 02 0 037431      4526.       EXAM    MOVE       (0).
      010064  12 16 02 00 0 000347
      010065  01 00 02 01 2 040000
      010066  01 00 02 02 0 040000
      010067  12 03 02 02 0 037776      4527.               LOAD       2.
      010070  12 16 02 00 0 000002
      010071  12 03 03 02 0 037777      4528.               LMA,RH     XV+1,STACK-1,XF.
      010072  14 00 03 16 0 000000      4529.               A          XV+1,0,XV.
      010073  10 00 03 17 0 000000      4530.               L          XV+1,0,XV+1.
      010074  74 04 00 00 0 000006      4531.               J          STORIT(OCTAL).
                                        4532.       . DEPOSIT WORD IN MEMORY
      010075  12 03 02 02 0 037431      4533.       DEPOSIT MOVE       (0).
      010076  12 16 02 00 0 000347
      010077  01 00 02 01 2 040000
      010100  01 00 02 02 0 040000
      010101  12 03 02 02 0 037775      4534.               LOAD       3.
      010102  12 16 02 00 0 000003
      010103  12 03 03 02 0 037776      4535.               LMA,RH     XV+1,STACK-2,XF.
      010104  14 00 03 16 0 000000      4536.               A          XV+1,0,XV.
      010105  12 03 02 02 0 037777      4537.               LOAD       1.
      010106  12 16 02 00 0 000001
      010107  10 00 04 16 0 000000      4538.               L          XA,0,XV.
      010110  01 00 04 17 0 000000      4539.               S          XA,0,XV+1.
      010111  74 04 00 00 0 000011      4540.               RETURN.
                                        4541.       /. SET BOUNDARY IN COMPILED CODE
    3 010112  10 03 02 00 0 000004      4542.       SCODE   LA,RH      XV,T5REC+1.         ADDRESS OF LAST BOUNDARY
      010113  05 00 00 00 0 000004      4543.               SZ         T5REC+1.
      010114  74 04 00 00 0 000011      4544.               RETURN
                                        4545.       . SET ORIGIN FOR COMPILED CODE
      010115  12 03 02 02 0 037777      4546.       ORG     LOAD       1.
      010116  12 16 02 00 0 000001
      010117  42 16 02 00 1 177600      4547.               AND,U      XV,PAGMSK.
      010120  14 16 03 00 0 000200      4548.               AA,U       XV+1,PAGSIZ.
      010121  15 00 03 00 0 000016      4549.               ANA        XV+1,XV.
      010122  01 04 03 00 0 000003      4550.               SA,LH      XV+1,T5REC.         SET # WORDS LEFT IN PAGE
      010123  01 03 02 00 0 000003      4551.               SA,RH      XV,T5REC.           SET ORIGIN
      010124  10 03 03 00 0 000020      4552.               LA,RH      XV+1,STORIT(CODE)+1.
      010125  01 03 03 00 0 000017      4553.               SA,RH      XV+1,STORIT(CODE).
      010126  74 04 00 00 0 000011      4554.               RETURN
                                        4555.       . EMIT ONE INSTRUCTION
      010127  05 00 00 01 2 040000      4556.       ECODE   SZ         STACK,*XT.
      010130  10 16 04 00 0 000000      4557.               LA,U       XA,0.
      010131  12 03 02 02 0 037777      4558.       CEM1    LOAD       1.
      010132  12 16 02 00 0 000001
      010133  42 16 02 00 1 177600      4559.               GETYPE
      010134  73 02 03 00 0 000007
      010135  10 13 03 17 0 000040
      010136  74 01 03 00 0 010145      4560.               JNZ        XV+1,CEM2.
      010137  12 03 00 16 0 000000      4561.               LOWER      XX
      010140  01 00 00 02 0 037777      4562.               SA         XX,STACK-1,XF.
      010141  12 04 02 16 0 000000      4563.               UPPER      XV.
      010142  40 00 04 16 0 000000      4564.               OR         XA,0,XV.            OR INTO INSTRUCTION
      010143  10 00 04 00 0 000021      4565.               LA         XA,XA+1.
      010144  74 04 00 00 0 010131      4566.               J          CEM1.
      010145  52 16 02 00 0 001000      4567.       CEM2    TE         XV,KNIL.
      010146  14 00 04 16 0 000000      4568.               AA         XA,0,XV.            DECREMENT IF NEEDED
      010147  14 00 04 02 0 037776      4569.               AA         XA,STACK-2,XF.      ADD IN ADDRESS
      010150  10 00 03 00 0 000020      4570.               LA         XV+1,XA.
      010151  74 13 04 00 0 000017      4571.               NODE       CODE
      010152  74 04 00 00 0 000011      4572.               RETURN
                                        4573.       . ILLEGAL INSTRUCTION EXECUTED
      010153  74 13 07 00 0 003356      4574.       BADI    EDIT
      010154  122727242705              4575.               'ERROR IN EXECUTION OF COMPILED CODE@'
      010155  162305123512
      010156  103231162423
      010157  052413051024
      010160  222516211211
      010161  051024111200
      010162  74 13 14 00 0 003475      4576.               LMJ        XX,SENDDB.
      010163  74 04 00 00 0 001416      4577.               J          SYSERR.
                                        4578.       /. ENTRY POINTS NEEDED BY COMPILER
    3 010164  12 03 02 02 0 037777      4579.       EPT     LOAD       1.
      010165  12 16 02 00 0 000001
      010166  10 00 02 16 0 000000      4580.               LA         XV,0,XV.
      010167  10 00 02 16 0 000000      4581.               L          XV,EPTAB,XV.
                                        4582.
                                        4583.
      010170  74 04 00 00 0 000011      4584.               RETURN
                                        4585.       $(5)
    5 000000  000000040000              4586.       EPTAB   +          CSTAK.              0
      000001  000000040000              4587.               +          STACK.
      000002  000000000000              4588.               +          ENTRY.
      000003  000000000004              4589.               +          ENTRYR.
      000004  000000000011              4590.               +          EXIT.
      000005  000000000052              4591.               +          LISTEM.             5
      000006  000000006744              4592.               +          BREAKER
      000007  000000010153              4593.               +          BADI.
      000010  000000002442              4594.               +          LOOKIE.
      000011  000000002421              4595.               +          BIND.
      000012  000000000000              4596.               +          STORIT(CONSED).     10
      000013  000000006455              4597.               +          GFAL.
      000014  000000006557              4598.               +          FUNARG.
      000015  000000006562              4599.               +          FUNARG+3.
      000016  000000006670              4600.               +          MEXPAND.
      000017  000000000040              4601.               +          PAGTAB.             15
      000020  000000002433              4602.               +          UNBIND.
      000021  000000006460              4603.               +          GETYP
      000022  000000000071              4604.               +          STAKEM.
      000023  000000006660              4605.               +          SEXPAND.
      000024  000000006346              4606.               +          FOLLOW.             20
      000025  000000001727              4607.               +          APPLY.
      000026  000000001726              4608.               +          APPLY-1.
      000027  000000000034              4609.               +          TRAP
      000030  000000000043              4610.               +          UNTRAP.
      000031  000000001475              4611.               +          UNWIND.             25
      000032  000000000315              4612.               +          GENNO.
      000033  000000006647              4613.               +          DEFSPM.
      000034  000000000047              4614.               +          PVSAVE.
      000035  000000000020              4615.               +          ENTRYI.
      000036  000000000000              4616.               DO         21 , +0
      000037  000000000000
      000040  000000000000
      000041  000000000000
      000042  000000000000
      000043  000000000000
      000044  000000000000
      000045  000000000000
      000046  000000000000
      000047  000000000000
      000050  000000000000
      000051  000000000000
      000052  000000000000
      000053  000000000000
      000054  000000000000
      000055  000000000000
      000056  000000000000
      000057  000000000000
      000060  000000000000
      000061  000000000000
      000062  000000000000
                                        4617.       $(6)
    6 000317  000000000063              4618.       LEPTAB  +          $(5)-EPTAB
      000320  000000 000000             4619.       BEPTAB  +          0,0
                                        4620.       $(3)
                                        4621.       /. ARITHMETIC ROUTINES
    3 010171  12 03 02 02 0 037777      4622.       ZEROP   LOAD       1
      010172  12 16 02 00 0 000001
      010173  50 00 00 16 0 000000      4623.               TZ         0,XV.
      010174  74 04 00 00 0 006455      4624.               J          GFAL.
      010175  74 04 00 00 0 006470      4625.               J          GTRU.
                                        4626.       . CHECK FOR NUMBER
      010176  12 03 02 02 0 037777      4627.       IFNUM   LOAD       1.
      010177  12 16 02 00 0 000001
      010200  42 16 02 00 1 177600      4628.               GETYPE.
      010201  73 02 03 00 0 000007
      010202  10 13 03 17 0 000040
      010203  50 13 00 17 0 000036      4629.               TZ         NFLG3,XV+1.
      010204  74 04 00 00 0 006470      4630.               J          GTRU.
      010205  74 04 00 00 0 006455      4631.               J          GFAL.
                                        4632.       . CHECK FOR INTEGER
      010206  12 03 02 02 0 037777      4633.       FIXP    LOAD       1.
      010207  12 16 02 00 0 000001
      010210  42 16 02 00 1 177600      4634.               GETYPE
      010211  73 02 03 00 0 000007
      010212  10 13 03 17 0 000040
      010213  52 16 03 00 0 000003      4635.               TE,U       XV+1,REAL.
      010214  74 04 00 00 0 006470      4636.               J          GTRU.
      010215  74 04 00 00 0 006455      4637.               J          GFAL.
                                        4638.       . CHECK FOR REAL.
      010216  12 03 02 02 0 037777      4639.       FLOATP  LOAD       1.
      010217  12 16 02 00 0 000001
      010220  42 16 02 00 1 177600      4640.               GETYPE
      010221  73 02 03 00 0 000007
      010222  10 13 03 17 0 000040
      010223  52 16 03 00 0 000003      4641.               TE,U       XV+1,REAL.
      010224  74 04 00 00 0 006455      4642.               J          GFAL.
      010225  74 04 00 00 0 006470      4643.               J          GTRU.
                                        4644.       /. ARITHMETIC PREDICATES
                                        4645.       . GREATER THAN
    3 010226  74 13 10 00 0 010242      4646.       GREAT   LMJ        XW,LEG.
      010227  74 00 04 00 0 006455      4647.               JZ         XA,GFAL.
      010230  74 02 04 00 0 006470      4648.               JP         XA,GTRU.
      010231  74 04 00 00 0 006455      4649.               J          GFAL.
                                        4650.       . LESS THAN
      010232  74 13 10 00 0 010242      4651.       LESS    LMJ        XW,LEG.
      010233  74 03 04 00 0 006470      4652.               JN         XA,GTRU.
      010234  74 04 00 00 0 006455      4653.               J          GFAL.
                                        4654.       . NEGATIVE
      010235  12 03 02 02 0 037777      4655.       MINUSP  LOAD       1.
      010236  12 16 02 00 0 000001
      010237  61 00 00 16 0 000000      4656.               TN         0,XV.
      010240  74 04 00 00 0 006455      4657.               J          GFAL.
      010241  74 04 00 00 0 006470      4658.               J          GTRU.
                                        4659.       /. COMPARE ROUTINE
    3 010242  74 13 04 00 0 010342      4660.       LEG     LMJ        XL,TWONUM.
      010243  74 04 00 00 0 010246      4661.               J          LEGF.
      010244  15 00 04 00 0 000016      4662.               ANA        XA,XV.
      010245  74 04 00 10 0 000000      4663.               J          0,XW.
      010246  76 01 04 00 0 000016      4664.       LEGF    FAN        XA,XV.
      010247  12 00 02 00 0 000016      4665.               LMA        XV,XV.
      010250  74 00 02 00 0 010252      4666.               JZ         XV,$+2.
      010251  76 03 04 00 0 000016      4667.               FD         XA,XV.
      010252  74 02 04 00 0 010257      4668.               JP         XA,LEGP.
      010253  76 00 04 00 0 000354      4669.               FA         XA,(0.000003).
      010254  74 03 04 10 0 000000      4670.               JN         XA,0,XW.
      010255  10 16 04 00 0 000000      4671.               LA,U       XA,0.
      010256  74 04 00 10 0 000000      4672.               J          0,XW.
      010257  76 01 04 00 0 000354      4673.       LEGP    FAN        XA,(0.000003).
      010260  74 02 04 10 0 000000      4674.               JP         XA,0,XW.
      010261  74 04 00 00 0 010255      4675.               J          LEGP-2.
                                        4676.       /. ADD ARGUMENTS
    3 010262  12 03 02 02 0 037402      4677.       ADD1    MOVE       (1).
      010263  12 16 02 00 0 000376
      010264  01 00 02 01 2 040000
      010265  01 00 02 02 0 040000
      010266  10 16 04 00 0 000000      4678.       PLUS    LA,U       XA,0.
      010267  74 13 04 00 0 010300      4679.               LMJ        XL,NUMLIS.
      010270  76 00 04 00 0 000016      4680.               FA         XA,XV.
      010271  14 00 04 00 0 000016      4681.               AA         XA,XV.
      010272  74 04 00 07 0 000000      4682.               J          0,XR.
                                        4683.       . MULTIPLY ARGUMENTS
      010273  10 16 04 00 0 000001      4684.       TIMES   LA,U       XA,1.
      010274  74 13 04 00 0 010300      4685.               LMJ        XL,NUMLIS.
      010275  76 02 04 00 0 000016      4686.               FM         XA,XV.
      010276  31 00 04 00 0 000016      4687.               MSI        XA,XV.
      010277  74 04 00 07 0 000000      4688.               J          0,XR.
                                        4689.       . HANDLE ALL NUMBERS IN STACK
      010300  10 16 01 00 0 000000      4690.       NUMLIS  LA,U       XV-1,0.
      010301  26 16 07 00 0 010302      4691.               LXM,U      XR,$+1.
      010302  26 16 01 01 0 000001      4692.               POP
      010303  10 00 02 01 0 040000      4693.               LA         XV,STACK,XT.
      010304  10 00 00 00 0 000001      4694.               LA         XX,XT.
      010305  52 00 00 00 0 000002      4695.               TE         XX,XF.
      010306  74 04 00 00 0 010361      4696.               J          DONUM.
      010307  25 16 01 00 0 000001      4697.               ANX,U      XT,1.
      010310  74 01 01 00 0 010356      4698.               JNZ        XV-1,NUMFX.         FLOATING ANSWER?
      010311  10 00 03 00 0 000020      4699.       NUMIX   LA         XV+1,XA.
      010312  74 13 04 00 0 000003      4700.               NODE       INTGER
      010313  74 04 00 00 0 000011      4701.               RETURN
                                        4702.       /. SUBTRACT
    3 010314  12 03 02 02 0 037402      4703.       SUB1    MOVE       (1).
      010315  12 16 02 00 0 000376
      010316  01 00 02 01 2 040000
      010317  01 00 02 02 0 040000
      010320  74 13 04 00 0 010342      4704.       DIFFER  LMJ        XL,TWONUM.
      010321  76 01 04 00 0 000016      4705.               FAN        XA,XV.
      010322  15 00 04 00 0 000016      4706.               ANA        XA,XV.
      010323  74 04 00 00 0 010311      4707.               J          NUMIX.
                                        4708.       . QUOTIENT
      010324  74 13 04 00 0 010342      4709.       DIV     LMJ        XL,TWONUM.
      010325  76 03 04 00 0 000016      4710.               FD         XA,XV.
      010326  73 05 04 00 0 000044      4711.               DSA        XA,36.
      010327  34 00 04 00 0 000016      4712.               DI         XA,XV.
      010330  74 04 00 00 0 010311      4713.               J          NUMIX.
                                        4714.       . REMAINDER
      010331  74 13 04 00 0 010342      4715.       REM     LMJ        XL,TWONUM.
      010332  74 04 00 00 0 010337      4716.               J          REMR.
      010333  73 05 04 00 0 000044      4717.               DSA        XA,36.
      010334  34 00 04 00 0 000016      4718.               DI         XA,XV.
      010335  10 00 03 00 0 000021      4719.               LA         XV+1,XA+1.
      010336  74 04 00 00 0 010312      4720.               J          NUMIX+1.
      010337  76 03 04 00 0 000016      4721.       REMR    FD         XA,XV.
      010340  10 00 03 00 0 000021      4722.               LA         XV+1,XA+1.
      010341  74 04 00 00 0 010357      4723.               J          NUMFX+1.
                                        4724.       /. HANDLE TWO NUMBERS
    3 010342  12 03 02 02 0 037777      4725.       TWONUM  LOAD       1.
      010343  12 16 02 00 0 000001
      010344  42 16 02 00 1 177600      4726.               GETYPE
      010345  73 02 03 00 0 000007
      010346  10 13 03 17 0 000040
      010347  10 16 01 00 0 000000      4727.               LA,U       XV-1,0.
      010350  53 16 03 00 0 000003      4728.               TNE,U      XV+1,REAL.
      010351  10 16 01 00 0 000233      4729.               LA,U       XV-1,0233.
      010352  10 00 04 16 0 000000      4730.               LA         XA,0,XV.
      010353  12 03 02 02 0 037776      4731.               LOAD       2.
      010354  12 16 02 00 0 000002
      010355  74 13 07 00 0 010361      4732.               LMJ        XR,DONUM.
      010356  10 00 03 00 0 000020      4733.       NUMFX   LA         XV+1,XA.
      010357  74 13 04 00 0 000011      4734.               NODE       REAL.
      010360  74 04 00 00 0 000011      4735.               RETURN
                                        4736.       /. PERFORM FIX TO FLOAT CONVERSIONS FOR A NUMBER
    3 010361  42 16 02 00 1 177600      4737.       DONUM   GETYPE
      010362  73 02 03 00 0 000007
      010363  10 13 03 17 0 000040
      010364  10 00 02 16 0 000000      4738.               LA         XV,0,XV.            ACTUAL NUMBER
      010365  74 01 01 00 0 010375      4739.               JNZ        XV-1,DONUMF.        FLOATING MODE?
      010366  52 16 03 00 0 000003      4740.               TE,U       XV+1,REAL.          FIRST FLOATER?
      010367  74 04 00 04 0 000001      4741.               J          1,XL.
      010370  10 00 00 00 0 000016      4742.               LA         XX,XV.
      010371  10 16 01 00 0 000233      4743.               LA,U       XV-1,0233.
      010372  76 05 01 00 0 000020      4744.               LCF        XV-1,XA.
      010373  10 00 04 00 0 000016      4745.               LA         XA,XV.
      010374  10 00 02 00 0 000014      4746.               LA         XV,XX.
      010375  52 16 03 00 0 000003      4747.       DONUMF  TE,U       XV+1,REAL.
      010376  76 05 01 00 0 000016      4748.               LCF        XV-1,XV.
      010377  72 10 00 04 0 000000      4749.               EX         0,XL.
      010400  74 04 00 07 0 000000      4750.               J          0,XR.
                                        4751.       /. NEGATE
    3 010401  12 03 02 02 0 037777      4752.       MINUS   LOAD       1.
      010402  12 16 02 00 0 000001
      010403  42 16 02 00 1 177600      4753.               GETYPE
      010404  73 02 03 00 0 000007
      010405  10 13 03 17 0 000040
      010406  51 13 00 17 0 000036      4754.               TNZ        NFLG3,XV+1.         NUMBER?
      010407  10 16 03 00 0 000002      4755.               LA,U       XV+1,OCTAL.
      010410  10 00 00 00 0 000017      4756.               LA         XX,XV+1.
      010411  31 16 00 00 0 000003      4757.               MSI,U      XX,3.
      010412  11 00 03 16 0 000000      4758.               LNA        XV+1,0,XV.
      010413  74 04 00 14 0 000000      4759.               J          TYPTAB,XX.          STORE NODE & LEAVE
                                        4760.       . CONVERT TO INTEGER
      010414  12 03 02 02 0 037777      4761.       ENTIER  LOAD       1.
      010415  12 16 02 00 0 000001
      010416  42 16 02 00 1 177600      4762.               GETYPE
      010417  73 02 03 00 0 000007
      010420  10 13 03 17 0 000040
      010421  52 16 03 00 0 000003      4763.               TE,U       XV+1,REAL.          IS IT FLOATER?
      010422  74 04 00 00 0 000011      4764.               RETURN
      010423  76 04 02 16 0 000000      4765.               LUF        XV,0,XV.
      010424  73 05 03 00 0 000044      4766.               DSA        XV+1,36.
      010425  15 16 02 00 0 000201      4767.               ANA,U      XV,0201.
      010426  74 03 02 00 0 010430      4768.               JN         XV,$+2.             BETWEEN 0 & 1?
      010427  73 11 03 16 0 000012      4769.               LDSC       XV+1,10,XV.         DESCALE
      010430  74 00 04 00 0 000003      4770.               JZ         XV+2,STORIT(INTGER).
      010431  74 02 03 00 0 000003      4771.               JP         XV+1,STORIT(INTGER).
      010432  15 16 03 00 0 000001      4772.               ANA,U      XV+1,1.
      010433  74 04 00 00 0 000003      4773.               J          STORIT(INTGER).
                                        4774.       /. LOGICAL ROUTINES
    3 010434  10 16 03 00 0 000000      4775.       LOGOR   LA,U       XV+1,0.
      010435  74 13 04 00 0 010445      4776.               LMJ        XL,DOLOGS.
      010436  40 00 03 16 0 000000      4777.               OR         XV+1,0,XV.
      010437  10 16 03 00 0 000000      4778.       LOGXOR  LA,U       XV+1,0.
      010440  74 13 04 00 0 010445      4779.               LMJ        XL,DOLOGS.
      010441  41 00 03 16 0 000000      4780.               XOR        XV+1,0,XV.
      010442  11 16 03 00 0 000000      4781.       LOGAND  LNA,U      XV+1,0.
      010443  74 13 04 00 0 010445      4782.               LMJ        XL,DOLOGS.
      010444  42 00 03 16 0 000000      4783.               AND        XV+1,0,XV.
      010445  10 16 01 01 0 000000      4784.       DOLOGS  L,U        XY,0,XT.
      010446  26 16 15 15 0 000001      4785.               LXM,U      XY,1,XY.
      010447  53 16 01 02 0 000000      4786.               TNE,U      XY,0,XF.
      010450  74 04 00 00 0 010470      4787.               J          LOUT.
      010451  10 00 02 15 0 040000      4788.               LA         XV,STACK,XY.
      010452  72 10 00 04 0 000000      4789.               EX         0,XL.
      010453  10 00 03 00 0 000020      4790.               LA         XV+1,XV+2.
      010454  74 04 00 00 0 010446      4791.               J          DOLOGS+1.
      010455  12 03 02 02 0 037776      4792.       LSHIFT  LOAD       2
      010456  12 16 02 00 0 000002
      010457  10 00 00 16 0 000000      4793.               LA         XX,0,XV.
      010460  12 03 02 02 0 037777      4794.               LOAD       1.
      010461  12 16 02 00 0 000001
      010462  10 00 03 16 0 000000      4795.               LA         XV+1,0,XV.
      010463  74 03 00 00 0 010466      4796.               JN         XX,$+3.
      010464  73 12 03 14 0 000000      4797.               LSSL       XV+1,0,XX.
      010465  74 04 00 00 0 010470      4798.               J          LOUT.
      010466  11 00 00 00 0 000014      4799.               LNA        XX,XX.
      010467  73 00 03 14 0 000000      4800.               SSC        XV+1,0,XX.
      010470  74 13 04 00 0 000006      4801.       LOUT    NODE       OCTAL.
      010471  74 04 00 00 0 000011      4802.               RETURN
    6 000321  000000032600              4803.               WINDUP
      000322  000000000000
              003334                    4804.               END        START
    6 000323  74 13 04 00 0 010153
      000324  777776 000001
      000325  74 04 00 00 0 010153
      000326  000004000000
      000327  777774 000033
      000330  00 02 04 000632
      000331  000001 000000
      000332  050505050505
      000333  00 02 24 000050
      000334  000001 737777
      000335  000001 737777
      000336  000001 000040
      000337  777777777777
      000340  00 01 03 001004
      000341  000004 000023
      000342  00 03 02 001007
      000343  12 43 00 000031
      000344  00 02 05 001155
      000345  00 02 03 001324
      000346  000000777776
      000347  000000000000
      000350  77 00 17 00 0 000000
      000351  000001 777776
      000352  204500000000
      000353  201400000000
      000354  156622516334
      000355  000001 000050
      000356  000000 777776
      000357  000000 777775
      000360  003770 003763
      000361  004505 000220
      000362  200000000000
      000363  020000000000
      000364  00 02 05 004464
      000365  000001 000001
      000366  00 02 02 004511
      000367  00 02 04 004525
      000370  00 02 03 005046
      000371  100000000000
      000372  470012241347
      000373  000034 000107
      000374  343277244615
      000375  74 13 04 00 0 006744
      000376  000000000001

LOCATION COUNTERS:    $(0)  004000    $(1)  000000    $(2)  033000    $(3)  010472    $(4)  002140    $(5)  000063
      $(6)  000377    $(7)  000000    $(8)  000160    $(10) 003463

EXTERNAL REFERENCES: CEND$          CPU$           CSF$           ERR$           EXIT$          FRSTD$         FRSTI$
      IALL$          IOW$           LASTD$         LASTI$         MCORE$         PFI$           PFS$           PFWL$
      PRINT$         PRNTA$         READ$          R$             TDATE$         TIME$          W$
----------------------------------------------------------------------
PROCEDURE LIBRARY SEARCH TABLE
----------------------------------------------------------------------
FILE:  INTERNAL   :         QUAL*FILE        :PDPPROC: @ASGD :FILE IS:
 #  :    NAME     :           NAME           :SEARCH :BY MASM: @ASGD :
----------------------------------------------------------------------
  1 : MASM$PF     :             *            :   NO  :   NO  :   NO  :
  2 : ASM$PF      :             *            :   NO  :   NO  :   NO  :
  3 : SI$$        : MRB         *TPF$        :   NO  :   NO  :  YES  :
  4 : PROC$       : SYS$LIB$    *PROC$       :  YES  :   NO  :  YES  :
  5 : MASM        : SYS$LIB$    *MASM        :   NO  :   NO  :  YES  :
  6 : SYSLIB      : SYS$LIB$    *SYSLIB      :  YES  :   NO  :  YES  :
  7 : RLIB$       : SYS$        *RLIB$       :  YES  :   NO  :  YES  :
----------------------------------------------------------------------

END MASM  -  LINES: 31686  TIME: 6.080  STORAGE: 29386/21927 ERRORS: U(57)
@send,z
SEND 5R2A S75R3L 04/29/98 13:38:38