@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