ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0001


                             2  *                                                                       PAGE 001
                             3  * MISSING OPCODES:
                             4  OPSYN  MACRO ARG
                             5         END
                             6  DECK   MACRO
                             7         END
                             8  ZST    MACRO
                             9         END
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0002


                            11  *                                                                       PAGE 002
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0003


                            13  *                                                                       PAGE 003
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0004


                            15  *                                                                       PAGE 004
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0005


                            17  *                                                                       PAGE 005
                            18  * Local Variables:
                            19  * mode: asm
                            20  * eval: (when (fboundp 'asm7090) (asm7090))
                            21  * End:
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0006


                            23         PCC ON                                                           PAGE 006
 00000                      24         ZST
                            25  * M948-508,FMS,DEBUG,20,40,20000,700              ASSEMBLE LISP 1.5     LISPHERE
                            26  *      FAP
                            27         COUNT   13000
                            28         ABS
                            29  * FIELD TEST ASSEMBLY OF LISP 1.5       SEPTEMBER 1961
                            30  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                            31  *
                            32  *
                            33  *    THIS IS THE 709 SECTION OF THE UPPER VERSION OF RWTML
                            34  *        SHARE DIST  NO.  709 AND  741
                            35  *        IT LOADS  BINARY 704 STYLE CARDS AND OCTAL CORRECTION CARDS
                            36  *    ON LINE
                            37  *
                            38         HEAD L
 77721                      39         ORG     -47               IO POSITION LOAD AT -42
                            40  *      709 BINARY-OCTAL BOOTSTRAP LOADER
 77721   0 00025 0 77724    41         IOCD    LOAD,0,21         COMMAND TO LOAD REMAINDER OF LOADER
 77722   0060 00 0 00001    42         TCOA    1                 DELAY TILL LOADER IN
 77723   0020 00 0 77724    43         TRA     LOAD
 77724   0762 00 0 01321    44   LOAD  RCDA                      INITIATE NEXT CARD
 77725   0540 00 0 77747    45         RCHA    LOAD5
 77726   0060 00 0 77726    46         TCOA    *                 DELAY TILL CARD IS IN
 77727   0030 00 0 00174    47         TEFA    CONTIN
 77730  -0500 00 0 77662    48         CAL     9L
 77731   0100 00 0 77750    49         TZE     LOAD8             ZERO IMPLIES OCTAL CARD
 77732  -0734 00 6 00000    50         PDX     ,6                SET WORD COUNT
 77733   0630 00 0 77746    51         STP     LOAD4             SET TO CHECK OR IGNORE SUM
 77734   0621 00 0 77735    52         STA     LOAD2             SET CARD ORIGIN
 77735  -3 00000 4 00000    53   LOAD2 TXL     ****,4,0          OUT IF TRANSFER CARD
 77736   0774 00 4 00000    54         AXT     0,4               SET I4 TO ZERO
 77737   0560 00 4 77664    55   LOAD3 LDQ     9R+1,4            PICK UP WORD
 77740  -0600 60 0 77735    56         STQ*    LOAD2             STORE WORD
 77741   0361 60 0 77735    57         ACL*    LOAD2             ADD TO CHECK SUM
 77742   1 77777 4 77743    58         TXI     *+1,4,-1          ADVANCE FOR NEXT WORD
 77743   2 00001 2 77737    59         TIX     LOAD3,2,1         COUNT WORDS TO BE STORED
 77744   0322 00 0 77663    60         ERA     9R                COMPARE CHECK SUMS
 77745   0100 00 0 77724    61         TZE     LOAD              AGREE-LOAD NEXT CARD
 77746   0000 00 0 77724    62   LOAD4 HTR     LOAD              ERROR-START TO READ NEXT CARD
 77747   0 00030 0 77662    63   LOAD5 IOCD    9L,0,24           COMMAND TO BRING IN BINARY IMAGE
 77750   0774 00 5 00016    64   LOAD8 AXT     14,5              14 TO IR1 AND IR 4
                            65  *
                            66         ABS                       RESUME STANDARD PUNCHING
                            67  *
 77751   0774 00 2 00002    68   LOAD9 AXT     2,2               SET TO COUNT FIELD PAIRS
 77752  -0500 00 4 77704    69         CAL     9L+18,4           ROW
 77753  -0602 00 1 77700    70         ORS     9L+14,1           ROW UNION
 77754   0560 00 1 77700    71         LDQ     9L+14,1
 77755   1 00026 2 77765    72         TXI     LOD11,2,22        SET TO PEEL OFF SIX BITS
 77756   3 00002 4 77760    73   LOD10 TXH     *+2,4,2           SKIP STORE TILL AFTER ONE-ROW
 77757   0602 00 0 00000    74         SLW     ****              STORE OCTAL CORRECTION
 77760   2 00001 2 77755    75         TIX     *-3,2,1           ADVANCE TO NEXT PAIR, THIS HALF
 77761   2 00002 4 77751    76         TIX     LOAD9,4,2         ADVANCE TO NEXT ROW
 77762  -2 00015 5 77725    77         TNX     LOAD+1,5,13       OUT AFTER RIGHT HALF                   PAGE 007
 77763   0762 00 0 01321    78         RCDA                      START NEXT CARD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0007


 77764   1 00014 5 77751    79         TXI     LOAD9,5,12        ADVANCE TO RIGHT HALF CARD
 77765   0760 00 0 00000    80   LOD11 CLM                       CLEAR AC
 77766   0767 00 0 00002    81         ALS     2
 77767  -0763 00 0 00001    82         LGL     1                 PEEL OFF BITS
 77770   2 00004 2 77766    83         TIX     LOD11+1,2,4       COUNT COLUMNS PER FIELD
 77771   3 00014 4 77773    84         TXH     *+2,4,12          USE 7-ROW AS FIRST SUM
 77772   0361 00 2 77712    85         ACL     11L+4,2           ADD PREVIOUS SUM
 77773   0602 00 2 77712    86         SLW     11L+4,2           NEW PARTIAL SUM
 77774  -2 00002 2 77756    87         TNX     LOD10,2,2         OUT IF SECOND FIELD OF PAIR
 77775   0621 00 0 77757    88         STA     LOD10+1           STORE ADDRESS OF CORRECTION
 77776   1 00054 2 77765    89         TXI     LOD11,2,44        RETURN TO PEEL OFF 12 BITS
                            90  *
 77777   0 00133 0 77777    91                 -1,,-STS          LEAD WORD FOR ATOM VERITAS-NUMQUAM-PERIT
                            92  *
 77662                      93         ORG     LOAD-34           COMMON STORAGE
 77662                      94  COMMON BSS     0
 77662                      95   9L    BSS     24                INPUT BUFFER
                   77663    96   9R    SYN     9L+1              CARD CHECK SUM
                   77706    97   11L   SYN     9L+20             TEMPORARY FOR OCTAL
                   77724    98  LOADER SYN     LOAD
                            99  *
                           100  * PROPERTY LISTS FOR THE SPECIAL ATOMS NIL AND VERITAS-NUNQUAM-PERIT THE
                           101  * ZERO AND THE BINARY TRUTH ATOMS RESPECTIVELY
                           102  *
 77640                     103         ORG     COMMON-18
 77640   0 00137 0 07335   104  NILSXX         $PNAME,,-*-1
 77641   0 00000 0 00136   105                 -*-1
 77642  -0 00000 0 00135   106         MZE     -*-1
 77643  -053143777777      107         OCT     453143777777      NIL
 77644   0 00000 0 00370   108  NILLOC         $ZERO
                           109  *
 77645   0 00132 0 10742   110   STS           $APVAL,,-*-1
 77646  -0 00130 0 00131   111         MZE     -*-1,,-*-2
 77647   0 00000 0 00001   112                 1                 IS A CONSTANT ,,1 FOR APPLY
 77650   0 00127 0 07335   113                 $PNAME,,-*-1
 77651   0 00000 0 00126   114                 -*-1
 77652  -0 00000 0 00125   115         MZE     -*-1
 77653   546351642554      116         BCI     1,*TRUE*
                           117  *
                           118                 **************************************************
                           119                 BOOTSTRAP RECORD FOR 709 LISP
                           120
 00144                     121         ORG     100                BEGIN LISP
                           122         HEAD    B
                           123  *
                           124  * BOTTOM       THE BOOTSTRAP RECORD FOR LISP ON SYSTEM AND TEMPORARY TAP
                           125  *
 00144   0 00364 0 00147   126  BOTTOM IOCD    BOTTOM+3,,BSRECL-2 I-O COMMAND TO READ IN  BOOTSTRAP REC.
 00145   0060 00 0 00001   127         TCOA    1                  WAIT UNTIL RECORD IS READ IN
 00146   0020 00 0 00147   128         TRA     BOTTOM+3           START F LISP
 00147   0774 00 4 00003   129         AXT     3,4                NUMBER OF WORDS IN LOWER MEMORY
 00150   0500 00 4 00003   130         CLA     3,4                MOVE THEM TO ORIGINAL POSITION
 00151   0601 00 4 00147   131         STO     BOTTOM+3,4                                               PAGE 008
 00152   2 00001 4 00150   132         TIX     *-2,4,1
 00153   0774 00 4 00366   133         AXT     BSRECL,4           LENGTH OF BOOTSTRAP RECORD
 00154  -0754 00 0 00000   134         PXD     ,0,                CLEAR THE AC
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0008


 00155   0361 00 4 00532   135         ACL     CHKSUM,4           COMPUTE THE CHECK SUM FOR RECORD
 00156   2 00001 4 00155   136         TIX     *-1,4,1
 00157   0322 00 0 00532   137         ERA     CHKSUM             COMPARE WITH THE CHECKSUM ON TAPE
 00160   0100 00 0 00156   138         TZE     *-2                SKIP IF THEY ARE EQUAL
 00161   0420 00 0 00001   139         HPR     1                  THEY DO NOT, STOP
 00162   0500 00 0 00201   140         CLA     STRA               STR TRAP
 00163   0601 00 0 00002   141         STO     2                  SET STR CELL
 00164   0500 00 0 00200   142         CLA     FLTRA              FLOATING POINT TRAP
 00165   0601 00 0 00010   143         STO     8                  SET TRAP CELL
 00166   0500 00 0 00367   144         CLA     SYSTAP             TAPE SPECIFICATION FOR SYSTEM TAPE
 00167   0074 00 4 00276   145         TSX     $(IOS),4           SET UP I-O COMMANDS
 00170   0074 00 4 00202   146         TSX     LRTAPE,4           READ REST OF SYSTEM TAPE
 00171   0 77241 0 00537   147                 LOWREG,,-LOWREG    REST OF CORE
 00172   0522 00 0 00352   148         XEC     $REW               REWIND SYSTAP
 00173   0020 00 0 77724   149         TRA     $LOAD              GO TO READ ANY CORRECTION CARDS
                           150  *
 00174   0500 00 0 00370   151  CONTIN CLA     ZERO               LOADER RETURNS HERE, GO TO OVERLORD
 00175   0601 00 0 00000   152         STO     0                  SET ZERO CELL
 00176   0020 00 0 10230   153         TRA     OVRLRD             GO. TO OVERLORD
                           154  *
                           155  * NORMAL CONTENTS FOR CELLS 0, 2, 10 (OCTAL) RESPECTIVELY
                           156  *
 00177   0 00140 0 77777   157   ZERC          -1,,-NILSXX        BEGINNING OF ATOM  NIL
 00200   0021 00 0 01707   158   FLTRA TTR     FLAPTR
 00201   0021 00 0 17061   159  STRA   TTR     C$LINK
                   00200   160  FLAPCX SYN     FLTRA
                   00201   161  FLAPCY SYN     STRA
                   00177   162  FLAPCZ SYN     ZERC
                           163  *
                           164  *
                           165  * LRTAPE       LISP READ TAPE PROGRAM FOR BINARY TAPES
                           166  *
 00202   0500 00 4 00001   167  LRTAPE CLA     1,4                PARAMETER WORD
 00203   0634 00 4 00533   168         SXA     RTRX,4             SAVE INDEX REGISTERS
 00204  -0634 00 2 00533   169         SXD     RTRX,2
 00205   0734 00 2 00000   170   RTTWO PAX     0,2                START ADDRESS
 00206   0601 00 0 00207   171         STO     *+1                COUNT
 00207   1 00000 2 00210   172         TXI     *+1,2,**           END + 1 ADDRESS
 00210   0634 00 2 00534   173         SXA     RTADR,2            INITIALIZE ADDRESS
 00211  -0734 00 2 00000   174         PDX     0,2                COUNT IN IR 2
 00212   0500 00 0 00205   175         CLA     RTTWO              TAG OF 2
 00213   0625 00 0 00534   176         STT     RTADR              SET TAG
 00214  -0634 00 0 00534   177         SXD     RTADR,0            ZERO DECREMENT
 00215   0500 00 0 00362   178         CLA     $LCH               PICK UP CURRENT LOAD CHANNEL INS.
 00216   0601 00 0 00535   179         STO     RTLCH              MAKE IMMUNE FROM OVER WRITING
 00217   0500 00 0 00346   180         CLA     $(IOU)             GET CURRENT I-O UNIT
 00220   0601 00 0 00004   181         STO     RTIOU              MAKE PREVENT OVERWRITING
 00221  -0625 00 0 00357   182         STL     $TCO               WAIT FOR CHANNEL
 00222   0522 00 0 00357   183         XEC     $TCO               TO GO OUT OF OPERATION
 00223   0760 00 0 00005   184         IOT                        TURN OFF I-O CHECK                    PAGE 009
 00224   0761 00 0 00000   185         NOP
 00225  -0774 00 4 00225   186         AXC     *,4
 00226   0522 00 0 00360   187         XEC     $TRC               TURN OFF INDICATOR
 00227   0522 00 0 00356   188         XEC     $TEF               TURN OFF INDICATOR
 00230   0522 00 0 00350   189   RTRD  XEC     $RDS               SELECT TAPE
 00231  -0754 00 0 00000   190         PXD     0,0                CLEAR AC
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0009


 00232  -0774 00 5 00274   191         AXC     RTIOC,5            POINTER TO I-O COMMAND
 00233   0522 00 0 00361   192         XEC     $RCH               RESET AND LOAD CHANNEL
 00234   0522 00 0 00535   193   RTLC  XEC     RTLCH              LOAD CHANNEL
 00235   0560 00 0 00532   194         LDQ     CHKSUM             PICK UP WORD READ IN
 00236  -0600 60 0 00534   195         STQ*    RTADR              PUT IT AWAY
 00237   0361 60 0 00534   196         ACL*    RTADR              ADD TO CHECK SUM
 00240   2 00001 2 00234   197         TIX     RTLC,2,1           DO ANOTHER LOAD CHANNEL
 00241  -0774 00 4 00275   198         AXC     RTIOD,4            POINTER TO DISCONNECT INSTRUCTION
 00242   0522 00 0 00535   199         XEC     RTLCH              XEC LCH INS.
 00243   0322 00 0 00532   200         ERA     CHKSUM             SUBSTRACT CHECK SUMS
 00244   0602 00 0 00532   201         SLW     CHKSUM             STORE DIFFERECE
 00245   0500 00 0 00004   202         CLA     RTIOU              PICK UP CURRENT IOU
 00246   0074 00 4 00276   203         TSX     $(IOS),4           SET UP I-O COMMANDS
 00247  -0625 00 0 00357   204         STL     $TCO               WAIT FOR CHANNEL TO GO OUT OF OPERATION
 00250   0522 00 0 00357   205         XEC     $TCO
 00251   0760 00 0 00005   206         IOT                        TEST INDICATOR
 00252   0020 00 0 00263   207         TRA     RCK                TRY AGAIN
 00253   0520 00 0 00532   208         ZET     CHKSUM             SKIP IF CHECK SUMS AGREE
 00254   0020 00 0 00263   209         TRA     RCK                TRY AGAIN
 00255  -0774 00 4 00263   210         AXC     RCK,4
 00256   0522 00 0 00360   211         XEC     $TRC               TEST FOR REDUNDANCY
 00257   0522 00 0 00356   212         XEC     $TEF               AND EOF
 00260   0534 00 4 00533   213         LXA     RTRX,4             RESTORE INDEX REGISTERS
 00261  -0534 00 2 00533   214         LXD     RTRX,2
 00262   0020 00 4 00002   215         TRA     2,4                EXIT
                           216  *
 00263  -0534 00 2 00534   217   RCK   LXD     RTADR,2            DID NOT WORK, SEE IF FIRST OR SECOND
 00264  -3 00000 2 00266   218         TXL     *+2,2,0
 00265   0420 00 0 00002   219         HPR     2                  SECOND TRY FAILED, STOP
 00266  -0634 00 4 00534   220         SXD     RTADR,4            MAKE NON-ZERO
 00267   0522 00 0 00355   221         XEC     $BSR               BACK SPACE AND TRY AGAIN
 00270   0534 00 4 00533   222         LXA     RTRX,4             GET CALL WORD IR
 00271   0500 00 4 00001   223         CLA     1,4                CALL PARAMETER
 00272  -0734 00 2 00000   224         PDX     0,2                COUNT TO IR 2
 00273   0020 00 0 00230   225         TRA     RTRD
                           226  *
 00274  -1 00001 0 00532   227   RTIOC IOCT    CHKSUM,,1          BRING IN 1 WORD
 00275   0 00000 0 00000   228   RTIOD IOCD    0,,0               DISCONNECT CHANNEL
                           229  *
                           230  *
                           231  *      (IOS)   INPUT OUTPUT SUPERVISOR A LA BELL LABS BE SYS 3
                           232  *
 00276   0340 00 0 00346   233   (IOS) CAS     IOU                CHECK TO SEE IF SAME UNIT AS LAST TIME
 00277   0322 00 0 00301   234         ERA     *+2                NO
 00300   0020 00 4 00001   235         TRA     1,4                YES EXIT
 00301   0634 00 4 00325   236         SXA     IOSX,4             NO, SAVE LINK 1B
 00302   0634 00 2 00324   237         SXA     IOSY,2             SAVE INDEX 2
 00303   0601 00 0 00346   238         STO     IOU                UPDATE IOU
 00304   0621 00 0 00350   239         STA     $RDS               UPDATE ADDRESSES OF TAPE COMMANDS     PAGE 010
 00305   0621 00 0 00351   240         STA     $WRS
 00306   0621 00 0 00352   241         STA     $REW
 00307   0621 00 0 00355   242         STA     $BSR
 00310   0621 00 0 00353   243         STA     $WEF
 00311   0120 00 0 00313   244         TPL     *+2                TAPE IN NORMAL DENSITH (BIN=HI, BCD=LO
 00312   0322 00 0 00347   245         ERA     IOSBB              CHANGE DENSITY BIT
 00313   0621 00 0 00354   246         STA     $SDN
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0010


 00314   0522 00 0 00354   247         XEC     $SDN
 00315   0774 00 2 00005   248         AXT     5,2                NUMBER OF COMMANDS TO BE SET
 00316  -0734 00 4 00000   249         PDX     0,4                CHANNEL NUMBER TO R
 00317   1 00014 4 00320   250         TXI     *+1,4,12           TOTAL NUMBER OF COMMANDS - 3
 00320  -0500 00 4 00346   251   IOSA  CAL     IOU,4              PICK UP PROPER COMMAND
 00321   0602 00 2 00363   252         SLW     COMAND,2           PUT IN PROPER PLACE
 00322  -2 00003 4 00324   253         TNX     IOSY,4,3           DECREMENT BY NUMBER OF CHANNEL
 00323   2 00001 2 00320   254         TIX     IOSA,2,1           LOOP 5 TIMES
 00324   0774 00 2 00000   255   IOSY  AXT     **,2               RESTORE INDEX 2
 00325   0774 00 4 00000   256   IOSX  AXT     **,4               RESTORE LINK IR
 00326   0020 00 4 00001   257         TRA     1,4
                           258  *
                           259  *      TAPE COMMANDS FOLLOW
                           260  *
 00327   0031 00 4 00000   261         TEFC    0,4
 00330  -0030 00 4 00000   262         TEFB    0,4
 00331   0030 00 4 00000   263         TEFA    0,4
 00332   0062 00 0 00000   264         TCOC    **
 00333   0061 00 0 00000   265         TCOB    **
 00334   0060 00 0 00000   266         TCOA    **
 00335   0024 00 4 00000   267         TRCC    0,4
 00336  -0022 00 4 00000   268         TRCB    0,4
 00337   0022 00 4 00000   269         TRCA    0,4
 00340   0541 00 4 00000   270         RCHC    0,4
 00341  -0540 00 4 00000   271         RCHB    0,4
 00342   0540 00 4 00000   272         RCHA    0,4
 00343   0545 00 4 00000   273         LCHC    0,4
 00344  -0544 00 4 00000   274         LCHB    0,4
 00345   0544 00 4 00000   275         LCHA    0,4
 00346   0 00000 0 00000   276  IOU    PZE                        LAST UNIT USED
 00347   0 00000 0 00020   277   IOSBB PZE     16                 BINARY BIT
                           278         HEAD    0
                           279  *
                           280  *      ACTUAL TAPE COMMANDS USED BY PROGRAMS (SHOULD BE UNHEADED)
                           281  *
 00350   0762 00 0 01220   282   RDS   RTBA    **
 00351   0766 00 0 01220   283   WRS   WTBA    **
 00352   0772 00 0 00000   284   REW   REWA    **
 00353   0770 00 0 01220   285   WEF   WEFA    **
 00354   0761 00 0 00000   286   SDN   NOP                        MAKE A SDN INSTRUCTION FOR 7090
 00355   0764 00 0 01220   287   BSR   BSRA    **
 00356   0030 00 4 00000   288   TEF   TEFA    0,4
 00357   0060 00 0 00000   289   TCO   TCOA    **
 00360   0022 00 4 00000   290   TRC   TRCA    0,4
 00361   0540 00 4 00000   291   RCH   RCHA    0,4
 00362   0544 00 4 00000   292   LCH   LCHA    0,4
 00363                     293  COMAND BSS     0                                                        PAGE 011
 00363   0 00000 0 00000   294  SYSPPT PZE                        ADDRESS,,CHANNEL
 00364   0 00001 0 01203   295  SYSPOT         1*512+2*64+3,,1    INITIAL ASSIGNMENT OF A3
 00365   0 00000 0 00000   296  SYSPIT
 00366   0 00000 0 00000   297  SYSTMP
 00367   0 00000 0 00000   298  SYSTAP
 00370                     299  TAPASG BSS     0
                   00276   300   (IOS) SYN     B$(IOS)
                   77724   301   LOAD  SYN     LOADER
                   00346   302   (IOU) SYN     B$IOU
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0011


                           303         EJECT
                           304  *      CONSTANT POOL                                                    PAGE 012
                           305
 00370   0 00000 0 00000   306   ZERO  PZE
 00371  +000000000001      307   Q1    DEC     1
 00372  +000000000002      308   Q2    DEC     2
 00373  +000000000003      309   Q3    DEC     3
 00374  +000000000004      310   Q4    DEC     4
 00375  +000000000005      311   Q5    DEC     5
 00376  +000000000006      312   Q6    DEC     6
 00377  +000000000007      313   Q7    DEC     7
 00400  +000000000010      314   Q8    DEC     8
 00401  +000000000011      315   Q9    DEC     9
 00402  +000000000012      316   Q10   DEC     10
 00403  +000000000014      317  Q12    DEC     12
 00404   0 00000 0 00015   318   Q13           13
 00405   0 00000 0 00016   319   Q14           14
 00406  +000000000021      320   Q17   DEC     17
 00407  +000000000024      321   Q20   DEC     20
 00410  +000000000025      322   Q21   DEC     21
 00411   0 00000 0 00026   323   Q22           22
 00412  +000000000044      324   Q36   DEC     36
 00413  +000000000077      325   Q63   DEC     63
 00414  +000000000100      326   Q64   DEC     64
 00415  +000000000200      327   Q128  DEC     128
 00416  +000000000014      328   QO14  OCT     14
 00417  +000000000017      329   QO17  OCT     17
 00420  +000000000020      330   QO20  OCT     20
 00421  +000000000022      331   QO22  OCT     22
                   00410   332   QO25  SYN     Q21
 00422  +000000000033      333   QO33  OCT     33
 00423  +000000000040      334   QO40  OCT     40
 00424  +000000000041      335   QO41  OCT     41
 00425  +000000000043      336   QO43  OCT     43
 00426  +000000000050      337   QO50  OCT     50
 00427  +000000000060      338   QO60  OCT     60
 00430  +000000000061      339   QO61  OCT     61
                   00413   340   QO77  SYN     $Q63
                   00415   341   QO200 SYN     Q128
 00431  +000000003300      342  QO33Q2 OCT     3300
 00432  +001000000000      343  QO1Q9  OCT     1000000000
 00433  +233000000000      344  Q233Q9 OCT     233000000000
 00434  -377000000000      345  Q777Q9 OCT     777000000000
 00435  +200000000000      346  QO2Q11 OCT     200000000000
 00436   0 00000 1 00000   347  QT1            ,1
 00437   0 00000 2 00000   348   QT2           ,2
 00440   0 00000 4 00000   349   QT4           ,4
 00441   0 00000 5 00000   350  QT5            0,5
 00442   0 00001 0 00000   351   QD1   PZE     ,,1
 00443   0 00002 0 00000   352   QD2   PZE     ,,2
 00444   0 00005 0 00000   353   QD5   PZE     ,,5
 00445   0 00006 0 00000   354   QD6   PZE     ,,6
 00446   0 00007 0 00000   355   QD7   PZE     ,,7
 00447   0 00024 0 00000   356   QD20  PZE     ,,20
 00450   0 00025 0 00000   357   QD21  PZE     ,,21                                                     PAGE 013
 00451  -1 00000 0 00000   358  QP5    STR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0012


 00452   600000000000      359  OBLANK BCI     1, 00000
 00453   006060606060      360  ZBLANK BCI     1,0
 00454  +201400000000      361   QF1   DEC     1.0
 00455  -0 00000 0 00000   362   SBIT  MZE
 00456  +377777777777      363  MAGMSK OCT     377777777777
 00457   0 00000 0 77777   364   AMASK PZE     -1
 00460   0 77777 0 00000   365   DMASK PZE     ,,-1
 00461  -3 00000 0 00000   366  PMASK  TXL     0,0,0
 00462   0 77777 0 77777   367  ADMASK PZE     -1,,-1
 00463   0 00000 7 77777   368  ATMASK PZE     -1,7
 00464  -3 77777 0 00000   369  PDMASK SVN     ,,-1
 00465  -3 77777 7 00000   370  PDTMSK SVN     0,7,-1
 00466  -3 00000 7 77777   371  PTAMSK SVN     -1,7
 00467  +000077000000      372  CNTMSK OCT     000077000000
 00470   0 00000 7 00000   373  TAGMSK PZE     ,7
 00471  -3 77777 7 77777   374  SEVENS SVN     -1,7,-1
 00472   606060606060      375  BLANKS BCI     1,
 00473                     376  BCONAT BSS     0                  BEGINNING OF CONSTANT ATOMS
 00473   0 00000 0 07335   377  PNAMEA PZE     PNAME
 00474   0 10742 0 00000   378  APVALD PZE     ,,APVAL
 00475   0 10135 0 00000   379   BIND  PZE     ,,BIN
                   00475   380   FIXD  SYN     BIND
 00476   0 10120 0 00000   381  FLOATD         ,,$FLOAT
 00477   0 10103 0 00000   382  FSUBRD PZE     ,,FSUBR
 00500   0 10076 0 00000   383  FNARGD PZE     ,,FUNARG
 00501   0 10005 0 00000   384  LABELD PZE     ,,LABEL
 00502   0 07775 0 00000   385  LAMDAD PZE     ,,LAMBDA
 00503   0 07462 0 00000   386   OCTD          ,,$OCT
 00504   0 07335 0 00000   387  PNAMED PZE     ,,PNAME
 00505   0 07250 0 00000   388  QUOTED PZE     ,,QUOTE
 00506   0 06733 0 00000   389   SUBRD PZE     ,,SUBR
 00507   0 07110 0 00000   390  QSPECD PZE     0,,SPECAL
 00510   0 06706 0 00000   391   QSYMD PZE     0,,SYM
 00511   0 07676 0 10211   392                 ERSETO,,PJ36
 00512   0 07666 0 07706   393                 PJ37,,PJ38         LOGAND LOGXOR
 00513   0 07604 0 07614   394                 -II7,,-II8         MAX MIN
 00514   0 06657 0 07355   395                 PLUS,,TIMES
 00515   0 06131 0 06130   396                 H01,,H02           PROTECT INTEGER OBJECTS
 00516   0 06133 0 06132   397                 H03,,H04
 00517   0 06135 0 06134   398                 H05,,H06
 00520   0 06137 0 06136   399                 H07,,H10
 00521   0 00000 0 06127   400   H00A  PZE     H00
 00522   0 00000 0 06141   401   H12A  PZE     H12
 00523   0 00000 0 06221   402   H72A  PZE     H72
 00524   0 06140 0 00000   403   H11D  PZE     ,,H11
 00525   0 06143 0 00000   404   H14D  PZE     ,,H14
 00526   0 06162 0 00000   405   H33D  PZE     ,,H33
 00527   0 06163 0 00000   406   H34D  PZE     ,,H34
 00530   0 06167 0 00000   407   H40D  PZE     ,,H40
 00531   0 06223 0 00000   408   H74D  PZE     ,,H74
                   00000   409  ECONAT SYN     H740               END OF CONSTANT ATOMS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0013


                           410         EJECT
 00532                     411  CHKSUM BSS     5                  THESE CELLS ARE NOT WRITTEN ON TAPE   PAGE 014
                           412         HEAD    B                  CELLS FOR LRTAPE
                   00533   413   RTRX  SYN     CHKSUM+1           PROTECTED STORAGE
                   00534   414   RTADR SYN     CHKSUM+2
                   00535   415   RTLCH SYN     CHKSUM+3
                   00004   416   RTIOU SYN     CHKSYM+4
                   00366   417  BSRECL EQU     CHKSUM-BOTTOM      LENGTH OF BOOTSTRAP RECORD
                   00537   418  LOWREG SYN     *                  LOWEST REGISTER ON LISP RECORD
                           419  *
 00537   0500 00 4 00001   420  LWTAPE CLA     1,4                PARAMETER WORD
 00540   0621 00 0 00631   421         STA     WTIOC              SET UP I-O COMMANDS
 00541   0622 00 0 00631   422         STD     WTIOC
 00542   0622 00 0 00561   423         STD     WTAD               COUNT
 00543   0634 00 4 00574   424         SXA     WTX,4              SAVE LINK IR
 00544   0600 00 0 00630   425         STZ     WTAG               ZERO TEST CELL
 00545   0600 00 0 00627   426         STZ     WERC
 00546  -0625 00 0 00357   427         STL     $TCO
 00547   0522 00 0 00357   428         XEC     $TCO               WAIT FOR CHANNEL
 00550   0760 00 0 00005   429         IOT                        TURN OFF INDICATORS
 00551   0761 00 0 00000   430         NOP
 00552  -0774 00 4 00552   431         AXC     *,4
 00553   0522 00 0 00360   432         XEC     $TRC
 00554   0522 00 0 00356   433         XEC     $TEF
 00555   0522 00 0 00351   434   WTWS  XEC     $WRS               SELECT TAPE
 00556  -0774 00 4 00631   435         AXC     WTIOC,4            POINTER TO IO COMMAND
 00557   0522 00 0 00361   436         XEC     $RCH               RESET AND LOAD CHANNEL
 00560   0534 00 4 00631   437         LXA     WTIOC,4            ADDRESS OF BEGINNING OF BLOCK
 00561   1 00000 4 00562   438   WTAD  TXI     *+1,4,**           END + 1 OF BLOCK
 00562   0634 00 4 00565   439         SXA     WTACL,4            SET CHECKSUM COMPUTE ADDRESS
 00563  -0534 00 4 00631   440         LXD     WTIOC,4            COUNT OF BLOCK
 00564  -0754 00 0 00000   441         PXD     0,0                CLAER AC
 00565   0361 00 4 00000   442   WTACL ACL     **,4               COMPUTE CHECKSUM
 00566   2 00001 4 00565   443         TIX     *-1,4,1            LOOP
 00567   0602 00 0 00532   444         SLW     CHKSUM             STOE IN CHECK SUM CELL
 00570  -0774 00 4 00632   445         AXC     WTIOD,4            CHECMSUM WRITE COMMAND
 00571   0522 00 0 00362   446         XEC     $LCH               LOAD CHANNEL
 00572  -0774 00 4 00576   447         AXC     WRCK,4             TEST FOR WRITE REDUNDANCY
 00573   0522 00 0 00360   448         XEC     $TRC
 00574   0774 00 4 00000   449   WTX   AXT     **,4               RESTORE LINK IR
 00575   0020 00 2 00002   450         TRA     2,2                EXIT
                           451  *
 00576  -0520 00 0 00630   452  WRCK   NZT     WTAG
 00577   0020 00 0 00615   453         TRA     WAGN               TRY TO WRITE ABAIN
 00600  -0625 00 0 00627   454         STL     WERC               CELL SAYS THERE WAS BAD TAPE TROULLE
 00601  -0534 00 4 00366   455         LXD     SYSTMP,4           FORM MESSAGE TO OPERATOR
 00602   0754 00 4 00000   456         PXA     0,4
 00603   0400 00 0 00420   457         ADD     $QO20
 00604   0767 00 0 00006   458         ALS     6
 00605   0601 00 0 00620   459         STO     WERM
 00606   0500 00 0 00366   460         CLA     SYSTMP
 00607  -0320 00 0 00417   461         ANA     $QO17
 00610  -0602 00 0 00620   462         ORS     WERM
 00611   0074 00 4 01222   463         TSX     OUTPUT,4           WRITE CHANGE TAPE MESSAGE
 00612  -0 00000 0 00364   464         MZE     BCDOUT                                                   PAGE 015
 00613   0 00007 0 00620   465                 WERM,,7
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0014


 00614   0420 00 0 00003   466         HPR     3
 00615   0522 00 0 00355   467  WAGN   XEC     $BSR
 00616  -0625 00 0 00630   468         STL     WTAG
 00617   0020 00 0 00555   469         TRA     WTWS
                           470  *
 00620   606060606060      471  WERM   BCI     7,       IS BAD, CHANGE IT AND PUSH START.
                           472  *
 00627   0 00000 0 00000   473  WERC
 00630   0 00000 0 00000   474   WTAG                             CELL NON-ZERO ON SECOND TRY
 00631  -1 00000 0 00000   475   WTIOC IOCT    **,,**             WRITE OUT BLOCK
 00632   0 00001 0 00532   476   WTIOD IOCD    CHKSUM,,1          WRITE OUT CHECK SUM
                           477  *
                           478  * TAPDMP       DUMP CODE ON SYSTMP. USED BY OVERLORD
                           479  *
 00633   0634 00 4 00647   480  TAPDMP SXA     TPDMX,4            SAVE LINK IR
 00634   0074 00 4 06311   481         TSX     TEREAD,4           CLEAN UP READ BUFFER
 00635   0500 00 0 00366   482         CLA     SYSTMP             SPEC. FOR TEMPORARY TAPE
 00636   0074 00 4 00276   483         TSX     $(IOS),4           SET UP I-O COMMANDS
 00637   0074 00 4 00537   484  TPRTY  TSX     LWTAPE,4           WRITE BOOTSTRAP RECORD
 00640   0 00366 0 00144   485                 BOTTOM,,BSRECL
 00641   0074 00 4 00537   486         TSX     LWTAPE,4           WRITE REST OF CODE
 00642   0 77241 0 00537   487                 LOWREG,,-LOWREG
 00643   0522 00 0 00353   488         XEC     $WEF               WRITE AN EOF MARK
 00644   0522 00 0 00352   489         XEC     $REW               REWIND SYSTMP
 00645   0520 00 0 00627   490         ZET     WERC               SEE IF SSYTMP WAS CHANGEDAFTER FIRST
 00646   0020 00 0 00637   491         TRA     TPRTY              RECORD WAS WRITTE  IF SO REWRITE IT
 00647   0774 00 4 00000   492   TPDMX AXT     **,4               RESTORE LINK IR
 00650   0020 00 4 00001   493         TRA     1,4                EXIT
                           494  *
                           495  * OVLT         READS A NEW CORE IMAGE IN FROM SYSTMP, USED BY OVERLORD
                           496  *
 00651  -0754 00 4 00000   497  OVLTXX PXD     0,4                LINK IR TO AC
 00652  -0734 00 2 00000   498         PDX     0,2                PUT IN IR 2 FOR SAFE KEEPING
 00653   0500 00 0 00366   499         CLA     SYSTMP             TERMPORARY TAPE SPEC.
 00654   0074 00 4 00276   500         TSX     $(IOS),4           SET UP I-O COMMANDS
 00655   0074 00 4 00202   501         TSX     LRTAPE,4           READ IN BOOTSTRAP RECORD
 00656   0 00366 0 00144   502                 BOTTOM,,BSRECL
 00657   0074 00 4 00202   503         TSX     LRTAPE,4           READIN RST OF LISP
 00660   0 77241 0 00537   504                 LOWREG,,-LOWREG
 00661   0522 00 0 00352   505         XEC     $REW               REWIND SYSTMP
 00662   0020 00 2 00001   506         TRA     1,2                EXIT
                           507  *
                           508  *
 00663   0500 00 4 00002   509   INPUT CLA     2,4
 00664   0634 00 4 00675   510         SXA     INX4,4             SAVE LINK IR
 00665   0601 00 0 00673   511         STO     CALL
 00666   0500 00 0 00365   512         CLA     SYSPIT             INPUT TAPE SPEC.                      PAGE 016
 00667   0074 00 4 00276   513         TSX     $(IOS),4           SET UP I-O COMMANDS
 00670   0522 00 0 01376   514         XEC     $SWT1              TEST FOR ON-LINE INPUT
 00671   0522 00 0 00350   515         XEC     $RDS               SELECT INPUT TAPE
 00672   0074 00 4 00702   516         TSX $RTX,4
 00673   0 77777 0 00000   517   CALL      **,,-1
 00674   0020 00 0 00677   518         TRA *+3
 00675   0774 00 4 00000   519   INX4  AXT     **,4               RESTORE LINK IR
 00676   0020 00 4 00005   520         TRA 5,4
 00677   0534 00 4 00675   521         LXA     INX4,4             RESTORE LINK IR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0015


 00700  -0120 00 4 00003   522         TMI 3,4
 00701   0020 00 4 00004   523         TRA 4,4
                           524
                           525         HEAD C
                           526  *
 00702   0634 00 4 00725   527   RTX   SXA     RTXX,4             SAVE LINK IR
 00703   0500 00 4 00001   528         CLA     1,4                GET PARAMETER WORD
 00704   0522 00 0 01376   529         XEC     $SWT1              TEST FOR ON-LINE INPUT
 00705   1 00000 0 00710   530         TXI     H1,,0              IS FROM TAPE
 00706   0762 00 0 01321   531         RCDA
 00707   1 00000 0 00741   532         TXI     RDBCD,,0
 00710   0621 00 0 01177   533   H1    STA     CMMND              SET ADDRESS OF I-O COMMAND
 00711  -0774 00 4 00713   534         AXC     *+2,4              LOCATION TO INDEX REGISTER
 00712   0522 00 0 00356   535         XEC     $TEF               TURN OFFF EOF INDICATOR
 00713  -0500 00 0 00727   536         CAL     H2                 PIC UP SWITCH
 00714   0601 00 0 00727   537   H3    STO     H2                 SET TO TXH FIRST TIME THROUGH
 00715  -0774 00 4 01177   538         AXC     CMMND,4            LOCATION OF I-O COMMAND
 00716   0522 00 0 00361   539         XEC     $RCH               RESET AND LOAD CHANNEL
 00717  -0625 00 0 00357   540         STL     $TCO               SET UP TCO COMMAND
 00720   0522 00 0 00357   541         XEC     $TCO               WAIT FOR CHANNEL TO GO OUT OF OPERATION
 00721  -0774 00 4 00734   542         AXC     RTXBE,4            LOACTION OF BAD EXIT
 00722   0522 00 0 00356   543         XEC     $TEF               GO IF EOF FOUND
 00723  -0774 00 4 00727   544         AXC     H2,4               LOCATION TO TRY AGAIN
 00724   0522 00 0 00360   545         XEC     $TRC               GO IF REDUNDANCY CHECK FOUND
 00725   0774 00 4 00000   546   RTXX  AXT     **,4               RESTORE LINK IR
 00726   0020 00 4 00003   547         TRA     3,4                GOOD EXIT
 00727   3 00000 0 00734   548   H2    TXH     RTXBE,,0           IS TXL ON SECOND TRY
 00730   0522 00 0 00355   549         XEC     $BSR               BACKSPACE RECORD
 00731   0522 00 0 77666   550         XEC     $RDS               SELECT TAPE
 00732   0502 00 0 00727   551         CLS     H2                 PIC UP SWITCH
 00733  -3 00000 0 00714   552         TXL     H3,,0              GO TRY AGAIN
 00734   0534 00 4 00725   553   RTXBE LXA     RTXX,4             LINK IR
 00735   0020 00 4 00002   554         TRA     2,4
 00736   0762 00 0 01321   555   RCD   RCDA                       RESTART AFTER ERROR
 00737  -0534 00 1 00757   556         LXD B2,1          X
 00740  -0534 00 2 00761   557         LXD B3,2          X
 00741   0030 00 0 00742   558   RDBCD TEFA *+1                   TURN OFF END FILE INDICATOR
 00742   0604 00 0 01173   559         STI B50                    SAVE INDICATORS
 00743  -0057 00  000003   560         RIL 3                      TURN INDICATORS 1,2 OFF
 00744   0540 00 0 01174   561         RCHA LR                    READ IN 9 LEFT + RT INTO L,R
 00745   0544 00 0 01175   562         LCHA BLR                   DELEAY, START 8LEFT + RT INTO 8L,8R
 00746   0030 00 4 00002   563         TEFA 2,4                   GO TO END OF FILE RETURN IF EOF ON
 00747   0560 00 0 77671   564   B1    LDQ L                      X
 00750  -0600 00 0 77663   565         STQ LS                     SET LEFT SUM
 00751  -0634 00 1 00757   566         SXD B2,1                   SAVE INDEX REGISTERS                  PAGE 017
 00752  -0634 00 2 00761   567         SXD B3,2                   X
 00753  -0534 00 1 00770   568         LXD B4,1                   SET DIGIT ROW COUNT
 00754   0560 00 0 77672   569         LDQ R
 00755  -0600 00 0 77664   570         STQ RS                     SET RIGHT SUMP
 00756   0074 00 2 01110   571         TSX C1,2            ENTER CONVERSION LOOP
 00757  -3 00000 0 00762   572   B2    TXL B5              LEAVE CONVERSION LOOP
 00760   0767 00 0 00001   573         ALS 1
 00761  -3 00000 0 01145   574   B3    TXL C2              INITIALIZE BCD RECORD
 00762   0544 00 0 01174   575   B5    LCHA LR                    DELAY UNTIL 8 IN, START READING 7
 00763   0560 00 0 77665   576         LDQ 8L                     USE 8 ROW AS SUM
 00764  -0600 00 0 77663   577         STQ LS                     X
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0016


 00765   0560 00 0 77666   578         LDQ 8R                     X
 00766  -0600 00 0 77664   579         STQ RS                     X
 00767   0074 00 2 01110   580         TSX C1,2            ENTER CONVERSION LOOP
 00770  -3 00010 0 00773   581   B4    TXL B6,0,8          LEAVE CONVERSION LOOP
 00771   0767 00 0 00003   582         ALS 3               ADD 8 TIMES 8 ROW
 00772  -3 00000 0 01144   583         TXL C3              X
 00773  -0500 00 0 77671   584   B6    CAL L               USE 9 ROW AS SUM
 00774   0602 00 0 77663   585         SLW LS              X
 00775  -0500 00 0 77672   586         CAL R               X
 00776   0602 00 0 77664   587         SLW RS              X
 00777  -3 00002 1 01160   588   B13   TXL B25,1,2                IS IT ZERO OR ONE ROW  YES'
 01000   0544 00 0 01174   589   B14   LCHA LR                    DELAY, READ IN N RT AND LEFT
 01001  -0054 00  000001   590         LFT 1                      IS END OF RECORD INDICATOR ON
 01002   0020 00 0 01040   591         TRA B9                     YES' END OF RECORD
 01003  -0500 00 0 77671   592   B8    CAL L                      NO' TEST LEFT ROW FOR
 01004  -0320 00 0 77663   593         ANA LS              ILLEGAL DOUBLE PUNCH
 01005  -0100 00 0 01163   594         TNZ B17             X
 01006  -0500 00 0 77671   595   B10   CAL L               FORM LOGICAL SUM
 01007  -0602 00 0 77663   596         ORS LS              OF LEFT ROWS
 01010  -0500 00 0 77672   597         CAL R               TEST FOR ILLEGAL
 01011  -0320 00 0 77664   598         ANA RS              DOUBLE PUNCH
 01012  -0100 00 0 01163   599         TNZ B17             X
 01013  -0500 00 0 77672   600   B11   CAL R               FORM LOGICAL SUM OF
 01014  -0602 00 0 77664   601         ORS RS              RIGHT RWS
 01015  -2 00001 1 01154   602         TNX B12,1,1         TEST FOR ZONE ROWS
 01016   0074 00 2 01110   603         TSX C1,2            ENTER CONVERSION LOOP
 01017  -3 00000 0 00777   604         TXL B13             LEAVE CONVERSION LOOP
 01020  -3 00000 0 01144   605         TXL C3              ADD TO BCD RECORD
 01021  -0500 00 0 77665   606   B7    CAL 8L              ADD 8 LEFT ROW TO
 01022  -0501 00 0 77663   607         ORA LS              LEFT LOGICAL SUM
 01023   0602 00 0 77665   608         SLW LDS             X
 01024   0544 00 0 01174   609         LCHA LR                    DELAY, START READING X-L,R INTO L,R
 01025  -0320 00 0 77667   610         ANA LZ                     FORM INDICATOR FOR
 01026   0602 00 0 77663   611         SLW LS              BOTH DIGIT AND ZERO
 01027  -0500 00 0 77666   612         CAL 8R              ADD 8 RIGHT ROW TO
 01030  -0501 00 0 77664   613         ORA RS              RIGHT LOGICAL SUM
 01031   0602 00 0 77666   614         SLW RDS             X
 01032  -0320 00 0 77670   615         ANA RZ              FORM INDICATOR FOR
 01033   0602 00 0 77664   616         SLW RS              BOTH DIGIT AND ZERO
 01034   0074 00 2 01110   617   B40   TSX C1,2                   ENTER CONVERSION LOOP
 01035  -3 00000 0 01000   618         TXL B14             LEAVE CONVERSION LOOP
 01036   0767 00 0 00004   619         ALS 4               SHIFT TO ZONE POSITION
 01037  -3 00000 0 01144   620         TXL C3              X                                            PAGE 018
 01040  -0500 00 0 77663   621   B9    CAL LS              SAVE LEFT ZONE SUM
 01041   0602 00 0 77671   622         SLW L               X
 01042  -0500 00 0 77665   623         CAL LDS             FORM INDICATOR FOR
 01043   0760 00 0 00006   624         COM                 ZERO AND X AND / OR Y
 01044  -0320 00 0 77667   625         ANA LZ              IN LEFT ROWS
 01045   0320 00 0 77663   626         ANS LS              X
 01046  -0500 00 0 77664   627         CAL RS              SAVE RIGHT ZONE SUM
 01047   0602 00 0 77672   628         SLW R               X
 01050  -0500 00 0 77666   629         CAL RDS             FORM INDICATOR FOR
 01051   0760 00 0 00006   630         COM                 ZERO AND X AND/OR Y
 01052  -0320 00 0 77670   631         ANA RZ              IN RIGHT ROWS
 01053   0320 00 0 77664   632         ANS RS              X
 01054   0074 00 2 01110   633         TSX C1,2            ENTER CONVERSION LOOP
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0017


 01055  -3 00000 0 01063   634         TXL B15             LEAVE CONVERSION LOOP
 01056   0602 00 0 77662   635         SLW TP              MULTIPLY INDICATOR
 01057   0767 00 0 00002   636         ALS 2               BITS BY TEN
 01060   0361 00 0 77662   637         ACL TP              X
 01061   0767 00 0 00001   638         ALS 1               X
 01062  -3 00000 0 01144   639         TXL C3              X
 01063  -0500 00 0 77665   640   B15   CAL LDS             FORM INDICATOR FOR
 01064  -0501 00 0 77667   641         ORA LZ              BLANK COLUMNS IN
 01065  -0501 00 0 77671   642         ORA L               LEFT HALF OF CARD
 01066   0760 00 0 00006   643         COM                 X
 01067   0602 00 0 77663   644         SLW LS              X
 01070  -0500 00 0 77666   645         CAL RDS             FORM INDICATOR FOR
 01071  -0501 00 0 77670   646         ORA RZ              BLANK COLUMNS IN
 01072  -0501 00 0 77672   647         ORA R               RIGHT HALF OF CARD
 01073   0760 00 0 00006   648         COM                 X
 01074   0602 00 0 77664   649         SLW RS              X
 01075   0074 00 2 01110   650         TSX C1,2            ENTER CONVERSION LOOP
 01076  -3 00000 0 01104   651         TXL B16             LEAVE CONVERSION LOOP
 01077   0602 00 0 77662   652         SLW TP              MULTIPLY INDICATOR
 01100   0767 00 0 00001   653         ALS 1               BITS BY 3 AND
 01101   0361 00 0 77662   654         ACL TP              SHIFT TO ZONE POSITION
 01102   0767 00 0 00004   655         ALS 4               X
 01103  -3 00000 0 01144   656         TXL C3              X
 01104  -0534 00 1 00757   657   B16   LXD B2,1            RESTORE INDEX REGISTERS
 01105  -0534 00 2 00761   658         LXD B3,2            AND RETURN TO MAIN
 01106   0441 00 0 01173   659         LDI B50                    RESTORE INDICATORS
 01107   0020 00 2 00000   660         TRA ,34             PROGRAM
 01110  -0634 00 1 01113   661   C1    SXD C4,1            SAVE ROW COUNT
 01111  -0500 00 4 00001   662   C9    CAL 1,4             INITIALIZE ADDRESSES
 01112   0401 00 0 01127   663         ADM C7              X  ADD 6
 01113  -3 00000 0 01117   664   C4    TXL C6,,**          TRANSFER IO LEFT ROW
 01114   0401 00 0 01127   665         ADM C7              RIGHT ROW, ADD 6 MORE
 01115   0560 00 0 77664   666         LDQ RS              OBTAIN RIGHT SUM AND
 01116   1 00000 0 01120   667         TXI C8               SKIP OVER LEFT SUM
 01117   0560 00 0 77663   668   C6    LDQ LS              OBTAIN LEFT SUM
 01120   0621 00 0 01145   669   C8    STA C2              SET BCD RECORD ADDRESS
 01121   0621 00 0 01144   670         STA C3              X
 01122   3 00001 1 01126   671         TXH C5,1,1          SKIP TEST IF DIGIT ROW
 01123  -0600 00 0 77662   672         STQ TP              TEST FOR NO SUM
 01124  -0500 00 0 77662   673         CAL TP              x
 01125   0100 00 0 01150   674         TZE C11             X                                            PAGE 019
 01126   0534 00 1 01127   675   C5    LXA C7,1            SET WORD COUNT
 01127  -0754 00 0 00006   676  C7     PXD     6,0                CONVERT ROW
 01130  -0763 00 0 00001   677         LGL 1               X
 01131   0767 00 0 00005   678         ALS 5               X
 01132  -0763 00 0 00001   679         LGL 1               X
 01133   0767 00 0 00005   680         ALS 5               X
 01134  -0763 00 0 00001   681         LGL 1               X
 01135   0767 00 0 00005   682         ALS 5               X
 01136  -0763 00 0 00001   683         LGL 1               X
 01137   0767 00 0 00005   684         ALS 5               X
 01140  -0763 00 0 00001   685         LGL 1               X
 01141   0767 00 0 00005   686         ALS 5               X
 01142  -0763 00 0 00001   687         LGL 1               X
 01143   0020 00 2 00002   688         TRA 2,2             EXIT FROM ROW PROCEDURE
 01144   0361 00 2 00000   689   C3    ACL 0,2             ADD TO BCD RECORD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0018


 01145   0602 00 1 00000   690   C2    SLW 0,1             STORE IN BCD RECORD
 01146   2 00001 1 01127   691         TIX C7,1,1          COUNT WORDS
 01147  -0534 00 1 01113   692         LXD C4,1            RESTORE ROW COUNT
 01150   0502 00 0 01113   693   C11   CLS C4              INVERT ROW SWITCH AND
 01151   0601 00 0 01113   694         STO C4               TEST FOR RIGHT ROW DONE
 01152  -0120 00 2 00001   695         TMI 1,2             TRANSFER IF RIGHT ROW DONE
 01153   1 00000 0 01111   696   C10   TXI C9              GO CONVERT RIGHT ROW
 01154  -0051 00  000002   697   B12   IIL 2                      CHANGE INDICATOR BIT 17
 01155  -0056 00  000002   698         LNT 2                      IS THIS TWELVE ROW
 01156   0020 00 0 01165   699         TRA B100                   CHANGE
 01157   0020 00 0 01034   700         TRA B40                    NO
 01160  -3 00001 1 01021   701   B25   TXL B7,1,1          IT IS XERO ROW OR ONE ROW
 01161   0544 00 0 01176   702         LCHA ZLR
 01162   0020 00 0 01003   703         TRA B8
 01163  -0760 00 0 00003   704   B17   SSM                        SET ERROR SIGN
 01164   1 00001 4 01104   705         TXI     B16,4,1            RESTORE INDEX REGISTERS AND MAKE BAD X
 01165   0060 00 0 01165   706   B100  TCOA *
 01166   0074 00 2 01110   707         TSX C1,2
 01167  -3 00000 0 01172   708         TXL B200
 01170   0767 00 0 00004   709         ALS 4
 01171  -3 00000 0 01144   710         TXL C3
 01172   0020 00 0 01040   711   B200  TRA B9
 01173   0 00000 0 00000   712   B50   PZE                        INDICATOR STORAGE
 01174  -3 00002 0 77671   713   LR    MTH L,0,2
 01175  -3 00002 0 77665   714   BLR   MTH 8L,0,2
 01176  -3 00002 0 77667   715   ZLR   MTH LZ,0,2
 01177  -3 77777 0 00000   716  CMMND  MTH     **,0,-1
 77662                     717         ORG     COMMON
 77662                     718   TP    BSS 1               TEMPORARY
 77663                     719   LS    BSS 1               LEFT SUM
 77664                     720   RS    BSS 1               RIGHT SUM
 77665                     721   LDS   BSS 1               LEFT DIGIT SUM
 77666                     722   RDS   BSS 1               RIGHT DIGIT SUM
 77667                     723   LZ    BSS 1               LEFT ZERO ROW
 77670                     724   RZ    BSS 1               RIGHT ZERO ROW
 77671                     725   L     BSS 1               LEFT ROW
 77672                     726   R     BSS 1               RIGHT ROW
                   77665   727   8L    SYN LDS             8 LEFT ROW
                   77666   728   8R    SYN RDS             8 RIGHT ROW                                  PAGE 020
 01200                     729         ORG CMMND+1
                           730         HEAD 0
                   00000   731   BCDIN EQU 0
                   00702   732   RTX   SYN     C$RTX
                           733         HEAD    D
                           734  *
                           735  *      SPACEX  PROVIDES A VARITY OF SPACES ON OFF LINE PRINTER
                           736  *
 01200   0522 00 0 01402   737  SPACEX XEC     $SWT5              TEST FOR NO OFF-LINE OUTPUT
 01201   0020 00 0 01203   738         TRA     *+2
 01202   0020 00 4 00002   739         TRA     2,4                RETURN
 01203   0634 00 4 01206   740         SXA     SPX,4              SAVE LINK IR
 01204   0500 00 0 00364   741         CLA     SYSPOT             SET UP TAPES
 01205   0074 00 4 00276   742         TSX     $(IOS),4
 01206   0774 00 4 00000   743   SPX   AXT     **,4               RESTORE LINK IR
 01207   0500 00 4 00001   744         CLA     1,4                GET PARAMETER
 01210   0737 00 4 00000   745         PAC     0,4                COMPLEMENT INTO IR 4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0019


 01211   0522 00 0 00351   746         XEC     $WRS
 01212   0522 00 0 00361   747         XEC     $RCH
 01213   0534 00 4 01206   748         LXA     SPX,4
 01214   0020 00 4 00002   749         TRA     2,4                RETURN
 01215   2 00001 0 00453   750  8SPACE IORP    ZBLANK,,1          DOUBLE SPACE
 01216   2 00001 0 00453   751  6SPACE IORP    ZBLANK,,1          DOUBLE SPACE
 01217   2 00001 0 00453   752  4SPACE IORP    ZBLANK,,1          DOUBLE SPACE
 01220   2 00001 0 00453   753  2SPACE IORP    ZBLANK,,1          DOUBLE SPACE
 01221   0 00000 0 00000   754         IOCD    0,,0               DISCONNECT CHANNEL
                           755  *
                           756  * OUTPUT       BCD OUTPUT ROUTINE FOR LISP
                           757  * SWITCHES...
                           758  *   3  PRINT ON-LINE
                           759  *   5  DONT WRITE TAPE FOR OFF-LINE PRINTING
                           760  *
 01222   0634 00 4 01245   761  OUTPUT SXA     WOTX,4             SAVE LINK IR
 01223   0500 00 4 00002   762         CLA     2,4                GET PARAMETER WORD
 01224   0622 00 0 01367   763         STD     WOTC               SET COUNT OF I-O COMMAND
 01225   0400 00 0 00407   764         ADD     $Q20               END OF BLOCK
 01226   0621 00 0 01234   765         STA     WOTM               SET MOVE LOOP
 01227  -0625 00 0 00357   766         STL     $TCO               WAIT FOR COMPLETION OF LAST OPERATION
 01230   0522 00 0 00357   767         XEC     $TCO
 01231   0500 60 4 00001   768         CLA*    1,4                GET TAPE SPECIFICATION
 01232   0074 00 4 00276   769         TSX     $(IOS),4           SET UP I-O COMMANDS
 01233   0774 00 4 00024   770         AXT     20,4               MAXIMIUM THAT MAY BE ON 1 RECORD
 01234   0500 00 4 00000   771   WOTM  CLA     **,4               MOVE INTO BUFFER
 01235   0601 00 4 01367   772         STO     WOTB,4
 01236   2 00001 4 01234   773         TIX     WOTM,4,1
 01237   0522 00 0 01402   774         XEC     $SWT5              TEST FOR NO TAPE OUTPUT
 01240   0020 00 0 01242   775         TRA     *+2                IS OUTPUT ON TAPE
 01241   0020 00 0 01245   776         TRA     WOTX               TEST FOR ON-LINE OUTPUT
 01242   0522 00 0 00351   777         XEC     $WRS               SELECT TAPE
 01243  -0774 00 4 01367   778         AXC     WOTC,4             POINTER TO I-O COMMAND
 01244   0522 00 0 00361   779         XEC     $RCH               RESET ANF LOAD CHANNEL
 01245   0774 00 4 00000   780   WOTX  AXT     **,4               RESTORE LINK IR
 01246   0500 00 4 00001   781         CLA     1,4                TEST FOR ON-LINE
 01247   0522 00 0 01400   782         XEC     $SWT3              ON-LINE SENSE SWITCH                  PAGE 021
 01250   0120 00 4 00003   783         TPL     3,4                EXIT IF DONE
                           784  * DM 716A - 48 CARDS - 02-09-59
                           785  *BCD ON-LINE PRINT ROUTINE FOR 709
                           786  * MODIFED FOR USE IN LISP 1.5
 01251   0634 00 4 01334   787   WOTON SXA     WOTU,4             PRINT ON LINE
 01252   0634 00 2 01335   788         SXA     WOTV,2             SAVE INDEX REGISTERS
 01253   0634 00 1 01336   789         SXA     WOTW,1
 01254   0600 00 0 01340   790         STZ     WOTT               SET SWITCH
 01255   0600 00 0 01341   791         STZ     WOTS               SET SWITCH TO SKIP FIRST CHARACTER
 01256  -0534 00 6 01367   792         LXD     WOTC,6             COUNT IN  INDEX 4 AND 2
 01257   1 01343 4 01260   793         TXI     *+1,4,WOTB-20      ADD BEGINNING OF BUFFER
 01260   0634 00 4 01271   794         SXA     BC05,4             SET ADDRESS
 01261   0766 00 0 01361   795   BC02  WPDA                  SELECT PRINTER
 01262   0520 00 0 01340   796         ZET     WOTT               SKIP ON FIRST 72 CHARACTERS
 01263   0760 00 0 01371   797         SPRA    9                  SET UP SECOND HALF OF LINE
 01264   0774 00 4 00030   798         AXT     24,4          CLEAR
 01265   0600 00 4 77714   799         STZ     COMMON+26,4     WORKING
 01266   2 00001 4 01265   800         TIX     *-1,4,1         STORAGE
 01267  -0500 00 0 00455   801   BC03  CAL     BC50          STROBE STARTER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0020


 01270   0634 00 1 01274   802   BC04  SXA     BC01,1        WORKING CELL FOR N
 01271   0560 00 2 00000   803   BC05  LDQ     0,2           PICK UP WORD TO CONVERT
 01272   0774 00 2 00006   804         AXT     6,2           X2 COUNTS 6 CHARACTERS
 01273   0602 00 0 77714   805   BC06  SLW     COMMON+26     STROBE
 01274  -0754 00 0 00000   806   BC07  PXD     **,0
 01275  -0763 00 0 00006   807         LGL     6             LOOK AT
 01276  -0520 00 0 01341   808         NZT     WOTS               SKIP IF NOT FIRST CHARACTER
 01277   0500 00 0 00427   809         CLA     $Qo60              GET BCD BLANK FOR LEADNING CHARACTER
 01300   0767 00 0 00001   810         ALS     1               ONE CHARACTER
 01301   0734 00 1 00000   811         PAX     ,1
 01302  -0500 00 0 77714   812         CAL     COMMON+26     STROBE
 01303  -2 00140 1 01305   813         TNX     *+2,1,96      NOT 0
 01304  -0602 00 4 77707   814         ORS     COMMON+21,4   0
 01305   3 00136 1 01320   815         TXH     BC08,1,94     BLANK
 01306  -2 00076 1 01311   816         TNX     *+3,1,62      NOT 11
 01307  -0602 00 4 77711   817         ORS     COMMON+23,4   11
 01310  -2 00002 1 01320   818         TNX     BC08,1,2
 01311  -2 00036 1 01314   819         TNX     *+3,1,30      NOT 12
 01312  -0602 00 4 77713   820         ORS     COMMON+25,4   12
 01313  -2 00002 1 01320   821         TNX     BC08,1,2
 01314  -2 00022 1 01317   822         TNX     *+3,1,18      NOT 8 COMBINATION
 01315   1 00002 1 01316   823         TXI     *+1,1,2
 01316  -0602 00 4 77667   824         ORS     COMMON+5,4    8 COMBINATION
 01317  -0602 00 5 77707   825         ORS     COMMON+21,5   NUMBER
 01320   0771 00 0 00001   826   BC08  ARS     1             MOVE STROBE
 01321  -0625 00 0 01341   827         STL     WOTS               SET SWITCH
 01322   2 00001 2 01273   828         TIX     BC06,2,1      BACK FOR NEXT CHARACTER
 01323   0534 00 3 01274   829         LXA     BC01,3        N
 01324  -2 00001 2 01330   830         TNX     BC15,2,1      OUT IF N WORDS DONE
 01325  -0100 00 0 01270   831         TNZ     BC04          BACK FOR REST OF HALF-CARD
 01326  -3 00000 4 01330   832         TXL     BC15,4,0      RIGHT-HALF DONE
 01327   1 77777 4 01267   833         TXI     BC03,4,-1     BACK FOR RIGHT HALF
 01330   0540 00 0 01342   834   BC15  RCHA    BC49
 01331  -0625 00 0 01340   835         STL     WOTT               SET SWITCH FOR SECOND HALF LINE
 01332   3 00001 1 01261   836         TXH     BC02,1,1      BACK FOR MORE WORDS                        PAGE 022
 01333   0060 00 0 01333   837         TCOA    *
 01334   0774 00 4 00000   838   WOTU  AXT     **,4               RESTORE INDEX REGISTERS
 01335   0774 00 2 00000   839   WOTV  AXT     **,2
 01336   0774 00 1 00000   840   WOTW  AXT     **,1
 01337   0020 00 4 00003   841         TRA     3,4                EXIT
                           842  *
 01340   0 00000 0 00000   843   WOTT                             NON-ZERO ON SECOND HALF LINE
 01341   0 00000 0 00000   844   WOTS                             ZERO FOR FIRST CHARACTER
 01342   0 00030 0 77664   845   BC49  IOCD    COMMON+2,,24
                   01274   846   BC01  SYN     BC07
                   00455   847   BC50  SYN     $SBIT
                           848  *
 01367                     849   WOTB  BES     20                 OUTPUT BUFFER
 01367   2 00000 0 01343   850   WOTC  IORP    WOTB-20,,**        WRITE RECORD FROM BUFFER
 01370   0 00000 0 00000   851         IOCD    0,,0               DISCONNECT CHANNEL
                   00364   852  BCDOUT SYN     SYSPOT
                   00363   853  PPTOUT SYN     SYSPPT
                           854  *
                           855
 01371   0762 00 0 01321   856  PSHLDB RCDA
 01372   0540 00 0 01375   857         RCHA *+3
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0021


 01373   0544 00 0 00000   858         LCHA 0
 01374   0021 00 0 00001   859         TTR 1
 01375  -1 00003 0 00000   860         IOCT 0,,3
                           861         HEAD    0
                           862  * $SWTN COMMANDS                  ALL SWT COMMANDS ARE EXECUTED
                           863  * NOTE....     SWT COMMANDS MAY BE SIMULATED BY MAKING DOWN SWITCHES
                           864  *      ZET     $ZERO
                           865  *              AND UP SWITCHES
                           866  *      NZT     $ZERO
                           867  *
 01376   0760 00 0 00161   868   SWT1  SWT     1
 01377   0760 00 0 00162   869   SWT2  SWT     2
 01400   0760 00 0 00163   870   SWT3  SWT     3
 01401   0760 00 0 00164   871   SWT4  SWT     4
 01402   0760 00 0 00165   872   SWT5  SWT     5
 01403   0760 00 0 00166   873   SWT6  SWT     6
                           874  *
                           875  * SENSE LIGHT AND TEST INSTRUCTIONS TO BE EXECUTED OF DUMMYED
                           876  *
 01404   0760 00 0 00141   877   SLN1  SLN     1
 01405   0760 00 0 00142   878   SLN2  SLN     2
 01406   0760 00 0 00143   879   SLN3  SLN     3
 01407   0760 00 0 00144   880   SLN4  SLN     4
 01410   0760 00 0 00140   881   SLF   SLF
 01411  -0760 00 0 00141   882   SLT1  SLT     1
 01412  -0760 00 0 00142   883   SLT2  SLT     2
 01413  -0760 00 0 00143   884   SLT3  SLT     3
 01414  -0760 00 0 00144   885   SLT4  SLT     4
                           886
                           887         HEAD    O
                           888  *     C043 786 R. DALEY  ... GETTM ... READ CLOCK ROUTINE FOR 709 ......
                           889  *  RECODED AND SQUEEZED BY 0. 4. EDWARDS
 01415   0762 00 0 01361   890   GETTM RPRA                                                             PAGE 023
 01416   0634 00 1 01510   891         SXA     EXA,1
 01417   0634 00 2 01511   892         SXA     EXB,2              ..
 01420   0634 00 4 01473   893         SXA     EXC,4              ..
 01421   0774 00 2 00041   894         AXT     33,2              SET UP FOR LOOP
 01422   0600 00 2 77723   895         STZ     COMMON+33,2       ZERO CARD IMAGE AND WORKING STORAGE
 01423   2 00001 2 01422   896         TIX     *-1,2,1           LOOP
 01424   0540 00 0 01515   897         RCHA    SKP27             SET PRINTER TO SKIPPING FIRST 27 WORDS
 01425   0760 00 0 01367   898         SPRA    7                  SENSE TIME CLOCK
 01426   0760 00 0 01371   899         SPRA    9                  SET ECHO ENTRIES
 01427  -0140 00 0 01431   900         TNO     *+2               SKIP IF OVERFLOW LIGHT OFF
 01430  -0625 00 0 77667   901         STL     COMMON+5          OVERFLOW LIGHT ON, MAKE COMMON+4 =/ 0
 01431   0544 00 0 01520   902         LCHA    ONWD               9 RIGHT ECHO
 01432   0774 00 4 00011   903         AXT     9,4                ROW COUNT
 01433   0544 00 0 01516   904         LCHA    SKP3               IOCPN ZERO,,3  IOCT COMMON,,1
 01434   0560 00 0 77662   905   LOAD  LDQ     COMMON
 01435   0774 00 2 00002   906         AXT     2,2                ..
 01436  -0754 00 0 00000   907  CONV   PXD     ,0
 01437   0774 00 1 00006   908         AXT     6,1                ..
 01440   0767 00 0 00005   909         ALS     5                  ..
 01441  -0763 00 0 00001   910         LGL     1                  ..
 01442   2 00001 1 01440   911         TIX     *-2,1,1            ..
 01443  -0602 00 2 77665   912         ORS     COMMON+3,2         ..
 01444  -0500 00 2 77667   913         CAL     COMMON+5,2         ..
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0022


 01445   0361 00 2 77665   914         ACL     COMMON+3,2         ..
 01446   0602 00 2 77667   915         SLW     COMMON+5,2         ..
 01447   2 00001 2 01436   916         TIX     CONV,2,1           ..
 01450   0544 00 0 01517   917         LCHA    SKP1              IOCPN ZERO,,1  IOCT COMMON,,1
 01451   2 00001 4 01434   918         TIX     LOAD,4,1           COUNTS ROWS
 01452   0544 00 0 01513   919         LCHA    ZERO              IOCD 0,,0  DISCONNECT PRINTER
 01453   0560 00 0 77665   920         LDQ     COMMON+3           DATE
 01454  -0754 00 0 00000   921         PXD     ,0
 01455  -0763 00 0 00006   922         LGL     6                  ..
 01456  -0100 00 0 01460   923         TNZ     *+2                ..
 01457   0500 00 0 00427   924         CLA     OCT60             INSERT BLANK
 01460  -0763 00 0 00014   925         LGL     12                 ..
 01461  -0501 00 0 00430   926         ORA     OCT61             INSERT / BETWEEN MONTH AND DAY
 01462   0767 00 0 00022   927         ALS     18                 ..
 01463   0602 00 0 77665   928         SLW     COMMON+3           ..
 01464  -0754 00 0 00000   929         PXD     ,0
 01465  -0763 00 0 00006   930         LGL     6                  ..
 01466  -0100 00 0 01470   931         TNZ     *+2                ..
 01467  -0500 00 0 00427   932         CAL     OCT60             INSERT BLANK
 01470  -0763 00 0 00014   933         LGL     12                 ..
 01471  -0501 00 0 00427   934         ORA     OCT60             PROVIDE BLANK AS LAST CHARACTER
 01472  -0501 00 0 77665   935         ORA     COMMON+3           ..
 01473   0774 00 4 00000   936   EXC   AXT     **,4               RESTORE LINK IR
 01474   0602 60 4 00001   937         SLW*    1,4                STORE DATE IN REGISTER SPECIFIED
 01475  -0754 00 0 00000   938         PXD     ,0
 01476   0560 00 0 77666   939         LDQ     COMMON+4           TIME
 01477  -0763 00 0 00006   940         LGL     6                  ..
 01500  -0100 00 0 01502   941         TNZ     *+2                ..
 01501  -0500 00 0 00427   942         CAL     OCT60             BLANK
 01502  -0763 00 0 00036   943         LGL     30                 ..
 01503  -0501 00 0 00431   944         ORA     OCT33             PROVIDE DECIMAL POINT                  PAGE 024
 01504   0602 60 4 00002   945         SLW*    2,4               STORE TIME
 01505   0767 00 0 00010   946         ALS     8                 TURN ON OVER FLOW
 01506  -0520 00 0 77667   947         NZT     COMMON+5          LEAVE ON IF COMMON+5 IS NON ZERO
 01507   0140 00 0 01510   948         TOV     *+1               TURN OFF OVER FLOW LIGHT
 01510   0774 00 1 00000   949   EXA   AXT     0,1                RESTORE IRS
 01511   0774 00 2 00000   950   EXB   AXT     0,2                ..
 01512   0020 00 4 00003   951         TRA     3,4                EXIT........
 01513   0 00000 0 00000   952   ZERO  PZE     0                  ..
 01514   0 00000 0 00000   953         PZE
 01515  -1 00033 2 77670   954   SKP27 IOCTN   COMMON+6,,27
 01516  -0 00002 2 01513   955   SKP3  IOCPN   ZERO,,2            SKIP TWO WORDS
 01517  -0 00001 2 01513   956   SKP1  IOCPN   ZERO,,1            SKIP ONE WORD
 01520  -1 00001 0 77662   957   ONWD  IOCT    COMMON,,1          TRANSMIT ONE WORD TO COMMON
                   00427   958   OCT60 SYN     $QO60
                   00430   959   OCT61 SYN     $QO61              BCD /
                   00431   960   OCT33 SYN     QO33Q2             BCD .0
                           961  *  TIME  PRINTS THE DATE AND TIME .
 01521   0634 00 4 01531   962   TIME  SXA     TIR,4              SAVE LINK IR
 01522   0074 00 4 01415   963         TSX     GETTM,4            GET TIME FROM ON-LINE CLOCK
 01523   0 00000 0 01535   964                 TR+2               STORE DATE
 01524   0 00000 0 01536   965                 TR+2+1             STORE TIME
 01525   0074 00 4 01222   966         TSX     OUTPUT,4           PRINT OUT DATE AND TIME
 01526   0 00000 0 00364   967                 BCDOUT             ON BCD OUTPUT TAPE
 01527   0 00021 0 01533   968                 TR,,17
 01530  -0754 00 0 00000   969         PXD     0,0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0023


 01531   0774 00 4 00000   970   TIR   AXT     **,4               RESTORE LINK IR
 01532   0020 00 4 00001   971         TRA     1,4                RETURN
 01533   006063302560      972   TR    BCI     1,0 THE
 01534   633144256074      973         BCI     9,TIME (            ) HAS COME, THE WALRUS SAID, TO TALK
 01545   604626604421      974         BCI     7, OF MANY THINGS .....   -LEWIS CARROLL-
                           975         HEAD 0
                   00000   976   TIME  SYN     D$TIME
                   00000   977   GETTM SYN     D$GETTM
                           978
 01554   0420 00 0 00007   979  PAUSEF HPR 7
 01555   0020 00 4 00001   980         TRA 1,4
                           981
                           982
                           983  *
                           984  * ERROR        PROCESSES ALL LISP ERRORS. NORMALLY GIVES ERROR NUMBERS, PAGE 025
                           985  *              ERROR LOCATION, LISP PRINT OF AC AND BACK TRACE OFALL
                           986  *              FUNCTIONS ENTERED ON PUSH DOWN LIST.
                           987  *
 01556   0 00000 0 00000   988   ERAC                             PLACE TO STORE MACHINE REGISTERS
 01557   0 00000 0 00000   989   ERMQ
 01560   0 00000 0 00000   990   ERIND
 01561   0 00000 0 00000   991   ERX                              INDEX 1,,INDEX 2
 01562   3 00000 0 01563   992   ERROR TXH     *+1,,**            INDEX 4
 01563  -0520 00 0 11664   993         NZT     ERNULL             SEE IF ERROR PROGRAM IS TO BE EXECUTED
 01564   0522 00 0 11665   994         XEC     EREXIT             NORMAL SETTING GOES TO EVALQUOTE
 01565  -0600 00 0 01557   995         STQ     ERMQ               SAVE MACHINE REGISTERS
 01566   0604 00 0 01560   996         STI     ERIND
 01567   0634 00 1 01561   997         SXA     ERX,1
 01570  -0634 00 2 01561   998         SXD     ERX,2
 01571   0441 00 0 10340   999         LDI     SYSIND             PICK UP SYSTEM INDICATORS
 01572   0055 00  000010  1000         SIR     ERRORI             SET ERROR HAS OCURRED INDICATOR
 01573   0604 00 0 10340  1001         STI     SYSIND             UPDATE SYSTEM INDICATORS CELLS
 01574   0601 00 0 01655  1002         STO     ERT                AC TO BE PRINTED
 01575   0500 00 4 00001  1003         CLA     1,4
 01576   0601 00 0 01661  1004         STO     ERM                PUT IN ERROR MESSAGE
 01577  -0535 00 4 01562  1005         LDC     ERROR,4
 01600  -0754 00 4 00000  1006         PXD     0,4
 01601   0131 00 0 00000  1007         XCA                        AND CONVERT TO OCATL
 01602   0074 00 4 11021  1008         TSX     OCTALP,4
 01603  -0501 00 0 00452  1009         ORA     OBLANK             INSERT LEADING BLANK
 01604   0602 00 0 01664  1010         SLW     ERN                PUT IN ERROR MESSAGE
 01605   0074 00 4 01222  1011         TSX     OUTPUT,4           WRITE OUT ERROR MESSAGE
 01606   0 00000 0 00364  1012                 BCDOUT
 01607   0 00011 0 01656  1013                 ERO,,9
 01610   0520 00 0 01654  1014         ZET     BACACT             SKIP IF BACK TRACE IS NOT ACTIVE
 01611   0020 00 0 01650  1015         TRA     BACER              GO TO SPECIAL ROUTINE
 01612  -0625 00 0 01654  1016         STL     BACACT             MAKE BACK TRACE ROUTINE ACTIVE
 01613   0500 00 0 01655  1017         CLA     ERT                PICK UP AC ON ENTRANCE
 01614   0074 00 4 04604  1018         TSX     $PRINT,4           PRINT IT IN LISP
 01615   0054 00  000200  1019         RFT     NOBACT             TEST FOR NO BACK TRACE
 01616   0020 00 0 01646  1020         TRA     BACD               GO TO EXIT
 01617   0560 00 0 00370  1021         LDQ     $ZERO              ZERO THE ERROR LIST
 01620  -0534 00 4 11670  1022         LXD     NUBPDL,4           BEGINNING OF PUSH DOWN LIST
 01621   1 77777 4 01622  1023         TXI     *+1,4,-1           PUSH UP BY -1
 01622  -0634 00 4 01624  1024         SXD     BEX,4              SET UP ALL DONE TEST INSTRUCTION
 01623  -0534 00 4 02317  1025         LXD     $CPPI,4            PICK UP CURRENT PDL COUNTER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0024


 01624   3 00000 4 01644  1026   BEX   TXH     BACTD,4,**         GO IF ALL UNSAVED
 01625  -0500 00 4 77777  1027         CAL     -1,4               EITHER UNSAVE OR UNWND
 01626  -0320 00 0 00461  1028         ANA     $PMASK             DEPENDING ON COMPILED OR
 01627   0322 00 0 00451  1029         ERA     $QP5               SYSTEM SUBROUTINE PUT IT THERE
 01630   0100 00 0 01633  1030         TZE     *+3                TEST IS FOR STR OP
 01631   0074 00 4 02326  1031         TSX     UNSAVE,4           IN LAST WORD OF BLOCK FROM COMPILER
 01632   0020 00 0 01634  1032         TRA     *+2
 01633   0074 00 4 17330  1033         TSX     C$UNWND,4
 01634  -0534 00 4 02317  1034         LXD     $CPPI,4            BEGINNING OF BLOCK JUST UNSAVED
 01635   0500 00 4 00000  1035         CLA     0,4                LAST IR 4 WORD
 01636   0734 00 4 00000  1036         PAX     0,4                FUNCTION ATOMIC SYMBOL
 01637  -0754 00 4 00000  1037         PXD     0,4                PUT IN DECREMENT
 01640   0074 00 4 03730  1038         TSX     $CONS,4            ADD TO ERROR LIST                     PAGE 026
 01641   0131 00 0 00000  1039         XCA                        ANSWER TO MQ
 01642  -0534 00 4 02317  1040         LXD     $CPPI,4            PUSH DOWN INDICATOR
 01643   0020 00 0 01624  1041         TRA     BEX                GO BACK FOR NEXT
 01644   0131 00 0 00000  1042   BACTD XCA                        LIST TO AC
 01645   0074 00 4 04604  1043         TSX     $PRINT,4           PRINT THE ERROR LIST
 01646   0600 00 0 01654  1044   BACD  STZ     BACACT             DE-ACTIVATE THE BACK TRACE ROUTINE
 01647   0522 00 0 11665  1045         XEC     EREXIT             NORMAL SETTING GOES TO EVALQUOTE
                          1046  *
 01650   0074 00 4 01222  1047   BACER TSX     OUTPUT,4           WRITE OUT MESSAGE THAT BACK TRACE
 01651   0 00000 0 00364  1048                 BCDOUT             CAUSED ANOTHER ERROR
 01652   0 00007 0 01667  1049                 BACE,,7
 01653   0020 00 0 01646  1050         TRA     BACD               RESET AND RETURN
                  000200  1051  NOBACT BOOL    200                NO BACK TRACE INDICATOR
 01654   0 00000 0 00000  1052  BACACT                            NON-ZERO MEANS BACK TRACE ACTIVE
 01655   0 00000 0 00000  1053   ERT                              TEMPORARY STORAGE FOR AC
 01656   005454546025     1054   ERO   BCI     3,0*** ERROR NUMBER
 01661   0 00000 0 00000  1055   ERM                              ERROR NUMBER IN BCD GOES HERE
 01662   603145242567     1056         BCI     2, INDEX 4 =
                          1057
 01664   0 00000 0 00000  1058   ERN                              OCATL LOCATION GOES HERE
 01665   604623632143     1059         BCI     2, OCTAL, ***
 01667   005454546021     1060   BACE  BCI     7,0*** ABOVE ERROR TERMINATED BACK-TRACE ***
                          1061  *
                          1062  * FLAPTR AND OCT     GIVE ERROR DIAGNOSTICS FOR FLOATING POINT  TRAP AND
                          1063  *              DIVIDE CHECK INCLUDING LOCATION AND CONTENTS OF AC.
                          1064  *              BOTH MY BE IGNORED BY MAKNG CELL FPTGNR NON-ZERO.
 01676   0520 00 0 01706  1065   DCT   ZET     FPTGNR             TEST FOR IGNORE ERROR FLAG
 01677   0020 00 4 00001  1066         TRA     1,4                RETURN
 01700  -0634 00 4 01562  1067         SXD     $ERROR,4           SAVE IR 4
 01701  -0535 00 4 01562  1068         LDC     $ERROR,4           COMPLEMENT LOCATION OF ENTRANCE
 01702   0634 00 4 01717  1069         SXA     FLXT,4             SET TRAP ADDRESS
 01703  -0634 00 0 01717  1070         SXD     FLXT,0             ZERO THE DECREMENT
 01704  -0625 00 0 01765  1071         STL     FPTDV              SET DIVIDE CHECK FLAG
 01705   0020 00 0 01722  1072         TRA     FPTA               DO FLOATING POINT TRAP ERROR
                          1073  *
 01706   0 00000 0 00000  1074  FPTGNR                            TEST CELL IS NON-ZERO TO IGNORE TRAPS
                          1075  *
 01707   0601 00 0 77662  1076  FLAPTR STO     COMMON             SAVE AC
 01710   0500 00 0 00000  1077         CLA     0                  GET TRAP LOCATION
 01711   0621 00 0 01717  1078         STA     FLXT               SET EXT CELL
 01712   0622 00 0 01717  1079         STD     FLXT
 01713   0500 00 0 00177  1080         CLA     FLAPCZ             NORMAL CONTENTS OF ZERO
 01714   0601 00 0 00000  1081         STO     0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0025


 01715   0500 00 0 77662  1082         CLA     COMMON             RESTORE AC                            PAGE 027
 01716   0520 00 0 01706  1083         ZET     FPTGNR             TEST FOR IGNORE TRAP
 01717  -3 00000 0 00000  1084   FLXT  TXL     **,,**             IMMEDIATE EXIT INSTRUCTION
 01720   0600 00 0 01765  1085         STZ     FPTDV              INDICATE FLAPPING TRAP
 01721   0622 00 4 01562  1086         STD     $ERROR,4           SAVE LINK IR
 01722   0131 00 0 00000  1087   FPTA  XCA                        AC TO MQ
 01723   0074 00 4 11021  1088         TSX     OCTALP,4           CONVERT TO OCTAL
 01724   0602 00 0 01757  1089         SLW     FPTAC              STORE OCTAL FOR LEFT HALF OF AC
 01725   0074 00 4 11021  1090         TSX     OCTALP,4           CONVERT TO OCTAL
 01726   0602 00 0 01760  1091         SLW     FPTAD              STORE AWAY IN ERROR MESSAGE
 01727   0560 00 0 01717  1092         LDQ     FLXT               GET TRAP CELL CONTENTS
 01730  -0773 00 0 00022  1093         RQL     18                 POSITION IN LEFT HALF OF MQ
 01731   0074 00 4 11021  1094         TSX     OCTALP,4           CONVERT TO OCTAL
 01732  -0501 00 0 00452  1095         ORA     OBLANK             MAKE LAEDING ZERO A BLANK
 01733   0602 00 0 01754  1096         SLW     FPTLO              SAVE OCTAL FOR LOCATION OF ERROR
 01734  -0774 00 4 01761  1097         AXC     FPTF,4             POINTER TO BEGINNING OF ERROR MESSAGE
 01735   0520 00 0 01765  1098         ZET     FPTDV              TEST FOR DIVIDE CHECK ERROR
 01736  -0774 00 4 01763  1099         AXC     FPTD,4             DIVIDE CHECK MESSAGE
 01737   0500 00 4 00000  1100         CLA     0,4                PICK UP PROPER MESSAGE
 01740   0601 00 0 01751  1101         STO     FPTTY              STORE IN MESSAGE
 01741   0500 00 4 00001  1102         CLA     1,4
 01742   0601 00 0 01752  1103         STO     FPTTY+1
 01743   0074 00 4 01222  1104         TSX     OUTPUT,4           WRITE ERROR MESSAGE
 01744   0 00000 0 00364  1105                 BCDOUT
 01745   0 00010 0 01751  1106                 FPTTY,,8
 01746  -0754 00 0 00000  1107         PXD     0,0                CLAER AC
 01747   0074 00 4 01563  1108         TSX     $ERROR+1,4         GO TO ERROR PROGRAM
 01750   542760600154     1109         BCI     1,*G  1*           FLOATING POINT TRAP OR DCT
 01751   606060606060     1110   FPTTY BCI     3,            AT....
 01754   0 00000 0 00000  1111   FPTLO                            LOCATION OF ERROR
 01755   606631633060     1112         BCI     2, WITH AC =
 01757   0 00000 0 00000  1113   FPTAC                            OCTAL LEFT HALF OF AC
 01760   0 00000 0 00000  1114   FPTAD                            OCTAL RIGHT HALF OF AC
 01761   002643214760     1115   FPTF  BCI     2,0FLAP TRAP
 01763   002431653124     1116   FPTD  BCI     2,0DIVIDE CHK
                          1117  *
                          1118  * THIS ROUTINE USES $ERROR,$ERRORP11 AND FPTGNR
 01765   0 00000 0 00000  1119   FPTDV                            DIVIDE CHECK INDICATOR CELL
                          1120  *
                          1121  *
                          1122  * STRPNT       A DEBUGGING AID WHICH PRINTS THE DECREMENT OF THE AC AS
                          1123  *      A LIST OR DUMPS AC AND IR 4 IN OCTAL WHICH EVER IS APPROPRIATE.
                          1124  *
 01766   0520 00 0 02051  1125  STRPNT ZET     STRT               TEST IF ROUNTINE IS ACTIVE.
 01767   0020 00 0 02037  1126         TRA     STREX              IT IS THEREFORE EXIT
 01770   0634 00 4 02035  1127         SXA     STRX,4             NO, SAVE LINK IR
 01771   0601 00 0 02046  1128         STO     STRA               SAVE AC
 01772  -0600 00 0 02047  1129         STQ     STRQ               SAVE MQ
 01773  -0625 00 0 02051  1130         STL     STRT               SET CELL TO INDAICTE ACTIVE
 01774   0560 00 0 00000  1131         LDQ     0                  PICK UP TRAP LOCATION                 PAGE 028
 01775  -0600 00 0 02052  1132         STQ     STRXT              SAVE CONTENTS
 01776  -0773 00 0 00022  1133         RQL     18                 ADDRESS PORTION TO LEFT HALF OF MQ
 01777   0074 00 4 11021  1134         TSX     OCTALP,4
 02000  -0501 00 0 00452  1135         ORA     OBLANK             LEADING BLANK
 02001   0602 00 0 02055  1136         SLW     STRM               STORE TRAP ADDRESS IN OCATL
 02002   0500 00 0 00177  1137         CLA     FLAPCZ             RESTORE ORIGNAL CONTENTS OF ZERO
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0026


 02003   0601 00 0 00000  1138         STO     0
 02004   0074 00 4 01222  1139         TSX     OUTPUT,4
 02005   0 00000 0 00364  1140                 BCDOUT             OUTPUT BCD MESSAGE
 02006   0 00005 0 02053  1141                 STRN,,5
 02007   0560 00 0 02046  1142   STRO  LDQ     STRA               AC AT TIME OF TRAP
 02010   0074 00 4 11021  1143         TSX     OCTALP,4           CONVERT TO OCTAL
 02011   0602 00 0 02064  1144         SLW     STRAMA             STORE LEFT HALF IN OCTAL
 02012   0074 00 4 11021  1145         TSX     OCTALP,4           CONVERT TO OCTAL
 02013   0602 00 0 02065  1146         SLW     STRAMB             RIGHT HALF IN OCTAL
 02014   0560 00 0 02035  1147         LDQ     STRX               PICK UP LINK IR
 02015  -0773 00 0 00025  1148         RQL     21                 SHIFT TO LEFT OF MQ
 02016   0074 00 4 11021  1149         TSX     OCTALP,4           CONVERT TO OCTAL
 02017   0771 00 0 00006  1150         ARS     6                  MAKE A HOLE
 02020  -0501 00 0 00452  1151         ORA     OBLANK             MAKE LEADING ZERO A BLANK
 02021   0602 00 0 02070  1152         SLW     STRMC              PUT IN MESSAGE
 02022   0074 00 4 01222  1153         TSX     OUTPUT,4
 02023   0 00000 0 00364  1154                 BCDOUT             OUTPUT IN BCD
 02024   0 00011 0 02060  1155                 STRMD,,9
 02025  -0500 00 0 02046  1156         CAL     STRA               PICK UP AC
 02026  -0734 00 4 00000  1157         PDX     0,4
 02027  -0320 00 0 00466  1158         ANA     PTAMSK             MASK OUT ONLY DECREMENT
 02030  -0100 00 0 02035  1159         TNZ     STRF               GO IF ANY THING LEFT
 02031  -3 00000 4 02035  1160  STRTOP TXL     STRF,4,**          -TFS-1   IF NOT IN LIST STRUCTURE
 02032   3 00000 4 02035  1161  STRBTM TXH     STRF,4,**          -BRK  GO TO EXIT IF NOT IN FREE STORAG
 02033  -0754 00 4 00000  1162         PXD     0,4                OTHERWISE
 02034   0074 00 4 04604  1163         TSX     $PRINT,4           PRINT AS LISP LIST
 02035                    1164   STRF  BSS     0
 02035   0774 00 4 00000  1165   STRX  AXT     **,4               DITTO LINK IR
 02036   0600 00 0 02051  1166         STZ     STRT               INDICATE ROUTINE IS INACTIVE
 02037   0522 00 0 01403  1167   STREX XEC     $SWT6              SHOULD WE GO BACK TO OVERLORD
 02040   0020 00 0 02042  1168         TRA     *+2
 02041   0020 00 0 10230  1169         TRA     OVRLRD             FIND NEXT OVERLORD DIRECTION CARD
 02042  -0754 00 0 00000  1170         PXD     0,0
 02043  -0634 00 4 01562  1171         SXD     $ERROR,4
 02044   0074 00 4 01563  1172         TSX     $ERROR+1,4
 02045   542660600554     1173         BCI     1,*F  5*           STR TRAP ERROR
                          1174  *
                          1175  *
 02046   0 00000 0 00000  1176   STRA                             AC STROAGE
 02047   0 00000 0 00000  1177   STRQ                             MQ
 02050  -3 00000 0 00000  1178   STRD  TXL     **,,**             MASK FOR PREFIX
 02051   0 00000 0 00000  1179   STRT                             CELL INDICATES ACTIVE IF NON-ZERO
 02052   0 00000 0 00000  1180   STRXT                            STORAGE FOR CONTENTS OF ZERO
 02053   466263516063     1181   STRN  BCI     2,OSTR TRAP AT
 02055   0 00000 0 00000  1182   STRM  PZE                        TRAP LOCATION IN OCTAL
 02056   604623632143     1183         BCI     2, OCTAL.
 02060   004623632143     1184   STRMD BCI     4,0OCTAL CONTENTS OF AC                                  PAGE 029
 02064   0 00000 0 00000  1185  STRAMA
 02065   0 00000 0 00000  1186  STRAMB                            OCTAL CONTENTS OF AC GO HERE
 02066   602145246031     1187         BCI     2, AND INDEX 4
 02070   0 00000 0 00000  1188  STRMC                             OCATL LINK IR CONTENTS GO HERE
                          1189  *
                          1190  * THIS ROUTINE USES $PRINT,OUTPUT,BCDOUT AND OBLANK
                          1191  *
                          1192  *
                          1193
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0027


                          1194             ERROR1 USER BY APPLY HAS ONE ARGUMENT AND PRINTS IT USING
                          1195             PRINT
                          1196
 02071  -0634 00 4 01562  1197  ERROR1 SXD $ERROR,4
 02072   0074 00 4 01563  1198         TSX $ERROR+1,4
 02073   542160600154     1199         BCI     1,*A  1*           APPLIED FUNCTION CALLED ERROR
                          1200  *
                          1201  * SETUP        TAKES  SIZE PARAMETERS AND SETS UP THE DEPENDENT CELLS
                          1202  *              MAINLY IN THE RECLAIMER (GARBAGGE COLLECTOR) AND STRPNT
                          1203  *
                          1204         HEAD    E
                          1205  *
                          1206  *      RESETP  ALTERNATE ENTRANCE TO SETUP TO CHANGE COMPOSITION OF
                          1207  * FREE STRORAGE SLIGHTLY.
                          1208  *
 02074  -0625 00 0 02256  1209  RESETP STL     RST                SET RESETUP SWITCH
 02075   0634 00 4 02252  1210         SXA     SUPX,4             SAVE LINK IR
 02076   0020 00 0 02147  1211         TRA     RSU                CHANGE GARBAGGE COLLECTOR PARAMETERS
                          1212  *
 02077   0634 00 4 02252  1213   SETUP SXA     SUPX,4             SAVE LINK IR
 02100   0500 00 0 02303  1214         CLA     $TPG
 02101   0601 00 0 02304  1215         STO     $ORG
 02102   0400 00 0 02305  1216         ADD     LBINPG
 02103   0734 00 4 00000  1217         PAX     0,4
 02104   1 77777 4 02105  1218         TXI     *+1,4,-1
 02105  -0634 00 4 16526  1219         SXD     C$LBPTP,4          SETUP FOR LAP
 02106   0737 00 4 00000  1220         PAC     0,4
 02107  -0634 00 4 04016  1221         SXD     BLKETP,4           END OF BLOCK RESERVATION
 02110   0400 00 0 00371  1222         ADD     $Q1
 02111   0737 00 4 00000  1223         PAC     0,4
 02112  -0634 00 4 02317  1224         SXD     $CPPI,4            SET PUSH DOWN CELLS
 02113  -0634 00 4 02413  1225         SXD     $CSSI,4
 02114  -0634 00 4 11670  1226         SXD     NUBPDL,4           PRIVATE COPY FOR BACKTRACE
 02115   0400 00 0 02306  1227         ADD     LPBPDL
 02116   0621 00 0 02761  1228         STA     ZPDL               G C ZEROS THE UNUSED PDL
 02117   0402 00 0 00407  1229         SUB     $Q20               PROTECTION AGINST COMPILER SAVING
 02120   0737 00 4 00000  1230         PAC     0,4                WTH OUT LOOKING
 02121  -0634 00 4 02414  1231         SXD     ENDPDL,4           OUT OF PDL TEST
 02122   0500 00 0 02274  1232         CLA     $TFS
 02123   0402 00 0 02310  1233         SUB     LFREES                                                   PAGE 030
 02124   0621 00 0 02277  1234         STA     $TBT
 02125   0400 00 0 00371  1235         ADD     $Q1
 02126   0621 00 0 02276  1236         STA     $BFS
 02127   0500 00 0 02307  1237         CLA     LFULWS
 02130   0771 00 0 00005  1238         ARS     5
 02131   0400 00 0 00371  1239         ADD     $Q1
 02132   0601 00 0 02311  1240         STO     $LBT
 02133   0500 00 0 02276  1241         CLA     $BFS
 02134   0402 00 0 02311  1242         SUB     $LBT
 02135   0601 00 0 02300  1243         STO     $BBT
 02136   0402 00 0 00371  1244         SUB     $Q1
 02137   0601 00 0 02301  1245         STO     $TFW
 02140   0500 00 0 02276  1246         CLA     $BFS
 02141   0402 00 0 02307  1247         SUB     LFULWS
 02142   0601 00 0 02302  1248         STO     $BFW
 02143   0402 00 0 02306  1249         SUB     LPBPDL
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0028


 02144   0402 00 0 02305  1250         SUB     LBINPG
 02145   0402 00 0 02303  1251         SUB     $TPG
 02146  -0120 00 0 02257  1252         TMI     SETERR             OVER LAPPING STORAGE ERROR
                          1253  *              STRPNT SETUP
 02147   0535 00 4 02274  1254   RSU   LAC     $TFS,4
 02150   1 77777 4 02151  1255         TXI     *+1,4,-1
 02151  -0634 00 4 02031  1256         SXD     STRTOP,4
 02152   0535 00 4 02276  1257         LAC     $BFS,4
 02153  -0634 00 4 02032  1258         SXD     STRBTM,4
                          1259  *              RECLAIMER SETUP
 02154   0534 00 4 02311  1260         LXA     $LBT,4
 02155   0634 00 4 02532  1261         SXA     A,4
 02156   0534 00 4 02276  1262         LXA     $BFS,4
 02157   0634 00 4 02533  1263         SXA     B,4
 02160   0534 00 4 02301  1264         LXA     $TFW,4
 02161  -0634 00 4 02645  1265         SXD     C,4
 02162  -0634 00 4 02734  1266         SXD     I,4
 02163  -0634 00 4 03116  1267         SXD     MONE,4
 02164   0534 00 4 02277  1268         LXA     $TBT,4
 02165   0634 00 4 02662  1269         SXA     MBTTA,4
 02166   0634 00 4 02667  1270         SXA     D,4
 02167   0634 00 4 02677  1271         SXA     E,4
 02170   0634 00 4 03126  1272         SXA     MLTBT,4
 02171   0534 00 4 02274  1273         LXA     $TFS,4
 02172   0634 00 4 02713  1274         SXA     F,4
 02173   0534 00 4 02276  1275         LXA     $BFS,4
 02174   0634 00 4 02746  1276         SXA     SFWLD,4
 02175   0534 00 4 02302  1277         LXA     $BFW,4
 02176   0634 00 4 02733  1278         SXA     H,4
 02177   0535 00 4 02302  1279         LAC     $BFW,4
 02200  -0634 00 4 03066  1280         SXD     MRKLST,4
 02201  -0634 00 4 03114  1281         SXD     MLBDW,4
 02202   0535 00 4 02274  1282         LAC     $TFS,4
 02203   1 77777 4 02204  1283         TXI     *+1,4,-1
 02204  -0634 00 4 03067  1284         SXD     MRKLST+1,4
 02205  -0634 00 4 03111  1285         SXD     MLIST,4
 02206   0535 00 4 02276  1286         LAC     $BFS,4
 02207  -0634 00 4 02720  1287         SXD     G,4                                                      PAGE 031
 02210  -0634 00 4 03112  1288         SXD     MLBFA,4
 02211  -0535 00 4 02414  1289         LDC     ENDPDL,4
 02212   1 00001 4 02213  1290         TXI     *+1,4,1
 02213   0634 00 4 03100  1291         SXA     MLEPD,4
 02214   0634 00 4 03107  1292         SXA     MLEPE,4
 02215   0535 00 4 02300  1293         LAC     $BBT,4
 02216  -0634 00 4 03113  1294         SXD     MLBBJ,4
 02217   0520 00 0 02256  1295         ZET     RST                SKIP IF INITIAL SETIP
 02220   0020 00 0 02252  1296         TRA     SUPX               GO TO EXIT OTERWISE
 02221   0535 00 4 02276  1297         LAC     $BFS,4             BOTTOM OF FREE STORAGE
 02222   1 77777 4 02223  1298         TXI     *+1,4,-1           SUBSTRACT 1
 02223  -0634 00 4 02232  1299         SXD     SUPFS,4            SET DECREMENT
 02224   0535 00 4 02275  1300         LAC     $MFS,4             LOWERP
 02225  -0754 00 4 00000  1301         PXD     0,4                POINTER TO LWERP IN DECREMENT
 02226   0601 00 0 03751  1302         STO     $FREE              SET UP FREE
 02227   0400 00 0 00442  1303         ADD     $QD1
 02230   0601 00 4 00000  1304         STO     0,4                START MAKING FREE STORAGE
 02231   1 00001 4 02232  1305         TXI     *+1,4,1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0029


 02232  -3 00000 4 02227  1306   SUPFS TXL     *-3,4,**           -BFS
 02233   0600 00 4 00000  1307         STZ     0,4
 02234   0535 00 4 02302  1308         LAC     $BFW,4             BOTTOM FULL WORD SPACR
 02235  -0754 00 4 00000  1309         PXD     0,4
 02236   0622 00 0 03727  1310         STD     FWORDL             SET UP FULL WORD LIST
 02237  -0737 00 4 00000  1311         PDC     0,4                GET IT RUE IN INDEX
 02240  -0634 00 4 02243  1312         SXD     SUPFV,4            USE TO CALCULATE LENGTH OF FULL WORD S
 02241   0534 00 4 02300  1313         LXA     $BBT,4             TFW + 1
 02242   0634 00 4 02243  1314         SXA     SUPFV,4            SET END + 1 ADDRESSS
 02243   2 00000 4 02244  1315   SUPFV TIX     *+1,4,**           LENGHT OF FULL WORD
 02244   0402 00 0 00442  1316         SUB     $QD1
 02245   0601 00 4 00000  1317   SUPFW STO     **,4               MAKE LIST
 02246   2 00001 4 02244  1318         TIX     *-2,4,1            LOOP
 02247   0600 60 0 02245  1319         STZ*    SUPFW              MAKE LAST ENTRY ZERO
 02250   0500 00 0 66430  1320         CLA     $OBLB              BEGINNING OF UNSORTED OBJECT LIST
 02251   0074 00 4 02420  1321         TSX     CNSFWL,4
 02252   0774 00 4 00000  1322   SUPX  AXT     **,4
 02253   0600 00 0 02256  1323         STZ     RST                ZERO RESETUP SWITCH
 02254  -0754 00 0 00000  1324         PXD     0,0
 02255   0020 00 4 00001  1325         TRA     1,4
 02256   0 00000 0 00000  1326   RST                              RESETUP TEST CELL
 02257   0074 00 4 01222  1327  SETERR TSX     OUTPUT,4
 02260  -0 00000 0 00364  1328         MZE     BCDOUT             PRINT ON-LINE
 02261   0 00011 0 02263  1329                 NOSET,,9
 02262   0020 00 0 02252  1330         TRA     SUPX               EXIT
 02263   004665255143     1331   NOSET BCI     9,0OVERLAPPING PARAMETERS -SETUP- ERROR NUMBER *0  7*
                          1332  *
                          1333         HEAD    0                                                        PAGE 032
                          1334  *
                          1335  *              STORAGE MAP CELLS FOR LISP
                          1336  *
 02274   0 00000 0 71651  1337   TFS           UPERML-1           UPPER LIMIT OF FREE STORAGE
 02275   0 00000 0 66230  1338   MFS           LOWERP             LOW LIMIT OF PERM. LIST STRUCTURE
 02276   0 00000 0 00000  1339   BFS                              BOTTOM OF FREE STORAGE
 02277   0 00000 0 00000  1340   TBT                              TOP OF BIT TABLE
 02300   0 00000 0 00000  1341   BBT                              BOTTOM OF BIT TABLR
 02301   0 00000 0 00000  1342   TFW                              TOP OF FULL WORD SPACE
 02302   0 00000 0 00000  1343   BFW                              BOTTOM OF FULL WORD SPACE PROPER
 02303   0 00000 0 17462  1344   TPG           TOPROG
 02304   0 00000 0 00000  1345   ORG                              ORIGIN OF BINARY PROGRAM IN DECREMENT
 02305   0 00000 0 00000  1346  LBINPG                            LENGTH OF BINATY PROGRAM
 02306   0 00000 0 00000  1347  LPBPDL                            LENGTH OF PUBLIC PUSH DOWN LIST
 02307   0 00000 0 00000  1348  LFULWS                            LENGTH OF FULL WORD SPACE + BIT TABLE
 02310   0 00000 0 00000  1349  LFREES                            LENGTH OF FREE STORAGE
 02311   0 00000 0 00000  1350   LBT                              LENGTH OF FULL WORD BIT TABLE
                          1351  * SAVE AND UNSAVE                 THE CLOSRD SUBROUTINES THAT CONTROL
                          1352  *              THE PUBLIC PUSH DOWN LIST. THE CALLING SEQUENCES ARE ...
                          1353  *
                          1354  *      TSX     $SAVE,4
                          1355  *      TXL     $ENDN,,END OF BLOCK TO BE SAVED  + 2
                          1356  *      RETURN
                          1357  *              WHERE N IN $ENDN IS THE NUMBER OF ITEMS TO BE SAVED
                          1358  *
                          1359  *      TSX     UNSAVE,4
                          1360  *      RETURN
                          1361  *              THE SAVED ITEMS MUST BE IN A CONTIGOUS BLOCK WITH THE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0030


                          1362  *              THE FIRST ITEM    PZE ATOMIC NAME OF SUBR,,IR 4
                          1363  *              THE SAVE PARAMETER WORD IS ADDED AS THE LAST ITEM ON THE
                          1364  *              BLOCK TO BE SAVED BUT IS NOT UNSAVED.
                          1365  *
 02312   0634 00 2 02405  1366   SAVE  SXA     SAVY,2             SAVE INDEX 2 AND 1
 02313   0634 00 1 02404  1367         SXA     SAVZ,1
 02314   0601 00 0 02407  1368         STO     SAVT               SAVE THE AC
 02315   0500 60 4 00001  1369         CLA*    1,4                AMMOUNT TO SUBTRACT FROM CPPI IN AC
 02316   0734 00 1 00000  1370         PAX     0,1                PUT - NUMBER OF ITEMS TO BE SAVED + 1
 02317   1 00000 1 02320  1371   CPPI  TXI     *+1,1,**           IN IR 1 AND INCREMENT BE PUSH DOWN CNT
 02320  -3 00000 1 02415  1372         TXL     NOPDL,1,**         GO TO NOPDL IF NOT ENOUGH PDL
 02321  -0634 00 1 02317  1373         SXD     $CPPI,1            UP DATE PDL COUNTER LOCATION
 02322   0500 00 4 00001  1374         CLA     1,4                PARAMETER WORD
 02323   0601 00 1 77777  1375         STO     -1,1               PUT ON PUSH DOWN LIST
 02324  -0737 00 2 00000  1376         PDC     0,2                LOCATION OF BLOCK TO BE SAVED + 2
 02325   0522 00 4 00001  1377         XEC     1,4                JUMP INTO SAVE TABLE
                          1378  *
 02326   0634 00 2 02405  1379  UNSAVE SXA     SAVY,2             SAVE INDEX 2 AND 1
 02327   0634 00 1 02404  1380         SXA     SAVZ,1
 02330   0601 00 0 02407  1381         STO     SAVT               SAVE THE AC
 02331  -0534 00 2 02317  1382         LXD     $CPPI,2            CURRENT PUSH DOWN COUNTER
 02332   0500 00 2 77777  1383         CLA     -1,2               LAST SAVE PARAMETER WORD
 02333   0621 00 0 02336  1384         STA     SAVJ               SET FETCH AND TXI INSTRUCTIONS
 02334   0621 00 0 02342  1385         STA     SAVK
 02335  -0634 00 2 02337  1386         SXD     SAVI,2             SET UP TO RESTORE PDL COUNTER
 02336   0535 00 1 00000  1387   SAVJ  LAC     **,1               NUMBER TO BE UNSAVED                  PAGE 033
 02337   1 00000 1 02340  1388   SAVI  TXI     *+1,1,**           ADD PUSH DOWN COUNTER
 02340  -0634 00 1 02317  1389         SXD     $CPPI,1            UPDATE PDL COUNTER CELL
 02341  -0737 00 1 00000  1390         PDC     0,1                LOCATION OF END OF BLOCK + 2
 02342   1 00001 4 00000  1391   SAVK  TXI     **,4,1             JUMP TO PUSH DOWN TABLE AND SET IR 4
                          1392  *                                 PROPER EXIT .
                          1393  *
                          1394  *              SAVE AND UNSAVE TABLE TO DO THE ACTUAL MOVING TO AND FROM
                          1395  *              THE PUBLIC PUSHD DOWN LIST.
                          1396  *
 02343   0500 00 2 77757  1397   END16 CLA     -17,2
 02344   0601 00 1 77757  1398         STO     -17,1
 02345   0500 00 2 77760  1399   END15 CLA     -16,2
 02346   0601 00 1 77760  1400         STO     -16,1
 02347   0500 00 2 77761  1401   END14 CLA     -15,2
 02350   0601 00 1 77761  1402         STO     -15,1
 02351   0500 00 2 77762  1403   END13 CLA     -14,2
 02352   0601 00 1 77762  1404         STO     -14,1
 02353   0500 00 2 77763  1405   END12 CLA     -13,2
 02354   0601 00 1 77763  1406         STO     -13,1
 02355   0500 00 2 77764  1407   END11 CLA     -12,2
 02356   0601 00 1 77764  1408         STO     -12,1
 02357   0500 00 2 77765  1409   END10 CLA     -11,2
 02360   0601 00 1 77765  1410         STO     -11,1
 02361   0500 00 2 77766  1411   END9  CLA     -10,2
 02362   0601 00 1 77766  1412         STO     -10,1
 02363   0500 00 2 77767  1413   END8  CLA     -9,2
 02364   0601 00 1 77767  1414         STO     -9,1
 02365   0500 00 2 77770  1415   END7  CLA     -8,2
 02366   0601 00 1 77770  1416         STO     -8,1
 02367   0500 00 2 77771  1417   END6  CLA     -7,2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0031


 02370   0601 00 1 77771  1418         STO     -7,1
 02371   0500 00 2 77772  1419   END5  CLA     -6,2
 02372   0601 00 1 77772  1420         STO     -6,1
 02373   0500 00 2 77773  1421   END4  CLA     -5,2
 02374   0601 00 1 77773  1422         STO     -5,1
 02375   0500 00 2 77774  1423   END3  CLA     -4,2
 02376   0601 00 1 77774  1424         STO     -4,1
 02377   0500 00 2 77775  1425   END2  CLA     -3,2
 02400   0601 00 1 77775  1426         STO     -3,1
 02401   0500 00 2 77776  1427   END1  CLA     -2,2
 02402   0601 00 1 77776  1428         STO     -2,1
 02403   0500 00 0 02407  1429   END0  CLA     SAVT               RESTORE THE AC
 02404   0774 00 1 00000  1430   SAVZ  AXT     **,1               AND INDEX 1 + 2
 02405   0774 00 2 00000  1431   SAVY  AXT     **,2
 02406   0020 00 4 00002  1432         TRA     2,4                EXIT
                          1433  *
 02407   0 00000 0 00000  1434   SAVT                             TEMPORARY STORAGE FOR AC
                          1435  *              TIMING INFORMATION .. SAVE AND UNSAVE 34 + 4N CYCLES
                          1436  *              ON THE 709  (SUBTRACT 5 CYCLES FOR SAVE AND 4 FOR UNSAVE
                          1437  *              ON THE 7090)
                          1438  *
                          1439
                          1440             TERPDL
                          1441             RESETS PUBLIC PUSH DOWN LIST TO ZERO                         PAGE 034
                          1442
 02410   0500 00 0 02413  1443  TERPDL CLA $CSSI
 02411   0622 00 0 02317  1444         STD CPPI
 02412   0020 00 4 00001  1445         TRA 1,4
 02413   0 00000 0 00000  1446   CSSI
 02414  -3 00000 4 02415  1447  ENDPDL TXL     *+1,4,**           OUT OF PDL TEST INSTRUCTION (IS XEC)
 02415  -0634 00 4 01562  1448   NOPDL SXD $ERROR,4
 02416   0074 00 4 01563  1449         TSX $ERROR+1,4
 02417   542760600254     1450         BCI     1,*G  2*           OUT OF PUBLIC PUSH DOWN LIST
                          1451
                          1452
                          1453  *
                          1454         HEAD    E
                          1455
                          1456  *
                          1457  * CNSFWL       USED BY SETUP TO MOVE ALL FULL WORDS ON PERMENENT OBJECTS
                          1458  *              TO THE FULL WORD SPACE.
                          1459  *              ALSO BUCKET SORTS THE PERMENENT OBJECTS.
                          1460  *
 02420   0634 00 4 02447  1461  CNSFWL SXA     CNFWX,4            SAVE INDEX REGISTERS
 02421   0634 00 2 02450  1462         SXA     CNFWY,2
 02422  -0734 00 4 00000  1463         PDX     0,4                POINTER TO OBJECT LIST
 02423   0500 00 4 00000  1464   CNMLP CLA     0,4                NEXT WORD ON LIST
 02424   0622 00 0 03310  1465         STD     CNXT               POINTER TO NEXT WORD
 02425   0734 00 2 00000  1466         PAX     0,2                POINTET TO AN ATOM
 02426  -0634 00 2 03313  1467         SXD     CNAT,2             SAVE THE POINTER TO THE ATOM
 02427   0500 00 2 00000  1468         CLA     0,2
 02430  -0320 00 0 00470  1469         ANA     TAGMSK             TEST FOR NUMBER
 02431  -0100 00 0 02452  1470         TNZ     CNNM               MAKE A NUMVER
 02432   0500 00 2 00000  1471   CNSLP CLA     0,2                NEXT WORD ON ATOM
 02433   0734 00 2 00000  1472         PAX     0,2                CAR OF ATOM, SEARCH FOR FULL WORD
 02434   3 06733 2 02436  1473         TXH     *+2,2,$SUBR        SUCH AS $SUBR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0032


 02435   3 06732 2 02461  1474         TXH     CMKO,2,$SUBR-1
 02436   3 10103 2 02440  1475         TXH     *+2,2,$FSUBR
 02437   3 10102 2 02461  1476         TXH     CMKO,2,$FSUBR-1
 02440   3 07335 2 02442  1477         TXH     *+2,2,$PNAME
 02441   3 07334 2 02476  1478         TXH     CMPNT,2,$PNAME-1
 02442  -0734 00 2 00000  1479   CNRS  PDX     0,2                IS NONE OF THE ABOVE SO CDR TO IR 2
 02443   3 00000 2 02432  1480   CNRT  TXH     CNSLP,2,0          GO BACK IF NOT END OF PROPERTY LIST
 02444  -0534 00 4 03310  1481  CNNR   LXD     CNXT,4             POINTER TO NEXT OBJECT
 02445   3 00000 4 02423  1482         TXH     CNMLP,4,0          GO BACK IF NOT END
 02446  -0754 00 0 00000  1483         PXD     0,0                CLAER AC
 02447   0774 00 4 00000  1484   CNFWX AXT     **,4               RESTORE INDEX REGISTERS
 02450   0774 00 2 00000  1485   CNFWY AXT     **,2
 02451   0020 00 4 00001  1486         TRA     1,4                EXIT
                          1487  *
 02452   0500 00 2 00000  1488  CNNM   CLA     0,2
 02453  -0120 00 0 02444  1489         TMI     CNNR               DONT MOVE NUMBERS WITH MZE PREFIX
 02454  -0734 00 4 00000  1490         PDX     0,4
 02455   0500 00 4 00000  1491         CLA     0,4
 02456   0074 00 4 03710  1492         TSX     $CONSW,4
 02457   0622 00 2 00000  1493         STD     0,2
 02460   0020 00 0 02444  1494         TRA     CNNR               MAKE UP THE NEW NUMBER
                          1495  *                                                                       PAGE 035
 02461  -0734 00 2 00000  1496   CMKO  PDX     0,2                PUT ONE WORD IN FULL WORD SPACE
 02462   0500 00 2 00000  1497         CLA     0,2                GET NEXT WORD ON PROPERTY LIST
 02463   0622 00 0 03311  1498         STD     CNX                POINTER TO REST OF OBJECT
 02464  -0120 00 0 02474  1499         TMI     CMK                SKIP MOVING TO REST OF OBJECT
 02465   0734 00 4 00000  1500         PAX     0,4                SENSED, OTHERWISE GET POINTER TO FULL
 02466   0500 00 4 00000  1501         CLA     0,4                WORD AND WORD IT SELF IN AC
 02467   0074 00 4 03710  1502         TSX     $CONSW,4           PUT IT IN FULL WORD SPACE
 02470   0771 00 0 00022  1503         ARS     18                 MOVE POINTER TO WORD IN FWS TO ADDRESS
 02471   0621 00 2 00000  1504         STA     0,2                REPLACE THE ADDRESS
 02472  -0534 00 2 03311  1505         LXD     CNX,2              POINTRE TO NEXT WORD ON PROPERTY LIST
 02473   0020 00 0 02443  1506         TRA     CNRT               RETURN
                          1507  *
 02474   0602 00 2 00000  1508   CMK   SLW     0,2                RESTORE WORD WITH PLUS SIGN
 02475   0020 00 0 02442  1509         TRA     CNRS               GO BACK
                          1510  *
 02476  -0734 00 2 00000  1511   CMPNT PDX     0,2                PUT PRINT NAME IN FULL WORD SPACE
 02477   0500 00 2 00000  1512         CLA     0,2                NEXT WORD ON PROPERTY LIST
 02500   0622 00 0 03311  1513         STD     CNX                POINTER TO NEXT WORD ON PROPERTY LIST
 02501   0734 00 2 00000  1514         PAX     0,2                POINTET TO PNAME LIST
 02502  -0634 00 2 03314  1515         SXD     CNVA,2             SAVE IT
 02503   0500 00 2 00000  1516   CMPLP CLA     0,2                FIRST FORD ON PNAME LIST
 02504  -0120 00 0 02515  1517         TMI     CMPS               SKIP IF WORD IS FLAGGED
 02505   0622 00 0 03312  1518         STD     CNFT               POINTER TO NEXT WORD ON PNAME LIST
 02506   0734 00 4 00000  1519         PAX     0,4                POINTER TO FULL WORD
 02507   0500 00 4 00000  1520         CLA     0,4                FULL WORD
 02510   0074 00 4 03710  1521         TSX     $CONSW,4           PUT IN FULL WORD SPACE
 02511   0771 00 0 00022  1522         ARS     18                 POINTER TO WORD
 02512   0621 00 2 00000  1523         STA     0,2                RPLACE THE ADDRESS
 02513  -0534 00 2 03312  1524         LXD     CNFT,2             POINTER TO NEXT WORD ON PNAME LIST
 02514   3 00000 2 02503  1525         TXH     CMPLP,2,0          GO BACK IF NOT END
 02515   0500 00 0 03314  1526   CMPS  CLA     CNVA               POINTER TO PNAME LIST
 02516   0560 00 0 03313  1527         LDQ     CNAT               ATOM THAT WE ARE WORKING ON
 02517   0074 00 4 06417  1528         TSX     BUKSRT,4           PUT ON BUCKET SORTED OBJECT LIST
 02520  -0534 00 2 03311  1529         LXD     CNX,2              POINTER TO NEXT WORD ON ATOM
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0033


 02521   0020 00 0 02443  1530         TRA     CNRT               GO BACK
                          1531  *
                          1532  *
                          1533  *
                          1534  * RECLAIMER    LISP 1.5 STORAGE CONTROL PROGRAM. CODED 1 MARCH 1961
                          1535  *
 02522   0634 00 4 03043  1536  RECLAM SXA     RCX,4              SAVE INDEX REGISTER
 02523   0634 00 2 03044  1537         SXA     RCY,2
 02524   0634 00 1 03045  1538         SXA     RCZ,1
 02525   0604 00 0 03224  1539         STI     RCIND              AND MACHINE REGISTETS
 02526   0601 00 0 03306  1540         STO     RCAC
 02527  -0600 00 0 03307  1541         STQ     RCMQ
 02530   0600 00 0 03225  1542         STZ     RCBE               INITIALIZE BAD EXIT CELL
 02531   0560 00 0 03270  1543   RCA   LDQ     RCSGNL             SIGNAL PHASE 1
 02532   0774 00 4 00000  1544   A     AXT     **,4               BIT TABLE LENGTH
 02533   0600 00 4 00000  1545   B     STZ     **,4               DOTTOM FREE STORAGE
 02534   2 00001 4 02533  1546         TIX     *-1,4,1            ZERO THE BIT TABLE
 02535  -0534 00 4 02414  1547         LXD     ENDPDL,4           END OF PDL
 02536  -0634 00 4 02540  1548         SXD     RCIA,4             SET UP TNX INSTRUCTION
 02537  -0534 00 4 02317  1549         LXD     $CPPI,4            CURRENT PUSH DOWN LIST LOC.           PAGE 036
 02540  -2 00000 4 03103  1550   RCIA  TNX     MLPDE,4,**         AMMOUNT OF PUSH DOWN LIST AVAILABLE
 02541  -0634 00 4 03102  1551         SXD     MLPDC,4            SET CELL IN MRKLST
 02542   0634 00 4 02760  1552         SXA     ZPDLA,4            LENGTH LEFT BAR FOR ZEROIND PDL
 02543  -0774 00 2 66427  1553         AXC     OBLIST,2           POINTER TO OBJECT LICT
 02544   0441 00 0 10340  1554         LDI     SYSIND             SYSTEM INDICATORS
 02545   0520 00 0 11516  1555         ZET     EVQRTS             SKIP F DURING READ IN THE EVALQUOTE
 02546   0056 00  000004  1556         RNT     DEBUGI             SKIP MARKING OBLIST IF IN A DEBUG
 02547   0074 00 4 03066  1557         TSX     MRKLST,4           MARK THE LIST
                          1558  *
                          1559  *               TEMLIS MARKER
                          1560  *               TEMLIS IS A LIST IN FREE STORAGE AND FULL WORD SPACE
                          1561  *               OF THE FORM (CONS (CONSW BEG,,END) TEMLIS) AND INDICATES
                          1562  *               PLACES WHERE LIST STRUCTURE MAY BE DURING A GARBAGE
                          1563  *               COLLECTION. USED PRINCIPALLY BY THE COMPILER
                          1564  *
 02550   0600 00 0 03273  1565         STZ     TMLM               SET EXIT SWITCH
 02551  -0534 00 4 03304  1566         LXD     TEMLIS,4
 02552   0500 00 4 00000  1567   TMLJ  CLA     0,4                NEXT WORD ON TEMLIS
 02553   0622 00 0 03273  1568         STD     TMLM               SAVE POINTER TO NEXT WORD
 02554   0734 00 4 00000  1569         PAX     0,4                POINTER TO FULL WORD
 02555   0500 00 4 00000  1570         CLA     0,4                FULL WORD
 02556   0734 00 4 00000  1571         PAX     0,4                BEGINNING OF ARRAY
 02557  -0634 00 4 02563  1572         SXD     TMLD,4
 02560  -0734 00 1 00000  1573         PDX     0,1                END OF ARRAY
 02561   1 00001 1 02562  1574         TXI     *+1,1,1            ADD 1
 02562   0634 00 1 02565  1575   TMLK  SXA     TMLE,1
 02563  -2 00000 1 02577  1576   TMLD  TNX     TMLH,1,**          SUBTRACT BEGINNING , GIVES COUNT IN IR
 02564   0634 00 1 03216  1577         SXA     GCPDLC,1           LAST USE IS MARKING PDL, SAVE LENGTH
 02565   0441 00 1 00000  1578   TMLE  LDI     **,1               PICK UP WORD
 02566   0444 00 0 03274  1579         OFT     TMPTM              SKIP IF NOTAG OR PREFIX
 02567   0020 00 0 02576  1580         TRA     TMLG               NOT A LIST, DO NOT MARK
 02570  -0046 00 0 00000  1581         PIA                        ITEM TO AC
 02571   0621 00 0 02574  1582         STA     TMLF               SAVE ADDRESS
 02572  -0734 00 2 00000  1583         PDX     0,2
 02573   0074 00 4 03066  1584         TSX     MRKLST,4           MARK THE DECREMENT
 02574   0774 00 2 00000  1585   TMLF  AXT     **,2               ADDRESS OF WORD TO IR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0034


 02575   0074 00 4 03066  1586         TSX     MRKLST,4           MARK IT
 02576   2 00001 1 02565  1587   TMLG  TIX     TMLE,1,1           GET NEXT WORD IN ARRAY
 02577  -0534 00 4 03273  1588   TMLH  LXD     TMLM,4             NEXT TEMLIS ITEM
 02600   3 00000 4 02552  1589         TXH     TMLJ,4,0           GO IF NOT DONE
 02601   0520 00 0 03273  1590         ZET     TMLM               TEST FOR EXIT
 02602   0020 00 0 02611  1591         TRA     MPDLF              ALL DONE
 02603  -0535 00 4 02413  1592         LDC     $CSSI,4            BEGINNING OF PDL
 02604  -0634 00 4 02563  1593         SXD     TMLD,4             SET UP CELL
 02605  -0535 00 1 02317  1594         LDC     $CPPI,1            FIRST FREE CELL ON PDL
 02606  -0625 00 0 03273  1595         STL     TMLM               INDICATE LAST USE OF LOOP
 02607   0600 00 0 03216  1596         STZ     GCPDLC             PUSH DOWN LENGTH INITIALLY ZERO
 02610   0020 00 0 02562  1597         TRA     TMLK               GO MARK PUSH DOWN LIST
 02611  -0534 00 4 03305  1598   MPDLF LXD     ARYLIS,4           START TO MARK ACTIVE ARRAYS
 02612  -3 00000 4 02707  1599  MARYB  TXL     RCB,4,0            GO IF NO ARRAYS
 02613   0500 00 4 00000  1600         CLA     0,4                NEXT WORD ON ARYLIS
 02614   0622 00 0 03226  1601         STD     MARYT              SAVE POINTER TO NEXT WORD
 02615   0734 00 4 00000  1602         PAX     0,4                ARYATOM TO AC
 02616   0500 00 4 00000  1603   MARYA CLA     0,4                NEXT WORD ON ATOM                     PAGE 037
 02617   0734 00 4 00000  1604         PAX     0,4
 02620  -3 10734 4 02622  1605         TXL     *+2,4,$ARRAY-1     SERCH FOR ARRAY SPECIFICATION
 02621  -3 10735 4 02626  1606         TXL     MRKA,4,$ARRAY      GO IF FOUND
 02622  -0734 00 4 00000  1607         PDX     0,4                POINTER TO NEXT WORD
 02623   3 00000 4 02616  1608         TXH     MARYA,4,0          GO IF NOT END OF ATOM
 02624  -0534 00 4 03226  1609   MARYC LXD     MARYT,4            NEXT WORD ON ARYLIS
 02625   0020 00 0 02612  1610         TRA     MARYB
                          1611  *
 02626  -0734 00 4 00000  1612   MRKA  PDX     0,4                GET ARRAY SPECIFICATIONS
 02627   0500 00 4 00000  1613         CLA     0,4
 02630   0734 00 4 00000  1614         PAX     0,4
 02631   0500 00 4 00000  1615         CLA     0,4
 02632   0734 00 4 00000  1616         PAX     0,4
 02633   0500 00 4 00000  1617         CLA     0,4                FIRST SPEC. WORD
 02634   0734 00 2 00000  1618         PAX     0,2                END OF ARRAY + 1
 02635   0621 00 0 02702  1619         STA     MRKE               END OF ARRAY + 1
 02636   0500 00 4 00001  1620         CLA     1,4
 02637   0601 00 0 03275  1621         STO     MRKP               SECOND SPEC. WORD  TOTAL L,, LIST L
 02640   0734 00 1 00000  1622         PAX     0,1                TOTAL LENGTH
 02641  -0634 00 1 02642  1623         SXD     MAA,1              UPDATE TNX INSTRUCTION
 02642  -2 00000 2 02624  1624   MAA   TNX     MARYC,2,**         LOCATION OF BEGINNING OF ARRAY
 02643   0634 00 2 02644  1625         SXA     MAB,2              PREPARE TO COMPLEMENT
 02644  -0774 00 2 00000  1626   MAB   AXC     **,2
 02645   1 02645 2 02646  1627   C     TXI     *+1,2,*            TOP FULL WORD
 02646   0754 00 2 00000  1628         PXA     0,2                CALCULATE BIT TABLE WORD AND BIT
 02647  -0765 00 0 00005  1629         LGR     5                  BIT NUMBER IN TO MQ
 02650   0734 00 2 00000  1630         PAX     0,2                WORD NUMBER IN IR 2
 02651  -0754 00 0 00000  1631         PXD     0,0                ZERO AC
 02652  -0763 00 0 00005  1632         LGL     5                  BIT NUMBER
 02653   0734 00 4 00000  1633         PAX     0,4
 02654   3 00036 4 02665  1634         TXH     MBTT,4,30          GO TO MARK BY 32
 02655  -0754 00 0 00000  1635         PXD     0,0                ZERO AC
 02656  -0501 00 4 03266  1636   MAC   ORA     BIT,4
 02657  -2 00000 1 02662  1637         TNX     MBTTA,1,           DECREMENT COUNT
 02660   2 00001 4 02656  1638         TIX     MAC,4,1            RUN BIT COUNT DOWN
 02661  -0501 00 0 03266  1639         ORA     BIT                PUT IN ZERO BIT
 02662  -0602 00 2 00000  1640   MBTTA ORS     **,2               TOP BIT TABLE, SET BITS
 02663  -2 00001 1 02700  1641         TNX     MRKF,1,1           GO IF DONE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0035


 02664   1 77777 2 02665  1642         TXI     *+1,2,-1           DECREMENT BIT WORD BY ONE
 02665  -0500 00 0 00471  1643   MBTT  CAL     MONS               ALL ONES TO AC
 02666  -2 00040 1 02671  1644   MAE   TNX     MAD,1,32           DECREMENT COUNT BY 32
 02667  -0602 00 2 00000  1645   D     ORS     **,2               TOP BIT TABLE, SET ALL BITS
 02670   1 77777 2 02666  1646         TXI     MAE,2,-1           DECREMENT BIT TABLE WORD COUNT
 02671   0754 00 1 00000  1647   MAD   PXA     0,1                PREPARE TO MARK LAST BITS
 02672   0737 00 1 00000  1648         PAC     0,1                COMPLMENT COUNT
 02673  -0754 00 0 00000  1649         PXD     0,0                ZERO AC
 02674  -0501 00 1 03226  1650   MAF   ORA     MBITF,1            SET PROPER BIT
 02675   1 00001 1 02676  1651         TXI     *+1,1,1            INCREMENT COUNT BY ONE
 02676   3 00000 1 02674  1652         TXH     MAF,1,0            GO UNTIL COUNT REACHES ZERO
 02677  -0602 00 2 00000  1653   E     ORS     **,2               TOP BIT TABLE, SET BITS
 02700  -0534 00 1 03275  1654   MRKF  LXD     MRKP,1             GET LIST LENGTH IF ANY
 02701  -3 00000 1 02624  1655         TXL     MARYC,1,0          EXIT IF A NON-LIST ARRAY
 02702   0500 00 1 00000  1656   MRKE  CLA     **,1               LIST ITEM
 02703  -0734 00 2 00000  1657         PDX     0,2                                                      PAGE 038
 02704   0074 00 4 03066  1658         TSX     MRKLST,4           MARK IT
 02705   2 00001 1 02702  1659         TIX     MRKE,1,1           GET NEXT ITEM
 02706   0020 00 0 02624  1660         TRA     MARYC              EXIT
                          1661  *
                          1662  *               ALL MARKING DONE. NOW SWEEP FREE STORAGE.
                          1663  *
 02707   0774 00 2 00000  1664   RCB   AXT     0,2                ZERO COUNT IR
 02710   0600 00 0 03212  1665         STZ     FSC                INITIALIZE COUNTER
 02711   0560 00 0 03271  1666         LDQ     RCSGNM             SWEEPING SIGNAL TO MQ
 02712  -0774 00 1 03751  1667         AXC     $FREE,1            INITIALIZE LAST LOC IR
 02713  -0774 00 4 00000  1668   F     AXC     **,4               TOP FREE STORAGE
 02714   0502 00 4 00000  1669   SFSL  CLS     0,4                PICK UP WORD
 02715  -0120 00 0 02724  1670         TMI     SFSC               COLLECT IF SIGN NOW MINUS
 02716  -0600 00 4 00000  1671         STQ     0,4                RESTORE WORD WITH + SIGN
 02717   1 00001 4 02720  1672   SFSA  TXI     *+1,4,1            INCREMENT BY ONE
 02720  -3 00000 4 02714  1673   G     TXL     SFSL,4,**          LOOP IF LESS THAN BOTTOM FREE STORAGE
 02721   0600 00 1 00000  1674         STZ     0,1                ZERO LAST WORD COLLECTED
 02722   0634 00 2 03212  1675         SXA     FSC,2              SAVE COUNT
 02723   0020 00 0 02730  1676         TRA     SWPFWS
 02724  -0754 00 4 00000  1677   SFSC  PXD     0,4                THIS LOCATION
 02725   0601 00 1 00000  1678         STO     0,1                STORE POINTER IN LAST WORD COLLECTED
 02726  -0734 00 1 00000  1679         PDX     0,1                UP DATE LAST WORD IR
 02727   1 00001 2 02717  1680         TXI     SFSA,2,1           UPDATE COUNTER
                          1681  *
                          1682  *               NOW SWEEP FULL WORD SPACE WITH THE BIT TABLE
                          1683  *
 02730   0774 00 4 03727  1684  SWPFWS AXT     FWORDL,4           BEGINNING OF FULL WORD LIST
 02731   0634 00 4 03057  1685         SXA     SFWA,4             INITIALIZE ADDRESS
 02732   0600 00 0 03210  1686         STZ     FWC                ZERO FULL WORD COUNTER
 02733  -0774 00 1 00000  1687   H     AXC     **,1               BOTTOM FULL WORD SPACE
 02734   1 00000 1 02735  1688   I     TXI     *+1,1,**           TOP FULL WORD SPACE
 02735   0754 00 1 00000  1689         PXA     0,1                GET ADDRESS OF BIT TABLE CORRESPONDING
 02736  -0765 00 0 00005  1690         LGR     5                  TO THE BOTTOM OF FULL WORD SPACE
 02737   0734 00 4 00000  1691         PAX     0,4                BIT TABLE WORD
 02740   1 00001 4 02741  1692         TXI     *+1,4,1            MAKE INDEXING EASY
 02741  -0754 00 0 00000  1693         PXD     0,0                ZERO AC
 02742  -0763 00 0 00005  1694         LGL     5                  BIT NUMBER
 02743   0734 00 2 00000  1695         PAX     0,2                INTO IR 2
 02744   1 00001 2 02745  1696         TXI     *+1,2,1            MAKE INDEXING EASY
 02745   0535 00 1 02733  1697         LAC     H,1                SET UP IR 1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0036


 02746   0441 00 4 00000  1698   SFWLD LDI     **,4               BOTTOM FREE STORAGE, (TBT + 1)
 02747   0446 00 0 00471  1699         ONT     MONES              SKIP IF ALL WORDS TO BE SAVED
 02750   0020 00 0 03047  1700         TRA     SFWSC              SEARCH FOR THE WORDS TO BE COLLECTED
 02751   1 77740 1 02752  1701         TXI     *+1,1,-32          DECREMENT CURRENT LOC IR
 02752   2 00001 4 02746  1702   SFWB  TIX     SFWLD,4,1          INDEX THROUGH BIT TABLE
 02753   0500 00 0 03210  1703   SFWDN CLA     FWC                ALL DONE, GET FULL WORD COUNTER
 02754   0601 60 0 03057  1704         STO*    SFWA               SET UP LAST CELL COLLECTED
 02755   0560 00 0 03272  1705         LDQ     RCSGNN             PASE 3 SIGNAL
 02756   0520 00 0 03220  1706         ZET     RCT                TEST FOR OUT OF ARRAY SPACE ENTRANCE
 02757   0074 00 4 03165  1707         TSX     RELOC,4            RELOCATE AND COMPACT FULL WORD SPACE
 02760   0774 00 4 00000  1708  ZPDLA  AXT     **,4               ZERO UNUSED PDL
 02761   0600 00 4 00000  1709  ZPDL   STZ     **,4               ZERO PDL WORD
 02762   2 00001 4 02761  1710         TIX     *-1,4,1
 02763   0560 00 0 00402  1711         LDQ     CRITWN             CRITACL WORD NUMBER                   PAGE 039
 02764   0600 00 0 03225  1712         STZ     RCBE               INITIALIZE BAD EXIT TEST CELL
 02765   0500 00 0 03210  1713         CLA     FWC                NUMBER OF FULL WORDS COLLECTED
 02766   0040 00 0 02770  1714         TLQ     RCEA               TRANSFER IF MORE THAN CRITACL COLLECT
 02767  -0625 00 0 03225  1715         STL     RCBE               NOT ENOUGH, SIGNAL BAD EXIT
 02770   0400 00 0 03222  1716   RCEA  ADD     TFWC               ADD TOTAL OF FULL WORDS COLLECTED
 02771   0601 00 0 03222  1717         STO     TFWC               UPDATE COUNTER
 02772  -0763 00 0 00004  1718         LGL     4                  INCREASE TOLERENCE BY 2 TO THE 4 TH
 02773   0500 00 0 03212  1719         CLA     FSC                NUMBER OF FREE STORAGE CELLS PICKED UP
 02774   0040 00 0 02776  1720         TLQ     RCEB               TRA IF GREATER THAN CRITACL NUMBER
 02775  -0625 00 0 03225  1721         STL     RCBE               NO, SIGNAL BAD EXIT
 02776   0400 00 0 03223  1722   RCEB  ADD     TFSC               ADD TOTAL OF FREE COLLECTED TO DATE
 02777   0601 00 0 03223  1723         STO     TFSC               UPDATE TOTAL
 03000   0500 00 0 03217  1724         CLA     RCC                NUMBER OF RECLAIMATION CYCLES EXECUTED
 03001   0400 00 0 00371  1725         ADD     $Q1                INCREMENT BY 1
 03002   0601 00 0 03217  1726         STO     RCC                UPDATE TOTAL
 03003   0500 00 0 03221  1727         CLA     RLC                NUMBER OF TIMES RELOCATION OF FWS
 03004   0520 00 0 03220  1728         ZET     RCT                SKIP IF NO RELOCATION
 03005   0400 00 0 00371  1729         ADD     $Q1
 03006   0601 00 0 03221  1730         STO     RLC                UPDATE COUNTER
 03007  -0520 00 0 03225  1731         NZT     RCBE               SKIP IF BAD EXIT
 03010   0020 00 0 03012  1732         TRA     RCED               DO GOOD EXIT
 03011   0020 00 0 03014  1733         TRA     RCEC               DO VERBOSE AND BAD EXIT
 03012  -0520 00 0 03267  1734   RCED  NZT     VERBOS             SKIP IF TALKATIVE
 03013   0020 00 0 03040  1735         TRA     RCEXIT             DO EXIT
 03014   0535 00 4 03043  1736  RCEC   LAC     RCX,4              GET EXIT IR4
 03015  -0754 00 4 00000  1737         PXD     0,4                AND CONVERT FOR PRINTING
 03016   0131 00 0 00000  1738         XCA
 03017   0074 00 4 11021  1739         TSX     OCTALP,4
 03020  -0501 00 0 00452  1740         ORA     OBLANK
 03021   0602 00 0 03201  1741         SLW     RCT1
 03022   0500 00 0 03210  1742         CLA     FWC                FULL WORD COUNTER
 03023   0074 00 4 04111  1743         TSX     $DECON,4           CONVERT TO BCD DECIMAL
 03024   0602 00 0 03210  1744         SLW     RCT4               PUT IN MESSAGE
 03025   0500 00 0 03212  1745         CLA     FSC                FREE STORAGE COUNTER
 03026   0074 00 4 04111  1746         TSX     $DECON,4           TO DECIMAL
 03027   0602 00 0 03212  1747         SLW     RCT5               PUT IN MESSAGE
 03030   0500 00 0 03216  1748         CLA     GCPDLC             NUMBER OF ACTIVE REGISTERS ON PDL
 03031   0074 00 4 04111  1749         TSX     $DECON,4           TO DECIMAL
 03032   0602 00 0 03216  1750         SLW     RCT6               IN MESSAGE
 03033   0074 00 4 01222  1751         TSX     OUTPUT,4           WRITE OUT MESSAGE
 03034   0 00000 0 00364  1752                 BCDOUT
 03035   0 00023 0 03174  1753                 RCTM,,19
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0037


 03036   0520 00 0 03225  1754         ZET     RCBE               SKIP IF GOOD EXIT
 03037   0020 00 0 03152  1755         TRA     RCBEX              DO BAD EXIT
 03040   0500 00 0 03306  1756  RCEXIT CLA     RCAC               RESTORE MACHINE REGISTERS
 03041   0560 00 0 03307  1757         LDQ     RCMQ
 03042   0441 00 0 03224  1758         LDI     RCIND
 03043   0774 00 4 00000  1759   RCX   AXT     **,4               AND INDEX REGISTERS
 03044   0774 00 2 00000  1760   RCY   AXT     **,2
 03045   0774 00 1 00000  1761   RCZ   AXT     **,1
 03046   0020 00 4 00001  1762         TRA     1,4                EXIT
 03047   0446 00 2 03267  1763   SFWSC ONT     MBIT,2             CHECK FOR CURRENT BIT
 03050   0020 00 0 03055  1764         TRA     SFWC               IS OFF, COLLECT WORD
 03051   1 77777 1 03052  1765         TXI     *+1,1,-1           IS ON, DECREMENT CURRENT LOC IR       PAGE 040
 03052   2 00001 2 03047  1766   SFWD  TIX     SFWSC,2,1          INDEX THROUGH THE BITS
 03053   0774 00 2 00040  1767         AXT     32,2               SET UP IR WITH NUMBER OF BITS PER WORD
 03054   0020 00 0 02752  1768         TRA     SFWB               EXAMINE NEXT WORD IN BIT TABLE
                          1769  *
 03055  -0754 00 1 00000  1770   SFWC  PXD     0,1                COLLECT THIS WORD, POINTER TO THIS WOR
 03056   0400 00 0 03210  1771         ADD     FWC                D PLUS NUMBER OF WORDS COLLECTED IN AC
 03057   0601 00 0 00000  1772   SFWA  STO     **                 SET LAST WORD COLLECTED
 03060   0400 00 0 00371  1773         ADD     $Q1                INCREMENT NUMBER OF FULL WORDS COLLECT
 03061   0621 00 0 03210  1774         STA     FWC                SAVE FULL WORD COUNTER
 03062  -0737 00 1 00000  1775         PDC     0,1                COMPLEMENT CURRENT LOCATION
 03063   0634 00 1 03057  1776         SXA     SFWA,1             TO FORM TRUE ADDRESS FOR UPDATE STORE
 03064  -0734 00 1 00000  1777         PDX     0,1                CURRENT LOCATION POINTER
 03065   1 77777 1 03052  1778         TXI     SFWD,1,-1          DECREMENT CURRENT LOCATION AND RETURN
                          1779  *
                          1780  * MRKLST       THE RECURSIVE SUBROUTINE THAT DOES ALL LIST MARKING
                          1781  *
 03066   3 00000 2 03132  1782  MRKLST TXH     MLEXT,2,**         BFW BAR, REJECT POINTERS TO PROGRAM
 03067  -3 00000 2 03132  1783         TXL     MLEXT,2,**         TFS BAR - 1, REJECT POINTERS TO LOADER
 03070   0634 00 1 03130  1784         SXA     MSRTN,1            SAVE IR 1
 03071   0634 00 4 03131  1785         SXA     MRKX,4             SAVE LINK IR
 03072   0774 00 1 00001  1786         AXT     1,1                PRESET TO ONE FOR FAST PUSH DOWN ACESS
 03073   0020 00 0 03111  1787         TRA     MLIST              DO ACTUAL MARKING
                          1788  *
 03074   0502 00 2 00000  1789   MWIN  CLS     0,2                MARK THIS WORD IN FREE STORAGE
 03075   0120 00 0 03127  1790         TPL     MOUT               TRANSFER OUT IF ALREADY MARKED
 03076   0601 00 2 00000  1791         STO     0,2                CAR OF LIST
 03077   0734 00 2 00000  1792         PAX     0,2                CAR TO IR 2
 03100   0622 00 1 00000  1793   MLEPD STD     **,1               ENDPDL + 1, SAVE CDR OF LIST ON PDR
 03101   1 00001 1 03102  1794         TXI     *+1,1,1            INCREMENT PUSH DOWN COUNTER
 03102  -3 00000 1 03111  1795   MLPDC TXL     MLIST,1,**         ENDPDL - C($CPPI) BAR, GO IF NOT NOPDL
 03103   0074 00 4 03133  1796   MLPDE TSX     RCERR,4            OUT OF PUSH DOWN LIST, FATAL ERROR
 03104   004546604743     1797         BCI     3,0NO PLD -MRKLST-
 03107   0500 00 1 00000  1798   MLEPE CLA     **,1               ENDPDL + 1, GET CDR OF LIST
 03110  -0734 00 2 00000  1799         PDX     0,2                PUT IN  IR 2
 03111  -3 00000 2 03127  1800   MLIST TXL     MOUT,2,**          TFS BAR - 1, OUT IF NOT IN LISP STORAG
 03112  -3 00000 2 03074  1801   MLBFA TXL     MWIN,2,**          BOTTOM FREE STORAGE BAR, IN FREE
 03113  -3 00000 2 03127  1802   MLBBJ TXL     MOUT,2,**          BBT BAR  OUT IF POINTER TO BIT TABLE
 03114  -3 00000 2 03116  1803   MLBDW TXL     MONE,2,**          BOTTOM FULL WORD BAR, IN FULL WORD
 03115   0020 00 0 03127  1804         TRA     MOUT               EXIT , NOT ANY OF THE ABOVE
                          1805  *
 03116   1 00000 2 03117  1806   MONE  TXI     *+1,2,**           TOP FULL WORD
 03117   0754 00 2 00000  1807         PXA     0,2                CALCULATE BIT TABLE WORD AND BIT
 03120  -0765 00 0 00005  1808         LGR     5
 03121   0734 00 2 00000  1809         PAX     0,2                BIT TABLE WORD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0038


 03122  -0754 00 0 00000  1810         PXD     0,0
 03123  -0763 00 0 00005  1811         LGL     5                  BIT TABLE BIT
 03124   0734 00 4 00000  1812         PAX     0,4
 03125  -0500 00 0 03266  1813         CAL     BIT 4              PICK UP BIT
 03126  -0602 00 2 00000  1814   MLTBT ORS     **,2               TOP BIT TABLE, PUT IN BIT
 03127   2 00000 1 03107  1815   MOUT  TIX     MLEPE,1,           GO BACK IF IN RECURSION
 03130   0774 00 1 00000  1816   MSRTN AXT     **,1               OTHERWISE RESTORE IR 1
 03131   0774 00 4 00000  1817   MRKX  AXT     **,4               AND LINK IR                           PAGE 041
 03132   0020 00 4 00001  1818   MLEXT TRA     1,4                AND EXIT
                          1819  *
                          1820  * RCERR        RECLAIMER FATAL ERROR DUMP ROUTINE
                          1821  *
 03133  -0634 00 4 01562  1822   RCERR SXD     $ERROR,4           SAVE IR 4
 03134   0634 00 4 03135  1823         SXA     *+1,4              COMPLEMENT IR 4 TO GET ERROR MESSAGE
 03135  -0774 00 4 00000  1824         AXC     **,4
 03136   1 00001 4 03137  1825         TXI     *+1,4,1            LOCATION OF ERROR MESSAGE
 03137   0634 00 4 03142  1826         SXA     RCFEM,4            BUILD OUTPUT CALL
 03140   0074 00 4 01222  1827         TSX     OUTPUT,4           WRITE ERROR MESSAGE ON TAPE
 03141   0 00000 0 00364  1828                 BCDOUT
 03142   0 00003 0 00000  1829   RCFEM         **,,3              WRITE OUT 3 WORDS
 03143   0600 00 0 03751  1830         STZ     $FREE
 03144   0600 00 0 03727  1831         STZ     FWORDL             ZERO STORAGE LISTS
 03145   0441 00 0 10340  1832         LDI     SYSIND             GET SYSTEM INDICATORS
 03146   0055 00  000010  1833         SIR     ERRORI             SET ERRIR INDICATOR
 03147   0604 00 0 10340  1834         STI     SYSIND             UPDATE REGISTER
 03150   0074 00 4 00000  1835         TSX     $TIME,4            PRINT THE CURRENT TO TIME
 03151   0020 00 0 10230  1836         TRA     OVRLRD             GET NEXT DIRECTION CARD
                          1837  *
 03152   0441 00 0 03224  1838   RCBEX LDI     RCIND              RESTORE MACHINE REGISTERS
 03153   0500 00 0 03306  1839         CLA     RCAC
 03154   0560 00 0 03307  1840         LDQ     RCMQ
 03155   0534 00 4 03043  1841         LXA     RCX,4              AND INDEX REGISTERS
 03156   0534 00 2 03044  1842         LXA     RCY,2
 03157   0534 00 1 03045  1843         LXA     RCZ,1
 03160  -0634 00 4 01562  1844         SXD     $ERROR,4           SAVE IR 4
 03161   0601 00 0 01556  1845         STO     $ERAC              SAVE THE CONTENTS OF THE AC
 03162  -0754 00 0 00000  1846         PXD     0,0
 03163   0074 00 4 01563  1847         TSX     $ERROR+1,4         GO TO ERROR
 03164   542723600254     1848         BCI     1,*GC 2*           NOT ENOUGH WORDS COLLECTED -RECLAIMER-
                          1849  *
                          1850  * RELOC        RELOCATES ALL ITEMS IN FULL WORDS SPACE INTO A COMPACTED
                          1851  *              BLOCK TO MAKE BLOCKS OF CONTIGOUS STORAGE AVAILABLE FOR
                          1852  *              ARRAYS.
                          1853  *
 03165   0634 00 4 03172  1854   RELOC SXA     RELX,4             SAVE LINK IR
 03166   0074 00 4 03133  1855         TSX     RCERR,4            THIS RPUTINE HAS NOT BEEN CODED YET.
 03167   004546605125     1856         BCI     3,0NO RELOCATOR
 03172   0774 00 4 00000  1857   RELX  AXT     **,4               RESTORE LINK IR
 03173   0020 00 4 00001  1858         TRA     1,4                RETURN TO MAIN PROGRAM
                          1859  *
                          1860  * MESSAGES AND CONSTANTS PLUS STORAGE GO HERE
                          1861  *
 03174   002721512221     1862  RCTM   BCI     5,0GARBAGE COLLECTOR ENTERED AT
 03201   0 00000 0 00000  1863  RCT1                              THE CALL LOCATION IS PUT HERE
 03202   604623632143     1864         BCI     4, OCTAL.
 03206   606026644343     1865         BCI     2,  FULL WORDS                                           PAGE 042
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0039


 03210   0 00000 0 00000  1866   RCT4                             NUMBER FULL WORDS COLLECTED
 03211   602651252560     1867         BCI     1, FREE
 03212   0 00000 0 00000  1868   RCT5                             FREE STORAGE WORDS COLLECTED
 03213   606060476462     1869         BCI     3,   PUSH DOWN DEPTH
 03216   0 00000 0 00000  1870   RCT6                             DEPTH ON PUSH DOWN LIST GOES HERE
                   03210  1871   FWC   SYN     RCT4
                   03212  1872   FSC   SYN     RCT5               STORAGE SAVING SYN S
                   03216  1873  GCPDLC SYN     RCT6
 03217   0 00000 0 00000  1874   RCC                              TOTAL NUMBER OF RECLAMATION CYCLES
 03220   0 00000 0 00000  1875   RCT                              TEST CELL TO SEE IF RELOCATION WAS DON
                   03220  1876  RCRLOC SYN     RCT
 03221   0 00000 0 00000  1877   RLC                              NUMBER OF TIMES RELOCATION WAS DONE
 03222   0 00000 0 00000  1878   TFWC                             TOTAL FULL WORDS COLLECTED
 03223   0 00000 0 00000  1879   TFSC                             TOTAL FREE STORAGE COLLECTED
                   00471  1880   MONES SYN     SEVENS
                   00471  1881   MONS  SYN     SEVENS
 03224   0 00000 0 00000  1882   RCIND                            INDICATOR STORAGE
 03225   0 00000 0 00000  1883   RCBE                             TEST CELL FOR BAD EXIT
 03226   0 00000 0 00000  1884  MARYT                             TEMPORAY STORAGE
                   00402  1885  CRITWN SYN     $Q10
                          1886  *
                          1887  * BIT TABLES FOR MARKING AND SWEEPING FULL WORD SPACE
                          1888  *
 03227  +000000000020     1889         OCT     20
 03230  +000000000040     1890         OCT     40,100,200,400,1000,2000,4000,10000,20000,40000,100000
 03243  +000000200000     1891         OCT     200000,400000,1000000,2000000,4000000,10000000,20000000
 03252  +000040000000     1892         OCT     40000000,100000000,200000000,400000000,1000000000
 03257  +002000000000     1893         OCT     2000000000,4000000000,10000000000,20000000000            PAGE 043
 03263  +040000000000     1894         OCT     40000000000,100000000000,200000000000
 03266  -000000000000     1895   BIT   OCT     400000000000
                   03267  1896   MBIT  SYN     BIT+1
                   03226  1897   MBITF SYN     BIT-32
                          1898  *
                          1899  *
 03267  -377777777777     1900  VERBOS OCT     777777777777       THIS CELL NON ZERO MAKES THE RECLAIMER
                          1901  *                                 VERY TALKATIVE
 03270  +111111111111     1902  RCSGNL OCT     111111111111
 03271  +222222222222     1903  RCSGNM OCT     222222222222
 03272  +333333333333     1904  RCSGNN OCT     333333333333       PHASE SIGNAL FOR MQ
 03273   0 00000 0 00000  1905   TMLM                             TEMPORARY STORAGE
 03274  -3 00000 7 00000  1906   TMPTM SVN     ,7                 PREFIX AND TAG MASK
 03275   0 00000 0 00000  1907   MRKP                             TEMPORARY STORAGE
                          1908  *
 03276   0 74500 0 74501  1909   TEMXX         -*-1,,-*-2         PERMENANT TEMLIS ITEMS
 03277   0 00000 0 00473  1910                 BCONAT,,ECONAT
 03300   0 74476 0 74477  1911                 -*-1,,-*-2
 03301   0 16503 0 16477  1912                 C$PROBE,,C$PROEN   LAP PROTECTED AREA
 03302   0 00000 0 74475  1913                 -*-1               END OF TEMLIS
 03303   0 03707 0 03304  1914                 BEGBLK,,ENDBLK-1   FUNCTION STORAGE
                          1915  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0040


                          1916         EJECT                                                            PAGE 044
                          1917  *              STORAGE BLOCK FOR FUNCTIONS ALL OVER THE PACKAGE
                          1918  *
 03304                    1919  BEGBLK BSS     0
                          1920  *              RECLAIMER STORAGE TO BE MARKED
 03304   0 74502 0 00000  1921  TEMLIS         ,,-TEMXX
 03305   0 00000 0 00000  1922  ARYLIS                            LIST OF ACTIVE ARRAYS
 03306   0 00000 0 00000  1923   RCAC                             AC STORAGE
 03307   0 00000 0 00000  1924   RCMQ                             MQ-STORAGE
                          1925  *              CNSFWL STORAGE
 03310   0 00000 0 00000  1926   CNXT                             POINTER TO NEXT WORD ON LINEAR OBJLIST
 03311   0 00000 0 00000  1927   CNX                              POINTER TO NEXT WORD ON PROPERTY LIST
 03312   0 00000 0 00000  1928   CNFT                             POINTER TO NEXT WORD  ON PNAME LIST
 03313   0 00000 0 03313  1929   CNAT          *                  POINTER TO FIRST WORD OF CURRENT ATOM
 03314   0 00000 0 00000  1930   CNVA                             POINTER TO FIRST WORD OF PNAME LIST
                          1931  *******************************************************
                          1932  *                                 THESE CARDS ARE A BLOCK
                          1933         HEAD    A                  $ALIST AND RET IR4
 03315   0 00000 0 00000  1934  CSV
                          1935         HEAD    0                  ARGUMENT REGISTERS
 03316   0 00000 0 00000  1936  ALIST                             REFERED TO BY COMPILED FUNCTIONS
                          1937
                          1938             REGISTERS FOR FUNCTION ARGUMENTS.  ARG1 ANDARG2 ARE NOT
                          1939                  NORMALLY USED.
                          1940
 03317   0 00000 0 00000  1941  ARG1
 03320   0 00000 0 00000  1942   ARG2
 03321   0 00000 0 00000  1943   ARG3
 03322   0 00000 0 00000  1944   ARG4
 03323   0 00000 0 00000  1945   ARG5
 03324   0 00000 0 00000  1946   ARG6
 03325   0 00000 0 00000  1947   ARG7
 03326   0 00000 0 00000  1948   ARG8
 03327   0 00000 0 00000  1949   ARG9
 03330   0 00000 0 00000  1950   ARG10
 03331   0 00000 0 00000  1951  ARG11
 03332   0 00000 0 00000  1952  ARG12
 03333   0 00000 0 00000  1953  ARG13
 03334   0 00000 0 00000  1954  ARG14
 03335   0 00000 0 00000  1955  ARG15
 03336   0 00000 0 00000  1956  ARG16
 03337   0 00000 0 00000  1957  ARG17
 03340   0 00000 0 00000  1958  ARG18
 03341   0 00000 0 00000  1959  ARG19
 03342   0 00000 0 00000  1960  ARG20
                          1961
                          1962  *************************************************
                          1963         HEAD    R                  AND
 03343   0 00000 0 10772  1964   EVA1          $AND
 03344   0 00000 0 00000  1965   EVA2
 03345   0 00000 0 00000  1966   EVA9
                          1967         HEAD    A                  APPEND
 03346   0 00000 0 10762  1968  AS1            $F1
 03347   0 00000 0 00000  1969  CWR1
                          1970         HEAD    A                  APPLY                                 PAGE 045
 03350   0 00000 0 00000  1971   ASS1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0041


 03351   0 00000 0 00000  1972   ASSL
 03352   0 00000 0 00000  1973   ASSA
 03353   0 00000 0 00000  1974   AST1
 03354   0 00000 0 00000  1975   AST2
 03355   0 00000 0 00000  1976   AST3
 03356   0 00000 0 00000  1977   AST4
                          1978         HEAD    R                  COPY
 03357   0 00000 0 10430  1979   CS1           $COPYN
 03360   0 00000 0 00000  1980   CS2
                          1981         HEAD    C                  CP1
 03361   0 00000 0 10440  1982   CR1           $F12
 03362   0 00000 0 00000  1983   CR2
 03363   0 00000 0 00000  1984   CWRL
                          1985         HEAD    A                  EVCON
 03364   0 00000 0 10460  1986   ECS1          $COND
 03365   0 00000 0 00000  1987   ECS2
 03366   0 00000 0 00000  1988   ECS3
 03367   0 00000 0 00000  1989   ECS4
                          1990         HEAD    R                  EVLIS
 03370   0 00000 0 10167  1991   EVLX          EVLISL             LINK IR
 03371   0 00000 0 00000  1992   ELA                         ALIST
                          1993         HEAD    A                  EVP26
 03372   0 00000 0 00000  1994   EVS1                             IR4, BOTTOM OF PROTECTED TEMP. STORAGE
 03373   0 00000 0 00000  1995   EVSE
 03374   0 00000 0 00000  1996   EVSA
 03375  -0 00000 0 00000  1997   EVTRK MZE                        TRACE SWITCH
 03376   0 00000 0 00000  1998   EVCDR                            ARG LIST FOR SUBR ARGUMENTS
 03411                    1999   EAG11 BES     10                 ARGUMENT BLOCK FOR EVAL
 03411   0 00000 0 00000  2000   EVTDE                            CDR(E)
 03412   0 00000 0 00000  2001   EVD2
                          2002         HEAD    R                  GO SPECIAL FORM
 03413   0 00000 0 10037  2003   GOX           $GO                LINK IR
                          2004         HEAD    R                  LABP
 03414   0 00000 0 00000  2005   BFS4
                          2006         HEAD    R                  LAMP
 03415   0 00000 0 00000  2007   BFS2
 03416   0 00000 0 00000  2008   BFS3
                          2009  *
                          2010         HEAD    C                  LINK FOR COMPILED FUNCTIONS
 03417   0 00000 0 00000  2011   LNKA                             LINK STORAGE FOR AC
 03420   0 00000 0 00000  2012   LNKB                             LINK STORAGE FOR MQ
                          2013         HEAD    D                  MAPCAR
 03421   0 00000 0 07646  2014   RET           $PMAPCA
 03422   0 00000 0 00000  2015   L
 03423   0 00000 0 00000  2016   F
                          2017         HEAD    R                  MAPCON
 03424   0 00000 0 07636  2018   MCN5          -$)069B
 03425   0 00000 0 00000  2019   MCN4
 03426   0 00000 0 00000  2020   MCN3
 03427   0 00000 0 00000  2021   MCN2
                          2022         HEAD    R                  MAPLIS
 03430   0 00000 0 07626  2023   MS1           -$)069A            LINK IR STORAGE
 03431   0 00000 0 00000  2024   MS2                         ARGUMENT L                                 PAGE 046
 03432   0 00000 0 00000  2025   MS3                         FUNCTIONAL ARGUMENT
 03433   0 00000 0 00000  2026   MS4                         FINAL ANSWER
 03434   0 00000 0 00000  2027   MS5                         INTERMEDIATE ANSWER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0042


                          2028         HEAD    R                  OR
 03435   0 00000 0 07435  2029   EVR1          $OR
 03436   0 00000 0 00000  2030   EVR2
 03437   0 00000 0 00000  2031   EVR9
                          2032         HEAD    A                  PAIR
 03440   0 00000 0 00000  2033   TEM                              FIRST ARGUMENT
 03441   0 00000 0 00000  2034   LIS                              SECOND ARGUMENT
                          2035         HEAD    P                  PRINAR
 03442   0 00000 0 00000  2036   PAS3
 03443   0 00000 0 00000  2037   PAS4
                          2038         HEAD    R                  PROGRAM FEATURE
 03444   0 00000 0 07300  2039   INTRX         $PROG               LINK INDEX REGISTER
 03445   0 00000 0 00000  2040   INTB                             CURRENT STATEMENT
 03446   0 00000 0 00000  2041   INTGL                            GO LIS,(LIST OF PROGRAM POINTS) + IR2
 03447   0 00000 0 00000  2042   INTPL                            PAIR LIST
 03450   0 00000 0 00000  2043   INTGS                            GO SWITCH , NON-ZERO IF GO OR RETURN
                          2044         HEAD    I                  READ1
 03451   0 00000 0 07226  2045   RS1           $F13
 03452   0 00000 0 00000  2046   RS2
 03453   0 00000 0 00000  2047  PRINTL                            TEMPORARY STORAGE FOR PRINT OR PUNCH
                          2048         HEAD    R                  SEARCH
 03454   0 00000 0 07042  2049   SRS1          $SRCH              IR4
 03455   0 00000 0 00000  2050   SRS2                             L
 03456   0 00000 0 00000  2051   SRS3                             P
 03457   0 00000 0 00000  2052   SRS4                             F
 03460   0 00000 0 00000  2053   SRS5                             U
                          2054         HEAD    R                  SETQP
 03461   0 00000 0 07022  2055   REPS1         $SETQ
 03462   0 00000 0 00000  2056   REPV
 03463   0 00000 0 00000  2057   REPT1
                          2058         HEAD    B                  SUBLIS
 03464   0 00000 0 06726  2059   X1            $F17               IR4 OF SUBLIS
 03465   0 00000 0 00000  2060   X2                               CDR(E)
 03466   0 00000 0 00000  2061   X3                               CAR(E)
 03467   0 00000 0 00000  2062   X4                               SUBLIS(P,CDR(E))
 03470   0 00000 0 00000  2063   X5                               CDAR(J)
 03471   0 00000 0 00000  2064   P
 03472   0 00000 0 00000  2065   E
                          2066         HEAD    R                  SUBST
 03473   0 00000 0 00000  2067   SXT
 03474   0 00000 0 00000  2068   SZ
 03475   0 00000 0 00000  2069   SX
 03476   0 00000 0 00000  2070   SY
 03477   0 00000 0 00000  2071   ST
                          2072         HEAD    Q                  ADD, ETC.
 03500   0 00000 0 00000  2073   AMIR                             IR 4 STRAGE
 03501   0 00000 0 00000  2074   AMIND                            INDICATOR REGISTER STORAHE
 03502   0 00000 0 00000  2075   AMLIS                            LIST STORAGE
 03503   0 00000 0 00000  2076   AMQ                              TYPE STORAGE
                          2077  *                                 ARRAY MAKE PROGRAM
 03504   0 00000 0 00000  2078   AFAT                             ARRAY ATOM GOES HERE                  PAGE 047
 03505   0 00000 0 00000  2079   ATMP                             TEMPORARY STORAGE
                          2080         HEAD    S                  EVALQUOTE STORAGE
 03506   0 00000 0 00000  2081   EVQAN
 03507                    2082         BSS     100                EVALQUOTE BUFFER
 03653  -0 00000 0 00000  2083   EVQB  MZE                        TEST CELL FOR READ IN
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0043


                          2084         HEAD    F
                          2085  *              CHARACTER FUNCTIONS
 03654                    2086   BBPNT BSS     1                  POINTER TO REMAINDER OF LIST
 03655                    2087   PIND  BSS     1
                          2088  *              MKNO
 03656   0 00000 0 00000  2089   MKT1                             TEMP STORAGE TYPE (FIX OR FLD)
 03657                    2090         BSS     25                 ROOM FOR MORE STORAGE
 03710                    2091  ENDBLK BSS     0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0044


                          2092         EJECT
                          2093         HEAD    0                                                        PAGE 048
                          2094  * CONSW        PUTS FILL WORDS IN FULL WORD SPACE
                          2095  *
 03710   0634 00 4 03724  2096   CONSW SXA     CSWX,4             SAVE LINK IR
 03711  -0534 00 4 03727  2097   FWLOR LXD     FWORDL,4           PICK UP FULL WORD LIST
 03712  -3 00000 4 04031  2098         TXL     FWLOUT,4,0         TEST FOR NO MORE
 03713  -0600 00 0 03726  2099         STQ     CSWQ               SAVE MQ
 03714   0560 00 4 00000  2100         LDQ     0,4                PICK UP POINTER TO NEXT WORD ON FWL
 03715  -0620 00 0 03727  2101         SLQ     FWORDL             UP DATE FULL WORD LIST POINTER
 03716   0601 00 4 00000  2102         STO     0,4                PUT AC IN FULL WORD AREA
 03717  -0754 00 4 00000  2103         PXD     0,4                POINTER TO AC
 03720  -0534 00 4 03727  2104         LXD     FWORDL,4           POINTER TO NEXT AVAILABLE WORD
 03721   3 00000 4 03723  2105  LOWARY TXH     CSWO,4,**          BOTTOM FULL WORD SPACE, TEST FOR ARY
 03722  -0634 00 4 03721  2106         SXD     *-1,4              AVAILABLE LOCATION AND UPDATE SAME
 03723   0560 00 0 03726  2107   CSWO  LDQ     CSWQ               RESTORE MQ
 03724   0774 00 4 00000  2108   CSWX  AXT     **,4               RESTORE LINK IR
 03725   0020 00 4 00001  2109         TRA     1,4                EXIT
 03726   0 00000 0 00000  2110   CSWQ                             TEMPORARY STORAGE FOR MQ
 03727   0 00000 0 00000  2111  FWORDL                            POINTER TO FULL WORD LIST
                          2112  *
                          2113  * CONS         BASIC LISP FUNCTION PUTS A WORD IN FREE STORAGE
                          2114  *
 03730   0634 00 4 03747  2115   CONS  SXA     CNSX,4             SAVE LINK IR
 03731  -0534 00 4 03751  2116         LXD     $FREE,4            GET FREE STORAGE LIST POINTER
 03732   3 00000 4 03734  2117         TXH     *+2,4,0            SKIP IF NOT OUT OF FREE STORAGE
 03733   0074 00 4 04037  2118         TSX     FROUT,4            OUT OF FREE STORAGE
 03734   0771 00 0 00022  2119         ARS     18                 DECREMENT TO ADDRESS
 03735   0621 00 4 00000  2120         STA     0,4                PUT ADDRESS AWY
 03736   0500 00 4 00000  2121         CLA     0,4                GET POINTER TO NEXT WORD IN FREE
 03737   0622 00 0 03751  2122         STD     FREE               PUT IN FREE
 03740  -0620 00 4 00000  2123         SLQ     0,4                PUT DECREMENT AWAY
 03741  -0754 00 4 00000  2124         PXD     0,4                POINTER TO WORD
 03742   0774 00 4 00000  2125   CNTR1 AXT     **,4               LOW ORDER 15 BITS OF CONS COUNTER KEPT
 03743   2 00001 4 03746  2126         TIX     *+3,4,1            DECREMENT COUNT BY 1
 03744   0074 00 4 03752  2127         TSX     ARREST,4           COUNT EXHAUSTED, RELOAD OR STOP
 03745   0774 00 4 77777  2128         AXT     -1,4               RELOAD NUMBER
 03746   0634 00 4 03742  2129         SXA     CNTR1,4            PUT IN COUNTER
 03747   0774 00 4 00000  2130   CNSX  AXT     **,4               RESTORE LINK IR
 03750   0020 00 4 00001  2131         TRA     1,4                EXIT
 03751   0 00000 0 00000  2132   FREE                             POINTER TO FREE STORAGE LIST
                          2133  *
 03752  -0520 00 0 11671  2134  ARREST NZT     TCOUNT             SKIP IF COUNS COUNTER ON
 03753   0020 00 4 00001  2135         TRA     1,4                OTERWISE RETURN
 03754   0601 00 0 04107  2136         STO     CNTM               SAVE AC
 03755   0500 00 0 04106  2137         CLA     CNTS               GET REST OF COUNTER
 03756   0100 00 0 03763  2138         TZE     AWHOA              GO TO ERROR CALL IF EXHAUSTED
 03757   0402 00 0 04110  2139         SUB     CTG                DECREMENT BY 32,768
 03760   0601 00 0 04106  2140         STO     CNTS               UPDATE COUNTER
 03761   0500 00 0 04107  2141         CLA     CNTM               RESTORE AC
 03762   0020 00 4 00001  2142         TRA     1,4                E7IT TO RELOAD CETR1
                          2143  *
 03763   0634 00 0 11671  2144   AWHOA SXA     TCOUNT,0           DESACTIVATE THE CONS COUNTER
 03764   0500 00 0 04100  2145         CLA     CNTST              PICK UP  INITIAL COUNT
 03765   0560 00 0 00475  2146         LDQ     $FIXD              PICK UP $FIX                          PAGE 049
 03766  -0634 00 4 01562  2147         SXD     $ERROR,4           SAVE LINK IR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0045


 03767   0774 00 4 00010  2148         AXT     8,4                8 SPARE CONSES FOR $MKNO
 03770   0634 00 4 03742  2149         SXA     CNTR1,4
 03771   0074 00 4 12636  2150         TSX     $MKNO,4            MAKE THE COUNT A NUMBER
 03772   0074 00 4 01563  2151         TSX     $ERROR+1,4         GO TO ERROT
 03773   542660600154     2152         BCI     1,*F  1*           CONS COUNTER TRAP
                          2153  *
                          2154  * SPEAK        TURNS THE CONTENTS OF THE CONS COUNTER INTO A FIXED POINT
                          2155  *              NUMBER.
                          2156  *
 03774   0500 00 0 00457  2157   SPEAK CLA     $AMASK             GET ADDRESS MASK
 03775  -0320 00 0 03742  2158         ANA     CNTR1              PICK UP 15 LOW ORDER BITS
 03776  -0501 00 0 04106  2159         ORA     CNTS               OR IN REST OF COUNT
 03777   0601 00 0 04107  2160         STO     CNTM               SAVE CURRENT VALUE
 04000   0500 00 0 04100  2161         CLA     CNTST              PICK UP INITIAL VALUE
 04001   0402 00 0 04107  2162         SUB     CNTM               SUBSTRACT CURRENT VALUE TO GET NUMBER
 04002   0560 00 0 00475  2163         LDQ     $FIXD              OF CONSES.  PUT $FIX IN MQ
 04003   0020 00 0 12636  2164         TRA     $MKNO              MAKE THE RESULT A NUMBER
                          2165  *
                          2166  * BLOCKR       BLOCK RESERVATION ROUTING USED IN DECLARING ARRAYS.
                          2167  *
 04004   0634 00 4 04026  2168  BLOCKR SXA     BLKX,4             SAVE LINK IR
 04005  -0625 00 0 04056  2169         STL     NROOM              SET UP TOO BIG TEST CELL
 04006   0621 00 0 04022  2170         STA     BLKB               BE RESERVED
 04007  -0534 00 4 02304  2171         LXD     $ORG,4             ADDRESSOF FIRST REGISTER AVAIALABER
 04010   0754 00 4 00000  2172   BKOR  PXA     0,4                ADDRESS OF FIRST REGISTER FOR ARRAYS
 04011   0401 00 0 04022  2173         ADM     BLKB               ADDRESS OF END OF BLOCK
 04012   0621 00 0 04023  2174         STA     BLKC               INITIALIZE STZ LOOP TO CLEAN OUT BLOCK
 04013   0734 00 4 00000  2175         PAX     0,4
 04014   0402 00 0 00371  2176         SUB     $Q1
 04015   0621 00 0 04030  2177         STA     BLKBB
 04016  -3 00000 4 04044  2178  BLKETP TXL     BLKOUT,4,**        BOTTOM BIT TABLE AR, GO IF WONT FIT
 04017  -0634 00 4 02304  2179         SXD     $ORG,4             UPDATE ORG
 04020   0500 00 4 77777  2180         CLA     -1,4               POINTER TO NEXT WORD ON FULL WORD LIST
 04021   0622 00 0 03727  2181         STD     FWORDL             UPDATE FULL WORD LIST
 04022   0774 00 4 00000  2182   BLKB  AXT     **,4               LENGTH OF BLOCK
 04023   0600 00 4 00000  2183   BLKC  STZ     **,4               ZEROP THE BLOCK
 04024   2 00001 4 04023  2184         TIX     *-1,4,1
 04025   0500 00 0 04030  2185         CLA     BLKBB              GET ANSWER
 04026   0774 00 4 00000  2186   BLKX  AXT     **,4               RESTORE LINK IR
 04027   0020 00 4 00001  2187         TRA     1,4
 04030   0 00000 0 00000  2188  BLKBB                             ANSWER STORED HERE
                          2189  *
                          2190  *               VAROUIS ENTRANCES TO THE RECLAIMER
                          2191  *
                          2192  *               FWLOUT - OUT OF FULL WORD LIST
 04031   0601 00 0 03726  2193  FWLOUT STO     CSWQ               SAVE FULL WORD
 04032  -0754 00 0 00000  2194         PXD     0,0                ZERO AC
 04033   0600 00 0 03220  2195         STZ     RCRLOC             SIGNAL NO RELOCATION IS NECESSARY
 04034   0074 00 4 02522  2196         TSX     RECLAM,4           DO THE WORK
 04035   0500 00 0 03726  2197         CLA     CSWQ               RESTORE AC
 04036   0020 00 0 03711  2198         TRA     FWLOR              RETURN TO CONSW
                          2199  *              FROUT - OUT OF REE STORAGE
 04037   0634 00 4 04042  2200   FROUT SXA     FRX,4              SAVE LINK IR                          PAGE 050
 04040   0600 00 0 03220  2201         STZ     RCRLOC             SIGNAL NO RELOCATION NECESSARY
 04041   0074 00 4 02522  2202         TSX     RECLAM,4           DO THE WORK
 04042   0774 00 4 00000  2203   FRX   AXT     **,4               RESTORE LINK OR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0046


 04043   0020 00 4 77776  2204         TRA     -2,4               NON-STANDARD EXIT
                          2205  *              BLKOUT - OUT OF FULL WORD SPACE FOR ARRAYS
 04044  -0625 00 0 03220  2206  BLKOUT STL     RCRLOC             SIGNAL RELOCATION NECESSARY
 04045  -0754 00 0 00000  2207         PXD     0,0                CLEAR AC
 04046  -0520 00 0 04056  2208         NZT     NROOM              FALL THROUGH ON SECOND CONSECUTIVE ENT
 04047   0020 00 0 04026  2209         TRA     BLKX               EXIT FROM BLOCKR ROUTINE
 04050   0074 00 4 02522  2210         TSX     RECLAM,4           DO THE WORK
 04051   0500 00 0 03727  2211         CLA     FWORDL             PICK UP POINTER TO FIRST AVAILABLE WOR
 04052   0622 00 0 03721  2212         STD     LOWARY             SET UP LOWARY
 04053   0737 00 4 00000  2213         PAC     0,4                COMPLEMENT INTO IR 4
 04054   0600 00 0 04056  2214         STZ     NROOM              SET UP TOO BIG TEST CELL
 04055   0020 00 0 04010  2215         TRA     BKOR               DO BLOCK RESERVATION
 04056   0 00000 0 00000  2216  NROOM
                          2217  *
                          2218  *
                          2219  * COUNT        A FUNCTION OF 1 ARGUMENT ( AFIXED POINT NUMBER) TURNS ON
                          2220  *              THE CONS COUNTRE AND LOADS IT WITH THAT NUMBER
                          2221  *              A LOAD OF NIL  SIMPLY LEAVES THE PREVIOUS CONTENTS IN THE
                          2222  *              COUNTER
                          2223  *
 04057  -0625 00 0 11671  2224   COUNT STL     TCOUNT             ACTIVATE THE CONS COUNTER
 04060  -0100 00 0 04064  2225         TNZ     CNTA               GO IF ARUGMENT S NOT NULL
 04061   0500 00 0 04107  2226         CLA     CNTM               OLD VALUE OF CNTR1
 04062   0621 00 0 03742  2227         STA     CNTR1              PUT IT THERE
 04063   0020 00 0 04076  2228         TRA     CNTB               CLEAR AC AND EXIT
 04064   0634 00 4 04074  2229   CNTA  SXA     CNTX,4             RELOAD COUNTER WITH FIXED POINT ARG.
 04065   0634 00 2 04075  2230         SXA     CNTY,2             SAVE IDNEX REGISTERS
 04066  -0734 00 2 00000  2231         PDX     0,2                ARGUMENT TO INDEX 2
 04067   0074 00 4 13075  2232         TSX     FIXVAL,4           EVALUATE AS A FIXED POINT NUMBER
 04070   0601 00 0 04100  2233         STO     CNTST              SET INITIAL VALUE CELL
 04071   0621 00 0 03742  2234         STA     CNTR1              LOW ORDER 15 BITS TO CNTR1
 04072  -0320 00 0 00465  2235         ANA     PDTMSK             MASK OUT LOW ORDER 15 BITS
 04073   0601 00 0 00465  2236         STO     PDTMSK             STORE REMAINDER IN H IGH ORDER CELL
 04074   0774 00 4 00000  2237   CNTX  AXT     **,4               RESTORE INDEX REGISTERS
 04075   0774 00 2 00000  2238   CNTY  AXT     **,2
 04076  -0754 00 0 00000  2239   CNTB  PXD     0,0                GIVE VALUE OF NIL
 04077   0020 00 4 00001  2240         TRA     1,4                EXIT
 04100   0 00000 0 00000  2241   CNTST                            INTAL VALUE OF COUNT
                          2242  *
                          2243  * UNCONT       DEACTIVATE THE CONS COUNTER
                          2244  *
 04101   0634 00 0 11671  2245  UNCONT SXA     TCOUNT,0           DEACTIVATE THE CONS COUNTER
 04102   0500 00 0 03742  2246         CLA     CNTR1              GET CURENT CONTENST OF COUNTER
 04103   0621 00 0 04107  2247         STA     CNTM               SAVE IN TEMP STORAGE
 04104  -0754 00 0 00000  2248         PXD     0,0                GIVE VALUE OF NULL
 04105   0020 00 4 00001  2249         TRA     1,4                EXIT
                          2250  *
 04106   0 00000 0 00000  2251   CNTS                             HIGH ORDER BITS OF CONS COUNTER
 04107   0 00000 0 00000  2252   CNTM                             TEMPORARY STORAGE
 04110   0 00000 1 00000  2253   CTG           ,1                 LOW ORDER BIT OF HIGH ORDER 20 BITS
                          2254  *                                                                       PAGE 051
                          2255  *
                          2256         HEAD E
                          2257  *      DECON AND NUMNAM
                          2258  *
                          2259  *      DECON TAKES A DECIMAL NUMBER (+ OR -) AS INPUT IN THE AC AND
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0047


                          2260  *      GIVES AS OUTPUT THE BCD REPRESENTATION OF THAT NUMBER.  LO ORDER
                          2261  *      BITS ARE IN AC. HI ORDER BITS IN MQ.  LEADING ZEROS ARE
                          2262  *      SUPPRESSED.  IF THERE ARE NO HI ORDER BITS, MQ IS ZERO.  THE
                          2263  *      P BIT AND SIGN OF AC WILL AGREE.
                          2264  *
                          2265  *      NUMNAM TAKES AS INPUT A POINTER TO A DECIMAL INTEGER (+ OR 0) AND
                          2266  *      CAUSES THE BCD REPRESENTATION OF THAT NUMBER TO BE PRINTER, WITH
                          2267  *      LEADING ZEROS SUPPRESSED.
                          2268
                          2269
 04111   0600 00 0 77662  2270   DECON STZ     DETS1              SIGNAL FOR DECON EXIT
 04112   0600 00 0 77664  2271         STZ     DELOD              SET LO ORDER DIGITS TO ZERO
 04113   0634 00 4 04176  2272         SXA     DEIR4,4            SAVE IR4
 04114   0020 00 0 04121  2273         TRA     DE7
                          2274
 04115  -0625 00 0 77662  2275  NUMNAM STL     DETS1              SIGNAL FOR NUMNAM EXIT
 04116   0634 00 4 04176  2276         SXA     DEIR4,4            SAVE IR4
 04117  -0734 00 4 00000  2277         PDX     ,4                 PLACE INPUT NUMBER IN AC
 04120   0500 00 4 00000  2278         CLA     0,4
 04121  -0625 00 0 77663  2279   DE7   STL     DETS2              SIGNAL FOR NO HI- ORDER DIGITS
 04122   0601 00 0 77667  2280         STO     DEINP              SAVE INPUT FOR SIGN TEST
 04123   0760 00 0 00012  2281         DCT                        SHUT OFF DIVIDE CHECK LIGHT
 04124   0761 00 0 00000  2282         NOP
 04125  -0130 00 0 00000  2283         XCL                        NUMBER TO MQ
 04126   0774 00 4 00044  2284         AXT     36,4               INDEX FOR SHIFTING
 04127   0600 00 0 77665  2285   DE4   STZ     DEDIG              DEDIG WILL RECIEVE DIGITS
                          2286
 04130  -0754 00 0 00000  2287   DE1   PXD     ,0
 04131   0221 00 0 00402  2288         DVP     $Q10               PUT ANOTHER DIGIT IN DEDIG
 04132   0767 00 4 00044  2289         ALS     36,4
 04133  -0602 00 0 77665  2290         ORS     DEDIG
 04134  -0600 00 0 77666  2291         STQ     DEMQ               IF QUOTIENT ZERO, CONVERSION
 04135  -0520 00 0 77666  2292         NZT     DEMQ                 IS DONE
 04136   0020 00 0 04144  2293         TRA     DE2
 04137   2 00006 4 04130  2294         TIX     DE1,4,6
                          2295
 04140   0500 00 0 77665  2296         CLA     DEDIG              STORE LO ORDER DIGITS
 04141   0601 00 0 77664  2297         STO     DELOD
 04142   0600 00 0 77663  2298         STZ     DETS2              SIGNAL THAT HI ORDER DIGITS EXIST
 04143   1 00036 4 04127  2299         TXI     DE4,4,30           RESTORE SHIFT INDEX AND LOOP AGAIN
                          2300
 04144   0560 00 0 77667  2301   DE2   LDQ     DEINP              SEE IF MINUS SIGN NEEDED
 04145   0162 00 0 04157  2302         TQP     DEV
 04146   2 00006 4 04154  2303         TIX     DEQ,4,6
                          2304
                          2305  *      MINUS SIGN BEGINS A NEW WORD
 04147   0500 00 0 77665  2306         CLA     DEDIG              STORE LO ORDER DIGITS
 04150   0601 00 0 77664  2307         STO     DELOD
 04151   0600 00 0 77663  2308         STZ     DETS2              SIGNAL THAT HI ORDER DIGITS EXIST     PAGE 052
 04152   0600 00 0 77665  2309         STZ     DEDIG              CLEAR DIGITS REGISTER
 04153   0774 00 4 00044  2310         AXT     36,4               RESTORE SHIFT INDEX
 04154   0500 00 0 00423  2311   DEQ   CLA     DEMIN              INSERT MINUS SIGN
 04155   0767 00 4 00044  2312         ALS     36,4
 04156  -0602 00 0 77665  2313         ORS     DEDIG
                          2314
 04157   0760 00 0 00012  2315  DEV    DCT
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0048


 04160   0074 00 4 01676  2316         TSX     $DCT,4             MACHINE ERROR
 04161   0520 00 0 77662  2317         ZET     DETS1              SEE WHICH EXIT TO USE
 04162   0020 00 0 04200  2318         TRA     DE5
                          2319
                          2320  *      DECON EXIT
 04163  -0500 00 0 77665  2321         CAL     DEDIG              PICK UP DIGITS
 04164  -3 00006 4 04170  2322         TXL     DEJ,4,6            TRANSFER IF FULL WORD OF DIGITS
 04165  -0765 00 4 00052  2323         LGR     42,4               INSERT LEADING BLANKS
 04166  -0500 00 0 00472  2324         CAL     BLANKS
 04167  -0763 00 4 00052  2325         LGL     42,4
 04170   0560 00 0 77664  2326   DEJ   LDQ     DELOD              LO ORDER DIGITS OR ZERO -
 04171  -0520 00 0 77663  2327         NZT     DETS2                SEE WHICH
 04172  -0130 00 0 00000  2328         XCL                        LO ORDER DIGITS TO AC
 04173  -0760 00 0 00001  2329         PBT                        SIGN AND P BIT MUST AGREE
 04174   0020 00 0 04176  2330         TRA     *+2
 04175  -0760 00 0 00003  2331         SSM
 04176   0774 00 4 00000  2332   DEIR4 AXT     **,4               RESTORE IR4 AND EXIT
 04177   0020 00 4 00001  2333         TRA     1,4
                          2334
                          2335  *      NUMNAM EXIT
 04200  -0500 00 0 77665  2336   DE5   CAL     DEDIG              INSERT TRAILING SEVENS INTO
 04201   0560 00 0 00471  2337         LDQ     SEVENS               DIGITS WORD
 04202  -0765 00 4 00052  2338         LGR     42,4
 04203   0131 00 0 00000  2339         XCA
 04204   0074 00 4 05110  2340         TSX     $PRIN2,4           PRINT WORD OF DIGITS
 04205   0520 00 0 77663  2341         ZET     DETS2              SEE IF ANOTHER WORD MUST
 04206   0020 00 0 04211  2342         TRA     DEY                  BE PRITNER
 04207  -0500 00 0 77664  2343         CAL     DELOD              PRINT LO ORDER DIGITS
 04210   0074 00 4 05110  2344         TSX     $PRIN2,4
                          2345
 04211   0534 00 4 04176  2346   DEY   LXA     DEIR4,4            RESTORE IR4,  CLEAR AC, AND EXIT
 04212  -0754 00 0 00000  2347         PXD     ,0
 04213   0020 00 4 00001  2348         TRA     1,4
                          2349
                          2350
                          2351
                   00423  2352   DEMIN SYN     $QO40               BCD MINUS SIGN
 04214                    2353   DEORG BSS
 77662                    2354         ORG     COMMON
 77662                    2355   DETS1 BSS     1                  ZERO MEANS DECON EXIT
 77663                    2356   DETS2 BSS     1                  ZERO MEANS HI ORDER DIGITS
 77664                    2357   DELOD BSS     1                  LO ORDER DIGITS
 77665                    2358   DEDIG BSS     1                  CURRENT DIGITS
 77666                    2359   DEMQ  BSS     1                  MQ FOR ZERO TEST
 77667                    2360   DEINP BSS     1                  INPUT NUMBER
 04214                    2361         ORG     DEORG
                          2362                                                                          PAGE 053
                          2363  *      THIS ROUTINE USES COMMON, SEVENS, $PRIN2, BLANKS, AND $Q10
                          2364  *
                          2365
                          2366         HEAD R
                          2367                  MAPLIS       NEW, FASTER VERSION WITH OPEN SAVE AND CONS
                          2368  *
 04214   0100 00 4 00001  2369  MAPLIS TZE     1,4           NULL(L) = NIL
 04215  -0634 00 4 03430  2370         SXD     MS1,4         SAVE LINK IR
 04216  -0534 00 4 02317  2371         LXD     $CPPI,4       GET PDL POINTER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0049


 04217   1 77772 4 04220  2372         TXI     *+1,4,-6           SAVE TOTAL OF 6 ITEMS
 04220   0522 00 0 02414  2373         XEC     $ENDPDL            TEST FOR OUT OF PUSH DOWN LIST
 04221  -0634 00 4 02317  2374         SXD     $CPPI,4       UPDATE PDL POINTER LOCATION
 04222   0601 00 0 03317  2375         STO     $ARG1         SAVE AC
 04223   0500 00 0 03430  2376         CLA     MS1           START SAVING    LINK IR
 04224   0601 00 4 77772  2377         STO     -6,4
 04225   0500 00 0 03431  2378         CLA     MS2           L ARGUMENT
 04226   0601 00 4 77773  2379         STO     -5,4
 04227   0500 00 0 03432  2380         CLA     MS3           FUNCTIONAL ARGUMENT
 04230   0601 00 4 77774  2381         STO     -4,4
 04231   0500 00 0 03433  2382         CLA     MS4           FINAL ANSWER
 04232   0601 00 4 77775  2383         STO     -3,4
 04233   0500 00 0 03434  2384         CLA     MS5           INTERMEDIATE ANSWER
 04234   0601 00 4 77776  2385         STO     -2,4
 04235   0500 00 0 04344  2386         CLA     MS6                SAVE MARKER
 04236   0601 00 4 77777  2387         STO     -1,4
 04237   0500 00 0 03317  2388         CLA     $ARG1         SAVING ALL DONE, RESTORE AC
 04240   0601 00 0 03431  2389         STO     MS2           PUT L ARGUMENT AWAY
 04241  -0600 00 0 03432  2390         STQ     MS3           PUT FUNCTION ARGUMENT AWAY
 04242   0162 00 0 04334  2391         TQP     CMP           IF TRANSFER, F NOT A TXL, SO GO TO COMPAT
 04243   0074 00 4 03432  2392         TSX     MS3,4         EXECUTE FUNCTIONAL ARGUMENT
 04244  -0534 00 4 03751  2393   MAIN  LXD     $FREE,4       START OPEN CONS
 04245   3 00000 4 04247  2394         TXH     *+2,4,0       TEST FOR OUT OF FREE STORAGE
 04246   0074 00 4 04037  2395         TSX     $FROUT,4      GO IF NO MORE FS
 04247   0771 00 0 00022  2396         ARS     18            PUT F(L) IN ADDRESS
 04250   0560 00 4 00000  2397         LDQ     0,4           GET NEXT REGISTER ON FSL
 04251  -0620 00 0 03751  2398         SLQ     $FREE         UPDATE FREE
 04252   0601 00 4 00000  2399         STO     0,4           CONS(F(L),NIL)
 04253  -0634 00 4 03433  2400         SXD     MS4,4         FINAL ANSWER
 04254  -0634 00 4 03434  2401         SXD     MS5,4         INT. ANSWER
 04255   0534 00 4 03742  2402         LXA     $CNTR1,4           PICK UP CONS COUNTER
 04256   2 00001 4 04261  2403         TIX     *+3,4,1            DECREMENT BY 1
 04257   0074 00 4 03752  2404         TSX     ARREST,4           GO IF OUT OF COUNTER
 04260   0774 00 4 77777  2405         AXT     -1,4               RELOAD OF -1 FOR COUNTER
 04261   0634 00 4 03742  2406         SXA     $CNTR1,4           RESTORE CONS COUNTER
 04262  -0534 00 4 03431  2407   MLOP1 LXD     MS2,4         MAUN LOOP,  GET L
 04263   0500 00 4 00000  2408         CLA     0,4           TAKE CDR(L)
 04264  -0734 00 4 00000  2409         PDX     0,4
 04265   3 00000 4 04306  2410         TXH     MPRG1,4,0     IF NOT NULL GO ON TO MAIN PROGRAM
 04266   0500 00 0 03433  2411         CLA     MS4           ALL DONE, PICK UP FINAL ANSWER
 04267  -0534 00 4 02317  2412         LXD     $CPPI,4       START OPEN UNSAVE BY GETTING PDL POINTER
 04270   0560 00 4 77776  2413         LDQ     -2,4
 04271  -0600 00 0 03434  2414         STQ     MS5
 04272   0560 00 4 77775  2415         LDQ     -3,4
 04273  -0600 00 0 03433  2416         STQ     MS4                                                      PAGE 054
 04274   0560 00 4 77774  2417         LDQ     -4,4
 04275  -0600 00 0 03432  2418         STQ     MS3
 04276   0560 00 4 77773  2419         LDQ     -5,4
 04277  -0600 00 0 03431  2420         STQ     MS2
 04300   0560 00 4 77772  2421         LDQ     -6,4
 04301  -0600 00 0 03430  2422         STQ     MS1
 04302   1 00006 4 04303  2423         TXI     *+1,4,6            RESTORE PDL COUNTER
 04303  -0634 00 4 02317  2424         SXD     $CPPI,4       SET CPPI
 04304  -0534 00 4 03430  2425         LXD     MS1,4         PICK UP LINK IR
 04305   0020 00 4 00001  2426         TRA     1,4           RETURN
                          2427  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0050


 04306  -0754 00 4 00000  2428   MPRG1 PXD     0,4           MAIN PROGRAM  PUT L IN AC
 04307   0601 00 0 03431  2429         STO     MS2           SAVE IN L ARGUMENT REGISTER
 04310  -0534 00 4 03432  2430         LXD     MS3,4         SEE IF FUNCTIONAL ARG IS S EXPRESSION
 04311   3 00012 4 04340  2431         TXH     CMP1,4,10     GO IF S EXPRESSION
 04312   0074 00 4 03432  2432         TSX     MS3,4         EXECUTE FUNCTION ARGUMENT (TXL INS.)
 04313  -0534 00 4 03751  2433   MAIN1 LXD     $FREE,4       START OPEN CONS
 04314   3 00000 4 04316  2434         TXH     *+2,4,0       TEST FOR OUT OF FREE STORAGE
 04315   0074 00 4 04037  2435         TSX     $FROUT,4      GO IF OUT
 04316   0560 00 4 00000  2436         LDQ     0,4           PICK UP POINTER TO NEXT FREE REGISTER
 04317  -0620 00 0 03751  2437         SLQ     $FREE         UPDATE FREE
 04320   0771 00 0 00022  2438         ARS     18            ITEM TO ADDRESS
 04321   0601 00 4 00000  2439         STO     0,4           CONS(F(L),NIL)
 04322  -0754 00 4 00000  2440         PXD     0,4           ANSWER TO AC
 04323   0534 00 4 03742  2441         LXA     $CNTR1,4           PICK UP CONS COUNTER
 04324   2 00001 4 04327  2442         TIX     *+3,4,1            DECREMENT BY 1
 04325   0074 00 4 03752  2443         TSX     ARREST,4           GO IF OUT OF COUNTER
 04326   0774 00 4 77777  2444         AXT     -1,4               RELOAD OF -1 FOR COUNTER
 04327   0634 00 4 03742  2445         SXA     $CNTR1,4           RESTORE CONS COUNTER
 04330  -0534 00 4 03434  2446         LXD     MS5,4         PICK UP LAST ANSWER
 04331   0622 00 4 00000  2447         STD     0,4           CONCATENATE THE ANSWERS BY RPLACD
 04332   0601 00 0 03434  2448         STO     MS5           UPDATE INT. ANSWER
 04333   0020 00 0 04262  2449         TRA     MLOP1         GO TO HEAD OF MAIN LOOP
                          2450  *
 04334  -0620 00 0 04336  2451   CMP   SLQ     *+2           COMPAT CALL FOR S EXPRESSION FUN. ARG.
 04335   0074 00 4 12007  2452         TSX     COMPAT,4
 04336   0 00000 0 00001  2453                 1,,**         FUNCTION OF 1 ARGUMENT
 04337   0020 00 0 04244  2454         TRA     MAIN          GO BACK TO MAIN PROGRAM
                          2455  *
 04340  -0634 00 4 04342  2456   CMP1  SXD     *+2,4         ANOTHER COMPAT CALL
 04341   0074 00 4 12007  2457         TSX     COMPAT,4
 04342   0 00000 0 00001  2458                 1,,**
 04343   0020 00 0 04313  2459         TRA     MAIN1         RETURN TO MAIN PROGRAM
                          2460  *
 04344  -3 03436 0 02371  2461   MS6   TXL     $END5,,MS5+2       SAVE 5 ITEMS
                          2462
                          2463             FUNCTION COPY
                          2464             COPY(L)= (L=0 YIELDS 0, CAR(L)=-1 YIELDS L,
                          2465                OTHERWISE CONS(COPY(CAR(L)),COPY(CDR(L))))
                          2466         HEAD R
 04345   0100 00 4 00001  2467   COPY  TZE 1,4               L=0
 04346  -0634 00 4 03357  2468         SXD CS1,4
 04347  -0734 00 4 00000  2469         PDX 0,4               L
 04350  -0634 00 4 04377  2470         SXD CT1,4             L                                          PAGE 055
 04351   0500 00 4 00000  2471         CLA 0,4               CWR(L)
 04352   0734 00 4 00000  2472         PAX 0,4               CAR(L)
 04353  -3 77776 4 04357  2473         TXL C1,4,-2           CAR(L)=-1
 04354   0500 00 0 04377  2474         CLA CT1
 04355  -0534 00 4 03357  2475         LXD CS1,4
 04356   0020 00 4 00001  2476         TRA 1,4
 04357   0074 00 4 02312  2477   C1    TSX $SAVE,4
 04360  -3 03362 0 02377  2478         TXL     $END2,,CS2+2  SAVE 2 ITEMS
 04361  -0534 00 4 04377  2479         LXD CT1,4             L
 04362   0500 00 4 00000  2480         CLA 0,4               CWR(L)
 04363   0601 00 0 03360  2481         STO CS2
 04364  -0320 00 0 00000  2482         ANA DECM              CDR(L)
 04365   0074 00 4 04345  2483         TSX COPY,4            COPY(CDR(L))
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0051


 04366   0534 00 4 03360  2484         LXA CS2,4             CAR(L)
 04367   0601 00 0 03360  2485         STO CS2               COPY(CDR(L))
 04370  -0754 00 4 00000  2486         PXD 0,4
 04371   0074 00 4 04345  2487         TSX COPY,4            COPY(CAR(L))
 04372   0560 00 0 03360  2488         LDQ CS2
 04373   0074 00 4 03730  2489         TSX $CONS,4
 04374   0074 00 4 02326  2490         TSX UNSAVE,4
 04375  -0534 00 4 03357  2491         LXD CS1,4
 04376   0020 00 4 00001  2492         TRA 1,4
 04377   0 00000 0 00000  2493   CT1
                   00000  2494   DECM  SYN     $DMASK
                          2495
                          2496             FUNCTION SEARCH
                          2497             SEARCH(L,P,F,U)=(L=0 YIELDS U,P(L) YIELDS F(L),
                          2498                 OTHERWISE SEARCH (CDR(L),P,F,U))
                          2499
                          2500         HEAD R
 04400  -0634 00 4 03454  2501  SEARCH SXD     SRS1,4
 04401   0074 00 4 02312  2502         TSX $SAVE,4
 04402  -3 03462 0 02371  2503         TXL     $END5,,SRS5+2 SAVE 5 ITEMS
 04403  -0600 00 0 03456  2504         STQ SRS3              P
 04404   0100 00 0 04445  2505   SR3   TZE     SR4
 04405   0601 00 0 03455  2506         STO SRS2              L
 04406   0560 00 0 03321  2507         LDQ $ARG3             F
 04407  -0600 00 0 03457  2508         STQ SRS4
 04410   0560 00 0 03322  2509         LDQ $ARG4             U
 04411  -0600 00 0 03460  2510         STQ SRS5
 04412  -0534 00 4 03456  2511         LXD SRS3,4
 04413   3 00012 4 04416  2512         TXH *+3,4,10
 04414   0074 00 4 03456  2513         TSX SRS3,4
 04415   0020 00 0 04421  2514         TRA *+4
 04416  -0634 00 4 04420  2515         SXD *+2,4
 04417   0074 00 4 12007  2516         TSX COMPAT,4
 04420   0 00000 0 00001  2517             1,,**
 04421   0100 00 0 04435  2518         TZE SR1               NOT P(L)
 04422   0500 00 0 03455  2519         CLA SRS2              L
 04423  -0534 00 4 03457  2520         LXD SRS4,4
 04424   3 00012 4 04427  2521         TXH *+3,4,10
 04425   0074 00 4 03457  2522         TSX SRS4,4
 04426   0020 00 0 04432  2523         TRA *+4
 04427  -0634 00 4 04431  2524         SXD *+2,4                                                        PAGE 056
 04430   0074 00 4 12007  2525         TSX COMPAT,4
 04431   0 00000 0 00001  2526             1,,**
 04432   0074 00 4 02326  2527         TSX UNSAVE,4
 04433  -0534 00 4 03454  2528         LXD SRS1,4
 04434   0020 00 4 00001  2529         TRA 1,4
 04435   0500 00 0 03460  2530   SR1   CLA SRS5              I YIELDS
 04436   0601 00 0 03322  2531         STO $ARG4             U
 04437   0500 00 0 03457  2532         CLA SRS4
 04440   0601 00 0 03321  2533         STO $ARG3             F
 04441  -0534 00 4 03455  2534         LXD SRS2,4            L
 04442   0500 00 4 00000  2535         CLA 0,4
 04443  -0320 00 0 00000  2536         ANA DECM              CDR(L)
 04444   0020 00 0 04404  2537         TRA     SR3
 04445   0074 00 4 02326  2538   SR4   TSX     UNSAVE,4
 04446  -0534 00 4 03322  2539         LXD $ARG4,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0052


 04447   3 00012 4 04452  2540         TXH     SRCMPT,4,10
 04450  -0534 00 4 03454  2541         LXD     SRS1,4
 04451   0020 00 0 03322  2542         TRA     $ARG4
                          2543  *
 04452   0600 00 0 03321  2544  SRCMPT STZ     $ARG3
 04453   0560 00 0 03321  2545         LDQ     $ARG3
 04454   0074 00 4 03730  2546         TSX     $CONS,4
 04455   0131 00 0 00000  2547         XCA
 04456   0500 00 0 03322  2548         CLA     $ARG4
 04457  -0534 00 4 03454  2549         LXD     SRS1,4
 04460   0020 00 0 14663  2550         TRA     $APPLY
                          2551
                          2552             FUNCTION EQUAL
                          2553             EQUAL(L1,L2)=(L1=L2 YIELDS1,L1=OVL2=0 YIELDS 0,
                          2554             CAR(L1)=-1VCAR(L2)=-1 YIELDS 0, OTHERWISE
                          2555                 EQUAL(CAR(L1,(CARL2))AEQUAL(CDR(L1),CDR(L2)))
                          2556
                          2557         HEAD L
                          2558  * EQUAL        A FUNCTION OF 2 ARGUMENTS DETERMINES WETHER 2 LIST
                          2559  *              STRUCTURES ARE EQUIVELENT. REPROGRAMMED 5 OCTOBER 1960
                          2560  *              TO MAKE USE OF THE NUMBER CONVENTIONS CURRENTLY IN USE.
                          2561  *
 04461  -0634 00 4 04600  2562   EQUAL SXD     EQXR,4             SAVE LINK IR
 04462  -0600 00 0 04602  2563         STQ     EQL2               SAVE ARGUMENT 2
 04463   0601 00 0 04601  2564         STO     EQL1               SAVE ARGUMENT 1
 04464   0402 00 0 04602  2565   EQLP  SUB     EQL2               EQ TEST
 04465   0100 00 0 04516  2566         TZE     EQT                TWO LIST ARE EQ. EXIT TRUE
 04466  -0520 00 0 04601  2567         NZT     EQL1               SKIP IF L1 NON NULL
 04467   0020 00 0 04521  2568         TRA     EQF                L1 NULL BUT NOT EQ L2, EXIT FALSE
 04470  -0520 00 0 04602  2569         NZT     EQL2               NULL TEST L2
 04471   0020 00 0 04521  2570         TRA     EQF                L2 NULL BUT NOT EQ  L1, EXIT FALSE
 04472  -0534 00 4 04602  2571         LXD     EQL2,4             PICK UP LIST 2
 04473   0500 00 4 00000  2572         CLA     0,4                GET NEXT ELEMENT
 04474   0622 00 0 04602  2573         STD     EQL2               SAVE CDR OF LIST 2
 04475   0734 00 4 00000  2574         PAX     0,4                CAR OF LIST 2
 04476   3 77776 4 04524  2575         TXH     EQA,4,-2           GO IF ATOM
 04477  -0754 00 4 00000  2576         PXD     0,4                CAR OF LIST TO DECREMENT OF AC
 04500   0131 00 0 00000  2577         XCA                        SWITCH TO MQ
 04501  -0534 00 4 04601  2578         LXD     EQL1,4             PICK UP LIST 1                        PAGE 057
 04502   0500 00 4 00000  2579         CLA     0,4                GET NEXT ELEMENT
 04503   0622 00 0 04601  2580         STD     EQL1               SAVE CDR OF LIST 1
 04504   0734 00 4 00000  2581         PAX     0,4                CAR OF LIST TO IR 4
 04505   3 77776 4 04521  2582         TXH     EQF,4,-2           GO TO FALSE EXIT IF THIS IS AN ATOM
 04506  -0754 00 4 00000  2583         PXD     0,4                CAR OF LIST TO DECREMENT OF AC
 04507   0074 00 4 02312  2584         TSX     $SAVE,4            SAVE CALL
 04510  -3 04604 0 02375  2585         TXL     $END3,,EQL2+2      SAVE 3 ITEMS
 04511   0074 00 4 04461  2586         TSX     $EQUAL,4           TEST FOR EQUALITY IN CAR  DIRECTION
 04512   0074 00 4 02326  2587         TSX     UNSAVE,4           UNSAVE CALL
 04513   0100 00 0 04521  2588         TZE     EQF                WHOLE LIST IS FALSE IF CAR DIRECTION F
 04514   0500 00 0 04601  2589         CLA     EQL1               PICK UP REST OF LIST 1
 04515   0020 00 0 04464  2590         TRA     EQLP               TEST EQUALITY IN CDR DIRECTION
                          2591  *
 04516   0500 00 0 00442  2592  EQT    CLA     $QD1               TRUE EXIT, PICK UP 1 IN DECREMENT
 04517  -0534 00 4 04600  2593         LXD     EQXR,4             RESTORE LINK IR
 04520   0020 00 4 00001  2594         TRA     1,4
                          2595  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0053


 04521  -0754 00 0 00000  2596   EQF   PXD     0,0                FALSE EXIT, CLEAR AC
 04522  -0534 00 4 04600  2597         LXD     EQXR,4             RESTORE LINK IR
 04523   0020 00 4 00001  2598         TRA     1,4
                          2599  *
 04524   0560 00 0 04601  2600  EQA    LDQ     EQL1
 04525  -0774 00 4 04527  2601         AXC     EQAR,4
 04526   0634 00 4 04574  2602         SXA     EQPX,4
 04527   0020 00 0 04542  2603  EQAR   TRA     EQPE
 04530   0100 00 0 04521  2604         TZE     EQF
 04531   0020 00 0 04516  2605         TRA     EQT
                          2606  *
                          2607  *      EQP TESTS FOR EQ BETWEEN LISTS AND NUMERICAL EQUALITY BETWEEN
                          2608  *      NUMBERS.   USES A TOLERENCE  IN TESTIONG FLOATION PT NUMBERS
                          2609  *
 04532   0040 00 0 04537  2610  EQP    TLQ     EQPF
 04533   0131 00 0 00000  2611         XCA
 04534   0040 00 0 04537  2612         TLQ     EQPF
 04535   0500 00 0 00442  2613  EQPTX  CLA     $QD1
 04536   0020 00 4 00001  2614         TRA     1,4
 04537   0634 00 4 04574  2615  EQPF   SXA     EQPX,4
 04540  -0734 00 4 00000  2616         PDX     0,4
 04541   0500 00 4 00000  2617         CLA     0,4
 04542  -0734 00 4 00000  2618  EQPE   PDX     0,4
 04543  -0320 00 0 00470  2619         ANA     TAGMSK
 04544   0100 00 0 04573  2620         TZE     EQPFX
 04545   0601 00 0 04576  2621         STO     EQPT
 04546   0500 00 4 00000  2622         CLA     0,4
 04547   0131 00 0 00000  2623         XCA
 04550  -0734 00 4 00000  2624         PDX     0,4
 04551   0500 00 4 00000  2625         CLA     0,4
 04552  -0734 00 4 00000  2626         PDX     0,4
 04553  -0320 00 0 00470  2627         ANA     TAGMSK
 04554  -0320 00 0 04576  2628         ANA     EQPT
 04555   0100 00 0 04573  2629         TZE     EQPFX
 04556  -0320 00 0 00436  2630         ANA     $QT1
 04557   0601 00 0 04576  2631         STO     EQPT
 04560   0500 00 4 00000  2632         CLA     0,4                                                      PAGE 058
 04561   0601 00 0 04577  2633         STO     EQPS
 04562   0131 00 0 00000  2634         XCA
 04563   0402 00 0 04577  2635         SUB     EQPS
 04564   0534 00 4 04574  2636         LXA     EQPX,4
 04565   0100 00 0 04535  2637         TZE     EQPTX
 04566   0520 00 0 04576  2638         ZET     EQPT
 04567   0020 00 0 04573  2639         TRA     EQPFX
 04570   0760 00 0 00003  2640         SSP
 04571   0402 00 0 14623  2641         SUB     FLOTOL
 04572  -0120 00 0 04535  2642         TMI     EQPTX
 04573  -0754 00 0 00000  2643  EQPFX  PXD     0,0
 04574   0774 00 4 00000  2644  EQPX   AXT     **,4
 04575   0020 00 4 00001  2645         TRA     1,4
 04576   0 00000 0 00000  2646  EQPT                              TEST CELL NON 0 YIELDS FIX
 04577   0 00000 0 00000  2647  EQPS                              STORAGE
 04600   0 00000 0 10241  2648   EQXR          $F8                INDEX REGISTER STORAGE
 04601   0 00000 0 00000  2649   EQL1                             LIST 1 STORAGE
 04602   0 00000 0 00000  2650   EQL2                             LIST 2 STORAGE
 04603   0 00000 0 00000  2651   EQTS                             TEST CELL  0 FIX, NON 0 FLO
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0054


                          2652  *
                          2653  *  EQUAL USES $SAVE,$QD1,UNSAVE,$EQUAL AND FIXFLO
                          2654
                          2655             PRINT                  MAY 14,1959
                          2656
                          2657
                          2658             PRINT(L)=(CAR(L)=-1 YIELDS PRIN1(L),1 YIELDS
                          2659             (PRIN2(LPAR2),PRINT(CAR(L)),(CDR(L)=0YIELDS
                          2660             PRIN2(RPAR2),1 YIELDS(PRIN2(COMMA2),PRINT
                          2661             (CDR(L))))))
                          2662
                          2663             THE LIST L IS PRINTED IN THE RESTRICTED NOTATION
                          2664
                          2665             PRINT REQUIRES THE SUBROUTINES PRIN1,PRIN2,
                          2666             TERPRI,MISPH2(OR UASPH2) ALL HEADED BY P
                          2667             AND SAVE,UNSAVE,ERROR UNHEADED
                          2668
                          2669         HEAD T
                          2670
                          2671             PRINT MASTERMINDER
                          2672
 04604   0634 00 4 04614  2673  PRINT  SXA     PRPS1,4            SAVE LINK IR
 04605  -0534 00 4 02317  2674         LXD     $CPPI,4            SAVE CURRENT CONTENTS OF CPPI
 04606  -0634 00 4 05307  2675         SXD     PCPPI,4
 04607   0600 00 0 05310  2676         STZ     WALLPC             ZERO WALL PAPER COUNTER
 04610   0601 00 0 03453  2677         STO     PRINTL         SAVE THE ARGUMENT
 04611   0074 00 4 04620  2678         TSX PRIN0,4
 04612   0074 00 4 05214  2679   PRTT1 TSX TERPRI,4
 04613   0500 00 0 03453  2680         CLA     PRINTL         RESTORE THE ARGUMENT
 04614   0774 00 4 00000  2681   PRPS1 AXT     **,4               RESTORE LINK IR
 04615   0020 00 4 00001  2682         TRA     1,4
 04616   0500 00 0 04673  2683   PRNIL CLA     PRBLW              PICK UP NIL REPRESENTATION
 04617   0020 00 0 05110  2684         TRA     $PRIN2         PUT IN PRINT LINE AND EXIT
 04620  -0634 00 4 04674  2685   PRIN0 SXD PS1,4
 04621   0100 00 0 04616  2686         TZE     PRNIL              PRINT THE NULL LIST                   PAGE 059
 04622  -0734 00 4 00000  2687         PDX 0,4
 04623  -0634 00 4 04702  2688         SXD L1,4
 04624   0500 00 4 00000  2689         CLA 0,4
 04625   0601 00 0 04701  2690         STO CWRL
 04626   0734 00 4 00000  2691         PAX 0,4
 04627  -3 77776 4 04633  2692         TXL     XA1,4,-2
 04630   0500 00 0 04702  2693         CLA L1
 04631  -0534 00 4 04674  2694         LXD PS1,4
 04632   0020 00 0 04703  2695         TRA $PRIN1
 04633   0500 00 0 04677  2696  XA1    CLA     LPAR2
 04634   0074 00 4 05110  2697         TSX $PRIN2,4
 04635   0500 00 0 04701  2698         CLA CWRL
 04636   0074 00 4 02312  2699         TSX $SAVE,4
 04637  -3 04677 0 02377  2700         TXL     $END2,,PS2+2       SAVE 2 ITEMS
 04640   0601 00 0 04675  2701   A3    STO     PS2                SAVE LIST
 04641   0734 00 4 00000  2702         PAX     0,4                CAR TO IR 4
 04642  -3 00000 4 04667  2703         TXL PRP2,4,0
 04643  -0754 00 4 00000  2704         PXD 0,4
 04644   0074 00 4 04620  2705         TSX PRIN0,4
 04645  -0534 00 4 04675  2706   A4    LXD PS2,4
 04646  -3 00000 5 04656  2707         TXL     A6,5,0             EXIT IF NULL
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0055


 04647   0500 00 4 00000  2708         CLA     0,4                TEST FOR ATOM
 04650   0734 00 4 00000  2709         PAX     0,4
 04651  -3 77776 4 04662  2710         TXL     A2,4,-2            GO TO A2 IF NOT AN ATOM
 04652   0500 00 0 04672  2711         CLA     DOT                OTHERWISE PRINT IN DOT NOTATION
 04653   0074 00 4 05110  2712         TSX     $PRIN2,4           PUT IN PRINT LINE
 04654   0500 00 0 04675  2713         CLA     PS2                CDR OF LIST
 04655   0074 00 4 04703  2714         TSX     $PRIN1,4           PRINT AS ATOM
 04656   0074 00 4 02326  2715   A6    TSX     UNSAVE,4
 04657   0500 00 0 04676  2716         CLA RPAR2
 04660  -0534 00 4 04674  2717         LXD PS1,4
 04661   0020 00 0 05110  2718         TRA $PRIN2
 04662   0500 00 0 04700  2719   A2    CLA COMM2
 04663   0074 00 4 05110  2720         TSX $PRIN2,4
 04664  -0534 00 4 04675  2721         LXD PS2,4
 04665   0500 00 4 00000  2722         CLA 0,4
 04666   0020 00 0 04640  2723         TRA A3
                          2724
 04667   0500 00 0 04673  2725   PRP2  CLA PRBLW
 04670   0074 00 4 05110  2726         TSX $PRIN2,4
 04671   0020 00 0 04645  2727         TRA A4
 04672  -203360777777     2728   DOT   OCT     603360777777       .
 04673  -053143777777     2729   PRBLW OCT     453143777777       NIL
 04674   0 00000 0 07320  2730   PS1           $F4
 04675   0 00000 0 00000  2731   PS2
 04676  +347777777777     2732   RPAR2 OCT 347777777777
 04677  -347777777777     2733   LPAR2 OCT 747777777777
 04700  -207777777777     2734   COMM2 OCT 607777777777           BLANK    INSTEAD OF A COMMA
 04701   0 00000 0 00000  2735   CWRL
 04702   0 00000 0 00000  2736   L1
                          2737
                          2738
                          2739         HEAD T
                          2740
                          2741
                          2742                 SUBROUTINE(PRIN1(L))                                     PAGE 060
                          2743  **     /       CAR(L)   N=-1 YIELDS ERROR
                          2744                 ST = L
                          2745  **     A1      CDR(L) = 0 YIELDS ERROR
                          2746                 L = CDR(L)
                          2747                 CAR(L) = PNAME YIELDS GO(A3)
                          2748                 CAR(L) N= FLOAT YIELDS GO(A1)
                          2749                 L = CAR(CDR(L))
                          2750                 VAL = FLONAM(L)
                          2751                 REPLACD(CONS(PNAME,CONS(VAL,CDR(ST))),ST)
                          2752                 L = CDR(ST)
                          2753  **     A3      L= CAR(CDR(L))
                          2754  **     A2      PRIN2(CWR(CAR(L))
                          2755                 L = CDR(L)
                          2756                                  L=0 YIELDS RETURN
                          2757  **     */      GO(A2)
                          2758
 04703  -0634 00 4 05072  2759   PRIN1 SXD PR1,4
 04704   0601 00 0 05071  2760         STO PRSS                   SAVE OBJECT
 04705  -0734 00 4 00000  2761         PDX ,4
 04706   0500 00 4 00000  2762         CLA ,4
 04707   0625 00 0 05103  2763         STT     PTTGR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0056


 04710  -0320 00 0 00457  2764         ANA ADDM
 04711   0402 00 0 00457  2765         SUB ADDM
 04712   0100 00 0 04720  2766         TZE PR3                    CAR(L) N=-1 YIELDS ERROR
 04713  -0634 00 4 01562  2767   PR2   SXD $ERROR,4
 04714   0074 00 4 05214  2768         TSX TERPRI,4
 04715  -0754 00 0 00000  2769         PXD     0,0
 04716   0074 00 4 01563  2770         TSX $ERROR+1,4
 04717   544760600154     2771         BCI     1,*P  1*           TRIED TO PRINT NON-OBJECT -PRIN1-
                   00457  2772   ADDM  SYN     $AMASK
 04720   0520 00 0 05103  2773  PR3    ZET     PTTGR
 04721   0020 00 0 04733  2774         TRA     PR3N
 04722   0500 00 4 00000  2775         CLA     0,4                FIRST WORD OF ATOM
 04723   0020 00 0 04726  2776         TRA     *+3
 04724  -3 07334 4 04726  2777  PR3P   TXL     *+2,4,$PNAME-1
 04725  -3 07335 4 04750  2778         TXL     PA3,4,$PNAME
 04726  -0734 00 4 00000  2779         PDX     0,4                CDR
 04727  -3 00000 4 05056  2780         TXL     PR5,4,0            UNPRINTABLE
 04730   0500 00 4 00000  2781         CLA     0,4                NEXT WORD
 04731   0734 00 4 00000  2782         PAX     0,4
 04732   0020 00 0 04724  2783         TRA     PR3P               EXAMINE WORD
 04733  -0534 00 4 05071  2784  PR3N   LXD     PRSS,4
 04734   0500 00 4 00000  2785         CLA     0,4
 04735  -0734 00 4 00000  2786         PDX     0,4
 04736   0634 00 4 05102  2787         SXA     PTPNT,4
 04737   0500 00 0 05103  2788         CLA     PTTGR
 04740  -0320 00 0 00437  2789         ANA     $QT2
 04741  -0100 00 0 04764  2790         TNZ     PR4F
 04742   0500 00 0 05103  2791         CLA     PTTGR
 04743  -0320 00 0 00440  2792         ANA     $QT4
 04744  -0100 00 0 04767  2793         TNZ     LUCY
 04745  -0754 00 4 00000  2794         PXD     0,4                                                      PAGE 061
 04746   0074 00 4 04115  2795         TSX     NUMNAM,4
 04747   0020 00 0 04762  2796         TRA     PR4E
                          2797  *
 04750  -0734 00 4 00000  2798   PA3   PDX     0,4                FOUND A PNAME
 04751   0500 00 4 00000  2799         CLA     0,4
 04752   0734 00 4 00000  2800         PAX     0,4                POINTER TO PRINT LIST
 04753   0500 00 4 00000  2801   PR4   CLA     0,4                POINTRE TO PRINT LIST
 04754   0622 00 0 05073  2802         STD     L                  SAVE REST OF LIST IF ANY
 04755   0734 00 4 00000  2803         PAX     0,4                POINTER TO FIRST FULL FULL WORD
 04756   0500 00 4 00000  2804         CLA     0,4                FULL WORD
 04757   0074 00 4 05110  2805         TSX     $PRIN2,4           PRINT IT
 04760  -0534 00 4 05073  2806         LXD     L,4                PICK UP REST OF LIST
 04761   3 00000 4 04753  2807         TXH     PR4,4,0            PRINT MORE IF MORE
 04762  -0534 00 4 05072  2808   PR4E  LXD     PR1,4              EXIT BY RESTORING LINK IR
 04763   0020 00 4 00001  2809         TRA     1,4                EXIT
 04764  -0754 00 4 00000  2810  PR4F   PXD     0,4
 04765   0074 00 4 05500  2811         TSX     FLONAM,4
 04766   0020 00 0 04762  2812         TRA     PR4E
                          2813  *
                          2814  *      PRINT THE NUMBER OCTALLY
 04767   0534 00 2 05102  2815   LUCY  LXA     PTPNT,2            GET POINTER TO NUMBER
 04770   0560 00 2 00000  2816         LDQ     0,2
 04771   0162 00 0 04776  2817         TQP     BETTY              TEST FOR NEGATIVE NUMBER
 04772   0500 00 0 05100  2818         CLA     MISGN              IF SO, PRINT -
 04773   0074 00 4 05110  2819         TSX     $PRIN2,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0057


 04774   0500 00 2 00000  2820         CLA     0,2                REMOVE MINUS SIGN
 04775  -0130 00 0 00000  2821         XCL
 04776  -0520 00 2 00000  2822   BETTY NZT     0,2                TEST IF NUMBER ALL ZEROS
 04777   0020 00 0 05053  2823         TRA     MARIE
                          2824  *      LOOK FOR NON-ZERO DIGIT ON LEFT
 05000  -0754 00 0 00000  2825         PXD     ,0
 05001   0774 00 2 00014  2826         AXT     12,2               IR2 COUNTS ZEROS ON RIGHT
 05002  -0763 00 0 00003  2827         LGL     3
 05003   1 77777 2 05004  2828         TXI     *+1,2,-1           COUNT VACATED POSITIONS
 05004   0100 00 0 05002  2829         TZE     *-2
                          2830  *      A NON-ZERO DIGIT HAS APPEARED ON THE LEFT
 05005  -0501 00 0 00414  2831         ORA     $Q64               PUT IN OVERFLOW FLIPPER
 05006   0140 00 0 05007  2832         TOV     *+1                SHUT OFF OVERFLOW LIGHT
 05007  -0600 00 0 05074  2833   GRETA STQ     TONI               TEST IF ALL DIGITS ARE SPREAD
 05010   0162 00 0 05012  2834         TQP     *+2                TEST FOR NON-ZERO SIGN BIT
 05011   1 77777 2 05015  2835         TXI     FIFI,2,-1          SOME DIGITS NOT SPREAD, SO CONTINUE
 05012  -0520 00 0 05074  2836         NZT     TONI
 05013   0020 00 0 05032  2837         TRA     DEBBY              TRA IF ALL NON-ZERO DIGITS SPREAD
 05014   1 77777 2 05015  2838         TXI     *+1,2,-1
 05015   0767 00 0 00003  2839   FIFI  ALS     3                  SPREAD ONE DIGIT
 05016  -0763 00 0 00003  2840         LGL     3
 05017  -0140 00 0 05007  2841         TNO     GRETA              SEE IF FULL WORD OF DIGITS
 05020  -0600 00 0 05074  2842         STQ     TONI               PRIT THE WORD
 05021   0074 00 4 05110  2843         TSX     $PRIN2,4
 05022   0500 00 0 00371  2844         CLA     $Q1                PUT IN OVERFLOW FILPPER
 05023   0560 00 0 05074  2845         LDQ     TONI
 05024   0140 00 0 05025  2846         TOV     *+1                SHUT OFF OVERFLOW LIGHT
 05025   0162 00 0 05027  2847         TQP     *+2                TEST FOR NON-ZERO SIGN BIT
 05026   1 77777 2 05015  2848         TXI     FIFI,2,-1                                                PAGE 062
 05027   0520 00 0 05074  2849         ZET     TONI               SEE IF ALL DIGIS SPREAD
 05030   1 77777 2 05015  2850         TXI     FIFI,2,-1
 05031   0020 00 0 05036  2851         TRA     VICKI
                          2852  *      FORM WORD FOR PRINTING
 05032   0560 00 0 00471  2853   DEBBY LDQ     SEVENS             PUT 77S IN RIGHT END OF WORD
 05033  -0763 00 0 00006  2854         LGL     6                    OVERFLOW SIGNALS LEFT END OF WORD
 05034  -0140 00 0 05033  2855         TNO     *-1
 05035   0074 00 4 05110  2856         TSX     $PRIN2,4
                          2857  *      PRINT Q AND SCALE FACTOR IF ANY
 05036   3 00000 2 05041  2858   VICKI TXH     MICKY,2,0          CONTINUE IF 0 SCALE FACTOR
 05037   0500 00 0 05101  2859         CLA     BCIQ
 05040   0020 00 0 05054  2860         TRA     PATSY
 05041  -3 00011 2 05046  2861   MICKY TXL     SANDY,2,9          TRA IF SCALE FACTOR LESS THAN 10
                          2862  *      OCTAL SCALE FACTOR MORE THAN 10
 05042  -0754 00 2 00000  2863         PXD     ,2
 05043   0400 00 0 05075  2864         ADD     BQ10               FORM SCALE FACTOR FOR PRINTING
 05044  -0760 00 0 00003  2865         SSM
 05045   0020 00 0 05054  2866         TRA     PATSY
                          2867  *      OCTAL SCALE FACTOR LESS THAN 10
 05046  -0754 00 2 00000  2868   SANDY PXD     ,2
 05047   0767 00 0 00006  2869         ALS     6
 05050   0400 00 0 05076  2870         ADD     BQ0
 05051  -0760 00 0 00003  2871         SSM
 05052   0020 00 0 05054  2872         TRA     PATSY
 05053   0500 00 0 05077  2873   MARIE CLA     BCI0Q              PRINT Q0
 05054   0074 00 4 05110  2874   PATSY TSX     $PRIN2,4
 05055   0020 00 0 04762  2875         TRA     PR4E
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0058


                          2876
                          2877             GENERATE A PRINT NAME FOR AN OBJECT WITHOUT ONE.
                          2878
                          2879             THE PRINT NAME IS OF THE FORM LDDDDD WHERE THE D,S ARE THE
                          2880             OCTAL DIGITS OF THE 2,S COMPLMENT OF THE FIRST WORD OF
                          2881              THE PROPERTY LIST OF THE OBJECT.
                          2882
 05056  -0535 00 4 05071  2883  PR5    LDC     PRSS,4
 05057  -0754 00 4 00000  2884         PXD     0,4
 05060   0131 00 0 00000  2885         XCA
 05061   0074 00 4 11021  2886         TSX     OCTALP,4
 05062  -0501 00 0 05070  2887         ORA     PRC1
 05063  -0760 00 0 00003  2888         SSM                   FIX SIGN TO AGREE WITH P BIT FOR PRIN2
 05064  -0760 00 0 00001  2889         PBT
 05065   0760 00 0 00002  2890         CHS
 05066  -0534 00 4 05072  2891         LXD     PR1,4              RESTORE LINK IR
 05067   0020 00 0 05110  2892         TRA     $PRIN2             PUT IN PRINT LINE AND EXIT
                          2893
 05070   430000000060     2894   PRC1  BCI     1,L0000            L SYMBOL
 05071   0 00000 0 00000  2895  PRSS                              STORAGE FOR POINTER TO OBJECT
 05072   0 00000 0 00000  2896   PR1
 05073   0 00000 0 00000  2897   L
 05074                    2898   TONI  BSS     1
 05075  +100066777777     2899   BQ10  OCT     100066777777       USED TO FORM BCI Q1N
 05076  +100077777777     2900   BQ0   OCT     100077777777       USED TO FORM BCI QN
 05077  +005077777777     2901   BCI0Q OCT     005077777777       BCI 0Q
 05100  -007777777777     2902   MISGN OCT     407777777777       BCI -                                 PAGE 063
 05101  -107777777777     2903   BCIQ  OCT     507777777777
 05102                    2904   PTPNT BSS     1
 05103   0 00000 0 00000  2905  PTTGR                             TEST CELL FOR NUMBER FLAGS
                          2906
                          2907
                          2908             PRIN2    PRINTS UP TO 6 CHARACTERS IN ONE WORD WHEN THE
                          2909             CHARACTERS ARE JUSTIFIED TO THE LEFT AND FOLLOWED BY THE
                          2910             ILLEGAL CHARACTER WHOSE OCTAL FORM IS 77
                          2911
                          2912
 05104  -0634 00 4 05255  2913  PRINT2 SXD PR9,4
 05105  -0734 00 4 00000  2914         PDX 0,4                    BRING BCD WORD TO AC
 05106   0500 00 4 00000  2915         CLA 0,4
 05107   0020 00 0 05112  2916         TRA     *+3
 05110   3 00000 0 05341  2917   PRIN2 TXH     $PUN2,,0           SWITCH TO PUNCH OUT ROUTINE
 05111  -0634 00 4 05255  2918         SXD     PR9,4
 05112  -0634 00 2 05254  2919         SXD PR8,2
 05113  -0634 00 1 05253  2920         SXD PR7,1
 05114  -0534 00 4 05256  2921         LXD WORDS,4                ROOM LEFT IN OUTPUT RECORD
 05115  -3 00000 4 05245  2922         TXL INIT,4,0               CAN BE ZERO ONLY IF ROUTINE NOTUSED
 05116   0774 00 1 00001  2923   COMB4 AXT 1,1
 05117   0601 00 0 05262  2924         STO TEMP
 05120  -0500 00 0 05262  2925         CAL TEMP
 05121  -0340 00 0 00471  2926         LAS SEVENS                 WORD OF ALL 77-S CAUSES NO ACTION
 05122   0020 00 0 05124  2927         TRA *+2
 05123   0020 00 0 05155  2928         TRA NOJOB
 05124  -0320 00 0 05260  2929   SHIFL ANA RCHM    IS THE RIGHT CHARACTER 77
 05125   0402 00 0 05260  2930         SUB RCHM
 05126  -0100 00 0 05133  2931         TNZ JUST                   NOT 77
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0059


 05127  -0500 00 0 05262  2932         CAL TEMP
 05130   0771 00 0 00006  2933         ARS 6
 05131   0602 00 0 05262  2934         SLW TEMP
 05132   1 00001 1 05124  2935         TXI SHIFL,1,1
 05133  -0500 00 0 05262  2936   JUST  CAL TEMP
 05134   0020 00 1 05143  2937         TRA LSHIF+1,1
 05135   0767 00 0 00006  2938         ALS 6
 05136   0767 00 0 00006  2939         ALS 6
 05137   0767 00 0 00006  2940         ALS 6
 05140   0767 00 0 00006  2941         ALS 6
 05141   0767 00 0 00006  2942         ALS 6
 05142   0602 00 0 05262  2943   LSHIF SLW TEMP
 05143   0560 00 0 05262  2944         LDQ TEMP
 05144  -0500 00 0 05261  2945         CAL PART
 05145  -0534 00 2 05257  2946         LXD PARTS,2
 05146  -0763 00 0 00006  2947   COMB  LGL 6
 05147   0602 00 0 05261  2948         SLW PART
 05150  -2 00001 2 05162  2949         TNX WFULL,2,1
 05151   1 00001 1 05152  2950   COMB5 TXI *+1,1,1
 05152  -3 00006 1 05146  2951         TXL COMb,1,6
 05153  -0634 00 2 05257  2952   COMB1 SXD PARTS,2
 05154  -0634 00 4 05256  2953         SXD WORDS,4
 05155  -0534 00 1 05253  2954   NOJOB LXD PR7,1
 05156  -0534 00 2 05254  2955         LXD PR8,2
 05157  -0534 00 4 05255  2956         LXD PR9,4                                                        PAGE 064
 05160  -0754 00 0 00000  2957         PXD 0,0
 05161   0020 00 4 00001  2958         TRA 1,4
 05162   0602 00 4 05307  2959   WFULL SLW REC,4
 05163  -2 00001 4 05166  2960         TNX RECFL,4,1
 05164   0774 00 2 00006  2961   COMB3 AXT 6,2
 05165   0020 00 0 05151  2962         TRA COMB5                  /
 05166  -0600 00 0 05262  2963   RECFL STQ TEMP
 05167   0500 00 0 05310  2964         CLA     WALLPC             GET MAX NUMBER OF LINES PER LIST
 05170   0400 00 0 00371  2965         ADD     $Q1
 05171   0340 00 0 05311  2966         CAS     BRKOUT             COMPARE WITH MAX NUMBER
 05172   0020 00 0 05174  2967         TRA     *+2                NO, GO ON
 05173   0020 00 0 05207  2968         TRA     PRTB               = BREAKOUT
 05174   0601 00 0 05310  2969         STO     WALLPC             PUT AWAY
 05175   0074 00 4 01222  2970         TSX OUTPUT,4
 05176   0 00000 0 00364  2971  PRINTD     BCDOUT
 05177   0 00024 0 05263  2972             REC-20,,20
 05200   0560 00 0 05262  2973         LDQ TEMP
 05201  -0534 00 4 00000  2974         LXD QD20,4
 05202  -0500 00 0 00472  2975         CAL BLNKA
 05203   0602 00 0 05261  2976         SLW PART
 05204  -0534 00 4 00000  2977         LXD QD20,4
 05205  -0534 00 2 00000  2978         LXD QD5,2
 05206   0020 00 0 05151  2979         TRA COMB5
 05207  -0534 00 4 05307  2980   PRTB  LXD     PCPPI,4            PUSH DOWN COUNTER
 05210  -0634 00 4 02317  2981         SXD     $CPPI,4            RESTORE TO ENTRACE VALUE
 05211  -0534 00 1 05253  2982         LXD     PR7,1              RESTORE INDEX 1 AND 2
 05212  -0534 00 2 05254  2983         LXD     PR8,2
 05213   0020 00 0 04612  2984         TRA     PRTT1              BREAKOUT
 05214  -0634 00 2 05254  2985  TERPRI SXD PR8,2
 05215  -0634 00 4 05255  2986         SXD PR9,4
 05216  -0534 00 2 05257  2987         LXD PARTS,2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0060


 05217  -0534 00 4 05256  2988         LXD WORDS,4
 05220  -0500 00 0 05261  2989         CAL PART
 05221   0560 00 0 00472  2990         LDQ BLANK
 05222  -0763 00 0 00006  2991   TER1  LGL 6
 05223   2 00001 2 05222  2992         TIX TER1,2,1
 05224   0602 00 4 05307  2993   TER3  SLW REC,4
 05225  -2 00001 4 05230  2994         TNX TER2,4,1
 05226  -0500 00 0 00472  2995         CAL BLANK
 05227   0020 00 0 05224  2996         TRA TER3
 05230   0074 00 4 01222  2997   TER2  TSX OUTPUT,4
 05231   0 00000 0 00364  2998  PRINTC     BCDOUT
 05232   0 00024 0 05263  2999             REC-20,,20
 05233  -0534 00 4 00000  3000         LXD QD20,4
 05234  -0634 00 4 05256  3001         SXD WORDS,4
 05235  -0534 00 2 00000  3002         LXD QD5,2
 05236  -0634 00 2 05257  3003         SXD PARTS,2
 05237  -0534 00 2 05254  3004         LXD PR8,2
 05240  -0534 00 4 05255  3005         LXD PR9,4
 05241   0500 00 0 00472  3006         CLA BLNKA
 05242   0601 00 0 05261  3007         STO PART
 05243  -0754 00 0 00000  3008         PXD 0,0
 05244   0020 00 4 00001  3009         TRA 1,4
 05245  -0534 00 4 00000  3010   INIT  LXD QD20,4                                                       PAGE 065
 05246   0560 00 0 00472  3011         LDQ BLNKA
 05247  -0600 00 0 05261  3012         STQ PART
 05250   0774 00 2 00005  3013         AXT 5,2
 05251  -0634 00 2 05257  3014         SXD PARTS,2
 05252   0020 00 0 05116  3015         TRA COMB4
                          3016  *
 05253   0 00000 0 00000  3017   PR7
 05254   0 00000 0 00000  3018   PR8
 05255   0 00000 0 00000  3019   PR9
 05256   0 00000 0 00000  3020   WORDS
 05257   0 00000 0 00000  3021   PARTS                            ROOM IN PARTIAL WORD
 05260  +000000000077     3022   RCHM  OCT 77
 05261   0 00000 0 00000  3023   PART
 05262   0 00000 0 00000  3024   TEMP
 05307                    3025   REC   BES 20
 05307   0 00000 0 00000  3026   PCPPI                            PUSHDOWN COUNTER STORAGE
 05310   0 00000 0 00000  3027  WALLPC                            NUMBER OF LINES IN THIS LIST SO FAR
 05311  +000000000031     3028  BRKOUT DEC     25                 MAXIMUM NUMBER OF LINES IN ANY LIST
                   00000  3029   QD5   SYN     $QD5
                   00000  3030   QD20  SYN     $QD20
                   00472  3031   BLANK SYN     BLANKS
                   00472  3032   BLNKA SYN     BLANKS
                          3033  *
                          3034  * BCDAD1       A CONVERT TABLE FOR ADDING 1 TO A 6 DIGIT BCD NUMBER
                          3035  *              USED BY LOADING BCD NUMBER INTO AC AND DOING
                          3036  *      CVR     BCDAD1,,6
                          3037  *
 05312   0 00000 0 05312  3038   ADT   PZE     ADT                0
 05313   0 10000 0 05312  3039  BCDAD1 PZE     ADT,,1*4096        1
 05314   0 20000 0 05312  3040         PZE     ADT,,2*4096
 05315   0 30000 0 05312  3041         PZE     ADT,,3*4096        3
 05316   0 40000 0 05312  3042         PZE     ADT,,4*4096        4
 05317   0 50000 0 05312  3043         PZE     ADT,,5*4096        5
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0061


 05320   0 60000 0 05312  3044         PZE     ADT,,6*4096        6
 05321   0 70000 0 05312  3045         PZE     ADT,,7*4096        7
 05322   1 00000 0 05312  3046         PON     ADT                8
 05323   1 10000 0 05312  3047         PON     ADT,,1*4096        9
 05324   0 00000 0 05313  3048         PZE     BCDAD1             10
                          3049  *
                          3050  * PUNCH        WRITES OUT A LIST ON TH SYSTEM PERFIAL PUNCH TAPE
                          3051  *              (SYSPPT) IN A FORM SUTABLE FOR PUNCHING IN BCD.
                          3052  *
 05325   0634 00 5 05337  3053   PUNCH SXA     PNCHX,5            SAVE LINK IR
 05326  -0625 00 0 05461  3054         STL     PUNACT             ACTVTE PUNCH ROUTINE
 05327  -0754 00 4 00000  3055         PXD     0,4                ARGUMENT TO IR 4
 05330   0502 00 0 05110  3056         CLS     $PRIN2             SE SWITCH TO
 05331   0601 00 0 05110  3057         STO     $PRIN2             GO TO PUNCH ROUTINE
 05332  -0754 00 4 00000  3058         PXD     0,4                ARGUMENT TO AC
 05333   0601 00 0 03453  3059         STO     PRINTL         SAVE THE ARGUMENT
 05334   0074 00 4 04620  3060         TSX     $PRIN0,4           USES PRINT ROUTINE
 05335   0074 00 4 05421  3061         TSX     TERPUN,4           TERMINATE PUNCHING
 05336   0500 00 0 03453  3062         CLA     PRINTL         RESTORE THE ARGUMENT
 05337   0774 00 4 00000  3063   PNCHX AXT     **,4               RESTORE LINK IR
 05340   0020 00 4 00001  3064         TRA     1,4                EXIT                                  PAGE 066
                          3065  *
                          3066  * PUN2         PUNCH EQUIVELENT OF PRIN 2
                          3067  *
 05341   0634 00 4 05364  3068   PUN2  SXA     PNX,4              SAVE INDEX REGISTERS
 05342   0634 00 2 05365  3069         SXA     PNY,2
 05343   0634 00 1 05366  3070         SXA     PNZ,1
 05344   0774 00 4 00014  3071   PWRDS AXT     12,4               NUMBER OF WORDS LEFT IN BUFFER
 05345   0774 00 2 00006  3072   PPRTS AXT     6,2                CHARACTER POSITION
 05346   0774 00 1 00006  3073         AXT     6,1                MAXIMUM NUMBER OF CHARACTERS
 05347   0131 00 0 00000  3074         XCA                        ARGUMENT TO MQ
 05350  -0754 00 0 00000  3075   PLP   PXD     0,0                CLEAR AC
 05351  -0763 00 0 00006  3076         LGL     6                  CHARACTER TO MQ
 05352   0340 00 0 05457  3077         CAS     PSS                COMPARE WITH 77
 05353   0761 00 0 00000  3078         NOP                        GREATER, (IMPOSSIBLE)
 05354   0020 00 0 05361  3079         TRA     POUT               = , GO TO EXIT
 05355   0522 00 2 05455  3080         XEC     PCNT,2             LESS THAN, SHIFT CHARACTER
 05356  -0602 00 4 05476  3081         ORS     POUP,4             PUT IN OUTPUT LINE
 05357  -2 00001 2 05370  3082         TNX     PRPLP,2,1          GO IF LAST CHARACTER IN WORD
 05360   2 00001 1 05350  3083   PGRA  TIX     PLP,1,1            GET NEXT CHARACTER
 05361   0634 00 2 05345  3084   POUT  SXA     PPRTS,2            SAVE INDEX 2 N 4
 05362   0634 00 4 05344  3085         SXA     PWRDS,4
 05363  -0754 00 0 00000  3086         PXD     0,0                CLEAR AC
 05364   0774 00 4 00000  3087   PNX   AXT     **,4               RESTORE INDEX REGISTERS
 05365   0774 00 2 00000  3088   PNY   AXT     **,2
 05366   0774 00 1 00000  3089   PNZ   AXT     **,1
 05367   0020 00 4 00001  3090         TRA     1,4                EXIT
                          3091  *
 05370   0774 00 2 00006  3092   PRPLP AXT     6,2                RELOAD CHARACTER COUNT
 05371   2 00001 4 05360  3093         TIX     PGRA,4,1           GO IF WORD COUNT NOT EXAUSTED
 05372   0500 00 0 05455  3094         CLA     PCNT               GET CARD NUMBER IN BCD
 05373   0114 06 0 05313  3095         CVR     BCDAD1,,6          ADD 1 IN BCD
 05374   0601 00 0 05455  3096         STO     PCNT
 05375  -0600 00 0 05460  3097         STQ     PNCQ               SAVE CONTENTS OF MQ
 05376   0560 00 0 00370  3098         LDQ     $ZERO              ZERO MQ
 05377  -0765 00 0 00006  3099         LGR     6                  SHIFT LOW ORDER DIGITS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0062


 05400   0361 00 0 05456  3100         ACL     PLIS               ADD BCD NAME OF CARD
 05401   0602 00 0 05476  3101         SLW     POUP               PUT IN ID FIELD
 05402  -0600 00 0 05477  3102         STQ     POUP+1
 05403   0074 00 4 01222  3103         TSX     OUTPUT,4           GO TO OUTPUT
 05404   0 00000 0 00363  3104                 PPTOUT             PUNCH OUT TAPE
 05405   0 00016 0 05462  3105                 POUP-12,,14        14 WORDS OUT
 05406  -0046 00 0 00000  3106         PIA                        SAVE INDICATORS IN AC
 05407   0441 00 0 10340  3107         LDI     SYSIND             PICK UP SYSTEM INDICATORS
 05410  -1 00000 0 00040  3108         STR     PPTIND             SET PUNCH TAPE INDICATOR
 05411   0604 00 0 10340  3109         STI     SYSIND             UPDATE SYSTEM INDICATORS
 05412   0044 00 0 00000  3110         PAI                        RESTORE INDICATORS
 05413   0774 00 4 00014  3111         AXT     12,4               NUMBER OF WORDS FROM CC 1 TO 72
 05414   0600 00 4 05476  3112         STZ     POUP,4             ZERO OUTPUT BUFFER
 05415   2 00001 4 05414  3113         TIX     *-1,4,1
 05416   0774 00 4 00014  3114         AXT     12,4               RELOAD WORD COUNT
 05417   0560 00 0 05460  3115         LDQ     PNCQ               RESTORE CONTENTS OF MQ
 05420   0020 00 0 05360  3116         TRA     PGRA               CONTINUE WORK
                          3117  *
                          3118  * TERPUN       FILLS OUT BUFFER WITH BLANKS AND PUNCHES OUT LAST CARD   PAGE 067
                          3119  *              OPERATES ONLY IF PUNCH ROUTINE IS CURRENTLY ACTIVE
                          3120  *
 05421  -0520 00 0 05461  3121  TERPUN NZT     PUNACT             SKIP IF PUNCH ROUTINE IS CURRENTLY ACT
 05422   0020 00 4 00001  3122         TRA     1,4                IMMEDIATE EXIT
 05423   0600 00 0 05461  3123         STZ     PUNACT             DE ACTIVATE THE PUNCH ROUTINE
 05424   0634 00 4 05364  3124         SXA     PNX,4              SAVE INDEX REGISTERS
 05425   0634 00 2 05365  3125         SXA     PNY,2
 05426   0634 00 1 05366  3126         SXA     PNZ,1
 05427   0500 00 0 05110  3127         CLA     $PRIN2
 05430   0602 00 0 05110  3128         SLW     $PRIN2             RESTORE PRIN2 SWITCH
 05431   0534 00 4 05344  3129         LXA     PWRDS,4            PICK UP WORD COUNT
 05432   0534 00 2 05345  3130         LXA     PPRTS,2            CHARACTER COUNT
 05433   0774 00 1 00001  3131         AXT     1,1                CONSTANT 1
 05434   0560 00 0 00472  3132         LDQ     BLANKS             BLANK MQ
 05435  -0754 00 0 00000  3133   TPLP  PXD     0,0                CLEAR AC
 05436  -0763 00 0 00006  3134         LGL     6                  1 INTO AC
 05437   0522 00 2 05455  3135         XEC     PCNT,2             SHIFT INTO POSITIN
 05440  -0602 00 4 05476  3136         ORS     POUP,4             PUT IN OUTPUT LINE
 05441   2 00001 2 05435  3137         TIX     TPLP,2,1           FILL OUT THIS WORD
 05442  -2 00001 4 05370  3138         TNX     PRPLP,4,1          GO IF LAST WORD IN BUFFER
 05443   0500 00 0 00472  3139         CLA     BLANKS             BLANK AC
 05444   0601 00 4 05476  3140         STO     POUP,4             BLANK REST OF BUFFER
 05445   2 00001 4 05444  3141         TIX     *-1,4,1
 05446   0020 00 0 05370  3142         TRA     PRPLP              GO PUNCH IT OUT
                          3143  *               COSTANTS, STORAGE AND SHIFT TABLE
 05447   0767 00 0 00024  3144         ALS     20
 05450   0767 00 0 00030  3145         ALS     24
 05451   0767 00 0 00022  3146         ALS     18
 05452   0767 00 0 00014  3147         ALS     12
 05453   0767 00 0 00006  3148         ALS     6
 05454   0761 00 0 00000  3149         NOP
 05455   0 00000 0 00000  3150   PCNT  PZE                        BASE OF SHIFT TABLE AND CARD COUNT
 05456   433162470000     3151   PLIS  BCI     1,LISP00           CARD ID
 05457  +000000000077     3152   PSS   OCT     77                 CHARACTER THAT TERMINATES A PNAME
 05460   0 00000 0 00000  3153   PNCQ
 05461   0 00000 0 00000  3154  PUNACT                            NON-ZERO IF PUNCH ROUTINE ACTIVE
 05462                    3155         BSS     12
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0063


 05476  +000000000000     3156   POUP  OCT     0,0                OUTPUT BUFFER
                          3157
                          3158             FLONAM                 MAY 14,1559
                          3159                 FORMS THE BCD LIST  FOR A FLOATING NUMBER IN THE ACC
                          3160
                          3161         HEAD T
 05500   0634 00 4 05666  3162  FLONAM SXA     FLNX,4
 05501  -0734 00 4 00000  3163         PDX     0,4
 05502   0500 00 4 00000  3164         CLA     0,4
 05503  -0100 00 0 05512  3165         TNZ     FLNA
 05504   0534 00 4 05666  3166         LXA     FLNX,4
 05505   0131 00 0 00000  3167         XCA
 05506   0500 00 0 05706  3168         CLA     FLZPZ              0.0
 05507   0162 00 0 05110  3169         TQP     $PRIN2
 05510   0402 00 0 05731  3170         SUB     C0                 -0,0
 05511   0020 00 0 05110  3171         TRA     $PRIN2                                                   PAGE 068
 05512   0634 00 2 05667  3172   FLNA  SXA     FLNY,2
 05513   0634 00 1 05670  3173         SXA     FLNZ,1
 05514   0774 00 1 00001  3174         AXT     1,1                SET UP BUFFER IRS
 05515   0774 00 2 00044  3175         AXT     36,2
 05516   0600 00 0 05703  3176         STZ     FLOPB-3
 05517   0600 00 0 05704  3177         STZ     FLOPB-2
 05520   0600 00 0 05705  3178         STZ     FLOPB-1
 05521   0601 00 0 77667  3179         STO     COMMON+5
 05522   0131 00 0 00000  3180         XCA
 05523  -0754 00 0 00000  3181         PXD     ,0                 CLEAR ACC. AND SIGN.
 05524   0765 00 0 00000  3182   FL73  LRS     0                  SIGN TO MQ
 05525   0763 00 0 00010  3183         LLS     8                  CHARACTERSITIC.
 05526   0402 00 0 00415  3184         SUB     A128               128
 05527  -0600 00 0 77662  3185         STQ     COMMON             SAVE MANTISSA.
 05530   0131 00 0 00000  3186         XCA                        MULTIPLY BY
 05531   0200 00 0 05720  3187         MPY     LOG2               LOG BASE 10 OF 2.
 05532   0601 00 0 77664  3188         STO     COMMON+2
 05533   0120 00 0 05542  3189         TPL     FL75
 05534   0402 00 0 05717  3190   FL74  SUB     A1                 1
 05535   0601 00 0 77664  3191         STO     COMMON+2
 05536   0131 00 0 00000  3192         XCA
 05537   0760 00 0 00006  3193         COM
 05540   0760 00 0 00003  3194         SSP
 05541   0131 00 0 00000  3195         XCA
 05542   0200 00 0 05721  3196   FL75  MPY     LOG10              LOG BASE 2 OF 10/4.
 05543   0765 00 0 00041  3197         LRS     33
 05544   0621 00 0 05555  3198         STA     FL76A
 05545  -0600 00 0 77672  3199         STQ     COMMON+8
 05546   0774 00 4 00007  3200         AXT     7,4
 05547   0560 00 0 05722  3201         LDQ     C7
 05550   0200 00 0 77672  3202   FL76  MPY     COMMON+8
 05551   0400 00 4 05732  3203         ADD     C0+1,4
 05552   0131 00 0 00000  3204         XCA
 05553   2 00001 4 05534  3205         TIX     FL74,4,1
 05554   0200 00 0 77662  3206         MPY     COMMON             MANTISSA.
 05555   0774 00 4 00000  3207   FL76A AXT     **,4
 05556   0765 00 4 00042  3208         LRS     34,4
 05557   0100 00 0 05564  3209         TZE     FL77
 05560   0221 00 0 05716  3210         DVP     A1-1               10.
 05561   0500 00 0 77664  3211         CLA     COMMON+2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0064


 05562   0400 00 0 05717  3212         ADD     A1                 1.
 05563   0601 00 0 77664  3213         STO     COMMON+2
 05564   0774 00 4 00010  3214   FL77  AXT     8,4
 05565  -0200 00 4 05717  3215   FL78  MPR     A1,4               10 TO DEC. PLACES.
 05566   0340 00 4 05717  3216         CAS     A1,4
 05567   0761 00 0 00000  3217         NOP                        GREATER.
 05570   0020 00 0 05572  3218         TRA     FL79               EQUAL.
 05571   0020 00 0 05576  3219         TRA     FL80               LESS.
 05572   0500 00 0 05717  3220   FL79  CLA     A1                 ROUDING CAUSED CARRY.
 05573   0400 00 0 77664  3221         ADD     COMMON+2
 05574   0601 00 0 77664  3222         STO     COMMON+2           EXP+1.
 05575   0500 00 4 05720  3223         CLA     A1+1,4             10 TO THE DEC. PL.-1.
 05576   0601 00 0 77664  3224   FL80  STO     COMMON+2
 05577  -0754 00 0 00000  3225         PXD     ,0                                                       PAGE 069
 05600   0560 00 0 77664  3226         LDQ     COMMON+2           ENTER DEC EXP.
 05601   0221 00 0 05716  3227         DVP     A1-1               10
 05602  -0600 00 0 77671  3228         STQ     COMMON+7
 05603   0634 00 4 05621  3229         SXA     FL82,4
 05604   0074 00 4 05673  3230         TSX     INBCD,4
 05605  -0754 00 0 00000  3231         PXD     ,0
 05606   0560 00 0 77671  3232         LDQ     COMMON+7
 05607   0221 00 0 05716  3233         DVP     A1-1
 05610   0100 00 0 05612  3234         TZE     *+2
 05611   0074 00 4 05673  3235         TSX     INBCD,4
 05612   0500 00 0 77664  3236         CLA     COMMON+2
 05613   0100 00 0 05617  3237         TZE     FL81
 05614   0120 00 0 05617  3238         TPL     FL81
 05615   0500 00 0 00423  3239         CLA     ONEMI              MINUS SIGN
 05616   0074 00 4 05673  3240         TSX     INBCD,4
 05617   0500 00 0 00410  3241   FL81  CLA     ONEE
 05620   0074 00 4 05673  3242         TSX     INBCD,4
 05621   0774 00 4 00000  3243   FL82  AXT     **,4
 05622   0600 00 0 05702  3244         STZ     FLZET
 05623   0500 00 0 77672  3245   FL65  CLA     COMMON+8
 05624   0765 00 0 00043  3246   FL67  LRS     35
 05625   0221 00 0 05716  3247         DVP     A1-1               10.
 05626  -0600 00 0 77672  3248         STQ     COMMON+8           FRACTIONAL PART.
 05627  -0520 00 0 05702  3249         NZT     FLZET
 05630   0100 00 0 05635  3250         TZE     FL01
 05631  -0602 00 0 05702  3251         ORS     FLZET
 05632   0634 00 4 05634  3252         SXA     *+2,4              SAVE IR4.
 05633   0074 00 4 05673  3253         TSX     INBCD,4            ENTER DIGIT.
 05634   0774 00 4 00000  3254         AXT     **,4               RESTORE.
 05635   2 00001 4 05623  3255   FL01  TIX     FL65,4,1
 05636  -0754 00 0 00000  3256         PXD     0,0
 05637  -0520 00 0 05702  3257         NZT     FLZET
 05640   0074 00 4 05673  3258         TSX     INBCD,4
 05641   0500 00 0 00422  3259         CLA     A33                DEC. POINT.
 05642   0074 00 4 05673  3260         TSX     INBCD,4            ENTER.
 05643  -0754 00 0 00000  3261         PXD     0,0
 05644   0074 00 4 05673  3262         TSX     INBCD,4
 05645   0560 00 0 77667  3263         LDQ     COMMON+5
 05646  -0500 00 0 00427  3264         CAL     ONEBL              BLANK
 05647   0162 00 0 05651  3265         TQP     FL70               FOR PLUS.
 05650  -0500 00 0 00423  3266         CAL     ONEMI              NEGATIVE.
 05651   0074 00 4 05673  3267   FL70  TSX     INBCD,4            INSERT BLANK OR MINUS.
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0065


 05652  -0754 00 2 00000  3268         PXD     0,2
 05653  -0737 00 2 00000  3269         PDC     0,2
 05654   0560 00 0 00471  3270         LDQ     ONES                FILL OUT LAST WORD WITH 77S
 05655  -0500 00 1 05706  3271         CAL     FLOPB,1
 05656  -0763 00 2 00000  3272         LGL     0,2
 05657  -0130 00 0 00000  3273         XCL
 05660   0131 00 0 00000  3274         XCA
 05661   0074 00 4 05110  3275         TSX     $PRIN2,4
 05662  -2 00001 1 05666  3276         TNX     FLNX,1,1
 05663   0500 00 1 05706  3277         CLA     FLOPB,1
 05664   0074 00 4 05110  3278         TSX     $PRIN2,4
 05665   2 00001 1 05663  3279         TIX     *-2,1,1                                                  PAGE 070
 05666   0774 00 4 00000  3280   FLNX  AXT     **,4
 05667   0774 00 2 00000  3281   FLNY  AXT     **,2
 05670   0774 00 1 00000  3282   FLNZ  AXT     **,1
 05671  -0754 00 0 00000  3283         PXD     0,0
 05672   0020 00 4 00001  3284         TRA     1,4
                          3285  *
 05673  -0320 00 0 00413  3286   INBCD ANA     A77
 05674   0767 00 2 00044  3287         ALS     36,2
 05675  -0602 00 1 05706  3288         ORS     FLOPB,1
 05676   2 00006 2 05701  3289         TIX     *+3,2,6
 05677   1 00001 1 05700  3290         TXI     *+1,1,1
 05700   0774 00 2 00044  3291         AXT     36,2
 05701   0020 00 4 00001  3292         TRA     1,4
                          3293  *
 05702   0 00000 0 00000  3294   FLZET
 05706                    3295   FLOPB BES     3
 05706  -206060600000     3296  FLZPZ  VFD     H24/ 0.0,012/7777
 05707  +000575360400     3297         DEC     100000000
 05710  +000046113200     3298         DEC     10000000
 05711  +000003641100     3299         DEC     1000000
 05712  +000000303240     3300         DEC     100000
 05713  +000000023420     3301         DEC     10000
 05714  +000000001750     3302   THSND DEC     1000
 05715  +000000000144     3303         DEC     100
 05716  +000000000012     3304         DEC     10
 05717  +000000000001     3305   A1    DEC     1
 05720  +115040465025     3306   LOG2  OCT     115040465025       LOG BASE 10 OF 2.
 05721  +324464741127     3307   LOG10 OCT     324464741127       LOG BASE 2 OF 10-4.
 05722  +000001601225     3308   C7    OCT     1601225
 05723  +000007762774     3309   C6    OCT     7762774
 05724  +000132240566     3310   C5    OCT     132240566
 05725  +001164125106     3311   C4    OCT     1164125106
 05726  +007066267024     3312   C3    OCT     7066267024
 05727  +036577252307     3313   C2    OCT     36577252307
 05730  +130562064437     3314   C1    OCT     130562064437
 05731   2 00000 0 00000  3315   C0    TIX     0,0,0
                   00422  3316   A33   SYN     $QO33
                   00413  3317   A77   SYN     $Q63
                   00415  3318   A128  SYN     $Q128
                   00420  3319   ONEPL SYN     $QO20
                   00410  3320   ONEE  SYN     $QO25
                   00423  3321   ONEMI SYN     $QO40
                   00427  3322   ONEBL SYN     $QO60
                   00471  3323   ONES  SYN     SEVENS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0066


                          3324  *
                          3325             READ
                          3326
                          3327               READ = SELECT(RD.,LPAR,READ1.,
                          3328                                 LITER,INTERN.,
                          3329                                 NUM,INTERN.,
                          3330                                 RPAR,ERROR.,
                          3331                                 1,ERROR)
                          3332
                          3333                                                                          PAGE 071
                          3334             READ1
                          3335
                          3336             READ1 = SELECT(RD.,RPAR,0.,
                          3337                                LPAR,CONS(READ1,READ1).,
                          3338                                LITER,CONS(INTERN,READ1).,
                          3339                                NUMB,CONS(INTERN,READ1))
                          3340
                          3341         HEAD I
 05732   0634 00 4 05734  3342   READ  SXA     REDS1,4            SAVE LINK IR
 05733   0074 00 4 06026  3343         TSX     $RD,4              GET FIRST ITEM
 05734   0774 00 4 00000  3344   REDS1 AXT     **,4               RSTORE LINK IR
 05735   0340 00 0 06022  3345   REDIS CAS     RLPAR              DISPATCH ON TYPE OF ITEM READ
 05736   0020 00 0 05740  3346         TRA     *+2
 05737   0020 00 0 05757  3347         TRA     READ1              WAS (
 05740   0340 00 0 06023  3348         CAS     RRPAR
 05741   0020 00 0 05743  3349         TRA     *+2
 05742   0020 00 0 05747  3350         TRA     REDER
 05743   0340 00 0 06024  3351         CAS     RDOT
 05744   0020 00 4 00001  3352         TRA     1,4
 05745   0020 00 0 05747  3353         TRA     REDER
 05746   0020 00 4 00001  3354         TRA     1,4
 05747  -0634 00 4 01562  3355   REDER SXD     $ERROR,4           MUST BE AN ERROR
 05750   0601 00 0 03452  3356         STO     RS2                SAVE TYPE
 05751   0074 00 4 01222  3357         TSX     OUTPUT,4           WRITE OUT INPUT BUFFER
 05752   0 00000 0 00364  3358                 BCDOUT
 05753   0 00016 0 06351  3359                 CELL-15,,14
 05754   0500 00 0 03452  3360         CLA     RS2                GET TYPE
 05755   0074 00 4 01563  3361         TSX     $ERROR+1,4         GOT O ERROR
 05756   541060600154     3362         BCI     1,*8  1*           CONTEXT ERROR
                          3363  *
 05757  -0634 00 4 03451  3364   READ1 SXD     RS1,4              SAVE LINK IR
 05760   0074 00 4 06026  3365         TSX     $RD,4              GET NEXT ITEM
 05761   0340 00 0 06023  3366         CAS     RRPAR
 05762   0020 00 0 05764  3367         TRA     *+2
 05763   0020 00 0 06003  3368         TRA     RP1                WAS )  RETURN WITH NIL
 05764   0074 00 4 02312  3369         TSX     $SAVE,4
 05765  -3 03454 0 02377  3370         TXL     $END2,,RS2+2       SAVE 2 ITEMS
 05766   0340 00 0 06024  3371         CAS     RDOT
 05767   0020 00 0 05771  3372         TRA     *+2
 05770   0020 00 0 06006  3373         TRA     RP2                WAS .
 05771   0340 00 0 06022  3374         CAS     RLPAR
 05772   0020 00 0 05774  3375         TRA     *+2
 05773   0074 00 4 05757  3376         TSX     READ1,4
 05774   0601 00 0 03452  3377         STO     RS2                SAVE RESULTS
 05775   0074 00 4 05757  3378         TSX     READ1,4            GET NEXT ITEM
 05776   0131 00 0 00000  3379         XCA                        PUT IN MQ
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0067


 05777   0500 00 0 03452  3380         CLA     RS2                FIRST ITEM
 06000   0074 00 4 02326  3381         TSX     UNSAVE,4
 06001  -0534 00 4 03451  3382         LXD     RS1,4              RESTORE LINK IR
 06002   0020 00 0 03730  3383         TRA     $CONS              CONSTRUCT A LIST
                          3384  *
 06003  -0754 00 0 00000  3385   RP1   PXD     0,0                WAS )  RETURN WITH NIL
 06004  -0534 00 4 03451  3386         LXD     RS1,4
 06005   0020 00 4 00001  3387         TRA     1,4                                                      PAGE 072
                          3388  *
 06006   0074 00 4 06026  3389   RP2   TSX     $RD,4              WAS .  GET NEXT ITEM
 06007   0074 00 4 05735  3390         TSX     REDIS,4            DISPATCH ON IT
 06010   0601 00 0 03452  3391         STO     RS2                SAVE RESULTS
 06011   0074 00 4 06026  3392         TSX     $RD,4              GET NEXT ITEM
 06012   0340 00 0 06023  3393         CAS     RRPAR              SHOULD BE )
 06013   0020 00 0 05747  3394         TRA     REDER              GO TO ERROR IF NOT
 06014   0020 00 0 06016  3395         TRA     *+2
 06015   0020 00 0 05747  3396         TRA     REDER
 06016   0500 00 0 03452  3397         CLA     RS2                GET ITEM READ
 06017   0074 00 4 02326  3398         TSX     UNSAVE,4
 06020  -0534 00 4 03451  3399         LXD     RS1,4              RESTORE LINK IR
 06021   0020 00 4 00001  3400         TRA     1,4                RETURN WITH IT
                          3401  *
                   00505  3402  RLTR   SYN     QUOTED             SYMBOL FLAG
                   00476  3403   RNUMB SYN     FLOATD             FLOAT (USED TO SIGNIFY ANY KIND NUMBER
                          3404  *
                          3405         HEAD I
                          3406
                          3407             RD(A)
                          3408
                          3409             READS BCD LISTS FROM CARDS (SW 1 DOWN) OR TAPE 4 (SW1 UP)
                          3410
 06022   0 00531 0 00000  3411   RLPAR         ,,$H74D
 06023   0 00527 0 00000  3412   RRPAR         ,,$H34D
 06024   0 00526 0 00000  3413   RDOT          ,,$H33D
 06025                    3414   RDVAL BSS     0
 06025   0 00000 0 00001  3415  LRCIS          1                  CARD IMAGE EMPTY TEST CELL
 06026   0500 00 0 06415  3416  RD     CLA     RDLST
 06027   0100 00 0 06032  3417         TZE     RDAA               GO IF NOT
 06030   0600 00 0 06415  3418         STZ     RDLST              OTHERWISE ZERO
 06031   0020 00 4 00001  3419         TRA     1,4                AND EXIT
 06032   0634 00 4 06063  3420   RDAA  SXA     RDX,4              SAVE INDEX REGISTERS
 06033   0634 00 2 06070  3421         SXA     RDY,2
 06034   0634 00 1 06067  3422         SXA     RDZ,1
 06035   0604 00 0 06414  3423         STI     RDIND              SAVE THE INDICATORS
 06036   0441 00 0 00370  3424         LDI     $ZERO
 06037   0774 00 2 00006  3425   RDPTS AXT     6,2                SET UP IR 2 AND 1
 06040   0774 00 1 00014  3426   RDWDS AXT     12,1
 06041   0074 00 4 06172  3427   RDGC  TSX     GET,4              GET THE FIRST CHARACTER
 06042   0734 00 4 00000  3428         PAX     0,4                TYPE TO INDEX REGISTER
 06043   0020 00 4 06053  3429         TRA     RDJT1,4            DISPATCH ON TYPE
 06044   0020 00 0 06072  3430         TRA     RDDLR              $
 06045   0020 00 0 06122  3431         TRA     RDLT
 06046   0020 00 0 06123  3432         TRA     RDNM               NUMBER
 06047   0020 00 0 06041  3433         TRA     RDGC               ,
 06050   0020 00 0 06062  3434         TRA     RDPU               (
 06051   0020 00 0 06062  3435         TRA     RDPU               )
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0068


 06052   0020 00 0 06062  3436         TRA     RDPU               .
 06053   0074 00 4 01222  3437   RDJT1 TSX     OUTPUT,4           ILLEGAL CHARACTER
 06054   0 00000 0 00364  3438                 BCDOUT
 06055   0 00017 0 06353  3439                 RDPB,,15
 06056  -0754 00 0 00000  3440         PXD     0,0                CLEAR AC
 06057  -0634 00 4 01562  3441         SXD     $ERROR,4           SAVE IR 4                             PAGE 073
 06060   0074 00 4 01563  3442         TSX     $ERROR+1,4         GO TO ERROR ROUTINE
 06061   545160600354     3443         BCI     1,*R  3*
 06062   0500 00 4 06025  3444  RDPU   CLA     RDVAL,4
 06063   0774 00 4 00000  3445   RDX   AXT     **,4
 06064   0634 00 2 06037  3446   RDFIN SXA     RDPTS,2            SAVE INDEX REGISTERS
 06065   0634 00 1 06040  3447         SXA     RDWDS,1
 06066   0441 00 0 06414  3448         LDI     RDIND              RESTORE INDICATORS
 06067   0774 00 1 00000  3449   RDZ   AXT     **,1               RESTORE INDEX REGISTERS
 06070   0774 00 2 00000  3450   RDY   AXT     **,2
 06071   0020 00 4 00001  3451         TRA     1,4                EXIT
                          3452  *
 06072   0055 00  000003  3453   RDDLR SIR     3                  SET FIRST CHARCTER AND LITERAL INDICAT
 06073   0074 00 4 06172  3454         TSX     GET,4              IS NEXT CHARACTER A $
 06074   0734 00 4 00000  3455         PAX     0,4                IF SO INDICATES A LITERAL STRING
 06075   0500 00 0 06416  3456         CLA     GTVAL              SET VALUE OF GET
 06076   0601 00 0 06413  3457         STO     RDDDC
 06077   3 00006 4 06110  3458         TXH     RDDD,4,6           GO IF A $
 06100   0634 00 4 06106  3459         SXA     RDT,4              NOT SO DO A REGULAR D
 06101   0500 00 0 06412  3460         CLA     RDDLS              $
 06102   0601 00 0 06416  3461         STO     GTVAL
 06103   0074 00 4 06241  3462         TSX     PUT,4              PUT IN OUTPUT BUFFER
 06104   0500 00 0 06413  3463         CLA     RDDDC              LAST VALUE OF GET
 06105   0601 00 0 06416  3464         STO     GTVAL
 06106   0774 00 4 00000  3465   RDT   AXT     **,4               TYPE OF LAST CHARACTER
 06107   0020 00 4 06137  3466         TRA     RDJT2,4            DISPATCH ON TYPE
                          3467  *
 06110   0074 00 4 06172  3468   RDDD  TSX     GET,4              IS A LITERAL STRING
 06111   0500 00 0 06416  3469         CLA     GTVAL              USE THIS ITEM AS A DELIMITER
 06112   0601 00 0 06413  3470         STO     RDDDC
 06113   0074 00 4 06172  3471   RDDDL TSX     GET,4              GET NEXT CHARACTER
 06114   0500 00 0 06413  3472         CLA     RDDDC              GET DELIMITER
 06115   0340 00 0 06416  3473         CAS     GTVAL              COMAPRE WITH CHARACTER JUST READ
 06116   0020 00 0 06120  3474         TRA     *+2                NO
 06117   0020 00 0 06142  3475         TRA     RDXT               YES, EXIT
 06120   0074 00 4 06241  3476         TSX     PUT,4              NO, PUT AWAY THE CHARACTER
 06121   0020 00 0 06113  3477         TRA     RDDDL              GET NEXT CHARACTER
                          3478  *
 06122   0055 00  000002  3479   RDLT  SIR     2                  SET LITERAL INDICATOR
 06123   0055 00  000001  3480   RDNM  SIR     1                  SET FIRST CHARACTER INDICATOR
 06124   0074 00 4 06241  3481   RDNN  TSX     PUT,4              PUT THE CHARACTER AWAY
 06125   0074 00 4 06172  3482         TSX     GET,4              GET NEXT CHARACTER
 06126   0734 00 4 00000  3483         PAX     0,4
 06127   0020 00 4 06137  3484         TRA     RDJT2,4            DISPATCH ON TYPE
 06130   0020 00 0 06124  3485         TRA     RDNN               $
 06131   0020 00 0 06124  3486         TRA     RDNN               LITERAL
 06132   0020 00 0 06124  3487         TRA     RDNN               NUMBER
 06133   0020 00 0 06142  3488         TRA     RDXT               ,
 06134   0020 00 0 06140  3489         TRA     RDPS               (
 06135   0020 00 0 06140  3490         TRA     RDPS               )
 06136   0020 00 0 06164  3491         TRA     RDPD               .
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0069


 06137   0020 00 0 06053  3492   RDJT2 TRA     RDJT1              ILLEGAL CHARACTER
                          3493  *
 06140   0500 00 4 06025  3494  RDPS   CLA     RDVAL,4            SETUP RDLST CELL
 06141   0601 00 0 06415  3495         STO     RDLST                                                    PAGE 074
 06142   0534 00 4 06246  3496   RDXT  LXA     PUTMC,4            CHARACTER COUNT
 06143  -0754 00 0 00000  3497         PXD     0,0                CLEAR AC
 06144   3 00005 4 06162  3498         TXH     TPF,4,5            GO IF LAST WORD COMPLETED
 06145   0560 00 0 00471  3499         LDQ     SEVENS             GET 77 S
 06146   0522 00 4 06327  3500         XEC     PTSFT-1,4          PROPER SHIFT
 06147   0774 00 4 00006  3501         AXT     6,4                RESET CHARACTER COUNT
 06150   0634 00 4 06246  3502         SXA     PUTMC,4
 06151   0534 00 4 06254  3503         LXA     PUTPC,4            WORD COUNT
 06152  -0602 00 4 06335  3504         ORS     RDPNB,4            PUT IN PNAME BUFFER
 06153  -0754 00 0 00000  3505         PXD     0,0                CLEAR AC
 06154   0622 00 4 06343  3506   TPFA  STD     PUTVL+6,4          CHIP OFF PNMAE SAUSAGE
 06155   0500 00 0 06335  3507         CLA     PUTVL              GET VALUE
 06156  -0774 00 4 06062  3508         AXC     RDPU,4             SET UP TRASNFER TO EXIT
 06157   0056 00  000002  3509         RNT     2                  TEST LITERAL INDICATOR
 06160   0020 00 0 06543  3510         TRA     $NUTRN             MAKE IT A NUMBER
 06161   0020 00 0 06420  3511         TRA     INTRN1             MAKE IT AN OBJECT
                          3512  *
 06162   0534 00 4 06254  3513   TPF   LXA     PUTPC,4            CORRECT PART COUNT
 06163   1 00001 4 06154  3514         TXI     TPFA,4,1
                          3515  *
 06164   0054 00  000002  3516   RDPD  RFT     2                  TEST FOR LITERAL
 06165   0020 00 0 06140  3517         TRA     RDPS               FIRST . TERMONATES A LITERAL
 06166   0054 00  000020  3518         RFT     20                 TEST FOR FIRST DOT IN A NUMBER
 06167   0020 00 0 06140  3519         TRA     RDPS               SECOND . TERMINATES A NUMBER
 06170   0055 00  000020  3520         SIR     20                 SET DOT INDICATOR
 06171   0020 00 0 06124  3521         TRA     RDNN
                          3522  *
 06172   0634 00 4 06220  3523   GET   SXA     GTX,4              SAVE LINK IR
 06173   0520 00 0 06025  3524         ZET     LRCIS              TEST FOR NEW CARD NEEDED
 06174   0020 00 0 06227  3525         TRA     GTGCD              GET A NEW CAERD
 06175  -0754 00 0 00000  3526   GETGO PXD     0,0                CLEAR AC
 06176   0560 00 1 06370  3527         LDQ     CELL,1             GET NEXT WORD
 06177  -0763 00 0 00003  3528         LGL     3                  HIGH ORDER BITS
 06200   0734 00 4 00000  3529         PAX     0,4
 06201  -0763 00 0 00003  3530         LGL     3                  CHARACTER
 06202   0340 00 0 00416  3531         CAS     $QO14              IS IT ILLEGAL MINUS SIGN
 06203   0020 00 0 06205  3532         TRA     *+2                NO
 06204   0500 00 0 00423  3533         CLA     $QO40              YES GET LEGAL ONE
 06205   0601 00 0 06416  3534         STO     GTVAL              VALUE OF GET FOR PUT
 06206  -0320 00 0 00377  3535         ANA     $Q7                MASK OUT HIGH ORDER BIT
 06207   0621 00 0 06213  3536         STA     GTPT
 06210  -0600 00 1 06370  3537         STQ     CELL,1             UPDATE WORD
 06211  -2 00001 2 06222  3538         TNX     GTPC,2,1           UPDATE PART COUNT
 06212   0560 00 4 06352  3539   GTMC  LDQ     GTTBL,4            GET TABLE ENTRY
 06213  -0763 00 0 00000  3540   GTPT  LGL     **                 SHIFT PROPER ITEM TO AC
 06214   0522 00 0 06213  3541         XEC     GTPT
 06215   0522 00 0 06213  3542         XEC     GTPT
 06216  -0754 00 0 00000  3543         PXD     0,0                CLEAR AC
 06217  -0763 00 0 00003  3544         LGL     3                  TYPE NOW IN AC
 06220   0774 00 4 00000  3545   GTX   AXT     **,4               RESTORE LINK IR
 06221   0020 00 4 00001  3546         TRA     1,4
                          3547  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0070


 06222   0774 00 2 00006  3548   GTPC  AXT     6,2                RELOAD PART COUNT
 06223   2 00000 1 06212  3549         TIX     GTMC,1,            GO IF NEW WORD NOT NEEDED             PAGE 075
 06224   0604 00 0 06025  3550         STI     LRCIS              GET NEW CARD
 06225   0774 00 1 00014  3551         AXT     12,1               ERELOAD IR 1
 06226   0020 00 0 06212  3552         TRA     GTMC               GO BACJ
                          3553  *
 06227   0074 00 4 00663  3554   GTGCD TSX     $INPUT,4
 06230   0 00000 0 00000  3555                 $BCDIN
 06231   0 00034 0 06354  3556                 LWPO,,28           GET NEXT BCD CARD
 06232   0020 00 0 06234  3557         TRA     *+2                IGNORE REDUNDNACY ERROR
 06233   0020 00 0 06236  3558         TRA     GTEOF              EOF RETURN
 06234   0600 00 0 06025  3559         STZ     LRCIS              SET SWITCH THAT CARD IS PRESENT
 06235   0020 00 0 06175  3560         TRA     GETGO              NO GO ON
                          3561  *
 06236  -0754 00 0 00000  3562   GTEOF PXD     0,0                CLEAR AC
 06237   0074 00 4 01562  3563         TSX     $ERROR,4           GO TO ERROR
 06240   546051606004     3564         BCI     1,* R  4*          EOF ON READ IN
                          3565  *
 06241   0054 00  000040  3566   PUT   RFT     40                 TEST TO SEE IF TOOMUCH PNAME
 06242   0020 00 0 06270  3567         TRA     PTTFA              GO TO ERROR COMMENT
 06243   0634 00 4 06256  3568         SXA     PUTX,4             SAVE LINK IR
 06244   0056 00  000010  3569         RNT     10                 TEST FOR FIRST TIME THRU
 06245   0020 00 0 06276  3570         TRA     PUTZB              ZERO PNAME BUFFER
 06246   0774 00 4 00006  3571   PUTMC AXT     6,4                CHARACTER COUNT
 06247   0500 00 0 06416  3572         CLA     GTVAL              GET CHARACTER
 06250   0560 00 0 00370  3573         LDQ     $ZERO
 06251   0522 00 4 06330  3574         XEC     PTSFT,4            PROPER SHIFT TO CHARACTER
 06252  -2 00001 4 06260  3575         TNX     PTRFP,4,1          DECREMENT CHARACTER COUNT
 06253   0634 00 4 06246  3576         SXA     PUTMC,4            UPDATE COUNT CELL
 06254   0774 00 4 00005  3577   PUTPC AXT     5,4                NUMBER OF WORDS IN PNAME
 06255  -0602 00 4 06335  3578   PUTGA ORS     RDPNB,4            PUT CHARACTER IN
 06256   0774 00 4 00000  3579   PUTX  AXT     **,4               RESTORE LINK IR
 06257   0020 00 4 00001  3580         TRA     1,4                EXIT
 06260   0774 00 4 00006  3581   PTRFP AXT     6,4                RELOAD PART COUNT
 06261   0634 00 4 06246  3582         SXA     PUTMC,4
 06262   0534 00 4 06254  3583         LXA     PUTPC,4            WORD COUNT
 06263  -0602 00 4 06335  3584         ORS     RDPNB,4
 06264   2 00001 4 06266  3585         TIX     *+2,4,1            DECREMENT WORD COUNT
 06265   0055 00  000040  3586         SIR     40                 INDICATE PNAME BUFFER FULL
 06266   0634 00 4 06254  3587         SXA     PUTPC,4            UPDATE COUNTER
 06267   0020 00 0 06256  3588         TRA     PUTX               GO ON
                          3589  *
 06270   0074 00 4 01222  3590   PTTFA TSX     OUTPUT,4           TOO MANY CHARACTER
 06271   0 00000 0 00364  3591                 BCDOUT             WRITE OUT PNAME SO FAR
 06272   0 00006 0 06327  3592                 RDPNB-6,,6
 06273  -0754 00 0 00000  3593         PXD     0,0                CLEAR AC
 06274   0074 00 4 01562  3594         TSX     $ERROR,4           GO TO ERROR
 06275   545160600554     3595         BCI     1,*R  5*
                          3596  *
 06276   0055 00  000010  3597   PUTZB SIR     10                 SET SWITCH
 06277   0774 00 4 00005  3598         AXT     5,4                FIX UP BUFFER
 06300   0634 00 4 06254  3599         SXA     PUTPC,4            AND PART COUNT
 06301   0600 00 4 06335  3600         STZ     RDPNB,4
 06302   2 00001 4 06301  3601         TIX     *-1,4,1
 06303   0500 00 0 06335  3602         CLA     PUTVL              RELINK THE WORDS
 06304   0774 00 4 00005  3603         AXT     5,4                                                      PAGE 076
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0071


 06305   0402 00 0 00442  3604         SUB     $QD1               SET POINTERS
 06306   0601 00 4 06343  3605         STO     PUTVL+6,4
 06307   2 00001 4 06305  3606         TIX     *-2,4,1
 06310   0020 00 0 06246  3607         TRA     PUTMC
                          3608  *
 06311  -0625 00 0 06025  3609  TEREAD STL     LRCIS              SET SWITCH TO GET A NEW CARD
 06312   0500 00 0 00376  3610         CLA     $Q6                SET CELLS
 06313   0621 00 0 06037  3611         STA     RDPTS
 06314   0621 00 0 06246  3612         STA     PUTMC
 06315   0500 00 0 00403  3613         CLA     $Q12
 06316   0621 00 0 06040  3614         STA     RDWDS
 06317   0600 00 0 06415  3615         STZ     RDLST
 06320  -0754 00 0 00000  3616         PXD     0,0                CLEAR AC
 06321   0020 00 4 00001  3617         TRA     1,4                EXIT
                          3618  *
 06322  -0763 00 0 00036  3619         LGL     30
 06323  -0763 00 0 00030  3620         LGL     24
 06324  -0763 00 0 00022  3621         LGL     18
 06325  -0763 00 0 00014  3622         LGL     12
 06326  -0763 00 0 00006  3623         LGL     6
 06327   0761 00 0 00000  3624         NOP
 06330                    3625   PTSFT BSS     0
 06335                    3626  RDPNB  BES     5
 06335   0 71442 0 00000  3627   PUTVL         ,,-*-1             VALUE OF RDA
 06336   0 71441 0 71450  3628                 -RDPNB+5,,-*-1     FOR INTERN OF NUTRN
 06337   0 71440 0 71447  3629                 -RDPNB+4,,-*-1
 06340   0 71437 0 71446  3630                 -RDPNB+3,,-*-1
 06341   0 71436 0 71445  3631                 -RDPNB+2,,-*-1
 06342   0 00000 0 71444  3632                 -RDPNB+1
 06343  -260430000000     3633         OCT     660430000000,466666660000,660760000000,566666660000
 06347  -260120000000     3634         OCT     660120000000,566666660000,350650000000
 06352  -155555550000     3635   GTTBL OCT     555555550000
 06353   006060606060     3636   RDPB  BCI     1,0
 06354   0 00000 0 00000  3637   LWPO
 06355   0 00000 0 00000  3638   LWCKS
 06370                    3639   CELL  BES     10
 06404                    3640   LWDPB BES     12
 06404                    3641         BSS     6                  ROOM FOR ID AND LLOK AHEAD BITS
 06412   000000000053     3642   RDDLS BCI     1,00000$
 06413   0 00000 0 00000  3643   RDDDC
 06414   0 00000 0 00000  3644   RDIND                            INDICATOR STORAGE
 06415   0 00000 0 00000  3645  RDLST
 06416   0 00000 0 00000  3646  GTVAL
                          3647  *
                          3648
                          3649             INTERN
                          3650
                          3651         HEAD I
                          3652  *                                                                       PAGE 077
                          3653  * INTERN       CHANGED AND MODIFIED TO INCLUDE EXTERNAL ENTRACES AND
                          3654  *              THE BUCKET SORT
                          3655  *
 06417  -0600 00 0 06534  3656  BUKSRT STQ     BSRT               ATOM TO BE PLACED (CNSFWL ENTRANCE)
 06420   0601 00 0 06533  3657  INTRN1 STO     $VALUE             EXTERNAL ENTRANCE FROM APPLY
 06421   0634 00 4 06525  3658  INTERN SXA     ITRX,4             ENTRANCE FROM READ
 06422   0634 00 2 06526  3659         SXA     ITRY,2             SAVE IR 2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0072


 06423  -0534 00 4 06533  3660         LXD     $VALUE,4           PICK UP POINTER TO PNAME LIST
 06424   0500 00 4 00000  3661         CLA     0,4                GET FIRST WORD OF PNAME
 06425   0734 00 4 00000  3662         PAX     0,4
 06426  -0500 00 4 00000  3663         CAL     0,4                GET FIRST WORD IN LOGICAL AC
 06427   0765 00 0 00043  3664         LRS     35                 PUT IN MQ AND BIT 35 OF AC
 06430   0221 00 0 06535  3665         DVP     BUCKNO             DIVIDE BY NUMBER OF BUCKETS
 06431   0760 00 0 00012  3666         DCT                        CHECK DIVISION
 06432   0074 00 4 01676  3667         TSX     $DCT,4             DIVIDE ERROR
 06433   0734 00 4 00000  3668         PAX     0,4                REMAIDNER TO IR 4
 06434   0500 00 4 66427  3669         CLA     BUCKET,4           PICK UP BUCKET
 06435   0634 00 4 06522  3670         SXA     BUCK,4             SAVE THE REMAINDER
 06436   0734 00 4 00000  3671         PAX     0,4
 06437  -0634 00 4 06540  3672         SXD     O5,4               SET UP WORD
 06440   0520 00 0 06534  3673         ZET     BSRT               TEST FOR CNSFWL ENTRANCE
 06441   0020 00 0 06530  3674         TRA     INTAD              YES, GO
 06442  -0634 00 4 06536  3675         SXD O1,4
 06443  -0534 00 4 00001  3676   O4    LXD 01,4                   NEXT OBJECT
 06444  -3 00000 4 06504  3677         TXL OUT,4,0                END OF OBJLIST
 06445   0500 00 4 00000  3678         CLA ,4
 06446   0622 00 0 06536  3679         STD O1
 06447   0734 00 4 00000  3680         PAX ,4                     OBJECT M/C NAME
 06450  -0634 00 4 06537  3681         SXD O2,4                   PRESERVE IT
 06451   0500 00 4 00000  3682         CLA ,4
 06452  -0734 00 4 00000  3683   O3    PDX ,4                     ADDRESS PART IS -1
 06453  -3 00000 4 06443  3684         TXL O4,4,0                 END OF PROPERTY LIST
 06454   0500 00 4 00000  3685         CLA ,4
 06455   0734 00 4 00000  3686         PAX ,4
 06456  -3 07334 4 06452  3687         TXL O3,4,$PNAME-1          NO
 06457   3 07335 4 06452  3688         TXH O3,4,$PNAME            NO
 06460  -0734 00 4 00000  3689         PDX ,4                     YES IT IS
 06461   0500 00 4 00000  3690         CLA ,4
 06462  -0734 00 4 00000  3691         PDX ,4                     U
 06463  -0534 00 2 06533  3692         LXD $VALUE,2               V
 06464  -3 00000 2 06443  3693   O7    TXL     O4,2,0
 06465   0500 00 4 00000  3694         CLA     0,4
 06466   0601 00 0 06542  3695         STO Q4                     CDR(U)
 06467   0734 00 4 00000  3696         PAX ,4                     CAR(U)
 06470   0500 00 2 00000  3697         CLA ,2
 06471   0622 00 0 06541  3698         STD Q2                     CDR(V)
 06472   0734 00 2 00000  3699         PAX ,2
 06473   0500 00 4 00000  3700         CLA ,4                      CWR(CAR(U))
 06474   0402 00 2 00000  3701         SUB ,2                     -CWR(CAR(V))
 06475  -0100 00 0 06443  3702         TNZ O4                     NOT THE SAME,NEXT OBJECT
 06476  -0534 00 4 06542  3703         LXD Q4,4                   CDR(U)
 06477  -0534 00 2 06541  3704         LXD Q2,2
 06500   3 00000 4 06464  3705         TXH O7,4,0                 IF NOT YET END OF NAME
 06501   3 00000 2 06542  3706         TXH Q4,2,0                 IF U,V OF DIFFERENT LENGTH,NEXT       PAGE 078
 06502   0500 00 0 06537  3707         CLA O2
 06503   0020 00 0 06525  3708         TRA     ITRX
 06504   0500 00 0 06533  3709   OUT   CLA $VALUE
 06505   0074 00 4 07343  3710         TSX $CP1,4
 06506   0560 00 0 00370  3711         LDQ     $ZERO
 06507   0074 00 4 03730  3712         TSX $CONS,4
 06510   0131 00 0 00000  3713         XCA
 06511   0500 00 0 00504  3714         CLA OPNA
 06512   0074 00 4 03730  3715         TSX $CONS,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0073


 06513   0131 00 0 00000  3716         XCA                        INTO MQ
 06514   0500 00 0 00460  3717         CLA     $DMASK             ATOM SYMBOL
 06515   0074 00 4 03730  3718         TSX     $CONS,4            MAKE IT AN ATOM
 06516   0560 00 0 06540  3719   INTCN LDQ     O5                 LIST OF ATOMS IN BUCKET
 06517   0622 00 0 06540  3720         STD     O5                 SAVE ATOM AS ANSWER
 06520   0074 00 4 03730  3721         TSX     $CONS,4            ATTACH TO BEGINNING OF LIST
 06521   0771 00 0 00022  3722         ARS     18                 PUT IN ADDRESS
 06522   0774 00 4 00000  3723   BUCK  AXT     **,4               BUCKET NUMBER
 06523   0621 00 4 66427  3724         STA     BUCKET,4           PUT IN PROPER BUCJET
 06524   0500 00 0 06540  3725         CLA     O5                 ATOM AS ANSWER
 06525   0774 00 4 00000  3726   ITRX  AXT     **,4               RESTORE LINK IR
 06526   0774 00 2 00000  3727   ITRY  AXT     **,2
 06527   0020 00 4 00001  3728         TRA     1,4                EXIT
 06530   0500 00 0 06534  3729   INTAD CLA     BSRT               PICK UP ATOM
 06531   0600 00 0 06534  3730         STZ     BSRT               ZERO LOCATION
 06532   0020 00 0 06516  3731         TRA     INTCN              PLACE ATOM IN BICKET
 06533   0 00000 0 00000  3732   VALUE                            POINTER TO PNAME LIST
 06534   0 00000 0 00000  3733   BSRT                             ATOM IN CNSFWL WENTRANCE
 06535   0 00000 0 00177  3734  BUCKNO PZE     127                NUMBER OF BUCKETS
                          3735  *
 06536   0 00000 0 00000  3736   O1
 06537   0 00000 0 00000  3737   O2
 06540   0 00000 0 00000  3738   O5
                   00504  3739   OPNA  SYN     PNAMED
 06541   0 00000 0 00000  3740   Q2
 06542   0 00000 0 00000  3741   Q4
                          3742
                          3743         HEAD T
 06543   0634 00 4 06617  3744   NUTRN SXA     NX4,4              SAVE IDNEX REGISVERS
 06544   0634 00 2 06616  3745         SXA     NX2,2
 06545   0634 00 1 06615  3746         SXA     NX1,1
 06546   0774 00 1 00006  3747         AXT 6,1
 06547  -0534 00 4 06533  3748         LXD $VALUE,4
 06550   0500 00 4 00000  3749   NA1   CLA 0,4
 06551  -0734 00 4 00000  3750         PDX 0,4
 06552   0734 00 2 00000  3751         PAX 0,2
 06553   0500 00 2 00000  3752         CLA 0,2
 06554   0601 00 1 07333  3753         STO BUFFER+6,1
 06555  -3 00000 4 06566  3754         TXL NA2,4,0
 06556   2 00001 1 06550  3755         TIX NA1,1,1
 06557  -0634 00 4 01562  3756   NE    SXD $ERROR,4
 06560   0074 00 4 01222  3757         TSX OUTPUT,4
 06561   0 00000 0 00364  3758             BCDOUT
 06562   0 00016 0 06351  3759             I$CELL-15,,14
 06563  -0754 00 0 00000  3760         PXD     0,0                CLEAR AC                              PAGE 079
 06564   0074 00 4 01563  3761         TSX $ERROR+1,4
 06565   545160600654     3762         BCI     1,*R  6*           NUMBER TO LARGE IN CONVERSION
 06566   0500 00 0 00472  3763   NA2   CLA BLANKS
 06567   0601 00 1 07334  3764         STO BUFFER+7,1
 06570   0500 00 0 06621  3765         CLA     KBPOS              PARAMETER FOR NUMBR
 06571   0074 00 4 06622  3766         TSX     $NUMBR,4           NUMBER TO MQ
 06572   0100 00 0 06557  3767         TZE     NE                 OUT-OF-RANGE ERROR
 06573  -0120 00 0 06612  3768         TMI     NA7                TRA IF FLOATING NUMBER
 06574  -0760 00 0 00001  3769         PBT                        TEST FOR OCTAL NUMBER
 06575   0020 00 0 06601  3770         TRA     NA3                TRA IF OCTAL
 06576   0500 00 0 00503  3771         CLA     $OCTD              OCTAL SIGNAL FOR $MKNO
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0074


 06577   0131 00 0 00000  3772         XCA
 06600   0020 00 0 06614  3773         TRA     NA8
 06601   0131 00 0 00000  3774   NA3   XCA                        NUMBER TO AC
 06602   0560 00 0 00475  3775         LDQ     $FIXD              FIX TO MQ
 06603  -0120 00 0 06614  3776         TMI     NA8
 06604   0340 00 0 00402  3777         CAS     $Q10               TEST FOR 0 THRU 9
 06605   0020 00 0 06614  3778         TRA     NA8
 06606   0020 00 0 06614  3779         TRA     NA8
 06607   0361 00 0 00521  3780         ACL     $H00A              FORM PRINT OBJECT
 06610   0767 00 0 00022  3781         ALS     18
 06611   0020 00 0 06615  3782         TRA     NX1
 06612   0500 00 0 00476  3783   NA7   CLA     FLOATD             FLOAT SIGNAL FOR $MKNO
 06613   0131 00 0 00000  3784         XCA                        NUMBER TO AC
 06614   0074 00 4 12636  3785   NA8   TSX     $MKNO,4            MAKE A NUMBER
 06615   0774 00 1 00000  3786   NX1   AXT     **,1               RESTORE INDEX REGISTERS
 06616   0774 00 2 00000  3787   NX2   AXT     **,2
 06617   0774 00 4 00000  3788   NX4   AXT     **,4
 06620   0020 00 4 00001  3789         TRA     1,4
 06621   0 00001 0 07325  3790   KBPOS PZE     BUFFER,,1
                          3791
                          3792
                          3793         HEAD F
                          3794
                          3795             NUMBR CONVERTS PACKET BCD CHARACTERS TO A NUMBER WHICH
                          3796             APPEARS IN MQ.   DBC CONVERSIONS ARE FOLLOWED.  OCTAL
                          3797             NUMBERS ARE SIGNALLED BY Q AND MAY BE FOLLOWED BY A
                          3798             SCALE FACTOR.
                          3799
                          3800             ROUTINE STOLEN FROM UADBC1
                          3801
                          3802
 06622   0634 00 1 07155  3803   NUMBR SXA PX1,1          SAVE INDEX REGISTERS
 06623   0634 00 2 07156  3804         SXA PX2,2
 06624   0634 00 4 07157  3805         SXA PX4,4
 06625   0602 00 0 77665  3806         SLW T
 06626   0737 00 2 00000  3807         PAC ,2             IR2 HAS WORD COUNT
 06627  -0737 00 1 00000  3808         PDC ,1             IR1 WILL GET CHARACTER COUNT
 06630   0771 00 0 00021  3809         ARS 17
 06631   0601 00 0 77666  3810         STO N
 06632   0767 00 0 00001  3811         ALS 1
 06633   0400 00 0 77666  3812         ADD N
 06634   0737 00 4 00000  3813         PAC ,4
 06635   0560 00 2 00000  3814         LDQ 0,2            PUT BCD WORD IN MQ                            PAGE 080
 06636  -0763 00 4 77772  3815         LGL -6,4           SHIFT OUT EXTRA CHARACTERS
 06637  -0600 00 0 77662  3816         STQ MQ             SAVE FIRST BATCH OF CHARACTERS
 06640   1 00007 1 06641  3817         TXI *+1,1,7
                          3818
                          3819             LOOK AT CHARACTERS UNTIL A Q OR NON-OCTAL CHARACTER APPEARS.
                          3820
 06641  -0754 00 0 00000  3821  CY3    PXD     ,0
 06642  -0763 00 0 00006  3822         LGL 6
 06643   0402 00 0 00000  3823         SUB Q8             TEST FOR OCTAL DIGIT
 06644   0120 00 0 06651  3824         TPL CY4
 06645   2 00001 1 06641  3825   CY2   TIX CY3,1,1        GET NEXT CHARACTER
 06646   1 77777 2 06647  3826         TXI *+1,2,-1
 06647   0560 00 2 00000  3827         LDQ 0,2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0075


 06650   1 00005 1 06641  3828         TXI CY3,1,5
 06651   0400 00 0 00000  3829   CY4   ADD Q8
 06652   0340 00 0 00426  3830         CAS Q
 06653   0020 00 0 06666  3831         TRA DECNO
 06654   0020 00 0 07170  3832         TRA OCTNO          IF Q, NUMBER IS OCTAL
 06655   0340 00 0 00423  3833         CAS MINUS          IF CHARACTER IS MINUS, PLUS OR DASH,
 06656   0020 00 0 06666  3834         TRA DECNO            LOOK AT MORE CHARACTERS,
 06657   0020 00 0 06645  3835         TRA CY2              OTHERWISE NUMBER IS DECIMAL
 06660   0340 00 0 00420  3836         CAS PLUS
 06661   0020 00 0 06666  3837         TRA DECNO
 06662   0020 00 0 06645  3838         TRA CY2
 06663   0340 00 0 00416  3839         CAS DASH
 06664   0020 00 0 06666  3840         TRA DECNO
 06665   0020 00 0 06645  3841         TRA CY2
                          3842
 06666   0535 00 2 77665  3843   DECNO LAC T,2            IR2 HAS WORD COUNT
 06667  -0535 00 1 77665  3844         LDC T,1            IR1 WILL GET CHARACTER COUNT
 06670   0560 00 0 77662  3845         LDQ MQ             RESTORE FIRST GRUOP OF CHARACTERS
 06671  -0754 00 0 00000  3846         PXD     ,0
 06672   0602 00 0 77662  3847   BN2   SLW BN             REGISTERS
 06673   0602 00 0 77663  3848   EX2   SLW EXPN
 06674   0602 00 0 77666  3849   INTN  SLW N
 06675  -0534 00 4 00000  3850         LXD Q10,4          SET DECIMAL COUNT TO ZERO
 06676  -0500 00 0 06766  3851         CAL SW1            RESET SWITCHES FOR
 06677   0630 00 0 07033  3852         STP CM2             FIXED POINT
 06700   0630 00 0 07106  3853         STP CM6             X
 06701   0630 00 0 07011  3854         STP EXS             EXP
 06702   0630 00 0 07035  3855         STP CM3             POINT
 06703   0630 00 0 07020  3856         STP CX3             DECIMAL NUMBER
 06704  -0500 00 0 06674  3857         CAL INTN           INITIALIZE CONVERSION
 06705   1 00010 1 06720  3858         TXI BN3,1,8        FIX INITIAL CHARACTER COUNT
 06706   0502 00 0 07035  3859   PT1   CLS CM3            INVERT SWITCH TO SIGNAL DECIMAL POINT
 06707   0601 00 0 07035  3860         STO CM3
 06710  -0500 00 0 06743  3861         CAL CV3
 06711   0621 00 0 06760  3862         STA CV5            ROUTINE TO COUNT
 06712   0621 00 0 06763  3863         STA CV6            DECIMAL PLACES
 06713   1 00001 4 06760  3864         TXI CV5,4,1
 06714   1 77777 4 06743  3865   PT3   TXI CV3,4,-1       COUNT DECIMAL PLACES
 06715   0502 00 0 07011  3866   EX1   CLS EXS            INVERT SWITCH TO SIGNAL EXPONENT
 06716   0601 00 0 07011  3867         STO EXS
 06717  -0500 00 0 06673  3868         CAL EX2            SET UP EXPONENT CONVERSION                    PAGE 081
 06720   0621 00 0 06751  3869   BN3   STA CV7            STORE CONVERSION
 06721   0621 00 0 06753  3870         STA CV8            ADDRESS
 06722   0621 00 0 06757  3871         STA CV9
 06723  -0500 00 0 06714  3872         CAL PT3            INITIAL CONVERSION
 06724   0621 00 0 06760  3873         STA CV5            WITHOUT DECIMAL COUNT
 06725   0621 00 0 06763  3874         STA CV6
 06726  -0500 00 0 06753  3875   PL1   CAL CV8
 06727   0622 00 0 06755  3876   MN3   STD CV10
 06730   0140 00 0 06760  3877         TOV CV5
 06731  -3 00000 0 06760  3878         TXL CV5
 06732   0500 00 0 07033  3879   BN1   CLA CM2            INVERT SWITCHES TO SIGNAL FIXED POINT
 06733   0630 00 0 07033  3880         STP CM2
 06734   0630 00 0 07106  3881         STP CM6
 06735  -0500 00 0 06672  3882         CAL BN2            SET UP B CONVERSION
 06736  -3 00000 0 06720  3883         TXL BN3
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0076


 06737   0500 00 0 00455  3884   MN1   CLA PBIT           START NEGATIVE ACCUMULATION WITH NEG. ZERO
 06740   0601 60 0 06751  3885         STO* CV7
 06741  -0500 00 0 06742  3886         CAL MN2            OP CODE TO MAKE CVIO A SUB INSTRUCTION
 06742  -3 40200 0 06727  3887   MN2   TXL MN3,0,258*64
 06743  -0754 00 0 06714  3888  CV3    PXD     PT3,0
 06744  -0763 00 0 00006  3889         LGL 6
 06745   0340 00 0 00000  3890         CAS TEN            TEST FOR DIGIT
 06746  -3 00000 0 06765  3891         TXL CM
 06747  -3 00000 0 07007  3892         TXL CV2
 06750   0602 00 0 77664  3893         SLW CH             PERFORM CODED
 06751   0500 00 0 77666  3894   CV7   CLA N              MULTIPLICATION
 06752   0767 00 0 00002  3895         ALS 2              BY TEN AND ADD
 06753   0400 00 0 77666  3896   CV8   ADD N
 06754   0767 00 0 00001  3897         ALS 1
 06755   0400 00 0 77664  3898   CV10  ADD CH
 06756   0140 00 0 06764  3899         TOV OVF            TEST FOR OVERFLOW
 06757   0601 00 0 77666  3900   CV9   STO N
 06760   2 00001 1 06743  3901   CV5   TIX CV3,1,1        COUNT CHARACTERS
 06761   1 77777 2 06762  3902         TXI CV4,2,-1       OBTAIN NEXT BCD
 06762   0560 00 2 00000  3903   CV4   LDQ 0,2            WORD AND RESTORE
 06763   1 00005 1 06743  3904   CV6   TXI CV3,1,5        CHARACTER COUNT
 06764   1 00001 4 06760  3905   OVF   TXI CV5,4,1        COUNT DECIMAL OVERFLOWS
 06765   0340 00 0 00423  3906   CM    CAS MINUS
 06766  -3 00000 0 07007  3907   SW1   TXL CV2
 06767  -3 00000 0 06737  3908         TXL MN1
 06770   0340 00 0 00422  3909         CAS POINT
 06771  -3 00000 0 07007  3910         TXL CV2
 06772  -3 00000 0 06706  3911         TXL PT1
 06773   0340 00 0 00410  3912         CAS E
 06774  -3 00000 0 07007  3913         TXL CV2
 06775  -3 00000 0 06715  3914         TXL EX1
 06776   0340 00 0 00421  3915         CAS B
 06777  -3 00000 0 07007  3916         TXL CV2
 07000  -3 00000 0 06732  3917         TXL BN1
 07001   0340 00 0 00420  3918         CAS PLUS
 07002  -3 00000 0 07007  3919         TXL CV2
 07003  -3 00000 0 06726  3920         TXL PL1
 07004   0340 00 0 00416  3921         CAS DASH           DASH TREATED LINK MINUS
 07005   0020 00 0 07007  3922         TRA CV2                                                          PAGE 082
 07006   0020 00 0 06737  3923         TRA MN1
 07007   0500 00 0 77666  3924   CV2   CLA N
 07010   0100 00 0 07161  3925         TZE STZ            SEE IF ZERO FIXED OR FLOATING
 07011  -3 00000 0 07020  3926   EXS   TXL CX3            SWITCH - TXH INDICATES EXPONENT
 07012  -0500 00 0 00455  3927         CAL PBIT           PREPARE TRUE
 07013   0400 00 0 77663  3928         ADD EXPN           DECIMAL EXPONENT
 07014   0767 00 0 00022  3929         ALS 18
 07015   0622 00 0 07017  3930         STD CM4
 07016   0500 00 0 77666  3931         CLA N
 07017  -3 00000 4 07036  3932  CM4    TXL     CM5,4,0
 07020  -3 00000 0 07033  3933   CX3   TXL CM2            SWITCH - TXH INDICATE OCTAL
                          3934             SCALE OCTAL NUMBER
 07021   0500 00 0 77662  3935         CLA BN             MULTIPLY SCALE FACTOR BY 3
 07022   0767 00 0 00001  3936         ALS 1               FOR NUMBER OF SHFITS NEEDED
 07023   0400 00 0 77662  3937         ADD BN
 07024   0621 00 0 07026  3938         STA CX5
 07025   0500 00 0 77666  3939         CLA N
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0077


 07026   0767 00 0 00000  3940   CX5   ALS **
 07027  -0760 00 0 00001  3941         PBT                ALLOW FOR P BIT
 07030   0020 00 0 07126  3942         TRA ISTOR
 07031  -0760 00 0 00003  3943         SSM
 07032   0020 00 0 07126  3944         TRA ISTOR
                          3945
 07033  -3 00000 0 07035  3946   CM2   TXL CM3            SWITCH - INVERTED TO TXH INDICATES FIXED POINT
 07034  -3 00000 0 07036  3947         TXL CM5
 07035  -3 00000 0 07126  3948   CM3   TXL ISTOR          SWITCH - TXH INDICATES POINT
 07036   0621 00 0 07243  3949   CM5   STA FL1            35 BIT INTEGER
 07037   0771 00 0 00017  3950         ARS 15
 07040  -0501 00 0 07244  3951         ORA FL2
 07041   0300 00 0 07244  3952         FAD FL2
 07042   0120 00 0 07045  3953         TPL CMF1
 07043   0302 00 0 07243  3954         FSB FL1
 07044  -3 00000 0 07046  3955         TXL CMF2
 07045   0300 00 0 07243  3956   CMF1  FAD FL1
 07046  -0600 00 0 77670  3957   CMF2  STQ RESID
 07047  -3 00000 4 07106  3958         TXL     CM6,4,0
 07050   3 00046 4 07071  3959   SW2   TXH CM7,4,38       TEST FOR NEGATIVE EXP
 07051   0634 00 4 07052  3960         SXA *+1,4          COMPUTE ABSOLUTE VALUE OF EXPONENT
 07052  -0774 00 4 00000  3961         AXC **,4
 07053   0601 00 0 77667  3962         STO DATUM
 07054   0560 00 4 07244  3963         LDQ ONE,4          COMPUTE FLOATING
 07055   0260 00 0 77667  3964         FMP DATUM          BINARY REPRESENTATION
 07056   0601 00 0 77665  3965         STO T              OF INTEGER TIMES THE
 07057  -0600 00 0 77666  3966         STQ T+1            POWER OF TEN GIVEN
 07060   0560 00 4 07244  3967         LDQ ONE,4          BY THE TRUE EXPONENT
 07061   0260 00 0 77670  3968         FMP RESID
 07062   0300 00 0 77666  3969         FAD T+1
 07063   0300 00 0 77665  3970         FAD T
 07064   0361 00 0 07241  3971         ACL EXC1
 07065  -0760 00 0 00001  3972         PBT
 07066  -3 00000 0 07106  3973         TXL CM6
 07067  -0754 00 0 00000  3974  CM8    PXD     ,0
 07070   0020 00 0 07155  3975         TRA PX1            NUMBER OUT OF RANGE, EXIT WITH 0 IN AC
 07071  -3 77717 4 07067  3976   CM7   TXL CM8,4,-49      TEST FOR ILLEGAL EXP                          PAGE 083
 07072   0161 00 0 07073  3977   CM13  TQO CM13+1
 07073   0241 00 4 07244  3978         FDP ONE,4          COMPUTE FLOATING
 07074  -0600 00 0 77665  3979         STQ T              BINARY EQUIVALENT
 07075   0300 00 0 77670  3980         FAD RESID          OF INTEGER TIMES
 07076   0241 00 4 07244  3981         FDP ONE,4          POWER OF TEN GIVEN
 07077   0161 00 0 07067  3982         TQO CM8
 07100  -0600 00 0 77666  3983         STQ T+1            BY TRUE EXPONENT
 07101   0500 00 0 77666  3984         CLA T+1
 07102   0300 00 0 77665  3985         FAD T
 07103   0361 00 0 07242  3986         ACL EXC2
 07104  -0760 00 0 00001  3987         PBT
 07105  -3 00000 0 07067  3988         TXL CM8
 07106  -3 00000 0 07131  3989   CM6   TXL FSTOR          SWITCH - TXH INDICATES FIXED POINT
 07107   0601 00 0 77665  3990         STO T
 07110   0767 00 0 00002  3991         ALS 2
 07111  -0760 00 0 00003  3992         SSM                DETERMINE SHIFT
 07112   0771 00 0 00035  3993         ARS 29             NECESSARY TO POSITION
 07113   0400 00 0 00000  3994         ADD Q128           NUMBER AS INDICATED
 07114   0400 00 0 77662  3995         ADD BN             BY B
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0078


 07115   0120 00 0 07117  3996         TPL SHIFT
 07116  -0100 00 0 07067  3997         TNZ CM8
 07117   0621 00 0 07125  3998   SHIFT STA CM12
 07120   0500 00 0 77665  3999         CLA T              REMOVE CHARACTERISTICS
 07121   0763 00 0 00010  4000         LLS 8              FROM FLOATING NUMBER
 07122   0767 00 0 00002  4001         ALS 2
 07123   0771 00 0 00012  4002         ARS 10
 07124   0763 00 0 00010  4003         LLS 8
 07125   0765 00 0 00000  4004  CM12   LRS     **
 07126   0131 00 0 00000  4005   ISTOR XCA                RESULT TO MQ
 07127  -0500 00 0 06766  4006   ISTO1 CAL SW1            SET FIXED POINT INDICATOR SWITCH
 07130   0020 00 0 07133  4007         TRA XT3
 07131   0131 00 0 00000  4008   FSTOR XCA                RESULT TO MQ
 07132   0500 00 0 06766  4009         CLA SW1            SET FLOAT INDICATOR SWITCH
 07133   0630 00 0 07153  4010   XT3   STP XT1
 07134   2 00001 1 07137  4011         TIX XT2,1,1        IF NO SIGNIFICANT CHARACTERS
 07135   1 77777 2 07136  4012         TXI *+1,2,-1        LEFT IN WORD, MOVE TO  NEXT WORD
 07136   0774 00 1 00006  4013         AXT 6,1
 07137  -0754 00 1 00000  4014   XT2   PXD ,1             SET POSITION INDICATORS
 07140   0402 00 0 00000  4015         SUB QD7
 07141   0602 00 0 77665  4016         SLW T
 07142  -0500 00 0 07020  4017         CAL CX3                    P BIT IN OUTPUT INDICATES OCTAL
 07143  -0320 00 0 00455  4018         ANA $SBIT
 07144  -0602 00 0 77665  4019         ORS T
 07145   0760 00 0 00006  4020         COM
 07146   0630 00 0 77665  4021         STP T
 07147   0634 00 2 07150  4022         SXA *+1,2
 07150  -0774 00 2 00000  4023         AXC **,2
 07151   0754 00 2 00000  4024         PXA ,2
 07152   0361 00 0 77665  4025         ACL T
 07153  -3 00000 0 07155  4026   XT1   TXL *+2            SET SIGN + FOR FIXED.
 07154  -0760 00 0 00003  4027         SSM                 - FOR FLOATING
 07155   0774 00 1 00000  4028   PX1   AXT ,1             RESTORE INDEX REGISTERS
 07156   0774 00 2 00000  4029   PX2   AXT ,2
 07157   0774 00 4 00000  4030   PX4   AXT ,4                                                           PAGE 084
 07160   0020 00 4 00001  4031         TRA 1,4            EXIT
                          4032
                          4033             WE GET HERE IF NUMBER IS ZERO.
                          4034             WE HERE DECIDE WHETHER WE ARE FACED WITH A FIXED OR FLOATING
                          4035              ZERO.
                          4036
 07161   0560 00 0 07033  4037   STZ   LDQ CM2                    TXH (+) IF B
 07162   0162 00 0 07126  4038         TQP ISTOR
 07163   0560 00 0 07035  4039         LDQ CM3                    TXH (+) IF DECIMAL POINT FOUND
 07164   0162 00 0 07131  4040         TQP FSTOR
 07165   0560 00 0 07011  4041         LDQ EXS                    TXH (+) IF E FOUND
 07166   0162 00 0 07131  4042         TQP FSTOR
 07167   0020 00 0 07126  4043         TRA ISTOR
                          4044
                          4045             PROCESS OCTAL NUMBER
                          4046
 07170   0535 00 2 77665  4047   OCTNO LAC T,2            IR2 HAS WORD COUNT
 07171  -0535 00 1 77665  4048         LDC T,1            IR1 WILL GET CHARACTER COUNT
 07172   0560 00 0 77662  4049         LDQ MQ             RESTORE FIRST GROUP OF CHARACTERS
 07173  -0754 00 0 00000  4050         PXD     ,0
 07174   0621 00 0 06751  4051         STA CV7            SET SIGNAL FOR OCTAL NUMBER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0079


 07175   1 00010 1 07203  4052         TXI OCT9,1,8       FIX CHARACTER COUNT
 07176  -0754 00 0 00000  4053  OCT1   PXD     ,0
 07177  -0763 00 0 00003  4054         LGL 3
 07200  -0100 00 0 07211  4055         TNZ OCT8
 07201   0500 00 0 77666  4056         CLA N
 07202  -0763 00 0 00003  4057         LGL 3
 07203   0601 00 0 77666  4058   OCT9  STO N              ALLOW FOR BOTH P BIT AND MINUS SIGN
 07204  -0602 00 0 77666  4059         ORS N
 07205   2 00001 1 07176  4060   OCT6  TIX OCT1,1,1
 07206   1 77777 2 07207  4061         TXI OCT2,2,-1
 07207   0560 00 2 00000  4062   OCT2  LDQ 0,2            NEW PACKED WORD
 07210   1 00005 1 07176  4063         TXI OCT1,1,5
 07211  -0763 00 0 00003  4064   OCT8  LGL 3
 07212   0340 00 0 00426  4065         CAS Q              TEST FOR OCTAL SCALE FACTOR
 07213   0020 00 0 07226  4066         TRA OCT3
 07214   0020 00 0 07232  4067         TRA OCT10
 07215   0340 00 0 00423  4068         CAS MINUS
 07216  -3 00000 0 07226  4069         TXL OCT3
 07217  -3 00000 0 07230  4070         TXL OCT5
 07220   0340 00 0 00420  4071         CAS PLUS
 07221  -3 00000 0 07226  4072         TXL OCT3
 07222  -3 00000 0 07205  4073         TXL OCT6
 07223   0340 00 0 00416  4074         CAS DASH           DASH TREATED LINK -
 07224  -3 00000 0 07226  4075         TXL OCT3
 07225  -3 00000 0 07230  4076         TXL OCT5
 07226   0560 00 0 77666  4077   OCT3  LDQ N
 07227   1 00000 0 07127  4078         TXI ISTO1
 07230   0500 00 0 00455  4079   OCT5  CLA PBIT           SET NEGATIVE SIGN
 07231  -3 00000 0 07203  4080         TXL OCT9
 07232   0500 00 0 07020  4081   OCT10 CLA CX3            SET SWITCH FOR OCTAL SCALE FACTOR
 07233   0630 00 0 07020  4082         STP CX3
 07234   0600 00 0 77662  4083         STZ BN             CLEAR SCALE FACTOR CELL
 07235  -0500 00 0 06766  4084         CAL SW1            SET EXPONENT SWITCH TO OFF                    PAGE 085
 07236   0630 00 0 07011  4085         STP EXS
 07237  -0500 00 0 06672  4086         CAL BN2            SET UP Q CONVERSION
 07240   0020 00 0 06720  4087         TRA BN3
                          4088
                          4089
                          4090
                   00000  4091   Q8    SYN $Q8
                   00000  4092   Q10   SYN $Q10
                   00000  4093   Q128  SYN $Q128
                   00000  4094   QD7   SYN $QD7
                   00455  4095   PBIT  SYN $SBIT
                   00427  4096   BLANK SYN $QO60
                   00423  4097   MINUS SYN $QO40
                   00422  4098   POINT SYN $QO33
                   00410  4099   E     SYN $QO25
                   00421  4100   B     SYN $QO22
                   00426  4101   Q     SYN $QO50
                   00420  4102   PLUS  SYN $QO20
                   00416  4103   DASH  SYN $QO14
 07241  +000000007004     4104   EXC1  DEC 3588           CHARACTERISTIC=35
 07242  +000000053254     4105   EXC2  DEC 22188          CHAR.=COMPL. 35
 07243  +000000036344     4106   FL1   DEC 15588
 07244  +000000041300     4107   FL2   DEC 17088
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0080


 07245  +141500000000     4108         OCT 141500000000,144620000000,147764000000,153470400000
 07251  +156606500000     4109         OCT 156606500000,161750220000,165461132000,170575360400
 07255  +173734654500     4110         OCT 173734654500,177452013710,202564416672,205721522451
 07261  +211443023471     4111         OCT 211443023471,214553630410,217706576512,223434157116
 07265  +226543212741     4112         OCT 226543212741,231674055532,235425434430,240532743536
 07271  +243661534466     4113         OCT 243661534466,247417031702,252522640262,255647410336
 07275  +261410545213     4114         OCT 261410545213,264512676456,267635456171,273402374714
 07301  +276503074077     4115         OCT 276503074077,301623713116,304770675742,310473426555
 07305  +313612334311     4116         OCT 313612334311,316755023373,322464114135,325601137164          PAGE 086
 07311  +330741367021     4117         OCT 330741367021,334454732313,337570120775,342726145174
 07315  +346445677216     4118         OCT 346445677216,351557257061,354713132676,360436770626
 07321  +363546566774     4119         OCT 363546566774,366700324573,372430204755,375536246150
                   00000  4120   TEN   SYN Q10
                   07244  4121   ONE   SYN FL2
 07325                    4122   REORG BSS 0
 77662                    4123         ORG COMMON
 77662                    4124   BN    BSS 1
                   77662  4125   MQ    SYN BN
 77663                    4126   EXPN  BSS 1
 77664                    4127   CH    BSS 1
 77665                    4128   CHD   BSS 1
                   77665  4129   T     SYN CHD
 77666                    4130   N     BSS 1
 77667                    4131   DATUM BSS 1
 77670                    4132   RESID BSS 1
 07325                    4133         ORG REORG                  RESTORE ORIGIN
 07325                    4134  BUFFER BSS 14
                          4135
                          4136
                          4137         HEAD R
                          4138
                          4139             FUNCTION CP1
                          4140             CP1(L)=(L=0 YIELDS 0.
                          4141                    OTHERWISE CONS(CONSW(CWR(CAR(L)))),CP1(CDR(L))))
                          4142
                          4143         HEAD C
 07343   0100 00 4 00001  4144   CP1   TZE 1,4
 07344  -0634 00 4 03361  4145         SXD CR1,4
 07345  -0734 00 4 00000  4146         PDX ,4
 07346   0500 00 4 00000  4147         CLA ,4                     CWR(L)
 07347   0601 00 0 03363  4148         STO CWRL
 07350   0734 00 4 00000  4149         PAX ,4                     CAR(L)
 07351   0500 00 4 00000  4150         CLA ,4                     CWR(CAR(L))
 07352   0074 00 4 03710  4151         TSX $CONSW,4
 07353   0074 00 4 02312  4152         TSX $SAVE,4
 07354  -3 03364 0 02377  4153         TXL     $END2,,CR2+2       SAVE 2 ITEMS
 07355   0601 00 0 03362  4154         STO CR2
 07356  -0534 00 4 03363  4155         LXD CWRL,4                 CDR(L)
 07357  -0754 00 4 00000  4156         PXD ,4                     IN DEC                                PAGE 087
 07360   0074 00 4 07343  4157         TSX CP1,4
 07361   0601 00 0 03363  4158         STO CWRL
 07362   0560 00 0 03363  4159         LDQ CWRL                   C(MQ)=CP1(CDR(L))
 07363   0500 00 0 03362  4160         CLA CR2
 07364   0074 00 4 02326  4161         TSX UNSAVE,4
 07365  -0534 00 4 03361  4162         LXD CR1,4
 07366   0020 00 0 03730  4163         TRA $CONS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0081


                          4164
                          4165             SUBST
                          4166
                          4167                  SUBST(L,V,M) =
                          4168                      (M = 0 YIELDS 0,
                          4169                       EQUAL(M,V) YIELDS COPY(L),
                          4170                                     CAR(M)=-1 YIELDS M
                          4171                       1 YIELDS CONS(SUBST(L,V,CAR(M)),SUBSTL,V,CDR(M))))
                          4172
                          4173         HEAD R
 07367   0601 00 0 03475  4174   SUBST STO      SX
 07370   0601 00 0 03476  4175         STO      SY
 07371   0500 00 0 03321  4176         CLA      $ARG3
 07372  -0634 00 4 03473  4177   SUB1  SXD      SXT,4
 07373   0601 00 0 03477  4178         STO      ST
 07374   0560 00 0 03476  4179         LDQ      SY
 07375   0074 00 4 04461  4180         TSX      $EQUAL,4
 07376  -0100 00 0 07443  4181         TNZ      SUB4
 07377  -0534 00 4 03477  4182         LXD      ST,4
 07400   0500 00 4 00000  4183         CLA      0,4
 07401   0734 00 4 00000  4184         PAX      0,4
 07402   0500 00 0 03477  4185         CLA      ST
 07403   3 77776 4 07441  4186         TXH      SUB2,4,-2
 07404   0074 00 4 02312  4187         TSX      $SAVE,4
 07405  -3 03476 0 02377  4188         TXL      $END2,,SZ+2
 07406   0622 00 0 03474  4189         STD      SZ
 07407  -0734 00 4 00000  4190         PDX      0,4
 07410   0500 00 4 00000  4191         CLA      0,4
 07411  -0734 00 4 00000  4192         PDX      0,4
 07412   0634 00 4 03474  4193         SXA      SZ,4
 07413   0734 00 4 00000  4194         PAX      0,4
 07414  -0754 00 4 00000  4195         PXD      0,4
 07415   0074 00 4 07372  4196         TSX      SUB1,4
 07416   0534 00 4 03474  4197         LXA      SZ,4
 07417   0771 00 0 00022  4198         ARS      18
 07420   0621 00 0 03474  4199         STA      SZ
 07421  -0754 00 4 00000  4200         PXD      0,4
 07422   0074 00 4 07372  4201         TSX      SUB1,4
 07423  -0534 00 4 03474  4202         LXD      SZ,4
 07424   0622 00 0 03474  4203         STD      SZ
 07425   0500 00 4 00000  4204         CLA      0,4
 07426   0402 00 0 03474  4205         SUB      SZ
 07427   0100 00 0 07437  4206         TZE      SUB3
 07430  -0534 00 4 03751  4207         LXD      $FREE,4
 07431   3 00000 4 07433  4208         TXH      *+2,4,0
 07432   0074 00 4 04037  4209         TSX      $FROUT,4
 07433   0500 00 4 00000  4210         CLA      0,4                                                     PAGE 088
 07434   0622 00 0 03751  4211         STD      $FREE
 07435   0500 00 0 03474  4212         CLA      SZ
 07436   0601 00 4 00000  4213         STO      0,4
 07437  -0754 00 4 00000  4214   SUB3  PXD      0,4
 07440   0074 00 4 02326  4215         TSX      UNSAVE,4
 07441  -0534 00 4 03473  4216   SUB2  LXD      SXT,4
 07442   0020 00 4 00001  4217         TRA      1,4
 07443   0500 00 0 03475  4218   SUB4  CLA      SX
 07444   0020 00 0 07441  4219         TRA      SUB2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0082


                          4220         HEAD B
                          4221
                          4222             FUNCTION SUBLIS
                          4223
 07445  -0600 00 0 03472  4224  SUBLIS STQ E
 07446  -0100 00 0 07451  4225         TNZ SU1
 07447   0500 00 0 03472  4226         CLA E                       P=0
 07450   0020 00 4 00001  4227         TRA 1,4
 07451   0601 00 0 03471  4228   SU1   STO P
 07452   0500 00 0 03472  4229         CLA E
 07453  -0100 00 0 07455  4230         TNZ SU2
 07454   0020 00 4 00001  4231         TRA 1,4                     E=0
 07455  -0634 00 4 03464  4232   SU2   SXD X1,4
 07456   0500 00 0 07465  4233         CLA F                       U
 07457   0601 00 0 03322  4234         STO $ARG4                   U
 07460   0500 00 0 07466  4235         CLA F+1                     F
 07461   0601 00 0 03321  4236         STO $ARG3                   F
 07462   0560 00 0 07467  4237         LDQ F+2                     P
 07463   0500 00 0 03471  4238         CLA P
 07464   0020 00 0 04400  4239         TRA SEARCH
 07465  -3 00000 0 07470  4240   F     TXL NF,,0                   U
 07466  -3 00000 0 07535  4241         TXL NF1,,0                  F
 07467  -3 00000 0 07520  4242         TXL NF2,,0                  P
 07470  -0534 00 4 03472  4243   NF    LXD E,4                     U
 07471   0500 00 4 00000  4244         CLA ,4
 07472   0734 00 4 00000  4245         PAX ,4                      CAR(E)
 07473  -3 77776 4 07477  4246         TXL SU3,4,-2                E IS NOT AN OBJECT
 07474   0500 00 0 03472  4247         CLA E
 07475  -0534 00 4 03464  4248         LXD X1,4
 07476   0020 00 4 00001  4249         TRA 1,4
 07477   0074 00 4 02312  4250   SU3   TSX $SAVE,4
 07500  -3 03471 0 02373  4251         TXL     $END4,,X4+2         SAVE 4 ITEMS
 07501   0622 00 0 03465  4252         STD X2
 07502   0734 00 4 00000  4253         PAX ,4
 07503  -0634 00 4 03466  4254         SXD X3,4                    CAR(E)
 07504   0560 00 0 03465  4255         LDQ X2
 07505   0500 00 0 03471  4256         CLA P
 07506   0074 00 4 07445  4257         TSX SUBLIS,4
 07507   0601 00 0 03467  4258         STO X4                      SUBLIS(P,CDR(E))
 07510   0560 00 0 03466  4259         LDQ X3
 07511   0500 00 0 03471  4260         CLA P
 07512   0074 00 4 07445  4261         TSX SUBLIS,4
 07513   0560 00 0 03467  4262         LDQ X4
 07514   0074 00 4 03730  4263         TSX $CONS,4
 07515   0074 00 4 02326  4264         TSX UNSAVE,4                                                     PAGE 089
 07516  -0534 00 4 03464  4265         LXD X1,4
 07517   0020 00 4 00001  4266         TRA 1,4
 07520  -0634 00 4 07537  4267   NF2   SXD N1,4                   EQUAL(E,CAAR(J))
 07521  -0754 00 4 00000  4268         PXD ,4                     J
 07522   0500 00 4 00000  4269         CLA ,4
 07523   0734 00 4 00000  4270         PAX ,4                     CAR(J)
 07524   0500 00 4 00000  4271         CLA ,4
 07525   0622 00 0 03470  4272         STD X5                     CDAR(J)
 07526   0734 00 4 00000  4273         PAX ,4
 07527  -0634 00 4 07540  4274         SXD N2,4
 07530   0560 00 0 07540  4275         LDQ N2                     CAAR(J) IN MQ
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0083


 07531   0500 00 0 03472  4276         CLA E
 07532   0074 00 4 04461  4277         TSX $EQUAL,4
 07533  -0534 00 4 07537  4278         LXD N1,4
 07534   0020 00 4 00001  4279         TRA 1,4
 07535   0500 00 0 03470  4280   NF1   CLA     X5
 07536   0020 00 4 00001  4281         TRA 1,4
 07537   0 00000 0 00000  4282   N1                               IR4 OF P OF SEARCH
 07540   0 00000 0 00000  4283   N2
                          4284
                          4285             APPEND(L1,L2)=
                          4286             (L1=0 YIELDS L2,1 YIELDS CONS(CAR(L1),APPEND(CDR(L1),L2))
                          4287         HEAD A
 07541  -0100 00 0 07544  4288  APPEND TNZ APNP1
 07542   0131 00 0 00000  4289         XCA
 07543   0020 00 4 00001  4290         TRA 1,4
 07544  -0634 00 4 03346  4291   APNP1 SXD AS1,4
 07545   0074 00 4 02312  4292         TSX $SAVE,4
 07546   1 03351 0 02377  4293         TXI     $END2,,CWR1+2      SAVE 2 ITEMS
 07547  -0734 00 4 00000  4294         PDX 0,4
 07550   0500 00 4 00000  4295         CLA 0,4
 07551   0601 00 0 03347  4296         STO CWR1
 07552  -0320 00 0 00460  4297         ANA DECM
 07553   0074 00 4 07541  4298         TSX APPEND,4
 07554   0131 00 0 00000  4299         XCA
 07555   0534 00 4 03347  4300         LXA CWR1,4
 07556  -0754 00 4 00000  4301         PXD 0,4
 07557   0074 00 4 02326  4302         TSX UNSAVE,4
 07560  -0534 00 4 03346  4303         LXD AS1,4
 07561   0020 00 0 03730  4304         TRA $CONS
                   00460  4305   DECM  SYN     $DMASK
                          4306
                          4307             PAIR
                          4308  *              RECODED TO MAKE LISTS IN DOT NOTATION
                          4309
                          4310         HEAD A
 07562   0634 00 4 07570  4311   PAIR  SXA     PAIRX,4            SAVE LINK IR
 07563  -0600 00 0 03441  4312         STQ     LIS                ARG 2
 07564   0560 00 0 07572  4313         LDQ     FARG               PICK UP FUNCTIONAL ARGUMENT
 07565   0074 00 4 04214  4314         TSX     MAPLIS,4           LET MAPLIST DO THE CONSING
 07566   0520 00 0 03441  4315         ZET     LIS                TEST FOR ARG 2 GONE TO END
 07567   0020 00 0 07612  4316         TRA     PERF               DID NOT, GO TO ERROR
 07570   0774 00 4 00000  4317   PAIRX AXT     **,4               RESTORE LINK IR
 07571   0020 00 4 00001  4318         TRA     1,4                EXIT                                  PAGE 090
                          4319  *
 07572  -3 00001 0 07573  4320   FARG  TXL     *+1,,1             PAIR FUNCTIONAL ARGUMENT FOR MAPLIST
 07573   0634 00 4 07610  4321         SXA     FARGX,4            SAVE LINK IR
 07574   0622 00 0 03440  4322         STD     TEM                SAVE ARGUMENT
 07575  -0534 00 4 03441  4323         LXD     LIS,4              PICK UP 2ND ARG LIST
 07576  -3 00000 4 07615  4324         TXL     PERS,4,0           GO IF NO MORE 2ND ARG
 07577   0500 00 4 00000  4325         CLA     0,4                NEXT WORD
 07600   0734 00 4 00000  4326         PAX     0,4                CAR
 07601   0622 00 0 03441  4327         STD     LIS                SAVE CDR
 07602  -0754 00 4 00000  4328         PXD     0,4                CAR INTO DECREMENT
 07603   0131 00 0 00000  4329         XCA                        INTO MQ
 07604  -0534 00 4 03440  4330         LXD     TEM,4              LIST 1
 07605   0500 00 4 00000  4331         CLA     0,4                TAKE CAR OF LIST
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0084


 07606   0734 00 4 00000  4332         PAX     0,4
 07607  -0754 00 4 00000  4333         PXD     0,4
 07610   0774 00 4 00000  4334   FARGX AXT     **,4               RESTORE LINK IR
 07611   0020 00 0 03730  4335         TRA     $CONS
                          4336  *              FIRST ARG LIST TOO SHORT ERROR
 07612  -0634 00 4 01562  4337   PERF  SXD     $ERROR,4           SAVE LINK IR
 07613   0074 00 4 01563  4338         TSX     $ERROR+1,4         GO TO ERROR
 07614   542660600254     4339         BCI     1,*F  2*           FIRST ARG$ LIST TOO SHORT
                          4340  *              ERROR, SECOND ARG LIST TOO SHORT
 07615  -0634 00 4 01562  4341   PERS  SXD     $ERROR,4           SAVE LINK IR
 07616   0074 00 4 01563  4342         TSX     $ERROR+1,4         GO TO ERROR
 07617   542660600354     4343         BCI     1,*F  3*           SECOND ARG. LIST TOO SHORT
                          4344  *
                          4345  *
                          4346  *
                          4347
                          4348             MAPCAR(L,F) = (L=0 YIELDS 0,
                          4349                            F(L) YIELDS 0,
                          4350                            1 YIELDS MAPAR(CDR(L),F))
                          4351
                          4352         HEAD D
 07620   0100 00 4 00001  4353  MAPCAR TZE 1,4
 07621  -0634 00 4 03421  4354         SXD RET,4
 07622   0074 00 4 02312  4355         TSX $SAVE,4
 07623  -3 03425 0 02375  4356         TXL     $END3,,F+2         SAVE 3 ITEMS
 07624  -0600 00 0 03423  4357         STQ F
 07625   0601 00 0 03422  4358   MCPR  STO L
 07626  -0534 00 4 03423  4359         LXD F,4
 07627   3 00012 4 07632  4360         TXH *+3,4,10
 07630   0074 00 4 03423  4361         TSX F,4
 07631   0020 00 0 07635  4362         TRA *+4
 07632  -0634 00 4 07634  4363         SXD *+2,4
 07633   0074 00 4 12007  4364         TSX COMPAT,4
 07634   0 00000 0 00001  4365             1,,**
 07635  -0534 00 4 00001  4366         LXD 1,4
 07636   0500 00 4 00000  4367         CLA 0,4
 07637  -0734 00 4 00000  4368         PDX ,4
 07640  -0754 00 4 00000  4369         PXD ,4
 07641  -0100 00 0 07625  4370         TNZ     MCPR
 07642   0074 00 4 02326  4371   RTRN  TSX UNSAVE,4
 07643  -0534 00 4 03421  4372         LXD RET,4                                                        PAGE 091
 07644   0020 00 4 00001  4373         TRA 1,4
                          4374             MAPCON(L,F)=
                          4375             (L=0 YIELDS 0,,1 YIELDS NCONC(F(L),MAPCON(CDR(L),F)))
                          4376         HEAD R
 07645   0100 00 4 00001  4377  MAPCON TZE 1,4
 07646  -0634 00 4 03424  4378         SXD MCN5,4
 07647   0074 00 4 02312  4379         TSX $SAVE,4
 07650  -3 03431 0 02373  4380         TXL     $END4,,MCN2+2      SAVE 4 ITEMS
 07651   0601 00 0 03426  4381         STO MCN3
 07652  -0600 00 0 03425  4382         STQ MCN4
 07653  -0534 00 4 03425  4383         LXD MCN4,4
 07654   3 00012 4 07657  4384         TXH *+3,4,10
 07655   0074 00 4 03425  4385         TSX MCN4,4
 07656   0020 00 0 07662  4386         TRA *+4
 07657  -0634 00 4 07661  4387         SXD *+2,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0085


 07660   0074 00 4 12007  4388         TSX COMPAT,4
 07661   0 00000 0 00001  4389             1,,**
 07662   0601 00 0 03427  4390         STO MCN2
 07663  -0534 00 4 03426  4391         LXD MCN3,4
 07664   0500 00 4 00000  4392         CLA 0,4
 07665  -0320 00 0 00000  4393         ANA MCDM
 07666   0560 00 0 03425  4394         LDQ MCN4
 07667   0074 00 4 07645  4395         TSX MAPCON,4
 07670   0131 00 0 00000  4396         XCA
 07671   0500 00 0 03427  4397         CLA MCN2
 07672   0074 00 4 02326  4398         TSX UNSAVE,4
 07673  -0534 00 4 03424  4399         LXD MCN5,4
 07674   0020 00 0 07675  4400         TRA     $NCONC
                   00000  4401   MCDM  SYN     $DMASK
                          4402             FUNCTION NCONC
                          4403             /    L1=0 YIELDS RETURN(L2)
                          4404                  M=L1
                          4405             A2   CDR(M)=0 YIELDS GO A1
                          4406                  M=CDR(M)
                          4407                  GO A2
                          4408             A1   CDR(M)=L2
                          4409             //   RETURN(L1)
                          4410         HEAD R
 07675  -0100 00 0 07700  4411   NCONC TNZ NCI1
 07676   0131 00 0 00000  4412         XCA
 07677   0020 00 4 00001  4413         TRA 1,4
 07700   0634 00 4 07711  4414   NCI1  SXA     NCS1,4             SAVE LINK IR
 07701   0601 00 0 07713  4415         STO NCS3
 07702  -0734 00 4 00000  4416    NCI2 PDX 0,4
 07703   0500 00 4 00000  4417         CLA 0,4
 07704  -0320 00 0 00000  4418         ANA NCDM
 07705  -0100 00 0 07702  4419         TNZ NCI2
 07706   0131 00 0 00000  4420         XCA
 07707   0622 00 4 00000  4421         STD 0,4
 07710   0500 00 0 07713  4422         CLA NCS3
 07711   0774 00 4 00000  4423   NCS1  AXT     **,4               RESTORE LINK IR
 07712   0020 00 4 00001  4424         TRA 1,4
                   00000  4425   NCDM  SYN     $DMASK
 07713   0 00000 0 00000  4426   NCS3                                                                   PAGE 092
                          4427             REMPRP REMOVES THE PROPERTY GIVEN BY THE MQ FROM THE
                          4428             OBJECT GIVEN BY THE AC
 07714  -0634 00 4 07744  4429  REMPRP SXD RMPRX,4
 07715  -0600 00 0 03320  4430         STQ $ARG2
 07716  -0534 00 4 03320  4431         LXD $ARG2,4
 07717  -0634 00 4 07732  4432         SXD RMPRT+1,4
 07720   1 77777 4 07721  4433         TXI *+1,4,-1
 07721  -0634 00 4 07731  4434         SXD RMPRT,4
 07722  -0754 00 4 00000  4435         PXD 0,4
 07723   0020 00 0 07726  4436         TRA RMPR2
 07724   0500 00 0 03320  4437   RMPR1 CLA $ARG2
 07725   0601 00 0 03321  4438         STO $ARG3
 07726  -0634 00 4 03320  4439   RMPR2 SXD $ARG2,4
 07727   0500 00 4 00000  4440         CLA 0,4
 07730   0734 00 4 00000  4441         PAX 0,4
 07731  -3 00000 4 07733  4442   RMPRT TXL *+2,4,**
 07732  -3 00000 4 07737  4443         TXL RMPRE,4,**
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0086


 07733  -0734 00 4 00000  4444         PDX 0,4
 07734   3 00000 4 07724  4445         TXH RMPR1,4,0
 07735  -0534 00 4 07744  4446   RMPRO LXD RMPRX,4
 07736   0020 00 4 00001  4447         TRA 1,4
 07737  -0734 00 4 00000  4448   RMPRE PDX 0,4
 07740   0500 00 4 00000  4449         CLA 0,4
 07741  -0534 00 4 03321  4450         LXD $ARG3,4
 07742   0622 00 4 00000  4451         STD 0,4
 07743   0020 00 0 07726  4452         TRA RMPR2
 07744   0 00000 0 00000  4453   RMPRX
                          4454
                          4455
                          4456             PRINAR
                          4457
                          4458             USES WOT AND PRINT
                          4459             CALLING SEQ IS..
                          4460                     TSX PRINAR,4
                          4461                         NOARG
                          4462                         BCDZ NAME OF FUN
                          4463                           (RETURN)
                          4464             ARGUMENTS NOT ACCEPTABLE TO PRINT WILL CAUSE ERRORS
                          4465  * HAS BEEN CRIPPLED TO PRINT ONLY FIRST 2 ARGUMENTS
                          4466
                          4467         HEAD P
 07745   0634 00 4 07774  4468  PRINAR SXA     PAS1,4             SAVE INDEX REGISTERS
 07746   0634 00 2 07775  4469         SXA     PAS2,2
 07747   0601 00 0 03442  4470         STO PAS3
 07750  -0600 00 0 03443  4471         STQ PAS4
 07751   0500 00 4 00002  4472         CLA 2,4
 07752   0601 00 0 10001  4473         STO PAL1
 07753   0500 00 4 00003  4474         CLA 3,4
 07754   0601 00 0 10002  4475         STO PAL2
 07755   0500 00 4 00001  4476         CLA 1,4
 07756   0734 00 2 00000  4477         PAX 0,2
 07757   0074 00 4 01222  4478         TSX OUTPUT,4
 07760   0 00000 0 00364  4479             BCDOUT
 07761   0 00011 0 07777  4480             PAL3,,PAL4-PAL3                                              PAGE 093
 07762   0500 00 0 03442  4481         CLA PAS3
 07763   0074 00 4 04604  4482         TSX $PRINT,4
 07764  -2 00001 2 07767  4483         TNX PAP3,2,1
 07765   0500 00 0 03443  4484         CLA PAS4
 07766   0074 00 4 04604  4485   PAP2  TSX $PRINT,4
 07767   0074 00 4 01222  4486   PAP3  TSX OUTPUT,4
 07770   0 00000 0 00364  4487             BCDOUT
 07771   0 00001 0 10010  4488             PAL5,,1
 07772   0500 00 0 03442  4489         CLA PAS3
 07773   0560 00 0 03443  4490         LDQ PAS4
 07774   0774 00 4 00000  4491   PAS1  AXT     **,4               RESTORE INDEX REGISYERS
 07775   0774 00 2 00000  4492   PAS2  AXT     **,2
 07776   0020 00 4 00004  4493         TRA 4,4
 07777   006026644523     4494   PAL3  BCD 20 FUNCTION
 10001   0 00000 0 00000  4495   PAL1
 10002   0 00000 0 00000  4496   PAL2
 10003   603021626022     4497         BCD 5 HAS BEEN ENTERED, ARGUMENTS..
 10010                    4498   PAL4  BSS 0
 10010   606060606060     4499   PAL5  BCD 1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0087


                          4500         EJECT                                                            PAGE 094
                          4501
                          4502             PROP AND SASSOC
                          4503             SPECIALIZED SEARCH ROUTINES WHICH SHARE STORAGE
                          4504
                          4505         HEAD R
                          4506
                          4507             PROP(O,P,U)
                          4508              = (NULL(O) YIELDS U, CAR(O) = P YIELDS CDR(O),
                          4509                  T YIELDS PROP(CDR(O),P,U))
                          4510
 10011   0634 00 4 10065  4511   PROP  SXA     SAST1,4            SAVE LINK IR
 10012   0131 00 0 00000  4512         XCA                        PROPERTY TO AC
 10013   0622 00 0 10024  4513         STD SASP1                  SET TXH
 10014   0402 00 0 00442  4514         SUB SASQ1
 10015   0622 00 0 10023  4515         STD SASP2                  SET TXL
 10016   0131 00 0 00000  4516         XCA                        OBJECT TO AC
 10017  -0734 00 4 00000  4517   SASL1 PDX 0,4                    L = CDR(L)
                          4518             INSERT TXH INSTRUCTION HERE IF NILL IS NADE NON-ZERO
 10020  -3 00000 4 10030  4519         TXL SASP3,4,0              NULL(L)
 10021   0500 00 4 00000  4520         CLA 0,4                    CWR(L)
 10022   0734 00 4 00000  4521         PAX 0,4                    CAR(L)
 10023  -3 00000 4 10017  4522   SASP2 TXL SASL1,4,**
 10024   3 00000 4 10017  4523   SASP1 TXH SASL1,4,**
 10025  -0320 00 0 00000  4524         ANA SASDM
 10026   0534 00 4 10065  4525         LXA     SAST1,4            RESTORE LINK IR
 10027   0020 00 4 00001  4526         TRA 1,4
                          4527
 10030  -0754 00 0 00000  4528   SASP3 PXD     0,0                CLEAR
 10031  -0534 00 4 03321  4529         LXD     $ARG3,4            INSPECT FUNCTIONAL ARGUMENT
 10032   3 00012 4 10035  4530         TXH     *+3,4,10           SKIP IF NOT A TXL
 10033   0534 00 4 10065  4531         LXA     SAST1,4
 10034   0020 00 0 03321  4532         TRA     $ARG3
 10035   0600 00 0 03321  4533         STZ     $ARG3
 10036   0560 00 0 03321  4534         LDQ     $ARG3
 10037  -0754 00 4 00000  4535         PXD     ,4
 10040   0534 00 4 10065  4536         LXA     SAST1,4            RESTORE LINK IR
 10041   0020 00 0 14663  4537         TRA     $APPLY
                          4538
                          4539             SASSOC(O,A,U)
                          4540              = (NULL(A) YIELDS U, CAAR(A) YIELDS  CAR(A),
                          4541                  T YIELDS SASSOC(O,CDR(A),U))
                          4542
 10042   0634 00 4 10065  4543  SASSOC SXA     SAST1,4            SAVE LINK IR
 10043   0634 00 2 10064  4544         SXA     SAST2,2            SAVE IR 2
 10044   0634 00 1 10062  4545         SXA     SAST3,1            SAVE IR 1
 10045   0622 00 0 10061  4546         STD SASP7                  SET TXH
 10046   0402 00 0 00442  4547         SUB SASQ1
 10047   0622 00 0 10060  4548         STD SASP6                  SET TXH
 10050   0131 00 0 00000  4549         XCA                        PAIR LIST TO AC
 10051  -0734 00 4 00000  4550         PDX     0,4                TO INDEX 4
 10052  -3 00000 4 10067  4551   SASP5 TXL SASP4,4,0              NULL(A)
                          4552             INSERT TXH INSTRUCTION HERE IF NILL IS NADE NON-ZERO
 10053   0500 00 4 00000  4553         CLA 0,4                    CWR(A)
 10054  -0734 00 4 00000  4554         PDX ,4                     CDR(A)                                PAGE 095
 10055   0734 00 2 00000  4555         PAX ,2                     CAR(A)
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0088


 10056   0500 00 2 00000  4556         CLA ,2
 10057   0734 00 1 00000  4557         PAX     0,1                CAAR(A) TO INDX REGISTER
 10060  -3 00000 1 10052  4558   SASP6 TXL     SASP5,1,**         LOOK FOR ITEM
 10061   3 00000 1 10052  4559   SASP7 TXH     SASP5,1,**
 10062   0774 00 1 00000  4560   SAST3 AXT     **,1               FOUND ITEM, RESTORE IR 1
 10063  -0754 00 2 00000  4561         PXD     0,2                POINTER TO WORD
 10064   0774 00 2 00000  4562   SAST2 AXT     **,2               RESTORE IR 2
 10065   0774 00 4 00000  4563   SAST1 AXT     **,4               RESTORE LINK IR
 10066   0020 00 4 00001  4564         TRA     1,4
                          4565
 10067   0534 00 2 10064  4566   SASP4 LXA     SAST2,2            RESTORE IR 2
 10070   0534 00 1 10062  4567         LXA     SAST3,1            RESTORE IR 1
 10071   0020 00 0 10030  4568         TRA     SASP3              EXECUTE SASSOC EXIT
                   00442  4569   SASQ1 SYN     $QD1
                   00000  4570   SASDM SYN     $DMASK
                          4571
 10072   0100 00 4 00001  4572  SPREAD TZE     1,4                EXIT IF AGLIST IS NULL
 10073   0634 00 4 10132  4573         SXA     SPRX,4             SAVE LINK IR
 10074  -0734 00 4 00000  4574         PDX     0,4                POINTER TO ARG LIST
 10075   0500 00 4 00000  4575         CLA     0,4                FIRST WORD
 10076   0560 00 4 00000  4576         LDQ     0,4                POINTER TO ARG LIST
 10077  -0765 00 0 00022  4577         LGR     18                 CAR TO CDR OF MQ
 10100   0100 00 0 10131  4578         TZE     NLY                GO IF A  SINGLE ARGUMENT
 10101   0734 00 4 00000  4579         PAX     0,4                POINTER TO NEXT WORD
 10102   0500 00 4 00000  4580         CLA     0,4                NEXT WORD
 10103   0734 00 4 00000  4581         PAX     0,4                POINTER TO ARGUMENT
 10104  -0320 00 0 00000  4582         ANA     $DMASK             MASK OUT ALL BUT DECREMENT
 10105   0100 00 0 10130  4583         TZE     TWA                GO IF 2 ARGUMENT
 10106  -0634 00 4 03320  4584         SXD     $ARG2,4            PUT AWAY
 10107   0634 00 2 10126  4585         SXA     SPRY,2             SAVE INDEX 1 AND 2
 10110   0634 00 1 10125  4586         SXA     SPRZ,1
 10111   0774 00 1 00022  4587         AXT     18,1               20 IS MAX NO OF ARGS
 10112  -0734 00 4 00000  4588         PDX     0,4                REST OF ARG LIST TO IR 4
 10113  -3 00000 4 10125  4589   SPP1  TXL     SPRZ,4,0           GO IF END OF LIST
 10114   0500 00 4 00000  4590         CLA ,4
 10115  -0734 00 4 00000  4591         PDX ,4
 10116   0734 00 2 00000  4592         PAX ,2
 10117  -0754 00 2 00000  4593         PXD ,2
 10120   0601 00 1 03343  4594         STO     $ARG20+1,1
 10121   2 00001 1 10113  4595         TIX SPP1,1,1
 10122  -0634 00 4 01562  4596  SPPERR SXD     $ERROR,4
 10123   0074 00 4 01563  4597         TSX $ERROR+1,4
 10124   542160600754     4598         BCI     1,*A  7*           TOO MANY ARGUMENTS---SPREAD*()
                          4599
 10125   0774 00 1 00000  4600   SPRZ  AXT     **,1               RESTORE IR 1
 10126   0774 00 2 00000  4601   SPRY  AXT     **,2               DITTO IR 2
 10127  -0534 00 4 03320  4602         LXD     $ARG2,4            ARG 2
 10130  -0754 00 4 00000  4603   TWA   PXD     0,4                PUT IN DECREMENT AC
 10131   0131 00 0 00000  4604   NLY   XCA                        ARG 1 AND 2 TO RIGHT REGISTERS
 10132   0774 00 4 00000  4605   SPRX  AXT     **,4               RESTORE LINK IR
 10133   0020 00 4 00001  4606         TRA     1,4                EXIT
                          4607
                          4608             FUNCTION ATTRIB(O,L)                                         PAGE 096
                          4609             ATTRIB(O,L)=/ CDR(O)=0 YIELDS (L REPLACES CDR(O))
                          4610                          ELSE ATTRIB(CDR(O),L)  /
                          4611
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0089


                          4612         HEAD R
 10134   0634 00 4 10146  4613  ATTRIB SXA AT1,4
 10135  -0100 00 0 10140  4614         TNZ     ATRB               GO IF BEGINNING OF LIST
 10136   0131 00 0 00000  4615         XCA                        OTHERWISE EXIT WITH ARG 2
 10137   0020 00 4 00001  4616         TRA     1,4
 10140  -0734 00 4 00000  4617   ATRB  PDX ,4                     O
 10141   0500 00 4 00000  4618         CLA ,4
 10142  -0320 00 0 00000  4619         ANA DMASK                  CDR(O)
 10143  -0100 00 0 10140  4620         TNZ ATRB
 10144   0131 00 0 00000  4621         XCA                        ARG 2 TO AC
 10145   0601 00 4 00000  4622         STO ,4
 10146   0774 00 4 00000  4623   AT1   AXT **,4
 10147   0020 00 4 00001  4624         TRA 1,4
                   00000  4625   DMASK SYN     $DMASK
                          4626
                          4627
                          4628             NOT FUNCTION
                          4629
                          4630         HEAD R
 10150   0100 00 0 10153  4631   NOTS  TZE *+3
 10151  -0754 00 0 00000  4632         PXD ,0
 10152   0020 00 4 00001  4633         TRA 1,4
 10153   0500 00 0 00442  4634         CLA NOTC1
 10154   0020 00 4 00001  4635         TRA 1,4
                   00442  4636   NOTC1 SYN     $QD1
                          4637
                          4638             THE RPLACX FUNCTIONS  REPLACE THE X PART OF THE FIRST ARG
                          4639             WITH THE SECOND ARGUMENT
                          4640             THE VALUE OF REPLACA,REPLACD, AND REPLACW IS ZERO
                          4641         HEAD S
 10155   0634 00 4 10162  4642  RPLACA SXA REPL,4
 10156  -0734 00 4 00000  4643         PDX 0,4
 10157  -0763 00 0 00022  4644         LGL 18
 10160   0621 00 4 00000  4645         STA 0,4
 10161  -0754 00 4 00000  4646   RPLEX PXD     0,4                ARG1 TO AC AS ANSWER
 10162   0774 00 4 00000  4647   REPL  AXT     **,4               RESTORE LINK IR
 10163   0020 00 4 00001  4648         TRA 1,4
 10164   0634 00 4 10162  4649  RPLACD SXA REPL,4
 10165  -0734 00 4 00000  4650         PDX 0,4
 10166  -0620 00 4 00000  4651         SLQ 0,4
 10167   0020 00 0 10161  4652         TRA     RPLEX              EXIT
 10170   0634 00 4 10162  4653  RPLACW SXA REPL,4
 10171  -0734 00 4 00000  4654         PDX 0,4
 10172  -0600 00 4 00000  4655         STQ 0,4
 10173   0020 00 0 10161  4656         TRA     RPLEX              EXIT
                          4657
                          4658
                          4659             OBJECT GENERATOR
                          4660
 10174   0634 00 4 10214  4661  GENSYM SXA     GENX,4             SAVE LINK IR
 10175   0500 00 0 10217  4662         CLA     DIGIT              GET DIGITS                            PAGE 097
 10176   0114 06 0 05313  4663         CVR     BCDAD1,,6          ADD 1 IN BCD
 10177   0601 00 0 10217  4664         STO     DIGIT
 10200  -0501 00 0 10216  4665         ORA     LETTR
 10201   0074 00 4 03710  4666         TSX $CONSW,4
 10202   0560 00 0 00370  4667         LDQ GENZ
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0090


 10203   0074 00 4 03730  4668         TSX $CONS,4
 10204   0560 00 0 00370  4669         LDQ GENZ
 10205   0074 00 4 03730  4670         TSX $CONS,4
 10206   0131 00 0 00000  4671         XCA
 10207   0500 00 0 00504  4672         CLA GENPN
 10210   0074 00 4 03730  4673         TSX $CONS,4
 10211   0131 00 0 00000  4674         XCA
 10212   0500 00 0 00460  4675         CLA     GENC
 10213   0074 00 4 03730  4676         TSX     $CONS,4
 10214   0774 00 4 00000  4677   GENX  AXT     **,4               RESTORE LINK IR
 10215   0020 00 4 00001  4678         TRA 1,4
                   00370  4679   GENZ  SYN     $ZERO
                   00504  4680   GENPN SYN     PNAMED
                   00460  4681   GENC  SYN     $DMASK
 10216   270000000000     4682   LETTR BCI     1,G00000
 10217   000000000000     4683   DIGIT BCI     1,000000
                          4684
                          4685  *
                          4686  * OVERLORD     THE TAPE HANDLING SECTION OF LISP. RECODED 20 FEBRUARY
                          4687  *              1961 BY D. J. EDWARDS.
                          4688  *
                          4689  * OVERLORD DIRECTION CARDS ARE PUNCHED IN FAP FORMAT WITH THE VARIABLE
                          4690  *              FIELD BEGINNING IN COLUMN 16. DIRECTION CARDS ARE
                          4691  *      ONE     (USE NO TAPES FOR THIS RUN)
                          4692  *      SET     ( SAVE RESULTS ON SYSTMP IF NO ERROR OCCURS)
                          4693  *      TST     (GET NEW CORE IMAGE AFTER OPERATION)
                          4694  *      TEST    (SAVE AS ABOVE)
                          4695  *      FIN     (ALL DONE, STOP MACHINE OR RETURN TO A HIGHER MONITOR)
                          4696  *      SETSET  (AVE RESULTS ON SYSTMP NO MATTER WHAT)
                          4697  *      DEBUG   (SAME AS TEST BUT OBJECTLIST IS NOT SAVED AFTER READ IN)
                          4698  *      SIZE    N1,N2,N3,N4  (GIVES SIZE OF BINPRG, PPDL, FWS AND FREE)
                          4699  *      TAPE    SYSXXX,A7  (ASSIGNS SYSXXX TO UNIT A 7)
                          4700  *      DUMP    BEG,END,TYPE   (MAKES OCTAL DUMP ON SYSPOT ACCORDING TO
                          4701  *                              TYPE, 0 FOR STRAIGHT OCTAL, NON-ZERO FOR
                          4702  *                              LISP (COMPLEMENT) DUMP.)
                          4703  *      REMARK  (LOG AS DIRECTION CARD AND LOKK FOR NEXT DIRECTION CARD)
                          4704  *      EXCISE  I  (I IS COMPILER, INTERPRETER OR BOTH. TURNS ITEM INTO
                          4705  *                 FREE STORAGE OR FULL WOTD SPACE)
                          4706  *
                          4707  *
 10220   0604 00 0 10336  4708   OVBGN STI     OVSVI              BEGIN BY SAVING INDICATORS AND
 10221   0634 00 4 10511  4709         SXA     OVRLX,4            INDEX REGISTERS
 10222   0634 00 2 10512  4710         SXA     OVRLY,2
 10223   0634 00 1 10513  4711         SXA     OVRLZ,1
 10224   0441 00 0 10337  4712         LDI     OVIND              PRESET INDICATORS
 10225   0604 00 0 10340  4713         STI     SYSIND             AND SYSTEM INDICATORS
 10226   0500 00 0 00177  4714         CLA     FLAPCZ             CONTENT OF CELL ZERO
 10227   0601 00 0 00000  4715         STO     0                  FIX ANY GLOBERRING THAT MAT BE DONE
                          4716  *                                                                       PAGE 098
 10230   0074 00 4 00663  4717  OVRLRD TSX     $INPUT,4           GET OVERLORD DIRECTION CAR
 10231   0 00000 0 00000  4718                 $BCDIN             FROM BCD INPUT TAPE
 10232   0 00016 0 10404  4719                 OVBUF,,14          PUT IN OVERLORD CARD BUFFER
 10233   0020 00 0 10254  4720         TRA     OVERR              ERROR RETURN
 10234   0020 00 0 10260  4721         TRA     OVEOF              END OF FILE RETURN
 10235   0560 00 0 10406  4722   OVGOR LDQ     OVBUF+2            PICK UP OVERLORD DIRECTION
 10236  -0500 00 0 10405  4723         CAL     OVBUF+1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0091


 10237  -0763 00 0 00006  4724         LGL     6                  SHIFT DIRECTION IN LOGICAL AC
 10240   0774 00 4 00030  4725         AXT     24,4               TWICE NUMBER OF DIRECTION CARDS
 10241  -0340 00 4 10336  4726   OVSRC LAS     OVTBL,4            LOOK UP  DIRECTION
 10242   0020 00 0 10244  4727         TRA     *+2                NOT THIS ONE
 10243   0020 00 0 10264  4728         TRA     OVPNT              FOUND IT GO PRINT CARD
 10244   2 00002 4 10241  4729         TIX     OVSRC,4,2          TRY AGAIN
 10245   3 00000 0 10230  4730   OVBSW TXH     OVRLRD,,0          NOT IN TABLE, PRINT FIRST BAD CARD
 10246   0502 00 0 10245  4731         CLS     OVBSW              AND GET NEXT CARD.
 10247   0601 00 0 10245  4732         STO     OVBSW              FLIP SWITCH
 10250   0074 00 4 01222  4733         TSX     OUTPUT,4           PRINT CARD OUT
 10251  -0 00000 0 00364  4734         MZE     BCDOUT             ON BCD OUTPUT TAPE, AND ON LINE
 10252   0 00017 0 10403  4735                 OVBUF-1,,15
 10253   0020 00 0 10230  4736         TRA     OVRLRD             GET NEXT CARD
                          4737  *
 10254   0074 00 4 01222  4738   OVERR TSX     OUTPUT,4           WRITE ERROR MESSAGE
 10255   0 00000 0 00364  4739                 BCDOUT
 10256   0 00011 0 10362  4740                 OVRDM,,9
 10257   0020 00 0 10235  4741         TRA     OVGOR              RY TO MAKE SENSE OUT OF CARD
                          4742  *
 10260   0074 00 4 01222  4743   OVEOF TSX     OUTPUT,4           WRITE EOF REMARK
 10261   0 00000 0 00364  4744                 BCDOUT
 10262   0 00007 0 10373  4745                 OVALF,,7
 10263   0020 00 0 10472  4746         TRA     OVDN               GO AS IF A FIN CARD READ
                          4747  *
 10264   0500 00 0 10245  4748   OVPNT CLA     OVBSW              RESTORE PRINT SWITCH TO TXH
 10265   0602 00 0 10245  4749         SLW     OVBSW
 10266   0500 00 4 10337  4750         CLA     OVTBL+1,4          PICK UP TRA ADDRESS AND SAVE IT
 10267   0621 00 0 10305  4751         STA     OVTRA
 10270   0500 00 0 00200  4752         CLA     FLAPCX             SET CELLS IN LOWER CORE
 10271   0601 00 0 00010  4753         STO     8
 10272   0500 00 0 00201  4754         CLA     FLAPCY
 10273   0601 00 0 00002  4755         STO     2
 10274   0500 00 0 00177  4756         CLA     FLAPCZ
 10275   0601 00 0 00000  4757         STO     0
 10276   0074 00 4 01222  4758         TSX     OUTPUT,4           PRINT DIRECTION CARD
 10277  -0 00000 0 00364  4759         MZE     BCDOUT             ON BCD OUTPUT TAPE, AND ON ILNE
 10300   0 00017 0 10403  4760                 OVBUF-1,,15
 10301   0140 00 0 10302  4761         TOV     *+1                TURN OFF AC OVERFLOW LIGHT
 10302   0441 00 0 10340  4762         LDI     SYSIND             PICK UP SYSTEM INDICATORS
 10303   0057 00  000014  4763         RIR     14                 RESET ERROR AND DEBIG INDICATORS
 10304   0604 00 0 10340  4764         STI     SYSIND
 10305   0020 00 0 00000  4765   OVTRA TRA     **                 EXECUTE SPECIFIC OVERLORD PROGRAM
                  000010  4766  ERRORI BOOL    10                 ERROR INDICATOR
                          4767  *
                          4768  *      DIRECTION CARD TABLE
 10306   464525606060     4769         BCI     1,ONE              ** ASSUMING THIS IS THIS
 10307   0020 00 0 10526  4770         TRA     OVONE                                                    PAGE 099
 10310   622563606060     4771         BCI     1,SET
 10311   0020 00 0 10451  4772         TRA     OVSET
 10312   636263606060     4773         BCI     1,TST
 10313   0020 00 0 10423  4774         TRA     OVTST
 10314   632562636060     4775         BCI     1,TEST             ** ASSUMING THIS IS THIS
 10315   0020 00 0 10423  4776         TRA     OVTST              ** ASSUMING THIS IS THIS
 10316   263145606060     4777         BCI     1,FIN
 10317   0020 00 0 10472  4778         TRA     OVDN
 10320   623171256060     4779         BCI     1,SIZE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0092


 10321   0020 00 0 10532  4780         TRA     OVSZE
 10322   622563622563     4781         BCI     1,SETSET
 10323   0020 00 0 10437  4782         TRA     OVSST
 10324   242522642760     4783         BCI     1,DEBUG
 10325   0020 00 0 10422  4784         TRA     OVDBG
 10326   632147256060     4785         BCI     1,TAPE
 10327   0020 00 0 11074  4786         TRA     OVTAP
 10330   246444476060     4787         BCI     1,DUMP
 10331   0020 00 0 10574  4788         TRA     OVDMP              ** ASSUMING THIS IS THIS
 10332   512544215142     4789         BCI     1,REMARK           ** ASSUMING THIS IS THIS
 10333   0020 00 0 10230  4790         TRA     OVRLRD
 10334   256723316225     4791         BCI     1,EXCISE
 10335   0020 00 0 11307  4792         TRA     OVEXS
 10336   0 00000 0 00000  4793   OVSVI                            TEMPORARY STORAGE FOR INDICATORS
                   10336  4794   OVTBL SYN     OVSVI              FOR INDEXING DIRECTION CARD TABLE
 10337  -1 00000 0 00000  4795   OVIND STR                        PRESET FOR LISP INDICATORS
 10340   0 00000 0 00000  4796  SYSIND                            SYSTEM INDICATORES GO HERE
 10341   002551514651     4797   OVCEM BCI     7,0ERROR IN SIZE CARD -OVERLORD-  *O 1*
 10350   002163632544     4798   OVNSM BCI     9,0ATTEMPT TO OPERATE BEFORE SIZE CARD READ -OVERLORD-
 10361   605446600354     4799         BCI     1, *O 3*
 10362   002551514651     4800   OVRDM BCI     9,0ERROR ON INPUT, BUT GOING ON ANYHOW -OVERLORD- *O  5*
 10373   002545246046     4801   OVALF BCI     7,0END OF FILE ON INPUT -OVERLORD- *O  6*
 10402   0 00004 0 10406  4802   OVPOS         OVBUF+2,,4         BEGINNING OF VARIABLE FIELD IN DIR CDRPAGE 100
 10403   006060606060     4803         BCI     1,0                DOUBLE SPACE PRINT OF DIRECTION CARD
 10404                    4804   OVBUF BSS     14                 OVERLORD DIRECTION CARD BUFFER
                          4805  *
                          4806  *      DEBUG   OVERLORD DIRECTION
 10422  -1 00000 0 00004  4807  OVDBG  STR     4                  SET DEBUG INDICATOR
                          4808  *                                 PREFORM OVTST
                          4809  *
                          4810  *
                          4811  *      TEST OR TST OVERLORD DIRECTION
 10423   0056 00  000020  4812   OVTST RNT     20                 TEST FOR SETUP
 10424   0020 00 0 10570  4813         TRA     OVNSZ              ERROR FOR NOO SIZE CARD HAS BEEN READ
 10425   0057 00  000100  4814         RIR     TAPIND             RESET TAPE INDICATOR
 10426   0054 00  000002  4815         RFT     2                  WRITE TEST
 10427   0074 00 4 00633  4816         TSX     TAPDMP,4           DUMP ON SYSTMP
 10430   0054 00  000001  4817         RFT     1                  TEST FOR NEW CORE IMAGE
 10431   0074 00 4 00651  4818         TSX     OVLT,4             GET ONE
 10432   0055 00  000001  4819         SIR     1                  SET READ INDICATOR
 10433   0057 00  000002  4820         RIR     2                  TURN OFF WRITE INDICATORS
 10434   0604 00 0 10340  4821   OVTA  STI     SYSIND             UPDATE SYSTEM INDICATORS
 10435   0074 00 4 11310  4822         TSX     $EVALQ,4           PERFORM THE EVAL QUOTE OPERATOR
 10436   0020 00 0 10230  4823         TRA     OVRLRD             GET NEXT OVERLORD DIRECTION CARD
                  000004  4824  DEBUGI BOOL    4                  DEBUG INDICATOR
                          4825  *
                          4826  *      SETSET DIRECTION CARD
 10437   0056 00  000020  4827   OVSST RNT     20                 TEST FOR SIZE
 10440   0020 00 0 10570  4828         TRA     OVNSZ              ERROR, NO SIZE
 10441   0057 00  000100  4829         RIR     TAPIND             RESET TAPE INDICATOR
 10442   0054 00  000002  4830         RFT     2                  TEST FOR SAVE CORE
 10443   0074 00 4 00633  4831         TSX     TAPDMP,4           SAVE IT
 10444   0054 00  000001  4832         RFT     1                  TEST FOR NEW IMAGE
 10445   0074 00 4 00651  4833         TSX     OVLT,4             GET ONE
 10446   0055 00  000002  4834         SIR     2                  SET WRITE INDICATOR
 10447   0057 00  000001  4835         RIR     1                  RESET READ INDICATOR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0093


 10450   0020 00 0 10434  4836         TRA     OVTA               PERFORM EVALQ AND GET NEXT CARD
                          4837  *
                          4838  *      SET     OVERLORD DIRECTION
 10451   0056 00  000020  4839   OVSET RNT     20                 TEST FOR SIZE
 10452   0020 00 0 10570  4840         TRA     OVNSZ              ERROR, NO SIZE CARD
 10453   0057 00  000100  4841         RIR     TAPIND             RESET TAPE INDICATOR
 10454   0054 00  000002  4842         RFT     2                  CHECK WRITE INDICATOR
 10455   0074 00 4 00633  4843         TSX     TAPDMP,4           DUMP ON SYSTMP
 10456   0054 00  000001  4844         RFT     1                  TEST FOR NEW CORE IMAGE
 10457   0074 00 4 00651  4845         TSX     OVLT,4             GET ONE FROM SYSTMP
 10460   0055 00  000002  4846         SIR     2                  SET WRITE INDICATOR
 10461   0057 00  000001  4847         RIR     1                  RESET READ INDICATOR
 10462   0604 00 0 10340  4848         STI     SYSIND             UPDATE SYSTEM INDICATORS
 10463   0074 00 4 11310  4849         TSX     $EVALQ,4           EVALUATE SET
 10464   0441 00 0 10340  4850         LDI     SYSIND             GET SYSTEM INDICATORS                 PAGE 101
 10465   0056 00  000010  4851         RNT     10                 TEST ERROR INDICATOR
 10466   0020 00 0 10230  4852         TRA     OVRLRD             OFF, GET NEXT DIRECTION CARD
 10467   0051 00  000003  4853         IIR     3                  ON, INVERT READ AND WRITE INDICATORS
 10470   0604 00 0 10340  4854         STI     SYSIND
 10471   0020 00 0 10230  4855         TRA     OVRLRD             GET NEXT CARD
                          4856  *
                          4857  *      FIN     OVERLORD DIRECTION CARD
                          4858  *
 10472   0054 00  000002  4859   OVDN  RFT     2                  TEST WRITE INDICATOR
 10473   0074 00 4 00633  4860         TSX     TAPDMP,4           DUMP CORE ON SYSTMP
 10474   0057 00  000002  4861         RIR 2
 10475   0057 00  000100  4862         RIR     TAPIND             RESET TAPE INDICATOR
 10476   0056 00  000040  4863         RNT     PPTIND             SEE IF PUNCH TAPE USED
 10477   0020 00 0 10501  4864         TRA     *+2                SKIP IF NOT USED
 10500   0500 00 0 00363  4865         CLA     SYSPPT             TAPE SPEC.
 10501   0074 00 4 00276  4866         TSX     $(IOS),4           SET UP I-O COMMANDS
 10502   0522 00 0 00353  4867         XEC     $WEF               WRITE EOF ON PPT
 10503   0057 00  000040  4868         RIR     PPTIND             RESET INDICATORS
 10504   0604 00 0 10340  4869         STI     SYSIND             UPDATE SYSTEM INDICATORS
 10505   0500 00 0 00364  4870         CLA     SYSPOT             TAPE SPEC.
 10506   0074 00 4 00276  4871         TSX     $(IOS),4           SET UP I-O COMMANDS
 10507   0522 00 0 00353  4872         XEC     $WEF               WRITE EOF ON  SYSPOT
 10510   0441 00 0 10336  4873         LDI     OVSVI              RESTORE ORIGINAL INDICATORS AND
 10511   0774 00 4 00000  4874   OVRLX AXT     **,4               INDEX REGISTERS
 10512   0774 00 2 00000  4875   OVRLY AXT     **,2
 10513   0774 00 1 00000  4876   OVRLZ AXT     **,1
 10514   0500 00 0 10525  4877         CLA     OVTOV              PICK UP RESTART INSTRUCTION
 10515   0601 00 0 00000  4878         STO     0                  STORE IN ZERO
 10516  -0754 00 0 00000  4879         PXD     0,0                LIGHT THE PANEL
 10517   0760 00 0 00006  4880         COM
 10520  -0765 00 0 00045  4881         LGR     37
 10521   0760 00 0 00006  4882         COM
 10522  -0760 00 0 00003  4883         SSM
 10523   0420 00 7 77777  4884         HPR     -1,7               STOP
 10524   0020 00 0 10523  4885         TRA     *-1                PRESS RESET AND START TO RESTART LISP
 10525   0020 00 0 10230  4886  OVTOV  TRA     OVRLRD             TRANSFER TO GET NEXT DIRECTION CARD
                  000040  4887  PPTIND BOOL    40                 PUNCH TAPE INDICATOR
                          4888  *
                          4889  *      ONE     OVERLORD DIRECTION
                          4890  *
 10526   0056 00  000020  4891   OVONE RNT     20                 TEST FOR SIZE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0094


 10527   0020 00 0 10570  4892         TRA     OVNSZ              ERROR, NO SIZE CARD READ
 10530   0057 00  000003  4893         RIR     3                  RESET READ AND WRITE INDICATORS
 10531   0020 00 0 10434  4894         TRA     OVTA               SAVE INDICATORS AND DO EVAL Q
                          4895  *
                          4896  *      SIZE    N1,N2,N3,N4        (OVERLORD DIRECTION CARD)
                          4897  *      N1 = LENGTH OF BINARY PROGRAM, N2 = LENGTH OF PUBLICH PUSH DOWN
                          4898  *      LIST, N3 = LENGTH OF FULL WORD SPACE, N4 = LENGTH OF FREE STORAGE
                          4899  *
 10532   0054 00  000002  4900   OVSZE RFT     2                  TEST FOR DUMP OF CURRENT CORE IMAGE
 10533   0074 00 4 00633  4901         TSX     TAPDMP,4           DUMP ON SYSTMP
 10534   0500 00 0 10402  4902         CLA     OVPOS              SET TO TRANSLATE NUMBERS ON SIZE CARD
 10535   0074 00 4 06622  4903         TSX     $NUMBR,4           LENGTH OF BINARY PROGRAM
 10536   0100 00 0 10561  4904         TZE     OVCER              ERROR IF ZERO                         PAGE 102
 10537  -0600 00 0 02305  4905         STQ     LBINPG             SAVE NUMBER
 10540   0074 00 4 06622  4906         TSX     $NUMBR,4           LENGTH OF PUBLIC PUSH DOWN LIST
 10541   0100 00 0 10561  4907         TZE     OVCER              ZERO IS ERROR
 10542   0601 00 0 02306  4908         STO     LPBPDL             SAVE NUMBER
 10543   0074 00 4 06622  4909         TSX     $NUMBR,4           LENGTH OF FULL WORD SPACE
 10544   0100 00 0 10561  4910         TZE     OVCER              ZERO IS ERROR
 10545   0601 00 0 02307  4911         STO     LFULWS             SAVE NUMBER
 10546   0074 00 4 06622  4912         TSX     $NUMBR,4           LENGTH OF FREE STORAGE
 10547   0100 00 0 10561  4913         TZE     OVCER              ZERO IS ERROR
 10550   0601 00 0 02310  4914         STO     LFREES             SAVE NUMBER
 10551   0074 00 4 02077  4915         TSX     $SETUP,4           PERFORM SETUP
 10552   0441 00 0 10340  4916         LDI     SYSIND             SYSTEM INDICATORS
 10553   0054 00  000010  4917         RFT     10                 TEST FOR ERROR IN SETUP
 10554   0020 00 0 10561  4918         TRA     OVCER              YES, DO ERROR PROCEDURE
 10555   0055 00  000022  4919         SIR     22                 SET SIZE AND WRITE INDICATORS
 10556   0057 00  000001  4920         RIR     1                  RESET READ INDICATORS
 10557   0604 00 0 10340  4921         STI     SYSIND             UPDATE SYSTEM INDICATORS
 10560   0020 00 0 10230  4922         TRA     OVRLRD             GET NEXT DIRECTION CARD
                          4923  *
 10561   0441 00 0 10340  4924   OVCER LDI     SYSIND             GETT SYSTEM INDICATORS
 10562   0055 00  000001  4925         SIR     1                  CONVERSION ERROR IN SIZE, SET READ IND
 10563   0604 00 0 10340  4926         STI     SYSIND             UPDATE SYSTEM INDICATORS
 10564   0074 00 4 01222  4927         TSX     OUTPUT,4           WRITE ERROR MESSAGE
 10565  -0 00000 0 00364  4928         MZE     BCDOUT             ON BCD OUTPUT TAPE AND ONLINE
 10566   0 00007 0 10341  4929                 OVCEM,,7
 10567   0020 00 0 10230  4930         TRA     OVRLRD             GET NEXT DIRECTION CARD
                          4931  *
 10570   0074 00 4 01222  4932   OVNSZ TSX     OUTPUT,4           WRITE ERROR MESSAGE
 10571  -0 00000 0 00364  4933         MZE     BCDOUT             ON BCD OUTPT TAPE AND ONLINE
 10572   0 00012 0 10350  4934                 OVNSM,,10
 10573   0020 00 0 10230  4935         TRA     OVRLRD             GET NEXT DIRECTION CARD
                          4936  *
                          4937  *      DUMP    BEGINNING,END,N    (OVERLORD DIRECTION)
                          4938  *              ALSO AVAILABLE TO LISP
                          4939  *              BEGINNNING IS A NUMBER TO START DUMP AT, END A NUMBER
                          4940  *              (MEANING OBVIOUS) AND N IS A NUMBER IF ZERO GIVES A
                          4941  *              STRAIGHT OCTAL DUMP AND IF NON-ZERO GIVES A COMPLEMENT
                          4942  *              (LISP TYPE) DUMP.
                          4943  *
 10574   0634 00 4 10726  4944   OVDMP SXA     OVDX,4             SAVE INDEX REGISTERS
 10575   0634 00 2 10727  4945         SXA     OVDY,2
 10576   0634 00 1 10730  4946         SXA     OVDZ,1
 10577   0600 00 0 11040  4947         STZ     OVDEX              INDICATE OVERLORD ENTRANCE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0095


 10600   0601 00 0 10723  4948         STO     OVDC               SAVE AC
 10601  -0600 00 0 10724  4949         STQ     OVDQ               SAVE MQ
 10602   0604 00 0 10725  4950         STI     OVDI               SAVE SI
 10603   0500 00 0 10402  4951         CLA     OVPOS              POSITION OF VARIABLE FIELD
 10604   0074 00 4 06622  4952         TSX     $NUMBR,4           BEGGINNING OF DUMP
 10605   0100 00 0 10770  4953         TZE     ODER               ERROR IN CONVERSION
 10606  -0120 00 0 11002  4954         TMI     OVENK              IF FLOATING POINT NUMBER, LOOK AT KEYS
 10607  -0600 00 0 11042  4955         STQ     OBEG
 10610   0074 00 4 06622  4956         TSX     $NUMBR,4           NUMBER TO END DUMP AT
 10611  -0600 00 0 11043  4957         STQ     OEND
 10612   0100 00 0 10770  4958         TZE     ODER               CONVERSION ERROR                      PAGE 103
 10613   0074 00 4 06622  4959         TSX     $NUMBR,4           TYPE OF DUMP
 10614  -0600 00 0 11046  4960         STQ     OLISD
 10615   0100 00 0 10770  4961         TZE     ODER               CONVERSION ERROR
 10616   0500 00 0 11043  4962   OVGE  CLA     OEND               END DUMP NUMBER
 10617   0400 00 0 00371  4963         ADD     $Q1
 10620   0621 00 0 10641  4964         STA     OLDQ               SET ADDRESS
 10621   0402 00 0 11042  4965         SUB     OBEG               GIVES COUNT OF WORDS TO BE DUMPED
 10622  -0120 00 0 10770  4966         TMI     ODER               NEGATIVE NUMBER YIELDS ERROR
 10623   0734 00 1 00000  4967         PAX     0,1                COUNT IN INDEX 1
 10624   0534 00 4 11042  4968         LXA     OBEG,4             GET BEGINNING
 10625   1 77772 4 10626  4969         TXI     *+1,4,-6           DECREMETN BY 6 (NUMBER OF WORDS / LINE)
 10626  -0634 00 4 11042  4970         SXD     OBEG,4             PUT IN DECREMENT FOR OCTAL CONVERSION
 10627   0020 00 0 10666  4971         TRA     OVDSH              START THE DUMP
                          4972  *
 10630  -0500 00 0 11036  4973   OAXT1 CAL     OVDSF              PICK UP STAR FLAG
 10631   0602 00 0 11051  4974   OAXT  SLW     OUP+1              PUT STARS OF BLANKS IN LINE
 10632   0774 00 2 00022  4975         AXT     18,2               SET IR 2
 10633   0500 00 0 11042  4976         CLA     OBEG               BEGININNING OF LINE
 10634   0400 00 0 00445  4977         ADD     $QD6               6 WORDS PER LINE
 10635   0622 00 0 11042  4978         STD     OBEG               UPDATE LINE NUMBER
 10636   0131 00 0 00000  4979         XCA                        NUMBER TO MQ
 10637   0074 00 4 11021  4980         TSX     OCTLP,4            CONVERT TO OCTAL
 10640   0602 00 0 11050  4981         SLW     OUP                BEGIN OUTPUT LINE
 10641  -0500 00 1 00000  4982   OLDQ  CAL     **,1               PICK UP WORD TO BE DUMPED
 10642   0100 00 0 10671  4983         TZE     OSTZ               EASY IF ALL ZERO
 10643  -0625 00 0 11037  4984         STL     OVDZS              INDICATE SOMETHING NON-ZERO DUMPED
 10644   0520 00 0 11046  4985         ZET     OLISD              SKIP IF STRAIGHT DUMP
 10645   0020 00 0 10673  4986         TRA     OLID               DO LISP DUMP
 10646  -0130 00 0 00000  4987   ODXCL XCL                        NUMBER TO MQ
 10647   0074 00 4 11021  4988         TSX     OCTLP,4            CONVERT LEFT HALF
 10650   0602 00 2 11074  4989         SLW     OUP+20,2           PUT IN OUTPUT LINE
 10651   0074 00 4 11021  4990         TSX     OCTLP,4            CONVERT RIGHT HALF
 10652   0560 00 0 00472  4991   OBQ   LDQ     BLANKS             BLANKS TO MQ
 10653  -0765 00 0 00006  4992         LGR     6                  MAKE A HOLE
 10654  -0501 00 0 00452  4993         ORA     OBLANK             INSERT ONE BLANK
 10655   0602 00 2 11075  4994         SLW     OUP+21,2           PUT IN OUTPUT LINE
 10656  -0600 00 2 11076  4995         STQ     OUP+22,2           DITTO
 10657  -2 00001 1 10713  4996         TNX     OVDFN,1,1          EXIT IF DONE
 10660   2 00003 2 10641  4997         TIX     OLDQ,2,3           LOOP 6 TIMES
 10661  -0520 00 0 11037  4998         NZT     OVDZS              SKIP IF NOT ALL ZEROS
 10662   0020 00 0 10630  4999         TRA     OAXT1              GO BACK AND GET STAR FLAG FOR ZEROS
 10663   0074 00 4 01222  5000         TSX     OUTPUT,4           WRITE LINE OF DUMP
 10664   0 00000 0 00364  5001                 BCDOUT             ON BCDOUT
 10665   0 00024 0 11050  5002                 OUP,,20
 10666   0600 00 0 11037  5003   OVDSH STZ     OVDZS              SET SWITCH TO TEST FOR LINE OF ZEROS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0096


 10667  -0500 00 0 00472  5004         CAL     BLANKS             BLANK THE FLAG FIELD
 10670   0020 00 0 10631  5005         TRA     OAXT               GET NEXT LINE
                          5006  *
 10671   0600 00 2 11074  5007   OSTZ  STZ     OUP+20,2           IF ZERO PUT ZERO S IN OUTPUT LINE
 10672   0020 00 0 10652  5008         TRA     OBQ                GO AS IF CONVERTED
                          5009  *
 10673   0602 00 0 11045  5010   OLID  SLW     ODLT               LISP TYPE (COMPLEMENT DUMP)
 10674  -0320 00 0 11047  5011         ANA     OLDM               MASK OUT ALL BUT TAG AND PREFIX
 10675   0100 00 0 10700  5012         TZE     ODC                TRANSFER IF LISP                      PAGE 104
 10676  -0500 00 0 11045  5013         CAL     ODLT               HAS PREFIX AND/OR TAG, DUMP STRAIGHT
 10677   0020 00 0 10646  5014         TRA     ODXCL              GO TO NORMAL DUMP
 10700  -0535 00 4 11045  5015   ODC   LDC     ODLT,4             COMPLEMENT DECREMENT
 10701  -0634 00 4 11045  5016         SXD     ODLT,4             STORE
 10702   0535 00 4 11045  5017         LAC     ODLT,4             COMPLEMENT ADDRESS
 10703   0634 00 4 11045  5018         SXA     ODLT,4             STORE
 10704   0560 00 0 11045  5019         LDQ     ODLT               PUT IN MQ
 10705   0074 00 4 11021  5020         TSX     OCTLP,4            CONVERT LEFT HALF
 10706  -0501 00 0 11044  5021         ORA     ODSAR              OR IN A *
 10707   0602 00 2 11074  5022         SLW     OUP+20,2           PUT IN OUTPUT LINE
 10710   0074 00 4 11021  5023         TSX     OCTLP,4            CONVERT RIGHT HALF
 10711  -0501 00 0 11044  5024         ORA     ODSAR              PUT IN *
 10712   0020 00 0 10652  5025         TRA     OBQ                PUT AWAY AS USUAL
                          5026  *
 10713  -2 00003 2 10717  5027   OVDFN TNX     OVDLL,2,3          SKIP IF LINE FILLED OUT
 10714  -0500 00 0 00472  5028         CAL     BLANKS             GET BLANKS IN AC
 10715   0602 00 2 11074  5029         SLW     OUP+20,2           BLANK REST OF LINE
 10716   2 00001 2 10715  5030         TIX     *-1,2,1
 10717   0074 00 4 01222  5031   OVDLL TSX     OUTPUT,4           WRITE LAST OUTPUT LINE
 10720   0 00000 0 00364  5032                 BCDOUT
 10721   0 00024 0 11050  5033                 OUP,,20
 10722   0020 00 0 10726  5034         TRA     OVDX               GO TO EXIT
                          5035  *   FOLLOWING 6 SELLS CONTAIN AC, MQ , SI, AND IR S  UPON DUMP ENTRANCE
 10723   0 00000 0 00000  5036   OVDC                             AC CONTENTS
 10724   0 00000 0 00000  5037   OVDQ                             DITTO MQ
 10725   0 00000 0 00000  5038   OVDI                             DITTO SI
 10726   0774 00 4 00000  5039   OVDX  AXT     **,4               RESTORE INDEX REGISTERS
 10727   0774 00 2 00000  5040   OVDY  AXT     **,2
 10730   0774 60 1 00010  5041   OVDZ  AXT     *8,1
 10731   0520 00 0 11040  5042         ZET     OVDEX              TEST FOR LISP OR OVERLORD EXIT
 10732   0020 00 4 00001  5043         TRA     1,4                LISP EXIT
 10733   0520 00 0 11041  5044         ZET     OVDEK              TEST FOR ENK MODE
 10734   0020 00 0 11002  5045         TRA     OVENK              GO TO KEEYS
 10735   0020 00 0 10230  5046         TRA     OVRLRD             GO BACK FOR NEXT DIRECTION CARD
                          5047  *
 10736   0634 00 4 10726  5048  DUMPXX SXA     OVDX,4             LISP ENTRANCE
 10737   0634 00 2 10727  5049         SXA     OVDY,2             SAVE INDEX REGISTERS
 10740   0634 00 1 10730  5050         SXA     OVDZ,1
 10741  -0625 00 0 11040  5051         STL     OVDEX              SET FOR LISP EXIT
 10742   0622 00 0 11040  5052         STD     OVDEX              SAVE ARG1
 10743   0500 00 0 03322  5053         CLA     $ARG4              PICK UP ID FOR DUMP
 10744   0074 00 4 04604  5054         TSX     $PRINT,4           PRINT IT
 10745  -0534 00 2 11040  5055         LXD     OVDEX,2            ARG 1
 10746   0074 00 4 13075  5056         TSX     FIXVAL,4           EVALUATE AS FIXED POINT NUMBER
 10747   0601 00 0 11042  5057         STO     OBEG               STORE IN BEGINNING
 10750   0131 00 0 00000  5058         XCA                        ARG 2
 10751  -0734 00 2 00000  5059         PDX     0,2                ARG TO INDEX 2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0097


 10752   0074 00 4 13075  5060         TSX     FIXVAL,4           EVALUATE AS FIXED POINT NUMBER
 10753   0601 00 0 11043  5061         STO     OEND
 10754  -0534 00 2 03321  5062         LXD     $ARG3,2            ARG 3
 10755   0074 00 4 13075  5063         TSX     FIXVAL,4           EVALUATE AS FIXED POINT NUMBER
 10756   0601 00 0 11046  5064         STO     OLISD
 10757   0020 00 0 10616  5065         TRA     OVGE               EXECUTE DUMP
                          5066  *                                                                       PAGE 105
 10760   0634 00 4 10726  5067  DUMPYY SXA     OVDX,4
 10761   0634 00 2 10727  5068         SXA     OVDY,2
 10762   0634 00 1 10730  5069         SXA     OVDZ,1
 10763  -0625 00 0 11040  5070         STL     OVDEX
 10764  -0600 00 0 11043  5071         STQ     OEND
 10765   0601 00 0 11042  5072         STO     OBEG
 10766   0600 00 0 11046  5073         STZ     OLISD
 10767   0020 00 0 10616  5074         TRA     OVGE
                          5075  *
 10770   0074 00 4 01222  5076   ODER  TSX     OUTPUT,4            WRITE ERROR MESSAGE
 10771  -0 00000 0 00364  5077         MZE     BCDOUT             ON BCD OUTPUT TAPE AND ONLINE
 10772   0 00006 0 10774  5078                 ODBAD,,6
 10773   0020 00 0 10726  5079         TRA     OVDX               RESTORE AND EXIT
 10774   002221246024     5080   ODBAD BCI     6,0BAD DUMP ARGUMENTS -OVERLORD- *O 4*
                          5081  *
 11002   0420 77 7 77777  5082   OVENK HPR     -1,7,63            STOP FOR KEYS
 11003   0760 00 0 00004  5083         ENK
 11004  -0754 00 0 00000  5084         PXD     0,0                CLEAR AC
 11005  -0763 00 0 00001  5085         LGL     1                  TYPE OF DUMP IN SIGN BIT
 11006   0601 00 0 11046  5086         STO     OLISD              PUT AWAY
 11007  -0754 00 0 00000  5087         PXD     0,0                CLEAR AC
 11010  -0763 00 0 00021  5088         LGL     17                 BEGINNING
 11011   0601 00 0 11042  5089         STO     OBEG
 11012  -0754 00 0 00000  5090         PXD     0,0                CLEAR AC
 11013  -0763 00 0 00022  5091         LGL     18                 END
 11014   0601 00 0 11043  5092         STO     OEND
 11015   0601 00 0 11041  5093         STO     OVDEK              SET SWITCH ON EXIT
 11016   0601 00 0 11040  5094         STO     OVDEX              SET OVERLORD EXIT
 11017   0100 00 0 10726  5095         TZE     OVDX               EXIT ON ZERO REGUEST
 11020   0020 00 0 10616  5096         TRA     OVGE               PROCESS DUMP
                          5097  *
 11021  -0754 00 0 00000  5098   OCTLP PXD     0,0                CONVERT LEFT HALF OF MQ TO OCTAL
 11022  -0763 00 0 00003  5099         LGL     3                  CLEAR AC AND DO SHIFT DANCE
 11023   0767 00 0 00003  5100         ALS     3
 11024  -0763 00 0 00003  5101         LGL     3
 11025   0767 00 0 00003  5102         ALS     3
 11026  -0763 00 0 00003  5103         LGL     3
 11027   0767 00 0 00003  5104         ALS     3
 11030  -0763 00 0 00003  5105         LGL     3
 11031   0767 00 0 00003  5106         ALS     3
 11032  -0763 00 0 00003  5107         LGL     3
 11033   0767 00 0 00003  5108         ALS     3
 11034  -0763 00 0 00003  5109         LGL     3
 11035   0020 00 4 00001  5110         TRA     1,4                EXIT
                          5111  *
                   11021  5112  OCTALP SYN     OCTLP
                   00651  5113   OVLT  SYN     OVLTXX
 11036   605454545460     5114   OVDSF BCI     1, ****            STAR FLAG AFTER DUMPING ZEROS
 11037   0 00000 0 00000  5115   OVDZS                            SUPPRESSES OUTPUT WHEN DUMPING ZEROS  PAGE 106
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0098


 11040   0 00000 0 00000  5116   OVDEX                            ZERO FOR OVERLORD EXIT NON-ZERO , LISP
 11041   0 00000 0 00000  5117   OVDEK                            TEST CELL NON-ZERO FOR ENK MODE
 11042   0 00000 0 00000  5118   OBEG                             BEGIN DUMP
 11043   0 00000 0 00000  5119   OEND                             END DUMP
 11044   540000000000     5120   ODSAR BCI     1,*00000           A * FOR COMPLEMENT DUMPING
 11045   0 00000 0 00000  5121   ODLT                             TEMPORARY STORAGE
 11046   0 00000 0 00000  5122   OLISD                            NON-ZERO FOR LISP TYPE DUMP
 11047  -3 00000 7 00000  5123   OLDM  SVN     ,4+2+1             MASK FOR TAG AND PREFIX
 11050   606060606060     5124   OUP   BCI     2,                 BLANKS FOR BEGINNING OF OUT PUT LINE
 11052                    5125         BSS     18                 ROOM FOR REST OF LINE
                          5126  *
                          5127  *
                          5128  *      TAPE    SYSXXX,A6          (OVERLORD DIRECTION CARD)
                          5129  *              SYSTAP, SYSTMP, SYSPIT AND SYSPOT ARE CURRENTLY
                          5130  *              RECOGINIZED LISP TAPES. UNIT DESIGNATION IS BY CHANNEL
                          5131  *              (A, B, OR C) AND NUMBER (1 THRU 10).
                          5132  *
 11074   0634 00 4 11225  5133   OVTAP SXA     OVTPX,4            SAVE INDEX REGISTERS
 11075   0634 00 2 11226  5134         SXA     OVTPY,2
 11076   0634 00 1 11227  5135         SXA     OVTPZ,1
 11077   0054 00  000100  5136         RFT     TAPIND             SKIP IF LAST CARD WAS NOT A TAPE CARD
 11100   0020 00 0 11107  5137         TRA     OVTJJ              SKIP READ AND WRITE SECTION
 11101   0054 00  000002  5138         RFT     2                  TEST FOR TAPE DUMP ON SYSTMP
 11102   0074 00 4 00633  5139         TSX     TAPDMP,4           DO IT
 11103   0054 00  000001  5140         RFT     1                  TEST FOR READ
 11104   0074 00 4 00651  5141         TSX     OVLT,4             GET NEW IMAGE
 11105   0057 00  000001  5142         RIR     1                  RESET READ INDICATOR
 11106   0055 00  000002  5143         SIR     2                  SET WRITE INDICATOR
 11107   0055 00  000100  5144   OVTJJ SIR     TAPIND             SET TAPE DIRECTION INDICATOR
 11110   0604 00 0 10340  5145         STI     SYSIND             UPDATE SYSTEM INDICATORS
 11111   0774 00 4 00005  5146         AXT     5,4                NUMBER OF ENTRIES IN TAPE TABLE
 11112  -0500 00 0 10406  5147         CAL     OVBUF+2
 11113   0560 00 0 10407  5148         LDQ     OVBUF+3            GET TAPE DESIGNATION IN AC AND MQ
 11114  -0763 00 0 00023  5149         LGL     19                 SHIFT INTO AC
 11115  -0763 00 0 00001  5150         LGL     1                  DUMPING Q BIT
 11116  -0340 00 4 11243  5151   OVLA  LAS     OVTTB,4            COMPARE WITH TAPE TABLE
 11117   0020 00 0 11121  5152         TRA     *+2                NOT THIS ONE
 11120   0020 00 0 11143  5153         TRA     OVTAA              THIS IS IT
 11121   2 00001 4 11116  5154         TIX     OVLA,4,1           TRY AGAIN
 11122   0602 00 0 11131  5155   OVCMP SLW     OVTRM              NOT FOUND, COMPLAIN
 11123   0074 00 4 01222  5156         TSX     OUTPUT,4
 11124   0 00000 0 00364  5157                 BCDOUT
 11125   0 00014 0 11127  5158                 OVTRN,,12
 11126   0020 00 0 10230  5159         TRA     OVRLRD             GET NEXT DIRECTION CARD
 11127   006062465151     5160   OVTRN BCI     2,0 SORRY,
 11131   0 00000 0 00000  5161   OVTRM
 11132   603162604546     5162         BCI     9, IS NOT A VALID LISP TAPE DESIGNATION -OVERLORD- *O 2*
 11143  -0773 00 0 00006  5163   OVTAA RQL     6                  DUMP THE COMMA                        PAGE 107
 11144  -0754 00 0 00000  5164         PXD     0,0                CLAER AC
 11145  -0763 00 0 00006  5165         LGL     6                  CHANELL LETTER IN AC
 11146   0044 00 0 00000  5166         PAI                        IN INDICATORS
 11147   0774 00 2 00003  5167         AXT     3,2                TRY CHAN. C
 11150   0056 00  000003  5168         RNT     3                  SKIP IF C
 11151   0774 00 2 00002  5169         AXT     2,2                TRY B
 11152   0056 00  000002  5170         RNT     2                  SKIP IF B OR C
 11153   0774 00 2 00001  5171         AXT     1,2                IF NO SKIP, MUST BE A
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0099


 11154  -0763 00 0 00006  5172         LGL     6                  TAPE NUMBER IN AC
 11155  -0320 00 0 00417  5173         ANA     $QO17              MASK OUT ALL BUT 4 LOW ORDER BITS
 11156   0441 00 0 10410  5174         LDI     OVBUF+4            NEXT WORD IN INDICATORS
 11157  -0054 00  770000  5175         LFT     770000             KIP IF LEFT MOST CHARACTER IS A0
 11160   0020 00 0 11162  5176         TRA     *+2
 11161   0400 00 0 00401  5177         ADD     $Q9                IF LEFT MOST IS 0 ADD 9 TO THE 1
 11162   0734 00 1 00000  5178         PAX     0,1                RESULT TO INDEX 1
 11163  -3 00000 1 11165  5179         TXL     *+2,1,0            ZERO UNIT DOES NOT GO
 11164  -3 00012 1 11174  5180         TXL     OVTPS,1,10         UNITS OVER TEN DON T GO
 11165   0500 00 0 00472  5181         CLA     BLANKS
 11166   0560 00 0 10407  5182         LDQ     OVBUF+3
 11167  -0773 00 0 00030  5183         RQL     24                 POSITION TABPE DESIG
 11170  -0763 00 0 00014  5184         LGL     12
 11171   0560 00 0 10410  5185         LDQ     OVBUF+4
 11172  -0763 00 0 00006  5186         LGL     6                  ALL IN AC
 11173   0020 00 0 11122  5187         TRA     OVCMP              GO COMPLAIN
 11174  -0501 00 4 11250  5188   OVTPS ORA     OVTCT,4            OR IN BIN OR BCD FOR THAT TAPE
 11175  -0501 00 2 11253  5189         ORA     OVCHN,2            OR IN PROPER CHANEL DESIGNATION
 11176   0602 00 4 00370  5190         SLW     TAPASG,4           CHANGE TAPE ASSIGNMENT
 11177   0560 00 4 11243  5191         LDQ     OVTTB,4            MAKE OUTPUT MESSAGE BY GETTING NAME
 11200  -0600 00 0 11234  5192         STQ     OVTPO              PUT INTO MESSAGE
 11201   3 00001 4 11216  5193         TXH     OVTXX,4,1          SKIP FOLLOWING IF NOT SYSTAP
 11202   0500 00 0 00367  5194         CLA     SYSTAP
 11203   0074 00 4 00276  5195         TSX     $(IOS),4           SET UP I-O COMMANDS FOR SYSTAP
 11204   0560 00 0 00357  5196         LDQ     $TCO               MAKE PROPER SYSTEM CALL CARD
 11205  -0620 00 0 00145  5197         SLQ     BOTTOM+1
 11206   0560 00 0 00350  5198         LDQ     $RDS
 11207  -0600 00 0 11273  5199         STQ     GCRDB
 11210   0560 00 0 00361  5200         LDQ     $RCH
 11211  -0620 00 0 11274  5201         SLQ     GCRDC
 11212   0560 00 0 00362  5202         LDQ     $LCH
 11213  -0620 00 0 11276  5203         SLQ     GCRDD
 11214   0766 00 0 01341  5204         WPUA                       PUCH OUT THE 2 CARD CALLER
 11215   0540 00 0 11302  5205         RCHA    GCIOC              CHANNEL COMMANDS
 11216   0500 00 2 11256  5206   OVTXX CLA     OVCLT,2            TELL WHAT YOU HAVE DONE BY MAKING
 11217  -0501 00 1 11270  5207         ORA     OVCTN,1            A MESSAGE
 11220   0621 00 0 11231  5208         STA     OVTPP
 11221   0625 00 0 11231  5209         STT     OVTPP
 11222   0074 00 4 01222  5210         TSX     OUTPUT,4           PRINT OUT THE NEW ASSIGNMENT
 11223   0 00000 0 00364  5211                 BCDOUT
 11224   0 00005 0 11231  5212                 OVTPP,,5
 11225   0774 00 4 00000  5213   OVTPX AXT     **,4               RESTORE INDEX REGISTERS               PAGE 108
 11226   0774 00 2 00000  5214   OVTPY AXT     **,2
 11227   0774 00 1 00000  5215   OVTPZ AXT     **,1
 11230   0020 00 0 10230  5216         TRA     OVRLRD             GET NEXT DIRECTION CARD
 11231   006060000000     5217   OVTPP BCI     3,0  000IS NOW LISP
 11234   000000000000     5218   OVTPO BCI     2,000000.
                          5219  *      TABLES FOR OVTAP
 11236   627062474763     5220         BCI     5,SYSPPTSYSPOTSYSPITSYSTMPSYSTAP
 11243   0 00000 0 00000  5221   OVTTB PZE                        LOW DENS, BCD PPT
 11244   0 00000 0 00000  5222         PZE                        LOW DENS, BCD PIT
 11245   0 00000 0 00000  5223         PZE                        LOW DENS, BCD POT
 11246   0 00000 0 00020  5224         PZE     16                 HI DENS, BIN TMP
 11247   0 00000 0 00020  5225         PZE     16                 HI DENS, BIN TMP
 11250   0 00003 0 03200  5226   OVTCT PZE     3*512+2*64,,3      CHANNEL C
 11251   0 00002 0 02200  5227         PZE     2*512+2*64,,2      B
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0100


 11252   0 00001 0 01200  5228         PZE     1*512+2*64,,1      A
 11253   000000230000     5229   OVCHN BCI     3,000C00000B00000A00
 11256   000000000100     5230   OVCLT BCI     9,00001000009 00008 00007 00006 00005 00004 00003 00002
 11267   000000000160     5231         BCI     1,00001
 11270                    5232   OVCTN BSS     0
                          5233  *
                          5234  *
                          5235  * SYSTEM CALL CARD PERFORMS A LOAD TAPE SEQUENCE ON THE SYSTAP
                          5236  *
 11270   0 00006 0 00011  5237   GCRD  IOCD    9,,6
 11271   0060 00 0 00001  5238         TCOA    1
 11272   0021 00 0 00011  5239         TTR     9
 11273   0762 00 0 01221  5240   GCRDB RTBA    1                  SELECT THE SYSTEM TAPE
 11274   0540 00 0 00016  5241   GCRDC RCHA    14
 11275   0600 00 0 00001  5242         STZ     1                  STOP IF TAPE DOES NOT LOAD
 11276   0544 00 0 00000  5243   GCRDD LCHA    0                  LOAD I-O COMMAND FROM TAPE
 11277   0021 00 0 00001  5244         TTR     1                  TRANSFER TO 1
 11300  -1 00003 0 00000  5245         IOCT    0,,3               LOAD FIRST 3 WORDS FROM TAPE
                          5246  *                                 SECOND CARD OF CALLER
 11301   0000 00 0 00174  5247   GCRDE HTR     CONTIN             BECOMES A TRANSFER CARD
                          5248  *
 11302   2 00004 0 11270  5249   GCIOC IORP    GCRD,,4
 11303   2 00001 0 11301  5250         IORP    GCRDE,,1           TRANSFER CARD                         PAGE 109
 11304   2 00000 0 11306  5251         IORP    *+2,,0             2 BLANK CARDS
 11305   2 00000 0 11306  5252         IORP    *+1,,0
 11306   0 00000 0 00000  5253         IOCD    0,,0               DISCONNECT CHANNEL
                          5254  *
                  000100  5255  TAPIND BOOL    100
                          5256  *
                          5257  *      EXCISE  DIRECTION CARD TO THROW OUT THE COMPILER AND/OR THE INTER
                          5258  *              PRETER GOES HERE
                          5259  *
 11307   0020 00 0 10230  5260   OVEXS TRA     OVRLRD             ROUTINE NOT WRITTEN YET.  8 APRIL 1961
                          5261  *
                          5262  *      EVALQ   A SUCCESSOR TO THE APPLY OPERATOR, THE GRAND NEW
                          5263  *              (AS OF 1 MARCH 1961) THE EVALQUOTE OPERATOR.
                          5264  *
 11310   0634 00 4 11416  5265   EVALQ SXA     EVLQX,4            SAVE LINK IR
 11311   0634 00 2 11417  5266         SXA     EVLQY,2            SAVE IR 2
 11312   0074 00 4 00000  5267         TSX     $TIME,4            PRINT TIME AND DATE
 11313   0074 00 4 01222  5268         TSX     OUTPUT,4           WRITE OPENNING MESSAGE
 11314   0 00000 0 00364  5269                 BCDOUT
 11315   0 00014 0 11520  5270                 EVQBM,,12
 11316   0600 00 0 11516  5271         STZ     EVQRTS             INITIALIZE TEST CELLS
 11317   0600 00 0 03653  5272         STZ     EVQB               DITTO
 11320   0774 00 2 00144  5273         AXT     EVQBL,2            LENGTH OF EVAL QUOTE BUFFER
 11321   0634 00 2 11437  5274   EVQRD SXA     EVQRX,2            SAVE INDEX 2 INCASE OF READ ERROR
 11322   0074 00 4 05732  5275         TSX     $READ,4            READ THE INPUT LISTS
 11323   0601 00 0 03506  5276         STO     EVQAN              SAVE THE LIST
 11324   0340 00 0 11517  5277         CAS     EVQSP              COMPARE WITH STOP ATOM
 11325   0020 00 0 11327  5278         TRA     *+2                IS NOT
 11326   1 00001 2 11341  5279         TXI     EVQOP,2,1          SET IR 2 TO PROER VALUE
 11327   0520 00 0 03653  5280         ZET     EVQB               SKIP IF FIRST LIST OF DOUBLET
 11330   0020 00 0 11334  5281         TRA     EVQA               IS SECOND LIST
 11331  -0625 00 0 03653  5282         STL     EVQB               FLIP SWITCH
 11332   0601 00 2 03653  5283         STO     EVQB,2             SAVE FIRST LIST OF DOUBLET IN BUFFER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0101


 11333   0020 00 0 11321  5284         TRA     EVQRD              GET NEXT LIST
 11334  -0734 00 4 00000  5285   EVQA  PDX     0,4                LIST TO INDEX
 11335  -0754 00 4 00000  5286         PXD     0,4                MOVE TO ADDRESS
 11336   0621 00 2 03653  5287         STA     EVQB,2             SAVE SECOND LIST OF DOUBLET IN BUFFER
 11337   0600 00 0 03653  5288         STZ     EVQB               FLIP SWITCH
 11340   2 00001 2 11321  5289         TIX     EVQRD,2,1          GET NEXT LIST
 11341  -0634 00 2 11410  5290   EVQOP SXD     EVQTH,2            INDEX VALUE OF LAST LIST READ IN
 11342   0074 00 4 00000  5291         TSX     $TIME,4            PRINT TIME
 11343  -0625 00 0 11516  5292         STL     EVQRTS             SET ERROR RETURN SWITCH
 11344   0774 00 2 00144  5293         AXT     EVQBL,2            LENGTH OF BUFFER
 11345   0634 00 2 11407  5294   EVQLP SXA     EVQER,2            SAVE IDNEX VALUE
 11346   0074 00 4 01200  5295   EVQS  TSX     SPACEX,4           WRITE OUT SOME BLANK LINES
 11347   0 00000 0 01216  5296                 6SPACE              3 DOUBLE SPACES
 11350   0500 00 2 03653  5297         CLA     EVQB,2             PICK UP FIRST ITEM IN BUFFER
 11351   0600 00 2 03653  5298         STZ     EVQB,2             ZERO THE BUFFER ENTRY
 11352   0600 00 0 03316  5299         STZ     $ALIST             RESET ALIST
 11353  -0734 00 4 00000  5300         PDX     0,4                MAKE AN ATOM TEST
 11354   0560 00 0 00370  5301         LDQ     $ZERO
 11355  -0765 00 0 00022  5302         LGR     18                 SECOND LIST INTO MQ
 11356  -0754 00 4 00000  5303         PXD     0,4                FIRST LIST INTO AC
 11357   0074 00 4 07745  5304         TSX     PRINAR,4           PRINT HEADING                         PAGE 110
 11360   0 00000 0 00002  5305                 2
 11361   602565214350     5306         BCI     2, EVALQUOTE
 11363  -0774 00 4 11377  5307         AXC     EVQFT,4            SET RETURN INDEX CELL
 11364   0634 00 4 11376  5308         SXA     EVQD,4
 11365   0774 00 4 14663  5309   EVQMP AXT     $APPLY,4           SET CELL OF PROGRAM TO BE EXECUTED
 11366   0634 00 4 11377  5310         SXA     EVQFT,4            INITIALIZE PROGRAM TO BE EXECUTED CELL
 11367   0601 00 0 11513  5311         STO     EVQAC              SAVE AC
 11370  -0734 00 4 00000  5312         PDX     0,4                FIRST LIST TO IR 4
 11371   0500 00 4 00000  5313         CLA     0,4
 11372   0734 00 4 00000  5314         PAX     0,4
 11373   3 77776 4 11441  5315         TXH     EVQAT,4,-2         TRANSFER IF FIRST LIST IS ATOMIC
 11374   0500 00 0 11513  5316   EVQNF CLA     EVQAC              RESTORE AC
 11375   0600 00 0 03321  5317  EVQZ   STZ     $ARG3              NULL ALIST FOR APPLY
 11376   0774 00 4 00000  5318   EVQD  AXT     **,4               RETURN INDEX REGISTER
 11377   0020 00 0 00000  5319   EVQFT TRA     **                 PROGRAM TO BE EXECUTED
 11400   0601 00 0 03506  5320   EVQE  STO     EVQAN              SAVE ANSWER
 11401   0074 00 4 01222  5321         TSX     OUTPUT,4           PRINT END OF EVALQUOTE MESSAGE
 11402   0 00000 0 00364  5322                 BCDOUT
 11403   0 00005 0 11534  5323                 EVQAM,,5
 11404   0500 00 0 03506  5324         CLA     EVQAN              PICK UP ANSWER
 11405   0074 00 4 04604  5325         TSX     $PRINT,4           PRINT IT
 11406   0600 00 0 03506  5326         STZ     EVQAN              ZERO TEMP STORAGE
 11407   0774 00 2 00000  5327   EVQER AXT     **,2               ERRORS COME BACK HERE, RESTORE IR 2
 11410  -3 00000 2 11412  5328   EVQTH TXL     EVQDN,2,**         EXIT IF LAST DOUBLET EXECUTED
 11411   2 00001 2 11345  5329         TIX     EVQLP,2,1          EXECUTE NEXT DOUBLET
 11412   0074 00 4 00000  5330   EVQDN TSX     $TIME,4            ALL DONE, PRINT THE TIME
 11413   0074 00 4 01222  5331         TSX     OUTPUT,4           PRINT COLSING MESSAGE
 11414   0 00000 0 00364  5332                 BCDOUT
 11415   0 00005 0 11541  5333                 EVQME,,5
 11416   0774 00 4 00000  5334   EVLQX AXT     **,4               RESTORE LINK IR
 11417   0774 00 2 00000  5335   EVLQY AXT     **,2
 11420   0020 00 4 00001  5336         TRA     1,4                EXIT
                          5337  *
                          5338  *      EVALQT  LISP ENTRANCE TO EVALQUOTE
                          5339  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0102


 11421   0634 00 4 11376  5340  EVALQT SXA     EVQD,4             SET RETURN INDEX CELL
 11422   0020 00 0 11365  5341         TRA     EVQMP              GO TO MAIN PROGRAM
                          5342  *
                          5343  * ERROR RETURNS CONTROL HERE
                          5344  *
 11423   0074 00 4 06311  5345  EVQERR TSX     TEREAD,4           CLEAN UP READ BUFFER
 11424   0074 00 4 05214  5346         TSX     TERPRI,4           CLEAN UP PRINT BUFFER
 11425   0074 00 4 05421  5347         TSX     TERPUN,4           CLEAN UP PUNCH BUFFER
 11426   0074 00 4 02410  5348         TSX     TERPDL,4           RESET PUSH DOWN LIST
 11427   0520 00 0 11516  5349         ZET     EVQRTS             SKIP IF IN READ IN SECTION OF EVALQUOT
 11430   0020 00 0 11407  5350         TRA     EVQER              EXECUTE NEXT DOUBLET
 11431  -0625 00 0 11516  5351         STL     EVQRTS             MOVE TO OPREATE SECTION OF EVALQUOTE
 11432   0074 00 4 01222  5352         TSX     OUTPUT,4           MESSAGE THAT READ WAS ERROR TERMINATED
 11433   0 00000 0 00364  5353                 BCDOUT
 11434   0 00012 0 11546  5354                 EVQRE,,10
 11435   0500 00 0 03506  5355         CLA     EVQAN              PICK UP LAST LIST READ IN
 11436   0074 00 4 04604  5356         TSX     $PRINT,4
 11437   0774 00 2 00000  5357   EVQRX AXT     **,2               RESTORE IR 2 TO RIGHT VALUE           PAGE 111
 11440   1 00001 2 11341  5358         TXI     EVQOP,2,1          SET IR 2 TO PROER VALUE
                          5359  *
                          5360  * CASE FOR ATOMIC FIRST LIST OF DOUBLET
                          5361  *
 11441  -0734 00 4 00000  5362   EVQAT PDX     0,4
 11442  -3 00000 4 11374  5363         TXL     EVQNF,4,0          EXIT IF END OF ATOM
 11443   0500 00 4 00000  5364         CLA     0,4                NEXT WORD
 11444   0734 00 4 00000  5365         PAX     0,4                CAR OF ATOM
 11445  -0625 00 0 11515  5366         STL     EVQST              SET SWITCH FOR SUBR OF EXPR
 11446  -3 06732 4 11450  5367         TXL     *+2,4,$SUBR-1      LOOK FOR $SUBR
 11447  -3 06733 4 11501  5368         TXL     EVQFS,4,$SUBR      TREAT AS FSUBR (ALMOST)
 11450  -3 10156 4 11452  5369         TXL     *+2,4,$EXPR-1      LOOK FOR $EXPR
 11451  -3 10157 4 11457  5370         TXL     EVQFX,4,$EXPR      TREAT AS FEXPR (ALMOST)
 11452   0600 00 0 11515  5371         STZ     EVQST              SET SWITCH FOR FSUBR OR FEXPR
 11453  -3 10102 4 11455  5372         TXL     *+2,4,$FSUBR-1     LOOK FOR FSUBR
 11454  -3 10103 4 11501  5373         TXL     EVQFS,4,$FSUBR
 11455  -3 10141 4 11441  5374         TXL     EVQAT,4,$FEXPR-1   LOOK FOR FEXPR
 11456   3 10142 4 11441  5375         TXH     EVQAT,4,$FEXPR
 11457  -0734 00 4 00000  5376   EVQFX PDX     0,4                FOUND AN FEXPR
 11460   0500 00 4 00000  5377         CLA     0,4
 11461   0734 00 4 00000  5378         PAX     0,4                THE EXPRESSION FOR THE FEXPR
 11462  -0754 00 4 00000  5379         PXD     0,4                EXPRESSION TO AC
 11463   0520 00 0 11515  5380         ZET     EVQST              SKIP IF FEXPR
 11464   0020 00 0 11375  5381         TRA     EVQZ               GO TO APPLY CALL FOR EXPR
 11465   0601 00 0 03506  5382         STO     EVQAN              SAVE THE EXPRESSION
 11466  -0600 00 0 11514  5383         STQ     EVQMQ              SAVE MQ
 11467  -0754 00 0 00000  5384         PXD     0,0                CLEAR
 11470   0131 00 0 00000  5385         XCA                        MQ AND
 11471  -0754 00 0 00000  5386         PXD     0,0                AC
 11472   0074 00 4 03730  5387         TSX     $CONS,4            NULL A LIST
 11473   0131 00 0 00000  5388         XCA                        INTO MQ
 11474   0500 00 0 11514  5389         CLA     EVQMQ              PUT SECOND LIST IN AC
 11475   0074 00 4 03730  5390         TSX     $CONS,4            CONS(L,A)
 11476   0131 00 0 00000  5391         XCA                        ANSWER TO ARG 2
 11477   0500 00 0 03506  5392         CLA     EVQAN              FEXPR
 11500   0020 00 0 11375  5393         TRA     EVQZ               GO TO APPLY FOR FEXPR
                          5394  *
 11501  -0734 00 4 00000  5395   EVQFS PDX     0,4                FOUND FSUBR, GET TXL INSTRUCTION
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0103


 11502   0500 00 4 00000  5396         CLA     0,4
 11503   0734 00 4 00000  5397         PAX     0,4
 11504   0500 00 4 00000  5398         CLA     0,4
 11505   0621 00 0 11377  5399         STA     EVQFT              SAVE ADDRESS
 11506  -0754 00 0 00000  5400         PXD     0,0                ZERO
 11507   0131 00 0 00000  5401         XCA                        THE MQ AND PUT LIST IN AC
 11510   0520 00 0 11515  5402         ZET     EVQST              SKIP IF FSUBR
 11511   0074 00 4 10072  5403         TSX     SPREAD,4           SPREAD THE ARGUMENTS
 11512   0020 00 0 11376  5404         TRA     EVQD               EXECUTE THE SUBR OR FSUBR
                          5405  *
 11513   0 00000 0 00000  5406   EVQAC                            TEMPORARY STORAGE
 11514   0 00000 0 00000  5407   EVQMQ                            DITTO
 11515   0 00000 0 00000  5408   EVQST                            TEST CELL IS NON-ZERO FOR SUBR OR EXPR
 11516   0 00000 0 00000  5409  EVQRTS                            TEST CELL IS ZERO DURING READ IN
                   00144  5410   EVQBL EQU     100                LENGTH OF BUFFER
 11517   0 06772 0 00000  5411   EVQSP         ,,$STOP            STOP ATOM                             PAGE 112
 11520   002565214350     5412   EVQBM BCI     7,0EVALQUOTE OPERATOR AS OF 1 MARCH 1961.
 11527   603145476463     5413         BCI     5, INPUT LISTS NOW BEING READ.
 11534   002545246046     5414   EVQAM BCI     5,0END OF EVALQUOTE, VALUE IS ....
 11541   012545246046     5415   EVQME BCI     5,1END OF EVALQUOTE OPERATOR
 11546   005125212431     5416   EVQRE BCI     9,0READING TERMIANTED BY AN ERROR. LAST LIST READ IN IS
 11557   603333333333     5417         BCI     1, .....
                          5418  *
                          5419         HEAD H
                          5420  *      ERRORSET(E,N,SW)
                          5421  *
                          5422  *      ERRORSET ATTEMPTS TO EVALUATE ITS FIRST ARGUMENT.  IF AN
                          5423  *      ERROR OCCURS DURING THE EVALUATION, OR IF MORE THAN N CONS-S
                          5424  *      OCCUR DURING THE EVALUATION, ERRORSET RETURNS WITH A VALUE OF F
                          5425  *      AFTER RESTORING CONDITIONS TO WHAT THEY WERE BEFORE THE
                          5426  *      ATTEMPTED EVALUATION.  IF THE EVLAUATION SUCCEEDS, ERRORSET
                          5427  *      RETURNS LIST OF THE RESULT.  IF SW * F, ERROR DIAGNOSTICS ARE
                          5428  *      SUPPRESSED, AND IF SW = T, THEY ARE INCLUDED.
                          5429  *
 11560  -0634 00 4 11662  5430  ERRSET SXD     HORN,4
 11561   0074 00 4 02312  5431         TSX     $SAVE,4
 11562  -3 11673 0 02363  5432         TXL     $END8,,HORN+9
 11563  -0634 00 2 11663  5433         SXD     HORN+1,2
 11564   0634 00 1 11663  5434         SXA     HORN+1,1
 11565   0604 00 0 11666  5435         STI     HORN+4
 11566  -0734 00 1 00000  5436         PDX     0,1                EXPRESSION TO BE EVALUATED
 11567  -0534 00 4 03321  5437         LXD     $ARG3,4            ERROR BYPASS SWITCH
 11570   0634 00 4 11664  5438         SXA     ERNULL,4
 11571   0131 00 0 00000  5439         XCA                                                              PAGE 113
 11572  -0734 00 2 00000  5440         PDX     0,2                GET CONS COUNTER LIMIT
 11573   0074 00 4 13075  5441         TSX     FIXVAL,4
 11574   0601 00 0 11670  5442         STO     HORN+6
 11575   0500 00 0 03742  5443         CLA     $CNTR1             GET CURRENT CONS COUNT
 11576  -0320 00 0 00457  5444         ANA     $AMASK
 11577   0400 00 0 04106  5445         ADD     $CNTS
 11600   0402 00 0 11670  5446         SUB     HORN+6             COMPARE WITH THE LIMIT
 11601  -0120 00 0 11611  5447         TMI     OBOE               TRA IF COUNTER NEED NOT BE CHANGED
 11602  -0760 00 0 00003  5448         SSM                        NEG. NUMBER FOR GARBAGE COLLECTOR
 11603   0601 00 0 11667  5449         STO     HORN+5             SAVE (LIMIT - OLD COUNT)
 11604   0500 00 0 11670  5450         CLA     HORN+6             SET CONS COUNTER TO LIMIT
 11605   0621 00 0 03742  5451         STA     $CNTR1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0104


 11606  -0320 00 0 00465  5452         ANA     PDTMSK
 11607   0601 00 0 04106  5453         STO     $CNTS
 11610   0020 00 0 11612  5454         TRA     *+2
 11611   0600 00 0 11667  5455   OBOE  STZ     HORN+5             TAKE LIMIT = OLD COUNT
 11612   0560 00 0 00370  5456         LDQ     $ZERO              NULL P-LIST FOR EVALUATION
 11613   0502 00 0 02317  5457         CLS     $CPPI              SAVE PUSHDOWN  POINTER
 11614   0601 00 0 11670  5458         STO     HORN+6
 11615  -0625 00 0 11671  5459         STL     TCOUNT             TURN ON CONS COUNTER
 11616   0774 00 4 11625  5460         AXT     BSOON,4            SET UP EXIT IN ERROR
 11617   0634 00 4 11665  5461         SXA     EREXIT,4
                          5462  *      ATTEMPT TO PERFORM THE EVALUATION
 11620  -0754 00 1 00000  5463         PXD     0,1                EXPRESSION TO BE EVALUATED
 11621   0074 00 4 15454  5464         TSX     $EVAL,4
                          5465  *      WE GET HERE IF THE EVALUATION WORKED
 11622   0560 00 0 00370  5466         LDQ     $ZERO              FORM LIST OF THE RESULT
 11623   0074 00 4 03730  5467         TSX     $CONS,4
                          5468  *      AN ERROR IN THIS CONS ACTS LIKE AN ERROR IN THE EVALUATION
 11624   0020 00 0 11643  5469         TRA     SHAWM              RESTORE PARAMETERS AND EXIT
                          5470  *      WE GET HERE IN CASE OF ERROR
 11625  -0535 00 4 11670  5471   BSOON LDC     HORN+6,4           UNSAVE ALL RECURSIVE FUNCTIONS
 11626  -0634 00 4 11641  5472         SXD     TUBA,4              ENTERED SINCE THE ERROR
 11627   0020 00 0 11640  5473         TRA     TUBA-1
 11630  -0534 00 4 02317  5474  HARP   LXD     $CPPI,4
 11631  -0500 00 4 77777  5475         CAL     -1,4
 11632  -0320 00 0 00461  5476         ANA     $PMASK             TEST FOR STR FROM COMPILER
 11633   0322 00 0 00451  5477         ERA     $QP5
 11634   0100 00 0 11637  5478         TZE     *+3
 11635   0074 00 4 02326  5479         TSX     UNSAVE,4
 11636   0020 00 0 11640  5480         TRA     *+2
 11637   0074 00 4 17330  5481         TSX     C$UNWND,4
 11640  -0535 00 4 02317  5482         LDC     $CPPI,4
 11641   3 00000 4 11630  5483  TUBA   TXH     HARP,4,**
 11642  -0754 00 0 00000  5484         PXD     0,0                RETURN VALUE OF NIL
                          5485  *      RESTORE PARAMETERS FOR EITHER KIND OF EXIT
 11643   0601 00 0 11670  5486   SHAWM STO     HORN+6             SAVE EXIT VALUE
 11644   0500 00 0 03742  5487         CLA     $CNTR1             RESTORE CONS COUNTER
 11645  -0320 00 0 00457  5488         ANA     $AMASK
 11646   0400 00 0 04106  5489         ADD     $CNTS
 11647   0402 00 0 11667  5490         SUB     HORN+5
 11650   0621 00 0 03742  5491         STA     $CNTR1
 11651  -0320 00 0 00465  5492         ANA     PDTMSK
 11652   0601 00 0 04106  5493         STO     $CNTS                                                    PAGE 114
 11653   0534 00 1 11663  5494         LXA     HORN+1,1           RESTORE INDICATORS, IR1, AND IR2
 11654  -0534 00 2 11663  5495         LXD     HORN+1,2
 11655   0441 00 0 11666  5496         LDI     HORN+4
 11656   0500 00 0 11670  5497         CLA     HORN+6             PICK UP EXIT VALUE
 11657   0074 00 4 02326  5498         TSX     UNSAVE,4           RESTORE HORN BLOCK
 11660  -0534 00 4 11662  5499         LXD     HORN,4             RESTORE IR4 AND EXIT
 11661   0020 00 4 00001  5500         TRA     1,4
                          5501  *      PROTECTED TEMPORARY STORAGE FOR ERRORSET
                          5502         HEAD    H
 11662  -0 00000 0 10211  5503   HORN  MZE     ERSETO             (+0) ERRORSET OBJECT IN A, IR4 IN D
 11663  -0 00000 0 00000  5504         MZE                        (+1) IR1 IN A, IR2 IN D
 11664  -0 00000 0 11664  5505  ERNULL MZE     *                  (+2) ZERO MEANS SKIP DIAGNOSTICS
 11665  -3 00000 0 11423  5506  EREXIT TXL     EVQERR             (+3) EXIT INSTRUCTION FOR $ERROR
 11666  -0 00000 0 00000  5507         MZE                        (+4) INDICATORS
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0105


 11667  -0 00000 0 00000  5508         MZE                        (+5) CONS COUNTER INCREMENT
 11670  -0 00000 0 00000  5509  NUBPDL MZE                        (+6) PDL BACKUP POINT IN D
 11671  -0 00000 0 00000  5510  TCOUNT MZE                        (+7) NON-ZERO ACTIVATES CONS COUNTER
                          5511         HEAD    0
                   11665  5512   TERA2 SYN     EREXIT
                          5513  *
                          5514         HEAD    H
                          5515  *
                          5516  *              EXTENDED CAR S AND CDR S FOR THE INTERPRETER
                          5517  *
 11672   0634 00 4 11703  5518  CAAARX SXA     CAX,4              SAVE LINK IR
 11673  -0734 00 4 00000  5519         PDX     0,4
 11674   0500 00 4 00000  5520         CLA     0,4
 11675   0734 00 4 00000  5521         PAX     0,4
 11676   0500 00 4 00000  5522   AA    CLA     0,4
 11677   0734 00 4 00000  5523         PAX     0,4
 11700   0500 00 4 00000  5524   A     CLA     0,4
 11701   0734 00 4 00000  5525         PAX     0,4
 11702  -0754 00 4 00000  5526         PXD     0,4
 11703   0774 00 4 00000  5527   CAX   AXT     **,4               RESTORE LINK IR
 11704   0020 00 4 00001  5528         TRA     1,4                EXIT
                          5529  *
 11705   0634 00 4 11703  5530  CAADRX SXA     CAX,4
 11706  -0734 00 4 00000  5531         PDX     0,4
 11707   0500 00 4 00000  5532         CLA     0,4
 11710  -0734 00 4 00000  5533   AAX   PDX     0,4
 11711   0020 00 0 11676  5534         TRA     AA
                          5535  *
 11712   0634 00 4 11703  5536  CADARX SXA     CAX,4
 11713  -0734 00 4 00000  5537         PDX     0,4
 11714   0500 00 4 00000  5538         CLA     0,4
 11715   0734 00 4 00000  5539         PAX     0,4
 11716   0500 00 4 00000  5540   AD    CLA     0,4
 11717  -0734 00 4 00000  5541         PDX     0,4
 11720   0020 00 0 11700  5542         TRA     A
 11721   0634 00 4 11703  5543  CADDRX SXA     CAX,4
 11722  -0734 00 4 00000  5544         PDX     0,4
 11723   0500 00 4 00000  5545         CLA     0,4
 11724  -0734 00 4 00000  5546   ADX   PDX     0,4
 11725   0020 00 0 11716  5547         TRA     AD                                                       PAGE 115
                          5548  *
 11726   0634 00 4 11703  5549  CAARXX SXA     CAX,4
 11727   0020 00 0 11710  5550         TRA     AAX
                          5551  *
 11730   0634 00 4 11703  5552  CADRXX SXA     CAX,4
 11731   0020 00 0 11724  5553         TRA     ADX
                          5554  *
 11732   0634 00 4 11742  5555  CDAARX SXA     CDX,4
 11733  -0734 00 4 00000  5556         PDX     0,4
 11734   0500 00 4 00000  5557         CLA     0,4
 11735   0734 00 4 00000  5558         PAX     0,4
 11736   0500 00 4 00000  5559   DA    CLA     0,4
 11737   0734 00 4 00000  5560         PAX     0,4
 11740   0500 00 4 00000  5561   D     CLA     0,4
 11741  -0320 00 0 00460  5562         ANA     $DMASK
 11742   0774 00 4 00000  5563   CDX   AXT     **,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0106


 11743   0020 00 4 00001  5564         TRA     1,4
 11744   0634 00 4 11742  5565  CDADRX SXA     CDX,4
 11745  -0734 00 4 00000  5566         PDX     0,4
 11746   0500 00 4 00000  5567         CLA     0,4
 11747  -0734 00 4 00000  5568   DAX   PDX     0,4
 11750   0020 00 0 11736  5569         TRA     DA
                          5570  *
 11751   0634 00 4 11742  5571  CDDARX SXA     CDX,4
 11752  -0734 00 4 00000  5572         PDX     0,4
 11753   0500 00 4 00000  5573         CLA     0,4
 11754   0734 00 4 00000  5574         PAX     0,4
 11755   0500 00 4 00000  5575   DD    CLA     0,4
 11756  -0734 00 4 00000  5576         PDX     0,4
 11757   0020 00 0 11740  5577         TRA     D
                          5578  *
 11760   0634 00 4 11742  5579  CDDDRX SXA     CDX,4
 11761  -0734 00 4 00000  5580         PDX     0,4
 11762   0500 00 4 00000  5581         CLA     0,4
 11763  -0734 00 4 00000  5582   DDX   PDX     0,4
 11764   0020 00 0 11755  5583         TRA     DD
                          5584  *
 11765   0634 00 4 11742  5585  CDARXX SXA     CDX,4
 11766   0020 00 0 11747  5586         TRA     DAX
                          5587  *
 11767   0634 00 4 11742  5588  CDDRXX SXA     CDX,4
 11770   0020 00 0 11763  5589         TRA     DDX
                          5590  *
                          5591         HEAD    C
 11771   0634 00 4 12003  5592   GET   SXA     GETX,4             SAVE LINK IR
 11772   0601 00 0 12006  5593         STO     GETL
 11773   0500 00 0 12005  5594         CLA FCN31
 11774   0601 00 0 03321  5595         STO $ARG3
 11775   0500 00 0 12006  5596         CLA GETL
 11776   0074 00 4 10011  5597         TSX $PROP,4
 11777  -0734 00 4 00000  5598         PDX 0,4
 12000   0500 00 4 00000  5599         CLA 0,4
 12001   0734 00 4 00000  5600         PAX 0,4
 12002  -0754 00 4 00000  5601         PXD 0,4                                                          PAGE 116
 12003   0774 00 4 00000  5602   GETX  AXT     **,4               RESTORE  LINK IR
 12004   0020 00 4 00001  5603         TRA 1,4
 12005  -3 00000 0 12003  5604   FCN31 TXL     GETX,,0
 12006   0 00000 0 00000  5605   GETL
                          5606  *
                          5607  * COMPAT       FUNCTIONAL ARGUMENT LINKAGE PROGRAM BETWEEN COMPILED
                          5608  *              PROGRAMS AND APPLY FOR S-EXPRESSION FUNCTIONAL ARGUMENTS
                          5609  *
 12007   0634 00 4 12026  5610  COMPAT SXA     CX,4               SAVE INDEX REGISTERS
 12010   0634 00 2 12027  5611         SXA     CY,2
 12011   0601 00 0 03317  5612         STO     $ARG1              SAVE AC
 12012  -0600 00 0 03320  5613         STQ     $ARG2              DITTO MQ
 12013   0560 00 0 00370  5614         LDQ     $ZERO              END OF ARGUMENT LIST
 12014   0500 00 4 00001  5615         CLA     1,4                ARGUMENTS FOR COMPAT
 12015   0622 00 0 12031  5616         STD     CA                 S-EXPRESSION FUNCTIONAL ARGUMENT
 12016   0737 00 2 00000  5617         PAC     0,2                COMPLEMENT NUMBER OF ARGUMENTS
 12017  -3 00000 2 12024  5618   CL    TXL     CD,2,0             GO WHEN ALL DONE
 12020   0500 00 2 03316  5619         CLA     $ARG1-1,2          PICK UP ARGUMENT
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0107


 12021   0074 00 4 03730  5620         TSX     $CONS,4            CONS ON TO ARGUMENT LIST
 12022   0131 00 0 00000  5621         XCA                        LIST TO MQ
 12023   1 00001 2 12017  5622         TXI     CL,2,1             GO BACK FOR NEXT
 12024   0500 00 0 12031  5623   CD    CLA     CA                 FUNCTIONAL ARGUMENT
 12025   0600 00 0 03321  5624         STZ     $ARG3              ZERO PAIR LIST
 12026   0774 00 4 00000  5625   CX    AXT     **,4               RESTORE INDEX REGISTERS
 12027   0774 00 2 00000  5626   CY    AXT     **,2
 12030   1 77777 4 14663  5627         TXI     $APPLY,4,-1        GO TO APPLY AND ADJUST EXIT INDEX
 12031   0 00000 0 00000  5628   CA                               S-EXPRESSION GOES HERE
                          5629         HEAD F
                          5630  *      PACK(CHAR)
                          5631  *
                          5632  *      PACK ADDS ANOTHER CHARACTER TO THE CHARACTER BUFFER BOFFO
                          5633  *
                          5634  *
 12032   0771 00 0 00022  5635   PACK  ARS     18                 GET CHARACTER CODE FROM
 12033   0402 00 0 00521  5636         SUB     HORG                 LOCATION OF OBJECT
 12034  -0765 00 0 00006  5637         LGR     6                  PUT NEW CHARACTER INTO PACKED WORD
 12035  -0500 00 0 12603  5638         CAL     CHARS
 12036   0140 00 0 12037  5639         TOV     *+1                SHUT OFF OVERFLOW LIGHT
 12037  -0763 00 0 00006  5640         LGL     6
 12040   0140 00 0 12044  5641         TOV     B5                 IF WORD FULL, PUT IT IN BUFFER
 12041   0602 00 0 12603  5642         SLW     CHARS
 12042  -0754 00 0 00000  5643         PXD     ,0                 CLEAR AC FOR EXIT
 12043   0020 00 4 00001  5644         TRA     1,4                EXIT
 12044   0634 00 4 12053  5645   B5    SXA     B1,4               SAVE IR4
 12045   0774 00 4 00024  5646   BFLOC AXT     20,4               ADDRESS HAS INDEX FOR BOFFO
 12046   0602 00 4 12631  5647         SLW     BOFFO,4            STORE FULL WORD OF CHARACTERS
 12047  -2 00001 4 12056  5648         TNX     B3,4,1             IF BUFFER FULL, TRANSFER
 12050   0500 00 0 12417  5649         CLA     A1                 WHEN 1 SHIFTS PAST P BIT,
 12051   0601 00 0 12603  5650         STO     CHARS                NEW WORD HAS 6 CHARACTERS
 12052   0634 00 4 12045  5651         SXA     BFLOC,4            SAVE BUFFER INDEX
 12053   0774 00 4 00000  5652   B1    AXT     ,4                 RESTORE IR4
 12054  -0754 00 0 00000  5653         PXD     ,0                 CLEAR AC FOR EXIT
 12055   0020 00 4 00001  5654         TRA     1,4                EXIT
 12056  -3 00000 4 12061  5655   B3    TXL     B4,4,0             IF MORE THAN 120 CHARS, TRANSFER      PAGE 117
 12057   0634 00 0 12045  5656         SXA     BFLOC,0            SET INDEX TO SHOW BUFFER FILLED
 12060   0020 00 0 12066  5657         TRA     B6
 12061   0074 00 4 12147  5658   B4    TSX     $MKNAM,4           FORM OBJECT FOR ERROR PRINTOUT
 12062   0074 00 4 06420  5659         TSX     INTRN1,4
 12063  -0634 00 4 01562  5660         SXD     $ERROR,4
 12064   0074 00 4 01563  5661         TSX     $ERROR+1,4
 12065   542330600154     5662         BCI     1,*CH 1*           TOO MANY CHARACTERS IN PRINT NAME
 12066   0500 00 0 00471  5663   B6    CLA     SEVENS             BIT 1 IN CHARS WILL MAKE
 12067   0601 00 0 12603  5664         STO     CHARS                WORD LOOK FULL
 12070   0020 00 0 12053  5665         TRA     B1
                          5666  *      PACK USES $ERROR, $EROR1, AND $Q1





                          5667         SPACE   5
                          5668  *      NUMOB
                          5669  *
                          5670  *      NUMOB MAKES A NUMERICAL OBJECT CORRESPONDING TO THE BCD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0108


                          5671  *      CHARACTERS IN THE BUFFER BOFFO.
                          5672  *
                          5673  *      THIS ROUTINE HAS CORSS-REFERENCES TO THE INNARDS OF NUMBR
                          5674  *
 12071   0634 00 4 12134  5675   NUMOB SXA     GV1,4              SAVE IR4
 12072   0140 00 0 12073  5676         TOV     *+1                SHUT OFF OVERFLOW LIGHT
 12073  -0500 00 0 12603  5677         CAL     CHARS              SHIFT SEVENS INTO LAST PACKED WORD
 12074   0560 00 0 00471  5678         LDQ     SEVENS
 12075  -0763 00 0 00006  5679         LGL     6
 12076  -0140 00 0 12075  5680         TNO     *-1                DONE WHEN 1 PASSES THROUGH P BIT
 12077   0534 00 4 12045  5681         LXA     BFLOC,4            PUT LAST WORD INTO BOFFO
 12100   0602 00 4 12631  5682         SLW     BOFFO,4
 12101   0500 00 0 12573  5683         CLA     PARAM              INPUT PARAMETER FOR NUMBR IS
 12102   0074 00 4 06622  5684         TSX     NUMBR,4              BEGINNING OF BOFFO
 12103   0100 00 0 12136  5685         TZE     GV3                ERROR IF ZERO IN AC
 12104   0120 00 0 12112  5686         TPL     GV2                TRANSFER IF FIXED POINT OUTPUT
 12105   0131 00 0 00000  5687         XCA                        GET NUMBER FROM MQ
 12106   0560 00 0 00476  5688         LDQ     FLOS               FLOATING POINT SIGNAL
 12107   0074 00 4 12636  5689         TSX     $MKNO,4            FORM OBJECT
 12110   0534 00 4 12134  5690         LXA     GV1,4              RESTORE IR4
 12111   0020 00 0 12201  5691         TRA     CLEAR              RESET BOFFO AND EXIT
 12112  -0760 00 0 00001  5692   GV2   PBT                        OCTAL SIGNAL IN NUMBR OUTPUT
 12113   0020 00 0 12121  5693         TRA     GV6                TRA IF NOT OCTAL
 12114   0131 00 0 00000  5694         XCA
 12115   0560 00 0 00503  5695         LDQ     $OCTD              MAKE OCTAL NUMBER
 12116   0074 00 4 12636  5696         TSX     $MKNO,4
 12117   0534 00 4 12134  5697         LXA     GV1,4
 12120   0020 00 0 12201  5698         TRA     CLEAR              RESET BOFFO AND EXIT
 12121   0131 00 0 00000  5699   GV6   XCA                        BRING THE NUMBER TO THE AC
 12122  -0120 00 0 12132  5700         TMI     GV4                TEST FOR DIGITS 0 THRU 9
 12123   0340 00 0 00000  5701         CAS     $Q10
 12124   0020 00 0 12132  5702         TRA     GV4
 12125   0020 00 0 12132  5703         TRA     GV4
 12126   0361 00 0 00521  5704         ACL     HORG               FORM OBJECT DIRECTLY                  PAGE 118
 12127   0767 00 0 00022  5705         ALS     18
 12130   0534 00 4 12134  5706         LXA     GV1,4              RESTORE IR4
 12131   0020 00 0 12201  5707         TRA     CLEAR
 12132   0560 00 0 00475  5708   GV4   LDQ     FIXS               FIXED POINT SIGNAL FOR $MKNO
 12133   0074 00 4 12636  5709         TSX     $MKNO,4            FORM NUMERICAL OBJECT
 12134   0774 00 4 00000  5710   GV1   AXT     ,4                 RESTORE IR4
 12135   0020 00 0 12201  5711         TRA     CLEAR              RESET BOFFO AND EXIT
 12136   0074 00 4 01222  5712   GV3   TSX     OUTPUT,4
 12137   0 00000 0 00364  5713                 BCDOUT
 12140   0 00004 0 12143  5714                 GVA,,4
                          5715  *      BCI     1,*CH 2*           FLOATING POINT NUMBER OUT OF RANGE
 12141  -0754 00 0 00000  5716         PXD     0,0
 12142   0020 00 0 12134  5717         TRA     GV1
 12143   602551514651     5718   GVA   BCI     4, ERROR NUMBER *CH 2*
                          5719  *
                          5720  *      THIS ROUTINE USES $CONS, $MKNO,$ZERO,$ERROR, AD $EROR1





                          5721         SPACE   5
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0109


                          5722  *      MKNAM AND CLEARBUFF
                          5723  *
                          5724  *
                          5725  *      CLEARBUFF STARTS AT CLEAR AND RESETS THE BUFFER BOFFO TO
                          5726  *      THE BEGINNING
                          5727  *
                          5728  *      MKNAM() HAS AS OUTPUT A PNAME LIST STRUCTURE CORRESPONDING
                          5729  *      TO THE CHARACTERS IN THE BUFFER BOFFO.  THE BEGINNING OF
                          5730  *      BOFFO IS RESET.
                          5731  *
                          5732  *      THIS ROUTINE HAS CROSS-REFERENCES TO THE INNARDS OF PACK.
                          5733  *
 12147   0634 00 4 12207  5734   MKNAM SXA     BB1,4              SAVE IR4
 12150   0634 00 2 12177  5735         SXA     BBIR2,2            SAVE IR2
 12151  -0500 00 0 12603  5736         CAL     CHARS              IF C(CHARS) = 1, CHARS CONTAINS
 12152  -0340 00 0 12417  5737         LAS     A1                   NO SIGNIFICANT CHARACTERS
 12153   0020 00 0 12156  5738         TRA     BB5
 12154  -0754 00 0 00000  5739         PXD     ,0
 12155   0020 00 0 12167  5740         TRA     BB2                  NO SIGNIFICANT CHARACTERS IN CHARS
 12156   0140 00 0 12157  5741   BB5   TOV     *+1                SHUT OFF OVERFLOW LIGHT
 12157   0560 00 0 00471  5742         LDQ     SEVNS              SHIFT SEVENS INTO LAST WORD
 12160  -0763 00 0 00006  5743         LGL     6                    OF LIST
 12161  -0140 00 0 12160  5744         TNO     *-1
 12162   0602 00 0 12574  5745         SLW     T1                 PUT P BIT INTO SIGN
 12163   0500 00 0 12574  5746         CLA     T1
 12164   0074 00 4 03710  5747         TSX     $CONSW,4           FORM POINTER TO LAST WORD OF LIST
 12165   0560 00 0 00000  5748         LDQ     ZERO
 12166   0074 00 4 03730  5749         TSX     $CONS,4
 12167   0534 00 2 12045  5750   BB2   LXA     BFLOC,2            LOC OF LAST SIGNIFICAN BUFFER WORD    PAGE 119
 12170   3 00023 2 12177  5751   BB4   TXH     BBIR2,2,19         TRA IF BUFFER IS EXHAUSTED
 12171   0602 00 0 03654  5752         SLW     BBPNT              SAVE DECREMENT FOR FUTURE USE
 12172   0500 00 2 12630  5753         CLA     BOFFO-1,2          GET NEXT WORD OF BUFFER
 12173   0074 00 4 03710  5754         TSX     $CONSW,4
 12174   0560 00 0 03654  5755         LDQ     BBPNT
 12175   0074 00 4 03730  5756         TSX     $CONS,4
 12176   1 00001 2 12170  5757         TXI     BB4,2,1            MOVE TO NEXT WORD OF BUFFER
 12177   0774 00 2 00000  5758   BBIR2 AXT     **,2               RESTORE IR2
 12200   0020 00 0 12202  5759         TRA     BB3                RESET POSITION IN BOFFO
 12201   0634 00 4 12207  5760   CLEAR SXA     BB1,4              ENTRANCE FOR CLEARING BUFFER
 12202   0560 00 0 12417  5761   BB3   LDQ     A1                 RESET CHARS CELL TO 0 CHARACTERS
 12203   0601 00 0 12603  5762         STO     CHARS
 12204   0774 00 4 00024  5763         AXT     20,4               SET INDEX IN PACK FOR FIRST
 12205   0634 00 4 12045  5764         SXA     BFLOC,4              BUFFER WORD
 12206   0600 00 0 03654  5765         STZ     BBPNT              AVOID UNNECESSARY GARBAGE COLL.
 12207   0774 00 4 00000  5766   BB1   AXT     ,4                 RESTORE IR4
 12210   0020 00 4 00001  5767         TRA     1,4                EXIT





                          5768         SPACE   5
                          5769  *      ADVANCE, STARTREAD, AND ENDREAD PROGRAMS
                          5770  *
                          5771  *      ADVANCE SETS CURCHAR TO THE NEXT CHARACTER
                          5772  *      STARTREAD READS A NEW RECORD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0110


                          5773  *      ENDREAD MOVES TO THE END OF THE CURRENT RECORD AND
                          5774  *        GIVES ERROR OUTPUT, IF ANNY
                          5775
 12211  -0634 00 4 12220  5776  ADVANC SXD PORK,4                 SAVE IR
 12212  -0534 00 4 12236  5777         LXD CHPOS,4                FIND NO. OF CHARS. LEFT IN PACKED
 12213   2 00006 4 12247  5778         TIX CHOPS,4,6                WORD
 12214  -0534 00 4 12237  5779         LXD WDNUM,4                FIND NEW PACKED WORD
 12215   2 00001 4 12243  5780         TIX LAMB,4,1               IF NEW RECORD NEEDED, CONTINUE
 12216  -0520 00 0 12604  5781         NZT EORTS                  IF NONZERO GIVE EOR AS OUTPUT CHAR-
 12217   0020 00 0 12223  5782         TRA VEAL                     ACTER, OTHERWISE READ NEW RECORD
 12220   1 00000 0 12276  5783  PORK   TXI STEW,,0                READ A NEW RECORD
 12221  -0634 00 4 12220  5784  STREAD SXD PORK,4                 SAVE IR4
 12222   0020 00 0 12225  5785         TRA *+3
 12223  -0520 00 0 12517  5786   VEAL  NZT ERSIG
 12224   0020 00 0 12233  5787         TRA JOYCE
 12225   0600 00 0 12517  5788         STZ ERSIG                  TURN OFF ERROR SIGNAL
 12226   0774 00 4 00014  5789         AXT 12,4                   PUT BLANKS IN ERROR BUFFER
 12227  -0500 00 0 00472  5790         CAL BLANKS
 12230   0602 00 4 12572  5791   RUTH  SLW ERBFL,4
 12231   0602 00 4 12535  5792         SLW ERBFU,4
 12232   2 00001 4 12230  5793         TIX RUTH,4,1
 12233   0074 00 4 00663  5794   JOYCE TSX $INPUT,4               READ A NEW RECORD
 12234   0 00000 0 00000  5795             $BCDIN
 12235   0 00016 0 12536  5796             BUFF-12,,14
 12236   1 00000 0 12316  5797  CHPOS  TXI RIBS,,0                ERROR RETURN
 12237   1 00000 0 12271  5798  WDNUM  TXI RUMP,,0                EOF RETURN
 12240  -0625 00 0 12604  5799         STL EORTS                  SET SIGNAL FOR EOR OUTPUT NEXT TIME   PAGE 120
 12241   0600 00 0 12635  5800         STZ $CHACT                 INITIALIZE CHARACTER COUNT
 12242   0774 00 4 00014  5801         AXT 12,4                   SET INDEX FOR START OF INPUT BUFFER
 12243  -0634 00 4 12237  5802  LAMB   SXD WDNUM,4
 12244   0500 00 4 12552  5803         CLA BUFF,4                 PICK UP NEW PACKED WORD FROM
 12245   0601 00 0 12572  5804         STO PWORD                    INPUT BUFFER AND STORE IT
 12246   0774 00 4 00044  5805         AXT 36,4                   INITIALIZE POSITION IN PACKED WORD
 12247  -0634 00 4 12236  5806  CHOPS  SXD CHPOS,4
 12250  -0754 00 0 00000  5807         PXD ,0                     PICK OFF ONE CHARACTER
 12251   0560 00 0 12572  5808         LDQ PWORD
 12252  -0763 00 0 00006  5809  A6     LGL 6
 12253  -0600 00 0 12572  5810         STQ PWORD                  SAVE SHIFTED PACKED WORD
 12254   0734 00 4 00000  5811         PAX 0,4
 12255   3 00014 4 12260  5812         TXH SHANK,4,12             CHECK FOR 8-4 MINUS
 12256  -3 00013 4 12260  5813         TXL SHANK,4,11
 12257   0774 00 4 00040  5814         AXT 32,4                   CHANGE 8-4 MINUS TO 11 MINUS
 12260   1 06127 4 12261  5815   SHANK TXI *+1,4,$H00             POINTER TO NEW CHARACTER OBJECT
 12261   0500 00 0 12635  5816   BACON CLA $CHACT                 BUMP CHARACTER COUNT
 12262   0400 00 0 00371  5817         ADD $Q1
 12263   0601 00 0 12635  5818         STO $CHACT
 12264  -0754 00 4 00000  5819         PXD ,4                     SET CURCHAR TO NEW CHARACTER
 12265   0602 00 0 12634  5820         SLW $CURC                  POINTER IN DECREMENT FOR BIN
 12266   0634 00 4 12633  5821         SXA $CURC1,4               POINTER IN ADDRESS FOR APVAL1
 12267  -0534 00 4 12220  5822         LXD PORK,4                 RESTORE IR4
 12270   0020 00 4 00001  5823         TRA 1,4                    RETURN
 12271   0534 00 4 00522  5824  RUMP   LXA EOF,4                  END OF FILE CHARACTER
 12272   0020 00 0 12314  5825         TRA JEAN
 12273  -0634 00 4 12220  5826  ENDRED SXD PORK,4                 SAVE IR4 FOR EXIT (ENDREAD ENTRANCE)
 12274  -0634 00 0 12236  5827         SXD CHPOS,0                SET CHARACTER POSITION AND WORD
 12275  -0634 00 0 12237  5828         SXD WDNUM,0                NUMBER AT END OF RECORD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0111


 12276  -0520 00 0 12517  5829  STEW   NZT ERSIG                  TEST IF ERROR PRINTOUT NEEDED
 12277   0020 00 0 12313  5830         TRA SUZIE
 12300   0074 00 4 05214  5831         TSX TERPRI,4               PRINT BLANK LINE
 12301   0074 00 4 01222  5832         TSX OUTPUT,4               PRINT UPPER ERROR  BUFFER
 12302   0 00000 0 00364  5833             BCDOUT
 12303   0 00015 0 12520  5834             ERBFU-13,,13
 12304   0074 00 4 01222  5835         TSX OUTPUT,4               PRINT BAD LINE
 12305   0 00000 0 00364  5836             BCDOUT
 12306   0 00015 0 12535  5837             BUFF-13,,13
 12307   0074 00 4 01222  5838         TSX OUTPUT,4               PRINT LOWER ERROR BUFFER
 12310   0 00000 0 00364  5839             BCDOUT
 12311   0 00015 0 12555  5840             ERBFL-13,,13
 12312   0074 00 4 05214  5841         TSX TERPRI,4               PRINT BLANK LINE
 12313   0534 00 4 00523  5842   SUZIE LXA EOR,4                  LOAD END OF RECORD CHARACTER
 12314   0600 00 0 12604  5843  JEAN   STZ EORTS
 12315   0020 00 0 12261  5844         TRA BACON
 12316  -0634 00 4 01562  5845   RIBS  SXD $ERROR,4
 12317   0074 00 4 01563  5846         TSX $ERROR+1,4
 12320   542330600354     5847         BCI 1,*CH 3*
                          5848  *      TAPE READING ERROR -ADVANCE, STARTREAD-
                   00471  5849   SEVNS SYN     SEVENS




                          5850         SPACE   4                                                        PAGE 121
                          5851             ALPHABETIC FUNCTIONS
                          5852
                          5853             LITER(CHAR)
 12321  -0634 00 4 12336  5854  LITER  SXD AL1,4
 12322  -0737 00 4 00000  5855         PDC 0,4
 12323   0500 00 0 12440  5856         CLA A2
 12324   0402 00 4 04270  5857  AL3    SUB CHTYP-$H00,4           COMAPRE WITH TABLE ENTRY
 12325  -0534 00 4 12336  5858         LXD AL1,4
 12326  -0100 00 0 12331  5859         TNZ AL6
 12327   0500 00 0 00442  5860         CLA $QD1                   EXIT WITH T
 12330   0020 00 4 00001  5861         TRA 1,4
 12331  -0754 00 0 00000  5862  AL6    PXD ,0                     EXIT WITH F
 12332   0020 00 4 00001  5863         TRA 1,4
                          5864             OPCHAR(CHAR)
 12333  -0634 00 4 12336  5865  OPCHAR SXD AL1,4
 12334  -0737 00 4 00000  5866         PDC 0,4
 12335   0500 00 0 12437  5867         CLA A3
 12336   1 00000 0 12324  5868   AL1   TXI AL3,,0
                          5869             DIGIT(CHAR)
 12337   0340 00 0 00524  5870  DIGIT  CAS HOL9
 12340   0020 00 0 12344  5871         TRA AL5
 12341   0761 00 0 00000  5872         NOP
 12342   0500 00 0 00442  5873         CLA $QD1
 12343   0020 00 4 00001  5874         TRA 1,4
 12344  -0754 00 0 00000  5875  AL5    PXD ,0
 12345   0020 00 4 00001  5876         TRA 1,4




ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0112



                          5877         SPACE   5
                          5878  *      ERROR1
                          5879  *
                          5880  *      ER1 CREATES A VISUAL POINTER IN ERBFU AND ERBFL
                          5881  *      TO A READING ERROR
                          5882  *
 12346  -0625 00 0 12517  5883   EROR1 STL     ERSIG              TURN ON ERROR SIGNAL
 12347   0634 00 4 12363  5884         SXA     ERIR,4             SAVE IR4
 12350   0500 00 0 00375  5885         CLA     $Q5                V FOR UPPER BUFFER
 12351   0560 00 0 00000  5886         LDQ     OCT41              A FOR LOWER BUFFER
 12352  -0535 00 4 12236  5887         LDC     CHPOS,4            SHIFT BOTH LETTERS INTO POSITION
 12353  -0763 00 4 77772  5888         LGL     -6,4
 12354  -0534 00 4 12237  5889         LXD     WDNUM,4
 12355  -3 00000 4 12362  5890         TXL     ERX,4,0            DO NOTHING IF END OF RECORD
 12356  -0602 00 4 12535  5891         ORS     ERBFU,4            INSERT V INTO UPPER BUFFER
 12357  -0130 00 0 00000  5892         XCL
 12360   0322 00 4 12572  5893         ERA     ERBFL,4            INSERT A INTO LOWER BUFFER
 12361   0602 00 4 12572  5894         SLW     ERBFL,4
 12362  -0754 00 0 00000  5895   ERX   PXD     ,0
 12363   0774 00 4 00000  5896   ERIR  AXT     **,4               RESTORE IR4
 12364   0020 00 4 00001  5897         TRA     1,4                EXIT
                          5898  *      SPACE   5                                                        PAGE 122
                          5899  *      UNPACK(NAME)
                          5900  *
                          5901  *      UNPACK(NAME) GIVES A LIST OF THE CHARACTER OBJECTS
                          5902  *      IN THE CELL -NAME-, UP TO THE FIRST 77.
                          5903  *
 12365   0634 00 4 12414  5904  UNPACK SXA     UPI4,4             SAVE IR2 AND IR4
 12366   0634 00 2 12415  5905         SXA     UPI2,2
 12367  -0734 00 4 00000  5906         PDX     ,4                 PUT ARGUMENT CELL IN MQ
 12370   0560 00 4 00000  5907         LDQ     0,4
 12371   0774 00 2 00006  5908         AXT     6,2
 12372  -0754 00 0 00000  5909   UP2   PXD     ,0                 LOOK AT A CHARACTER
 12373  -0763 00 0 00006  5910         LGL     6
 12374   0340 00 0 00413  5911         CAS     $Q63
 12375   1 00001 2 12401  5912         TXI     UP1,2,1            ADJUST IR2 FOR CHARACTER
 12376   1 00001 2 12401  5913         TXI     UP1,2,1              COUNT
 12377   0601 00 2 12602  5914         STO     T1+6,2             STORE THE CHARACTER
 12400   2 00001 2 12372  5915         TIX     UP2,2,1
                          5916
 12401   0600 00 0 03654  5917   UP1   STZ     UPLST              SET END OF LIST TO NIL
 12402   3 00006 2 12412  5918   UP4   TXH     UP3,2,6            EXIT IF ALL CHARACTERS LISTED
 12403   0500 00 2 12602  5919         CLA     T1+6,2             PICK UP NEXT CHARACTER
 12404   0400 00 0 00521  5920         ADD     HORG                 AND FORN OBJECT
 12405   0767 00 0 00022  5921         ALS     18
 12406   0560 00 0 03654  5922         LDQ     UPLST
 12407   0074 00 4 03730  5923         TSX     $CONS,4            PUT CHAR AT HEAD OF LIST
 12410   0601 00 0 03654  5924         STO     UPLST
 12411   1 00001 2 12402  5925         TXI     UP4,2,1
 12412   0500 00 0 03654  5926   UP3   CLA     UPLST              RETURN WITH LOCATION OF LIST
 12413   0600 00 0 03654  5927         STZ     UPLST              AVOID UNNECESSARY GARBAGE COLL.
 12414   0774 00 4 00000  5928   UPI4  AXT     **,4
 12415   0774 00 2 00000  5929   UPI2  AXT     **,2
 12416   0020 00 4 00001  5930         TRA     1,4                EXIT
                          5931  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0113


                          5932  *      THIS ROUTINE USES $CONS





                          5933         SPACE   5
                          5934             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                          5935
                          5936                     STORAGE
                          5937
                   00521  5938   HORG  SYN     $H00A
                   00522  5939   EOF   SYN     $H12A
                   00523  5940   EOR   SYN     $H72A
                   00524  5941   HOL9  SYN     $H11D
                   00525  5942   HOL14 SYN     $H14D
                   00530  5943   HOL40 SYN     $H40D
                          5944         TITLE
 12417  +000000000001     5945  CHTYP  DEC 1,1,1,1,1,1,1,1        0 = ILLEGAL CHARACTER
 12427  +000000000001     5946         DEC 1,1,4,3,3,0,0,0        1 = DIGIT
 12437  +000000000003     5947         DEC 3,2,2,2,2,2,2,2        2 = LETTER                            PAGE 123
 12447  +000000000002     5948         DEC 2,2,4,4,4,0,0,0        3 = OPERATION CHARACTER
 12457  +000000000003     5949         DEC 3,2,2,2,2,2,2,2        4 = OTHER
 12467  +000000000002     5950         DEC 2,2,4,4,3,0,0,0
 12477  +000000000004     5951         DEC 4,3,2,2,2,2,2,2
 12507  +000000000002     5952         DEC 2,2,4,4,4,0,0,0
                          5953         DETAIL
                   00000  5954   ZERO  SYN $ZERO
                   12417  5955  A1     SYN CHTYP
                   12440  5956  A2     SYN CHTYP+17
                   12437  5957  A3     SYN CHTYP+16
                   00000  5958   OCT41 SYN $Q041
                   00412  5959   A36   SYN $Q36
 12517                    5960   ERSIG BSS 1                      ERROR INDICATOR
 12520   006060606060     5961         BCI     1,0                DOUBLE SPACE UNDER PROGRAMM CONTROL
 12535                    5962   ERBFU BES     12                 UPPER ERROR BUFFER
 12535   606060606060     5963         BCI     1,                 SINGLE SPACE UNDER PROGRAM CONTROL
 12552                    5964   BUFF  BES     12                 BUFFER FOR INPUT RECORD
 12555                    5965         BES     3                  ROOM FOR EXTRA WORDS IN READ-IN
 12555   606060606060     5966         BCI     1,                 SINGLE SPACE UNDER PROGRAM CONTROL
 12572                    5967   ERBFL BES     12                 LOWER ERROR BUFFER
 12572                    5968  PWORD  BSS 1
 12573   0 00001 0 12605  5969   PARAM PZE     BOFFO-20,,1
                   00476  5970   FLOS  SYN     FLOATD
 12574                    5971   T1    BSS     7
                   00475  5972   FIXS  SYN     $FIXD
 12603                    5973   CHARS BSS     1
 12604                    5974   EORTS BSS 1                      NONZERO INDICATES EOR OUTPUT CHAR
 12631                    5975   BOFFO BES     20
 12631                    5976         BSS     1                  JUNK WORD FOR BOFFO REMNANTS
                   03654  5977   UPLST SYN     BBPNT              CUMULATIVE LIST OF CHARACTERS
 12632                    5978         BSS     1
 12633   0 00000 0 00000  5979  CURC1  PZE                        POINTER APPEARS IN ADDRESS
 12634   0 00000 0 00000  5980  CURC   PZE                        POINTER APPEARS IN DECREMENT
 12635   0 00000 0 00000  5981   CHACT PZE                        CHARACTER COUNT
                          5982  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0114


                          5983  *   MKNO   A FUNCTION OF TWO ARGUMENTS, THE FIRST IS A NUMBER, THE SECO
                          5984  *          ND IS A TYPE (FLO OR FIX), MKNO FORMS A NON UNIQUE NUMBER
 12636   0634 00 4 12660  5985   MKNO  SXA     MKIR,4             SAVE LINK IR
 12637  -0600 00 0 03656  5986         STQ     MKT1               TYPE OF NUMBER TO MQ
 12640   0074 00 4 03710  5987         TSX     $CONSW,4
 12641   0131 00 0 00000  5988         XCA
 12642   0500 00 0 00460  5989         CLA     $DMASK
 12643   0074 00 4 03730  5990         TSX     $CONS,4
 12644  -0534 00 4 03656  5991         LXD     MKT1,4             TYPE TO IR 4
 12645   0622 00 0 03656  5992         STD     MKT1
 12646   0500 00 0 00441  5993         CLA     $QT5               ASSUME IT IS OCTAL
 12647  -3 10134 4 12652  5994         TXL     *+3,4,$FIX-1
 12650   3 10135 4 12652  5995         TXH     *+2,4,$FIX
 12651   0500 00 0 00436  5996         CLA     $QT1
 12652  -3 10117 4 12655  5997         TXL     *+3,4,$FLOAT-1
 12653   3 10120 4 12655  5998         TXH     *+2,4,$FLOAT
 12654   0500 00 0 00437  5999         CLA     $QT2
 12655  -0534 00 4 03656  6000         LXD     MKT1,4             LOCATION OF NUMBER
 12656  -0602 00 4 00000  6001         ORS     0,4                PUT IN NUMBER FLAG                    PAGE 124
 12657  -0754 00 4 00000  6002         PXD     0,4                ANSWER TO AC
 12660   0774 00 4 00000  6003   MKIR  AXT     **,4               RESTORE LINK IR
 12661   0020 00 4 00001  6004         TRA     1,4
                          6005  *
                          6006  *
                          6007         HEAD H
                          6008  *      LOGOR, LOGAND, AND LOGXOR
                          6009  *
                          6010  *      THESE FUNCTIONS TAKE THE LOGICAL AND, LOGICAL OR, AND LOGICAL
                          6011  *      EXCLUSIVE OR RESPECTIVELY OF THEIR ARGUMENTS, WHICH ARE NUMBER
                          6012  *      OBJECTS.  THE RESULT IS AN OCTAL NUMBER OBJECT.
                          6013  *
 12662   0100 00 4 00001  6014   LOGOR TZE     1,4                RETURN 0 IF 0 INPUT
 12663  -0634 00 4 12756  6015         SXD     T1,4               SAVE IR4
 12664   0774 00 4 07706  6016         AXT     -$)PJ37,4          LOGOR ATOM
 12665   0634 00 4 12756  6017         SXA     T1,4               SET FUNCTION ON PDL
 12666   0074 00 4 02312  6018         TSX     $SAVE,4
 12667  -3 12760 0 02401  6019         TXL     $END1,,T1+2        SAVE 1 ITEM
 12670   0074 00 4 15774  6020         TSX     $EVLIS,4           EVALUATE LIST OF ARGUMENTS
 12671   0074 00 4 02326  6021         TSX     UNSAVE,4
 12672   0560 00 0 00370  6022         LDQ     $ZERO              OR OF NO ARGUMENTS
 12673  -0600 00 0 12757  6023         STQ     T1+1
 12674   0560 00 0 12747  6024         LDQ     ORS                INSTRUCTION FOR INNER LOOP
 12675   0020 00 0 12725  6025         TRA     LOG2
                          6026  *
 12676   0100 00 4 00001  6027  LOGAND TZE     1,4                EXIT WITH 0 IF 0 INPUT
 12677  -0634 00 4 12756  6028         SXD     T1,4               SAVE IR4
 12700   0774 00 4 07676  6029         AXT     -$)PJ36,4          LOGAND ATOM
 12701   0634 00 4 12756  6030         SXA     T1,4               SET FUNCTION ON PDL
 12702   0074 00 4 02312  6031         TSX     $SAVE,4
 12703  -3 12760 0 02401  6032         TXL     $END1,,T1+2        SAVE 1 ITEM
 12704   0074 00 4 15774  6033         TSX     $EVLIS,4           EVALUATE LIST OF ARGUMENTS
 12705   0074 00 4 02326  6034         TSX     UNSAVE,4
 12706   0560 00 0 00471  6035         LDQ     SEVENS             AND OF NO ARGUMENT
 12707  -0600 00 0 12757  6036         STQ     T1+1
 12710   0560 00 0 12750  6037         LDQ     ANS                INSTRUCTION FOR INNER LOOP
 12711   0020 00 0 12725  6038         TRA     LOG2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0115


                          6039  *
 12712   0100 00 4 00001  6040  LOGXOR TZE     1,4                EXIT WITH 0 IF 0 INPUT
 12713  -0634 00 4 12756  6041         SXD     T1,4               SAVE IR4
 12714   0774 00 4 07666  6042         AXT     -$)PJ38,4          LOGXOR ATOM
 12715   0634 00 4 12756  6043         SXA     T1,4               SET FUNCTION ON PDL
 12716   0074 00 4 02312  6044         TSX     $SAVE,4
 12717  -3 12760 0 02401  6045         TXL     $END1,,T1+2        SAVE 1 ITEM
 12720   0074 00 4 15774  6046         TSX     $EVLIS,4           EVALUATE LIST OF ARGUMENTS
 12721   0074 00 4 02326  6047         TSX     UNSAVE,4
 12722   0560 00 0 00370  6048         LDQ     $ZERO              RIGNSUM OF NO ARGUMENTS
 12723  -0600 00 0 12757  6049         STQ     T1+1
 12724   0560 00 0 12751  6050         LDQ     ERS                TRA TO INSTRUCTIONS FOR INNER LOOP
                          6051  *      COMMON PART OF LOGAND, LOGOR AND LOGXOR
 12725  -0600 00 0 12737  6052   LOG2  STQ     LOG5
 12726   0634 00 2 12745  6053         SXA     LOG4,2             SAVE IR2
 12727  -0734 00 2 00000  6054         PDX     ,2                 POINTER TO ARGUMENT LIST
                          6055  *      FORM THE PROPER LOGICAL COMBINATION OF THE ARGUMENTS             PAGE 125
 12730   0500 00 2 00000  6056   LOG1  CLA     0,2                1
 12731  -0734 00 2 00000  6057         PDX     0,2                CDR(L)
 12732   0734 00 4 00000  6058         PAX     0,4
 12733  -0754 00 4 00000  6059         PXD     0,4                CAR(L)
 12734   0074 00 4 14342  6060         TSX     NUMVAL,4           GET NUMBER FOR THIS ELEMENT
 12735  -0754 00 4 00000  6061         PXD     0,4
 12736  -0500 00 4 00000  6062         CAL     0,4
 12737   0 00000 0 00000  6063   LOG5          **                 INSTRUCTION SET EARLIER
 12740   3 00000 2 12730  6064         TXH     LOG1,2,0           LOOP AGAIN IF CDR(L) NOT NULL
                          6065  *      RETURN A POINTER TO THE RESULT
 12741  -0500 00 0 12757  6066   LOG6  CAL     T1+1               PICK UP RESULT
 12742   0560 00 0 00503  6067         LDQ     $OCTD              MAKE AN OBJECT OF IT
 12743   0074 00 4 12636  6068         TSX     $MKNO,4
 12744  -0534 00 4 12756  6069         LXD     T1,4               RESTORE IR4 AND IR2
 12745   0774 00 2 00000  6070   LOG4  AXT     **,2
 12746   0020 00 4 00001  6071         TRA     1,4
                          6072  *      INSTRUCTIONS TO BE INSERTED IN INNER LOOP
 12747  -0602 00 0 12757  6073   ORS   ORS     T1+1
 12750   0320 00 0 12757  6074   ANS   ANS     T1+1
 12751   0020 00 0 12752  6075   ERS   TRA     *+1                TRA SINCE ERS TAKES 2 INSTRUCTIONS
 12752   0322 00 0 12757  6076         ERA     T1+1
 12753   0602 00 0 12757  6077         SLW     T1+1
 12754   3 00000 2 12730  6078         TXH     LOG1,2,0
 12755   0020 00 0 12741  6079         TRA     LOG6
                          6080  *
 12756  -000000000000     6081   T1    OCT     -0,-0              STORAGE FOR LOGAND, ETC.
                          6082  *      THIS ROUTINE USES NUMVAL,$MKNO,$ZERO,AND SEVENS





                          6083         SPACE   5
                          6084  *      LEFTSHIFT(X,N)
                          6085  *
                          6086  *      IF N IS +, X IS SHIFTED LEFT N PLACES.
                          6087  *      IF N IS -, X IS SHIFTED RIGHT -N PLACES.
                          6088  *      BOTH INPUTS MUST BE NUMERICAL OBJECTS.
                          6089  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0116


 12760   0634 00 4 13003  6090  LSHIFT SXA     LSH1,4             SAVE IR4
 12761   0634 00 2 13002  6091         SXA     LSH4,2             SAVE IR2
 12762   0601 00 0 12756  6092         STO     T2                 SAVE X
 12763   0131 00 0 00000  6093         XCA
 12764  -0734 00 2 00000  6094         PDX     0,2                FIND VALUE OF N
 12765   0074 00 4 13075  6095         TSX     FIXVAL,4
 12766   0774 00 4 77100  6096         AXT     7*4096+7*512+1*64,4  SET UP ARS
 12767  -0120 00 0 12771  6097         TMI     LSH2               IF NEGATIVE, SET UP ARS
 12770   0774 00 4 76700  6098         AXT     7*4096+6*512+7*64,4  SET UP ALS
 12771  -0634 00 4 12777  6099   LSH2  SXD     LSH3,4             PUT OP CODE INTO INSTRUCTION
 12772   0621 00 0 12777  6100         STA     LSH3
 12773   0500 00 0 12756  6101         CLA     T2                 FIND VLAUE OF X
 12774   0074 00 4 14342  6102         TSX     NUMVAL,4
 12775  -0734 00 4 00000  6103         PDX     0,4                                                      PAGE 126
 12776  -0500 00 4 00000  6104         CAL     0,4
 12777   0767 00 0 00000  6105   LSH3  ALS     **                 THIS INSTRUCTION WAS SET UP EARLIER
 13000   0560 00 0 00503  6106         LDQ     $OCTD              FORM OCTAL NUMBER
 13001   0074 00 4 12636  6107         TSX     $MKNO,4
 13002   0774 00 2 00000  6108   LSH4  AXT     **,2               RESTORE IR2
 13003   0774 00 4 00000  6109   LSH1  AXT     **,4
 13004   0020 00 4 00001  6110         TRA     1,4
                   12756  6111   T2    SYN     T1
                          6112  *
                          6113  *      THIS ROUTINE USES $MKNO,$OCTD,AND NUMVAL
                          6114         HEAD Q
                          6115  *
                          6116  *
                          6117  * ARYGET       THE FUNCTION THAT GETS AND SETS THE VALUES OF ARRAYS
                          6118  *              USED IN LISP AS FOLLOWS ...
                          6119  *              TO GET A VALUE  (NAME,D1,D2,D3)
                          6120  *              TO SET A VLUAE   (NAME,SET,VALUE,D1,D2,D3)
                          6121  *
                          6122  *              THE CALLING SEQUENCE IS AS FOLLOWS
                          6123  *      SXA     ARYGTX,4
                          6124  *      TSX     ARYGET,4
                          6125  *      PZE     LOCATION OF TABLE 1,,NUMBER OF DIMENSIONS
                          6126  *
 13005   0634 00 2 13044  6127  ARYGET SXA     ARYY,2             SAVE INDEX REGISTER
 13006   0634 00 1 13045  6128         SXA     ARYZ,1
 13007   0601 00 0 13072  6129         STO     AGAO               SAVE ARGUMENT 1
 13010   0500 00 4 00003  6130         CLA     3,4                TABLE ZERO PARAMETER WORD
 13011   0621 00 0 13042  6131         STA     AGXEX              ADDRESS OF END OF TABLE 1
 13012  -0734 00 2 00000  6132         PDX     0,2                NUMBER OF DIMENSIONS
 13013  -0600 00 0 13073  6133         STQ     AGAT               ARG 2
 13014   0500 00 0 03321  6134         CLA     $ARG3
 13015   0601 00 0 13074  6135         STO     AGATH              ARGUMENT 3
 13016   0500 00 0 13070  6136         CLA     AX                 XEC INSTRUCTION
 13017  -0534 00 4 13072  6137         LXD     AGAO,4             GET ARG 1
 13020  -3 07031 4 13032  6138         TXL     AGN,4,$SET-1       TEST FOR SET OPERATION
 13021   3 07032 4 13032  6139         TXH     AGN,4,$SET         GO ON IF NOT $SET
 13022  -0600 00 0 13071  6140         STQ     AGV                IS SET SAVE VALUE
 13023   0500 00 0 03321  6141         CLA     $ARG3
 13024   0601 00 0 13072  6142         STO     AGAO               DIMENSION 1
 13025   0500 00 0 03322  6143         CLA     $ARG4
 13026   0601 00 0 13073  6144         STO     AGAT               DIMENSION 2
 13027   0500 00 0 03323  6145         CLA     $ARG5
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0117


 13030   0601 00 0 13074  6146         STO     AGATH              DIMENSION 3
 13031   0500 00 0 13067  6147         CLA     AXS                XEC* INSTRUCTION
 13032   0622 00 0 13042  6148   AGN   STD     AGXEX              SET UP FETCH OR STORE INSTUCTION
 13033   3 00002 2 13047  6149         TXH     AGDTH,2,2          GO IF 3 D ARRAY
 13034   3 00001 2 13056  6150         TXH     AGDT,2,1           GO IF 2 D ARRAY
 13035  -0534 00 2 13072  6151         LXD     AGAO,2             DIMENSION 1
 13036   0074 00 4 13075  6152         TSX     FIXVAL,4           EVALUATE THE FIXED POINT NUMBER
 13037   0734 00 1 00000  6153         PAX     0,1                INTO PROPER INDEX
 13040   0774 00 6 00000  6154         AXT     0,6                ZERO INDEX REGISTERS
 13041   0500 00 0 13071  6155   AGXE  CLA     AGV                GET THE VALUE
 13042   0522 00 4 00000  6156   AGXEX XEC     **,4               FETCH BY XEC OR STORE BY XEC*
 13043   0774 00 4 00000  6157  ARYGTX AXT     **,4               RESTORE INDEX REGISTERS               PAGE 127
 13044   0774 00 2 00000  6158   ARYY  AXT     **,2
 13045   0774 00 1 00000  6159   ARYZ  AXT     **,1
 13046   0020 00 4 00001  6160         TRA     1,4
                          6161  *
 13047  -0534 00 2 13074  6162   AGDTH LXD     AGATH,2            DIMENSION 3
 13050   0074 00 4 13075  6163         TSX     FIXVAL,4           EVALUATE AS A FIXED POINT NUMBER
 13051   0734 00 1 00000  6164         PAX     0,1                INTO INDEX
 13052  -0534 00 2 13072  6165         LXD     AGAO,2             DIMENSION 1
 13053   0074 00 4 13075  6166         TSX     FIXVAL,4           EVALUATE IT
 13054   0621 00 0 13065  6167         STA     AGR                SET UP AXT INSTRUCTION
 13055   0020 00 0 13062  6168         TRA     AGD                GO EVALUATE DIMENSUON 2
                          6169  *
 13056   0634 00 0 13065  6170   AGDT  SXA     AGR,0              PRESET AXT INSTRUCTION
 13057  -0534 00 2 13072  6171         LXD     AGAO,2             DIMENSION 1
 13060   0074 00 4 13075  6172         TSX     FIXVAL,4           FIXED POINT NUMBER EVALUATION
 13061   0734 00 1 00000  6173         PAX     0,1                INTO INDEX 1
 13062  -0534 00 2 13073  6174   AGD   LXD     AGAT,2             DIMENSION 2
 13063   0074 00 4 13075  6175         TSX     FIXVAL,4           FIXED POINT NUMBER EVALUATION
 13064   0734 00 2 00000  6176         PAX     0,2                INTO INDEX 2
 13065   0774 00 4 00000  6177   AGR   AXT     **,4               ZERO OR DIMENSION 1
 13066   0020 00 0 13041  6178         TRA     AGXE               GO BACK TO MAIN PROGRAM
                          6179  *
 13067   0522 60 0 00000  6180   AXS   XEC*                       THE STORE INSTRUCTION
 13070   0522 00 0 00000  6181   AX    XEC                        THE FETCH INSTRUCTION
 13071   0 00000 0 00000  6182   AGV                              VALUE TO BE STORED PUT HERE
 13072   0 00000 0 00000  6183   AGAO                             DIMENSION 1
 13073   0 00000 0 00000  6184   AGAT                             DIMENSION 2
 13074   0 00000 0 00000  6185   AGATH                            DIMENSION 3
                          6186  *
                          6187  *      FIXVAL
                          6188  *
                          6189  *      FIXVAL HAS AS INPUT A POINTER TO A FIXED POINT NUMBER OBJECT IN
                          6190  *      IR2, AND HANDS BACK THE NUMERICAL VALUE OF THAT OBJECT.
                          6191  *
 13075   0634 00 2 13106  6192  FIXVAL SXA     FXVE,2             SAVE IR2 IN CASE OF ERROR
 13076   0500 00 2 00000  6193         CLA     0,2
 13077   0734 00 2 00000  6194         PAX     0,2
 13100  -3 77776 2 13106  6195         TXL     FXVE,2,-2          ERROR IF NOT ATOMIC
 13101  -0734 00 2 00000  6196         PDX     0,2
 13102  -0320 00 0 00436  6197         ANA     $QT1
 13103   0100 00 0 13106  6198         TZE     FXVE
 13104   0500 00 2 00000  6199         CLA     0,2                PICK UP VALUE
 13105   0020 00 4 00001  6200         TRA     1,4                NORMAL EXIT
 13106   0774 00 2 00000  6201   FXVE  AXT     **,2               IR2 SHOULD LAND IN DECR. OF AC
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0118


 13107  -0634 00 4 01562  6202         SXD     $ERROR,4
 13110  -0754 00 2 00000  6203         PXD     0,2                IT DOES INDEED LAND THERE
 13111   0074 00 4 01563  6204         TSX     $ERROR+1,4
 13112   543160600454     6205         BCI     1,*I  4*           BAD ARGUMENT -- FIXVAL
                          6206  *
                          6207  *
                          6208  * ARYMAK       THE FUNCTION THAT MAKES ARRAYS
                          6209  *              THE ARGUMENT IS A SINGLE LIST WHOSE SUB-LISTS HAVE THE
                          6210  *              FORM  (NAME,(DIMENSION1,DIMENSION2,DIMENSION3),TYPE)
                          6211  *      ARRAYS MAY BE 1, 2, OR 3 DIMENSIONAL AND MAY BE OF LIST OR       PAGE 128
                          6212  *              NON-LIST TYPE.
                          6213  *
                          6214  *              ARRAY IS STORED AS FOLLOWS ...
                          6215  *      SXA     ARTGTX,4           ADDRESS OF SUBR TXL INSTRUCTION
                          6216  *      TSX     ARYGET,4
                          6217  *      PZE     END + 1,, N OF DIMENSIONS  (ARRAY PROPERTY POINTS HERE)
                          6218  *      PZE     TOTAL LENGTH,,LIST OF LENGTH
                          6219  *      PZE     TABLE ZERO,, NUMBER OF DIMENSIONS (ARYGET PARAMETER WORD)
                          6220  *      CLA*    **,2               TABLE 1
                          6221  *      *************************
                          6222  *      STO     **,1               TABLE 2
                          6223  *      *****************************
                          6224  *                                 ARRAY PROPER GOES HERE
                          6225  *
 13113   0560 00 0 13115  6226  ARYMAK LDQ     AMFAG              PICK UP FUNCTIONAL ARGUMENT
 13114   0020 00 0 04214  6227         TRA     MAPLIS             LET MALPIST HANDLE ITERATION ALONG LIS
                          6228  *
 13115  -3 00001 0 13116  6229   AMFAG TXL     *+1,,1             FUNCTIONAL ARGUMENT
 13116   0634 00 4 13320  6230         SXA     AFRX,4             SAVE INDEX REGISTERS
 13117   0634 00 2 13321  6231         SXA     AFRY,2
 13120  -0734 00 4 00000  6232         PDX     0,4                POINTER TO LIST
 13121   0500 00 4 00000  6233         CLA     0,4
 13122   0734 00 4 00000  6234         PAX     0,4                POINTER TO SUBLIST
 13123   0500 00 4 00000  6235         CLA     0,4
 13124   0734 00 4 00000  6236         PAX     0,4                NAME
 13125  -0634 00 4 03504  6237         SXD     AFAT,4             SAVE IT
 13126  -0734 00 4 00000  6238         PDX     0,4
 13127   0500 00 4 00000  6239         CLA     0,4
 13130   0734 00 2 00000  6240         PAX     0,2                POINTER TO DIMENSION LIST
 13131  -0734 00 4 00000  6241         PDX     0,4
 13132   0500 00 4 00000  6242         CLA     0,4
 13133   0734 00 4 00000  6243         PAX     0,4                TYPE
 13134   0600 00 0 13336  6244         STZ     ATYP
 13135  -3 07735 4 13140  6245         TXL     ADA,4,$LIST-1      GO IF NOT $ LIST
 13136   3 07736 4 13140  6246         TXH     ADA,4,$LIST
 13137  -0634 00 4 13336  6247         SXD     ATYP,4             MAKES ATYPE NON-ZERO FOR LIST ARRAYS
 13140   0500 00 2 00000  6248   ADA   CLA     0,2                FIRST WORD ON DIMENSION LIST
 13141   0734 00 2 00000  6249         PAX     0,2                DIMENSION 1
 13142   0622 00 0 03505  6250         STD     ATMP               POINTER TO REST
 13143   0074 00 4 13075  6251         TSX     FIXVAL,4           EVALUATE THE FIXED POINT NUMBER
 13144   0601 00 0 13340  6252         STO     ADO                DIMENSION 1
 13145  -0534 00 4 03505  6253         LXD     ATMP,4             PICK UP POINTER TO REST OF LIST
 13146  -3 00000 4 13164  6254         TXL     AOD,4,0            GO IF 1 D
 13147   0500 00 4 00000  6255         CLA     0,4                NEXT WORD
 13150   0622 00 0 03505  6256         STD     ATMP               SAVE POINTER
 13151   0734 00 2 00000  6257         PAX     0,2                DIMENSION 2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0119


 13152   0074 00 4 13075  6258         TSX     FIXVAL,4           GET NUMBER VALUE
 13153   0601 00 0 13341  6259         STO     ADT                DIMENSION 2
 13154  -0534 00 4 03505  6260         LXD     ATMP,4             POINTER TO REST OF LIST
 13155  -3 00000 4 13173  6261         TXL     ATD,4,0            GO IF 2 D ARRAY
 13156   0500 00 4 00000  6262         CLA     0,4
 13157   0734 00 2 00000  6263         PAX     0,2                DIMENSION 3
 13160   0074 00 4 13075  6264         TSX     FIXVAL,4           NUMBER VALUE
 13161   0601 00 0 13342  6265         STO     ADTH               DIMENSION 3                           PAGE 129
 13162   0774 00 2 00003  6266         AXT     3,2                NUMBER OF DIMENSIONS
 13163   0020 00 0 13177  6267         TRA     AGA                GO TO NEXT PART OF PROGRAM
 13164   0500 00 0 13340  6268   AOD   CLA     ADO                1D, TREAT AS A 1 X 1 X D1 ARRAY
 13165   0601 00 0 13342  6269         STO     ADTH
 13166   0500 00 0 00371  6270         CLA     $Q1
 13167   0601 00 0 13341  6271         STO     ADT                DIMENSION 2
 13170   0601 00 0 13340  6272         STO     ADO                DIMENSION 1
 13171   0774 00 2 00001  6273         AXT     1,2                1 D ARRAY
 13172   0020 00 0 13177  6274         TRA     AGA                GO NEXT PART
 13173   0500 00 0 13340  6275   ATD   CLA     ADO                2 D, TREAT AS A 1 X D2 X D1 ARRAY
 13174   0500 00 0 00371  6276         CLA     $Q1
 13175   0601 00 0 13340  6277         STO     ADO                DIMENSION 1
 13176   0774 00 2 00002  6278         AXT     2,2                2 D ARRAY
 13177   0560 00 0 13340  6279   AGA   LDQ     ADO                DIMENSION 1
 13200  -0754 00 0 00000  6280         PXD     0,0                ZERO AC
 13201   0200 00 0 13341  6281         MPY     ADT                DIMENSION 2
 13202  -0600 00 0 13335  6282         STQ     ADOT               D1 X D2
 13203   0200 00 0 13342  6283         MPY     ADTH               DIMENSION 3
 13204   0520 00 0 13336  6284         ZET     ATYP               SKIP NEXT IF NON-LIST ARRAY
 13205  -0600 00 0 13336  6285         STQ     ATYP               LIST LENGTH
 13206   0131 00 0 00000  6286         XCA                        D1 X D2 X D3 TO AC
 13207   0400 00 0 13335  6287         ADD     ADOT               ADD INDEX TABLE LENGTHS
 13210   0400 00 0 13340  6288         ADD     ADO
 13211   0400 00 0 00375  6289         ADD     $Q5                CONSTANT LENGTH
 13212   0621 00 0 13333  6290         STA     APWT               PARAMETER WORD TWO
 13213   0621 00 0 13337  6291         STA     ATMQ               SAVE LENGTH
 13214   0534 00 4 13336  6292         LXA     ATYP,4             ZERO OR LIST LENGTH
 13215   0634 00 4 13333  6293         SXA     APWT,4             PARAMETER WORD 2
 13216   0074 00 4 04004  6294         TSX     BLOCKR,4           RESERVE A BLOCK OF THIS LENGTH
 13217   0100 00 0 13323  6295         TZE     ARYTL              GO IF ARRAY WILL NOT FIT
 13220   0621 00 0 03505  6296         STA     ATMP               END OF BLOCK ADDRESS
 13221   0400 00 0 00371  6297         ADD     $Q1                ADD 1
 13222   0621 00 0 13332  6298         STA     APWO               PARAMETER WORD 1
 13223  -0634 00 2 13334  6299         SXD     ATBZ,2             NUMBER OF DIMENSIONS
 13224  -0634 00 2 13332  6300         SXD     APWO,2
 13225  -0634 00 2 13343  6301         SXD     ASBR,2
 13226   0402 00 0 13337  6302         SUB     ATMQ               LENGTH OF BLOCK
 13227   0621 00 0 13343  6303         STA     ASBR               ADDRESS OF BEGINNING OG BLOCK
 13230   0737 00 4 00000  6304         PAC     0,4                POINTER IN IR 4
 13231   1 77776 4 13232  6305         TXI     *+1,4,-2           POINTER TO ARRAY PROPERTY
 13232  -0634 00 4 13344  6306         SXD     AARY,4             SAVE POINTER
 13233   0737 00 4 00000  6307         PAC     0,4                POINTER TO BEGINNING OF ARRAY
 13234   0400 00 0 00374  6308         ADD     $Q4                LENGTH OF PREFIX - 1
 13235   0400 00 0 13340  6309         ADD     ADO
 13236   0621 00 0 13334  6310         STA     ATBZ               LAST LOC. IN TAQBLE ONE
 13237   0774 00 2 00005  6311         AXT     5,2                LENGTH OF PREFIX TO ARRAY
 13240   0500 00 2 13335  6312   ACLA  CLA     ADOT,2             PICK UP PREFIX
 13241   0601 00 4 00000  6313         STO     0,4                AND STORE IN CORE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0120


 13242   1 77777 4 13243  6314         TXI     *+1,4,-1           UPDTAEC CORE LOCATION
 13243   2 00001 2 13240  6315         TIX     ACLA,2,1       GET REST OF PREFIX
 13244  -0320 00 0 00457  6316         ANA     $AMASK             TABLE ZERO IN AC
 13245  -0501 00 0 13345  6317         ORA     ACLAS              OR IN CLA* INSTRUCTION
 13246   0534 00 2 13340  6318         LXA     ADO,2              LENGTH OF TABLE
 13247   0400 00 0 13341  6319   AADD  ADD     ADT                INCREMENT BY DIMENSION 2              PAGE 130
 13250   0601 00 4 00000  6320         STO     0,4                PUT IN CODE
 13251   1 77777 4 13252  6321         TXI     *+1,4,-1           UP DATE CORE COUNTER
 13252   2 00001 2 13247  6322         TIX     AADD,2,1           FINISH OFFF
 13253   0534 00 2 13335  6323         LXA     ADOT,2             LENGTH OF TABLE 2
 13254  -0320 00 0 00457  6324         ANA     $AMASK             CLEAR OUT ALL BUT ADDRESS
 13255  -0501 00 0 13346  6325         ORA     ARSTO              PUT INSTRUCTION
 13256   0400 00 0 13342  6326   AAA   ADD     ADTH               ADD DIMENSION 3
 13257   0601 00 4 00000  6327         STO     0,4                PUT IN CORE
 13260   1 77777 4 13261  6328         TXI     *+1,4,-1           UPDATE CORE COUNTER
 13261   2 00001 2 13256  6329         TIX     AAA,2,1            CONTINUE TO CONSTRUCT TABLE
                          6330  *              TABLE CONSTRUCTION ALL DONE.
                          6331  *              THE FOLLOWING ADDS PROPERTYS TO THE ARYATOM
 13262   0500 00 0 13344  6332         CLA     AARY               PICK UP POINTER TO TO ARRAY PROPERTY
 13263   0560 00 0 00370  6333         LDQ     $ZERO
 13264   0074 00 4 03730  6334         TSX     $CONS,4
 13265   0560 00 0 00370  6335         LDQ     $ZERO
 13266   0074 00 4 03730  6336         TSX     $CONS,4
 13267   0131 00 0 00000  6337         XCA
 13270   0500 00 0 13347  6338         CLA     ARY                POINTER TO ATOMIC SYMBOL ARRAY
 13271   0074 00 4 03730  6339         TSX     $CONS,4            (ARRAY,(POINTER TO ARRAY PROPERTY))
 13272   0601 00 0 03505  6340         STO     ATMP               SAVE IN TEMP STORAGE
 13273   0500 00 0 13343  6341         CLA     ASBR               TXL INSTRUCTIONM
 13274   0074 00 4 03710  6342         TSX     $CONSW,4           PUT IN FULL WORD SPACE
 13275   0560 00 0 03505  6343         LDQ     ATMP               REST OF PROPERTIES
 13276   0074 00 4 03730  6344         TSX     $CONS,4
 13277   0131 00 0 00000  6345         XCA
 13300   0500 00 0 00506  6346         CLA     ASB                POINTER TO $SUBR ATOMIC SYMBOL
 13301   0074 00 4 03730  6347         TSX     $CONS,4
 13302   0131 00 0 00000  6348         XCA                        SAVE IN MQ
 13303  -0534 00 4 03504  6349         LXD     AFAT,4             POINTER TO NAME
 13304   0500 00 4 00000  6350         CLA     0,4                FIRST WORD
 13305  -0754 00 4 00000  6351         PXD     0,4                SAVE POINTER TO REST
 13306  -0754 00 4 00000  6352         PXD     0,4                PUT IN AC
 13307   0131 00 0 00000  6353         XCA                        INTER CHANGE AC AND MQ
 13310   0074 00 4 07675  6354         TSX     $NCONC,4           SPLICE  2 LISTS TOGETHER
 13311  -0534 00 4 03504  6355         LXD     AFAT,4             POINTER TO FIRST WORD ON PROPERTY LIST
 13312   0622 00 4 00000  6356         STD     0,4                REPLACE DECREMENT OPERATION
 13313  -0754 00 4 00000  6357         PXD     0,4                POINTER TO ARRY ATOM
 13314   0560 00 0 03305  6358         LDQ     ARYLIS             PICK UP ARRAY LIST
 13315   0074 00 4 03730  6359         TSX     $CONS,4            PUT ON AS ACTIVE ARRAY
 13316   0622 00 0 03305  6360         STD     ARYLIS             UPDATE ARRAY LIST
 13317   0500 00 0 03504  6361         CLA     AFAT               FINAL ANSWER
 13320   0774 00 4 00000  6362   AFRX  AXT     **,4               RESTORE INDEX REGISTERS
 13321   0774 00 2 00000  6363   AFRY  AXT     **,2
 13322   0020 00 4 00001  6364         TRA     1,4                EXIT
                          6365  *
 13323  -0634 00 4 01562  6366   ARYTL SXD     $ERROR,4           SAVE INDEX 4
 13324   0534 00 2 13321  6367         LXA     AFRY,2             RESTORE INDEX 2
 13325   0500 00 0 03504  6368         CLA     AFAT               ARRAY NAME
 13326   0074 00 4 01563  6369         TSX     $ERROR+1,4         GO TO ERROR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0121


 13327   543160600154     6370         BCI     1,*I  1*           NOT ENOUGH ROOM FOR ARRAY
                          6371  *              CONSTANTS AND STORAGE
 13330   0634 00 4 13043  6372         SXA     ARYGTX,4           5 WORD PREFIX TO ARRAYS
 13331   0074 00 4 13005  6373         TSX     ARYGET,4                                                 PAGE 131
 13332   0 00000 0 00000  6374   APWO                             END+1,,N OF D
 13333   0 00000 0 00000  6375   APWT                             LENGTH,,LIST LENGTH
 13334   0 00000 0 00000  6376   ATBZ                             TABLE ZERO,, N OF D
 13335   0 00000 0 00000  6377   ADOT                             D1 X D2
 13336   0 00000 0 00000  6378   ATYP                             ZERO OR LIST LENGTH
 13337   0 00000 0 00000  6379   ATMQ                             TEMPORARY STORAGE
 13340   0 00000 0 00000  6380   ADO                              D1
 13341   0 00000 0 00000  6381   ADT                              D2
 13342   0 00000 0 00000  6382   ADTH                             D3
 13343  -3 00000 0 00000  6383   ASBR  TXL     **,**
 13344   0 00000 0 00000  6384   AARY                             POINTER TO ARRAY PROPERTY
 13345   0500 60 2 00000  6385   ACLAS CLA*    **,2               FETCH INSTRUCTION
 13346   0601 00 1 00000  6386   ARSTO STO     **,1               PUT INSTRUCTION
 13347   0 10735 0 00000  6387   ARY           ,,$ARRAY
                   00506  6388   ASB   SYN     $SUBRD
                          6389  *
                          6390  *
                          6391  * UNUMIX       EVALUATES ITS 2 NUMERICAL ARGUMENTS AND FLOATS THE FIXED
                          6392  *              POINT ARGUMENT IF A MIXED EXPRESSION.  THE NUMERICAL
                          6393  *              VALUES ARE LEFT IN AC AND MQ WITH TYPE OF NUMBER IN $ARG3
                          6394  *
 13350   0634 00 4 13371  6395  UNUMIX SXA     UNUX,4             SAVE LINK IR
 13351  -0600 00 0 13416  6396         STQ     UNUT               SAVE SECOND ARGUMENT
 13352   0074 00 4 14342  6397         TSX     NUMVAL,4           NUMERICALLY EVALUATE THE FIRST ARG
 13353  -0734 00 4 00000  6398         PDX     0,4                POINTER TO FULL WORD
 13354   0500 00 4 00000  6399         CLA     0,4                NUMERICAL VALUE
 13355   0601 00 0 13415  6400         STO     UNUS               SAVE IT
 13356  -0600 00 0 13417  6401         STQ     UNUR               SAVE TYPE OF NUMBER
 13357   0500 00 0 13416  6402         CLA     UNUT               PICK UP SECOND ARG
 13360   0074 00 4 14342  6403         TSX     NUMVAL,4           NUMERICALLY EVALUATE IT
 13361  -0734 00 4 00000  6404         PDX     0,4                POINTER TO FULL WORD
 13362   0500 00 4 00000  6405         CLA     0,4                NUMERICAL VALUE
 13363   0131 00 0 00000  6406         XCA                        VLUE TO MQ, TYPE TO AC
 13364   0402 00 0 13417  6407         SUB     UNUR               COMPARE WITH TYPE OF FIRST
 13365  -0100 00 0 13373  6408         TNZ     UNMXA              TRA IF NOT SAME
 13366   0500 00 0 13417  6409   UNUE  CLA     UNUR               PICK UP NUMBER TYPE
 13367   0601 00 0 03321  6410         STO     $ARG3
 13370   0500 00 0 13415  6411         CLA     UNUS               PICK UP FIRST NUMERICAL VALUE
 13371   0774 00 4 00000  6412   UNUX  AXT     **,4               RESTORE LINK IR
 13372   0020 00 4 00001  6413         TRA     1,4                EXIT
                          6414  *
 13373  -0600 00 0 13416  6415   UNMXA STQ     UNUT               MIXED TYPES, SAVE SECOND VALUE
 13374   0634 00 2 13406  6416         SXA     UNUX2,2            SAVE IR 2
 13375  -0534 00 2 13417  6417         LXD     UNUR,2             PICK UP TYPE OF FIRST NUMBER
 13376   0074 00 4 14550  6418         TSX     FIXFLO,4           DISPATCH
 13377   0761 00 0 00000  6419         NOP                        IMPOSSIBLE RETURN
 13400   0020 00 0 13410  6420         TRA     UNMXB              FLOAT SECOND NUMBER
 13401   0500 00 0 13415  6421         CLA     UNUS               FIRST NUMBER
 13402   0074 00 4 14565  6422         TSX     $UNFIX,4           FLOAT IT
 13403   0560 00 0 00476  6423         LDQ     UNFLT              $FLOAT FOR TYPE
 13404  -0600 00 0 03321  6424         STQ     $ARG3
 13405   0560 00 0 13416  6425         LDQ     UNUT               SECOND NUMBER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0122


 13406   0774 00 2 00000  6426   UNUX2 AXT     **,2               RESTORE IR 2
 13407   0020 00 0 13371  6427         TRA     UNUX               RESTRE LINK AND EXIT                  PAGE 132
                          6428  *
 13410   0131 00 0 00000  6429   UNMXB XCA                        FLOAT SECOND NUMBER
 13411   0074 00 4 14565  6430         TSX     $UNFIX,4           FLOAT FUNCTION
 13412   0131 00 0 00000  6431         XCA                        BACK TO MQ
 13413   0534 00 2 13406  6432         LXA     UNUX2,2            RESTORE IR 2
 13414   0020 00 0 13366  6433         TRA     UNUE               GET FIRST NUMBER, RESTORE LINK + EXIT
 13415   0 00000 0 00000  6434   UNUS                             FIRST NUMERICAL VALUE
 13416   0 00000 0 00000  6435   UNUT                             SECOND ARG AND VALUE
 13417   0 00000 0 00000  6436   UNUR                             TYPE OF FIRST ARG
                   00476  6437  UNFLT  SYN     FLOATD             FLOAT INDICATOR
                          6438  *
                          6439  * THIS ROUTINE USES NUMVAL,$UNFIX,FIXFLO, AND $ARG3  + $FLOAT
                          6440  *
                          6441  *
                          6442  * DIVIDE       DIVIDES THE FIRST NUMERICAL ARGUMENT BY THE SECOND. THE
                          6443  *              ANSWER IS A LIST OF THE QUOTIENT AND THE REMAINDER.
                          6444  *
                          6445  * QUOTEN       GIVES THE QUOTIENT WHEN THE FIRST NUMERICAL ARGUMENT IS
                          6446  *              DIVIDED BY THE SECOND.
                          6447  *
                          6448  * REMAIN       GIVES THE REMAINDER WHEN THE FIRST NUMERICAL ARGUMENT IS
                          6449  *              DIVIDED BY THE SECOND.
 13420   0604 00 0 13510  6450  DIVIDE STI     DIVND              SAVE INDICATORS
 13421   0057 00  000003  6451         RIR     3                   DIIDE INDICATE
 13422   0020 00 0 13432  6452         TRA     DIVOP              DO OPERATION
                          6453  *
 13423   0604 00 0 13510  6454  REMAIN STI     DIVND              SAVE INDICATORS
 13424   0057 00  000003  6455         RIR     3                  DIVIDE INDICATE
 13425   0055 00  000002  6456         SIR     2                  SET REMAINDER INDICATOR
 13426   0020 00 0 13432  6457         TRA     DIVOP              DO OPERATION
                          6458  *
 13427   0604 00 0 13510  6459  QUOTEN STI     DIVND              SAVE INDICATORS
 13430   0057 00  000003  6460         RIR     3                  DIVIDE INDICATE
 13431   0055 00  000001  6461         SIR     1                  QUOTIENT INDICATOR
 13432   0634 00 4 13501  6462   DIVOP SXA     DIVX,4             SAVE LINK IR
 13433   0634 00 2 13500  6463         SXA     DIVX2,2            SAVE IR 2
 13434   0074 00 4 13350  6464         TSX     UNUMIX,4           NUMERICALLY EVALUATE THE ARGUMENTS
 13435  -0534 00 2 03321  6465         LXD     $ARG3,2            PICK UP TYPE
 13436  -0600 00 0 13511  6466         STQ     DIVT               SECOND ARGUMENT
 13437   0074 00 4 14550  6467         TSX     FIXFLO,4           DISPATCH ON TYPE
 13440   0761 00 0 00000  6468         NOP                        IMPOSSIBLE RETURN
 13441   0241 00 0 13511  6469         FDP     DIVT               FLOATING DIVIDE
 13442   0020 00 0 13471  6470         TRA     DIVFX              DO FIXED POINT DIVIDE
 13443   0760 00 0 00012  6471   DIVDC DCT                        CHECK  FOR ILLEGAL DIVISION
 13444   0074 00 4 01676  6472         TSX     $DCT,4             DIVIDE CHECK ERROR
 13445   0054 00  000001  6473         RFT     1                  SEE IF REMAINDER IS TO BE SAVED
 13446   0020 00 0 13476  6474         TRA     DIVA               NO, SET UP QUOTIENT
 13447  -0600 00 0 13511  6475         STQ     DIVT               YES, SAVE QUOTEINT
 13450   0460 00 0 03321  6476         LDA     $ARG3              PICK UP TYPE
 13451   0074 00 4 12636  6477         TSX     $MKNO,4            MAKE REMAINDER A NUMBER
 13452   0054 00  000002  6478         RFT     2                  SEST TO SEE IF QUOTIENT IS WANTED
 13453   0020 00 0 13504  6479         TRA     DIVEX              NO, RESTORE AND EXIT
 13454   0560 00 0 00370  6480         LDQ     $ZERO              NIL IN MQ
 13455   0074 00 4 03730  6481         TSX     $CONS,4            LIST OF REMAINDER                     PAGE 133
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0123


 13456   0131 00 0 00000  6482         XCA                        SHUTTLE INTO MQ
 13457   0500 00 0 13511  6483         CLA     DIVT               PICK UP QUOTIENT
 13460  -0600 00 0 13511  6484         STQ     DIVT               SAVE LIST OF REMAINDER
 13461   0560 00 0 03321  6485         LDQ     $ARG3              PICK UP TYPE
 13462   0074 00 4 12636  6486         TSX     $MKNO,4            MAKE QUOTIENT A NUMBER
 13463   0560 00 0 13511  6487         LDQ     DIVT               LIST(REMAINDER)
 13464   0074 00 4 03730  6488         TSX     $CONS,4            LIST(QUOTIENT,REMAINDER)
 13465   0534 00 4 13501  6489         LXA     DIVX,4             RESTORE LINK IR
 13466   0534 00 2 13500  6490         LXA     DIVX2,2            RESTORE IR 2
 13467   0441 00 0 13510  6491         LDI     DIVND              RESTORE INDICATORS
 13470   0020 00 4 00001  6492         TRA     1,4                EXIT
                          6493  *
 13471   0131 00 0 00000  6494   DIVFX XCA                        FIXED POINT DIVISION. PUT ARG 1 IN MQ
 13472  -0754 00 0 00000  6495         PXD     0,0                CLEAR AC
 13473   0763 00 0 00000  6496         LLS     0                  MQ SIGN TO AC
 13474   0221 00 0 13511  6497         DVP     DIVT               DIVIDE BY ARG 2
 13475   0020 00 0 13443  6498         TRA     DIVDC              PREFORM DIVIDE CHECK AND CARRY ON
 13476   0131 00 0 00000  6499   DIVA  XCA                        QUOTIENT TO AC
 13477   0560 00 0 03321  6500         LDQ     $ARG3              TYPE TO MQ
 13500   0774 00 2 00000  6501   DIVX2 AXT     **,2               RESTORE IR 2
 13501   0774 00 4 00000  6502   DIVX  AXT     **,4               RESTORE LINK IR
 13502   0441 00 0 13510  6503         LDI     DIVND              RESTORE INDICATORS
 13503   0020 00 0 12636  6504         TRA     $MKNO
                          6505  *
 13504   0534 00 2 13500  6506   DIVEX LXA     DIVX2,2            EXIT ROUTINE, RESTORE IR 2
 13505   0534 00 4 13501  6507         LXA     DIVX,4             RESTORE LINK IR
 13506   0441 00 0 13510  6508         LDI     DIVND              RESTORE INDICATORS
 13507   0020 00 4 00001  6509         TRA     1,4
                          6510  *
 13510   0 00000 0 00000  6511   DIVND                            INDICATORS STORAGE
 13511   0 00000 0 00000  6512   DIVT                             LIST AND NON-LIST TEMPORARY STORAGE
                          6513  *
                          6514  * THIS ROUTINE USES $MKNO,$DCT,$CONS,$ARG3 AND UNUMIX
                          6515  *
                          6516  *
                          6517  * DIFFER       COMPUTES THE DIFFERENCE BETWEEN ITS 2 NUMERICAL ARGUMENTS
                          6518  *
 13512   0634 00 4 13525  6519  DIFFER SXA     DIFX,4             SAVE LINK IR
 13513   0634 00 2 13524  6520         SXA     DIFX2,2            SAVE IR 2
 13514   0074 00 4 13350  6521         TSX     UNUMIX,4           NUMERICALLY EVALUATE THE ARGUMENTS
 13515  -0534 00 2 03321  6522         LXD     $ARG3,2            PICK UP TYPE OF NUMBERS
 13516  -0600 00 0 13527  6523         STQ     DIFT               STORE SECOND NUMBER
 13517   0074 00 4 14550  6524         TSX     FIXFLO,4           DISPATCH ON TYPE
 13520   0761 00 0 00000  6525         NOP                        IMPOSSIBLE RETURN
 13521   0302 00 0 13527  6526         FSB     DIFT               FLOATING POINT
 13522   0402 00 0 13527  6527         SUB     DIFT               FIXED POINT
 13523   0560 00 0 03321  6528         LDQ     $ARG3              TYPE OF NUMBER
 13524   0774 00 2 00000  6529   DIFX2 AXT     **,2               RESTORE IR 2
 13525   0774 00 4 00000  6530   DIFX  AXT     **,4               RESTORE LINK IR
 13526   0020 00 0 12636  6531         TRA     $MKNO              MAKE RESULT A NUMBER
                          6532  *
 13527   0 00000 0 00000  6533   DIFT                             TEMPORARY STORAGE
                          6534  *
                          6535  * THIS ROUTINE USES UNUMIX,FIXFLO,$ARG3 AND $MKNO                       PAGE 134
                          6536  *
                          6537  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0124


                          6538  * EXPT TAKES 2 FIXED OR FLOATING POINT NUMBERS AS ARGUMENTS AND RAISES
                          6539  *              THE FIRST TO THE POWER INDICATED BY THE SECOND.
                          6540  *
 13530   0634 00 4 13567  6541   EXPT  SXA     EXPX,4             SAVE LINK IR
 13531   0634 00 2 13570  6542         SXA     EXPY,2             SAVE IR 2
 13532   0074 00 4 13350  6543         TSX     UNUMIX,4           EVALUATE THE 2 ARGUMENTS AS NUMBERS
 13533  -0534 00 2 03321  6544         LXD     $ARG3,2            PICK UP TYPE OF NUMBERS
 13534   0074 00 4 14550  6545         TSX     FIXFLO,4           DISPATCH ON FIX OR FLOAT
 13535   0761 00 0 00000  6546         NOP                        IMPOSSIBLE RETURN
 13536   0020 00 0 13564  6547         TRA     EXPA               IS FLOATING POINT
 13537   0120 00 0 13546  6548         TPL     EXPB
 13540   0534 00 2 13570  6549   EXPC  LXA     EXPY,2             RESTORE IR 2
 13541   0534 00 4 13567  6550         LXA     EXPX,4             RESTORE IR 4
 13542  -0634 00 4 01562  6551         SXD     $ERROR,4           SAVE IN $ERROR
 13543  -0754 00 0 00000  6552         PXD     0,0                CLEAR AC
 13544   0074 00 4 01563  6553         TSX     $ERROR+1,4         GO TO ERROR
 13545   543160600254     6554         BCI     1,*I  2*           FIRST ARGUMENT IS NEGATIVE -EXPT-
 13546   0131 00 0 00000  6555   EXPB  XCA                        INTERCHANGED FIXED POINT ARGUMENTS.
 13547  -0600 00 0 77662  6556         STQ     COMMON             TEMPORARY STORAGE
 13550   0734 00 4 00000  6557         PAX     0,4                EXPONENT
 13551  -3 00000 4 13561  6558         TXL     OUT,4,0            GO IF ZERO POWER
 13552  -2 00001 4 13556  6559         TNX     OUT1,4,1           GO IF TO FIRST POWER
 13553  -0754 00 0 00000  6560         PXD     0,0                CLEAR AC
 13554   0200 00 0 77662  6561         MPY     COMMON             RAISE TO GIVEN POWER
 13555   2 00001 4 13554  6562         TIX     *-1,4,1            IN LOOP
 13556   0131 00 0 00000  6563   OUT1  XCA                        ANSWER TO AC
 13557   0560 00 0 00475  6564         LDQ     $FIXD              $FIX TO DECREMENT
 13560   0020 00 0 13567  6565         TRA     EXPX               RESTORE INDEX REGISYERS AND MAKE NUMBR
 13561   0500 00 0 00371  6566   OUT   CLA     $Q1                ANSWER IS 1
 13562   0560 00 0 00475  6567         LDQ     $FIXD              $FIX TO MQ
 13563   0020 00 0 13567  6568         TRA     EXPX               EXIT
 13564  -0120 00 0 13540  6569   EXPA  TMI     EXPC
 13565   0074 00 4 13572  6570         TSX     $POWR,4            POWER ROUTINE
 13566   0560 00 0 00476  6571         LDQ     FLOATD             $FLOAT TO MQ
 13567   0774 00 4 00000  6572   EXPX  AXT     **,4               RESTORE INDEX REGISTERS
 13570   0774 00 2 00000  6573   EXPY  AXT     **,2
 13571   0020 00 0 12636  6574         TRA     $MKNO              MAKE ANSWER AN NUMBER
                          6575             POWER
                          6576         HEAD G
 13572  -0600 00 0 13714  6577   POWR  STQ N
 13573  -0634 00 1 77662  6578         SXD COMMON,1
 13574  -0634 00 2 77663  6579         SXD COMMON+1,2
 13575   0534 00 1 00000  6580   P19   LXA ZERO,1
 13576   0534 00 2 00000  6581         LXA ZERO,2
 13577   0765 00 0 00033  6582         LRS 27
 13600   0402 00 0 00415  6583         SUB L200
 13601  -0600 00 0 13715  6584         STQ FN
 13602   0560 00 0 00000  6585         LDQ ZERO
 13603  -0100 00 0 13606  6586         TNZ P01
 13604   0601 00 0 13716  6587         STO E
 13605   0020 00 0 13620  6588         TRA P02
 13606   0765 00 0 00001  6589   P01   LRS 1                                                            PAGE 135
 13607   1 00001 1 13610  6590         TXI P03,1,1
 13610  -0100 00 0 13606  6591   P03   TNZ P01
 13611  -0754 00 1 00000  6592         PXD 0,1
 13612   0771 00 0 00022  6593         ARS 18
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0125


 13613   0760 00 0 00003  6594         SSP
 13614   0400 00 0 00415  6595         ADD L200
 13615   0763 00 0 00033  6596         LLS 27
 13616   0601 00 0 13716  6597         STO E
 13617   0760 00 0 00000  6598         CLM
 13620   0560 00 0 13715  6599   P02   LDQ FN
 13621   0763 00 0 00033  6600         LLS 27
 13622   0400 00 0 00435  6601         ADD LL200
 13623   0300 00 0 13717  6602         FAD RSQ
 13624   0601 00 0 13720  6603         STO P04
 13625   0302 00 0 13726  6604         FSB SQ
 13626   0240 00 0 13720  6605         FDH P04
 13627  -0600 00 0 13721  6606         STQ P05
 13630   0260 00 0 13721  6607         FMP P05
 13631   0601 00 0 13722  6608         STO P06
 13632   0560 00 0 13722  6609   P08   LDQ P06
 13633   0260 00 2 13733  6610         FMP C7,2
 13634   0300 00 2 13732  6611         FAD C5,2
 13635   0601 00 2 13732  6612         STO C5,2
 13636   1 00001 2 13637  6613         TXI P07,2,1
 13637  -3 00002 2 13632  6614   P07   TXL P08,2,2
 13640   0560 00 0 13730  6615         LDQ C1
 13641   0260 00 0 13721  6616         FMP P05
 13642   0302 00 0 13727  6617         FSB R2
 13643   0300 00 0 13716  6618         FAD E
 13644   0601 00 0 13716  6619   P18   STO E
 13645   0560 00 0 13714  6620         LDQ N
 13646   0260 00 0 13716  6621         FMP E
 13647   0601 00 0 13714  6622         STO N
 13650   0020 00 0 14023  6623         TRA P09
 13651   0 00000 0 00000  6624   M1
 13652   0 00000 0 00000  6625   M2
 13653   0 00000 0 00001  6626   M3        1
 13654   0 00400 0 00000  6627   M4        0,0,256
 13655   0534 00 1 00000  6628   P41   LXA ZERO,1
 13656   0560 00 0 13725  6629   P11   LDQ W
 13657   0260 00 1 13746  6630         FMP A6,1
 13660   0300 00 1 13745  6631         FAD A5,1
 13661   0601 00 1 13745  6632         STO A5,1
 13662   1 00001 1 13663  6633         TXI P10,1,1
 13663  -3 00005 1 13656  6634   P10   TXL P11,1,5
 13664   0601 00 0 13725  6635         STO W
 13665   0534 00 2 00000  6636         LXA ZERO,2
 13666   0500 00 2 13755  6637   P13   CLA AP6,2
 13667   0601 00 2 13746  6638         STO A6,2
 13670   1 00001 2 13671  6639         TXI P12,2,1
 13671  -3 00006 2 13666  6640   P12   TXL P13,2,6
 13672   0534 00 1 00000  6641         LXA ZERO,1
 13673   0500 00 1 13737  6642   P15   CLA CP7,1
 13674   0601 00 1 13733  6643         STO C7,1                                                         PAGE 136
 13675   1 00001 1 13676  6644         TXI P14,1,1
 13676  -3 00003 1 13673  6645   P14   TXL P15,1,3
 13677   0560 00 0 13725  6646         LDQ W
 13700   0260 00 0 13725  6647         FMP W
 13701   0601 00 0 13725  6648         STO W
 13702   0560 00 0 13725  6649         LDQ W
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0126


 13703   0260 00 0 13725  6650         FMP W
 13704   0601 00 0 13725  6651         STO W
 13705   0020 00 0 13756  6652         TRA P16
 13706   0 00000 0 00000  6653   EA
 13707   0020 00 0 13763  6654   P171  TRA P17
 13710   0 00000 0 00000  6655   P24
 13711   0601 00 0 13716  6656   P21   STO E
 13712   0 00000 0 00000  6657   S1
 13713   0 00000 0 00000  6658   S2
 13714   0 00000 0 00000  6659   N
                   00000  6660   ZERO  SYN $ZERO
                   00415  6661   L200  SYN $QO200
 13715   0 00000 0 00000  6662   FN
 13716   0 00000 0 00000  6663   E
                   00435  6664   LL200 SYN QO2Q11
 13717  +200552023632     6665   RSQ   OCT +200552023632
 13720   0 00000 0 00000  6666   P04
 13721   0 00000 0 00000  6667   P05
 13722   0 00000 0 00000  6668   P06
 13723  +200542710300     6669   LOG   OCT +200542710300
 13724   0 00000 0 00000  6670   S3
 13725   0 00000 0 00000  6671   W
 13726  +201552023632     6672   SQ    OCT +201552023632
 13727  +200400000000     6673   R2    OCT +200400000000
 13730  +202561250731     6674   C1    OCT +202561250731
 13731  +200754342231     6675         OCT +200754342231
 13732  +200447154100     6676   C5    OCT +200447154100
 13733  +177674535132     6677   C7    OCT +177674535132
 13734  +202561250731     6678         OCT +202561250731
 13735  +200754342231     6679         OCT +200754342231
 13736  +200447154100     6680         OCT +200447154100
 13737  +177674535132     6681   CP7   OCT +177674535132
 13740  +201400000000     6682         OCT +201400000000
 13741  +176777776476     6683         OCT +176777776476
 13742  +174400037635     6684         OCT +174400037635
 13743  +170523517764     6685         OCT +170523517764
 13744  +164547625227     6686         OCT +164547625227
 13745  +157554324201     6687   A5    OCT +157554324201
 13746  +154562606535     6688   A6    OCT +154562606535
 13747  +201400000000     6689   L1    OCT +201400000000
 13750  +176777776476     6690         OCT +176777776476
 13751  +174400037635     6691         OCT +174400037635
 13752  +170523517764     6692         OCT +170523517764
 13753  +164547625227     6693         OCT +164547625227
 13754  +157554324201     6694         OCT +157554324201
 13755  +154562606535     6695   AP6   OCT +154562606535
 13756   0601 00 0 14022  6696   P16   STO EW
 13757   0500 00 0 13707  6697         CLA P171                                                         PAGE 137
 13760   0601 00 0 13763  6698         STO P17
 13761   0500 00 0 10261  6699         CLA EQ
 13762   0020 00 0 13575  6700         TRA P19
 13763   0020 00 0 14123  6701   P17   TRA P20
 13764   0020 00 0 13711  6702   P42   TRA P21
 13765   0601 00 0 13644  6703         STO P18
 13766   0534 00 1 00000  6704         LXA ZERO,1
 13767   0500 00 1 13737  6705   P23   CLA CP7,1
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0127


 13770   0601 00 1 13733  6706         STO C7,1
 13771   1 00001 1 13772  6707         TXI P22,1,1
 13772  -3 00003 1 13767  6708   P22   TXL P23,1,3
 13773   0560 00 0 13710  6709         LDQ P24
 13774   0260 00 0 13723  6710         FMP LOG
 13775   0302 00 0 13724  6711         FSB S3
 13776   0140 00 0 14013  6712         TOV P25
 13777   0601 00 0 13712  6713         STO S1
 14000   0560 00 0 13712  6714         LDQ S1
 14001   0260 00 0 13727  6715         FMP R2
 14002   0302 00 0 13747  6716         FSB L1
 14003   0601 00 0 13713  6717         STO S2
 14004   0560 00 0 13712  6718         LDQ S1
 14005   0260 00 0 13713  6719         FMP S2
 14006   0300 00 0 13747  6720         FAD L1
 14007   0601 00 0 13712  6721         STO S1
 14010   0560 00 0 14022  6722         LDQ EW
 14011   0260 00 0 13712  6723         FMP S1
 14012   0601 00 0 14022  6724         STO EW
 14013   0560 00 0 13651  6725   P25   LDQ M1
 14014   0260 00 0 14022  6726         FMP EW
 14015   0601 00 0 14022  6727         STO EW
 14016   0500 00 0 13714  6728         CLA N
 14017   0120 00 0 14113  6729         TPL P26
 14020   0500 00 0 13747  6730         CLA L1
 14021   0020 00 0 14111  6731         TRA P27
 14022   0 00000 0 00000  6732   EW
 14023   0560 00 0 00000  6733   P09   LDQ ZERO
 14024   0760 00 0 00003  6734         SSP
 14025   0765 00 0 00033  6735         LRS 27
 14026   0402 00 0 00415  6736         SUB L200
 14027   0020 00 0 14106  6737         TRA P28
 14030   0500 00 0 00000  6738   P40   CLA ZERO
 14031   0763 00 0 00000  6739  P39    LLS     **
 14032   0400 00 0 00415  6740         ADD L200
 14033   0400 00 0 13653  6741         ADD M3
 14034   0767 00 0 00033  6742         ALS 27
 14035   0400 00 0 13654  6743         ADD M4
 14036   0601 00 0 13651  6744         STO M1
 14037   0601 00 0 13652  6745         STO M2
 14040   0500 00 0 13652  6746         CLA M2
 14041  -0100 00 0 14060  6747         TNZ P29
 14042   0500 00 0 13714  6748         CLA N
 14043   0120 00 0 14047  6749         TPL P30
 14044   0500 00 0 13747  6750         CLA L1
 14045   0240 00 0 13651  6751         FDH M1                                                           PAGE 138
 14046  -0600 00 0 13651  6752         STQ M1
 14047   0534 00 1 00000  6753   P30   LXA ZERO,1
 14050   0500 00 1 13737  6754   P32   CLA CP7,1
 14051   0601 00 1 13733  6755         STO C7,1
 14052   1 00001 1 14053  6756         TXI P31,1,1
 14053  -3 00003 1 14050  6757   P31   TXL P32,1,3
 14054   0500 00 0 13651  6758         CLA M1
 14055  -0534 00 1 77662  6759         LXD COMMON,1
 14056  -0534 00 2 77663  6760         LXD COMMON+1,2
 14057   0020 00 4 00001  6761         TRA 1,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0128


 14060   0760 00 0 00000  6762   P29   CLM
 14061   0534 00 2 00000  6763         LXA ZERO,2
 14062   0763 00 0 00001  6764   P34   LLS 1
 14063   1 00001 2 14064  6765         TXI P33,2,1
 14064   0100 00 0 14062  6766   P33   TZE P34
 14065   0765 00 0 00001  6767         LRS 1
 14066  -0754 00 2 00000  6768         PXD 0,2
 14067   0771 00 0 00022  6769         ARS 18
 14070  -0760 00 0 00003  6770         SSM
 14071   0400 00 0 00415  6771         ADD L200
 14072   0400 00 0 13653  6772         ADD M3
 14073   0763 00 0 00033  6773         LLS 27
 14074   0601 00 0 13652  6774   P36   STO M2
 14075   0560 00 0 13723  6775         LDQ LOG
 14076   0260 00 0 13652  6776         FMP M2
 14077   0601 00 0 13725  6777         STO W
 14100   0020 00 0 14121  6778         TRA P35
 14101   0500 00 0 13747  6779   P37   CLA L1
 14102   0601 00 0 13651  6780         STO M1
 14103   0500 00 0 13714  6781         CLA N
 14104   0760 00 0 00003  6782         SSP
 14105   0020 00 0 14074  6783         TRA P36
 14106   0100 00 0 14101  6784   P28   TZE P37
 14107  -0120 00 0 14101  6785         TMI P37
 14110   0020 00 0 14117  6786         TRA P38
 14111   0240 00 0 14022  6787   P27   FDH EW
 14112  -0600 00 0 14022  6788         STQ EW
 14113   0500 00 0 14022  6789   P26   CLA EW
 14114  -0534 00 1 77662  6790         LXD COMMON,1
 14115  -0534 00 2 77663  6791         LXD COMMON+1,2
 14116   0020 00 4 00001  6792         TRA 1,4
 14117   0621 00 0 14031  6793   P38   STA P39
 14120   0020 00 0 14030  6794         TRA P40
 14121   0601 00 0 13724  6795   P35   STO S3
 14122   0020 00 0 00051  6796         TRA 41
 14123   0760 00 0 00003  6797   P20   SSP
 14124   0601 00 0 13710  6798         STO P24
 14125   0020 00 0 13764  6799         TRA P42
                          6800         HEAD    Q
                          6801  * ADD  ADDS A STRING OF FIXED POINT OR FLOATING POINT NUMBERS
 14126  -0634 00 4 03500  6802   ADDP  SXD     AMIR,4             SAVE LINK IR
 14127   0774 00 4 07355  6803         AXT     $PLUS,4
 14130   0604 00 0 03501  6804         STI     AMIND              SAVE INDICATORS
 14131   0057 00  000177  6805         RIR     177                RESET FIRST 7 INDICATORS              PAGE 139
 14132   0055 00  000001  6806         SIR     1                  SET ADD INDICATOR (1)
 14133   0020 00 0 14155  6807         TRA     AMMMF              GO TO MAIN FUNCTION
                          6808  *
 14134  -0634 00 4 03500  6809   MULT  SXD     AMIR,4             SAVE LINK IR
 14135   0774 00 4 06657  6810         AXT     $TIMES,4
 14136   0604 00 0 03501  6811         STI     AMIND              SAVE INDICATORS
 14137   0057 00  000177  6812         RIR     177                RESET FIRST 7 INDICATORS
 14140   0055 00  000002  6813         SIR     2                  SET MULTIPLY INDICATOR (2)
 14141   0020 00 0 14155  6814         TRA     AMMMF              GO TO MAIN FUNCTION
                          6815  *
 14142  -0634 00 4 03500  6816   MIN   SXD     AMIR,4             SAVE LINK IR
 14143   0774 00 4 07604  6817         AXT     $MINP,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0129


 14144   0604 00 0 03501  6818         STI     AMIND              SAVE INDICATORS
 14145   0057 00  000177  6819         RIR     177                RESET FIRST 7 INDICATORS
 14146   0055 00  000010  6820         SIR     10                 SET MINIMUM INDICATOR (10)
 14147   0020 00 0 14155  6821         TRA     AMMMF              GO TO MAIN FUNCTION
                          6822  *
 14150  -0634 00 4 03500  6823   MAX   SXD     AMIR,4             SAVE LINK IR
 14151   0774 00 4 07614  6824         AXT     $MAXP,4
 14152   0604 00 0 03501  6825         STI     AMIND              SAVE INDICATORS
 14153   0057 00  000177  6826         RIR     177                RESET FIRST 7 INDICATORS
 14154   0055 00  000004  6827         SIR     4                  SET MAXIMUM INDICATOR (4)
 14155   0634 00 4 03500  6828   AMMMF SXA     AMIR,4             PUT PROGRAM NAME WITH LINK IR
 14156   0074 00 4 02312  6829         TSX     $SAVE,4            OTHER 3 FUNCTIONS ENTER AT *-1
 14157  -3 03503 0 02377  6830         TXL     $END2,,AMIND+2     SAVE 2 ITEMS
 14160   0074 00 4 15774  6831         TSX     $EVLIS,4           EVALUATE THE LIST OF ARGUMENTS
 14161   0074 00 4 02326  6832         TSX     UNSAVE,4           RESTORE IR 4 AND INDICATORS
 14162   0634 00 2 14336  6833         SXA     AMIR2,2            SAVE IR 2
 14163   0600 00 0 14341  6834         STZ     AMSUM              ZERO FINAL ANSWER REGISTER
 14164  -0734 00 4 00000  6835   AMLP  PDX     0,4                PUT POINTER TO ARG LIST IN IR 4
 14165  -3 00000 4 14330  6836         TXL     AMEND,4,0          GO TO EXIT IF NULL
 14166   0500 00 4 00000  6837         CLA     0,4                GET FIRST WORD
 14167   0601 00 0 03502  6838         STO     AMLIS              SAVE THE WORD
 14170   0734 00 4 00000  6839         PAX     0,4                CAR OF LIST
 14171  -0754 00 4 00000  6840         PXD     0,4                TO DECREMENT
 14172   0074 00 4 14342  6841         TSX     NUMVAL,4           EVALUATE THE ITEM
 14173  -0600 00 0 03503  6842         STQ     AMQ                SAVE CHARACTERISTIC ($FIX OR $FLOAT)
 14174   0056 00  000100  6843         RNT     100                TEST FOR FIRST TIME THROUGH
 14175   0020 00 0 14220  6844         TRA     AMFRS              IS FIRST TIME GO TO INITIALIZE AMSUM
 14176   0054 00  000002  6845         RFT     2                  TEST FOR MULT FUNCTION
 14177   0020 00 0 14240  6846         TRA     AMLT               EXECUTE MULT FUNCTION
 14200  -0754 00 4 00000  6847         PXD     0,4                POINTER TO FULL WORD
 14201   0500 00 4 00000  6848         CLA     0,4                GET NUMERICAL VALUE
 14202   0056 00  000001  6849         RNT     1                  SKIP NEXT INSTRUCTION IF ADD FUNCTION
 14203   0020 00 0 14300  6850         TRA     AMM                EXECUTE MAX OR MIN FUNCTION
 14204  -0534 00 2 03503  6851         LXD     AMQ,2              ADD FUNCTION. PICK UP TYPE OF NUMBER
 14205   0074 00 4 14550  6852         TSX     FIXFLO,4           TEST FOR FIX OR FLOAT
 14206   0761 00 0 00000  6853         NOP                        IMPOSSIBLE RETURN
 14207   0020 00 0 14233  6854         TRA     AFLL               EXECUTE FAD
 14210   0055 00  000020  6855         SIR     20                 IS FIXED POINT. SET FIXED POINT IND.
 14211  -0774 00 4 14235  6856         AXC     AFLR,4             PRESET IR 4
 14212   0054 00  000040  6857         RFT     40                 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
 14213   0020 00 0 14266  6858         TRA     UNFX               IS MIXED, FLOAT THIS NUMBER
 14214   0400 00 0 14341  6859         ADD     AMSUM              FIXED ADD OF SUM                      PAGE 140
 14215   0601 00 0 14341  6860   AMRT  STO     AMSUM              STORE NEW SUM
 14216   0500 00 0 03502  6861         CLA     AMLIS              PICK UP ARG LIST
 14217   0020 00 0 14164  6862         TRA     AMLP               DO NEXT ITEM
 14220  -0734 00 4 00000  6863   AMFRS PDX     0,4                POINTER TO FULL WORD
 14221   0500 00 4 00000  6864         CLA     0,4                GET NUMERICAL VALUE
 14222   0601 00 0 14341  6865         STO     AMSUM              STORE NUMERICAL VALUE IN AMSUM
 14223  -0534 00 2 03503  6866         LXD     AMQ,2              PICK UP TYPE OF NUMBER
 14224   0074 00 4 14550  6867         TSX     FIXFLO,4           TEST FOR FIX OR FLOAT
 14225   0761 00 0 00000  6868         NOP                        IMPOSSIBLE EXIT
 14226   0055 00  000040  6869         SIR     40                 SET FLOAT INDICATOR
 14227   0055 00  000020  6870         SIR     20                 SET FIX INDICATOR
 14230   0055 00  000100  6871         SIR     100                SET INDICATOR SO IT WILL NOT GET BACK
 14231   0500 00 0 03502  6872         CLA     AMLIS              PICK UP REST OF ARG LIST
 14232   0020 00 0 14164  6873         TRA     AMLP               DO NEXT ITEM
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0130


 14233   0055 00  000040  6874   AFLL  SIR     40                 IS FLOATING POINT, SET PROPER INDICATO
 14234   0054 00  000020  6875         RFT     20                 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
 14235   0074 00 4 14270  6876   AFLR  TSX     MIXFL,4            UNMIX THE EXPRESSION
 14236   0300 00 0 14341  6877         FAD     AMSUM              FLOATING ADD THE CURRENT SUM
 14237   0020 00 0 14215  6878         TRA     AMRT               STORE AND DO NEXT ITEM ON LIST
 14240  -0734 00 4 00000  6879   AMLT  PDX     0,4                POINTER TO FULL WORD
 14241   0500 00 4 00000  6880         CLA     0,4                GET NUMERICAL VALUE
 14242  -0534 00 2 03503  6881         LXD     AMQ,2              PICK UP TYPE
 14243   0074 00 4 14550  6882         TSX     FIXFLO,4           TEST FOR FIX OR FLOAT
 14244   0761 00 0 00000  6883         NOP                        IMPOSSIBLE RETURN
 14245   0020 00 0 14260  6884         TRA     AFMP               DO FMP
 14246   0055 00  000020  6885         SIR     20                 SET FIXED POINT INDICATOR
 14247  -0774 00 4 14262  6886         AXC     AFLT,4             PRESET IR 4
 14250   0054 00  000040  6887         RFT     40                 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
 14251   0020 00 0 14266  6888         TRA     UNFX               IS MIXED, FLOAT THIS NUMBER
 14252   0131 00 0 00000  6889         XCA                        NUMBER TO MQ
 14253   0200 00 0 14341  6890         MPY     AMSUM              MPY BY CURRENT ANSWER
 14254   0131 00 0 00000  6891         XCA                        PUT LEAST SIGNIFICANT DIGITS IN AC
 14255   0601 00 0 14341  6892   AMRU  STO     AMSUM              STORE NEW ANSWER
 14256   0500 00 0 03502  6893         CLA     AMLIS              PICK UP ARG LIST
 14257   0020 00 0 14164  6894         TRA     AMLP               DO NEXT ITEM
 14260   0055 00  000040  6895   AFMP  SIR     40                 SET FLOATING POINT INDICATOR
 14261   0054 00  000020  6896         RFT     20                 TEST FOR MIXED EXP
 14262   0074 00 4 14270  6897   AFLT  TSX     MIXFL,4            UNMIX THE EXPRESSION
 14263   0131 00 0 00000  6898         XCA                        NUMBER TO MQ
 14264   0260 00 0 14341  6899         FMP     AMSUM              FMP BY CURRENT ANSWER
 14265   0020 00 0 14255  6900         TRA     AMRU               STORE NEW ANSER AND DO NEXT ITEM
 14266   0057 00  000020  6901   UNFX  RIR     20                 RESET FIXED POINT INDICATOR
 14267   0020 00 0 14565  6902         TRA     $UNFIX             FLOAT THE NUMBER IN THE AC
 14270   0634 00 4 14276  6903   MIXFL SXA     MXIR,4             FIX MIXED EXPRESSION
 14271   0601 00 0 14340  6904         STO     AMR                SAVE AC
 14272   0500 00 0 14341  6905         CLA     AMSUM              PICK UP CURRENT ANSWER
 14273   0074 00 4 14266  6906         TSX     UNFX,4             FLOAT IT
 14274   0601 00 0 14341  6907         STO     AMSUM              PUT IT AWAY
 14275   0500 00 0 14340  6908         CLA     AMR                RESTORE AC
 14276   0774 00 4 00000  6909   MXIR  AXT     **,4               RESTORE IR 4
 14277   0020 00 4 00001  6910         TRA     1,4                RETURN
 14300  -0534 00 2 03503  6911   AMM   LXD     AMQ,2              MAX OR MIN FUNCTION. GET TYPE
 14301   0074 00 4 14550  6912         TSX     FIXFLO,4           TEST FOR FIX OR FLOAT
 14302   0761 00 0 00000  6913         NOP                        IMPOSSIBLE RETURN                     PAGE 141
 14303   0020 00 0 14316  6914         TRA     AFL                EXECUTE FLOATING SECTION
 14304   0055 00  000020  6915         SIR     20                 SET FIXED PONT INDICATOR
 14305   0054 00  000040  6916         RFT     40                 TEST FOR MIXED EXP
 14306   0074 00 4 14266  6917         TSX     UNFX,4             FLOAT THE ARGUMENT IF MIXED
 14307   0056 00  000004  6918   AMRNT RNT     4                  TEST FORMAX FUNCTION
 14310   0020 00 0 14322  6919         TRA     AMIN               EXECUTE MIN FUNCTION
 14311   0340 00 0 14341  6920         CAS     AMSUM              COMPARE WITH CURRENT ANSWER
 14312   0601 00 0 14341  6921         STO     AMSUM              IS GREATER, STORE AS NEW ANSWER
 14313   0761 00 0 00000  6922         NOP                        THEY ARE EQUAL
 14314  -0500 00 0 03502  6923         CAL     AMLIS              IS LESS, PICK UP ARGUMENT LIST
 14315   0020 00 0 14164  6924         TRA     AMLP               DO NEXT ITEM
 14316   0055 00  000040  6925   AFL   SIR     40                 SET FLOATING POINT INDICATOR
 14317   0054 00  000020  6926         RFT     20                 TEST FOR MIXED EXPRESSION
 14320   0074 00 4 14270  6927         TSX     MIXFL,4            UNMIX THE EXPRESSION
 14321   0020 00 0 14307  6928         TRA     AMRNT              COMPARE AND DO NEXT ITEM
 14322   0340 00 0 14341  6929   AMIN  CAS     AMSUM              MIN FUNCTION, COMPARE WITH CURRENT VAL
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0131


 14323   0020 00 0 14326  6930         TRA     *+3                IS GREATER
 14324   0020 00 0 14326  6931         TRA     *+2                IS EQUAL
 14325   0601 00 0 14341  6932         STO     AMSUM              IS LESS, STORE AS NEW ANSWER
 14326   0500 00 0 03502  6933         CLA     AMLIS              PICK UP NEXT ITEM
 14327   0020 00 0 14164  6934         TRA     AMLP               EXECUTE IT
 14330   0500 00 0 14341  6935   AMEND CLA     AMSUM              ALL DONE. PICKUP CURRENT ANSWER
 14331   0560 00 0 00475  6936         LDQ     AMFXC              PRESET MQ
 14332   0054 00  000040  6937         RFT     40                 SKIP NEXT IF FIXED POINT
 14333   0560 00 0 00476  6938         LDQ     AMFLC              PICK UPI FIX IN MQ
 14334   0441 00 0 03501  6939         LDI     AMIND              RESTORE INDICATORS
 14335  -0534 00 4 03500  6940         LXD     AMIR,4             RESTORE IR 4
 14336   0774 00 2 00000  6941   AMIR2 AXT     **,2               RESTORE IR 2
 14337   0020 00 0 12636  6942         TRA     $MKNO              MAKE THE ANSWER A NUMBER
                   00476  6943   AMFLC SYN     FLOATD             FLAOT CONSTANT
                   00475  6944   AMFXC SYN     $FIXD              FIX CONSTANT
 14340   0 00000 0 00000  6945   AMR                              TEMP STORAGE
 14341   0 00000 0 00000  6946   AMSUM                            CURRENT ANSWER STORAGE
                          6947  * NUMVAL       NUMERICAL VALUE TAKES ANY LIST AND DECIDES IF IT
                          6948  *      REPRESENTS A FIXED POINT OR FLOATING POINT NUMBER. IF IT DOES NOT
                          6949  *      THE ROUTINE CLEARS THE AC AND MQ DOES AN XEC 1,4 AND THEN GOES
                          6950  *      TO ERROR WITH A BAD ARGUMENT COMPLAINT. IF THE LIST DOES
                          6951  *      REPRESENT A NUMBER, UPON EXIT THE FOLLOWING THINGS ARE LEFT
                          6952  *      AS INDICATED               POINTER TO FULL WORD IN AC
                          6953  *                                 $FIX OR $FLOAT IN MQ
 14342   0634 00 4 14372  6954  NUMVAL SXA     NVIR4,4            SAVE LINK IR
 14343   0601 00 0 03321  6955         STO     $ARG3              SAVE ORIGINAL ARGUMENT
 14344  -0734 00 4 00000  6956         PDX     0,4                POINTER TO NUMBER IN IR 4
 14345  -3 00000 4 14351  6957   NVLP  TXL     NVNO,4,0           NULL  LIST IS NOT A NUMBER
 14346   0500 00 4 00000  6958         CLA     0,4                FIRST ELEMENT
 14347   0734 00 4 00000  6959         PAX     0,4                CAR LIST
 14350   3 77776 4 14362  6960         TXH     NVATM,4,-2         GO IF AN ATOM
                          6961  *
 14351  -0754 00 0 00000  6962   NVNO  PXD     0,0                IS NOT NUMBER, CLEAR AC
 14352   0131 00 0 00000  6963         XCA                        PUT IN MQ
 14353  -0754 00 0 00000  6964         PXD     0,0                CLEAR AC AGAIN
 14354   0534 00 4 14372  6965         LXA     NVIR4,4            RESTORE LINK IR
 14355   0522 00 4 00001  6966         XEC     1,4                EXECUTE POSSIBLE EXIT INSTRUCTION
 14356   0500 00 0 03321  6967         CLA     $ARG3              MUST BE AN ERROR, PICK UP ORIGINAL ARGPAGE 142
 14357  -0634 00 4 01562  6968         SXD     $ERROR,4
 14360   0074 00 4 01563  6969         TSX     $ERROR+1,4         GO TO ERROR
 14361   543160600354     6970         BCI     1,*I  3*           BAD ARGUMENT NUMVAL
                          6971  *
 14362  -0754 00 4 00000  6972  NVATM  PXD     0,4
 14363  -0320 00 0 00470  6973         ANA     TAGMSK
 14364   0100 00 0 14351  6974         TZE     NVNO
 14365   0771 00 0 00017  6975         ARS     15
 14366   0621 00 0 14370  6976         STA     *+2
 14367  -0754 00 4 00000  6977         PXD     0,4
 14370  -0774 00 4 00000  6978         AXC     **,4
 14371   0560 00 4 14373  6979         LDQ     NVTBL,4
 14372   0774 00 4 00000  6980   NVIR4 AXT     **,4               RESTORE IR 4
 14373   0020 00 4 00001  6981  NVTBL  TRA     1,4
 14374   0 10135 0 00000  6982                 0,,$FIX
 14375   0 10120 0 00000  6983                 0,,$FLOAT
 14376   0 00000 0 00000  6984                 0,,0
 14377   0 00000 0 00000  6985                 0,,0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0132


 14400   0 10135 0 00000  6986                 0,,$FIX
                          6987  *
                          6988  *
                          6989  * ADD1         ADD 1 ADDS ONE TO ANY FIXED POINT OR FLOATING POINT
                          6990  *      NUMBER AND EXITS WITH THE NUMBER NUMBER
 14401   0634 00 1 14417  6991   ADD1  SXA     A1IR1,1            SAVE IR 1
 14402   0774 00 1 00000  6992         AXT     0,1                ZERO IR 1(INDICATES ADD OP)
 14403   0634 00 2 14420  6993   AD1   SXA     A1IR2,2            SAVE IR 2
 14404   0634 00 4 14421  6994         SXA     A1IR4,4            SAVE LINK IR
 14405   0074 00 4 14342  6995         TSX     NUMVAL,4           EVALUTE NUMERICAL ARGUMENT
 14406  -0600 00 0 14423  6996         STQ     A1T                SAVE $FIX OR $FLOAT
 14407  -0734 00 4 00000  6997         PDX     0,4                POINTER TO FULL WORD
 14410   0500 00 4 00000  6998         CLA     0,4                GET NUMERICAL VALUE
 14411  -0534 00 2 14423  6999         LXD     A1T,2              PICK UP $FIX OR $FLOAT
 14412   0074 00 4 14550  7000         TSX     FIXFLO,4
 14413   0761 00 0 00000  7001         NOP                        IMPOSSIBLE RETURN
 14414   0522 00 1 14424  7002         XEC     FAD,1              IS FLOAT, DO FLOATING POINT OP
 14415   0522 00 1 14426  7003         XEC     ADDF,1             DO FIXED POINT OP
 14416   0560 00 0 14423  7004         LDQ     A1T                RESTORE $FLOAT AFTER FAD
 14417   0774 00 1 00000  7005   A1IR1 AXT     **,1               RESTORE IR 1
 14420   0774 00 2 00000  7006   A1IR2 AXT     **,2               RESTORE IR 2
 14421   0774 00 4 00000  7007   A1IR4 AXT     **,4               RESTORE LINK IR
 14422   0020 00 0 12636  7008         TRA     $MKNO              MAKE RESULT A NUMBER
                          7009  *
 14423   0 00000 0 00000  7010   A1T                              TEMPORARY STORAGE
 14424   0300 00 0 00454  7011   FAD   FAD     $QF1               FLOATING ADD FOR ADD1
 14425   0302 00 0 00454  7012         FSB     $QF1               FOR SUB1
 14426   0400 00 0 00371  7013   ADDF  ADD     $Q1                FOR ADD1
 14427   0402 00 0 00371  7014         SUB     $Q1                FOR SUB1
                          7015  *
                          7016  * SUB1         SUBTRACT 1 SUBTRACTS ONE FROM A FIXED POINT OR FLOATING
                          7017  *      POINT NUMBER. USES CODING OF ADD1 WITH AN INITIALIZATION.
 14430   0634 00 1 14417  7018   SUB1  SXA     A1IR1,1            SAVE IR1
 14431   0774 00 1 77777  7019         AXT     -1,1               SET FOR SUBTRACT OPERATIONS
 14432   0020 00 0 14403  7020         TRA     AD1                PERFORM ADD1 CODING
                          7021  * SUB1 USES THE CODING OF ADD1                                          PAGE 143
                          7022  *
                          7023  *
 14433   0634 00 4 14437  7024  GRTRTP SXA     GRTIR,4            SAVE LINK IR
 14434   0074 00 4 13350  7025         TSX     UNUMIX,4           EVALUATE NUMERICAL ARGUMENTS
 14435   0040 00 0 14441  7026         TLQ     GRTT               PREDICATE TRUE
 14436  -0754 00 0 00000  7027         PXD     0,0                FALSE, CLEAR AC
 14437   0774 00 4 00000  7028   GRTIR AXT     **,4
 14440   0020 00 4 00001  7029         TRA     1,4                EXIT
                          7030  *
 14441   0500 00 0 00442  7031   GRTT  CLA     $QD1               GET TRUE VALUE
 14442   0020 00 0 14437  7032         TRA     GRTIR              RESTORE LINK IR AND EXIT
                          7033  *
                          7034  *
                          7035  * LESSTP       LESS THAN PREDICATE.  SIMPLE DOES GREATER THAN  PREDICATE
                          7036  *      WITH THA ARGUMENT REVERSED.
                          7037  *
 14443   0131 00 0 00000  7038  LESSTP XCA                        INTERCHANGE ARGUMENTS
 14444   0020 00 0 14433  7039         TRA     GRTRTP             DO GREATER THAN PREDICATE
                          7040  *
                          7041  * THE FOLLOWING IS A NUMBER PREDICATE PACKAGE WHICH INCLUDES NUMBER
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0133


                          7042  *      PREDICATE, ZERO PREDICATE, MINUS PREDICATE, ONE PREDICATE, FIX
                          7043  *      PREDICATE AND FLOAT PREDICATE. ALL THESE PREDICATES SHARE CERTAIN
                          7044  *      BLOCKS OF CODING AND TEMPORARY STORAGE.
                          7045  * NUMBRP       NUMBER PREDICATE TEST ITS ARGUMENT FOR A NUMBER
 14445   0634 00 4 14451  7046  NUMBRP SXA     NPIR,4             SAVE LINK IR
 14446   0074 00 4 14342  7047         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14447   0100 00 0 14451  7048         TZE     NPIR               IF ZERO NOT A NUMBER
 14450   0500 00 0 00442  7049   NPT   CLA     $QD1               IS A NUMBER, PICK UP TRUTH
 14451   0774 00 4 00000  7050   NPIR  AXT     **,4               RESTORE LINK IR
 14452   0020 00 4 00001  7051         TRA     1,4                EXIT
                          7052  *
                          7053  * FLOATP       FLOATING POINT NUMBER PREDICATE TESTS TO SEE IF ITS
                          7054  *      ARGUMENT IS A FLOATING POINT NUMBER
 14453   0634 00 4 14451  7055  FLOATP SXA     NPIR,4             SAVE LINK IR
 14454   0634 00 2 14525  7056         SXA     ZPIR,2             SAVE IR 2
 14455   0074 00 4 14342  7057         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14456   0131 00 0 00000  7058         XCA                        GET TYPE IN AC
 14457  -0734 00 2 00000  7059         PDX     0,2                TYPE IN IR 2
 14460   0074 00 4 14550  7060         TSX     FIXFLO,4           TEST FOR $FIX OR $FLOAT
 14461   0761 00 0 00000  7061         NOP                        IMPOSSIBLE RETURN
 14462   0020 00 0 14464  7062         TRA     FLT                IS FLOATING POINT
 14463   0020 00 0 14524  7063         TRA     ZPF                IS NOT FLOATING POINT, EXIT FALSE
 14464   0500 00 0 00442  7064   FLT   CLA     $QD1               GET TRUTH VALUE
 14465   0020 00 0 14525  7065         TRA     ZPIR               RESTORE IR S AND EXIT
                          7066  *
                          7067  * FIXP         FIXED POINT PREDICATE TESTS FOR FIXED POINT NUMBERS.
 14466   0634 00 4 14451  7068   FIXP  SXA     NPIR,4             SAVE LINK IR
 14467   0634 00 2 14525  7069         SXA     ZPIR,2             SAVE IR 2
 14470   0074 00 4 14342  7070         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14471   0131 00 0 00000  7071         XCA                        GET TYPE IN AC
 14472  -0734 00 2 00000  7072         PDX     0,2                TYPE IN IR 2
 14473   0074 00 4 14550  7073         TSX     FIXFLO,4           TEST FOR $FIX OR $FLOAT
 14474   0761 00 0 00000  7074         NOP                        IMPOSSIBLE EXIT
 14475   0020 00 0 14524  7075         TRA     ZPF                IS FLOAT, EXIT FALSE                  PAGE 144
 14476   0500 00 0 00442  7076         CLA     $QD1               IS FIX, GET TRUTH VALUE
 14477   0020 00 0 14525  7077         TRA     ZPIR               RESTORE IR S AND RETURN
                          7078  *
                          7079  * MINUSP       MINUS PREDICATE TESTS TO SEE IF ITS ARGUMENT IS A
                          7080  *      NEGATIVE NUMBER.
 14500   0634 00 4 14451  7081  MINUSP SXA     NPIR,4             SAVE LINK IR
 14501   0074 00 4 14342  7082         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14502  -0734 00 4 00000  7083         PDX     0,4
 14503   0500 00 4 00000  7084         CLA     0,4                PICK UP NUMBER
 14504  -0120 00 0 14450  7085         TMI     NPT                EXIT TRUE IF MINUS
 14505  -0754 00 0 00000  7086         PXD     0,0                IS NOT, EXIT FALSE
 14506   0020 00 0 14451  7087         TRA     NPIR               RESTORE LINK IR AND EXIT
                          7088  *
                          7089  * ZEROP        ZERO PREDICATE TESTS ITS ARGUMENT FOR A FIXED POINT
                          7090  *      ZERO    OR
                          7091  *      ZERO OR A FLOATING POINT ZERO + OR - A TOLERANCE (FLOTOL).
 14507   0634 00 4 14451  7092   ZEROP SXA     NPIR,4             SAVE LINK IR
 14510   0634 00 2 14525  7093         SXA     ZPIR,2             SAVE IR 2
 14511   0074 00 4 14342  7094         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14512  -0734 00 4 00000  7095         PDX     0,4                GET POINTER TO IR 4
 14513   0500 00 4 00000  7096         CLA     0,4                FULL WORD
 14514   0760 00 0 00003  7097  ZPG    SSP                        GET MAGNITUDE OF N
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0134


 14515   0100 00 0 14527  7098         TZE     ZPT                EXIT TRUE IF ZERO
 14516   0131 00 0 00000  7099         XCA                        PUT NUMBER IN MQ
 14517  -0734 00 2 00000  7100         PDX     0,2                PUT TYPE IN IR 2
 14520   0500 00 0 14623  7101         CLA     FLOTOL             PICK UP FLOATING POINT TOLERENCE
 14521   0074 00 4 14550  7102         TSX     FIXFLO,4           TEST FOR FIX OR FLOAT
 14522   0020 00 0 14531  7103         TRA     ZPTS               NOT FIX OR FLO MEANS FLO FROM ONEP
 14523   0020 00 0 14531  7104         TRA     ZPTS               IS FLOATING POINT, COMPARE WITH FLOTOL
 14524  -0754 00 0 00000  7105   ZPF   PXD     0,0                IS FIXED POINT, EXIT FALSE
 14525   0774 00 2 00000  7106   ZPIR  AXT     **,2               RESTORE IR 2
 14526   0020 00 0 14451  7107         TRA     NPIR               RESTORE IR 4 AND EXIT
 14527   0500 00 0 00442  7108   ZPT   CLA     $QD1               GET TRUTH VALUE
 14530   0020 00 0 14525  7109         TRA     ZPIR               RESTORE IR S AND EXIT
 14531   0040 00 0 14527  7110   ZPTS  TLQ     ZPT                IS FLOATING POINT, EXIT TRUE IF LESS
 14532   0020 00 0 14524  7111         TRA     ZPF                OTHERWISE EXIT FALSE
                          7112  * ONEP         ONE PREDICAT TESTS TO SEE IF ITS ARGUMENT IS ONE
                          7113  *      BY SUBTRACTIGN ONE AND TESTING THE RESULT WITH ZEROP.
 14533   0634 00 4 14451  7114   ONEP  SXA     NPIR,4             SAVE LINK IR
 14534   0634 00 2 14525  7115         SXA     ZPIR,2             SAVE IR 2
 14535   0074 00 4 14342  7116         TSX     NUMVAL,4           EVALUATE ARGUMENT
 14536  -0734 00 4 00000  7117         PDX     0,4                POINTER TO AC
 14537   0500 00 4 00000  7118         CLA     0,4                FULL WORD TO AC
 14540   0131 00 0 00000  7119         XCA                        TYPE TO AC
 14541  -0734 00 2 00000  7120         PDX     0,2                TYPE TO IR 2
 14542   0131 00 0 00000  7121         XCA
 14543   0074 00 4 14550  7122         TSX     FIXFLO,4           DISPATCH ON FIX OR FLOAT
 14544   0761 00 0 00000  7123         NOP                        IMPOSSIBLE RETURN
 14545   0302 00 0 00454  7124         FSB     $QF1
 14546   0402 00 0 00371  7125         SUB     $Q1                SUBTRACT 1
 14547   0020 00 0 14514  7126         TRA     ZPG                APPLY ZERO PREDICATE
                          7127  *
                          7128  *      FIXFLO                     SUBROUTINE TO DISPATCH ON FIX OR FLO,
                          7129  *                                 ARGUMENT IN IR 2.                     PAGE 145
                          7130  *
 14550  -3 10134 2 14552  7131  FIXFLO TXL     *+2,2,$FIX-1       TXL - TXL FILTER FOR $FIX
 14551  -3 10135 2 14564  7132         TXL     FX,2,$FIX          GO IF $FIX
 14552  -3 10117 2 14554  7133         TXL     *+2,2,$FLOAT-1     TXL - TXL FILTER FOR FLOAT
 14553  -3 10120 2 14560  7134         TXL     FL,2,$FLOAT        GO IF $FLOAT
 14554   0522 00 4 00001  7135         XEC     1,4                EXECUTE IF NEITHER FIX OR FLOAT
 14555   0020 00 4 00004  7136         TRA     4,4                RETURN
 14556   0020 00 4 00005  7137         TRA     5,4                SKIP EXIT
 14557   0020 00 4 00006  7138         TRA     6,4                SKIP 2 EXIT
 14560   0522 00 4 00002  7139   FL    XEC     2,4                EXECUTE IF $FLOAT
 14561   0020 00 4 00004  7140         TRA     4,4                RETURN
 14562   0020 00 4 00005  7141         TRA     5,4                SKIP EXIT
 14563   0020 00 4 00006  7142         TRA     6,4                SKIP 2 EXIT
 14564   0020 00 4 00003  7143   FX    TRA     3,4
                          7144  *      FIXFLO USES $FIX AND $FLAOT
                          7145  * UNFIX        UNFIX MAKES A FIXED POINT ARGUMENT IN THE AC A FLOATING
                          7146  *      POINT NUMBER LEFT IN AC. MQ IS PRESERVED.
 14565   0601 00 0 14621  7147   UNFIX STO     UFC                SAVE ARGUMENT
 14566  -0320 00 0 00434  7148         ANA     UFMSK              MASK OUT ALL BUT CHARACTERISTIC
 14567  -0100 00 0 14576  7149         TNZ     UFE                IF ANY THING LEFT IT MUST BE NORMALIZD
 14570   0500 00 0 14621  7150         CLA     UFC                NOTHING LEFT, RESTORE ARGUMENT
 14571  -0501 00 0 00433  7151         ORA     UFMC               OR IN CHARACTERISTIC
 14572  -0600 00 0 14620  7152         STQ     UFQ                SAVE MQ
 14573   0300 00 0 00433  7153         FAD     UFMC               ESSENTIALLY FAD OR ZERO TO NORMALIZE
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0135


 14574   0560 00 0 14620  7154         LDQ     UFQ                RESTORE MQ
 14575   0020 00 4 00001  7155         TRA     1,4                EXIT
                          7156  *
 14576   0634 00 4 14616  7157   UFE   SXA     UFXR,4             NUMBER GREATER THAN 2 TO 27. SAVE IR 4
 14577   0774 00 4 00234  7158         AXT     2*64+3*8+4,4        CHARACTERISTIC SO FAR
 14600   0600 00 0 14622  7159         STZ     UFS                INITIALIZE SIGN PORTION
 14601   0120 00 0 14604  7160         TPL     UFF                SKIP IF +
 14602   0760 00 0 00003  7161         SSP                        MAKE IT +
 14603  -0625 00 0 14622  7162         STL     UFS                RECORD FACT BY MAKING UFS NON-ZERO
 14604   0771 00 0 00001  7163   UFF   ARS     1                  DIVIDE NUMBER BY 2
 14605   0340 00 0 00000  7164         CAS     UFNC               SEE IF NORMALIZED YET
 14606   1 00001 4 14604  7165         TXI     UFF,4,1            ADD 1 TO CHARACTERISTIC AND TRY AGAIN
 14607   1 00001 4 14604  7166         TXI     UFF,4,1            DITTO
 14610   0601 00 0 14621  7167         STO     UFC                IS NORMALIZED
 14611  -0754 00 4 00000  7168         PXD     0,4                CHARACTERISTIC TO AC
 14612   0767 00 0 00011  7169         ALS     9                  POSITION CHARACTERISTIC
 14613  -0501 00 0 14621  7170         ORA     UFC                OR IN NORMALIZED NUMBER
 14614   0520 00 0 14622  7171         ZET     UFS                TEST FOR SIGN, 0 MEANS +
 14615  -0760 00 0 00003  7172         SSM                        NOT ZERO SO MAKE MINUS
 14616   0774 00 4 00000  7173   UFXR  AXT     **,4               RESTORE IR 4
 14617   0020 00 4 00001  7174         TRA     1,4                EXIT
                   00434  7175   UFMSK SYN Q777Q9                 CHARACTERISTIC MASK
                   00433  7176   UFMC  SYN Q233Q9                 GENERAL CHARACTERISTIC
                   00000  7177   UFNC  SYN Q01Q9
 14620   0 00000 0 00000  7178   UFQ                              MQ
 14621   0 00000 0 00000  7179   UFC                              AC TEMPORARY STORAGE
 14622   0 00000 0 00000  7180   UFS                              SIGN STORAGE
                          7181  * UNFIX USES NO EXTERNAL CONSTANTS.
                          7182  * FLOTOL       FLOATING POINT TOLERENCE USED IN DESIDING IF FLOATING
                          7183  *      POINT NUMBERS ARE INTEGERS.                                      PAGE 146
 14623  +156622516334     7184  FLOTOL DEC     3E-6               FLOATING POINT TOLERENCE VALUE
                          7185  * MNSPRG       MINUS PROGRAM MAKES A LIST OF MINUS AND ITS ARGUMENT
                          7186  *
                          7187  * MNSPRG       CREATES A NUMBER OF OPPOSITE SIGN OF NUMERAL ARGUMENT
                          7188  *
 14624   0634 00 4 14631  7189  MNSPRG SXA     MRXR,4             SAVE LINK IR
 14625   0074 00 4 14342  7190         TSX     NUMVAL,4           EVALUATE THE NUMERICAL ARGUMENT
 14626  -0734 00 4 00000  7191         PDX     0,4                POINTER TO FULL WORD
 14627   0500 00 4 00000  7192         CLA     0,4                NUMERICAL VALUE
 14630   0760 00 0 00002  7193         CHS                        MAKE OPPOSITE SIGN
 14631   0774 00 4 00000  7194   MRXR  AXT     **,4               RESTORE LINK IR
 14632   0020 00 0 12636  7195         TRA     $MKNO              MAKE IT A NUMBER
                          7196  *
                          7197  * RCPPRG       CALCULATES THE RECIPORICAL OF A NUMBER.
 14633   0634 00 4 14654  7198  RCPPRG SXA     RRXR,4             SAVE LINK IR
 14634   0634 00 2 14655  7199         SXA     RRXR2,2            SAVE IR 2
 14635   0074 00 4 14342  7200         TSX     NUMVAL,4           EVALUTE THE NUMERICAL ARGUMENT
 14636  -0734 00 4 00000  7201         PDX     0,4                POINTER TO FULL WORD
 14637   0500 00 4 00000  7202         CLA     0,4                NUMERICAL VALUE
 14640   0601 00 0 14662  7203         STO     RCPT               SAVE VALUE
 14641   0131 00 0 00000  7204         XCA                        TYPE TO AC
 14642  -0734 00 2 00000  7205         PDX     0,2                TYPE TO IR 2
 14643   0074 00 4 14550  7206         TSX     FIXFLO,4           DISPATCH ON FIX OR FLOAT
 14644   0761 00 0 00000  7207         NOP                        IMPOSSIBLE RETURN
 14645   0500 00 0 00454  7208         CLA     $QF1               IS FLOAT, PICK UP FLOATING POINT 1
 14646   0020 00 0 14657  7209         TRA     RCPFX              IS FIXED POINT
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0136


 14647   0241 00 0 14662  7210         FDP     RCPT               DIVIDE BY ARGUMENT
 14650   0760 00 0 00012  7211         DCT                        CHECK FOR ILLEGAL DIVISION
 14651   0074 00 4 01676  7212         TSX     $DCT,4             DIVIDE CHECK ERROR
 14652   0131 00 0 00000  7213         XCA                        QUOTENT TO AC
 14653   0560 00 0 00476  7214         LDQ     RCPS               $FLOAT TO MQ
 14654   0774 00 4 00000  7215   RRXR  AXT     **,4               RESTORE LINK IR
 14655   0774 00 2 00000  7216   RRXR2 AXT     **,2               RESTORE IR 2
 14656   0020 00 0 12636  7217         TRA     $MKNO              MAKE ANSWER A NUMBER
                          7218  *
 14657   0131 00 0 00000  7219   RCPFX XCA                        FIXED POINT RECIP, ANSWER IS ZERO
 14660  -0754 00 0 00000  7220         PXD     0,0                CLEAR AC
 14661   0020 00 0 14654  7221         TRA     RRXR               RESTORE IR S AND MAKE A NUMBER
                          7222  *
 14662   0 00000 0 00000  7223   RCPT                             TEMPORARY STORAGE
                   00476  7224   RCPS  SYN     FLOATD             FLOAT INDICATOR
                          7225  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0137


                          7226         EJECT                                                            PAGE 147
                          7227             APPLY
                          7228
                          7229             APPLY(F,L,A) =
                          7230                SELECT(CAR(L).,
                          7231                       -1,APP2(F,L,A).,
                          7232                       LAMBDA,EVAL(F,APPEND(PAIR(CADR(F),L),A)).,
                          7233                       LABEL,APPLY(CADDR(F),L,APPEND(
                          7234                            PAIR1(CADR(F),CADDR(F))),A).,
                          7235                       APPLY(EVAL(F,A),L,A))
                          7236
                          7237         HEAD A
 14663  -0634 00 4 03350  7238   APPLY SXD ASS1,4
 14664   0100 00 4 00001  7239         TZE 1,4
 14665   0601 00 0 03353  7240         STO AST1                   F
 14666  -0734 00 4 00000  7241         PDX 0,4
 14667   0634 00 4 03350  7242         SXA     ASS1,4             SAVE FUNCTION ALONG WITH INDEX REGISTE
 14670   0500 00 4 00000  7243         CLA 0,4                    CWR(F)
 14671   0734 00 4 00000  7244         PAX 0,4                    CAR(F)
 14672   3 77776 4 14722  7245         TXH ASP1,4,-2              =-1
 14673  -0754 00 4 00000  7246         PXD 0,4
 14674   0340 00 0 00502  7247         CAS ASLMD                  = LAMBDA
 14675   0020 00 0 14677  7248         TRA *+2
 14676   0020 00 0 14725  7249         TRA ASP2
 14677   0340 00 0 00500  7250         CAS ASFUN
 14700   0020 00 0 14702  7251         TRA *+2
 14701   0020 00 0 15000  7252         TRA ASP4
 14702   0340 00 0 00501  7253         CAS ASLBL                  = LABEL
 14703   0020 00 0 14705  7254         TRA *+2
 14704   0020 00 0 14750  7255         TRA ASP3
 14705   0074 00 4 02312  7256         TSX $SAVE,4
 14706  -3 03354 0 02375  7257         TXL     $END3,,ASSA+2      SAVE 3 ITEMS
 14707  -0600 00 0 03351  7258         STQ ASSL
 14710   0560 00 0 03321  7259         LDQ $ARG3
 14711  -0600 00 0 03352  7260         STQ ASSA
 14712   0500 00 0 03353  7261         CLA AST1                   F
 14713   0074 00 4 15454  7262         TSX $EVAL,4                EVAL(F,A)
 14714   0560 00 0 03352  7263         LDQ ASSA
 14715  -0600 00 0 03321  7264         STQ $ARG3
 14716   0560 00 0 03351  7265         LDQ ASSL
 14717   0074 00 4 02326  7266         TSX UNSAVE,4
 14720  -0534 00 4 03350  7267         LXD ASS1,4
 14721   0020 00 0 14663  7268         TRA APPLY                  APPLY(EVAL(F,A),L,A)
                          7269
 14722   0500 00 0 03353  7270   ASP1  CLA AST1                   F
 14723  -0534 00 4 03350  7271         LXD ASS1,4
 14724   0020 00 0 15016  7272         TRA $APP2                  P APP29F,L,A)
                          7273  *              LAMBDA BRANCH
 14725  -0534 00 4 03353  7274   ASP2  LXD AST1,4                 F
 14726   0500 00 0 03321  7275         CLA $ARG3
 14727   0601 00 0 03355  7276         STO AST3
 14730   0500 00 4 00000  7277         CLA 0,4                    CWR(F)
 14731  -0734 00 4 00000  7278         PDX 0,4                    CDR(F)
 14732   0500 00 4 00000  7279         CLA 0,4                   CWDR(F)
 14733   0601 00 0 03356  7280         STO AST4                                                         PAGE 148
 14734   0734 00 4 00000  7281         PAX 0,4                    CADR(F)
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0138


 14735  -0754 00 4 00000  7282         PXD 0,4
 14736   0074 00 4 07562  7283         TSX $PAIR,4                PAIR(CADR(F),L)
 14737   0560 00 0 03355  7284         LDQ AST3                   A
 14740   0074 00 4 07675  7285         TSX     $NCONC,4
 14741   0131 00 0 00000  7286         XCA
 14742  -0534 00 4 03356  7287         LXD AST4,4                 CDDR(F)
 14743   0500 00 4 00000  7288         CLA 0,4
 14744   0734 00 4 00000  7289         PAX 0,4
 14745  -0754 00 4 00000  7290         PXD 0,4
 14746  -0534 00 4 03350  7291         LXD ASS1,4
 14747   0020 00 0 15454  7292         TRA $EVAL      EVAL(CADDR(F),APPEND(PAIR(CADR(F),L),A))
                          7293
                          7294  *              LABEL BRANCH
 14750  -0534 00 4 03353  7295   ASP3  LXD AST1,4                 F
 14751  -0600 00 0 03354  7296         STQ AST2                   L
 14752   0560 00 0 03321  7297         LDQ $ARG3                  A
 14753  -0600 00 0 03355  7298         STQ AST3
 14754   0500 00 4 00000  7299         CLA 0,4                    CWR(F)
 14755  -0734 00 4 00000  7300         PDX 0,4                    CDR(F)
 14756   0500 00 4 00000  7301         CLA 0,4
 14757   0601 00 0 03356  7302         STO AST4                   CWDR(F)
 14760  -0734 00 4 00000  7303         PDX 0,4                    CDDR(F)
 14761   0500 00 4 00000  7304         CLA 0,4
 14762   0734 00 4 00000  7305         PAX 0,4                    CADDR(F)
 14763  -0754 00 4 00000  7306         PXD 0,4
 14764   0601 00 0 03353  7307         STO AST1
 14765   0131 00 0 00000  7308         XCA
 14766   0534 00 4 03356  7309         LXA AST4,4
 14767  -0754 00 4 00000  7310         PXD 0,4                    CADR(F)
 14770   0074 00 4 03730  7311         TSX $CONS,4                CONS(CADR(F),CONS(CADDR(F),0))
 14771   0560 00 0 03355  7312         LDQ AST3                   A
 14772   0074 00 4 03730  7313         TSX $CONS,4                APPEND( ABOVE,A)
 14773   0601 00 0 03321  7314         STO $ARG3
 14774   0560 00 0 03354  7315         LDQ AST2
 14775   0500 00 0 03353  7316         CLA AST1                   CADDR(F)
 14776  -0534 00 4 03350  7317         LXD ASS1,4
 14777   0020 00 0 14663  7318         TRA APPLY   APPLY(CADDR(F),L,APPEND(PAIR(CADR(F),CADDR(F)),A))
                          7319
                          7320  *              FUNARG BRANCH
 15000  -0534 00 4 03353  7321   ASP4  LXD AST1,4                 F
 15001   0500 00 4 00000  7322         CLA ,4
 15002  -0734 00 4 00000  7323         PDX ,4                     CDR(F)
 15003   0500 00 4 00000  7324         CLA ,4
 15004   0601 00 0 03353  7325         STO AST1                   CWDR(F)
 15005  -0734 00 4 00000  7326         PDX ,4                     CDDR(F)
 15006   0500 00 4 00000  7327         CLA ,4
 15007   0734 00 4 00000  7328         PAX ,4                     CADDR(F)
 15010  -0754 00 4 00000  7329         PXD ,4
 15011   0601 00 0 03321  7330         STO $ARG3                  A
 15012   0534 00 4 03353  7331         LXA AST1,4                 CADR(F)
 15013  -0754 00 4 00000  7332         PXD ,4                     F
 15014  -0534 00 4 03350  7333         LXD ASS1,4
 15015   0020 00 0 14663  7334         TRA $APPLY                                                       PAGE 149
                          7335
                   00501  7336   ASLBL SYN LABELD
                   00502  7337   ASLMD SYN LAMDAD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0139


                   00500  7338   ASFUN SYN     FNARGD
                   00370  7339   ASZRO SYN     $ZERO
                          7340
                          7341             APP2(F,L,A)=SELECT(F.,CAR,CAAR(L).,CDR,
                          7342             CDAR(L).,CONS,CONS(CAR(L),CADR(L)).,LIST,COPY(L).,SEARCH(F,
                          7343             LAMBDA(J,CAR(J)=SUBR OR CAR(J)=EXP),
                          7344             LAMBDA(J,CAR(J)=SUBR YIELDS APP3(CWADR
                          7345             (J),DISTRIB(L)),1 YIELDS APPLY(CADR(J),L,A)))
                          7346             ERROR)
                          7347
                          7348         HEAD A
 15016  -0634 00 4 03353  7349   APP2  SXD     AST1,4             SAVE LINK IR
 15017  -0534 00 4 03321  7350         LXD     $ARG3,4            GET ALIST
 15020  -0634 00 4 15153  7351         SXD     A,4                SAVE IT
 15021  -0600 00 0 15152  7352         STQ     AL                 ARGUMENT LIST
 15022   0601 00 0 15151  7353         STO     F                  FUNCTION (IS ATOMIC SYMBOL)
 15023   0600 00 0 15145  7354         STZ     APTRT              INITIALIZE TRACE TEST CELL
 15024  -0734 00 4 00000  7355   APSES PDX     0,4                ARG TO IR
 15025  -3 00000 4 15071  7356         TXL     APSAL,4,0          GO IF NO MORE PROPERTY LIST
 15026   0500 00 4 00000  7357         CLA     0,4                FIRST WORD
 15027   0734 00 4 00000  7358         PAX     0,4                CAR
 15030  -3 06646 4 15032  7359         TXL     *+2,4,$TRACE-1
 15031  -3 06647 4 15121  7360         TXL     APTRK,4,$TRACE     LOOK FOR TRACE
 15032  -3 06732 4 15034  7361         TXL     *+2,4,$SUBR-1      LOOK FOR
 15033  -3 06733 4 15046  7362         TXL     R2,4,$SUBR         $SUBR OR
 15034  -3 10156 4 15024  7363         TXL     APSES,4,$EXPR-1    $EXPR
 15035   3 10157 4 15024  7364         TXH     APSES,4,$EXPR
                          7365  *              EXPR BRANCH IN APPLY
 15036  -0734 00 4 00000  7366   R21   PDX     0,4                POINTER TO NEXT WORD AFTER $EXPR
 15037   0500 00 4 00000  7367         CLA     0,4                NEXT WORD
 15040   0734 00 4 00000  7368         PAX     0,4                CAR
 15041  -0754 00 4 00000  7369         PXD     0,4                IS FUNCTION
 15042   0520 00 0 15145  7370         ZET     APTRT              TEST FOR TRACE MODE
 15043   0020 00 0 15111  7371         TRA     APTXP              TRACE THIS EXPRESSION
 15044  -0534 00 4 15147  7372         LXD     ATS1,4             RESTORE LINK IR
 15045   0020 00 0 14663  7373         TRA     $APPLY             GO TO APPLY
                          7374  *              RZ THE SUBR BRANCH OF APPLY
 15046  -0734 00 4 00000  7375   R2    PDX     0,4                GET THE TXL INSTRUCTION BT  TAKING
 15047   0500 00 4 00000  7376         CLA     0,4                CWR (CADR L))
 15050   0734 00 4 00000  7377         PAX     0,4
 15051   0500 00 4 00000  7378         CLA     0,4
 15052   0601 00 0 15146  7379         STO     CWADR              TXL INSTRUCTION
 15053   0500 00 0 03350  7380         CLA     ASS1
 15054   0601 00 0 03315  7381         STO     CSV
 15055   0500 00 0 15152  7382         CLA     AL                 GET THE ARGUMENT LIST
 15056   0074 00 4 10072  7383         TSX     SPREAD,4           SPREAD IT INTO AC, MQ, ARG3, ETC.
 15057   0520 00 0 15145  7384         ZET     APTRT              TEST FOR TRACE MODE
 15060   0020 00 0 15131  7385         TRA     APTSB              TRACE THIS SUBROUTINE
 15061   0074 00 4 02312  7386         TSX     $SAVE,4
 15062  -3 03320 0 02377  7387         TXL     $END2,,$ALIST+2
 15063  -0534 00 4 15153  7388         LXD     A,4                                                      PAGE 150
 15064  -0634 00 4 03316  7389         SXD     $ALIST,4
 15065   0074 00 4 15146  7390         TSX     CWADR,4
 15066   0074 00 4 02326  7391         TSX     UNSAVE,4
 15067  -0534 00 4 03315  7392         LXD     CSV,4
 15070   0020 00 4 00001  7393         TRA     1,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0140


                          7394  *
 15071   0500 00 0 15150  7395  APSAL  CLA     FAS                WHERE TO GO IF NOT FOUND ON PAIR LIST
 15072   0601 00 0 03321  7396         STO     $ARG3
 15073   0500 00 0 15151  7397         CLA     F                  ATOMIC FUNCTION
 15074   0560 00 0 15153  7398         LDQ     A
 15075   0074 00 4 10042  7399         TSX     SASSOC,4           SEARCH PAIR LIST FOR LABEL DEFINITION
 15076  -0734 00 4 00000  7400         PDX     0,4                POINTER TO ASSOCIATED ITEM
 15077   0500 00 4 00000  7401         CLA     0,4
 15100  -0734 00 4 00000  7402         PDX     0,4                POINTER TO ITEM
 15101  -0754 00 4 00000  7403         PXD     0,4
 15102   0560 00 0 15153  7404         LDQ     A                  RESTORE PAIR LIST
 15103  -0600 00 0 03321  7405         STQ     $ARG3
 15104   0560 00 0 15152  7406         LDQ     AL                 RESTORE ARGUMENT LIST
 15105   0520 00 0 15145  7407         ZET     APTRT              TEST FOR TRACE MODE
 15106   0020 00 0 15111  7408         TRA     APTXP              TRACE THIS EXPRESSION
 15107  -0534 00 4 15147  7409         LXD     ATS1,4             RESTORE LINK IR
 15110   0020 00 0 14663  7410         TRA     $APPLY             GO TO APPLY WITH ITEM ASSOCIATED WITH
                          7411  *                                 THE ATOMIC FUNCTION
 15111   0074 00 4 02312  7412  APTXP  TSX     $SAVE,4            TRACE EXPR
 15112  -3 03317 0 02401  7413         TXL     $END1,,CSV+2
 15113   0074 00 4 14663  7414         TSX     $APPLY,4
 15114   0020 00 0 15136  7415         TRA     APEXC              FINISH UP
                          7416  *
 15115  -0634 00 4 01562  7417   R33   SXD     $ERROR,4
 15116   0500 00 0 15151  7418         CLA     F                  PICK UP FUNCTION
 15117   0074 00 4 01563  7419         TSX     $ERROR+1,4         GO TO ERROR
 15120   542160600254     7420         BCI     1,*A  2*           FUNCTION OBJECT HAS NO DEFINITION
                          7421  *
 15121  -0625 00 0 15145  7422   APTRK STL     APTRT
 15122   0601 00 0 15144  7423         STO     APA                SAVE THE AC
 15123   0534 00 4 03350  7424         LXA     ASS1,4             ATOM NAME
 15124  -0754 00 4 00000  7425         PXD     0,4
 15125   0074 00 4 16050  7426         TSX     ARGOF,4            PRINT ARGUMETNS OF
 15126   0560 00 0 15152  7427         LDQ     AL                 RESTORE MQ AFTER PRINTING
 15127   0500 00 0 15144  7428         CLA     APA                RESTORE AC
 15130   0020 00 0 15024  7429         TRA     APSES              CONTINUE PROPERTY LIST SEARCH
                          7430  *
 15131   0074 00 4 02312  7431  APTSB  TSX     $SAVE,4            TRACE SUBR
 15132  -3 03320 0 02377  7432         TXL     $END2,,$ALIST+2
 15133  -0534 00 4 15153  7433         LXD     A,4
 15134  -0634 00 4 03316  7434         SXD     $ALIST,4
 15135   0074 00 4 15146  7435         TSX     CWADR,4
 15136   0074 00 4 02326  7436  APEXC  TSX     UNSAVE,4
 15137   0131 00 0 00000  7437         XCA                        VALUE TO MQ
 15140   0534 00 4 03315  7438         LXA     CSV,4
 15141  -0754 00 4 00000  7439         PXD     0,4                TO AC
 15142  -0534 00 4 03315  7440         LXD     CSV,4
 15143   0020 00 0 16104  7441         TRA     VALOF              PRINT VALUE OF
                          7442  *                                                                       PAGE 151
 15144   0 00000 0 00000  7443   APA                              AC STORAGE
 15145   0 00000 0 00000  7444   APTRT                            TRACE MODE TEST SWITCH
 15146   0 00000 0 00000  7445   CWADR                            TXL INSTRUCTION FOR SUBR
 15147   0 00000 0 00000  7446   ATS1                             LINK INDEX REGISTER
 15150  -3 00000 0 15115  7447   FAS   TXL     R33,,0             NOT FOUND ON PAIR LIST SO CALL ERROR
 15151   0 00000 0 00000  7448   F                                ATOMIC FUNCTION GOES HERE
 15152   0 00000 0 00000  7449   AL                               ARGUMENT LIST
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0141


 15153   0 00000 0 00000  7450   A                                A OR PAIR LIST
                          7451  *
                          7452
                          7453
                          7454         HEAD A
 15154   0100 00 0 15205  7455   EVCON TZE E3
 15155  -0634 00 4 03364  7456         SXD ECS1,4
 15156   0074 00 4 02312  7457         TSX $SAVE,4
 15157  -3 03371 0 02373  7458         TXL     $END4,,ECS4+2      SAVE 4 ITEMS
 15160  -0600 00 0 03365  7459         STQ ECS2
 15161  -0734 00 4 00000  7460         PDX 0,4
 15162   0500 00 4 00000  7461   E1    CLA 0,4
 15163   0601 00 0 03366  7462         STO ECS3
 15164   0734 00 4 00000  7463         PAX 0,4
 15165   0500 00 4 00000  7464         CLA 0,4
 15166   0601 00 0 03367  7465         STO ECS4
 15167   0734 00 4 00000  7466         PAX 0,4
 15170  -0754 00 4 00000  7467         PXD 0,4
 15171   0074 00 4 15454  7468         TSX $EVAL,4
 15172   0560 00 0 03365  7469         LDQ ECS2
 15173   0100 00 0 15203  7470         TZE E2
 15174  -0534 00 4 03367  7471         LXD ECS4,4
 15175   0500 00 2 00000  7472         CLA 0,2
 15176   0734 00 2 00000  7473         PAX 0,2
 15177  -0754 00 4 00000  7474         PXD 0,4
 15200   0074 00 4 02326  7475         TSX UNSAVE,4
 15201  -0534 00 4 03364  7476         LXD ECS1,4
 15202   0020 00 0 15454  7477         TRA $EVAL
 15203  -0534 00 4 03366  7478   E2    LXD ECS3,4
 15204   3 00000 4 15162  7479         TXH E1,4,0
 15205  -0634 00 4 01562  7480   E3    SXD $ERROR,4
 15206   0534 00 4 03366  7481         LXA     ECS3,4
 15207  -0754 00 4 00000  7482         PXD     0,4                PRINT LAST CONDITION
 15210   0074 00 4 01563  7483         TSX $ERROR+1,4
 15211   542160600354     7484         BCI     1,*A  3*           CONDITIONAL UNSATISFIED
                          7485             BASIC LISP FUNCTIONS FOR APPLY
                          7486
                          7487
                          7488         HEAD R
                          7489             CAR
                          7490
 15212   0634 00 4 15217  7491  CARP   SXA     CARX,4
 15213  -0734 00 4 00000  7492         PDX ,4
 15214  -0500 00 4 00000  7493         CAL ,4
 15215   0734 00 4 00000  7494         PAX ,4
 15216  -0754 00 4 00000  7495         PXD ,4
 15217   0774 00 4 00000  7496  CARX   AXT     **,4                                                     PAGE 152
 15220   0020 00 4 00001  7497         TRA 1,4
 15221   0 00000 0 00000  7498   BFS1
                          7499
 15222   0634 00 4 15226  7500  CDRP   SXA     CDRX,4
 15223  -0734 00 4 00000  7501         PDX ,4
 15224   0500 00 4 00000  7502         CLA ,4
 15225  -0320 00 0 00000  7503         ANA BFDM
 15226   0774 00 4 00000  7504  CDRX   AXT     **,4
 15227   0020 00 4 00001  7505         TRA 1,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0142


                   00000  7506   BFDM  SYN     $DMASK
                          7507
                          7508
 15230   0634 00 4 15241  7509  ATOMP  SXA     ATMX,4
 15231   0100 00 0 15236  7510         TZE ATP1
 15232  -0734 00 4 00000  7511         PDX ,4
 15233   0500 00 4 00000  7512         CLA ,4
 15234   0734 00 4 00000  7513         PAX ,4
 15235  -3 77776 4 15240  7514         TXL *+3,4,-2
 15236   0500 00 0 00442  7515   ATP1  CLA BFQ1
 15237   0020 00 0 15241  7516         TRA *+2
 15240  -0754 00 2 00000  7517         PXD ,2
 15241   0774 00 4 00000  7518  ATMX   AXT     **,4
 15242   0020 00 4 00001  7519         TRA 1,4
                   00442  7520   BFQ1  SYN     $QD1
                          7521
 15243   0100 00 0 15246  7522   NULLP TZE *+3
 15244  -0754 00 0 00000  7523         PXD ,0
 15245   0020 00 4 00001  7524         TRA 1,4
 15246   0500 00 0 00442  7525         CLA BFQ1
 15247   0020 00 4 00001  7526         TRA 1,4
                          7527
                          7528
                          7529
                          7530             LAMBDA FOR FUNCTIONAL ARGUMENTS
                          7531
 15250  -0634 00 4 15221  7532   LAMP  SXD BFS1,4
 15251   0601 00 0 03415  7533         STO BFS2                   L
 15252   0131 00 0 00000  7534         XCA
 15253   0560 00 0 00370  7535         LDQ BFZRO
 15254   0074 00 4 03730  7536         TSX $CONS,4                CONS(A,0)
 15255   0131 00 0 00000  7537         XCA
 15256   0500 00 0 03415  7538         CLA BFS2
 15257   0074 00 4 07541  7539         TSX APPEND,4
 15260   0131 00 0 00000  7540         XCA
 15261   0500 00 0 00500  7541         CLA BFFAG
 15262  -0534 00 4 15221  7542         LXD BFS1,4
 15263   0020 00 0 03730  7543         TRA $CONS                  LIST(FUNARG,L,A)
                   00500  7544   BFFAG SYN     FNARGD
                   00370  7545   BFZRO SYN     $ZERO
                          7546
                          7547             LABEL FSUBR
                          7548
 15264  -0634 00 4 15221  7549   LABP  SXD BFS1,4
 15265  -0600 00 0 03416  7550         STQ BFS3                   A                                     PAGE 153
 15266  -0734 00 4 00000  7551         PDX ,4                     L
 15267   0500 00 4 00000  7552         CLA ,4
 15270   0601 00 0 03415  7553         STO BFS2                   CWR(L)
 15271  -0734 00 4 00000  7554         PDX ,4                     CDR(L)
 15272   0500 00 4 00000  7555         CLA ,4
 15273   0734 00 4 00000  7556         PAX ,4                     CADR(L)
 15274  -0754 00 4 00000  7557         PXD ,4
 15275   0601 00 0 03414  7558         STO BFS4
 15276   0131 00 0 00000  7559         XCA
 15277   0534 00 4 03415  7560         LXA BFS2,4                 CAR(L)
 15300   0131 00 0 00000  7561         XCA
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0143


 15301  -0754 00 4 00000  7562         PXD ,4
 15302   0074 00 4 10460  7563         TSX $COND,4                LIST(CAR(L),CADR(L))
 15303   0560 00 0 03416  7564         LDQ BFS3
 15304   0074 00 4 03730  7565         TSX $CONS,4                CONS(LIST,A)
 15305   0131 00 0 00000  7566         XCA
 15306   0500 00 0 03414  7567         CLA BFS4                   CADR(L)
 15307  -0534 00 4 15221  7568         LXD BFS1,4
 15310   0020 00 0 15454  7569         TRA $EVAL
                          7570
                          7571
                          7572
                          7573             SETQ
                          7574
 15311  -0634 00 4 03461  7575   SETQP SXD REPS1,4
 15312   0074 00 4 02312  7576         TSX $SAVE,4
 15313  -3 03464 0 02377  7577         TXL     $END2,,REPV+2
 15314  -0734 00 4 00000  7578         PDX ,4                     L
 15315   0500 00 4 00000  7579         CLA ,4
 15316   0734 00 4 00000  7580         PAX ,4                     CAR(L)
 15317  -0634 00 4 03462  7581         SXD REPV,4
 15320  -0734 00 4 00000  7582         PDX ,4                     CDR(L)
 15321   0500 00 4 00000  7583         CLA ,4
 15322   0734 00 4 00000  7584         PAX ,4                     CADR(L)
 15323  -0754 00 4 00000  7585         PXD ,4
 15324   0074 00 4 15454  7586         TSX $EVAL,4                EVAL(CADR(L),A)
 15325   0601 00 0 03463  7587         STO REPT1
 15326   0500 00 0 15341  7588         CLA REPP1
 15327   0601 00 0 03321  7589         STO $ARG3
 15330   0560 00 0 03447  7590         LDQ PRGVAR
 15331   0500 00 0 03462  7591         CLA REPV
 15332   0074 00 4 10042  7592         TSX SASSOC,4               SASSOC(CAR(L),PV,ERROR)
 15333  -0734 00 4 00000  7593         PDX ,4
 15334   0500 00 0 03463  7594         CLA REPT1
 15335   0622 00 4 00000  7595         STD     0,4                REPLACE DECREMENT
 15336   0074 00 4 02326  7596         TSX UNSAVE,4
 15337  -0534 00 4 03461  7597         LXD REPS1,4
 15340   0020 00 4 00001  7598         TRA 1,4
                          7599
 15341  -3 00000 0 15342  7600   REPP1 TXL *+1,,0
 15342  -0634 00 4 01562  7601         SXD $ERROR,4
 15343   0500 00 0 03462  7602         CLA REPV
 15344   0074 00 4 01563  7603         TSX $ERROR+1,4
 15345   542160600454     7604         BCI     1,*A  4*           SETQ GIVEN ON NON-EXISTENT VARIABLE   PAGE 154
                          7605
                          7606
                          7607             SET
                          7608
 15346  -0634 00 4 15221  7609   SETP  SXD BFS1,4
 15347   0601 00 0 15367  7610         STO BFS5
 15350  -0600 00 0 03415  7611         STQ BFS2
 15351   0560 00 0 15362  7612         LDQ SETP1
 15352  -0600 00 0 03321  7613         STQ $ARG3
 15353   0560 00 0 03447  7614         LDQ PRGVAR
 15354   0074 00 4 10042  7615         TSX SASSOC,4
 15355  -0734 00 4 00000  7616         PDX ,4
 15356   0500 00 0 03415  7617         CLA BFS2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0144


 15357   0622 00 4 00000  7618         STD 0,4
 15360  -0534 00 4 15221  7619         LXD BFS1,4
 15361   0020 00 4 00001  7620         TRA 1,4
                          7621
 15362  -3 00000 0 15363  7622   SETP1 TXL *+1,,0
 15363  -0634 00 4 01562  7623         SXD $ERROR,4
 15364   0500 00 0 15367  7624         CLA BFS5
 15365   0074 00 4 01563  7625         TSX $ERROR+1,4
 15366   542160600554     7626         BCI     1,*A  5*           SET  GIVEN ON NON EXISTENT VARIABLE
 15367   0 00000 0 00000  7627  BFS5
                          7628
                          7629  *              AND SPECIAL FORM
 15370  -0100 00 0 15373  7630   EVA8  TNZ EVA6
 15371   0500 00 0 00442  7631         CLA EVCT
 15372   0020 00 4 00001  7632         TRA 1,4
 15373  -0634 00 4 03343  7633   EVA6  SXD EVA1,4
 15374   0074 00 4 02312  7634         TSX $SAVE,4
 15375  -3 03347 0 02375  7635         TXL     $END3,,EVA9+2      SAVE 3 ITEMS
 15376  -0734 00 4 00000  7636         PDX ,4
 15377   0500 00 4 00000  7637   EVA4  CLA ,4
 15400   0601 00 0 03344  7638         STO EVA2
 15401   0734 00 4 00000  7639         PAX ,4
 15402  -0754 00 4 00000  7640         PXD ,4
 15403  -0600 00 0 03345  7641         STQ EVA9
 15404   0074 00 4 15454  7642         TSX $EVAL,4
 15405   0560 00 0 03345  7643         LDQ EVA9
 15406  -0100 00 0 15412  7644         TNZ EVA3
 15407   0074 00 4 02326  7645   EVA5  TSX UNSAVE,4
 15410  -0534 00 4 03343  7646         LXD EVA1,4
 15411   0020 00 4 00001  7647         TRA 1,4
 15412  -0534 00 4 03344  7648   EVA3  LXD EVA2,4
 15413   3 00000 4 15377  7649         TXH EVA4,4,0
 15414   0500 00 0 00442  7650         CLA EVCT
 15415   0020 00 0 15407  7651         TRA EVA5
                          7652  *              OR SPECIAL FORM
 15416  -0100 00 0 15421  7653   EVR8  TNZ EVR6
 15417   0500 00 0 00370  7654         CLA EVCF
 15420   0020 00 4 00001  7655         TRA 1,4
 15421  -0634 00 4 03435  7656   EVR6  SXD EVR1,4
 15422   0074 00 4 02312  7657         TSX $SAVE,4
 15423  -3 03441 0 02375  7658         TXL     $END3,,EVR9+2      SAVE 3 ITEMS                          PAGE 155
 15424  -0734 00 4 00000  7659         PDX ,4
 15425   0500 00 4 00000  7660   EVR4  CLA ,4
 15426   0601 00 0 03436  7661         STO EVR2
 15427   0734 00 4 00000  7662         PAX ,4
 15430  -0754 00 4 00000  7663         PXD ,4
 15431  -0600 00 0 03437  7664         STQ EVR9
 15432   0074 00 4 15454  7665         TSX $EVAL,4
 15433   0560 00 0 03437  7666         LDQ EVR9
 15434   0100 00 0 15441  7667         TZE EVR3
 15435   0500 00 0 00442  7668         CLA EVCT
 15436   0074 00 4 02326  7669   EVR5  TSX UNSAVE,4
 15437  -0534 00 4 03435  7670         LXD EVR1,4
 15440   0020 00 4 00001  7671         TRA 1,4
 15441  -0534 00 4 03436  7672   EVR3  LXD EVR2,4
 15442   3 00000 4 15425  7673         TXH EVR4,4,0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0145


 15443   0500 00 0 00370  7674         CLA EVCF
 15444   0020 00 0 15436  7675         TRA EVR5
                   00442  7676   EVCT  SYN     $QD1
                   00370  7677   EVCF  SYN     $ZERO
                          7678
 15445  -0600 00 0 15221  7679   EQP   STQ BFS1
 15446   0402 00 0 15221  7680         SUB BFS1
 15447  -0100 00 0 15452  7681         TNZ *+3
 15450   0500 00 0 00442  7682         CLA BFQ1
 15451   0020 00 4 00001  7683         TRA 1,4
 15452  -0754 00 0 00000  7684         PXD ,0
 15453   0020 00 4 00001  7685         TRA 1,4
                          7686
                          7687             EVAL(E,A)  5/6/59
                          7688
                          7689         HEAD A
 15454  -0634 00 4 03372  7690   EVAL  SXD EVS1,4
 15455   0100 00 4 00001  7691         TZE 1,4
 15456   0601 00 0 16121  7692         STO EVTE                   E
 15457  -0734 00 4 00000  7693         PDX ,4
 15460   0500 00 4 00000  7694         CLA ,4
 15461   0625 00 0 16126  7695         STT     EVLNS              SEE IF A NUMBER
 15462   0520 00 0 16126  7696         ZET     EVLNS              SKIP IF NOT A NUMBER
 15463   0020 00 0 15542  7697         TRA     EV1N               IS A NUMBER(CONSTANT)
 15464   0734 00 4 00000  7698         PAX ,4                     CAR(E)
 15465   3 77776 4 15545  7699         TXH EVP1,4,-2              = - 1
 15466  -0634 00 4 16122  7700         SXD EVTAE,4                CAR(E)
 15467   0634 00 4 03372  7701         SXA     EVS1,4             SAVE FUNCTION WITH INDEX REGISTER
 15470   0622 00 0 03411  7702         STD EVTDE                  CDR(E)
 15471   0500 00 4 00000  7703         CLA ,4
 15472   0625 00 0 16126  7704         STT     EVLNS              SEE IF A NUMBER
 15473   0520 00 0 16126  7705         ZET     EVLNS              TEST FOR A NUMBER
 15474   0020 00 0 16007  7706         TRA     EVP26              UNDEFINED FUNCTION IF A NUMBER
 15475   0734 00 4 00000  7707         PAX ,4                     CAAR(E)
 15476  -3 77776 4 15756  7708         TXL     EVP27,4,-2         GO IF CAR(E) NOT AN ATOM
                          7709  *
                          7710  *              CAAR(E) = -1
                          7711  *
 15477   0634 00 0 03375  7712         SXA     EVTRK,0            ZERO THE ADDRESS                      PAGE 156
 15500  -0634 00 0 03375  7713         SXD     EVTRK,0            ZERO DECREMENT
 15501  -0734 00 4 00000  7714   EVP2  PDX ,4                     CDAR(E)
 15502  -3 00000 4 15642  7715         TXL EVP25,4,0              NULL(J)
 15503   0500 00 4 00000  7716         CLA ,4
 15504   0734 00 4 00000  7717         PAX ,4                     CAR(J)
 15505   3 06647 4 15507  7718         TXH     *+2,4,$TRACE
 15506   3 06646 4 15540  7719         TXH     EVTRT,4,$TRACE-1   =TRACE
 15507   3 06733 4 15511  7720         TXH *+2,4,$SUBR
 15510   3 06732 4 15756  7721         TXH     EVP27,4,$SUBR-1    OF IF A SUBR
 15511   3 10103 4 15513  7722         TXH *+2,4,$FSUBR
 15512   3 10102 4 15613  7723         TXH EVP22,4,$FSUBR-1       =FSUBR
 15513   3 10157 4 15515  7724         TXH *+2,4,$EXPR
 15514   3 10156 4 15634  7725         TXH EVP23,4,$EXPR-1        =EXPR
 15515   3 10142 4 15501  7726         TXH EVP2,4,$FEXPR
 15516  -3 10141 4 15501  7727         TXL EVP2,4,$FEXPR-1        /= FEXPR
 15517   0622 00 0 03412  7728         STD EVD2                   CDR(J)
 15520  -0600 00 0 03321  7729         STQ $ARG3                  A
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0146


 15521   0500 00 0 03321  7730         CLA $ARG3
 15522   0560 00 0 00370  7731         LDQ EVZRO                  0
 15523   0074 00 4 03730  7732         TSX $CONS,4                CONS(A,0)
 15524   0131 00 0 00000  7733         XCA
 15525   0500 00 0 03411  7734         CLA EVTDE
 15526   0074 00 4 03730  7735         TSX $CONS,4                LIST(CDR(E),A)
 15527   0131 00 0 00000  7736         XCA
 15530  -0534 00 4 03412  7737         LXD EVD2,4                 CDR(J)
 15531   0500 00 4 00000  7738         CLA ,4
 15532   0734 00 4 00000  7739         PAX ,4                     CADR(J)
 15533  -0754 00 4 00000  7740         PXD ,4
 15534   0520 00 0 03375  7741         ZET     EVTRK              TEST FOR TRACE MODE
 15535   0020 00 0 16031  7742         TRA     EVTXP
 15536  -0534 00 4 03372  7743         LXD EVS1,4
 15537   0020 00 0 14663  7744         TRA $APPLY                 APPLY(CADR(J),LIST(CDR(E),A),A)
                          7745  *
 15540  -0625 00 0 03375  7746   EVTRT STL     EVTRK              SET THE TRACE SWITCH
 15541   0020 00 0 15501  7747         TRA     EVP2               GO SEARCH MORE
                          7748  *
                          7749  *
                          7750  *              CAR(E) = -1
                          7751  *
 15542   0500 00 0 16121  7752   EV1N  CLA     EVTE               GET THE NUMBER
 15543  -0534 00 4 03372  7753         LXD     EVS1,4             RESTORE LINK INDEX
 15544   0020 00 4 00001  7754         TRA     1,4
                          7755  *
 15545  -0734 00 4 00000  7756   EVP1  PDX ,4                     J
 15546  -3 00000 4 15563  7757         TXL EVP11,4,0              = 0
 15547   0500 00 4 00000  7758         CLA ,4
 15550   0734 00 4 00000  7759         PAX ,4                     CAR(J)
 15551   3 10742 4 15545  7760         TXH EVP1,4,$APVAL          = APVAL
 15552  -3 10741 4 15545  7761         TXL EVP1,4,$APVAL-1
 15553  -0734 00 4 00000  7762   EVP13 PDX ,4                     CDR(J)
 15554   0500 00 4 00000  7763         CLA ,4
 15555   0734 00 4 00000  7764         PAX ,4                     CADR(J)
 15556   0500 00 4 00000  7765         CLA ,4
 15557   0734 00 4 00000  7766         PAX ,4                     CAADR(J)                              PAGE 157
 15560  -0754 00 4 00000  7767         PXD ,4
 15561  -0534 00 4 03372  7768         LXD EVS1,4
 15562   0020 00 4 00001  7769         TRA 1,4
                          7770  *
 15563  -0600 00 0 16123  7771   EVP11 STQ EVTA                   A
 15564   0500 00 0 16121  7772         CLA EVTE                   E
 15565   0622 00 0 15600  7773         STD EVI1
 15566   0402 00 0 00442  7774         SUB EVQD1
 15567   0622 00 0 15601  7775         STD EVI2
 15570  -0634 00 2 16125  7776         SXD EVD1,2
 15571  -0534 00 4 16123  7777         LXD EVTA,4
 15572  -3 00000 4 15607  7778   EVL1  TXL EVP12,4,0              NULL(J)
 15573   0500 00 4 00000  7779         CLA ,4
 15574   0734 00 2 00000  7780         PAX ,2                     CAR(J)
 15575  -0734 00 4 00000  7781         PDX ,4                     CDR(J)
 15576   0500 00 2 00000  7782         CLA ,2
 15577   0734 00 2 00000  7783         PAX ,2                     CAAR(J)
 15600   3 00000 2 15572  7784   EVI1  TXH EVL1,2,**              CAAR(J) = E
 15601  -3 00000 2 15572  7785   EVI2  TXL EVL1,2,**
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0147


 15602  -0734 00 4 00000  7786         PDX ,4                     CDAR(J)
 15603  -0754 00 4 00000  7787         PXD ,4
 15604  -0534 00 2 16125  7788         LXD EVD1,2
 15605  -0534 00 4 03372  7789         LXD EVS1,4
 15606   0020 00 4 00001  7790         TRA 1,4
                          7791  *
 15607  -0634 00 4 01562  7792   EVP12 SXD $ERROR,4
 15610   0500 00 0 16121  7793         CLA EVTE
 15611   0074 00 4 01563  7794         TSX $ERROR+1,4
 15612   542160601054     7795         BCI     1,*A  8*           UNBOUND VARIBLE MENTIONED -EVAL-
                          7796  *
 15613  -0734 00 4 00000  7797   EVP22 PDX ,4                     CDR(J)     FSUBR
 15614   0500 00 4 00000  7798         CLA ,4
 15615   0734 00 4 00000  7799         PAX ,4                     CADR(J)
 15616   0500 00 4 00000  7800         CLA ,4                     CWADR(J)
 15617   0601 00 0 16124  7801         STO EVT1
 15620   0500 00 0 03372  7802         CLA     EVS1               ATOM AN DIR4 FOR SAVING $ALIST
 15621   0601 00 0 03315  7803         STO     CSV
 15622   0074 00 4 02312  7804         TSX     $SAVE,4
 15623  -3 03320 0 02377  7805         TXL     $END2,,$ALIST+2
 15624  -0600 00 0 03316  7806         STQ     $ALIST
 15625   0520 00 0 03375  7807         ZET     EVTRK              TEST WHETERT TO TRACT
 15626   0020 00 0 16014  7808         TRA     EVTFS              YES,TRACE FSUBR
 15627   0500 00 0 03411  7809         CLA     EVTDE              GET BACK ARGUMENTS
 15630   0074 00 4 16124  7810         TSX     EVT1,4
 15631   0074 00 4 02326  7811         TSX     UNSAVE,4
 15632  -0534 00 4 03315  7812         LXD     CSV,4
 15633   0020 00 4 00001  7813         TRA     1,4
                          7814  *
                          7815  *              EVP23 THE EXPR BRANCH FOR EVAL
                          7816  *
 15634  -0734 00 4 00000  7817   EVP23 PDX     0,4                REST OF PROPERTY LIST
 15635   0500 00 4 00000  7818         CLA     0,4                GET THE EXPR
 15636   0734 00 4 00000  7819         PAX     0,4
 15637  -0634 00 4 16122  7820         SXD     EVTAE,4            SAVE IN TEMPORARY STORAGE             PAGE 158
 15640  -0534 00 4 02317  7821         LXD     $CPPI,4            PUSH DOWN COUNTER
 15641   1 77773 4 15665  7822         TXI     EVP28,4,-5         SAVE 5 ITEMS
                          7823  *
 15642   0500 00 0 16122  7824   EVP25 CLA EVTAE                  CAR(E)
 15643   0622 00 0 15657  7825         STD EVI3                   TXH
 15644   0402 00 0 00442  7826         SUB EVQD1
 15645   0622 00 0 15660  7827         STD EVI4                   TXL
 15646  -0634 00 2 16124  7828         SXD EVT1,2
 15647  -0600 00 0 16125  7829         STQ EVD1
 15650  -0534 00 4 16125  7830         LXD EVD1,4                 A
 15651  -3 00000 4 16007  7831   EVL2  TXL EVP26,4,0              NULL(J)
 15652   0500 00 4 00000  7832         CLA ,4
 15653  -0734 00 4 00000  7833         PDX ,4                     CDR(J)
 15654   0734 00 2 00000  7834         PAX ,2                     CAR(J)
 15655   0500 00 2 00000  7835         CLA ,2
 15656   0734 00 2 00000  7836         PAX ,2                     CAAR(J)
 15657   3 00000 2 15651  7837   EVI3  TXH EVL2,2,**              /= CAR(E)
 15660  -3 00000 2 15651  7838   EVI4  TXL EVL2,2,**
 15661  -0534 00 2 16124  7839         LXD     EVT1,2
 15662   0622 00 0 16122  7840         STD     EVTAE              SAVE FUNCTION
 15663  -0534 00 4 02317  7841  EV27   LXD     $CPPI,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0148


 15664   1 77773 4 15665  7842         TXI     *+1,4,-5           SAVE TOTAL OF 4 ITEMS
 15665   0522 00 0 02414  7843   EVP28 XEC     ENDPDL             TEST FOR OUT OF PUSH DOWN LIST
 15666  -0634 00 4 02317  7844         SXD     $CPPI,4
 15667   0500 00 0 03372  7845         CLA     EVS1
 15670   0601 00 4 77773  7846         STO     -5,4
 15671   0500 00 0 03373  7847         CLA     EVSE
 15672   0601 00 4 77774  7848         STO     -4,4
 15673   0500 00 0 03374  7849         CLA     EVSA
 15674   0601 00 4 77775  7850         STO     -3,4
 15675   0500 00 0 03375  7851         CLA     EVTRK
 15676   0601 00 4 77776  7852         STO     -2,4
 15677   0500 00 0 16127  7853         CLA     EVCM
 15700   0601 00 4 77777  7854         STO     -1,4
 15701   0500 00 0 16122  7855         CLA     EVTAE              GET THE FUNCTION
 15702   0622 00 0 03373  7856         STD     EVSE
 15703  -0600 00 0 03374  7857         STQ EVSA                   A
 15704   0500 00 0 03411  7858         CLA EVTDE                  CDR(E)
 15705   0560 00 0 15763  7859         LDQ     ELP1          FUNCTIONAL ARGUMENT
 15706   0074 00 4 04214  7860         TSX     MAPLIS,4      MAPLIST(L,EVAL(CAR(L),A))
 15707   0601 00 0 16124  7861         STO EVT1
 15710   0500 00 0 03374  7862         CLA     EVSA
 15711   0601 00 0 03321  7863         STO     $ARG3
 15712   0500 00 0 03373  7864         CLA     EVSE
 15713  -0534 00 4 02317  7865         LXD     $CPPI,4       START OPEN UNSAVE
 15714   0560 00 4 77773  7866         LDQ     -5,4
 15715  -0600 00 0 03372  7867         STQ     EVS1
 15716   0560 00 4 77774  7868         LDQ     -4,4
 15717  -0600 00 0 03373  7869         STQ     EVSE
 15720   0560 00 4 77775  7870         LDQ     -3,4
 15721  -0600 00 0 03374  7871         STQ     EVSA
 15722   0560 00 4 77776  7872         LDQ     -2,4
 15723  -0600 00 0 03375  7873         STQ     EVTRK
 15724   1 00005 4 15725  7874         TXI     *+1,4,5                                                  PAGE 159
 15725  -0634 00 4 02317  7875         SXD     $CPPI,4
 15726   0560 00 0 16124  7876         LDQ     EVT1
 15727   0520 00 0 03375  7877         ZET     EVTRK              TEST RACE SWITCH
 15730   0020 00 0 15733  7878         TRA     EVDCO              DECODE EVTRAK
 15731  -0534 00 4 03372  7879  EVAPG  LXD     EVS1,4
 15732   0020 00 0 14663  7880         TRA $APPLY                 APPLY(CADAR(J),EVLIS(CDR(E),A),A)
                          7881  *
                          7882  *              IF CAR E IS A SUBR, THE POINTRE TO THE TXL INSTRUCTION
                          7883  *              IS SAVED IN THE DECREMENT OF VETRK.  THE ADDRESS OF
                          7884  *              EVTRK IS THE TRACE SWITCH.
                          7885  *
 15733  -0534 00 4 03375  7886  EVDCO  LXD     EVTRK,4            LOOK FOR SUBR POINTER
 15734  -3 00000 4 16031  7887         TXL     EVTXP,4,0          THERE ISNT ANY. SO GO AND TRACE EXPR
 15735   0534 00 4 03375  7888         LXA     EVTRK,4            SEE IF THE SUBR IS TRACED
 15736   3 00000 4 15731  7889         TXH     EVAPG,4,0          YES IT IS. LET APPLY HANDLE IT
 15737  -0534 00 4 03375  7890         LXD     EVTRK,4            GET THE TXL SUBR WORD
 15740   0500 00 4 00000  7891         CLA     0,4
 15741   0601 00 0 16124  7892         STO     EVT1               READY TO EXECUTE
 15742   0500 00 0 03372  7893         CLA     EVS1               GET RETURN INDEX AND ATOM NAME
 15743   0601 00 0 03315  7894         STO     CSV                AND SAVE THEM ALONG WITH $ALIST
 15744   0074 00 4 02312  7895         TSX     $SAVE,4
 15745  -3 03320 0 02377  7896         TXL     $END2,,$ALIST+2
 15746   0500 00 0 03321  7897         CLA     $ARG3
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0149


 15747   0601 00 0 03316  7898         STO     $ALIST             POST CURRENT ALIST
 15750   0131 00 0 00000  7899         XCA                        ARGUMENT LIST TO AC
 15751   0074 00 4 10072  7900         TSX     $SPREAD,4          SMEAR IT OUT
 15752   0074 00 4 16124  7901         TSX     EVT1,4             EXECUTE SUBR
 15753   0074 00 4 02326  7902         TSX     UNSAVE,4           RESTORE ALIST AND IX
 15754  -0534 00 4 03315  7903         LXD     CSV,4
 15755   0020 00 4 00001  7904         TRA     1,4                AND RETURN
                          7905  *
 15756  -0734 00 4 00000  7906  EVP27  PDX     0,4                SUBR BRANCH
 15757   0500 00 4 00000  7907         CLA     0,4
 15760   0734 00 4 00000  7908         PAX     0,4                POINTER TO TXL WORD
 15761  -0634 00 4 03375  7909         SXD     EVTRK,4            TO SAVE POSITION
 15762   0020 00 0 15663  7910         TRA     EV27               EVALUATE ARGUMENTS
                          7911  *
 15763  -3 00000 0 15764  7912   ELP1  TXL *+1,,0
 15764   0634 00 4 15772  7913         SXA     ELT1,4             SAVE LINK IR
 15765  -0734 00 4 00000  7914         PDX ,4                     J
 15766   0500 00 4 00000  7915         CLA ,4
 15767   0734 00 4 00000  7916         PAX ,4
 15770  -0754 00 4 00000  7917         PXD ,4                     CAR(J)
 15771   0560 00 0 03374  7918         LDQ     EVSA               GET CURRENT A LIST
 15772   0774 00 4 00000  7919   ELT1  AXT     **,4               RESTORE LINK IR
 15773   0020 00 0 15454  7920         TRA $EVAL
                          7921  *
                          7922  *      EVLIS
                          7923  *
 15774  -0634 00 4 03372  7924   EVLIS SXD     EVS1,4             SAVE LINK IR
 15775   0774 00 4 10167  7925         AXT     EVLISL,4           ATOM EVLIS
 15776   0634 00 4 03372  7926         SXA     EVS1,4             FOR BACKTRACE
 15777   0074 00 4 02312  7927         TSX     $SAVE,4            SAVE EVAL STORAGE
 16000  -3 03376 0 02375  7928         TXL     $END3,,EVSA+2                                            PAGE 160
 16001  -0600 00 0 03374  7929         STQ     EVSA
 16002   0560 00 0 15763  7930         LDQ     ELP1
 16003   0074 00 4 04214  7931         TSX     MAPLIS,4
 16004   0074 00 4 02326  7932         TSX     UNSAVE,4
 16005  -0534 00 4 03372  7933         LXD     EVS1,4
 16006   0020 00 4 00001  7934         TRA     1,4
                          7935  *
 16007  -0634 00 4 01562  7936   EVP26 SXD $ERROR,4
 16010  -0534 00 2 16124  7937         LXD     EVT1,2
 16011   0500 00 0 16121  7938         CLA EVTE
 16012   0074 00 4 01563  7939         TSX $ERROR+1,4
 16013   542160601154     7940         BCI     1,*A  9*           FUNCTION OBJECT HAS NO DEFINITION EVAL
                          7941  *
 16014   0734 00 4 00000  7942  EVTFS  PAX     0,4                ATOM NAME
 16015  -0754 00 4 00000  7943         PXD     0,4                TO PRINT POSITION
 16016   0560 00 0 03411  7944         LDQ     EVTDE
 16017   0074 00 4 16050  7945         TSX     ARGOF,4            PRINT ARGUMENT MESSAGE
 16020   0560 00 0 03316  7946         LDQ     $ALIST             RESTORE ALIST AFTER ARGOF
 16021   0500 00 0 03411  7947         CLA     EVTDE              AND ARGUMENT LIST
 16022   0074 00 4 16124  7948         TSX     EVT1,4             DO THE FSUBR
 16023   0074 00 4 02326  7949         TSX     UNSAVE,4           RESTORE THE IR
 16024   0131 00 0 00000  7950         XCA                        VALUE TO MQ
 16025   0534 00 4 03315  7951         LXA     CSV,4              GET ATOM NAME FOR VALUE MESSAGE
 16026  -0754 00 4 00000  7952         PXD     0,4                TO AC
 16027  -0534 00 4 03315  7953         LXD     CSV,4              AND RETURN IR4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0150


 16030   0020 00 0 16104  7954         TRA     VALOF              PRINT VALUE MESSAGE
                          7955  *
 16031   0622 00 0 03411  7956  EVTXP  STD     EVTDE              SAVE LAMBDA EXPRESSION
 16032   0534 00 4 03372  7957         LXA     EVS1,4             GET ATOMIC FUNCTION
 16033  -0754 00 4 00000  7958         PXD     0,4                TO PRINT POSITION
 16034   0074 00 4 16050  7959         TSX     ARGOF,4            PRINT ARGUMENT MESSAGE
 16035   0074 00 4 02312  7960         TSX     $SAVE,4            SAVE THERETURN IX
 16036  -3 03374 0 02401  7961         TXL     $END1,,EVS1+2
 16037   0560 00 0 16124  7962         LDQ     EVT1               RESTORE THE LIST OF ARGUMENTS
 16040   0500 00 0 03411  7963         CLA     EVTDE              AND THE LAMBDA EXPRESSION
 16041   0074 00 4 14663  7964         TSX     $APPLY,4           APPLY THE FUNCTION TO ITS ARGS
 16042   0074 00 4 02326  7965         TSX     UNSAVE,4
 16043   0131 00 0 00000  7966         XCA                        PUT VALUE IN AC
 16044   0534 00 4 03372  7967         LXA     EVS1,4             NAME OF ROUTINE TRACED
 16045  -0754 00 4 00000  7968         PXD     0,4                PUT IN AC
 16046  -0534 00 4 03372  7969         LXD     EVS1,4             LINK IR
 16047   0020 00 0 16104  7970         TRA     VALOF              PRINT VALUE OF STATEMETN
                          7971  *
                          7972  *      ARGOF   PRINTS ARGUMENTS OF  NAME FOLLOWED BY THE LIST OF ARGUMEN
                          7973  *
 16050   0634 00 4 16074  7974   ARGOF SXA     PRX,4              SAVE INDEX REGISTERS
 16051   0634 00 2 16073  7975         SXA     PRY,2
 16052   0601 00 0 16076  7976         STO     AGA                SAVE ATOM NAME
 16053  -0600 00 0 16077  7977         STQ     AGQ                SAVE LIST OF ARGUMENTS
 16054   0074 00 4 05214  7978         TSX     TERPRI,4           PRINT A BLANK LINE
 16055   0774 00 2 00003  7979         AXT     3,2                PRINT2 OUT 3 WORDS
 16056   0500 00 2 16103  7980         CLA     AGM+3,2
 16057   0074 00 4 05104  7981         TSX     $PRINT2,4
 16060   2 00001 2 16056  7982         TIX     *-2,2,1            LOOP                                  PAGE 161
 16061   0500 00 0 16076  7983         CLA     AGA
 16062   0074 00 4 04604  7984         TSX     $PRINT,4           PRINT OUT THE LINE
 16063  -0534 00 2 16077  7985         LXD     AGQ,2              START THE PRINLIS
 16064  -3 00000 2 16073  7986   PLL   TXL     PRY,2,0            EXIT IF END OF LIST
 16065   0500 00 2 00000  7987         CLA     0,2                NEXT ITEM
 16066  -0734 00 2 00000  7988         PDX     0,2                CDR OF LIST
 16067   0734 00 4 00000  7989         PAX     0,4                CAR
 16070  -0754 00 4 00000  7990         PXD     0,4
 16071   0074 00 4 04604  7991         TSX     $PRINT,4
 16072   0020 00 0 16064  7992         TRA     PLL                GET NEXT ITEM
 16073   0774 00 2 00000  7993   PRY   AXT     **,2               RESTORE INDEX REGISTERS
 16074   0774 00 4 00000  7994   PRX   AXT     **,4
 16075   0020 00 4 00001  7995         TRA     1,4                EXIT
                          7996  *
 16076   0 00000 0 00000  7997   AGA                              TEMPORARY STORAGE
 16077   0 00000 0 00000  7998   AGQ
 16100   215127644425     7999   AGM   BCI     1,ARGUME
 16101  -056362607777     8000         OCT     456362607777       ARGUMENTS
 16102  -062640777777     8001   AGO   OCT     462640777777       OF
 16103   652143642560     8002   VALV  BCI     1,VALUE
                          8003  *
                          8004  *      VALOF   PRINTS VALUE OF NAME FOLLOWED BY ONE LIST
                          8005  *              SHARES STORAGE WITH ARGOF ROUTINE
                          8006  *
 16104   0634 00 4 16117  8007   VALOF SXA     VAX,4              SAVE LINK IR
 16105   0601 00 0 16076  8008         STO     AGA                ATOM NAME
 16106  -0600 00 0 16077  8009         STQ     AGQ                VALUE OF EXPRESSION
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0151


 16107   0074 00 4 05214  8010         TSX     TERPRI,4           PRINT A BLANK LINE
 16110   0500 00 0 16103  8011         CLA     VALV               WORD VALUE
 16111   0074 00 4 05110  8012         TSX     $PRIN2,4           PUT IN OUTPUT LINE
 16112   0500 00 0 16102  8013         CLA     AGO                WORD OF
 16113   0074 00 4 05110  8014         TSX     $PRIN2,4
 16114   0500 00 0 16076  8015         CLA     AGA                ATOM
 16115   0074 00 4 04604  8016         TSX     $PRINT,4           PRINT OUT THE LINE
 16116   0500 00 0 16077  8017         CLA     AGQ                VALUE
 16117   0774 00 4 00000  8018   VAX   AXT     **,4               RESTORE LINK IR
 16120   0020 00 0 04604  8019         TRA     $PRINT             PRINT OUT VALUE AND RETURN
 16121   0 00000 0 00000  8020   EVTE                             E
 16122   0 00000 0 00000  8021   EVTAE                            CAR(E)
 16123   0 00000 0 00000  8022   EVTA                             A
 16124   0 00000 0 00000  8023   EVT1
 16125   0 00000 0 00000  8024   EVD1
 16126   0 00000 0 00000  8025   EVLNS                            TST CELL FOR NUMBERS
 16127  -3 03377 0 02373  8026   EVCM  TXL     $END4,,EVTRK+2
                   00370  8027   EVZRO SYN     $ZERO
                   00442  8028   EVQD1 SYN     $QD1
                          8029  * INTER        MULTIPLE LISP STATEMENT PROGRAM FEATURE INTERPRETER
                          8030  *              RECODED TO MAKE THE INTERPRETER AND COMPILER PROGRAM
                          8031  *              FEATURE UNDER STAND THE SAME LANGUAGE
                          8032  *
                          8033         HEAD R
 16130  -0634 00 4 03444  8034   INTER SXD     INTRX,4            SAVE LINK IR
 16131   0074 00 4 02312  8035         TSX     $SAVE,4            SAVE PROTECTED TEMPORARY STORAGE
 16132  -3 03452 0 02371  8036         TXL     $END5,,INTGS+2     SAVE 5 ITEMS                          PAGE 162
 16133   0634 00 2 03446  8037         SXA     INTGL,2              SAVE INDEX REGISTER 2
 16134  -0600 00 0 03447  8038         STQ     INTPL              SAVE PAIR LIST
 16135   0600 00 0 03450  8039         STZ     INTGS              ZERO THE GO SWITCH
 16136  -0734 00 4 00000  8040         PDX     0,4                POINTER TO PROGRAM
 16137   0500 00 4 00000  8041         CLA     0,4                FIRST WORD
 16140   0622 00 0 03445  8042         STD     INTB               POINTER TO BEGINNING OF PROGRAM
 16141   0622 00 0 16271  8043         STD     INTE               DITTO
 16142   0734 00 4 00000  8044         PAX     0,4                POINTER TO LIST OF PROGRAM VARIABL    CLIPSCAN
 16143  -0754 00 4 00000  8045         PXD     0,4                TO DECREMENT
 16144   0560 00 0 16242  8046         LDQ     INTFB              FUNCTIONAL ARGUMENT
 16145   0074 00 4 04214  8047         TSX     MAPLIS,4           (MAPLIST PV (LAMBDA (L) (CONS (CA     CLIPSCAN
 16146   0560 00 0 03447  8048         LDQ     INTPL              NIL)))   PICK UP PAIR LIST
 16147   0074 00 4 07675  8049         TSX     $NCONC,4           ATTACH PROGARM VARIBLES TO PAIR L     CLIPSCAN
 16150   0601 00 0 03447  8050         STO     INTPL              PUT IN PAIR LISDT REGISTER
 16151   0560 00 0 00370  8051         LDQ     $ZERO              ZERO THE MQ
 16152  -0534 00 4 16271  8052   INTGM LXD     INTE,4             SEARCH PROGRAM FOR GO TO POINTS
 16153  -3 00000 4 16166  8053         TXL     INTAA,4,0          GO IF END OF PROGRAM
 16154   0500 00 4 00000  8054         CLA     0,4                NEXT WORD
 16155   0622 00 0 16271  8055         STD     INTE               SAVE CDR
 16156   0734 00 2 00000  8056         PAX     0,2                CAR
 16157   0500 00 2 00000  8057         CLA     0,2                MAKE ATOM TEST
 16160   0734 00 2 00000  8058         PAX     0,2
 16161  -3 77777 2 16152  8059         TXL     INTGM,2,-1         GO IF NOT AN ATOM
 16162  -0754 00 4 00000  8060         PXD     0,4                IS AN ATOM, PUT POINTER TO CURREN     CLIPSCAN
 16163   0074 00 4 03730  8061         TSX     $CONS,4            PUT ON GO LOST
 16164   0131 00 0 00000  8062         XCA                        ANSWER TO MQ
 16165   0020 00 0 16152  8063         TRA     INTGM              NEXT ITEM
 16166  -0620 00 0 03446  8064   INTAA SLQ     INTGL              ALL DONE, STORE GO LIST
 16167  -0534 00 4 03445  8065   INTGA LXD     INTB,4,0           NEXT PROGRAM LOCATION
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0152


 16170  -3 00000 4 16262  8066         TXL     INTRN,4,0          RETURN WITH NIL IF RAN OUT OF STA     CLIPSCAN
 16171   0500 00 4 00000  8067         CLA     0,4                NEXT WORD
 16172   0622 00 0 03445  8068         STD     INTB               SAVE CDR
 16173   0734 00 4 00000  8069         PAX     0,4                CAR
 16174   0500 00 4 00000  8070         CLA     0,4                FIRST WORD
 16175   0734 00 2 00000  8071         PAX     0,2                CHECK FOR ATOM OR $COND
 16176   3 77777 2 16167  8072         TXH     INTGA,2,-1         GO TO NEXT STEP IF ATOM
 16177  -3 10457 2 16221  8073         TXL     INTEV,2,$COND-1    GO TO EVAL IF NOT $COND
 16200   3 10460 2 16221  8074         TXH     INTEV,2,$COND
 16201  -0734 00 2 00000  8075         PDX     0,2                IS $COND DO AN EVCOND
 16202  -3 00000 2 16167  8076   INTEB TXL     INTGA,2,0          GO TO NEXT STEP IF COND UNSATISFIED   CLIPSCAN
 16203   0500 00 2 00000  8077         CLA     0,2                FIRST COND STATEMENT
 16204  -0734 00 2 00000  8078         PDX     0,2                CDR
 16205   0734 00 4 00000  8079         PAX     0,4                FIRST SUB COND
 16206   0500 00 4 00000  8080         CLA     0,4
 16207  -0734 00 4 00000  8081         PDX     0,4                POINTER TO THEN PART
 16210   0634 00 4 03445  8082         SXA     INTB,4             SAVE IN PROTECTED STORAGE
 16211   0734 00 4 00000  8083         PAX     0,4                POINTRE TO IF PART
 16212  -0754 00 4 00000  8084         PXD     0,4                PUT IN DECREMENT
 16213   0560 00 0 03447  8085         LDQ     INTPL              PAIR LIST
 16214   0074 00 4 15454  8086         TSX     $EVAL,4            EVALUATE IT
 16215   0100 00 0 16202  8087         TZE     INTEB              GO IF IF PART IS FALSE
 16216   0534 00 4 03445  8088         LXA     INTB,4             GET THEN PART
 16217   0500 00 4 00000  8089         CLA     0,4
 16220   0754 00 4 00000  8090         PXA     0,4                PPRINTER TPO THEN PART                PAGE 163
 16221  -0754 00 4 00000  8091   INTEV PXD     0,4                LIST TO BE EVALUATED
 16222   0560 00 0 03447  8092         LDQ     INTPL              GET PAIR LIST
 16223   0074 00 4 15454  8093         TSX     $EVAL,4            EVALUATE IT
 16224  -0520 00 0 03450  8094         NZT     INTGS              SEE IF GO SWITCH SET
 16225   0020 00 0 16167  8095         TRA     INTGA              GO TO NEXT STATEMENT
 16226   0534 00 4 03450  8096         LXA     INTGS,4            WAS SET, SEE IF GO OR RETURN
 16227   3 77776 4 16262  8097         TXH     INTRN,4,-2         TRA IF RETURN
 16230  -0754 00 4 00000  8098         PXD     0,4                POINTER TO ITEM
 16231   0560 00 0 16253  8099         LDQ     INTFC              GET SASSOC FUNCTIONAL ARGUMENT
 16232  -0600 00 0 03321  8100         STQ     $ARG3              PUT IN $ARG3
 16233   0560 00 0 03446  8101         LDQ     INTGL              GET GO LIST
 16234   0074 00 4 10042  8102         TSX     SASSOC,4           SEARCH FOR ATOM
 16235  -0734 00 4 00000  8103         PDX     0,4                POINTRE TP  PROGRAM POINT
 16236   0500 00 4 00000  8104         CLA     0,4                TAKE CDR
 16237   0622 00 0 03445  8105         STD     INTB               SET PROGRAM POINT
 16240   0600 00 0 03450  8106         STZ     INTGS              ZERO THE GO SWITCH
 16241   0020 00 0 16167  8107         TRA     INTGA              GO TO THAT STATEMENT
                          8108  *
 16242  -3 00001 0 16243  8109  INTFB  TXL     *+1,,1             MAPLIST FUNCTIONAL ARGUMENT
 16243   0634 00 4 16251  8110         SXA     INTFX,4            (LAMBDA (L) (CONS (CAR L) NIL))
 16244  -0734 00 4 00000  8111         PDX     0,4
 16245   0500 00 4 00000  8112         CLA     0,4
 16246   0734 00 4 00000  8113         PAX     0,4
 16247  -0754 00 4 00000  8114         PXD     0,4
 16250   0560 00 0 00370  8115         LDQ     $ZERO
 16251   0774 00 4 00000  8116   INTFX AXT     **,4
 16252   0020 00 0 03730  8117         TRA     $CONS
                          8118  *
 16253  -3 00001 0 16254  8119   INTFC TXL     *+1,,1             UNLABELED GO TO POINT ERROR
 16254  -0634 00 4 01562  8120         SXD     $ERROR,4           SAVE LINK IR
 16255   0534 00 4 03450  8121         LXA     INTGS,4            POINTER TO GO POINT LABEL
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0153


 16256  -0754 00 4 00000  8122         PXD     0,4                PUT IN DECREMENT
 16257   0534 00 2 03446  8123         LXA     INTGL,2            RESTORE INDEX REGISTER 2
 16260   0074 00 4 01563  8124         TSX     $ERROR+1,4         GO TO ERROR
 16261   542160600654     8125         BCI     1,*A  6*                GO TO POINT NOT LABELED
                          8126  *
 16262  -0534 00 4 03450  8127   INTRN LXD     INTGS,4            RETURN VALUE
 16263  -0754 00 4 00000  8128         PXD     0,4                PUT IN DECREMENT
 16264   0600 00 0 03450  8129         STZ     INTGS              ZERO THE GO SWITCH
 16265   0534 00 2 03446  8130         LXA     INTGL,2            RESTORE INDEX REGISTER 2
 16266   0074 00 4 02326  8131         TSX     UNSAVE,4           RESTORE PROTECTED STORAGE
 16267  -0534 00 4 03444  8132         LXD     INTRX,4            RESTORE LINK IR
 16270   0020 00 4 00001  8133         TRA     1,4
                          8134  *              TEMPORARY STORAGE FOR INTERPRETERS
 16271   0 00000 0 00000  8135   INTE                             TEMPORARY STORAGE
                   03447  8136  PRGVAR SYN     INTPL
                          8137  *
                          8138  *
                          8139  * RETURN                          SPECIAL PROGRAM SETS RETURN SWITCH
                          8140  *                                 IN PROGRAM INTERPRETER
                          8141  *
 16272  -0501 00 0 00457  8142  RETURN ORA     $AMASK             SIGNAL THAT IT IS A RETURN
 16273   0601 00 0 03450  8143         STO     INTGS              SET UP GO SWITCH
 16274   0500 00 0 00442  8144         CLA     $QD1               PICK UP TRUTH VALUE                   PAGE 164
 16275   0020 00 4 00001  8145         TRA     1,4                EXIT
                          8146  *
                          8147  * GO           SPECIAL FORM FOR PROGRAM INTERPRETER, GIVES GO TO POINT
                          8148  *
 16276  -0634 00 4 03413  8149  GOGOGO SXD     GOX,4              SAVE LINK IR
 16277  -0734 00 4 00000  8150         PDX     0,4                POINTER TO ARGUMENT LIST
 16300   0500 00 4 00000  8151         CLA     0,4
 16301   0621 00 0 03450  8152         STA     INTGS              PUT GAR IN GO SWITCH
 16302   0734 00 4 00000  8153         PAX     0,4                CAR TO IR
 16303   0500 00 4 00000  8154         CLA     0,4                GET FIRST WORD
 16304   0734 00 4 00000  8155         PAX     0,4                SEE IF ATOMIC
 16305   3 77776 4 16316  8156         TXH     GOT,4,-2           EXIT TRUE IF ATIMIC
 16306   0534 00 4 03450  8157         LXA     INTGS,4            OTHERWISE GET ARGUMENT
 16307  -0754 00 4 00000  8158         PXD     0,4                PUT INDECREMENT
 16310   0074 00 4 02312  8159         TSX     $SAVE,4            SAVE LINK IR
 16311  -3 03415 0 02401  8160         TXL     $END1,,GOX+2       SAVE 1 ITEM
 16312   0074 00 4 15454  8161         TSX     $EVAL,4            EVALUATE THE ARGUMENT
 16313   0074 00 4 02326  8162         TSX     UNSAVE,4           RSTORE LINK IR
 16314  -0734 00 4 00000  8163         PDX     0,4                VALUE
 16315   0634 00 4 03450  8164         SXA     INTGS,4            PU IN GO SWITCH
 16316   0500 00 0 00442  8165   GOT   CLA     $QD1               TRUTH VALUE
 16317  -0534 00 4 03413  8166         LXD     GOX,4              RESTORE LINK IR
 16320   0020 00 4 00001  8167         TRA     1,4                EXIT
                          8168  *
 16321                    8169         DECK                       LAP PART ONE
                          8170         HEAD    C                  THIS IS THE COMPILER AND ASMBLR
                          8171  *
                          8172  * LAP IS THE ASSEMBLER. ONE ARG IS LISTING.  IT IS LIST OF INSTRUC-
                          8173  * TIONS, NON-ATOMIC OR NIL. THE ATOMIC SYMBOLS ARE LOCATION SYMBOLS
                          8174  * SECOND ARG IS START OF SYMBIL TABLE WHICH IS AN A-LIST.
                          8175  * THE FIRST ITEM IS ORG AS FOLLOWS-
                          8176  *      NIL= IN BPS
                          8177  *      ATOM= AT SYMBOLIC LOCATION
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0154


                          8178  *      NUM= ATHIS NUMBER
                          8179  *      (NAME TYPE NUM) = IN BPS, AND PUT TXL ON PROP LIST OF NAME
                          8180  *      WITH FLAG TYPE AND NUM (B DEC. OF TXL.
                          8181  * INSTRUCTION FORMAT IS (OP ADDR TAG DEC)
                          8182  * FIELD FORMAT IS AS FOLLOWS-
                          8183  *      TEMP SYMBOL
                          8184  *      NUMBER
                          8185  *      SYM SUBR OR FSUBR
                          8186  *      (E NAME) FOR IMMEDIATE AS IN TXL FILTER
                          8187  *      (QUOTE NAME) FOR IMTE IN DEC OF WORD ON QTLST
                          8188  *      POINTER TO COMMON WORD.MAKES ONE IF NONE ALREADY
                          8189  *      SUM OF ANY OF ABOVE
                          8190  * LAP IS IDENTITY FUNCTION
                          8191  *      LAP DOES NOT USE IX1. IX2,4 ARE SCARTCH
                          8192  * ERRORS IN LAP AS FOLLOWS-
                          8193  *      *L  1*  UNABLE TO EVALUATE ORIGIN
                          8194  *      *L  2*  OUT OF BPS DISCOVERED AFTER PASS 1
                          8195  *      *L  3* UNDEFINED SYMBOL
                          8196  *      *L  4*  FIELD WAS RECURSIVE
                          8197  *
 16321   0634 00 4 16470  8198  LAP    SXA     LAX,4                                                    PAGE 165
 16322   0634 00 2 16471  8199         SXA     LAX+1,2
 16323   0601 00 0 16477  8200         STO     LIST               THIS IS THE INPUT
 16324  -0600 00 0 16501  8201         STQ     TAB                START OF SYMBOL TABLE
 16325  -0734 00 4 00000  8202         PDX     0,4
 16326   0500 00 4 00000  8203         CLA     0,4
 16327   0622 00 0 16505  8204         STD     REST               SAVE REST OF LISTING
 16330   0734 00 2 00000  8205         PAX     0,2                ORIGIN IN IX2
 16331  -3 00000 2 16356  8206         TXL     INBP,2,0           NIL MEANS  BPS ASSEMBLY
 16332   0500 00 2 00000  8207         CLA     0,2
 16333   0734 00 4 00000  8208         PAX     0,4                CAR OF ORIGIN
 16334  -3 77776 4 16356  8209         TXL     INBP,4,-2          NOT ATOM MEANS BPS MODE SO GO
 16335  -0625 00 0 16511  8210         STL     MODE               NOISE = NOT BPS
 16336  -0754 00 2 00000  8211         PXD     0,2                MAKE NUMBER TEST
 16337   0074 00 4 14445  8212         TSX     NUMBRP,4
 16340  -0100 00 0 16351  8213         TNZ     LSQ                IF A NUMBER
 16341  -0754 00 2 00000  8214         PXD     0,2                ORIGIN TO AC
 16342   0560 00 4 00510  8215         LDQ     $QSYMD,4           (QUOTE SYM)
 16343   0074 00 4 11771  8216         TSX     GET,4
 16344  -0100 00 0 16350  8217         TNZ     *+4                ORIGINA WAS FIOUND
 16345  -0634 00 4 01562  8218         SXD     $ERROR,4
 16346  -0754 00 2 00000  8219         PXD     0,2                SHOW IT
 16347   0074 00 4 01563  8220         TSX     $ERROR+1,4         UNDEFINED ORIGIN
 16350   544360600154     8221         BCI     1,*L  1*
 16351  -0754 00 2 00000  8222  LSQ    PXD     0,2
 16352   0074 00 4 14342  8223         TSX     NUMVAL,4           GET NUMERICAL VALUE
 16353  -0734 00 4 00000  8224  LSO    PDX     0,4
 16354   0500 00 4 00000  8225         CLA     0,4                PUTS SYM IN AC FOR NOT BPS MODE
 16355   0020 00 0 16361  8226         TRA     *+4
 16356   0500 00 0 02304  8227  INBP   CLA     $ORG               PUTS ORG IN AC FOR BPS MODE
 16357   0600 00 0 16511  8228         STZ     MODE               INDICATES BPS MODE
 16360   0074 00 4 16535  8229         TSX     JUST,4             JUSTIFY AC
 16361   0601 00 0 16506  8230         STO     STAR               UPDATE MARKER
 16362   0601 00 0 16507  8231         STO     START              RESET MARKER
 16363   0600 00 0 16510  8232         STZ     PASWD              INDICATE PASS 1
 16364   0074 00 4 16543  8233         TSX     PASS,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0155


 16365   0500 00 0 16501  8234         CLA     TAB
 16366   0074 00 4 04604  8235         TSX     $PRINT,4           PRINT SYMBOL TABLE
 16367   0520 00 0 16511  8236         ZET     MODE
 16370   0020 00 0 16373  8237         TRA     *+3                IF NOT IN BPS MODE
 16371   0534 00 4 16506  8238         LXA     STAR,4
 16372   0522 00 0 16526  8239         XEC     LBPTP              TEST FOR OUT OF BPS
 16373   0534 00 4 16507  8240         LXA     START,4            RESET STAR FOR SECOND PASS
 16374   0634 00 4 16506  8241         SXA     STAR,4
 16375  -0534 00 4 16477  8242         LXD     LIST,4
 16376   0500 00 4 00000  8243         CLA     0,4
 16377   0622 00 0 16505  8244         STD     REST               USED BY PASS AGAIN
 16400  -0625 00 0 16510  8245         STL     PASWD              NOISE MEANS PASS 2
 16401   0074 00 4 16543  8246         TSX     PASS,4             FOR PASS 2
 16402   0520 00 0 16511  8247         ZET     MODE
 16403   0020 00 0 16464  8248         TRA     LEND               IF NOT IN BPS MODE
 16404   0534 00 4 16506  8249         LXA     STAR,4             RSET ORG FOR NEXT ASSEMBLY
 16405   0634 00 4 02304  8250         SXA     $ORG,4
 16406  -0534 00 4 16477  8251         LXD     LIST,4
 16407   0500 00 4 00000  8252         CLA     0,4                CWR OF LISTING                        PAGE 166
 16410   0734 00 4 00000  8253         PAX     0,4
 16411   0500 00 4 00000  8254         CLA     0,4                GET CWR OF ORIGIN
 16412   0734 00 2 00000  8255         PAX     0,2                CAR OF ORIGIN
 16413  -0734 00 4 00000  8256         PDX     0,4                CDR OF ORIGIN
 16414   3 77776 2 16464  8257         TXH     LEND,2,-2          IF ATOM THEN NO TXL NEEDED
 16415  -0634 00 2 16473  8258         SXD     NAME,2             CAR OF ORG IS NAME
 16416   0500 00 4 00000  8259         CLA     0,4
 16417   0734 00 2 00000  8260         PAX     0,2                CADR OF ORIGIN IS TYPE
 16420  -0634 00 2 16474  8261         SXD     TYPE,2             STORE TYPE
 16421  -0320 00 0 00460  8262         ANA     $DMASK             CDDR IS NOE IN AC
 16422   0074 00 4 11712  8263         TSX     CADARX,4           CADAR PUTS PART OF NUM IN DECR OF AC
 16423   0622 00 0 16475  8264         STD     INDC               FOR TXL WORD
 16424   0534 00 4 16507  8265         LXA     START,4
 16425   0634 00 4 16475  8266         SXA     INDC,4             COMPLETES TXL WORD
 16426   0500 00 0 16473  8267         CLA     NAME
 16427   0074 00 4 17034  8268         TSX     PRO,4
 16430   0560 00 0 16474  8269         LDQ     TYPE
 16431   0074 00 4 11771  8270         TSX     GET,4
 16432   0100 00 0 16444  8271         TZE     MKIND              IF THERE WAS NO OLD TXL
 16433  -0734 00 2 00000  8272         PDX     0,2                SAVE POINTER TO TXL
 16434   0500 00 2 00000  8273         CLA     0,2                CWR OF OLD TXL
 16435   0737 00 4 00000  8274         PAC     0,4                POINTER TO OLD BIN PTROG.
 16436   0500 00 0 16507  8275         CLA     START              START OF NEW PROGRAM
 16437  -0501 00 0 16476  8276         ORA     PATCH              MAKE TRA INSTRUCTION
 16440   0601 00 4 00000  8277         STO     0,4                CLOBBER OLD PROG.
 16441   0500 00 0 16475  8278         CLA     INDC
 16442   0601 00 2 00000  8279         STO     0,2                ON TOP OF OLD TXL
 16443   0020 00 0 16464  8280         TRA     LEND
 16444   0500 00 0 16475  8281  MKIND  CLA     INDC
 16445  -0534 00 4 16474  8282         LXD     TYPE,4             SYM SHOULD HAVE TO TXL ON POINTER
 16446  -3 06705 4 16451  8283         TXL     IND2,4,$SYM-1
 16447   3 06706 4 16451  8284         TXH     IND2,4,$SYM
 16450  -0320 00 0 00457  8285         ANA     $AMASK
 16451   0074 00 4 03710  8286   IND2  TSX     $CONSW,4
 16452   0131 00 0 00000  8287         XCA                        SAVE AC
 16453  -0534 00 2 16473  8288         LXD     NAME,2             NAME OF SUBR OR TYOE
 16454   0500 00 2 00000  8289         CLA     0,2
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0156


 16455  -0320 00 0 00460  8290         ANA     $DMASK             CDR OF NAME NOW IN AC
 16456   0131 00 0 00000  8291         XCA
 16457   0074 00 4 03730  8292         TSX     $CONS,4            CONS (TXL,RESTOF PROPERTY LIST)
 16460   0131 00 0 00000  8293         XCA
 16461   0500 00 0 16474  8294         CLA     TYPE
 16462   0074 00 4 03730  8295         TSX     $CONS,4            CONS,TYPE,RST OF ATM)
 16463   0622 00 2 00000  8296         STD     0,2                RPLACD OF PROPERTY 9IST
 16464   0500 00 0 16477  8297  LEND   CLA     LIST
 16465   0600 00 0 16477  8298         STZ     LIST
 16466   0600 00 0 16501  8299         STZ     TAB
 16467   0600 00 0 16504  8300         STZ     INST
                          8301  *      DONT STORE ZERO IN QTLST
 16470   0774 00 4 00000  8302  LAX    AXT     **,4
 16471   0774 00 2 00000  8303         AXT     **,2
 16472   0020 00 4 00001  8304         TRA     1,4
                          8305  * ALL LAP REGISTERS FOLLOW,INCL. THOSE USED BY SUBROUTINES
 16473   0 00000 0 00000  8306  NAME                              NAME OF FUNCTION                      PAGE 167
 16474   0 00000 0 00000  8307  TYPE                              SUBR FSUBR ETC
 16475  -3 00000 0 00000  8308  INDC   TXL     **,,**             FOR TSL WORD
 16476   0020 00 0 00000  8309  PATCH  TRA     **                 FOR CLOBBER INSTRUCTION
 16477                    8310         DECK                       PERM PROTECTED LAP STORAGE
                   16477  8311  PROBE  SYN     *                  BEGINNING OF PROTECTED AREA
 16477   0 00000 0 00000  8312  LIST                              MAIN LISTING GOES HERE
 16500   0 00000 0 00000  8313  QTLST                             THE LIST OF QUOTES.NEVER ERASE
 16501   0 00000 0 00000  8314  TAB                               TEMPORARY SYM TABLE
 16502   0 00000 0 00000  8315  LCOM                              STORAGE FOR COMMON ONLY.PROTECTED
 16503   0 00000 0 00000  8316  PROS                              PROTECTED FUNCTION NAMES AND SPECIALS
                   16503  8317  PROEN  SYN     *-1                END OF PROTECTED AREA
 16504                    8318         DECK                       LAP PART TWO
 16504   0 00000 0 00000  8319  INST                              HOLDS CURRENT INSTRUCTION OR FRACTION
 16505   0 00000 0 00000  8320  REST                              REMAINDER OF LISTING. PASS ALTERS THIS
 16506   0 00000 0 00000  8321  STAR                              * DIRECT ADDRESS POINTER TO CURRENT LO
 16507   0 00000 0 00000  8322  START                             RESET CELL FOR *
 16510   0 00000 0 00000  8323  PASWD                             ZERO MEANS PASS 1. NOISE = PASS 2
 16511   0 00000 0 00000  8324  MODE                              ZERO MEANS BPS ASSEMBLY
 16512   0 00000 0 00000  8325  HOLD                              SCRATCH CELL FOR AFELD ONLY.WATCH OUT
 16513   0 00000 0 00000  8326  SUM                               FOR USE BY AFELD LIST ONLY
 16514   0 00000 0 00000  8327  NOCUR                             FOR AFELD LIST ONLY.PREVENTS RECURSION
 16515   0 00000 0 00000  8328  REM                               FOR AFELD LIST ONLY.
 16516   0 00000 0 03316  8329  ALST           $ALIST
 16517   0 00000 0 00000  8330  ERCC
 16520  -3 00000 0 16521  8331  LSAC   TXL     *+1,,0
 16521  -0754 00 0 00000  8332         PXD     0,0
 16522   0020 00 4 00001  8333         TRA     1,4
 16523                    8334         DECK                       ATOM PIECES
 16523   0 00000 0 17357  8335  MOV            MOVE               THE WORD POINTED TO BY SYM ON *MOVE
 16524   0 00000 0 17255  8336  LSTR           LST                POINTED TO BY SYM ON ATOM *LIST
 16525   0 00000 0 17454  8337  RTRN           RESTOR
 16526                    8338         DECK                       LAP PART THREE
                          8339  *      ADDR(REM)=IX4 SAVED.DECR=REST OF LIST FIELD
                          8340  *
                          8341  * LBPTP CHECKS FOR OUT OF BPS AND MAKES ERROR IF D SO.
 16526   3 00000 4 16527  8342  LBPTP  TXH     *+1,4,**           SETUP FILLS THIS CELL
 16527  -0634 00 4 01562  8343         SXD     $ERROR,4
 16530  -0754 00 4 00000  8344         PXD     0,4
 16531   0560 00 0 00503  8345         LDQ     $OCTD
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0157


 16532   0074 00 4 12636  8346         TSX     $MKNO,4
 16533   0074 00 4 01563  8347         TSX     $ERROR+1,4
 16534   544360600254     8348         BCI     1,*L  2*
                          8349  *
                          8350  *  JUST REDUCES THE AC MOD 2**15.THE RESULT IS 15 BITS IN ADDR OF AC
                          8351  *   IT IS ALWAYS POSITIVE
 16535   0120 00 0 16540  8352  JUST   TPL     *+3
 16536   0760 00 0 00006  8353         COM
 16537   0402 00 0 00371  8354         SUB     $Q1
 16540  -0320 00 0 00457  8355         ANA     $AMASK
 16541  -0140 00 4 00001  8356         TNO     1,4
 16542   0020 00 4 00001  8357         TRA     1,4
                          8358  *
                          8359  *  PASS DOES BOTH PASSES FOR LAP
                          8360  *      FIRST PASS MAKES SYMBOL TABLE AND UPDATES ON INSTRUCTIONS        PAGE 168
                          8361  *      SECOND PASS IGNORES SYMBOLS ASSEMBLES AND UPDTS INSTRUCTIONS
 16543   0634 00 4 16600  8362  PASS   SXA     PAUX,4
 16544  -0534 00 4 16505  8363  LOP1   LXD     REST,4
 16545  -3 00000 4 16600  8364         TXL     PAUX,4,0           IF NO MORE LISTING
 16546   0500 00 4 00000  8365         CLA     0,4
 16547   0622 00 0 16505  8366         STD     REST               RESET REST OF LISTING
 16550   0734 00 4 00000  8367         PAX     0,4
 16551  -0634 00 4 16504  8368         SXD     INST,4
 16552  -3 00000 4 16572  8369         TXL     AMBL,4,0           IF NIL
 16553   0500 00 4 00000  8370         CLA     0,4
 16554   0734 00 4 00000  8371         PAX     0,4
 16555  -3 77776 4 16572  8372         TXL     AMBL,4,-2          IF NOT ATOMO
 16556   0520 00 0 16510  8373         ZET     PASWD
 16557   0020 00 0 16544  8374         TRA     LOP1               IF PASS 2
 16560   0500 00 0 16506  8375         CLA     STAR               OTHERWISE ADD    TO TABLE
 16561   0560 00 0 00503  8376         LDQ     $OCTD
 16562   0074 00 4 12636  8377         TSX     $MKNO,4            MAKE A NUMBER
 16563   0131 00 0 00000  8378         XCA
 16564   0500 00 0 16504  8379         CLA     INST
 16565   0074 00 4 03730  8380         TSX     $CONS,4            (NAME.VALUE)
 16566   0560 00 0 16501  8381         LDQ     TAB
 16567   0074 00 4 03730  8382         TSX     $CONS,4
 16570   0601 00 0 16501  8383         STO     TAB
 16571   0020 00 0 16544  8384         TRA     LOP1
 16572   0520 00 0 16510  8385  AMBL   ZET     PASWD              LAND HERE IF INSTRUCTION NOT SYMBOL
 16573   0074 00 4 16602  8386         TSX     AINS,4             ON PASS 2 ONLY
 16574   0534 00 4 16506  8387         LXA     STAR,4
 16575   1 00001 4 16576  8388         TXI     *+1,4,1            UPDATE * AFTER INSTRUCTION IS ASSEMBLE
 16576   0634 00 4 16506  8389         SXA     STAR,4
 16577   0020 00 0 16544  8390         TRA     LOP1
 16600   0774 00 4 00000  8391  PAUX   AXT     **,4
 16601   0020 00 4 00001  8392         TRA     1,4
                          8393  *
                          8394  * AINS IS THE INSTRUCTION ASSEMBLER. ARG IS IN INST. VAL IS IN AC
 16602   0634 00 4 16620  8395  AINS   SXA     AINX,4
 16603   0074 00 4 16622  8396         TSX     AFELD,4
 16604   0601 60 0 16506  8397         STO*    STAR
 16605   0074 00 4 16622  8398         TSX     AFELD,4
 16606   0074 00 4 16535  8399         TSX     JUST,4
 16607  -0602 60 0 16506  8400         ORS*    STAR               THIS IS ADDRESS FIELD
 16610   0074 00 4 16622  8401         TSX     AFELD,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0158


 16611   0767 00 0 00017  8402         ALS     15
 16612   0140 00 0 16613  8403         TOV     *+1
 16613  -0602 60 0 16506  8404         ORS*    STAR               TAG FIELD
 16614   0074 00 4 16622  8405         TSX     AFELD,4
 16615   0074 00 4 16535  8406         TSX     JUST,4
 16616   0767 00 0 00022  8407         ALS     18                 NO OVERFLOW AFTER JUST
 16617  -0602 60 0 16506  8408         ORS*    STAR
 16620   0774 00 4 00000  8409  AINX   AXT     **,4
 16621   0020 00 6 00000  8410         TRA     ,14
                          8411  *
                          8412  * AFELD IS THE FIELD EVALUATOR. A LIST OF FIELDS IS EXPECTED IN INST.
                          8413  * IT EVALUATES THE FIRST AND SETS INST TO THE REST. IF NO MORE FIELDS LE
                          8414  * ARE LEFT, IT GOES TOAINX, THE EXIT POINT OF AINS                      PAGE 169
                          8415  * AFELD HAS CERTAIN PRIVATE CELLS,SEE AFTER LAP.) THE LIST AFELD IS A
                          8416  * SLIGHTLY RECURSIVE DEVISE WHICH HAS SPECIAL CELLS AND CANNOT REENTER I
                          8417  * ITSELF WITHOUT ERROR.
 16622   0634 00 4 17032  8418  AFELD  SXA     FELX,4
 16623   0600 00 0 16514  8419         STZ     NOCUR
 16624  -0534 00 4 16504  8420         LXD     INST,4
 16625  -3 00000 4 16620  8421         TXL     AINX,4,0           IF NO MORE FIELDS
 16626   0500 00 4 00000  8422         CLA     0,4
 16627   0622 00 0 16504  8423         STD     INST               REST OF FIELDS
 16630   0734 00 2 00000  8424         PAX     0,2
 16631   0500 00 2 00000  8425  LEM    CLA     0,2
 16632   0734 00 4 00000  8426         PAX     0,4
 16633  -3 77776 4 16707  8427         TXL     NATM,4,-2          IF NOT ATOMIC FIELD
 16634   3 00000 2 16637  8428         TXH     *+3,2,0
 16635   0500 00 0 02304  8429         CLA     $ORG               NIL SYMBOL MEANS ORIGIN
 16636   0020 00 0 17032  8430         TRA     FELX
 16637  -0754 00 2 00000  8431         PXD     0,2
 16640   0560 00 0 16520  8432         LDQ     LSAC               FN ARG FOR SASSOC
 16641  -0600 00 0 03321  8433         STQ     $ARG3
 16642   0560 00 0 16501  8434         LDQ     TAB
 16643   0074 00 4 10042  8435         TSX     SASSOC,4           LOOK UP IN SYM TABLE
 16644   0100 00 0 16652  8436         TZE     NTAB               NOT IN TAB
 16645   0074 00 4 15222  8437         TSX     $CDRP,4
 16646   0074 00 4 14342  8438  NEVAL  TSX     NUMVAL,4
 16647  -0734 00 4 00000  8439         PDX     0,4
 16650   0500 00 4 00000  8440         CLA     0,4
 16651   0020 00 0 17032  8441         TRA     FELX
 16652  -0754 00 2 00000  8442  NTAB   PXD     0,2
 16653   0074 00 4 14445  8443         TSX     NUMBRP,4
 16654   0100 00 0 16657  8444         TZE     *+3                IF NOT A NUMBER
 16655  -0754 00 2 00000  8445         PXD     0,2                LISP NUMBER IN AC
 16656   0020 00 0 16646  8446         TRA     NEVAL
 16657  -0634 00 2 16517  8447         SXD     ERCC,2             SAVE ATOM
 16660   0500 00 2 00000  8448  LOP2   CLA     0,2     LOOP FOR SYM,SUBR,FSUBR
 16661  -0734 00 2 00000  8449         PDX     0,2
 16662   0734 00 4 00000  8450         PAX     0,4
 16663   3 00000 2 16670  8451         TXH     PA,2,0             IF NOT NIL
 16664  -0634 00 4 01562  8452         SXD     $ERROR,4
 16665   0500 00 0 16517  8453         CLA     ERCC
 16666   0074 00 4 01563  8454         TSX     $ERROR+1,4
 16667   544360600354     8455         BCI     1,*L  3*           UNDEFINED SYMBOL
 16670  -3 06705 4 16672  8456  PA     TXL     *+2,4,$SYM-1
 16671  -3 06706 4 16703  8457         TXL     FINX,4,$SYM
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0159


 16672  -3 06732 4 16674  8458         TXL     *+2,4,$SUBR-1
 16673  -3 06733 4 16676  8459         TXL     FIND,4,$SUBR
 16674  -3 10102 4 16660  8460         TXL     LOP2,4,$FSUBR-1
 16675   3 10103 4 16660  8461         TXH     LOP2,4,$FSUBR
 16676   0500 00 2 00000  8462  FIND   CLA     0,2
 16677   0734 00 4 00000  8463         PAX     0,4
 16700   0500 00 4 00000  8464         CLA     0,4
 16701  -0320 00 0 00457  8465         ANA     $AMASK
 16702   0020 00 0 17032  8466         TRA     FELX
                          8467  *
 16703   0500 00 2 00000  8468  FINX   CLA     0,2                                                      PAGE 170
 16704   0734 00 4 00000  8469         PAX     0,4
 16705   0500 00 4 00000  8470         CLA     0,4
 16706   0020 00 0 17032  8471         TRA     FELX
                          8472  *
 16707  -3 06153 4 16715  8473  NATM   TXL     NTE,4,$H25-1
 16710   3 06154 4 16715  8474         TXH     NTE,4,$H25         FOR (E EXP)
 16711  -0754 00 2 00000  8475         PXD     0,2                ENTIRE FIELD
 16712   0074 00 4 11730  8476         TSX     CADRXX,4
 16713   0771 00 0 00022  8477         ARS     18
 16714   0020 00 0 17032  8478         TRA     FELX
 16715  -3 07247 4 16754  8479  NTE    TXL     NQT,4,$QUOTE-1     LAND HERE FOR NOT (...
 16716   3 07250 4 16754  8480         TXH     NQT,4,$QUOTE       ABOVE AND THIS FOR (QUOTE...
 16717  -0734 00 2 00000  8481         PDX     0,2                AC HAS CWR OF FIELD
 16720   0500 00 2 00000  8482         CLA     0,2
 16721   0734 00 2 00000  8483         PAX     0,2                POINTER TO EQ QUANTITY
 16722  -0534 00 4 16500  8484         LXD     QTLST,4
 16723  -3 00000 4 16737  8485         TXL     NON,4,0            TEST FOR NO LIST
 16724   0500 00 4 00000  8486  FLOOP  CLA     0,4                AN EQUAL TYPE SEARCH
 16725   0601 00 0 16512  8487         STO     HOLD               TEMPORARY SAVING OF REST
 16726   0734 00 4 00000  8488         PAX     0,4
 16727   0500 00 4 00000  8489         CLA     0,4
 16730  -0320 00 0 00460  8490         ANA     $DMASK             LITREAL QUANTITY FOR EQUAL COMPARISON
 16731   0131 00 0 00000  8491         XCA
 16732   0734 00 2 00000  8492         PAXD    0,2                THE NEW ITEM
 16733   0074 00 4 04461  8493         TSX     $EQUAL,4           TEST FOR EUQALITY
 16734  -0100 00 0 16752  8494         TNZ     ONQT               IF ALREADY ON LIST
 16735  -0534 00 4 16512  8495         LXD     HOLD,4
 16736   3 00000 4 16724  8496         TXH     FLOOP,4,0          IF NOT HEAD OF QTLIST
 16737  -0754 00 2 00000  8497  NON    PXD     0,2                NEED TO MAKE ENTRY
 16740   0131 00 0 00000  8498         XCA
 16741   0754 00 0 00000  8499         PXA     0,0
 16742   0074 00 0 03730  8500         TSX     $CONS              CONS(NIL EXP)
 16743   0601 00 0 16512  8501         STO     HOLD               NEEDS NO PROTECTION AS SEEN BY WHAT FO
                          8502  *              FOLLOWS
 16744   0560 00 0 16500  8503         LDQ     QTLST
 16745   0074 00 4 03730  8504         TSX     $CONS,4            CONS((NIL.EXP, ...
 16746   0601 00 0 16500  8505         STO     QTLST
 16747  -0535 00 4 16512  8506         LDC     HOLD,4             WANT TRUE POINTER
 16750   0754 00 4 00000  8507  TRP    PXA     0,4
 16751   0020 00 0 17032  8508         TRA     FELX
                          8509  *      THIS    IS POINTER TO A NIL.EXP WORD IN FREE STORAGE
 16752   0535 00 4 16512  8510  ONQT   LAC     HOLD,4
 16753   0020 00 0 16750  8511         TRA     TRP
 16754  -3 07107 4 17004  8512  NQT    TXL     FDLST,4,SPECAL-1
 16755   3 07110 4 17004  8513         TXH     FDLST,4,SPECAL     (SPECIAL NAME)
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0160


 16756   0560 00 0 00507  8514         LDQ     QSPECD             SPECIAL IN MQ
 16757  -0320 00 0 00460  8515         ANA     $DMASK             (NAME) IN AC
 16760   0074 00 4 15212  8516         TSX     $CARP,4
 16761   0074 00 4 11771  8517         TSX     GET,4
 16762  -0100 00 0 17001  8518         TNZ     SPP                JUST NEED TO ASSURE PROTECTION
 16763   0560 00 0 00370  8519         LDQ     $ZERO
 16764   0074 00 4 03730  8520         TSX     $CONS,4            AC HAS ZERO IF YOU ARE HERE
 16765   0601 00 0 16502  8521         STO     LCOM               PROTECTED TEMP CELL
 16766  -0754 00 2 00000  8522         PXD     0,2                (SPECIAL NAME)                        PAGE 171
 16767   0074 00 4 11705  8523         TSX     CAADRX,4           CDR(NAME)
 16770  -0734 00 2 00000  8524         PDX     0,2                SAVE ABOVE
 16771   0131 00 0 00000  8525         XCA
 16772   0500 00 0 16502  8526         CLA     LCOM
 16773   0074 00 4 03730  8527         TSX     $CONS,4
 16774   0131 00 0 00000  8528         XCA
 16775   0500 00 0 00507  8529         CLA     QSPECD
 16776   0074 00 4 03730  8530         TSX     $CONS,4
 16777   0622 00 2 00000  8531         STD     0,2                RPLACD OF NAME
 17000   0074 00 4 11730  8532         TSX     CADRXX,4           POINTER TO (NIL)
 17001   0074 00 4 17034  8533  SPP    TSX     PRO,4
 17002  -0737 00 4 00000  8534         PDC     0,4
 17003   0020 00 0 16750  8535         TRA     TRP
 17004  -0520 00 0 16514  8536  FDLST  NZT     NOCUR              NO RE-ENTRY TO AFELD LIST IS ALLOWED
 17005   0020 00 0 17011  8537         TRA     *+4
 17006  -0634 00 4 01562  8538         SXD     $ERROR,4
 17007   0074 00 4 01563  8539         TSX     $ERROR+1,4
 17010   544360600454     8540         BCI     1,*L  4*           NO RECURSIVE FIELDS ALLOWED
 17011  -0625 00 0 16514  8541         STL     NOCUR              PREVENT RECURSION
 17012   0600 00 0 16513  8542         STZ     SUM                RESET SUM WORD
 17013   0534 00 4 17032  8543         LXA     FELX,4
 17014   0634 00 4 16515  8544         SXA     REM,4              SAVES THE RETURN FOR AFELD
 17015   0500 00 2 00000  8545  LOPL   CLA     0,2
 17016   0622 00 0 16515  8546         STD     REM
 17017   0734 00 2 00000  8547         PAX     0,2
 17020  -0774 00 4 17022  8548         AXC     *+2,4
 17021   0634 00 4 17032  8549         SXA     FELX,4             REENTER THE EVALUATOR
 17022   0020 00 0 16631  8550         TRA     LEM
 17023   0400 00 0 16513  8551         ADD     SUM
 17024   0601 00 0 16513  8552         STO     SUM
 17025  -0534 00 2 16515  8553         LXD     REM,2              REST OF FIELDS
 17026   3 00000 2 17015  8554         TXH     LOPL,2,0           IF THERE ARE MORE FIELDS (SUBFLDS)
 17027   0600 00 0 16514  8555         STZ     NOCUR              ALLOWS ENTRY TO LIST AFELD AGAIN
 17030   0534 00 4 16515  8556         LXA     REM,4
 17031   0020 00 4 00001  8557         TRA     1,4
 17032   0774 00 4 00000  8558  FELX   AXT     **,4
 17033   0020 00 4 00001  8559         TRA     1,4
                          8560  *
 17034   0634 00 4 17050  8561  PRO    SXA     PX,4
 17035   0601 00 0 17060  8562         STO     PTR                SAVE ARGUMENT
 17036   0622 00 0 17047  8563         STD     PH                 SET UP TXH
 17037   0402 00 0 00442  8564         SUB     $QD1               AND
 17040   0622 00 0 17046  8565         STD     PL                 TXL SIEVE
 17041   0500 00 0 16503  8566         CLA     PROS               GET PROTECTED LIST
 17042  -0734 00 4 00000  8567  PNL    PDX     0,4
 17043  -3 00000 4 17053  8568         TXL     PMK,4,0            END OF LIST, SO MAKE NEW ENTRY
 17044   0500 00 4 00000  8569         CLA     0,4
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0161


 17045   0734 00 4 00000  8570         PAX     0,4
 17046  -3 00000 4 17042  8571  PL     TXL     PNL,4,**
 17047   3 00000 4 17042  8572  PH     TXH     PNL,4,**           FALL THROUGH IF FOUND
 17050   0774 00 4 00000  8573  PX     AXT     **,4
 17051   0500 00 0 17060  8574         CLA     PTR                RESTORE AC
 17052   0020 00 4 00001  8575         TRA     1,4
                          8576  *                                                                       PAGE 172
 17053   0560 00 0 16503  8577  PMK    LDQ     PROS               MAKE A NEW ITEM
 17054   0500 00 0 17060  8578         CLA     PTR
 17055   0074 00 4 03730  8579         TSX     $CONS,4
 17056   0601 00 0 16503  8580         STO     PROS               STORE NEW LIST
 17057   0020 00 0 17050  8581         TRA     PX                 AND RETURN
                          8582  *
 17060   0 00000 0 00000  8583  PTR
                          8584  *
                          8585  *
 17061                    8586         DECK                       PERMANENT COMPILER SUBROUTINES
                          8587  *              LINK HANDLES ALL SUBROUTINE CALLS FROM COMPILED FUNCTION
                          8588  *              IT REPLACES STR WITH TSX IF SUBROUTINE BEING CALLED
                          8589  *              IS A SUBR OR FSUBR
                          8590  *              IT GOES TO APPLY IF THE CALL IS TO EXPR OR FEXPR WITH
                          8591  *              $ALIST AS THIRD ARGUMENT
                          8592  *              LINK EXPECTS A TAG OF 7 IN THE STR INST, NAME OF FUNCTION
                          8593  *              IN THE ADDRESS, AND THE NUMBER OF ARGUMENTS IN THE DECREM
                          8594  *              ENT                LINK WILL GO TO THE ROUTINE WHICH
                          8595  *              HANDLES ERROR TRAPS IF THE CALLING INST DOESNT HAVE A 7
                          8596  *              TAG
                          8597  *
 17061   0601 00 0 03417  8598  LINK   STO     LNKA
 17062  -0600 00 0 03420  8599         STQ     LNKB               SAVE AC AND MQ
 17063   0634 00 4 17243  8600         SXA     LER,4              SAVE IR4
 17064   0535 00 4 00000  8601         LAC     0,4                COMP POINTER TO STR+1
 17065   1 00001 4 17066  8602         TXI     *+1,4,1            MAKE ORDINARY TSX POINTER
 17066   0500 00 4 00000  8603         CLA     0,4                GET STR INST  7
 17067   0601 00 0 17252  8604         STO     LNKC               SAVE IT
 17070  -0320 00 0 00470  8605         ANA     TAGMSK             CHECK FOR 7 TAG
 17071   0322 00 0 00470  8606         ERA     TAGMSK
 17072  -0100 00 0 17243  8607         TNZ     LER                IF NOT 7 TAG
 17073  -0634 00 4 17252  8608         SXD     LNKC,4             SAVE POINTER
 17074   0500 00 0 00370  8609         CLA     B$ZERO             RESTORE NIL
 17075   0601 00 0 00000  8610         STO     0
 17076   0600 00 0 17246  8611         STZ     LNTRS              RESET TRACE SWITCH
 17077   0534 00 4 17253  8612         LXA     LNKD,4             FUNCTION ATIM
 17100   0500 00 4 00000  8613         CLA     0,4                START PROPERTY LIST SEARCH
 17101  -0734 00 4 00000  8614  LNLP   PDX     0,4
 17102  -3 00000 4 17134  8615         TXL     LNNF,4,0           NO DEFINITION SO FN VARIABLE
 17103   0500 00 4 00000  8616         CLA     0,4
 17104   0734 00 4 00000  8617         PAX     0,4
 17105  -3 06732 4 17107  8618         TXL     *+2,4,$SUBR-1
 17106  -3 06733 4 17171  8619         TXL     LNSBR,4,$SUBR
 17107  -3 10102 4 17111  8620         TXL     *+2,4,$FSUBR-1
 17110  -3 10103 4 17171  8621         TXL     LNSBR,4,$FSUBR
 17111  -3 06646 4 17113  8622         TXL     *+2,4,$TRACE-1
 17112  -3 06647 4 17136  8623         TXL     LNTR,4,$TRACE
 17113  -3 10156 4 17115  8624         TXL     *+2,4,$EXPR-1
 17114  -3 10157 4 17117  8625         TXL     LNEXP,4,$EXPR
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0162


 17115  -3 10141 4 17101  8626         TXL     LNLP,4,$FEXPR-1
 17116   3 10142 4 17101  8627         TXH     LNLP,4,$FEXPR
 17117  -0734 00 4 00000  8628  LNEXP  PDX     0,4                EXPR-FEXPR BRANCH
 17120   0500 00 4 00000  8629         CLA     0,4
 17121   0734 00 4 00000  8630         PAX     0,4                LAMBDA EXPRESSION                     PAGE 173
 17122  -0634 00 4 17247  8631  LNGN   SXD     LNFN,4             SAVE IT
 17123   0500 00 0 03316  8632         CLA     $ALIST
 17124   0601 00 0 03321  8633         STO     $ARG3              PROPER ALIST
 17125   0520 00 0 17246  8634         ZET     LNTRS              TRACE TEST
 17126   0020 00 0 17153  8635         TRA     LNTEX              TRACE EXPR OF FEXPR
 17127   0074 00 4 17206  8636         TSX     LNARS,4            LIST ARGUMENTS
 17130   0131 00 0 00000  8637         XCA
 17131   0500 00 0 17247  8638         CLA     LNFN               LAMBDA EXPRESSION
 17132  -0534 00 4 17252  8639         LXD     LNKC,4             RETURN IR
 17133   0020 00 0 14663  8640         TRA     $APPLY             DO
                          8641  *
 17134   0534 00 4 17253  8642  LNNF   LXA     LNKD,4             FUNCTION DEFN IS ON ALIST
 17135   0020 00 0 17122  8643         TRA     LNGN               APPLY WILL TAKE CARE OF THIS
                          8644  *
 17136  -0625 00 0 17246  8645  LNTR   STL     LNTRS              SET TRACE SWITCH
 17137   0601 00 0 17250  8646         STO     LNAC               SAVE AC
 17140   0074 00 4 17206  8647         TSX     LNARS,4            LIST ARGUMENTS
 17141   0601 00 0 17251  8648         STO     LNRGL              AND SAVE THEM
 17142   0131 00 0 00000  8649         XCA                        TO PRINT POSITION
 17143   0534 00 4 17253  8650         LXA     LNKD,4             ATOM NAME
 17144   0634 00 4 17252  8651         SXA     LNKC,4             SAVE WITH INDEX REGISTER
 17145  -0754 00 4 00000  8652         PXD     0,4                ALSO FOR TRACE MESSAGE
 17146   0074 00 4 02312  8653         TSX     $SAVE,4            SAVE NAME AND RETRN
 17147   0074 54 0 02401  8654         TSX     $END1,,LNKC+2
 17150   0074 00 4 16050  8655         TSX     A$ARGOF,4          PRINT ARGUMENTS
 17151   0500 00 0 17250  8656         CLA     LNAC               RESTORE AC
 17152   0020 00 0 17101  8657         TRA     LNLP               AND CONTINUE PROPERTY LIST SEARCH
                          8658  *
 17153   0500 00 0 17247  8659  LNTEX  CLA     LNFN               TRACE EXPR OR FEXPR
 17154   0560 00 0 17251  8660         LDQ     LNRGL              SET UP ARGUMENTS OF APPLY
 17155   0074 00 4 14663  8661         TSX     $APPLY,4           AND DO THE FUNCTION
 17156   0074 00 4 02326  8662  LNTEN  TSX     UNSAVE,4           GET BACK IR4 AND FN NAME
 17157   0131 00 0 00000  8663         XCA
 17160   0534 00 4 17252  8664         LXA     LNKC,4             ATOM NAME TO AC
 17161  -0754 00 4 00000  8665         PXD     0,4
 17162  -0534 00 4 17252  8666         LXD     LNKC,4             RESTORE INDEX
 17163   0020 00 0 16104  8667         TRA     A$VALOF            PRINT VALUE MESSAGE
                          8668  *
 17164   0621 00 0 17167  8669  LNTSB  STA     LNDIS              TRACE SUBR OF FSUBR
 17165   0500 00 0 03417  8670         CLA     LNKA               RESTORE AC
 17166   0560 00 0 03420  8671         LDQ     LNKB               AND MQ
 17167   0074 00 4 00000  8672  LNDIS  TSX     **,4               EXECUTER SUBROUTINE
 17170   0020 00 0 17156  8673         TRA     LNTEN              AND REPORT VALUE
                          8674  *
 17171  -0734 00 4 00000  8675  LNSBR  PDX     0,4                SUBR OR FSUBR BRANCH
 17172   0500 00 4 00000  8676         CLA     0,4
 17173   0734 00 4 00000  8677         PAX     0,4
 17174   0500 00 4 00000  8678         CLA     0,4                TXL SUBR,,N WORD
 17175   0520 00 0 17246  8679         ZET     LNTRS              TEST FOR TRACING
 17176   0020 00 0 17164  8680         TRA     LNTSB
 17177   0621 00 0 17254  8681         STA     LNTSX              MAKE A TSX
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0163


 17200   0500 00 0 17254  8682         CLA     LNTSX              GET IT
 17201  -0534 00 4 17252  8683         LXD     LNKC,4             RETURN IR
 17202   0622 00 4 00000  8684         STD     0,4                CHANGE THE STR TO TSX                 PAGE 174
 17203   0500 00 0 03417  8685         CLA     LNKA               RESTORE AC
 17204   0560 00 0 03420  8686         LDQ     LNKB
 17205   0020 00 4 00000  8687         TRA     0,4                GO TO NEW TSX
                          8688  *
 17206   0634 00 4 17237  8689  LNARS  SXA     LNLX,4             SUBROUTINE WHICH LISTS ARGS
 17207  -0534 00 4 17253  8690         LXD     LNKD,4             NUMBER OF ARGS
 17210  -3 00000 4 17241  8691         TXL     LNN,4,0            LST WONT WORK ON ZERO THINGS
 17211  -0634 00 4 17213  8692         SXD     LNKP,4             PUT IN LST ARG POSITION
 17212   0074 00 4 17255  8693         TSX     LST,4              LIST THEM
 17213   3 00000 0 03417  8694  LNKP   TXH     LNKA,0,**
 17214   0734 00 0 03420  8695         PAX     LNKB,0
 17215   0734 00 0 03321  8696         PAX     $ARG3,0
 17216   0734 00 0 03322  8697         PAX     $ARG4,0
 17217   0734 00 0 03323  8698         PAX     $ARG5,0
 17220   0734 00 0 03324  8699         PAX     $ARG6,0
 17221   0734 00 0 03325  8700         PAX     $ARG7,0
 17222   0734 00 0 03326  8701         PAX     $ARG8,0
 17223   0734 00 0 03327  8702         PAX     $ARG9,0
 17224   0734 00 0 03330  8703         PAX     $ARG10,0
 17225   0734 00 0 03331  8704         PAX     $ARG11,0
 17226   0734 00 0 03332  8705         PAX     $ARG12,0
 17227   0734 00 0 03333  8706         PAX     $ARG13,0
 17230   0734 00 0 03334  8707         PAX     $ARG14,0
 17231   0734 00 0 03335  8708         PAX     $ARG15,0
 17232   0734 00 0 03336  8709         PAX     $ARG16,0
 17233   0734 00 0 03337  8710         PAX     $ARG17,0
 17234   0734 00 0 03340  8711         PAX     $ARG18,0
 17235   0734 00 0 03341  8712         PAX     $ARG19,0
 17236   0734 00 0 03342  8713         PAX     $ARG20,0
 17237   0774 00 4 00000  8714  LNLX   AXT     **,4               RESTORE INTEX
 17240   0020 00 4 00001  8715         TRA     1,4
 17241  -0754 00 0 00000  8716  LNN    PXD     0,0                NIL
 17242   0020 00 0 17237  8717         TRA     LNLX
                          8718  *
 17243   0774 00 4 17243  8719  LER    AXT     *,4                RESTORE IR4
 17244   0500 00 0 03417  8720         CLA     LNKA
 17245   0020 00 0 01766  8721         TRA     STRPNT             GO TO ERROR HANDLING ROUTINEPP
                          8722  *              LINK STORAGE
                          8723  *              IS HERE, EXCEPT FOR LINKA NAD LINKB WHICH ARE IN GARB    CLIPSCAN
 17246   0 00000 0 00000  8724  LNTRS                             TRACE SWITCH
 17247   0 00000 0 00000  8725  LNFN                              FUNCTION DEFINITION
 17250   0 00000 0 00000  8726  LNAC                              TEMPORARY AC STORAGE
 17251   0 00000 0 00000  8727  LNRGL                             ARGS LISTED DURNING TRANCE INTERLUD   CLIPSCAN
 17252   0 00000 0 00000  8728  LNKC                              IR4 POINTRE TO STR WORD
 17253   0 00000 0 00000  8729  LNKD                              CONTAINS STR NAME,7,NUM
 17254   0074 00 4 00000  8730  LNTSX  TSX     **,4               INSTRUCTION TO BE PLANTED
                          8731  *              LST IS THE SUBROUTINE WHICH DOES LISTING IN COMPILED
                          8732  *              FUNCTION           N ELEMENTS HWERE N IS IN AC, ARE
                          8733  *              LISTED             ARGUMENTS ARE GOTTEN BY CLA*
                          8734  *              FROM THE N REGISTERS SUCEDING THE CALL
                          8735  *
 17255   0634 00 2 17316  8736  LST    SXA     LX2,2              SAVE IR2
 17256   0500 00 4 00001  8737         CLA     1,4                TO GET N FROM FIRSTDECREMENT
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0164


 17257   0622 00 0 17261  8738         STD     LSN                TO DECREMENT IR4 FOR POINT EXIT       PAGE 175
 17260   0622 00 0 17275  8739         STD     LSC                TO DECREMENT THE CONS COUNTER
 17261  -2 00000 4 17262  8740  LSN    TNX     *+1,4,**
 17262  -0734 00 2 00000  8741         PDX     0,2                N TO IR2
 17263  -0754 00 4 00000  8742         PXD     0,4                START TO COMPLEMENT IR4
 17264  -0737 00 4 00000  8743         PDC     0,4                OH FOR A 7094
 17265   1 00001 4 17266  8744         TXI     *+1,4,1            ONE MORE FOR EXIT
 17266   0634 00 4 17302  8745         SXA     LSP,4              SET UP GET INST
 17267   0634 00 4 17320  8746         SXA     LSE,4              AND RETURN
 17270  -0534 00 4 03751  8747         LXD     $FREE,4            FIRST FREE WORD
 17271   3 00000 4 17273  8748         TXH     *+2,4,0            TEST FOR OUT OF FREE
 17272   0074 00 4 04037  8749         TSX     $FROUT,4           WILL RETURN -2,4
 17273  -0634 00 4 17327  8750         SXD     LAN,4              THE ANSWER TO THIS SAUSAGE CONS
 17274   0534 00 4 03742  8751         LXA     $CNTR1,4           GET CONS COUNTER
 17275   2 00000 4 17300  8752  LSC    TIX     *+3,4,**           REDUCE IT BY N
 17276   0074 00 4 03752  8753         TSX     ARREST,4           OUT OF CONSES
 17277   0774 00 4 77777  8754         AXT     -1,4               RESET COUNTRE (UP TO N CONSES MAY BE
 17300   0634 00 4 03742  8755         SXA     $CNTR1,4           LOST EVERY 7777 OCTAL CONSES)
 17301  -0534 00 4 17327  8756         LXD     LAN,4              RESTORE IR4 TO FREE WORD POINTER
 17302   0500 60 2 00000  8757  LSP    CLA*    **,2               GET ARGUMENT
 17303   0771 00 0 00022  8758         ARS     18                 TO ADDRESS
 17304   0621 00 4 00000  8759         STA     0,4                PUT IT IN THE FREE WORD ADDR
 17305   0500 00 4 00000  8760         CLA     0,4                NEXT FREE WORD
 17306   0634 00 4 17314  8761         SXA     LFX,4              SAVE PRECEDING WORD TO CUT OFF
 17307  -0734 00 4 00000  8762  LSR    PDX     0,4                NEXT FREE WORD TO IR
 17310  -3 00000 4 17321  8763         TXL     LFIX,4,0           OUT OF FREE STORAGE7
 17311   2 00001 2 17302  8764         TIX     LSP,2,1            COUNT DOWN
 17312   0622 00 0 03751  8765         STD     $FREE              RESTORE FREE
 17313  -0754 00 0 00000  8766         PXD     0,0                CLEAR
 17314   0774 00 4 00000  8767  LFX    AXT     **,4               LAST WORD IN LIST
 17315   0622 00 4 00000  8768         STD     0,4                GETS NIL IN ITS DECREMENT
 17316   0774 00 2 00000  8769  LX2    AXT     **,2               RESTORE IR2
 17317   0500 00 0 17327  8770         CLA     LAN                GET THE ANSWER
 17320   0020 00 0 00000  8771  LSE    TRA     **                 RETURN
 17321   0500 00 0 17327  8772  LFIX   CLA     LAN                TO GET IT PROTECTED DURING MOP UP
 17322   0074 00 4 02522  8773         TSX     RECLAM,4
 17323   0500 00 0 03751  8774         CLA     $FREE              FIX UP THE SAUSAGE
 17324   0522 00 0 17314  8775         XEC     LFX                GET LAST WORD TO IR
 17325   0622 00 4 00000  8776         STD     0,4                FIX ITS DECREMENT
 17326   0020 00 0 17307  8777         TRA     LSR
 17327   0 00000 0 00000  8778  LAN    PZE
                          8779  *      UNWND IS UNSAVE FOR COMPILED FUNCTIONS, USED BY ERRORSET
                          8780  *      TO RESTORE THE PDL TO PRISTINE STATE
 17330   0634 00 4 17354  8781  UNWND  SXA     UNR,4              SAVE RETURN
 17331   0634 00 2 17355  8782         SXA     UNR+1,2            SAVE IR2
 17332  -0534 00 4 02317  8783         LXD     $CPPI,4            $CPPI IS COMPLEMENT OF PDL POSITOIN
 17333   0500 00 4 77777  8784         CLA     -1,4               SO THIS GETS  STR 0,,N
 17334   0601 00 0 17352  8785         STO     UNJ                SAVE N TO RESTORE PDL
 17335   0402 00 0 00442  8786         SUB     $QD1               AND SET UP TEST WHICH SAYS THAT
 17336   0601 00 0 17343  8787         STO     UNH                WE HABE CRAWLED UP THE PDL ALL WAY
 17337  -0535 00 4 02317  8788         LDC     $CPPI,4            NEED TRUE POINTER FOR CALLING WORDS
 17340   0634 00 4 17344  8789         SXA     UNG,4              IN VERSE ORDER FROM PDL
 17341   0774 00 4 00001  8790         AXT     1,4                INITIALIZE THE RECALL LOOP
 17342   1 00001 4 17343  8791  UNF    TXI     *+1,4,1            INCREMENT THE GET IR
 17343   3 00000 4 17351  8792  UNH    TXH     UND,4,**           TEST FOR LAST WORD RESTORED           PAGE 176
 17344   0500 00 4 00000  8793  UNG    CLA     **,4               GET SAVED ITEM (GOING FROM BOT TO TOP)
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0165


 17345   0734 00 2 00000  8794         PAX     0,2                ZERO ADDRESS INTICATES NOT NECESS RES
 17346  -2 00000 2 17342  8795         TNX     UNF,2,0            FALL THROUGH IS TO RESTORE WORD
 17347   0737 00 2 00000  8796         PAC     0,2                ADDR IS TRUE POINTER TO LOCATION
 17350   1 00001 4 17343  8797         TXI     UNH,4,1            WOK ON NEXT ONE
 17351  -0534 00 4 02317  8798  UND    LXD     $CPPI,4            PUSH UP $CPPI
 17352   1 00000 4 17353  8799  UNJ    TXI     *+1,4,**           BY N
 17353  -0634 00 4 02317  8800         SXD     $CPPI,4
 17354   0774 00 4 00000  8801  UNR    AXT     **,4               RESTORE LINK
 17355   0774 00 2 00000  8802         AXT     **,2               AND IR2
 17356   0020 00 4 00001  8803         TRA     1,4
                          8804  *   MOVE IS A SPECIAL COMPILER SERVICE SUBROTUINE WITH BAD CALLING.
                          8805  *      TSX     *MOVE,1
                          8806  *      TNX     NAME,1,*MN
 17357   0634 00 1 17364  8807  MOVE   SXA     MOVY,1
 17360  -0534 00 1 02317  8808         LXD     $CPPI,1            PICK UP PDL PPINTER
 17361   0601 00 1 00001  8809         STO     1,1                SAVE AC
 17362  -0600 00 1 00002  8810         STQ     2,1
 17363  -0634 00 4 17453  8811         SXD     TXLW,4             SAVE RETURN INDEX
 17364   0774 00 4 00000  8812  MOVY   AXT     **,4               PICK UP REFERECE TO CALLING HEAD
 17365   0500 00 4 00001  8813         CLA     1,4                TNX WORD HAS NAME IN ADDR.
 17366   0621 00 0 17453  8814         STA     TXLW               COMPLETES THE TXL WORD
 17367   0622 00 0 17452  8815         STD     STRW               PUT N IN STRW DECREMENT
 17370   0500 00 0 17453  8816         CLA     TXLW
 17371   0601 00 1 00000  8817         STO     0,1                PUT IT AT HEAD OF PDL BLOCK
 17372   0500 00 4 00000  8818         CLA     0,4                TSX HAS COUNT FIELD
 17373  -0320 00 0 00467  8819         ANA     CNTMSK             COUNT FIELD MASK
 17374   0100 00 0 17444  8820         TZE     MOVD               IF LESS THAN 3 ARGS
 17375  -0734 00 4 00000  8821         PDX     0,4                COUNT FIELD TO IX
 17376   0020 00 4 17443  8822         TRA     MOVD-1,4           ENTER PART OF MOVE ROUTINE
 17377   0500 00 0 03342  8823         CLA     $ARG20
 17400   0601 00 1 00024  8824         STO     20,1
 17401   0500 00 0 03341  8825         CLA     $ARG19
 17402   0601 00 1 00023  8826         STO     19,1
 17403   0500 00 0 03340  8827         CLA     $ARG18
 17404   0601 00 1 00022  8828         STO     18,1
 17405   0500 00 0 03337  8829         CLA     $ARG17
 17406   0601 00 1 00021  8830         STO     17,1
 17407   0500 00 0 03336  8831         CLA     $ARG16
 17410   0601 00 1 00020  8832         STO     16,1
 17411   0500 00 0 03335  8833         CLA     $ARG15
 17412   0601 00 1 00017  8834         STO     15,1
 17413   0500 00 0 03334  8835         CLA     $ARG14
 17414   0601 00 1 00016  8836         STO     14,1
 17415   0500 00 0 03333  8837         CLA     $ARG13
 17416   0601 00 1 00015  8838         STO     13,1
 17417   0500 00 0 03332  8839         CLA     $ARG12
 17420   0601 00 1 00014  8840         STO     12,1
 17421   0500 00 0 03331  8841         CLA     $ARG11
 17422   0601 00 1 00013  8842         STO     11,1
 17423   0500 00 0 03330  8843         CLA     $ARG10
 17424   0601 00 1 00012  8844         STO     10,1
 17425   0500 00 0 03327  8845         CLA     $ARG9
 17426   0601 00 1 00011  8846         STO     9,1                                                      PAGE 177
 17427   0500 00 0 03326  8847         CLA     $ARG8
 17430   0601 00 1 00010  8848         STO     8,1
 17431   0500 00 0 03325  8849         CLA     $ARG7
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0166


 17432   0601 00 1 00007  8850         STO     7,1
 17433   0500 00 0 03324  8851         CLA     $ARG6
 17434   0601 00 1 00006  8852         STO     6,1
 17435   0500 00 0 03323  8853         CLA     $ARG5
 17436   0601 00 1 00005  8854         STO     5,1
 17437   0500 00 0 03322  8855         CLA     $ARG4
 17440   0601 00 1 00004  8856         STO     4,1
 17441   0500 00 0 03321  8857         CLA     $ARG3
 17442   0601 00 1 00003  8858         STO     3,1
 17443   0534 00 4 17364  8859         LXA     MOVY,4             RESTORE IR4
 17444   0522 00 4 00001  8860  MOVD   XEC     1,4         XECED TNX DECREMENTS TXI BUT NO TRANSFER
 17445  -0634 00 1 02317  8861         SXD     $CPPI,1            KEEP CPPI UP TO DATE ALSO
 17446   0522 00 0 02414  8862         XEC     ENDPDL             TEST FOR OUT OF BPS
 17447   0500 00 0 17452  8863         CLA     STRW               CREATES SECOND PARAMETER WORD
 17450   0601 00 1 77777  8864         STO     -1,1               PUT AT VERY END OF BLOCK
 17451   0020 00 4 00002  8865         TRA     2,4                RETURN FROM LINK
 17452  -1 00000 0 00000  8866  STRW   STR     **
 17453  -3 00000 0 00000  8867  TXLW   TXL     **,,**
                          8868  *
                          8869  * RESTOR PICKS UP IX4 FROM PDL,SETS BACK CPPI ,AND EXITS.
 17454  -0634 00 1 02317  8870  RESTOR SXD     $CPPI,1
 17455   0131 00 0 00000  8871         XCA                        SAVE VALUE OF FUNCTION
 17456   0500 00 1 00000  8872         CLA     0,1                PICK UP RETURN WORD
 17457  -0734 00 4 00000  8873         PDX     0,4                RESTORE IX4
 17460   0131 00 0 00000  8874         XCA                        RESTORE AC
 17461   0020 00 4 00001  8875         TRA     1,4                EXIT
                          8876  *
 17462                    8877         DECK                       PERMANENT ATOMS
 17462                    8878  TOPROG BSS     0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0167


                          8879         EJECT                                                            PAGE 178
 66230                    8880         ORG     27800              PERMANENT OBJECTS START HERE
 66230                    8881  LOWERP BSS     1                  LWER LIMIT OF PERMENANT LIST STRUCTURE
                          8882             *********************HEAD OR HED*****************************
                          8883         HEAD 0   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                          8884
                          8885             LOWER LIMIT OF PERM. LIST STRUCTURE
                          8886
 66231   0 00000 0 00000  8887                                    LAST BUCKET
                          8888         TITLE                      ** TO AVOID DUP EXPANSION BY ASM7090...
                          8889         DUP     1,125              MAKE BUCKETS
 66232   0 11547 0 00000  8890+                ,,-*+1
                          9015         DETAIL                     ** TO AVOID DUP EXPANSION BY ASM7090...
 66427   0 11352 0 00000  9016  BUCKET         ,,-*+1             POINTER TO BUCKETS
                   66427  9017  OBLIST SYN     BUCKET
                          9018
                          9019  ** OUR ASSEMBLER CAN'T HANDLE -)SYM EXPRESSIONS
                          9020
                   00000  9021  ZZALST SYN )ALST
                   00000  9022  ZZ069B SYN )069B
                   00000  9023  ZZ069A SYN )069A
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0168


                          9024         EJECT                                                            PAGE 179
                          9025         HEAD    0
                          9026             OBJECT LIST
                          9027
 66430   0 11347 0 77777  9028  OBLB       -1,,-*-1
 66431   0 11346 0 11023  9029                 -II14,,-*-1        ADD 1                                 GENER000
 66432   0 11345 0 00000  9030                 -ZZALST,,-*-1
 66433   0 11344 0 10772  9031             AND,,-*-1                                                    GENER002
 66434   0 11343 0 10762  9032             F1,,-*-1                                                     GENER003
 66435   0 11342 0 10752  9033             F18,,-*-1                                                    GENER004
 66436   0 11341 0 10742  9034             APVAL,,-*-1                                                  GENER005
 66437   0 11340 0 10735  9035                 -II1,,-*-1         ARRAY                                 GENER006
 66440   0 11337 0 10725  9036             ATOM,,-*-1                                                   GENER007
 66441   0 11336 0 10715  9037             F29,,-*-1                                                    GENER008
 66442   0 11335 0 10675  9038             CAR,,-*-1                                                    GENER009
 66443   0 11334 0 10665  9039             CDR,,-*-1                                                    GENER010
 66444   0 11333 0 10655  9040             CAAR,,-*-1                                                   GENER011
 66445   0 11332 0 10645  9041             CDAR,,-*-1                                                   GENER012
 66446   0 11331 0 10635  9042             CADR,,-*-1                                                   GENER013
 66447   0 11330 0 10625  9043             CDDR,,-*-1                                                   GENER014
 66450   0 11327 0 10615  9044             CAAAR,,-*-1                                                  GENER015
 66451   0 11326 0 10605  9045             CAADR,,-*-1                                                  GENER016
 66452   0 11325 0 10575  9046             CADAR,,-*-1                                                  GENER017
 66453   0 11324 0 10565  9047             CADDR,,-*-1                                                  GENER018
 66454   0 11323 0 10555  9048             CDAAR,,-*-1                                                  GENER019
 66455   0 11322 0 10545  9049             CDADR,,-*-1                                                  GENER020
 66456   0 11321 0 10535  9050             CDDAR,,-*-1                                                  GENER021
 66457   0 11320 0 10525  9051             CDDDR,,-*-1                                                  GENER022
 66460   0 11317 0 10460  9052             COND,,-*-1                                                   GENER023
 66461   0 11316 0 10450  9053             CONSN,,-*-1                                                  GENER024
 66462   0 11315 0 10430  9054             COPYN,,-*-1                                                  GENER025
 66463   0 11314 0 00000  9055                 DUMP,,-*-1                                               GENER026
 66464   0 11313 0 10440  9056             F12,,-*-1                                                    GENER027
 66465   0 11312 0 10420  9057             F35,,-*-1                                                    GENER028
 66466   0 11311 0 10365  9058                 -IJ01,,-*-1        DIFFER                                GENER029
 66467   0 11310 0 10343  9059                 -IJ02,,-*-1        DIVIDE                                GENER030
 66470   0 11307 0 10261  9060             EQ,,-*-1                                                     GENER031
 66471   0 11306 0 10241  9061             F8,,-*-1                                                     GENER032
 66472   0 11305 0 10231  9062             F21,,-*-1                                                    GENER033
 66473   0 11304 0 10177  9063             F19,,-*-1                                                    GENER034
 66474   0 11303 0 10167  9064             EVLISL,,-*-1                                                 GENER035
 66475   0 11302 0 10157  9065             EXPR,,-*-1                                                   GENER036
 66476   0 11301 0 10152  9066             F32,,-*-1                                                    GENER037
 66477   0 11300 0 10142  9067             FEXPR,,-*-1                                                  GENER038
 66500   0 11277 0 10135  9068             FIX,,-*-1                                                    GENER039
 66501   0 11276 0 10130  9069                 -II11,,-*-1        FIX P                                 GENER040
 66502   0 11275 0 10120  9070             FLOAT,,-*-1                                                  GENER041
 66503   0 11274 0 10113  9071                 -II12,,-*-1        FLOAT P                               GENER042
 66504   0 11273 0 10103  9072             FSUBR,,-*-1                                                  GENER043
 66505   0 11272 0 10076  9073             FUNARG,,-*-1                                                 GENER044
 66506   0 11271 0 10071  9074             FUNCT,,-*-1                                                  GENER045
 66507   0 11270 0 10057  9075             SYMGEN,,-*-1                                                 GENER046
 66510   0 11267 0 10037  9076             GO,,-*-1                                                     GENER047
 66511   0 11266 0 10027  9077                 -II3,,-*-1         GREATER THAN P                        GENER048
 66512   0 11265 0 10015  9078             F16,,-*-1                                                    GENER049
 66513   0 11264 0 10005  9079             LABEL,,-*-1                                                  GENER050
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0169


 66514   0 11263 0 07775  9080             LAMBDA,,-*-1                                                 GENER051
 66515   0 11262 0 07770  9081                 LAP,,-*-1                                                GENER052
 66516   0 11261 0 07746  9082                 -II4,,-*-1         LESS THAN P                           GENER053
 66517   0 11260 0 07736  9083             LIST,,-*-1                                                   GENER054
 66520   0 11257 0 07716  9084                 LOADA,,-*-1        LOADER OBJECT                         GENER055
 66521   0 11256 0 07646  9085             PMAPCA,,-*-1                                                 GENER056
 66522   0 11255 0 00000  9086              -ZZ069B,,-*-1
 66523   0 11254 0 00000  9087              -ZZ069A,,-*-1
 66524   0 11253 0 07614  9088                 -II7,,-*-1         MAXIMUM                               GENER059
 66525   0 11252 0 07604  9089                 -II8,,-*-1         MINIMUM                               GENER060
 66526   0 11251 0 07574  9090             MINUS,,-*-1                                                  GENER061
 66527   0 11250 0 07564  9091                 -II16,,-*-1        MINUS P                               GENER062
 66530   0 11247 0 07544  9092             F3,,-*-1                                                     GENER063
 66531   0 11246 0 00000  9093             NIL,,-*-1                                                    GENER064
 66532   0 11245 0 07534  9094             NOT,,-*-1                                                    GENER065
 66533   0 11244 0 07524  9095             NULL,,-*-1                                                   GENER066
 66534   0 11243 0 07514  9096                 -II13,,-*-1        NUMBER P                              GENER067
 66535   0 11242 0 07472  9097                 OBLBA,,-*-1        OBLIST OBJECT                         GENER068
 66536   0 11241 0 07455  9098                 -II9,,-*-1         ONE P                                 GENER069
 66537   0 11240 0 07435  9099             OR,,-*-1                                                     GENER070
 66540   0 11237 0 07415  9100             F2,,-*-1                                                     GENER071
 66541   0 11236 0 07405  9101             PAUSE,,-*-1                                                  GENER072
 66542   0 11235 0 07365  9102             PLB,,-*-1                                                    GENER073
 66543   0 11234 0 07355  9103             PLUS,,-*-1                                                   GENER074
 66544   0 11233 0 07335  9104             PNAME,,-*-1                                                  GENER075
 66545   0 11232 0 07320  9105             F4,,-*-1                                                     GENER076
 66546   0 11231 0 07300  9106             PROG,,-*-1                                                   GENER077
 66547   0 11230 0 07260  9107             PROPO,,-*-1                                                  GENER078
 66550   0 11227 0 07270  9108                 -IJ05,,-*-1        PUNCH                                 GENER079
 66551   0 11226 0 07250  9109             QUOTE,,-*-1                                                  GENER080
 66552   0 11225 0 07240  9110                 -IJ03,,-*-1        QUOTIENT                              GENER081
 66553   0 11224 0 07226  9111             F13,,-*-1                                                    GENER082
 66554   0 11223 0 07216  9112                 -II18,,-*-1        RECIP                                 GENER083
 66555   0 11222 0 07206  9113             RCLAM,,-*-1                                                  GENER084
 66556   0 11221 0 07140  9114             PRPLCA,,-*-1                                                 GENER085
 66557   0 11220 0 07130  9115             PRPLCD,,-*-1                                                 GENER086
 66560   0 11217 0 07174  9116                 -IJ04,,-*-1        REMAINDER                             GENER087
 66561   0 11216 0 00000  9117                 RETATM,,-*-1       RETURN                                GENER088
 66562   0 11215 0 00000  9118             SASCO,,-*-1                                                  GENER089
 66563   0 11214 0 07042  9119             SRCH,,-*-1                                                   GENER090
 66564   0 11213 0 07032  9120             SET,,-*-1                                                    GENER091
 66565   0 11212 0 07022  9121             SETQ,,-*-1                                                   GENER092
 66566   0 11211 0 07002  9122             F34,,-*-1                                                    GENER093
 66567   0 11210 0 06772  9123             STOP,,-*-1                                                   GENER094
 66570   0 11207 0 06733  9124             SUBR,,-*-1                                                   GENER095
 66571   0 11206 0 06647  9125                 TRACE,,-*-1                                              GENER096
 66572   0 11205 0 07101  9126                 SMOVE,,-*-1                                              GENER097
 66573   0 11204 0 07072  9127                 SRETUR,,-*-1                                             GENER098
 66574   0 11203 0 07061  9128                 SLIST,,-*-1                                              GENER099
 66575   0 11202 0 07110  9129                 SPECAL,,-*-1                                             GENER100
 66576   0 11201 0 06743  9130                 -II15,,-*-1        SUBTRACT 1                            GENER101
 66577   0 11200 0 06726  9131             F17,,-*-1                                                    GENER102
 66600   0 11177 0 06716  9132             F30,,-*-1                                                    GENER103
 66601   0 11176 0 00001  9133                 1,,-*-1            *T* BINARY TRUE ATOM                  GENER104
 66602   0 11175 0 06671  9134             F27,,-*-1                                                    GENER105
 66603   0 11174 0 06706  9135                 SYM,,-*-1                                                GENER106
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0170


 66604   0 11173 0 06657  9136             TIMES,,-*-1                                                  GENER107
 66605   0 11172 0 06642  9137             F36,,-*-1                                                    GENER108
 66606   0 11171 0 06620  9138                 -II10,,-*-1        ZERO P                                GENER109
 66607   0 11170 0 10047  9139             CGET,,-*-1                                                   GENER110
 66610   0 11167 0 07162  9140                 REMPP,,-*-1                                              GENER111
 66611   0 11166 0 06127  9141             H00,,-*-1                                                    GENER112
 66612   0 11165 0 06130  9142             H01,,-*-1                                                    GENER113
 66613   0 11164 0 06131  9143             H02,,-*-1                                                    GENER114
 66614   0 11163 0 06132  9144             H03,,-*-1                                                    GENER115
 66615   0 11162 0 06133  9145             H04,,-*-1                                                    GENER116
 66616   0 11161 0 06134  9146             H05,,-*-1                                                    GENER117
 66617   0 11160 0 06135  9147             H06,,-*-1                                                    GENER118
 66620   0 11157 0 06136  9148             H07,,-*-1                                                    GENER119
 66621   0 11156 0 06137  9149             H10,,-*-1                                                    GENER120
 66622   0 11155 0 06140  9150             H11,,-*-1                                                    GENER121
 66623   0 11154 0 06141  9151             H12,,-*-1                                                    GENER122
 66624   0 11153 0 06142  9152             H13,,-*-1                                                    GENER123
 66625   0 11152 0 06144  9153             H15,,-*-1                                                    GENER124
 66626   0 11151 0 06143  9154             H14,,-*-1                                                    GENER125
 66627   0 11150 0 06145  9155             H16,,-*-1                                                    GENER126
 66630   0 11147 0 06146  9156             H17,,-*-1                                                    GENER127
 66631   0 11146 0 06147  9157             H20,,-*-1                                                    GENER128
 66632   0 11145 0 06150  9158             H21,,-*-1                                                    GENER129
 66633   0 11144 0 06151  9159             H22,,-*-1                                                    GENER130
 66634   0 11143 0 06152  9160             H23,,-*-1                                                    GENER131
 66635   0 11142 0 06153  9161             H24,,-*-1                                                    GENER132
 66636   0 11141 0 06154  9162             H25,,-*-1                                                    GENER133
 66637   0 11140 0 06155  9163             H26,,-*-1                                                    GENER134
 66640   0 11137 0 06156  9164             H27,,-*-1                                                    GENER135
 66641   0 11136 0 06157  9165             H30,,-*-1                                                    GENER136
 66642   0 11135 0 06160  9166             H31,,-*-1                                                    GENER137
 66643   0 11134 0 06161  9167             H32,,-*-1                                                    GENER138
 66644   0 11133 0 06162  9168             H33,,-*-1                                                    GENER139
 66645   0 11132 0 06163  9169             H34,,-*-1                                                    GENER140
 66646   0 11131 0 06164  9170             H35,,-*-1                                                    GENER141
 66647   0 11130 0 06165  9171             H36,,-*-1                                                    GENER142
 66650   0 11127 0 06166  9172             H37,,-*-1                                                    GENER143
 66651   0 11126 0 06167  9173             H40,,-*-1                                                    GENER144
 66652   0 11125 0 06170  9174             H41,,-*-1                                                    GENER145
 66653   0 11124 0 06171  9175             H42,,-*-1                                                    GENER146
 66654   0 11123 0 06172  9176             H43,,-*-1                                                    GENER147
 66655   0 11122 0 06173  9177             H44,,-*-1                                                    GENER148
 66656   0 11121 0 06174  9178             H45,,-*-1                                                    GENER149
 66657   0 11120 0 06175  9179             H46,,-*-1                                                    GENER150
 66660   0 11117 0 06176  9180             H47,,-*-1                                                    GENER151
 66661   0 11116 0 06177  9181             H50,,-*-1                                                    GENER152
 66662   0 11115 0 06200  9182             H51,,-*-1                                                    GENER153
 66663   0 11114 0 06201  9183             H52,,-*-1                                                    GENER154
 66664   0 11113 0 06202  9184             H53,,-*-1                                                    GENER155
 66665   0 11112 0 06203  9185             H54,,-*-1                                                    GENER156
 66666   0 11111 0 06204  9186             H55,,-*-1                                                    GENER157
 66667   0 11110 0 06205  9187             H56,,-*-1                                                    GENER158
 66670   0 11107 0 06206  9188             H57,,-*-1                                                    GENER159
 66671   0 11106 0 06207  9189             H60,,-*-1                                                    GENER160
 66672   0 11105 0 06210  9190             H61,,-*-1                                                    GENER161
 66673   0 11104 0 06211  9191             H62,,-*-1                                                    GENER162
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0171


 66674   0 11103 0 06212  9192             H63,,-*-1                                                    GENER163
 66675   0 11102 0 06213  9193             H64,,-*-1                                                    GENER164
 66676   0 11101 0 06214  9194             H65,,-*-1                                                    GENER165
 66677   0 11100 0 06215  9195             H66,,-*-1                                                    GENER166
 66700   0 11077 0 06216  9196             H67,,-*-1                                                    GENER167
 66701   0 11076 0 06217  9197             H70,,-*-1                                                    GENER168
 66702   0 11075 0 06220  9198             H71,,-*-1                                                    GENER169
 66703   0 11074 0 06221  9199             H72,,-*-1                                                    GENER170
 66704   0 11073 0 06222  9200             H73,,-*-1                                                    GENER171
 66705   0 11072 0 06223  9201             H74,,-*-1                                                    GENER172
 66706   0 11071 0 06224  9202             H75,,-*-1                                                    GENER173
 66707   0 11070 0 06225  9203             H76,,-*-1                                                    GENER174
 66710   0 11067 0 06226  9204             H77,,-*-1                                                    GENER175
 66711   0 11066 0 10410  9205             PJ1,,-*-1                                                    GENER176
 66712   0 11065 0 11013  9206             PJ2,,-*-1                                                    GENER177
 66713   0 11064 0 10221  9207             PJ4,,-*-1                                                    GENER179
 66714   0 11063 0 10251  9208             PJ5,,-*-1                                                    GENER180
 66715   0 11062 0 10470  9209             PJ6,,-*-1                                                    GENER181
 66716   0 11061 0 07656  9210             PJ7,,-*-1                                                    GENER182
 66717   0 11060 0 07120  9211             PJ8,,-*-1                                                    GENER183
 66720   0 11057 0 07375  9212             PJ9,,-*-1                                                    GENER184
 66721   0 11056 0 10333  9213             PJ10,,-*-1                                                   GENER185
 66722   0 11055 0 07345  9214             PJ11,,-*-1                                                   GENER186
 66723   0 11054 0 10705  9215             PJ12,,-*-1                                                   GENER187
 66724   0 11053 0 07012  9216             PJ14,,-*-1                                                   GENER189
 66725   0 11052 0 06765  9217             PJ15,,-*-1                                                   GENER190
 66726   0 11051 0 10375  9218             PJ16,,-*-1                                                   GENER191
 66727   0 11050 0 07726  9219             PJ17,,-*-1                                                   GENER192
 66730   0 11047 0 07445  9220             PJ18,,-*-1                                                   GENER193
 66731   0 11046 0 10353  9221             PJ19,,-*-1                                                   GENER194
 66732   0 11045 0 06755  9222             PJ21,,-*-1                                                   GENER195
 66733   0 11044 0 06701  9223             PJ23,,-*-1                                                   GENER196
 66734   0 11043 0 07425  9224                 PJ24,,-*-1                                               GENER197
 66735   0 11042 0 07502  9225                 PJ25,,-*-1                                               GENER198
 66736   0 11041 0 07554  9226                 PJ26,,-*-1                                               GENER199
 66737   0 11040 0 10502  9227                 PJ27,,-*-1                                               GENER200
 66740   0 11037 0 07462  9228                 PJ28,,-*-1                                               GENER201
 66741   0 11036 0 10313  9229                 PJ30,,-*-1                                               GENER202
 66742   0 11035 0 06630  9230                 PJ31,,-*-1                                               GENER203
 66743   0 11034 0 10515  9231                 PJ32,,-*-1                                               GENER204
 66744   0 11033 0 07330  9232                 PJ33,,-*-1                                               GENER205
 66745   0 11032 0 10301  9233                 PJ34,,-*-1                                               GENER206
 66746   0 11031 0 10271  9234                 PJ35,,-*-1                                               GENER207
 66747   0 11030 0 07676  9235                 PJ36,,-*-1                                               GENER208
 66750   0 11027 0 07706  9236                 PJ37,,-*-1                                               GENER209
 66751   0 11026 0 07666  9237                 PJ38,,-*-1                                               GENER210
 66752   0 11025 0 07310  9238                 PJ39,,-*-1                                               GENER211
 66753   0 11024 0 10211  9239                 ERSETO,,-*-1       ERRORSET                              GENER212
 66754   0 11023 0 07760  9240                 PVW1,,-*-1         LAST OBJECT   - LEFTSHIFT             GENER213
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0172


                          9241         EJECT                                                            PAGE 184
                          9242             PROPERTY LISTS
                          9243
 66755   0 11022 0 77777  9244  II14           -1,,-*-1                                                 GPLI0000
 66756   0 11021 0 06733  9245                 $SUBR,,-*-1                                              GPLI0001
 66757   0 11017 0 11020  9246                 -*-1,,-*-2                                               GPLI0002
 66760  -3 00001 0 14401  9247         TXL     ADD1,,1                                                  GPLI0003
 66761   0 11016 0 07335  9248                 $PNAME,,-*-1                                             GPLI0004
 66762   0 00000 0 11015  9249                 -*-1               ADD1                                  GPLI0005
 66763   0 00000 0 11014  9250                 -*-1                                                     GPLI0006
 66764  +212424017777     9251         OCT     212424017777                                             GPLI0007
                          9252  *                                                                       GPLI0008
 66765   0 11012 0 77777  9253  )PJ2           -1,,-*-1                                                 GPLI0009
 66766   0 11011 0 06733  9254                 SUBR,,-*-1                                               GPLI0010
 66767   0 11007 0 11010  9255                 -*-1,,-*-2                                               GPLI0011
 66770  -3 00000 0 12211  9256         TXL     ADVANC,,0                                                GPLI0012
 66771   0 11006 0 07335  9257                 PNAME,,-*-1                                              GPLI0013
 66772   0 00000 0 11005  9258                 -*-1               ADVANCE                               GPLI0014
 66773   0 11003 0 11004  9259                 -*-1,,-*-2                                               GPLI0015
 66774  +212465214523     9260         OCT     212465214523                                             GPLI0016
 66775   0 00000 0 11002  9261                 -*-1                                                     GPLI0017
 66776  +257777777777     9262         OCT     257777777777                                             GPLI0018
                          9263  *                                                                       GPLI0019
 66777   0 11000 0 77777  9264  )ALST          -1,,-*-1                                                 GPLI0020
 67000   0 10777 0 07335  9265                 PNAME,,-*-1                                              GPLI0021
 67001   0 10774 0 10776  9266                 -*-1,,-*-3         $ALIST                                GPLI0022
 67002   0 00000 0 10775  9267                 -*-1                                                     GPLI0023
 67003  -132143316263     9268         OCT     532143316263                                             GPLI0024
 67004   0 10773 0 06706  9269                 SYM,,-*-1                                                GPLI0025
 67005   0 00000 0 61262  9270                 -C$ALST                                                  GPLI0026
                          9271  *                                                                       GPLI0027
 67006   0 10771 0 77777  9272  )002           -1,,-*-1                                                 GPLI0028
 67007   0 10770 0 10103  9273                 FSUBR,,-*-1                                              GPLI0029
 67010   0 10766 0 10767  9274                 -*-1,,-*-2                                               GPLI0030
 67011  -3 00000 0 15370  9275         TXL     $EVAND,,0                                                GPLI0031
 67012   0 10765 0 07335  9276                 $PNAME,,-*-1                                             GPLI0032
 67013   0 00000 0 10764  9277                 -*-1               AND                                   GPLI0033
 67014   0 00000 0 10763  9278                 -*-1                                                     GPLI0034
 67015  +214524777777     9279         OCT     214524777777                                             GPLI0035
                          9280  *                                                                       GPLI0036
 67016   0 10761 0 77777  9281  )003           -1,,-*-1                                                 GPLI0037
 67017   0 10760 0 06733  9282                 SUBR,,-*-1                                               GPLI0038
 67020   0 10756 0 10757  9283                 -*-1,,-*-2                                               GPLI0039
 67021  -3 00002 0 07541  9284         TXL     APPEND,,2                                                GPLI0040
 67022   0 10755 0 07335  9285                 PNAME,,-*-1                                              GPLI0041
 67023   0 00000 0 10754  9286                 -*-1               APPEND                                GPLI0042
 67024   0 00000 0 10753  9287                 -*-1                                                     GPLI0043
 67025  +214747254524     9288         OCT     214747254524                                             GPLI0044
                          9289  *                                                                       GPLI0045
 67026   0 10751 0 77777  9290  )004           -1,,-*-1                                                 GPLI0046
 67027   0 10750 0 06733  9291                 SUBR,,-*-1                                               GPLI0047
 67030   0 10746 0 10747  9292                 -*-1,,-*-2                                               GPLI0048
 67031  -3 00003 0 14663  9293         TXL     APPLY,,3                                                 GPLI0049
 67032   0 10745 0 07335  9294                 PNAME,,-*-1                                              GPLI0050
 67033   0 00000 0 10744  9295                 -*-1               APPLY                                 GPLI0051
 67034   0 00000 0 10743  9296                 -*-1                                                     GPLI0052
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0173


 67035  +214747437077     9297         OCT     214747437077                                             GPLI0053
                          9298  *                                                                       GPLI0054
 67036   0 10741 0 77777  9299  )005           -1,,-*-1                                                 GPLI0055
 67037   0 10740 0 07335  9300                 PNAME,,-*-1                                              GPLI0056
 67040   0 00000 0 10737  9301                 -*-1               APVAL                                 GPLI0057
 67041   0 00000 0 10736  9302                 -*-1                                                     GPLI0058
 67042  +214765214377     9303         OCT     214765214377                                             GPLI0059
                          9304  *                                                                       GPLI0060
 67043   0 10734 0 77777  9305  II1            -1,,-*-1                                                 GPLI0061
 67044   0 10733 0 06733  9306                 SUBR,,-*-1                                               GPLI0062
 67045   0 10731 0 10732  9307                 -*-1,,-*-2                                               GPLI0063
 67046  -3 00001 0 13113  9308         TXL     ARYMAK,,1                                                GPLI0064
 67047   0 10730 0 07335  9309                 PNAME,,-*-1                                              GPLI0065
 67050   0 00000 0 10727  9310                 -*-1               ARRAY                                 GPLI0066
 67051   0 00000 0 10726  9311                 -*-1                                                     GPLI0067
 67052  +215151217077     9312         OCT     215151217077                                             GPLI0068
                          9313  *                                                                       GPLI0069
 67053   0 10724 0 77777  9314  )007           -1,,-*-1                                                 GPLI0070
 67054   0 10723 0 06733  9315                 SUBR,,-*-1                                               GPLI0071
 67055   0 10721 0 10722  9316                 -*-1,,-*-2                                               GPLI0072
 67056  -3 00001 0 15230  9317         TXL     ATOMP,,1                                                 GPLI0073
 67057   0 10720 0 07335  9318                 PNAME,,-*-1                                              GPLI0074
 67060   0 00000 0 10717  9319                 -*-1               ATOM                                  GPLI0075
 67061   0 00000 0 10716  9320                 -*-1                                                     GPLI0076
 67062  +216346447777     9321         OCT     216346447777                                             GPLI0077
                          9322  *                                                                       GPLI0078
 67063   0 10714 0 77777  9323  )008           -1,,-*-1                                                 GPLI0079
 67064   0 10713 0 06733  9324                 SUBR,,-*-1                                               GPLI0080
 67065   0 10711 0 10712  9325                 -*-1,,-*-2                                               GPLI0081
 67066  -3 00002 0 10134  9326         TXL     ATTRIB,,2                                                GPLI0082
 67067   0 10710 0 07335  9327                 PNAME,,-*-1                                              GPLI0083
 67070   0 00000 0 10707  9328                 -*-1               ATTRIB                                GPLI0084
 67071   0 00000 0 10706  9329                 -*-1                                                     GPLI0085
 67072  +216363513122     9330         OCT     216363513122                                             GPLI0086
                          9331  *                                                                       GPLI0087
 67073   0 10704 0 77777  9332  )PJ12          -1,,-*-1                                                 GPLI0088
 67074   0 10703 0 07335  9333                 PNAME,,-*-1                                              GPLI0089
 67075   0 10700 0 10702  9334                 -*-1,,-*-3         BLANK                                 GPLI0090
 67076   0 00000 0 10701  9335                 -*-1                                                     GPLI0091
 67077  +224321454277     9336         OCT     224321454277                                             GPLI0092
 67100   0 10677 0 10742  9337                 APVAL1,,-*-1                                             GPLI0093
 67101   0 00000 0 10676  9338                 -*-1                                                     GPLI0094
 67102   0 00000 0 06207  9339                 H60                                                      GPLI0095
                          9340  *                                                                       GPLI0096
 67103   0 10674 0 77777  9341  )011           -1,,-*-1                                                 GPLI0097
 67104   0 10673 0 06733  9342                 SUBR,,-*-1                                               GPLI0098
 67105   0 10671 0 10672  9343                 -*-1,,-*-2                                               GPLI0099
 67106  -3 00001 0 15212  9344         TXL     CARP,,1                                                  GPLI0100
 67107   0 10670 0 07335  9345                 PNAME,,-*-1                                              GPLI0101
 67110   0 00000 0 10667  9346                 -*-1               CAR                                   GPLI0102
 67111   0 00000 0 10666  9347                 -*-1                                                     GPLI0103
 67112  +232151777777     9348         OCT     232151777777                                             GPLI0104
                          9349  *                                                                       GPLI0105
 67113   0 10664 0 77777  9350  )012           -1,,-*-1                                                 GPLI0106
 67114   0 10663 0 06733  9351                 SUBR,,-*-1                                               GPLI0107
 67115   0 10661 0 10662  9352                 -*-1,,-*-2                                               GPLI0108
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0174


 67116  -3 00001 0 15222  9353         TXL     CDRP,,1                                                  GPLI0109
 67117   0 10660 0 07335  9354                 PNAME,,-*-1                                              GPLI0110
 67120   0 00000 0 10657  9355                 -*-1               CDR                                   GPLI0111
 67121   0 00000 0 10656  9356                 -*-1                                                     GPLI0112
 67122  +232451777777     9357         OCT     232451777777                                             GPLI0113
                          9358  *                                                                       GPLI0114
 67123   0 10654 0 77777  9359  )201           -1,,-*-1                                                 GPLI0115
 67124   0 10653 0 06733  9360                 SUBR,,-*-1                                               GPLI0116
 67125   0 10651 0 10652  9361                 -*-1,,-*-2                                               GPLI0117
 67126  -3 00001 0 11726  9362         TXL     CAARXX,,1                                                GPLI0118
 67127   0 10650 0 07335  9363                 PNAME,,-*-1                                              GPLI0119
 67130   0 00000 0 10647  9364                 -*-1               CAAR                                  GPLI0120
 67131   0 00000 0 10646  9365                 -*-1                                                     GPLI0121
 67132  +232121517777     9366         OCT     232121517777                                             GPLI0122
                          9367  *                                                                       GPLI0123
 67133   0 10644 0 77777  9368  )202           -1,,-*-1                                                 GPLI0124
 67134   0 10643 0 06733  9369                 SUBR,,-*-1                                               GPLI0125
 67135   0 10641 0 10642  9370                 -*-1,,-*-2                                               GPLI0126
 67136  -3 00001 0 11765  9371         TXL     CDARXX,,1                                                GPLI0127
 67137   0 10640 0 07335  9372                 PNAME,,-*-1                                              GPLI0128
 67140   0 00000 0 10637  9373                 -*-1               CDAR                                  GPLI0129
 67141   0 00000 0 10636  9374                 -*-1                                                     GPLI0130
 67142  +232421517777     9375         OCT     232421517777                                             GPLI0131
                          9376  *                                                                       GPLI0132
 67143   0 10634 0 77777  9377  )203           -1,,-*-1                                                 GPLI0133
 67144   0 10633 0 06733  9378                 SUBR,,-*-1                                               GPLI0134
 67145   0 10631 0 10632  9379                 -*-1,,-*-2                                               GPLI0135
 67146  -3 00001 0 11730  9380         TXL     CADRXX,,1                                                GPLI0136
 67147   0 10630 0 07335  9381                 PNAME,,-*-1                                              GPLI0137
 67150   0 00000 0 10627  9382                 -*-1               CADR                                  GPLI0138
 67151   0 00000 0 10626  9383                 -*-1                                                     GPLI0139
 67152  +232124517777     9384         OCT     232124517777                                             GPLI0140
                          9385  *                                                                       GPLI0141
 67153   0 10624 0 77777  9386  )204           -1,,-*-1                                                 GPLI0142
 67154   0 10623 0 06733  9387                 SUBR,,-*-1                                               GPLI0143
 67155   0 10621 0 10622  9388                 -*-1,,-*-2                                               GPLI0144
 67156  -3 00001 0 11767  9389         TXL     CDDRXX,,1                                                GPLI0145
 67157   0 10620 0 07335  9390                 PNAME,,-*-1                                              GPLI0146
 67160   0 00000 0 10617  9391                 -*-1               CDDR                                  GPLI0147
 67161   0 00000 0 10616  9392                 -*-1                                                     GPLI0148
 67162  +232424517777     9393         OCT     232424517777                                             GPLI0149
                          9394  *                                                                       GPLI0150
 67163   0 10614 0 77777  9395  )205           -1,,-*-1                                                 GPLI0151
 67164   0 10613 0 06733  9396                 SUBR,,-*-1                                               GPLI0152
 67165   0 10611 0 10612  9397                 -*-1,,-*-2                                               GPLI0153
 67166  -3 00001 0 11672  9398         TXL     CAAARX,,1                                                GPLI0154
 67167   0 10610 0 07335  9399                 PNAME,,-*-1                                              GPLI0155
 67170   0 00000 0 10607  9400                 -*-1               CAAAR                                 GPLI0156
 67171   0 00000 0 10606  9401                 -*-1                                                     GPLI0157
 67172  +232121215177     9402         OCT     232121215177                                             GPLI0158
                          9403  *                                                                       GPLI0159
 67173   0 10604 0 77777  9404  )206           -1,,-*-1                                                 GPLI0160
 67174   0 10603 0 06733  9405                 SUBR,,-*-1                                               GPLI0161
 67175   0 10601 0 10602  9406                 -*-1,,-*-2                                               GPLI0162
 67176  -3 00001 0 11705  9407         TXL     CAADRX,,1                                                GPLI0163
 67177   0 10600 0 07335  9408                 PNAME,,-*-1                                              GPLI0164
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0175


 67200   0 00000 0 10577  9409                 -*-1               CAADR                                 GPLI0165
 67201   0 00000 0 10576  9410                 -*-1                                                     GPLI0166
 67202  +232121245177     9411         OCT     232121245177                                             GPLI0167
                          9412  *                                                                       GPLI0168
 67203   0 10574 0 77777  9413  )207           -1,,-*-1                                                 GPLI0169
 67204   0 10573 0 06733  9414                 SUBR,,-*-1                                               GPLI0170
 67205   0 10571 0 10572  9415                 -*-1,,-*-2                                               GPLI0171
 67206  -3 00001 0 11712  9416         TXL     CADARX,,1                                                GPLI0172
 67207   0 10570 0 07335  9417                 PNAME,,-*-1                                              GPLI0173
 67210   0 00000 0 10567  9418                 -*-1               CADAR                                 GPLI0174
 67211   0 00000 0 10566  9419                 -*-1                                                     GPLI0175
 67212  +232124215177     9420         OCT     232124215177                                             GPLI0176
                          9421  *                                                                       GPLI0177
 67213   0 10564 0 77777  9422  )208           -1,,-*-1                                                 GPLI0178
 67214   0 10563 0 06733  9423                 SUBR,,-*-1                                               GPLI0179
 67215   0 10561 0 10562  9424                 -*-1,,-*-2                                               GPLI0180
 67216  -3 00001 0 11721  9425         TXL     CADDRX,,1                                                GPLI0181
 67217   0 10560 0 07335  9426                 PNAME,,-*-1                                              GPLI0182
 67220   0 00000 0 10557  9427                 -*-1               CADDR                                 GPLI0183
 67221   0 00000 0 10556  9428                 -*-1                                                     GPLI0184
 67222  +232124245177     9429         OCT     232124245177                                             GPLI0185
                          9430  *                                                                       GPLI0186
 67223   0 10554 0 77777  9431  )209           -1,,-*-1                                                 GPLI0187
 67224   0 10553 0 06733  9432                 SUBR,,-*-1                                               GPLI0188
 67225   0 10551 0 10552  9433                 -*-1,,-*-2                                               GPLI0189
 67226  -3 00001 0 11732  9434         TXL     CDAARX,,1                                                GPLI0190
 67227   0 10550 0 07335  9435                 PNAME,,-*-1                                              GPLI0191
 67230   0 00000 0 10547  9436                 -*-1               CDAAR                                 GPLI0192
 67231   0 00000 0 10546  9437                 -*-1                                                     GPLI0193
 67232  +232421215177     9438         OCT     232421215177                                             GPLI0194
                          9439  *                                                                       GPLI0195
 67233   0 10544 0 77777  9440  )210           -1,,-*-1                                                 GPLI0196
 67234   0 10543 0 06733  9441                 SUBR,,-*-1                                               GPLI0197
 67235   0 10541 0 10542  9442                 -*-1,,-*-2                                               GPLI0198
 67236  -3 00001 0 11744  9443         TXL     CDADRX,,1                                                GPLI0199
 67237   0 10540 0 07335  9444                 PNAME,,-*-1                                              GPLI0200
 67240   0 00000 0 10537  9445                 -*-1               CDADR                                 GPLI0201
 67241   0 00000 0 10536  9446                 -*-1                                                     GPLI0202
 67242  +232421245177     9447         OCT     232421245177                                             GPLI0203
                          9448  *                                                                       GPLI0204
 67243   0 10534 0 77777  9449  )211           -1,,-*-1                                                 GPLI0205
 67244   0 10533 0 06733  9450                 SUBR,,-*-1                                               GPLI0206
 67245   0 10531 0 10532  9451                 -*-1,,-*-2                                               GPLI0207
 67246  -3 00001 0 11751  9452         TXL     CDDARX,,1                                                GPLI0208
 67247   0 10530 0 07335  9453                 PNAME,,-*-1                                              GPLI0209
 67250   0 00000 0 10527  9454                 -*-1               CDDAR                                 GPLI0210
 67251   0 00000 0 10526  9455                 -*-1                                                     GPLI0211
 67252  +232424215177     9456         OCT     232424215177                                             GPLI0212
                          9457  *                                                                       GPLI0213
 67253   0 10524 0 77777  9458  )212           -1,,-*-1                                                 GPLI0214
 67254   0 10523 0 06733  9459                 SUBR,,-*-1                                               GPLI0215
 67255   0 10521 0 10522  9460                 -*-1,,-*-2                                               GPLI0216
 67256  -3 00001 0 11760  9461         TXL     CDDDRX,,1                                                GPLI0217
 67257   0 10520 0 07335  9462                 PNAME,,-*-1                                              GPLI0218
 67260   0 00000 0 10517  9463                 -*-1               CDDDR                                 GPLI0219
 67261   0 00000 0 10516  9464                 -*-1                                                     GPLI0220
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0176


 67262  +232424245177     9465         OCT     232424245177                                             GPLI0221
                          9466  *                                                                       GPLI0222
 67263   0 10514 0 77777  9467  )PJ32          -1,,-*-1                                                 GPLI0223
 67264   0 10513 0 07335  9468                 PNAME,,-*-1                                              GPLI0224
 67265   0 10506 0 10512  9469                 -*-1,,-*-5         CHARCOUNT                             GPLI0225
 67266   0 10510 0 10511  9470                 -*-1,,-*-2                                               GPLI0226
 67267  +233021512346     9471         OCT     233021512346                                             GPLI0227
 67270   0 00000 0 10507  9472                 -*-1                                                     GPLI0228
 67271  -244563777777     9473         OCT     644563777777                                             GPLI0229
 67272   0 10505 0 10742  9474                 APVAL1,,-*-1                                             GPLI0230
 67273   0 00000 0 10504  9475                 -*-1                                                     GPLI0231
 67274   0 00000 0 10503  9476                 -*-1                                                     GPLI0232
 67275  -0 65143 1 77777  9477         MZE     -1,1,-CHACT                                              GPLI0233
                          9478  *                                                                       GPLI0234
 67276   0 10501 0 77777  9479  )PJ27          -1,,-*-1                                                 GPLI0235
 67277   0 10500 0 06733  9480                 SUBR,,-*-1                                               GPLI0236
 67300   0 10476 0 10477  9481                 -*-1,,-*-2                                               GPLI0237
 67301  -3 00000 0 12201  9482         TXL     CLEAR,,0                                                 GPLI0238
 67302   0 10475 0 07335  9483                 PNAME,,-*-1                                              GPLI0239
 67303   0 00000 0 10474  9484                 -*-1               CLEARBUFF                             GPLI0240
 67304   0 10472 0 10473  9485                 -*-1,,-*-2                                               GPLI0241
 67305  +234325215122     9486         OCT     234325215122                                             GPLI0242
 67306   0 00000 0 10471  9487                 -*-1                                                     GPLI0243
 67307  -242626777777     9488         OCT     642626777777                                             GPLI0244
                          9489  *                                                                       GPLI0245
 67310   0 10467 0 77777  9490  )PJ6           -1,,-*-1                                                 GPLI0246
 67311   0 10466 0 07335  9491                 PNAME,,-*-1                                              GPLI0247
 67312   0 10463 0 10465  9492                 -*-1,,-*-3         COMMA                                 GPLI0248
 67313   0 00000 0 10464  9493                 -*-1                                                     GPLI0249
 67314  +234644442177     9494         OCT     234644442177                                             GPLI0250
 67315   0 10462 0 10742  9495                 APVAL1,,-*-1                                             GPLI0251
 67316   0 00000 0 10461  9496                 -*-1                                                     GPLI0252
 67317   0 00000 0 06222  9497                 H73                                                      GPLI0253
                          9498  *                                                                       GPLI0254
 67320   0 10457 0 77777  9499  )016           -1,,-*-1                                                 GPLI0255
 67321   0 10456 0 10103  9500                 FSUBR,,-*-1                                              GPLI0256
 67322   0 10454 0 10455  9501                 -*-1,,-*-2                                               GPLI0257
 67323  -3 00000 0 15154  9502         TXL     $EVCON,,0                                                GPLI0258
 67324   0 10453 0 07335  9503                 PNAME,,-*-1                                              GPLI0259
 67325   0 00000 0 10452  9504                 -*-1               COND                                  GPLI0260
 67326   0 00000 0 10451  9505                 -*-1                                                     GPLI0261
 67327  +234645247777     9506         OCT     234645247777                                             GPLI0262
                          9507  *                                                                       GPLI0263
 67330   0 10447 0 77777  9508  )017           -1,,-*-1                                                 GPLI0264
 67331   0 10446 0 06733  9509                 SUBR,,-*-1                                               GPLI0265
 67332   0 10444 0 10445  9510                 -*-1,,-*-2                                               GPLI0266
 67333  -3 00002 0 03730  9511         TXL     CONS,,2                                                  GPLI0267
 67334   0 10443 0 07335  9512                 PNAME,,-*-1                                              GPLI0268
 67335   0 00000 0 10442  9513                 -*-1               CONS                                  GPLI0269
 67336   0 00000 0 10441  9514                 -*-1                                                     GPLI0270
 67337  +234645627777     9515         OCT     234645627777                                             GPLI0271
                          9516  *                                                                       GPLI0272
 67340   0 10437 0 77777  9517  )019           -1,,-*-1                                                 GPLI0273
 67341   0 10436 0 06733  9518                 SUBR,,-*-1                                               GPLI0274
 67342   0 10434 0 10435  9519                 -*-1,,-*-2                                               GPLI0275
 67343  -3 00001 0 07343  9520         TXL     CP1,,1                                                   GPLI0276
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0177


 67344   0 10433 0 07335  9521                 PNAME,,-*-1                                              GPLI0277
 67345   0 00000 0 10432  9522                 -*-1               CP1                                   GPLI0278
 67346   0 00000 0 10431  9523                 -*-1                                                     GPLI0279
 67347  +234701777777     9524         OCT     234701777777                                             GPLI0280
                          9525  *                                                                       GPLI0281
 67350   0 10427 0 77777  9526  )020           -1,,-*-1                                                 GPLI0282
 67351   0 10426 0 06733  9527                 SUBR,,-*-1                                               GPLI0283
 67352   0 10424 0 10425  9528                 -*-1,,-*-2                                               GPLI0284
 67353  -3 00001 0 04345  9529         TXL     $COPY,,1                                                 GPLI0285
 67354   0 10423 0 07335  9530                 PNAME,,-*-1                                              GPLI0286
 67355   0 00000 0 10422  9531                 -*-1               COPY                                  GPLI0287
 67356   0 00000 0 10421  9532                 -*-1                                                     GPLI0288
 67357  +234647707777     9533         OCT     234647707777                                             GPLI0289
                          9534  *                                                                       GPLI0290
 67360   0 10417 0 77777  9535  )021           -1,,-*-1                                                 GPLI0291
 67361   0 10416 0 06733  9536                 SUBR,,-*-1                                               GPLI0292
 67362   0 10414 0 10415  9537                 -*-1,,-*-2                                               GPLI0293
 67363  -3 00000 0 04057  9538         TXL     COUNT,,0                                                 GPLI0294
 67364   0 10413 0 07335  9539                 PNAME,,-*-1                                              GPLI0295
 67365   0 00000 0 10412  9540                 -*-1               COUNT                                 GPLI0296
 67366   0 00000 0 10411  9541                 -*-1                                                     GPLI0297
 67367  +234664456377     9542         OCT     234664456377                                             GPLI0298
                          9543  *                                                                       GPLI0299
 67370   0 10407 0 77777  9544  )PJ1           -1,,-*-1                                                 GPLI0300
 67371   0 10406 0 10742  9545                 APVAL1,,-*-1                                             GPLI0301
 67372   0 10405 0 65145  9546                 -CURC1,,-*-1                                             GPLI0302
 67373   0 10404 0 07335  9547                 PNAME,,-*-1                                              GPLI0303
 67374   0 10377 0 10403  9548                 -*-1,,-*-5         CURCHAR                               GPLI0304
 67375   0 10401 0 10402  9549                 -*-1,,-*-2                                               GPLI0305
 67376  +236451233021     9550         OCT     236451233021                                             GPLI0306
 67377   0 00000 0 10400  9551                 -*-1                                                     GPLI0307
 67400  -117777777777     9552         OCT     517777777777                                             GPLI0308
 67401   0 10376 0 07110  9553                 SPECAL,,-*-1                                             GPLI0309
 67402   0 00000 0 65144  9554                 -CURC                                                    GPLI0310
                          9555  *                                                                       GPLI0311
 67403   0 10374 0 77777  9556  )PJ16          -1,,-*-1                                                 GPLI0312
 67404   0 10373 0 10742  9557                 APVAL1,,-*-1                                             GPLI0313
 67405   0 10371 0 10372  9558                 -*-1,,-*-2                                               GPLI0314
 67406   0 00000 0 06167  9559                 H40                                                      GPLI0315
 67407   0 10370 0 07335  9560                 PNAME,,-*-1                                              GPLI0316
 67410   0 00000 0 10367  9561                 -*-1               DASH                                  GPLI0317
 67411   0 00000 0 10366  9562                 -*-1                                                     GPLI0318
 67412  +242162307777     9563         OCT     242162307777                                             GPLI0319
                          9564  *                                                                       GPLI0320
 67413   0 10364 0 77777  9565  IJ01           -1,,-*-1                                                 GPLI0321
 67414   0 10363 0 06733  9566                 $SUBR,,-*-1                                              GPLI0322
 67415   0 10361 0 10362  9567                 -*-1,,-*-2                                               GPLI0323
 67416  -3 00002 0 13512  9568         TXL     DIFFER,,2                                                GPLI0324
 67417   0 10360 0 07335  9569                 $PNAME,,-*-1                                             GPLI0325
 67420   0 00000 0 10357  9570                 -*-1               DIFFERENCE                            GPLI0326
 67421   0 10355 0 10356  9571                 -*-1,,-*-2                                               GPLI0327
 67422  +243126262551     9572         OCT     243126262551                                             GPLI0328
 67423   0 00000 0 10354  9573                 -*-1                                                     GPLI0329
 67424  +254523257777     9574         OCT     254523257777                                             GPLI0330
                          9575  *                                                                       GPLI0331
 67425   0 10352 0 77777  9576  )PJ19          -1,,-*-1                                                 GPLI0332
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0178


 67426   0 10351 0 06733  9577                 SUBR,,-*-1                                               GPLI0333
 67427   0 10347 0 10350  9578                 -*-1,,-*-2                                               GPLI0334
 67430  -3 00001 0 12337  9579         TXL     DIGIT,,1                                                 GPLI0335
 67431   0 10346 0 07335  9580                 PNAME,,-*-1                                              GPLI0336
 67432   0 00000 0 10345  9581                 -*-1               DIGIT                                 GPLI0337
 67433   0 00000 0 10344  9582                 -*-1                                                     GPLI0338
 67434  +243127316377     9583         OCT     243127316377                                             GPLI0339
                          9584  *                                                                       GPLI0340
 67435   0 10342 0 77777  9585  IJ02           -1,,-*-1                                                 GPLI0341
 67436   0 10341 0 06733  9586                 $SUBR,,-*-1                                              GPLI0342
 67437   0 10337 0 10340  9587                 -*-1,,-*-2                                               GPLI0343
 67440  -3 00002 0 13420  9588         TXL     DIVIDE,,2                                                GPLI0344
 67441   0 10336 0 07335  9589                 $PNAME,,-*-1                                             GPLI0345
 67442   0 00000 0 10335  9590                 -*-1               DIVIDE                                GPLI0346
 67443   0 00000 0 10334  9591                 -*-1                                                     GPLI0347
 67444  +243165312425     9592         OCT     243165312425                                             GPLI0348
                          9593  *                                                                       GPLI0349
 67445   0 10332 0 77777  9594  )PJ10          -1,,-*-1                                                 GPLI0350
 67446   0 10331 0 07335  9595                 PNAME,,-*-1                                              GPLI0351
 67447   0 10326 0 10330  9596                 -*-1,,-*-3         DOLLAR                                GPLI0352
 67450   0 00000 0 10327  9597                 -*-1                                                     GPLI0353
 67451  +244643432151     9598         OCT     244643432151                                             GPLI0354
 67452   0 10325 0 10742  9599                 APVAL1,,-*-1                                             GPLI0355
 67453   0 00000 0 10324  9600                 -*-1                                                     GPLI0356
 67454   0 00000 0 06202  9601                 H53                                                      GPLI0357
                          9602  *                                                                       GPLI0358
 67455   0 10322 0 77777  9603  DMPCB          -1,,-*-1                                                 GPLI0359
 67456   0 10321 0 06733  9604                 SUBR,,-*-1                                               GPLI0360
 67457   0 10317 0 10320  9605                 -*-1,,-*-2                                               GPLI0361
 67460  -3 00004 0 10736  9606         TXL     DUMPXX,,4                                                GPLI0362
 67461   0 10316 0 07335  9607                 PNAME,,-*-1                                              GPLI0363
 67462   0 00000 0 10315  9608                 -*-1               DUMP                                  GPLI0364
 67463   0 00000 0 10314  9609                 -*-1                                                     GPLI0365
 67464  +246444477777     9610         OCT     246444477777                                             GPLI0366
                          9611  *                                                                       GPLI0367
 67465   0 10312 0 77777  9612  )PJ30          -1,,-*-1                                                 GPLI0368
 67466   0 10311 0 06733  9613                 SUBR,,-*-1                                               GPLI0369
 67467   0 10307 0 10310  9614                 -*-1,,-*-2                                               GPLI0370
 67470  -3 00000 0 12273  9615         TXL     ENDRED,,0                                                GPLI0371
 67471   0 10306 0 07335  9616                 PNAME,,-*-1                                              GPLI0372
 67472   0 00000 0 10305  9617                 -*-1               ENDREAD                               GPLI0373
 67473   0 10303 0 10304  9618                 -*-1,,-*-2                                               GPLI0374
 67474  +254524512521     9619         OCT     254524512521                                             GPLI0375
 67475   0 00000 0 10302  9620                 -*-1                                                     GPLI0376
 67476  +247777777777     9621         OCT     247777777777                                             GPLI0377
                          9622  *                                                                       GPLI0378
 67477   0 10300 0 77777  9623  )PJ34          -1,,-*-1                                                 GPLI0379
 67500   0 10277 0 10742  9624                 APVAL1,,-*-1                                             GPLI0380
 67501   0 10275 0 10276  9625                 -*-1,,-*-2                                               GPLI0381
 67502   0 00000 0 06141  9626                 H12                                                      GPLI0382
 67503   0 10274 0 07335  9627                 PNAME,,-*-1                                              GPLI0383
 67504   0 00000 0 10273  9628                 -*-1               EOF                                   GPLI0384
 67505   0 00000 0 10272  9629                 -*-1                                                     GPLI0385
 67506  +254626777777     9630         OCT     254626777777                                             GPLI0386
                          9631  *                                                                       GPLI0387
 67507   0 10270 0 77777  9632  )PJ35          -1,,-*-1                                                 GPLI0388
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0179


 67510   0 10267 0 10742  9633                 APVAL1,,-*-1                                             GPLI0389
 67511   0 10265 0 10266  9634                 -*-1,,-*-2                                               GPLI0390
 67512   0 00000 0 06221  9635                 H72                                                      GPLI0391
 67513   0 10264 0 07335  9636                 PNAME,,-*-1                                              GPLI0392
 67514   0 00000 0 10263  9637                 -*-1               EOR                                   GPLI0393
 67515   0 00000 0 10262  9638                 -*-1                                                     GPLI0394
 67516  +254651777777     9639         OCT     254651777777                                             GPLI0395
                          9640  *                                                                       GPLI0396
 67517   0 10260 0 77777  9641  )030           -1,,-*-1                                                 GPLI0397
 67520   0 10257 0 06733  9642                 SUBR,,-*-1                                               GPLI0398
 67521   0 10255 0 10256  9643                 -*-1,,-*-2                                               GPLI0399
 67522  -3 00002 0 10261  9644         TXL     EQ,,2                                                    GPLI0400
 67523   0 10254 0 07335  9645                 PNAME,,-*-1                                              GPLI0401
 67524   0 00000 0 10253  9646                 -*-1               EQ                                    GPLI0402
 67525   0 00000 0 10252  9647                 -*-1                                                     GPLI0403
 67526  +255077777777     9648         OCT     255077777777                                             GPLI0404
                          9649  *                                                                       GPLI0405
 67527   0 10250 0 77777  9650  )PJ5           -1,,-*-1                                                 GPLI0406
 67530   0 10247 0 07335  9651                 PNAME,,-*-1                                              GPLI0407
 67531   0 10244 0 10246  9652                 -*-1,,-*-3         EQSIGN                                GPLI0408
 67532   0 00000 0 10245  9653                 -*-1                                                     GPLI0409
 67533  +255062312745     9654         OCT     255062312745                                             GPLI0410
 67534   0 10243 0 10742  9655                 APVAL1,,-*-1                                             GPLI0411
 67535   0 00000 0 10242  9656                 -*-1                                                     GPLI0412
 67536   0 00000 0 06142  9657                 H13                                                      GPLI0413
                          9658  *                                                                       GPLI0414
 67537   0 10240 0 77777  9659  )032           -1,,-*-1                                                 GPLI0415
 67540   0 10237 0 06733  9660                 SUBR,,-*-1                                               GPLI0416
 67541   0 10235 0 10236  9661                 -*-1,,-*-2                                               GPLI0417
 67542  -3 00002 0 04461  9662         TXL     EQUAL,,2                                                 GPLI0418
 67543   0 10234 0 07335  9663                 PNAME,,-*-1                                              GPLI0419
 67544   0 00000 0 10233  9664                 -*-1               EQUAL                                 GPLI0420
 67545   0 00000 0 10232  9665                 -*-1                                                     GPLI0421
 67546  +255064214377     9666         OCT     255064214377                                             GPLI0422
                          9667  *                                                                       GPLI0423
 67547   0 10230 0 77777  9668  )034           -1,,-*-1                                                 GPLI0424
 67550   0 10227 0 06733  9669                 SUBR,,-*-1                                               GPLI0425
 67551   0 10225 0 10226  9670                 -*-1,,-*-2                                               GPLI0426
 67552  -3 00001 0 02071  9671         TXL     ERROR1,,1                                                GPLI0427
 67553   0 10224 0 07335  9672                 PNAME,,-*-1                                              GPLI0428
 67554   0 00000 0 10223  9673                 -*-1               ERROR                                 GPLI0429
 67555   0 00000 0 10222  9674                 -*-1                                                     GPLI0430
 67556  +255151465177     9675         OCT     255151465177                                             GPLI0431
                          9676  *                                                                       GPLI0432
 67557   0 10220 0 77777  9677  )PJ4           -1,,-*-1                                                 GPLI0433
 67560   0 10217 0 06733  9678                 SUBR,,-*-1                                               GPLI0434
 67561   0 10215 0 10216  9679                 -*-1,,-*-2                                               GPLI0435
 67562  -3 00000 0 12346  9680         TXL     EROR1,,0                                                 GPLI0436
 67563   0 10214 0 07335  9681                 PNAME,,-*-1                                              GPLI0437
 67564   0 00000 0 10213  9682                 -*-1               ERROR1                                GPLI0438
 67565   0 00000 0 10212  9683                 -*-1                                                     GPLI0439
 67566  +255151465101     9684         OCT     255151465101                                             GPLI0440
                          9685  *                                                                       GPLI0441
 67567   0 10210 0 77777  9686  )PJ41          -1,,-*-1                                                 GPLI0442
 67570   0 10207 0 06733  9687                 SUBR,,-*-1                                               GPLI0443
 67571   0 10205 0 10206  9688                 -*-1,,-*-2                                               GPLI0444
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0180


 67572  -3 00003 0 11560  9689         TXL     ERRSET,,3                                                GPLI0445
 67573   0 10204 0 07335  9690                 PNAME,,-*-1                                              GPLI0446
 67574   0 00000 0 10203  9691                 -*-1               ERRORSET                              GPLI0447
 67575   0 10201 0 10202  9692                 -*-1,,-*-2                                               GPLI0448
 67576  +255151465162     9693         OCT     255151465162                                             GPLI0449
 67577   0 00000 0 10200  9694                 -*-1                                                     GPLI0450
 67600  +256377777777     9695         OCT     256377777777                                             GPLI0451
                          9696  *                                                                       GPLI0452
 67601   0 10176 0 77777  9697  )035           -1,,-*-1                                                 GPLI0453
 67602   0 10175 0 06733  9698                 SUBR,,-*-1                                               GPLI0454
 67603   0 10173 0 10174  9699                 -*-1,,-*-2                                               GPLI0455
 67604  -3 00002 0 15454  9700         TXL     EVAL,,2                                                  GPLI0456
 67605   0 10172 0 07335  9701                 PNAME,,-*-1                                              GPLI0457
 67606   0 00000 0 10171  9702                 -*-1               EVAL                                  GPLI0458
 67607   0 00000 0 10170  9703                 -*-1                                                     GPLI0459
 67610  +256521437777     9704         OCT     256521437777                                             GPLI0460
                          9705  *                                                                       GPLI0461
 67611   0 10166 0 77777  9706  )036           -1,,-*-1                                                 GPLI0462
 67612   0 10165 0 06733  9707                 $SUBR,,-*-1                                              GPLI0463
 67613   0 10163 0 10164  9708                 -*-1,,-*-2                                               GPLI0464
 67614  -3 00002 0 15774  9709         TXL     EVLIS,,2                                                 GPLI0465
 67615   0 10162 0 07335  9710                 $PNAME,,-*-1                                             GPLI0466
 67616   0 00000 0 10161  9711                 -*-1               EVLIS                                 GPLI0467
 67617   0 00000 0 10160  9712                 -*-1                                                     GPLI0468
 67620  +256543316277     9713         OCT     256543316277                                             GPLI0469
                          9714  *                                                                       GPLI0470
 67621   0 10156 0 77777  9715  )037           -1,,-*-1                                                 GPLI0471
 67622   0 10155 0 07335  9716                 PNAME,,-*-1                                              GPLI0472
 67623   0 00000 0 10154  9717                 -*-1               EXPR                                  GPLI0473
 67624   0 00000 0 10153  9718                 -*-1                                                     GPLI0474
 67625  +256747517777     9719         OCT     256747517777                                             GPLI0475
                          9720  *                                                                       GPLI0476
 67626   0 10151 0 77777  9721  )038           -1,,-*-1                                                 GPLI0477
 67627   0 10150 0 06733  9722                 SUBR,,-*-1                                               GPLI0478
 67630   0 10146 0 10147  9723                 -*-1,,-*-2                                               GPLI0479
 67631  -3 00002 0 13530  9724         TXL     EXPT,,2                                                  GPLI0480
 67632   0 10145 0 07335  9725                 PNAME,,-*-1                                              GPLI0481
 67633   0 00000 0 10144  9726                 -*-1               EXPT                                  GPLI0482
 67634   0 00000 0 10143  9727                 -*-1                                                     GPLI0483
 67635  +256747637777     9728         OCT     256747637777                                             GPLI0484
                          9729  *                                                                       GPLI0485
 67636   0 10141 0 77777  9730  )040           -1,,-*-1                                                 GPLI0486
 67637   0 10140 0 07335  9731                 PNAME,,-*-1                                              GPLI0487
 67640   0 00000 0 10137  9732                 -*-1               FEXPR                                 GPLI0488
 67641   0 00000 0 10136  9733                 -*-1                                                     GPLI0489
 67642  +262567475177     9734         OCT     262567475177                                             GPLI0490
                          9735  *                                                                       GPLI0491
 67643   0 10134 0 77777  9736  )041           -1,,-*-1                                                 GPLI0492
 67644   0 10133 0 07335  9737                 PNAME,,-*-1                                              GPLI0493
 67645   0 00000 0 10132  9738                 -*-1               FIX                                   GPLI0494
 67646   0 00000 0 10131  9739                 -*-1                                                     GPLI0495
 67647  +263167777777     9740         OCT     263167777777                                             GPLI0496
                          9741  *                                                                       GPLI0497
 67650   0 10127 0 77777  9742  II11           -1,,-*-1                                                 GPLI0498
 67651   0 10126 0 06733  9743                 $SUBR,,-*-1                                              GPLI0499
 67652   0 10124 0 10125  9744                 -*-1,,-*-2                                               GPLI0500
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0181


 67653  -3 00001 0 14466  9745         TXL     FIXP,,1                                                  GPLI0501
 67654   0 10123 0 07335  9746                 $PNAME,,-*-1                                             GPLI0502
 67655   0 00000 0 10122  9747                 -*-1               FIXP                                  GPLI0503
 67656   0 00000 0 10121  9748                 -*-1                                                     GPLI0504
 67657  +263167477777     9749         OCT     263167477777                                             GPLI0505
                          9750  *                                                                       GPLI0506
 67660   0 10117 0 77777  9751  )042           -1,,-*-1                                                 GPLI0507
 67661   0 10116 0 07335  9752                 PNAME,,-*-1                                              GPLI0508
 67662   0 00000 0 10115  9753                 -*-1               FLOAT                                 GPLI0509
 67663   0 00000 0 10114  9754                 -*-1                                                     GPLI0510
 67664  +264346216377     9755         OCT     264346216377                                             GPLI0511
                          9756  *                                                                       GPLI0512
 67665   0 10112 0 77777  9757  II12           -1,,-*-1                                                 GPLI0513
 67666   0 10111 0 06733  9758                 $SUBR,,-*-1                                              GPLI0514
 67667   0 10107 0 10110  9759                 -*-1,,-*-2                                               GPLI0515
 67670  -3 00001 0 14453  9760         TXL     FLOATP,,1                                                GPLI0516
 67671   0 10106 0 07335  9761                 $PNAME,,-*-1                                             GPLI0517
 67672   0 00000 0 10105  9762                 -*-1               FLOATP                                GPLI0518
 67673   0 00000 0 10104  9763                 -*-1                                                     GPLI0519
 67674  +264346216347     9764         OCT     264346216347                                             GPLI0520
                          9765  *                                                                       GPLI0521
 67675   0 10102 0 77777  9766  )043           -1,,-*-1                                                 GPLI0522
 67676   0 10101 0 07335  9767                 PNAME,,-*-1                                              GPLI0523
 67677   0 00000 0 10100  9768                 -*-1               FSUBR                                 GPLI0524
 67700   0 00000 0 10077  9769                 -*-1                                                     GPLI0525
 67701  +266264225177     9770         OCT     266264225177                                             GPLI0526
                          9771  *                                                                       GPLI0527
 67702   0 10075 0 77777  9772  )044           -1,,-*-1                                                 GPLI0528
 67703   0 10074 0 07335  9773                 PNAME,,-*-1                                              GPLI0529
 67704   0 00000 0 10073  9774                 -*-1               FUNARG                                GPLI0530
 67705   0 00000 0 10072  9775                 -*-1                                                     GPLI0531
 67706  +266445215127     9776         OCT     266445215127                                             GPLI0532
                          9777  *                                                                       GPLI0533
 67707   0 10070 0 77777  9778  )045           -1,,-*-1                                                 GPLI0534
 67710   0 10067 0 10103  9779                 FSUBR,,-*-1                                              GPLI0535
 67711   0 10065 0 10066  9780                 -*-1,,-*-2                                               GPLI0536
 67712  -3 00000 0 15250  9781         TXL     $LAMP,,0                                                 GPLI0537
 67713   0 10064 0 07335  9782                 PNAME,,-*-1                                              GPLI0538
 67714   0 00000 0 10063  9783                 -*-1               FUNCTION                              GPLI0539
 67715   0 10061 0 10062  9784                 -*-1,,-*-2                                               GPLI0540
 67716  +266445236331     9785         OCT     266445236331                                             GPLI0541
 67717   0 00000 0 10060  9786                 -*-1                                                     GPLI0542
 67720  -064577777777     9787         OCT     464577777777                                             GPLI0543
                          9788  *                                                                       GPLI0544
 67721   0 10056 0 77777  9789  )046           -1,,-*-1                                                 GPLI0545
 67722   0 10055 0 06733  9790                 $SUBR,,-*-1                                              GPLI0546
 67723   0 10053 0 10054  9791                 -*-1,,-*-2                                               GPLI0547
 67724  -3 00000 0 10174  9792         TXL     GENSYM,,0                                                GPLI0548
 67725   0 10052 0 07335  9793                 $PNAME,,-*-1                                             GPLI0549
 67726   0 00000 0 10051  9794                 -*-1               GENSYM                                GPLI0550
 67727   0 00000 0 10050  9795                 -*-1                                                     GPLI0551
 67730  +272545627044     9796         OCT     272545627044                                             GPLI0552
                          9797  *                                                                       GPLI0553
 67731   0 10046 0 77777  9798  )231           -1,,-*-1                                                 GPLI0554
 67732   0 10045 0 06733  9799                 SUBR,,-*-1                                               GPLI0555
 67733   0 10043 0 10044  9800                 -*-1,,-*-2                                               GPLI0556
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0182


 67734  -3 00002 0 11771  9801         TXL     C$GET,,2                                                 GPLI0557
 67735   0 10042 0 07335  9802                 PNAME,,-*-1                                              GPLI0558
 67736   0 00000 0 10041  9803                 -*-1               GET                                   GPLI0559
 67737   0 00000 0 10040  9804                 -*-1                                                     GPLI0560
 67740  +272563777777     9805         OCT     272563777777                                             GPLI0561
                          9806  *                                                                       GPLI0562
 67741   0 10036 0 77777  9807  )047           -1,,-*-1                                                 GPLI0563
 67742   0 10035 0 10103  9808                 $FSUBR,,-*-1                                             GPLI0564
 67743   0 10033 0 10034  9809                 -*-1,,-*-2                                               GPLI0565
 67744  -3 00001 0 16276  9810         TXL     GOGOGO,,1                                                GPLI0566
 67745   0 10032 0 07335  9811                 PNAME,,-*-1                                              GPLI0567
 67746   0 00000 0 10031  9812                 -*-1               GO                                    GPLI0568
 67747   0 00000 0 10030  9813                 -*-1                                                     GPLI0569
 67750  +274677777777     9814         OCT     274677777777                                             GPLI0570
                          9815  *                                                                       GPLI0571
 67751   0 10026 0 77777  9816  II3            -1,,-*-1                                                 GPLI0572
 67752   0 10025 0 06733  9817                 $SUBR,,-*-1                                              GPLI0573
 67753   0 10023 0 10024  9818                 -*-1,,-*-2                                               GPLI0574
 67754  -3 00002 0 14433  9819         TXL     GRTRTP,,2                                                GPLI0575
 67755   0 10022 0 07335  9820                 $PNAME,,-*-1                                             GPLI0576
 67756   0 00000 0 10021  9821                 -*-1               GREATERP                              GPLI0577
 67757   0 10017 0 10020  9822                 -*-1,,-*-2                                               GPLI0578
 67760  +275125216325     9823         OCT     275125216325                                             GPLI0579
 67761   0 00000 0 10016  9824                 -*-1                                                     GPLI0580
 67762  -114777777777     9825         OCT     514777777777                                             GPLI0581
                          9826  *                                                                       GPLI0582
 67763   0 10014 0 77777  9827  )052           -1,,-*-1                                                 GPLI0583
 67764   0 10013 0 06733  9828                 SUBR,,-*-1                                               GPLI0584
 67765   0 10011 0 10012  9829                 -*-1,,-*-2                                               GPLI0585
 67766  -3 00001 0 06420  9830         TXL     INTRN1,,1                                                GPLI0586
 67767   0 10010 0 07335  9831                 PNAME,,-*-1                                              GPLI0587
 67770   0 00000 0 10007  9832                 -*-1               INTERN                                GPLI0588
 67771   0 00000 0 10006  9833                 -*-1                                                     GPLI0589
 67772  +314563255145     9834         OCT     314563255145                                             GPLI0590
                          9835  *                                                                       GPLI0591
 67773   0 10004 0 77777  9836  )054           -1,,-*-1                                                 GPLI0592
 67774   0 10003 0 10103  9837                 FSUBR,,-*-1                                              GPLI0593
 67775   0 10001 0 10002  9838                 -*-1,,-*-2                                               GPLI0594
 67776  -3 00000 0 15264  9839         TXL     LABP,,0                                                  GPLI0595
 67777   0 10000 0 07335  9840                 PNAME,,-*-1                                              GPLI0596
 70000   0 00000 0 07777  9841                 -*-1               LABEL                                 GPLI0597
 70001   0 00000 0 07776  9842                 -*-1                                                     GPLI0598
 70002  -032122254377     9843         OCT     432122254377                                             GPLI0599
                          9844  *                                                                       GPLI0600
 70003   0 07774 0 77777  9845  )055           -1,,-*-1                                                 GPLI0601
 70004   0 07773 0 07335  9846                 PNAME,,-*-1                                              GPLI0602
 70005   0 00000 0 07772  9847                 -*-1               LABEL                                 GPLI0603
 70006   0 00000 0 07771  9848                 -*-1                                                     GPLI0604
 70007  -032122254377     9849         OCT     432122254377                                             GPLI0605
                          9850  *                                                                       GPLI0606
 70010   0 07767 0 77777  9851  )LAP           -1,,-*-1                                                 GPLI0607
 70011   0 07766 0 06733  9852                 SUBR,,-*-1                                               GPLI0608
 70012   0 07764 0 07765  9853                 -*-1,,-*-2                                               GPLI0609
 70013  -3 00002 0 16321  9854         TXL     C$LAP,,2                                                 GPLI0610
 70014   0 07763 0 07335  9855                 PNAME,,-*-1                                              GPLI0611
 70015   0 00000 0 07762  9856                 -*-1               LAP                                   GPLI0612
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0183


 70016   0 00000 0 07761  9857                 -*-1                                                     GPLI0613
 70017  -032147777777     9858         OCT     432147777777                                             GPLI0614
                          9859  *                                                                       GPLI0615
 70020   0 07757 0 77777  9860  PVV1           -1,,-*-1                                                 GPLI0616
 70021   0 07756 0 06733  9861                 SUBR,,-*-1                                               GPLI0617
 70022   0 07754 0 07755  9862                 -*-1,,-*-2                                               GPLI0618
 70023  -3 00002 0 12760  9863         TXL     LSHIFT,,2                                                GPLI0619
 70024   0 07753 0 07335  9864                 PNAME,,-*-1                                              GPLI0620
 70025   0 00000 0 07752  9865                 -*-1               LEFTSHIFT                             GPLI0621
 70026   0 07750 0 07751  9866                 -*-1,,-*-2                                               GPLI0622
 70027  -032526636230     9867         OCT     432526636230                                             GPLI0623
 70030   0 00000 0 07747  9868                 -*-1                                                     GPLI0624
 70031  +312663777777     9869         OCT     312663777777                                             GPLI0625
                          9870  *                                                                       GPLI0626
 70032   0 07745 0 77777  9871  II4            -1,,-*-1                                                 GPLI0627
 70033   0 07744 0 06733  9872                 $SUBR,,-*-1                                              GPLI0628
 70034   0 07742 0 07743  9873                 -*-1,,-*-2                                               GPLI0629
 70035  -3 00002 0 14443  9874         TXL     LESSTP,,2                                                GPLI0630
 70036   0 07741 0 07335  9875                 $PNAME,,-*-1                                             GPLI0631
 70037   0 00000 0 07740  9876                 -*-1               LESSP                                 GPLI0632
 70040   0 00000 0 07737  9877                 -*-1                                                     GPLI0633
 70041  -032562624777     9878         OCT     432562624777                                             GPLI0634
                          9879  *                                                                       GPLI0635
 70042   0 07735 0 77777  9880  )057           -1,,-*-1                                                 GPLI0636
 70043   0 07734 0 10103  9881                 FSUBR,,-*-1                                              GPLI0637
 70044   0 07732 0 07733  9882                 -*-1,,-*-2                                               GPLI0638
 70045  -3 00000 0 15774  9883         TXL     EVLIS,,0                                                 GPLI0639
 70046   0 07731 0 07335  9884                 PNAME,,-*-1                                              GPLI0640
 70047   0 00000 0 07730  9885                 -*-1               LIST                                  GPLI0641
 70050   0 00000 0 07727  9886                 -*-1                                                     GPLI0642
 70051  -033162637777     9887         OCT     433162637777                                             GPLI0643
                          9888  *                                                                       GPLI0644
 70052   0 07725 0 77777  9889  )PJ17          -1,,-*-1                                                 GPLI0645
 70053   0 07724 0 06733  9890                 SUBR,,-*-1                                               GPLI0646
 70054   0 07722 0 07723  9891                 -*-1,,-*-2                                               GPLI0647
 70055  -3 00001 0 12321  9892         TXL     LITER,,1                                                 GPLI0648
 70056   0 07721 0 07335  9893                 PNAME,,-*-1                                              GPLI0649
 70057   0 00000 0 07720  9894                 -*-1               LITER                                 GPLI0650
 70060   0 00000 0 07717  9895                 -*-1                                                     GPLI0651
 70061  -033163255177     9896         OCT     433163255177                                             GPLI0652
                          9897  *                                                                       GPLI0653
 70062   0 07715 0 77777  9898  )234A          -1,,-*-1                                                 GPLI0654
 70063   0 07714 0 06733  9899                 SUBR,,-*-1                                               GPLI0655
 70064   0 07712 0 07713  9900                 -*-1,,-*-2                                               GPLI0656
 70065  -3 00000 0 77724  9901         TXL     LOADER,,0                                                GPLI0657
 70066   0 07711 0 07335  9902                 PNAME,,-*-1                                              GPLI0658
 70067   0 00000 0 07710  9903                 -*-1               LOAD                                  GPLI0659
 70070   0 00000 0 07707  9904                 -*-1                                                     GPLI0660
 70071  -034621247777     9905         OCT     434621247777                                             GPLI0661
                          9906  *                                                                       GPLI0662
 70072   0 07705 0 77777  9907  )PJ37          -1,,-*-1                                                 GPLI0663
 70073   0 07704 0 10103  9908                 FSUBR,,-*-1                                              GPLI0664
 70074   0 07702 0 07703  9909                 -*-1,,-*-2                                               GPLI0665
 70075  -3 00000 0 12676  9910         TXL     LOGAND,,0                                                GPLI0666
 70076   0 07701 0 07335  9911                 PNAME,,-*-1                                              GPLI0667
 70077   0 00000 0 07700  9912                 -*-1               LOGAND                                GPLI0668
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0184


 70100   0 00000 0 07677  9913                 -*-1                                                     GPLI0669
 70101  -034627214524     9914         OCT     434627214524                                             GPLI0670
                          9915  *                                                                       GPLI0671
 70102   0 07675 0 77777  9916  )PJ36          -1,,-*-1                                                 GPLI0672
 70103   0 07674 0 10103  9917                 FSUBR,,-*-1                                              GPLI0673
 70104   0 07672 0 07673  9918                 -*-1,,-*-2                                               GPLI0674
 70105  -3 00000 0 12662  9919         TXL     LOGOR,,0                                                 GPLI0675
 70106   0 07671 0 07335  9920                 PNAME,,-*-1                                              GPLI0676
 70107   0 00000 0 07670  9921                 -*-1               LOGOR                                 GPLI0677
 70110   0 00000 0 07667  9922                 -*-1                                                     GPLI0678
 70111  -034627465177     9923         OCT     434627465177                                             GPLI0679
                          9924  *                                                                       GPLI0680
 70112   0 07665 0 77777  9925  )PJ38          -1,,-*-1                                                 GPLI0681
 70113   0 07664 0 10103  9926                 FSUBR,,-*-1                                              GPLI0682
 70114   0 07662 0 07663  9927                 -*-1,,-*-2                                               GPLI0683
 70115  -3 00000 0 12712  9928         TXL     LOGXOR,,0                                                GPLI0684
 70116   0 07661 0 07335  9929                 PNAME,,-*-1                                              GPLI0685
 70117   0 00000 0 07660  9930                 -*-1               LOGXOR                                GPLI0686
 70120   0 00000 0 07657  9931                 -*-1                                                     GPLI0687
 70121  -034627674651     9932         OCT     434627674651                                             GPLI0688
                          9933  *                                                                       GPLI0689
 70122   0 07655 0 77777  9934  )PJ7           -1,,-*-1                                                 GPLI0690
 70123   0 07654 0 07335  9935                 PNAME,,-*-1                                              GPLI0691
 70124   0 07651 0 07653  9936                 -*-1,,-*-3         LPAR                                  GPLI0692
 70125   0 00000 0 07652  9937                 -*-1                                                     GPLI0693
 70126  -034721517777     9938         OCT     434721517777                                             GPLI0694
 70127   0 07650 0 10742  9939                 APVAL1,,-*-1                                             GPLI0695
 70130   0 00000 0 07647  9940                 -*-1                                                     GPLI0696
 70131   0 00000 0 06223  9941                 H74                                                      GPLI0697
                          9942  *                                                                       GPLI0698
 70132   0 07645 0 77777  9943  )065           -1,,-*-1                                                 GPLI0699
 70133   0 07644 0 06733  9944                 SUBR,,-*-1                                               GPLI0700
 70134   0 07642 0 07643  9945                 -*-1,,-*-2                                               GPLI0701
 70135  -3 00002 0 07620  9946         TXL     MAPCAR,,2                                                GPLI0702
 70136   0 07641 0 07335  9947                 PNAME,,-*-1                                              GPLI0703
 70137   0 00000 0 07640  9948                 -*-1               MAP                                   GPLI0704
 70140   0 00000 0 07637  9949                 -*-1                                                     GPLI0705
 70141  -042147777777     9950         OCT     442147777777                                             GPLI0706
                          9951  *                                                                       GPLI0707
 70142   0 07635 0 77777  9952  )069B          -1,,-*-1                                                 GPLI0708
 70143   0 07634 0 06733  9953                 SUBR,,-*-1                                               GPLI0709
 70144   0 07632 0 07633  9954                 -*-1,,-*-2                                               GPLI0710
 70145  -3 00002 0 07645  9955         TXL     MAPCON,,2                                                GPLI0711
 70146   0 07631 0 07335  9956                 PNAME,,-*-1                                              GPLI0712
 70147   0 00000 0 07630  9957                 -*-1               MAPCON                                GPLI0713
 70150   0 00000 0 07627  9958                 -*-1                                                     GPLI0714
 70151  -042147234645     9959         OCT     442147234645                                             GPLI0715
                          9960  *                                                                       GPLI0716
 70152   0 07625 0 77777  9961  )069A          -1,,-*-1                                                 GPLI0717
 70153   0 07624 0 06733  9962                 SUBR,,-*-1                                               GPLI0718
 70154   0 07622 0 07623  9963                 -*-1,,-*-2                                               GPLI0719
 70155  -3 00002 0 04214  9964         TXL     MAPLIS,,2                                                GPLI0720
 70156   0 07621 0 07335  9965                 PNAME,,-*-1                                              GPLI0721
 70157   0 00000 0 07620  9966                 -*-1               MAPLIST                               GPLI0722
 70160   0 07616 0 07617  9967                 -*-1,,-*-2                                               GPLI0723
 70161  -042147433162     9968         OCT     442147433162                                             GPLI0724
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0185


 70162   0 00000 0 07615  9969                 -*-1                                                     GPLI0725
 70163  -237777777777     9970         OCT     637777777777                                             GPLI0726
                          9971  *                                                                       GPLI0727
 70164   0 07613 0 77777  9972  II7            -1,,-*-1                                                 GPLI0728
 70165   0 07612 0 10103  9973                 $FSUBR,,-*-1                                             GPLI0729
 70166   0 07610 0 07611  9974                 -*-1,,-*-2                                               GPLI0730
 70167  -3 00002 0 14150  9975         TXL     MAX,,2                                                   GPLI0731
 70170   0 07607 0 07335  9976                 $PNAME,,-*-1                                             GPLI0732
 70171   0 00000 0 07606  9977                 -*-1               MAX                                   GPLI0733
 70172   0 00000 0 07605  9978                 -*-1                                                     GPLI0734
 70173  -042167777777     9979         OCT     442167777777                                             GPLI0735
                          9980  *                                                                       GPLI0736
 70174   0 07603 0 77777  9981  II8            -1,,-*-1                                                 GPLI0737
 70175   0 07602 0 10103  9982                 $FSUBR,,-*-1                                             GPLI0738
 70176   0 07600 0 07601  9983                 -*-1,,-*-2                                               GPLI0739
 70177  -3 00002 0 14142  9984         TXL     MIN,,2                                                   GPLI0740
 70200   0 07577 0 07335  9985                 $PNAME,,-*-1                                             GPLI0741
 70201   0 00000 0 07576  9986                 -*-1               MIN                                   GPLI0742
 70202   0 00000 0 07575  9987                 -*-1                                                     GPLI0743
 70203  -043145777777     9988         OCT     443145777777                                             GPLI0744
                          9989  *                                                                       GPLI0745
 70204   0 07573 0 77777  9990  )070           -1,,-*-1                                                 GPLI0746
 70205   0 07572 0 06733  9991                 $SUBR,,-*-1                                              GPLI0747
 70206   0 07570 0 07571  9992                 -*-1,,-*-2                                               GPLI0748
 70207  -3 00001 0 14624  9993         TXL     MNSPRG,,1                                                GPLI0749
 70210   0 07567 0 07335  9994                 $PNAME,,-*-1                                             GPLI0750
 70211   0 00000 0 07566  9995                 -*-1               MINUS                                 GPLI0751
 70212   0 00000 0 07565  9996                 -*-1                                                     GPLI0752
 70213  -043145646277     9997         OCT     443145646277                                             GPLI0753
                          9998  *                                                                       GPLI0754
 70214   0 07563 0 77777  9999  II16           -1,,-*-1                                                 GPLI0755
 70215   0 07562 0 06733  10000                 $SUBR,,-*-1                                              GPLI0756
 70216   0 07560 0 07561  10001                 -*-1,,-*-2                                               GPLI0757
 70217  -3 00001 0 14500  10002         TXL     MINUSP,,1                                                GPLI0758
 70220   0 07557 0 07335  10003                 $PNAME,,-*-1                                             GPLI0759
 70221   0 00000 0 07556  10004                 -*-1               MINUSP                                GPLI0760
 70222   0 00000 0 07555  10005                 -*-1                                                     GPLI0761
 70223  -043145646247     10006         OCT     443145646247                                             GPLI0762
                          10007  *                                                                       GPLI0763
 70224   0 07553 0 77777  10008  )PJ26          -1,,-*-1                                                 GPLI0764
 70225   0 07552 0 06733  10009                 SUBR,,-*-1                                               GPLI0765
 70226   0 07550 0 07551  10010                 -*-1,,-*-2                                               GPLI0766
 70227  -3 00000 0 12147  10011         TXL     MKNAM,,0                                                 GPLI0767
 70230   0 07547 0 07335  10012                 PNAME,,-*-1                                              GPLI0768
 70231   0 00000 0 07546  10013                 -*-1               MKNAM                                 GPLI0769
 70232   0 00000 0 07545  10014                 -*-1                                                     GPLI0770
 70233  -044245214477     10015         OCT     444245214477                                             GPLI0771
                          10016  *                                                                       GPLI0772
 70234   0 07543 0 77777  10017  )071           -1,,-*-1                                                 GPLI0773
 70235   0 07542 0 06733  10018                 SUBR,,-*-1                                               GPLI0774
 70236   0 07540 0 07541  10019                 -*-1,,-*-2                                               GPLI0775
 70237  -3 00002 0 07675  10020         TXL     NCONC,,2                                                 GPLI0776
 70240   0 07537 0 07335  10021                 PNAME,,-*-1                                              GPLI0777
 70241   0 00000 0 07536  10022                 -*-1               NCONC                                 GPLI0778
 70242   0 00000 0 07535  10023                 -*-1                                                     GPLI0779
 70243  -052346452377     10024         OCT     452346452377                                             GPLI0780
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0186


                          10025  *                                                                       GPLI0781
 70244   0 07533 0 77777  10026  )074           -1,,-*-1                                                 GPLI0782
 70245   0 07532 0 06733  10027                 $SUBR,,-*-1                                              GPLI0783
 70246   0 07530 0 07531  10028                 -*-1,,-*-2                                               GPLI0784
 70247  -3 00001 0 10150  10029         TXL     NOTS,,1                                                  GPLI0785
 70250   0 07527 0 07335  10030                 $PNAME,,-*-1                                             GPLI0786
 70251   0 00000 0 07526  10031                 -*-1               NOT                                   GPLI0787
 70252   0 00000 0 07525  10032                 -*-1                                                     GPLI0788
 70253  -054663777777     10033         OCT     454663777777                                             GPLI0789
                          10034  *                                                                       GPLI0790
 70254   0 07523 0 77777  10035  )075           -1,,-*-1                                                 GPLI0791
 70255   0 07522 0 06733  10036                 SUBR,,-*-1                                               GPLI0792
 70256   0 07520 0 07521  10037                 -*-1,,-*-2                                               GPLI0793
 70257  -3 00001 0 15243  10038         TXL     NULLP,,1                                                 GPLI0794
 70260   0 07517 0 07335  10039                 PNAME,,-*-1                                              GPLI0795
 70261   0 00000 0 07516  10040                 -*-1               NULL                                  GPLI0796
 70262   0 00000 0 07515  10041                 -*-1                                                     GPLI0797
 70263  -056443437777     10042         OCT     456443437777                                             GPLI0798
                          10043  *                                                                       GPLI0799
 70264   0 07513 0 77777  10044  II13           -1,,-*-1                                                 GPLI0800
 70265   0 07512 0 06733  10045                 $SUBR,,-*-1                                              GPLI0801
 70266   0 07510 0 07511  10046                 -*-1,,-*-2                                               GPLI0802
 70267  -3 00001 0 14445  10047         TXL     NUMBRP,,1                                                GPLI0803
 70270   0 07507 0 07335  10048                 $PNAME,,-*-1                                             GPLI0804
 70271   0 00000 0 07506  10049                 -*-1               NUMBERP                               GPLI0805
 70272   0 07504 0 07505  10050                 -*-1,,-*-2                                               GPLI0806
 70273  -056444222551     10051         OCT     456444222551                                             GPLI0807
 70274   0 00000 0 07503  10052                 -*-1                                                     GPLI0808
 70275  -077777777777     10053         OCT     477777777777                                             GPLI0809
                          10054  *                                                                       GPLI0810
 70276   0 07501 0 77777  10055  )PJ25          -1,,-*-1                                                 GPLI0811
 70277   0 07500 0 06733  10056                 SUBR,,-*-1                                               GPLI0812
 70300   0 07476 0 07477  10057                 -*-1,,-*-2                                               GPLI0813
 70301  -3 00000 0 12071  10058         TXL     NUMOB,,0                                                 GPLI0814
 70302   0 07475 0 07335  10059                 PNAME,,-*-1                                              GPLI0815
 70303   0 00000 0 07474  10060                 -*-1               NUMOB                                 GPLI0816
 70304   0 00000 0 07473  10061                 -*-1                                                     GPLI0817
 70305  -056444462277     10062         OCT     456444462277                                             GPLI0818
                          10063  *                                                                       GPLI0819
 70306   0 07471 0 77777  10064  )079A          -1,,-*-1                                                 GPLI0820
 70307   0 07470 0 10742  10065                 APVAL1,,-*-1                                             GPLI0821
 70310   0 07466 0 07467  10066                 -*-1,,-*-2                                               GPLI0822
 70311   0 00000 0 11351  10067                 -OBLIST                                                  GPLI0823
 70312   0 07465 0 07335  10068                 PNAME,,-*-1                                              GPLI0824
 70313   0 00000 0 07464  10069                 -*-1               OBLIST                                GPLI0825
 70314   0 00000 0 07463  10070                 -*-1                                                     GPLI0826
 70315  -062243316263     10071         OCT     462243316263                                             GPLI0827
                          10072  *                                                                       GPLI0828
 70316   0 07461 0 77777  10073  )PJ28          -1,,-*-1                                                 GPLI0829
 70317   0 07460 0 07335  10074                 PNAME,,-*-1                                              GPLI0830
 70320   0 00000 0 07457  10075                 -*-1               OCTAL                                 GPLI0831
 70321   0 00000 0 07456  10076                 -*-1                                                     GPLI0832
 70322  -062363214377     10077         OCT     462363214377                                             GPLI0833
                          10078  *                                                                       GPLI0834
 70323   0 07454 0 77777  10079  II9            -1,,-*-1                                                 GPLI0835
 70324   0 07453 0 06733  10080                 $SUBR,,-*-1                                              GPLI0836
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0187


 70325   0 07451 0 07452  10081                 -*-1,,-*-2                                               GPLI0837
 70326  -3 00001 0 14533  10082         TXL     ONEP,,1                                                  GPLI0838
 70327   0 07450 0 07335  10083                 $PNAME,,-*-1                                             GPLI0839
 70330   0 00000 0 07447  10084                 -*-1               ONEP                                  GPLI0840
 70331   0 00000 0 07446  10085                 -*-1                                                     GPLI0841
 70332  -064525477777     10086         OCT     464525477777                                             GPLI0842
                          10087  *                                                                       GPLI0843
 70333   0 07444 0 77777  10088  )PJ18          -1,,-*-1                                                 GPLI0844
 70334   0 07443 0 06733  10089                 SUBR,,-*-1                                               GPLI0845
 70335   0 07441 0 07442  10090                 -*-1,,-*-2                                               GPLI0846
 70336  -3 00001 0 12333  10091         TXL     OPCHAR,,1                                                GPLI0847
 70337   0 07440 0 07335  10092                 PNAME,,-*-1                                              GPLI0848
 70340   0 00000 0 07437  10093                 -*-1               OPCHAR                                GPLI0849
 70341   0 00000 0 07436  10094                 -*-1                                                     GPLI0850
 70342  -064723302151     10095         OCT     464723302151                                             GPLI0851
                          10096  *                                                                       GPLI0852
 70343   0 07434 0 77777  10097  )079           -1,,-*-1                                                 GPLI0853
 70344   0 07433 0 10103  10098                 FSUBR,,-*-1                                              GPLI0854
 70345   0 07431 0 07432  10099                 -*-1,,-*-2                                               GPLI0855
 70346  -3 00000 0 15416  10100         TXL     $EVOR,,0                                                 GPLI0856
 70347   0 07430 0 07335  10101                 $PNAME,,-*-1                                             GPLI0857
 70350   0 00000 0 07427  10102                 -*-1               OR                                    GPLI0858
 70351   0 00000 0 07426  10103                 -*-1                                                     GPLI0859
 70352  -065177777777     10104         OCT     465177777777                                             GPLI0860
                          10105  *                                                                       GPLI0861
 70353   0 07424 0 77777  10106  )PJ24          -1,,-*-1                                                 GPLI0862
 70354   0 07423 0 06733  10107                 SUBR,,-*-1                                               GPLI0863
 70355   0 07421 0 07422  10108                 -*-1,,-*-2                                               GPLI0864
 70356  -3 00001 0 12032  10109         TXL     PACK,,1                                                  GPLI0865
 70357   0 07420 0 07335  10110                 PNAME,,-*-1                                              GPLI0866
 70360   0 00000 0 07417  10111                 -*-1               PACK                                  GPLI0867
 70361   0 00000 0 07416  10112                 -*-1                                                     GPLI0868
 70362  -072123427777     10113         OCT     472123427777                                             GPLI0869
                          10114  *                                                                       GPLI0870
 70363   0 07414 0 77777  10115  )080           -1,,-*-1                                                 GPLI0871
 70364   0 07413 0 06733  10116                 SUBR,,-*-1                                               GPLI0872
 70365   0 07411 0 07412  10117                 -*-1,,-*-2                                               GPLI0873
 70366  -3 00002 0 07562  10118         TXL     PAIR,,2                                                  GPLI0874
 70367   0 07410 0 07335  10119                 PNAME,,-*-1                                              GPLI0875
 70370   0 00000 0 07407  10120                 -*-1               PAIR                                  GPLI0876
 70371   0 00000 0 07406  10121                 -*-1                                                     GPLI0877
 70372  -072131517777     10122         OCT     472131517777                                             GPLI0878
                          10123  *                                                                       GPLI0879
 70373   0 07404 0 77777  10124  )234C          -1,,-*-1                                                 GPLI0880
 70374   0 07403 0 06733  10125                 SUBR,,-*-1                                               GPLI0881
 70375   0 07401 0 07402  10126                 -*-1,,-*-2                                               GPLI0882
 70376  -3 00000 0 01554  10127         TXL     PAUSEF,,0                                                GPLI0883
 70377   0 07400 0 07335  10128                 PNAME,,-*-1                                              GPLI0884
 70400   0 00000 0 07377  10129                 -*-1               PAUSE                                 GPLI0885
 70401   0 00000 0 07376  10130                 -*-1                                                     GPLI0886
 70402  -072164622577     10131         OCT     472164622577                                             GPLI0887
                          10132  *                                                                       GPLI0888
 70403   0 07374 0 77777  10133  )PJ9           -1,,-*-1                                                 GPLI0889
 70404   0 07373 0 07335  10134                 PNAME,,-*-1                                              GPLI0890
 70405   0 07370 0 07372  10135                 -*-1,,-*-3         PERIOD                                GPLI0891
 70406   0 00000 0 07371  10136                 -*-1                                                     GPLI0892
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0188


 70407  -072551314624     10137         OCT     472551314624                                             GPLI0893
 70410   0 07367 0 10742  10138                 APVAL1,,-*-1                                             GPLI0894
 70411   0 00000 0 07366  10139                 -*-1                                                     GPLI0895
 70412   0 00000 0 06162  10140                 H33                                                      GPLI0896
                          10141  *                                                                       GPLI0897
 70413   0 07364 0 77777  10142  )234B          -1,,-*-1                                                 GPLI0898
 70414   0 07363 0 06733  10143                 SUBR,,-*-1                                               GPLI0899
 70415   0 07361 0 07362  10144                 -*-1,,-*-2                                               GPLI0900
 70416  -3 00000 0 01371  10145         TXL     PSHLDB,,0                                                GPLI0901
 70417   0 07360 0 07335  10146                 PNAME,,-*-1                                              GPLI0902
 70420   0 00000 0 07357  10147                 -*-1               PLB                                   GPLI0903
 70421   0 00000 0 07356  10148                 -*-1                                                     GPLI0904
 70422  -074322777777     10149         OCT     474322777777                                             GPLI0905
                          10150  *                                                                       GPLI0906
 70423   0 07354 0 77777  10151  )081           -1,,-*-1                                                 GPLI0907
 70424   0 07353 0 10103  10152                 $FSUBR,,-*-1                                             GPLI0908
 70425   0 07351 0 07352  10153                 -*-1,,-*-2                                               GPLI0909
 70426  -3 00002 0 14126  10154         TXL     ADDP,,2                                                  GPLI0910
 70427   0 07350 0 07335  10155                 $PNAME,,-*-1                                             GPLI0911
 70430   0 00000 0 07347  10156                 -*-1               PLUS                                  GPLI0912
 70431   0 00000 0 07346  10157                 -*-1                                                     GPLI0913
 70432  -074364627777     10158         OCT     474364627777                                             GPLI0914
                          10159  *                                                                       GPLI0915
 70433   0 07344 0 77777  10160  )PJ11          -1,,-*-1                                                 GPLI0916
 70434   0 07343 0 07335  10161                 PNAME,,-*-1                                              GPLI0917
 70435   0 07340 0 07342  10162                 -*-1,,-*-3         PLUSS                                 GPLI0918
 70436   0 00000 0 07341  10163                 -*-1                                                     GPLI0919
 70437  -074364626277     10164         OCT     474364626277                                             GPLI0920
 70440   0 07337 0 10742  10165                 APVAL1,,-*-1                                             GPLI0921
 70441   0 00000 0 07336  10166                 -*-1                                                     GPLI0922
 70442   0 00000 0 06147  10167                 H20                                                      GPLI0923
                          10168  *                                                                       GPLI0924
 70443   0 07334 0 77777  10169  )083           -1,,-*-1                                                 GPLI0925
 70444   0 07333 0 07335  10170                 PNAME,,-*-1                                              GPLI0926
 70445   0 00000 0 07332  10171                 -*-1               PNAME                                 GPLI0927
 70446   0 00000 0 07331  10172                 -*-1                                                     GPLI0928
 70447  -074521442577     10173         OCT     474521442577                                             GPLI0929
                          10174  *                                                                       GPLI0930
 70450   0 07327 0 77777  10175  )PJ33          -1,,-*-1                                                 GPLI0931
 70451   0 07326 0 06733  10176                 SUBR,,-*-1                                               GPLI0932
 70452   0 07324 0 07325  10177                 -*-1,,-*-2                                               GPLI0933
 70453  -3 00001 0 04703  10178         TXL     $PRIN1,,1                                                GPLI0934
 70454   0 07323 0 07335  10179                 PNAME,,-*-1                                              GPLI0935
 70455   0 00000 0 07322  10180                 -*-1               PRIN1                                 GPLI0936
 70456   0 00000 0 07321  10181                 -*-1                                                     GPLI0937
 70457  -075131450177     10182         OCT     475131450177                                             GPLI0938
                          10183  *                                                                       GPLI0939
 70460   0 07317 0 77777  10184  )087           -1,,-*-1                                                 GPLI0940
 70461   0 07316 0 06733  10185                 SUBR,,-*-1                                               GPLI0941
 70462   0 07314 0 07315  10186                 -*-1,,-*-2                                               GPLI0942
 70463  -3 00001 0 04604  10187         TXL     PRINT,,1                                                 GPLI0943
 70464   0 07313 0 07335  10188                 PNAME,,-*-1                                              GPLI0944
 70465   0 00000 0 07312  10189                 -*-1               PRINT                                 GPLI0945
 70466   0 00000 0 07311  10190                 -*-1                                                     GPLI0946
 70467  -075131456377     10191         OCT     475131456377                                             GPLI0947
                          10192  *                                                                       GPLI0948
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0189


 70470   0 07307 0 77777  10193  )PJ39          -1,,-*-1                                                 GPLI0949
 70471   0 07306 0 06733  10194                 SUBR,,-*-1                                               GPLI0950
 70472   0 07304 0 07305  10195                 -*-1,,-*-2                                               GPLI0951
 70473  -3 00001 0 05110  10196         TXL     $PRIN2,,1                                                GPLI0952
 70474   0 07303 0 07335  10197                 PNAME,,-*-1                                              GPLI0953
 70475   0 00000 0 07302  10198                 -*-1               PRINT2                                GPLI0954
 70476   0 00000 0 07301  10199                 -*-1                                                     GPLI0955
 70477  -075131456302     10200         OCT     475131456302                                             GPLI0956
                          10201  *                                                                       GPLI0957
 70500   0 07277 0 77777  10202  )089           -1,,-*-1                                                 GPLI0958
 70501   0 07276 0 10103  10203                 FSUBR,,-*-1                                              GPLI0959
 70502   0 07274 0 07275  10204                 -*-1,,-*-2                                               GPLI0960
 70503  -3 00000 0 16130  10205         TXL     INTER,,0                                                 GPLI0961
 70504   0 07273 0 07335  10206                 PNAME,,-*-1                                              GPLI0962
 70505   0 00000 0 07272  10207                 -*-1               PROG                                  GPLI0963
 70506   0 00000 0 07271  10208                 -*-1                                                     GPLI0964
 70507  -075146277777     10209         OCT     475146277777                                             GPLI0965
                          10210  *                                                                       GPLI0966
 70510   0 07267 0 77777  10211  IJ05           -1,,-*-1                                                 GPLI0967
 70511   0 07266 0 06733  10212                 $SUBR,,-*-1                                              GPLI0968
 70512   0 07264 0 07265  10213                 -*-1,,-*-2                                               GPLI0969
 70513  -3 00001 0 05325  10214         TXL     $PUNCH,,1                                                GPLI0970
 70514   0 07263 0 07335  10215                 $PNAME,,-*-1                                             GPLI0971
 70515   0 00000 0 07262  10216                 -*-1               PUNCH                                 GPLI0972
 70516   0 00000 0 07261  10217                 -*-1                                                     GPLI0973
 70517  -076445233077     10218         OCT     476445233077                                             GPLI0974
                          10219  *                                                                       GPLI0975
 70520   0 07257 0 77777  10220  )090           -1,,-*-1                                                 GPLI0976
 70521   0 07256 0 06733  10221                 SUBR,,-*-1                                               GPLI0977
 70522   0 07254 0 07255  10222                 -*-1,,-*-2                                               GPLI0978
 70523  -3 00003 0 10011  10223         TXL     APROP,,3                                                 GPLI0979
 70524   0 07253 0 07335  10224                 PNAME,,-*-1                                              GPLI0980
 70525   0 00000 0 07252  10225                 -*-1               PROP                                  GPLI0981
 70526   0 00000 0 07251  10226                 -*-1                                                     GPLI0982
 70527  -075146477777     10227         OCT     475146477777                                             GPLI0983
                          10228  *                                                                       GPLI0984
 70530   0 07247 0 77777  10229  )094           -1,,-*-1                                                 GPLI0985
 70531   0 07246 0 10103  10230                 FSUBR,,-*-1                                              GPLI0986
 70532   0 07244 0 07245  10231                 -*-1,,-*-2                                               GPLI0987
 70533  -3 00000 0 15212  10232         TXL     CARP,,0                                                  GPLI0988
 70534   0 07243 0 07335  10233                 PNAME,,-*-1                                              GPLI0989
 70535   0 00000 0 07242  10234                 -*-1               QUOTE                                 GPLI0990
 70536   0 00000 0 07241  10235                 -*-1                                                     GPLI0991
 70537  -106446632577     10236         OCT     506446632577                                             GPLI0992
                          10237  *                                                                       GPLI0993
 70540   0 07237 0 77777  10238  IJ03           -1,,-*-1                                                 GPLI0994
 70541   0 07236 0 06733  10239                 $SUBR,,-*-1                                              GPLI0995
 70542   0 07234 0 07235  10240                 -*-1,,-*-2                                               GPLI0996
 70543  -3 00002 0 13427  10241         TXL     QUOTEN,,2                                                GPLI0997
 70544   0 07233 0 07335  10242                 $PNAME,,-*-1                                             GPLI0998
 70545   0 00000 0 07232  10243                 -*-1               QUOTIENT                              GPLI0999
 70546   0 07230 0 07231  10244                 -*-1,,-*-2                                               GPLI1000
 70547  -106446633125     10245         OCT     506446633125                                             GPLI1001
 70550   0 00000 0 07227  10246                 -*-1                                                     GPLI1002
 70551  -056377777777     10247         OCT     456377777777                                             GPLI1003
                          10248  *                                                                       GPLI1004
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0190


 70552   0 07225 0 77777  10249  )096           -1,,-*-1                                                 GPLI1005
 70553   0 07224 0 06733  10250                 SUBR,,-*-1                                               GPLI1006
 70554   0 07222 0 07223  10251                 -*-1,,-*-2                                               GPLI1007
 70555  -3 00000 0 05732  10252         TXL     READ,,0                                                  GPLI1008
 70556   0 07221 0 07335  10253                 PNAME,,-*-1                                              GPLI1009
 70557   0 00000 0 07220  10254                 -*-1               READ                                  GPLI1010
 70560   0 00000 0 07217  10255                 -*-1                                                     GPLI1011
 70561  -112521247777     10256         OCT     512521247777                                             GPLI1012
                          10257  *                                                                       GPLI1013
 70562   0 07215 0 77777  10258  II18           -1,,-*-1                                                 GPLI1014
 70563   0 07214 0 06733  10259                 $SUBR,,-*-1                                              GPLI1015
 70564   0 07212 0 07213  10260                 -*-1,,-*-2                                               GPLI1016
 70565  -3 00001 0 14633  10261         TXL     RCPPRG,,1                                                GPLI1017
 70566   0 07211 0 07335  10262                 $PNAME,,-*-1                                             GPLI1018
 70567   0 00000 0 07210  10263                 -*-1               RECIP                                 GPLI1019
 70570   0 00000 0 07207  10264                 -*-1                                                     GPLI1020
 70571  -112523314777     10265         OCT     512523314777                                             GPLI1021
                          10266  *                                                                       GPLI1022
 70572   0 07205 0 77777  10267  )234D          -1,,-*-1                                                 GPLI1023
 70573   0 07204 0 06733  10268                 SUBR,,-*-1                                               GPLI1024
 70574   0 07202 0 07203  10269                 -*-1,,-*-2                                               GPLI1025
 70575  -3 00000 0 02522  10270         TXL     RECLAM,,0                                                GPLI1026
 70576   0 07201 0 07335  10271                 PNAME,,-*-1                                              GPLI1027
 70577   0 00000 0 07200  10272                 -*-1               RECLAIM                               GPLI1028
 70600   0 07176 0 07177  10273                 -*-1,,-*-2                                               GPLI1029
 70601  -112523432131     10274         OCT     512523432131                                             GPLI1030
 70602   0 00000 0 07175  10275                 -*-1                                                     GPLI1031
 70603  -047777777777     10276         OCT     447777777777                                             GPLI1032
                          10277  *                                                                       GPLI1033
 70604   0 07173 0 77777  10278  IJ04           -1,,-*-1                                                 GPLI1034
 70605   0 07172 0 06733  10279                 $SUBR,,-*-1                                              GPLI1035
 70606   0 07170 0 07171  10280                 -*-1,,-*-2                                               GPLI1036
 70607  -3 00002 0 13423  10281         TXL     REMAIN,,2                                                GPLI1037
 70610   0 07167 0 07335  10282                 $PNAME,,-*-1                                             GPLI1038
 70611   0 00000 0 07166  10283                 -*-1               REMAINDER                             GPLI1039
 70612   0 07164 0 07165  10284                 -*-1,,-*-2                                               GPLI1040
 70613  -112544213145     10285         OCT     512544213145                                             GPLI1041
 70614   0 00000 0 07163  10286                 -*-1                                                     GPLI1042
 70615  +242551777777     10287         OCT     242551777777                                             GPLI1043
                          10288  *                                                                       GPLI1044
 70616   0 07161 0 77777  10289  )250           -1,,-*-1                                                 GPLI1045
 70617   0 07160 0 06733  10290                 SUBR,,-*-1                                               GPLI1046
 70620   0 07156 0 07157  10291                 -*-1,,-*-2                                               GPLI1047
 70621  -3 00002 0 07714  10292         TXL     REMPRP,,2                                                GPLI1048
 70622   0 07155 0 07335  10293                 PNAME,,-*-1                                              GPLI1049
 70623   0 00000 0 07154  10294                 -*-1               REMPROP                               GPLI1050
 70624   0 07152 0 07153  10295                 -*-1,,-*-2                                               GPLI1051
 70625  -112544475146     10296         OCT     512544475146                                             GPLI1052
 70626   0 00000 0 07151  10297                 -*-1                                                     GPLI1053
 70627  -077777777777     10298         OCT     477777777777                                             GPLI1054
                          10299  *                                                                       GPLI1055
 70630   0 07147 0 77777  10300  )I02           -1,,-*-1                                                 GPLI1056
 70631   0 07146 0 06733  10301                 $SUBR,,-*-1                                              GPLI1057
 70632   0 07144 0 07145  10302                 -*-1,,-*-2                                               GPLI1058
 70633  -3 00001 0 16272  10303         TXL     RETURN,,1                                                GPLI1059
 70634   0 07143 0 07335  10304                 $PNAME,,-*-1                                             GPLI1060
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0191


 70635   0 00000 0 07142  10305                 -*-1               RETURN                                GPLI1061
 70636   0 00000 0 07141  10306                 -*-1                                                     GPLI1062
 70637  -112563645145     10307         OCT     512563645145                                             GPLI1063
                          10308  *                                                                       GPLI1064
 70640   0 07137 0 77777  10309  )100           -1,,-*-1                                                 GPLI1065
 70641   0 07136 0 06733  10310                 SUBR,,-*-1                                               GPLI1066
 70642   0 07134 0 07135  10311                 -*-1,,-*-2                                               GPLI1067
 70643  -3 00000 0 10155  10312         TXL     RPLACA,,0                                                GPLI1068
 70644   0 07133 0 07335  10313                 PNAME,,-*-1                                              GPLI1069
 70645   0 00000 0 07132  10314                 -*-1               RPLACA                                GPLI1070
 70646   0 00000 0 07131  10315                 -*-1                                                     GPLI1071
 70647  -114743212321     10316         OCT     514743212321                                             GPLI1072
                          10317  *                                                                       GPLI1073
 70650   0 07127 0 77777  10318  )101           -1,,-*-1                                                 GPLI1074
 70651   0 07126 0 06733  10319                 SUBR,,-*-1                                               GPLI1075
 70652   0 07124 0 07125  10320                 -*-1,,-*-2                                               GPLI1076
 70653  -3 00000 0 10164  10321         TXL     RPLACD,,0                                                GPLI1077
 70654   0 07123 0 07335  10322                 PNAME,,-*-1                                              GPLI1078
 70655   0 00000 0 07122  10323                 -*-1               RPLACD                                GPLI1079
 70656   0 00000 0 07121  10324                 -*-1                                                     GPLI1080
 70657  -114743212324     10325         OCT     514743212324                                             GPLI1081
                          10326  *                                                                       GPLI1082
 70660   0 07117 0 77777  10327  )PJ8           -1,,-*-1                                                 GPLI1083
 70661   0 07116 0 07335  10328                 PNAME,,-*-1                                              GPLI1084
 70662   0 07113 0 07115  10329                 -*-1,,-*-3         RPAR                                  GPLI1085
 70663   0 00000 0 07114  10330                 -*-1                                                     GPLI1086
 70664  -114721517777     10331         OCT     514721517777                                             GPLI1087
 70665   0 07112 0 10742  10332                 APVAL1,,-*-1                                             GPLI1088
 70666   0 00000 0 07111  10333                 -*-1                                                     GPLI1089
 70667   0 00000 0 06163  10334                 H34                                                      GPLI1090
                          10335  *                                                                       GPLI1091
 70670   0 07107 0 77777  10336  )SPCL          -1,,-*-1                                                 GPLI1092
 70671   0 07106 0 07335  10337                 PNAME,,-*-1                                              GPLI1093
 70672   0 00000 0 07105  10338                 -*-1               SPECIAL                               GPLI1094
 70673   0 07103 0 07104  10339                 -*-1,,-*-2                                               GPLI1095
 70674  -224725233121     10340         OCT     624725233121                                             GPLI1096
 70675   0 00000 0 07102  10341                 -*-1                                                     GPLI1097
 70676  -037777777777     10342         OCT     437777777777                                             GPLI1098
                          10343  *                                                                       GPLI1099
 70677   0 07100 0 77777  10344  )MOV           -1,,-*-1                                                 GPLI1100
 70700   0 07077 0 07335  10345                 PNAME,,-*-1                                              GPLI1101
 70701   0 07074 0 07076  10346                 -*-1,,-*-3         *MOVE                                 GPLI1102
 70702   0 00000 0 07075  10347                 -*-1                                                     GPLI1103
 70703  -144446652577     10348         OCT     544446652577                                             GPLI1104
 70704   0 07073 0 06706  10349                 SYM,,-*-1                                                GPLI1105
 70705  -0 00000 0 61255  10350         MZE     -C$MOV                                                   GPLI1106
                          10351  *                                                                       GPLI1107
 70706   0 07071 0 77777  10352  )RTRN          -1,,-*-1                                                 GPLI1108
 70707   0 07070 0 07335  10353                 PNAME,,-*-1                                              GPLI1109
 70710   0 07063 0 07067  10354                 -*-1,,-*-5         *RETURN                               GPLI1110
 70711   0 07065 0 07066  10355                 -*-1,,-*-2                                               GPLI1111
 70712  -145125636451     10356         OCT     545125636451                                             GPLI1112
 70713   0 00000 0 07064  10357                 -*-1                                                     GPLI1113
 70714  -057777777777     10358         OCT     457777777777                                             GPLI1114
 70715   0 07062 0 06706  10359                 SYM,,-*-1                                                GPLI1115
 70716  -0 00000 0 61253  10360         MZE     -C$RTRN                                                  GPLI1116
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0192


                          10361  *                                                                       GPLI1117
 70717   0 07060 0 77777  10362  )LST           -1,,-*-1                                                 GPLI1118
 70720   0 07057 0 07335  10363                 PNAME,,-*-1                                              GPLI1119
 70721   0 07054 0 07056  10364                 -*-1,,-*-3         *LIST                                 GPLI1120
 70722   0 00000 0 07055  10365                 -*-1                                                     GPLI1121
 70723  -144331626377     10366         OCT     544331626377                                             GPLI1122
 70724   0 07053 0 06706  10367                 SYM,,-*-1                                                GPLI1123
 70725  -0 00000 0 61254  10368         MZE     -C$LSTR                                                  GPLI1124
                          10369  *                                                                       GPLI1125
 70726   0 07051 0 77777  10370  )I06           -1,,-*-1                                                 GPLI1126
 70727   0 07050 0 06733  10371                 SUBR,,-*-1                                               GPLI1127
 70730   0 07046 0 07047  10372                 -*-1,,-*-2                                               GPLI1128
 70731  -3 00003 0 10042  10373         TXL     APSSOC,,3                                                GPLI1129
 70732   0 07045 0 07335  10374                 PNAME,,-*-1                                              GPLI1130
 70733   0 00000 0 07044  10375                 -*-1               SASSOC                                GPLI1131
 70734   0 00000 0 07043  10376                 -*-1                                                     GPLI1132
 70735  -222162624623     10377         OCT     622162624623                                             GPLI1133
                          10378  *                                                                       GPLI1134
 70736   0 07041 0 77777  10379  )236           -1,,-*-1                                                 GPLI1135
 70737   0 07040 0 06733  10380                 SUBR,,-*-1                                               GPLI1136
 70740   0 07036 0 07037  10381                 -*-1,,-*-2                                               GPLI1137
 70741  -3 00004 0 04400  10382         TXL     SEARCH,,4                                                GPLI1138
 70742   0 07035 0 07335  10383                 PNAME,,-*-1                                              GPLI1139
 70743   0 00000 0 07034  10384                 -*-1               SEARCH                                GPLI1140
 70744   0 00000 0 07033  10385                 -*-1                                                     GPLI1141
 70745  -222521512330     10386         OCT     622521512330                                             GPLI1142
                          10387  *                                                                       GPLI1143
 70746   0 07031 0 77777  10388  )107           -1,,-*-1                                                 GPLI1144
 70747   0 07030 0 06733  10389                 $SUBR,,-*-1                                              GPLI1145
 70750   0 07026 0 07027  10390                 -*-1,,-*-2                                               GPLI1146
 70751  -3 00002 0 15346  10391         TXL     SETP,,2                                                  GPLI1147
 70752   0 07025 0 07335  10392                 $PNAME,,-*-1                                             GPLI1148
 70753   0 00000 0 07024  10393                 -*-1               SET                                   GPLI1149
 70754   0 00000 0 07023  10394                 -*-1                                                     GPLI1150
 70755  -222563777777     10395         OCT     622563777777                                             GPLI1151
                          10396  *                                                                       GPLI1152
 70756   0 07021 0 77777  10397  )108           -1,,-*-1                                                 GPLI1153
 70757   0 07020 0 10103  10398                 $FSUBR,,-*-1                                             GPLI1154
 70760   0 07016 0 07017  10399                 -*-1,,-*-2                                               GPLI1155
 70761  -3 00000 0 15311  10400         TXL     SETQP,,0                                                 GPLI1156
 70762   0 07015 0 07335  10401                 PNAME,,-*-1                                              GPLI1157
 70763   0 00000 0 07014  10402                 -*-1               SETQ                                  GPLI1158
 70764   0 00000 0 07013  10403                 -*-1                                                     GPLI1159
 70765  -222563507777     10404         OCT     622563507777                                             GPLI1160
                          10405  *                                                                       GPLI1161
 70766   0 07011 0 77777  10406  )PJ14          -1,,-*-1                                                 GPLI1162
 70767   0 07010 0 07335  10407                 PNAME,,-*-1                                              GPLI1163
 70770   0 07005 0 07007  10408                 -*-1,,-*-3         SLASH                                 GPLI1164
 70771   0 00000 0 07006  10409                 -*-1                                                     GPLI1165
 70772  -224321623077     10410         OCT     624321623077                                             GPLI1166
 70773   0 07004 0 10742  10411                 APVAL1,,-*-1                                             GPLI1167
 70774   0 00000 0 07003  10412                 -*-1                                                     GPLI1168
 70775   0 00000 0 06210  10413                 H61                                                      GPLI1169
                          10414  *                                                                       GPLI1170
 70776   0 07001 0 77777  10415  )109           -1,,-*-1                                                 GPLI1171
 70777   0 07000 0 06733  10416                 SUBR,,-*-1                                               GPLI1172
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0193


 71000   0 06776 0 06777  10417                 -*-1,,-*-2                                               GPLI1173
 71001  -3 00004 0 03774  10418         TXL     SPEAK,,4                                                 GPLI1174
 71002   0 06775 0 07335  10419                 PNAME,,-*-1                                              GPLI1175
 71003   0 00000 0 06774  10420                 -*-1               SPEAK                                 GPLI1176
 71004   0 00000 0 06773  10421                 -*-1                                                     GPLI1177
 71005  -224725214277     10422         OCT     624725214277                                             GPLI1178
                          10423  *                                                                       GPLI1179
 71006   0 06771 0 77777  10424  )111           -1,,-*-1                                                 GPLI1180
 71007   0 06770 0 07335  10425                 PNAME,,-*-1                                              GPLI1181
 71010   0 00000 0 06767  10426                 -*-1               STOP                                  GPLI1182
 71011   0 00000 0 06766  10427                 -*-1                                                     GPLI1183
 71012  -226346477777     10428         OCT     626346477777                                             GPLI1184
                          10429  *                                                                       GPLI1185
 71013   0 06764 0 77777  10430  )PJ15          -1,,-*-1                                                 GPLI1186
 71014   0 06763 0 07335  10431                 PNAME,,-*-1                                              GPLI1187
 71015   0 06760 0 06762  10432                 -*-1,,-*-3         STAR                                  GPLI1188
 71016   0 00000 0 06761  10433                 -*-1                                                     GPLI1189
 71017  -226321517777     10434         OCT     626321517777                                             GPLI1190
 71020   0 06757 0 10742  10435                 APVAL1,,-*-1                                             GPLI1191
 71021   0 00000 0 06756  10436                 -*-1                                                     GPLI1192
 71022   0 00000 0 06203  10437                 H54                                                      GPLI1193
                          10438  *                                                                       GPLI1194
 71023   0 06754 0 77777  10439  )PJ21          -1,,-*-1                                                 GPLI1195
 71024   0 06753 0 06733  10440                 SUBR,,-*-1                                               GPLI1196
 71025   0 06751 0 06752  10441                 -*-1,,-*-2                                               GPLI1197
 71026  -3 00000 0 12221  10442         TXL     STREAD,,0                                                GPLI1198
 71027   0 06750 0 07335  10443                 PNAME,,-*-1                                              GPLI1199
 71030   0 00000 0 06747  10444                 -*-1               STARTREAD                             GPLI1200
 71031   0 06745 0 06746  10445                 -*-1,,-*-2                                               GPLI1201
 71032  -226321516351     10446         OCT     626321516351                                             GPLI1202
 71033   0 00000 0 06744  10447                 -*-1                                                     GPLI1203
 71034  +252124777777     10448         OCT     252124777777                                             GPLI1204
                          10449  *                                                                       GPLI1205
 71035   0 06742 0 77777  10450  II15           -1,,-*-1                                                 GPLI1206
 71036   0 06741 0 06733  10451                 $SUBR,,-*-1                                              GPLI1207
 71037   0 06737 0 06740  10452                 -*-1,,-*-2                                               GPLI1208
 71040  -3 00002 0 14430  10453         TXL     SUB1,,2                                                  GPLI1209
 71041   0 06736 0 07335  10454                 $PNAME,,-*-1                                             GPLI1210
 71042   0 00000 0 06735  10455                 -*-1               SUB1                                  GPLI1211
 71043   0 00000 0 06734  10456                 -*-1                                                     GPLI1212
 71044  -226422017777     10457         OCT     626422017777                                             GPLI1213
                          10458  *                                                                       GPLI1214
 71045   0 06732 0 77777  10459  )113           -1,,-*-1                                                 GPLI1215
 71046   0 06731 0 07335  10460                 PNAME,,-*-1                                              GPLI1216
 71047   0 00000 0 06730  10461                 -*-1               SUBR                                  GPLI1217
 71050   0 00000 0 06727  10462                 -*-1                                                     GPLI1218
 71051  -226422517777     10463         OCT     626422517777                                             GPLI1219
                          10464  *                                                                       GPLI1220
 71052   0 06725 0 77777  10465  )114           -1,,-*-1                                                 GPLI1221
 71053   0 06724 0 06733  10466                 SUBR,,-*-1                                               GPLI1222
 71054   0 06722 0 06723  10467                 -*-1,,-*-2                                               GPLI1223
 71055  -3 00002 0 07445  10468         TXL     SUBLIS,,2                                                GPLI1224
 71056   0 06721 0 07335  10469                 PNAME,,-*-1                                              GPLI1225
 71057   0 00000 0 06720  10470                 -*-1               SUBLIS                                GPLI1226
 71060   0 00000 0 06717  10471                 -*-1                                                     GPLI1227
 71061  -226422433162     10472         OCT     626422433162                                             GPLI1228
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0194


                          10473  *                                                                       GPLI1229
 71062   0 06715 0 77777  10474  )115           -1,,-*-1                                                 GPLI1230
 71063   0 06714 0 06733  10475                 SUBR,,-*-1                                               GPLI1231
 71064   0 06712 0 06713  10476                 -*-1,,-*-2                                               GPLI1232
 71065  -3 00003 0 07367  10477         TXL     SUBST,,3                                                 GPLI1233
 71066   0 06711 0 07335  10478                 PNAME,,-*-1                                              GPLI1234
 71067   0 00000 0 06710  10479                 -*-1               SUBST                                 GPLI1235
 71070   0 00000 0 06707  10480                 -*-1                                                     GPLI1236
 71071  -226422626377     10481         OCT     626422626377                                             GPLI1237
                          10482  *                                                                       GPLI1238
 71072   0 06705 0 77777  10483  )SYM           -1,,-*-1                                                 GPLI1239
 71073   0 06704 0 07335  10484                 PNAME,,-*-1                                              GPLI1240
 71074   0 00000 0 06703  10485                 -*-1               SYM                                   GPLI1241
 71075   0 00000 0 06702  10486                 -*-1                                                     GPLI1242
 71076  -227044777777     10487         OCT     627044777777                                             GPLI1243
                          10488  *                                                                       GPLI1244
 71077   0 06700 0 77777  10489  )PJ23          -1,,-*-1                                                 GPLI1245
 71100   0 06677 0 06733  10490                 SUBR,,-*-1                                               GPLI1246
 71101   0 06675 0 06676  10491                 -*-1,,-*-2                                               GPLI1247
 71102  -3 00000 0 05214  10492         TXL     TERPRI,,0                                                GPLI1248
 71103   0 06674 0 07335  10493                 PNAME,,-*-1                                              GPLI1249
 71104   0 00000 0 06673  10494                 -*-1               TERPRI                                GPLI1250
 71105   0 00000 0 06672  10495                 -*-1                                                     GPLI1251
 71106  -232551475131     10496         OCT     632551475131                                             GPLI1252
                          10497  *                                                                       GPLI1253
 71107   0 06670 0 77777  10498  )122           -1,,-*-1                                                 GPLI1254
 71110   0 06667 0 06733  10499                 SUBR,,-*-1                                               GPLI1255
 71111   0 06665 0 06666  10500                 -*-1,,-*-2                                               GPLI1256
 71112  -3 00000 0 00000  10501         TXL     $TIME,,0                                                 GPLI1257
 71113   0 06664 0 07335  10502                 PNAME,,-*-1                                              GPLI1258
 71114   0 00000 0 06663  10503                 -*-1               TEMPUS-FUGIT                          GPLI1259
 71115   0 06661 0 06662  10504                 -*-1,,-*-2                                               GPLI1260
 71116  -232544476462     10505         OCT     632544476462                                             GPLI1261
 71117   0 00000 0 06660  10506                 -*-1                                                     GPLI1262
 71120  -002664273163     10507         OCT     402664273163                                             GPLI1263
                          10508  *                                                                       GPLI1264
 71121   0 06656 0 77777  10509  )124           -1,,-*-1                                                 GPLI1265
 71122   0 06655 0 10103  10510                 $FSUBR,,-*-1                                             GPLI1266
 71123   0 06653 0 06654  10511                 -*-1,,-*-2                                               GPLI1267
 71124  -3 00002 0 14142  10512         TXL     MULT,,2                                                  GPLI1268
 71125   0 06652 0 07335  10513                 $PNAME,,-*-1                                             GPLI1269
 71126   0 00000 0 06651  10514                 -*-1               TIMES                                 GPLI1270
 71127   0 00000 0 06650  10515                 -*-1                                                     GPLI1271
 71130  -233144256277     10516         OCT     633144256277                                             GPLI1272
                          10517  *                                                                       GPLI1273
 71131   0 06646 0 77777  10518  )213           -1,,-*-1                                                 GPLI1274
 71132   0 06645 0 07335  10519                 $PNAME,,-*-1                                             GPLI1275
 71133   0 00000 0 06644  10520                 -*-1               TRACE                                 GPLI1276
 71134   0 00000 0 06643  10521                 -*-1                                                     GPLI1277
 71135  -235121232577     10522         OCT     635121232577                                             GPLI1278
                          10523  *                                                                       GPLI1279
 71136   0 06641 0 77777  10524  )127           -1,,-*-1                                                 GPLI1280
 71137   0 06640 0 06733  10525                 SUBR,,-*-1                                               GPLI1281
 71140   0 06636 0 06637  10526                 -*-1,,-*-2                                               GPLI1282
 71141  -3 00000 0 04101  10527         TXL     UNCONT,,0                                                GPLI1283
 71142   0 06635 0 07335  10528                 PNAME,,-*-1                                              GPLI1284
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0195


 71143   0 00000 0 06634  10529                 -*-1               UNCOUNT                               GPLI1285
 71144   0 06632 0 06633  10530                 -*-1,,-*-2                                               GPLI1286
 71145  -244523466445     10531         OCT     644523466445                                             GPLI1287
 71146   0 00000 0 06631  10532                 -*-1                                                     GPLI1288
 71147  -237777777777     10533         OCT     637777777777                                             GPLI1289
                          10534  *                                                                       GPLI1290
 71150   0 06627 0 77777  10535  )PJ31          -1,,-*-1                                                 GPLI1291
 71151   0 06626 0 06733  10536                 SUBR,,-*-1                                               GPLI1292
 71152   0 06624 0 06625  10537                 -*-1,,-*-2                                               GPLI1293
 71153  -3 00001 0 12365  10538         TXL     UNPACK,,1                                                GPLI1294
 71154   0 06623 0 07335  10539                 PNAME,,-*-1                                              GPLI1295
 71155   0 00000 0 06622  10540                 -*-1               UNPACK                                GPLI1296
 71156   0 00000 0 06621  10541                 -*-1                                                     GPLI1297
 71157  -244547212342     10542         OCT     644547212342                                             GPLI1298
                          10543  *                                                                       GPLI1299
 71160   0 06617 0 77777  10544  II10           -1,,-*-1                                                 GPLI1300
 71161   0 06616 0 06733  10545                 $SUBR,,-*-1                                              GPLI1301
 71162   0 06614 0 06615  10546                 -*-1,,-*-2                                               GPLI1302
 71163  -3 00001 0 14507  10547         TXL     ZEROP,,1                                                 GPLI1303
 71164   0 06613 0 07335  10548                 $PNAME,,-*-1                                             GPLI1304
 71165   0 00000 0 06612  10549                 -*-1               ZEROP                                 GPLI1305
 71166   0 00000 0 06611  10550                 -*-1                                                     GPLI1306
 71167  -312551464777     10551         OCT     712551464777                                             GPLI1307
                          10552  *                                                                       GPLI1308
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0196


                          10553         EJECT                                                            PAGE 209
                          10554  *
                          10555  *
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0197


                          10556         EJECT                                                            PAGE 210
                          10557  *      PROPERTY LISTS FOR ALPHABETIC OBJECTS
                          10558  *
 71170   0 00000 0 00000  10559  HH00           0                                                        GPLA0000
                          10560             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0001
 71171   0 00000 0 00001  10561  HH01           1                                                        GPLA0002
                          10562             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0003
 71172   0 00000 0 00002  10563  HH02           2                                                        GPLA0004
                          10564             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0005
 71173   0 00000 0 00003  10565  HH03           3                                                        GPLA0006
                          10566             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0007
 71174   0 00000 0 00004  10567  HH04           4                                                        GPLA0008
                          10568             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0009
 71175   0 00000 0 00005  10569  HH05           5                                                        GPLA0010
                          10570             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0011
 71176   0 00000 0 00006  10571  HH06           6                                                        GPLA0012
                          10572             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0013
 71177   0 00000 0 00007  10573  HH07           7                                                        GPLA0014
                          10574             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0015
 71200  +000000000010     10575  HH10   OCT     10                                                       GPLA0016
                          10576             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0017
 71201  +000000000011     10577  HH11   OCT     11                                                       GPLA0018
                          10578             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0019
                          10579             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0020
 71202   0 06575 0 07335  10580  HH12           PNAME,,-*-1        END OF FILE                           GPLA0021
 71203   0 06572 0 06574  10581                 -*-1,,-*-3         $EOF$                                 GPLA0022
 71204   0 00000 0 06573  10582                 -*-1                                                     GPLA0023
 71205  -132546265377     10583         OCT     532546265377                                             GPLA0024
 71206   0 06571 0 10742  10584                 APVAL1,,-*-1                                             GPLA0025
 71207   0 00000 0 06570  10585                 -*-1                                                     GPLA0026
 71210   0 00000 0 06141  10586                 H12                                                      GPLA0027
                          10587             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0028
 71211   0 06566 0 07335  10588  HH13           PNAME,,-*-1        =                                     GPLA0029
 71212   0 00000 0 06565  10589                 -*-1               =                                     GPLA0030
 71213   0 00000 0 06564  10590                 -*-1                                                     GPLA0031
 71214  +137777777777     10591         OCT     137777777777                                             GPLA0032
                          10592             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0033
 71215   0 06562 0 07335  10593  HH14           PNAME,,-*-1        8-4 MINUS                             GPLA0034
 71216   0 00000 0 06561  10594                 -*-1                                                     GPLA0035
 71217   0 00000 0 06560  10595                 -*-1                                                     GPLA0036
 71220  +147777777777     10596         OCT     147777777777                                             GPLA0037
                          10597             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0038
 71221   0 06556 0 07335  10598  HH15           PNAME,,-*-1        ILLEGAL                               GPLA0039
 71222   0 00000 0 06555  10599                 -*-1               $IL15$                                GPLA0040
 71223   0 00000 0 06554  10600                 -*-1                                                     GPLA0041
 71224  -133143010553     10601         OCT     533143010553                                             GPLA0042
                          10602             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0043
 71225   0 06552 0 07335  10603  HH16           PNAME,,-*-1        ILLEGAL                               GPLA0044
 71226   0 00000 0 06551  10604                 -*-1               $IL16$                                GPLA0045
 71227   0 00000 0 06550  10605                 -*-1                                                     GPLA0046
 71230  -133143010653     10606         OCT     533143010653                                             GPLA0047
                          10607             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0048
 71231   0 06546 0 07335  10608  HH17           PNAME,,-*-1        ILLEGAL                               GPLA0049
 71232   0 00000 0 06545  10609                 -*-1               $IL17$                                GPLA0050
 71233   0 00000 0 06544  10610                 -*-1                                                     GPLA0051
 71234  -133143010753     10611         OCT     533143010753                                             GPLA0052
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0198


                          10612             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0053
 71235   0 06542 0 07335  10613  HH20           PNAME,,-*-1        +                                     GPLA0054
 71236   0 00000 0 06541  10614                 -*-1               +                                     GPLA0055
 71237   0 00000 0 06540  10615                 -*-1                                                     GPLA0056
 71240  +207777777777     10616         OCT     207777777777                                             GPLA0057
                          10617             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0058
 71241   0 06536 0 07335  10618  HH21           PNAME,,-*-1        A                                     GPLA0059
 71242   0 00000 0 06535  10619                 -*-1               A                                     GPLA0060
 71243   0 00000 0 06534  10620                 -*-1                                                     GPLA0061
 71244  +217777777777     10621         OCT     217777777777                                             GPLA0062
                          10622             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0063
 71245   0 06532 0 07335  10623  HH22           PNAME,,-*-1        B                                     GPLA0064
 71246   0 00000 0 06531  10624                 -*-1               B                                     GPLA0065
 71247   0 00000 0 06530  10625                 -*-1                                                     GPLA0066
 71250  +227777777777     10626         OCT     227777777777                                             GPLA0067
                          10627             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0068
 71251   0 06526 0 07335  10628  HH23           PNAME,,-*-1        C                                     GPLA0069
 71252   0 00000 0 06525  10629                 -*-1               C                                     GPLA0070
 71253   0 00000 0 06524  10630                 -*-1                                                     GPLA0071
 71254  +237777777777     10631         OCT     237777777777                                             GPLA0072
                          10632             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0073
 71255   0 06522 0 07335  10633  HH24           PNAME,,-*-1        D                                     GPLA0074
 71256   0 00000 0 06521  10634                 -*-1               D                                     GPLA0075
 71257   0 00000 0 06520  10635                 -*-1                                                     GPLA0076
 71260  +247777777777     10636         OCT     247777777777                                             GPLA0077
                          10637             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0078
 71261   0 06516 0 07335  10638  HH25           PNAME,,-*-1        E                                     GPLA0079
 71262   0 00000 0 06515  10639                 -*-1               E                                     GPLA0080
 71263   0 00000 0 06514  10640                 -*-1                                                     GPLA0081
 71264  +257777777777     10641         OCT     257777777777                                             GPLA0082
                          10642             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0083
 71265   0 06512 0 77777  10643  HH26           -1,,-*-1           F                                     GPLA0084
 71266   0 06511 0 07335  10644                 PNAME,,-*-1                                              GPLA0085
 71267   0 06506 0 06510  10645                 -*-1,,-*-3         F                                     GPLA0086
 71270   0 00000 0 06507  10646                 -*-1                                                     GPLA0087
 71271  +267777777777     10647         OCT     267777777777                                             GPLA0088
 71272   0 06505 0 10742  10648                 APVAL,,-*-1                                              GPLA0089
 71273   0 00000 0 06504  10649                 -*-1                                                     GPLA0090
 71274   0 00000 0 00000  10650                 0                                                        GPLA0091
                          10651             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0092
 71275   0 06502 0 07335  10652  HH27           PNAME,,-*-1        G                                     GPLA0093
 71276   0 00000 0 06501  10653                 -*-1               G                                     GPLA0094
 71277   0 00000 0 06500  10654                 -*-1                                                     GPLA0095
 71300  +277777777777     10655         OCT     277777777777                                             GPLA0096
                          10656             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0097
 71301   0 06476 0 07335  10657  HH30           PNAME,,-*-1        H                                     GPLA0098
 71302   0 00000 0 06475  10658                 -*-1               H                                     GPLA0099
 71303   0 00000 0 06474  10659                 -*-1                                                     GPLA0100
 71304  +307777777777     10660         OCT     307777777777                                             GPLA0101
                          10661             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0102
 71305   0 06472 0 07335  10662  HH31           PNAME,,-*-1        I                                     GPLA0103
 71306   0 00000 0 06471  10663                 -*-1               I                                     GPLA0104
 71307   0 00000 0 06470  10664                 -*-1                                                     GPLA0105
 71310  +317777777777     10665         OCT     317777777777                                             GPLA0106
                          10666             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0107
 71311   0 06466 0 07335  10667  HH32           PNAME,,-*-1        +0                                    GPLA0108
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0199


 71312   0 00000 0 06465  10668                 -*-1               $IL32$                                GPLA0109
 71313   0 00000 0 06464  10669                 -*-1                                                     GPLA0110
 71314  -133143030253     10670         OCT     533143030253                                             GPLA0111
                          10671             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0112
 71315   0 06462 0 07335  10672  HH33           PNAME,,-*-1        .                                     GPLA0113
 71316   0 00000 0 06461  10673                 -*-1               .                                     GPLA0114
 71317   0 00000 0 06460  10674                 -*-1                                                     GPLA0115
 71320  +337777777777     10675         OCT     337777777777                                             GPLA0116
                          10676             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0117
 71321   0 06456 0 07335  10677  HH34           PNAME,,-*-1        )                                     GPLA0118
 71322   0 00000 0 06455  10678                 -*-1               )                                     GPLA0119
 71323   0 00000 0 06454  10679                 -*-1                                                     GPLA0120
 71324  +347777777777     10680         OCT     347777777777                                             GPLA0121
                          10681             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0122
 71325   0 06452 0 07335  10682  HH35           PNAME,,-*-1        ILLEGAL                               GPLA0123
 71326   0 00000 0 06451  10683                 -*-1               $IL35$                                GPLA0124
 71327   0 00000 0 06450  10684                 -*-1                                                     GPLA0125
 71330  -133143030553     10685         OCT     533143030553                                             GPLA0126
                          10686             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0127
 71331   0 06446 0 07335  10687  HH36           PNAME,,-*-1        ILLEGAL                               GPLA0128
 71332   0 00000 0 06445  10688                 -*-1               $IL36$                                GPLA0129
 71333   0 00000 0 06444  10689                 -*-1                                                     GPLA0130
 71334  -133143030653     10690         OCT     533143030653                                             GPLA0131
                          10691             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0132
 71335   0 06442 0 07335  10692  HH37           PNAME,,-*-1        ILLEGAL                               GPLA0133
 71336   0 00000 0 06441  10693                 -*-1               $IL37$                                GPLA0134
 71337   0 00000 0 06440  10694                 -*-1                                                     GPLA0135
 71340  -133143030753     10695         OCT     533143030753                                             GPLA0136
                          10696             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0137
 71341   0 06436 0 07335  10697  HH40           PNAME,,-*-1        11 MINUS                              GPLA0138
 71342   0 00000 0 06435  10698                 -*-1               -                                     GPLA0139
 71343   0 00000 0 06434  10699                 -*-1                                                     GPLA0140
 71344  -007777777777     10700         OCT     407777777777                                             GPLA0141
                          10701             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0142
 71345   0 06432 0 07335  10702  HH41           PNAME,,-*-1        J                                     GPLA0143
 71346   0 00000 0 06431  10703                 -*-1               J                                     GPLA0144
 71347   0 00000 0 06430  10704                 -*-1                                                     GPLA0145
 71350  -017777777777     10705         OCT     417777777777                                             GPLA0146
                          10706             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0147
 71351   0 06426 0 07335  10707  HH42           PNAME,,-*-1        K                                     GPLA0148
 71352   0 00000 0 06425  10708                 -*-1               K                                     GPLA0149
 71353   0 00000 0 06424  10709                 -*-1                                                     GPLA0150
 71354  -027777777777     10710         OCT     427777777777                                             GPLA0151
                          10711             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0152
 71355   0 06422 0 07335  10712  HH43           PNAME,,-*-1        L                                     GPLA0153
 71356   0 00000 0 06421  10713                 -*-1               L                                     GPLA0154
 71357   0 00000 0 06420  10714                 -*-1                                                     GPLA0155
 71360  -037777777777     10715         OCT     437777777777                                             GPLA0156
                          10716             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0157
 71361   0 06416 0 07335  10717  HH44           PNAME,,-*-1        M                                     GPLA0158
 71362   0 00000 0 06415  10718                 -*-1               M                                     GPLA0159
 71363   0 00000 0 06414  10719                 -*-1                                                     GPLA0160
 71364  -047777777777     10720         OCT     447777777777                                             GPLA0161
                          10721             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0162
 71365   0 06412 0 07335  10722  HH45           PNAME,,-*-1        N                                     GPLA0163
 71366   0 00000 0 06411  10723                 -*-1               N                                     GPLA0164
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0200


 71367   0 00000 0 06410  10724                 -*-1                                                     GPLA0165
 71370  -057777777777     10725         OCT     457777777777                                             GPLA0166
                          10726             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0167
 71371   0 06406 0 07335  10727  HH46           PNAME,,-*-1        O                                     GPLA0168
 71372   0 00000 0 06405  10728                 -*-1               O                                     GPLA0169
 71373   0 00000 0 06404  10729                 -*-1                                                     GPLA0170
 71374  -067777777777     10730         OCT     467777777777                                             GPLA0171
                          10731             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0172
 71375   0 06402 0 07335  10732  HH47           PNAME,,-*-1        P                                     GPLA0173
 71376   0 00000 0 06401  10733                 -*-1               P                                     GPLA0174
 71377   0 00000 0 06400  10734                 -*-1                                                     GPLA0175
 71400  -077777777777     10735         OCT     477777777777                                             GPLA0176
                          10736             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0177
 71401   0 06376 0 07335  10737  HH50           PNAME,,-*-1        Q                                     GPLA0178
 71402   0 00000 0 06375  10738                 -*-1               Q                                     GPLA0179
 71403   0 00000 0 06374  10739                 -*-1                                                     GPLA0180
 71404  -107777777777     10740         OCT     507777777777                                             GPLA0181
                          10741             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0182
 71405   0 06372 0 07335  10742  HH51           PNAME,,-*-1        R                                     GPLA0183
 71406   0 00000 0 06371  10743                 -*-1               R                                     GPLA0184
 71407   0 00000 0 06370  10744                 -*-1                                                     GPLA0185
 71410  -117777777777     10745         OCT     517777777777                                             GPLA0186
                          10746             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0187
 71411   0 06366 0 07335  10747  HH52           PNAME,,-*-1        -0                                    GPLA0188
 71412   0 00000 0 06365  10748                 -*-1               $IL52$                                GPLA0189
 71413   0 00000 0 06364  10749                 -*-1                                                     GPLA0190
 71414  -133143050253     10750         OCT     533143050253                                             GPLA0191
                          10751             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0192
 71415   0 06362 0 07335  10752  HH53           PNAME,,-*-1        $                                     GPLA0193
 71416   0 00000 0 06361  10753                 -*-1               $                                     GPLA0194
 71417   0 00000 0 06360  10754                 -*-1                                                     GPLA0195
 71420  -137777777777     10755         OCT     537777777777                                             GPLA0196
                          10756             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0197
 71421   0 06356 0 07335  10757  HH54           PNAME,,-*-1        *                                     GPLA0198
 71422   0 06353 0 06355  10758                 -*-1,,-*-3         *                                     GPLA0199
 71423   0 00000 0 06354  10759                 -*-1                                                     GPLA0200
 71424  -147777777777     10760         OCT     547777777777                                             GPLA0201
 71425   0 06352 0 06706  10761                 SYM,,-*-1                                                GPLA0202
 71426   0 00000 0 61272  10762                 -C$STAR                                                  GPLA0203
                          10763             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0204
 71427   0 06350 0 07335  10764  HH55           PNAME,,-*-1        ILLEGAL                               GPLA0205
 71430   0 00000 0 06347  10765                 -*-1               $IL55$                                GPLA0206
 71431   0 00000 0 06346  10766                 -*-1                                                     GPLA0207
 71432  -133143050553     10767         OCT     533143050553                                             GPLA0208
                          10768             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0209
 71433   0 06344 0 07335  10769  HH56           PNAME,,-*-1        ILLEGAL                               GPLA0210
 71434   0 00000 0 06343  10770                 -*-1               $IL56$                                GPLA0211
 71435   0 00000 0 06342  10771                 -*-1                                                     GPLA0212
 71436  -133143050653     10772         OCT     533143050653                                             GPLA0213
                          10773             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0214
 71437   0 06340 0 07335  10774  HH57           PNAME,,-*-1        ILLEGAL                               GPLA0215
 71440   0 00000 0 06337  10775                 -*-1               $IL57$                                GPLA0216
 71441   0 00000 0 06336  10776                 -*-1                                                     GPLA0217
 71442  -133143050753     10777         OCT     533143050753                                             GPLA0218
                          10778             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0219
 71443   0 06334 0 07335  10779  HH60           PNAME,,-*-1        BLANK                                 GPLA0220
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0201


 71444   0 00000 0 06333  10780                 -*-1                                                     GPLA0221
 71445   0 00000 0 06332  10781                 -*-1                                                     GPLA0222
 71446  -207777777777     10782         OCT     607777777777                                             GPLA0223
                          10783             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0224
 71447   0 06330 0 07335  10784  HH61           PNAME,,-*-1        /                                     GPLA0225
 71450   0 00000 0 06327  10785                 -*-1               /                                     GPLA0226
 71451   0 00000 0 06326  10786                 -*-1                                                     GPLA0227
 71452  -217777777777     10787         OCT     617777777777                                             GPLA0228
                          10788             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0229
 71453   0 06324 0 07335  10789  HH62           PNAME,,-*-1        S                                     GPLA0230
 71454   0 00000 0 06323  10790                 -*-1               S                                     GPLA0231
 71455   0 00000 0 06322  10791                 -*-1                                                     GPLA0232
 71456  -227777777777     10792         OCT     627777777777                                             GPLA0233
                          10793             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0234
 71457   0 06320 0 77777  10794  HH63           -1,,-*-1           T                                     GPLA0235
 71460   0 06317 0 07335  10795                 PNAME,,-*-1                                              GPLA0236
 71461   0 06314 0 06316  10796                 -*-1,,-*-3         T                                     GPLA0237
 71462   0 00000 0 06315  10797                 -*-1                                                     GPLA0238
 71463  -237777777777     10798         OCT     637777777777                                             GPLA0239
 71464   0 06313 0 10742  10799                 APVAL,,-*-1                                              GPLA0240
 71465   0 00000 0 06312  10800                 -*-1                                                     GPLA0241
 71466   0 00000 0 00001  10801                 1                                                        GPLA0242
                          10802             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0243
 71467   0 06310 0 07335  10803  HH64           PNAME,,-*-1        U                                     GPLA0244
 71470   0 00000 0 06307  10804                 -*-1               U                                     GPLA0245
 71471   0 00000 0 06306  10805                 -*-1                                                     GPLA0246
 71472  -247777777777     10806         OCT     647777777777                                             GPLA0247
                          10807             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0248
 71473   0 06304 0 07335  10808  HH65           PNAME,,-*-1        V                                     GPLA0249
 71474   0 00000 0 06303  10809                 -*-1               V                                     GPLA0250
 71475   0 00000 0 06302  10810                 -*-1                                                     GPLA0251
 71476  -257777777777     10811         OCT     657777777777                                             GPLA0252
                          10812             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0253
 71477   0 06300 0 07335  10813  HH66           PNAME,,-*-1        W                                     GPLA0254
 71500   0 00000 0 06277  10814                 -*-1               W                                     GPLA0255
 71501   0 00000 0 06276  10815                 -*-1                                                     GPLA0256
 71502  -267777777777     10816         OCT     667777777777                                             GPLA0257
                          10817             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0258
 71503   0 06274 0 07335  10818  HH67           PNAME,,-*-1        X                                     GPLA0259
 71504   0 00000 0 06273  10819                 -*-1               X                                     GPLA0260
 71505   0 00000 0 06272  10820                 -*-1                                                     GPLA0261
 71506  -277777777777     10821         OCT     677777777777                                             GPLA0262
                          10822             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0263
 71507   0 06270 0 07335  10823  HH70           PNAME,,-*-1        Y                                     GPLA0264
 71510   0 00000 0 06267  10824                 -*-1               Y                                     GPLA0265
 71511   0 00000 0 06266  10825                 -*-1                                                     GPLA0266
 71512  -307777777777     10826         OCT     707777777777                                             GPLA0267
                          10827             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0268
 71513   0 06264 0 07335  10828  HH71           PNAME,,-*-1        Z                                     GPLA0269
 71514   0 00000 0 06263  10829                 -*-1               Z                                     GPLA0270
 71515   0 00000 0 06262  10830                 -*-1                                                     GPLA0271
 71516  -317777777777     10831         OCT     717777777777                                             GPLA0272
                          10832             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0273
 71517   0 06260 0 07335  10833  HH72           PNAME,,-*-1        END OF RECORD                         GPLA0274
 71520   0 06255 0 06257  10834                 -*-1,,-*-3         $EOR$                                 GPLA0275
 71521   0 00000 0 06256  10835                 -*-1                                                     GPLA0276
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0202


 71522  -132546515377     10836         OCT     532546515377                                             GPLA0277
 71523   0 06254 0 10742  10837                 APVAL1,,-*-1                                             GPLA0278
 71524   0 00000 0 06253  10838                 -*-1                                                     GPLA0279
 71525   0 00000 0 06221  10839                 H72                                                      GPLA0280
                          10840             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0281
 71526   0 06251 0 07335  10841  HH73           PNAME,,-*-1        ,                                     GPLA0282
 71527   0 00000 0 06250  10842                 -*-1               ,                                     GPLA0283
 71530   0 00000 0 06247  10843                 -*-1                                                     GPLA0284
 71531  -337777777777     10844         OCT     737777777777                                             GPLA0285
                          10845             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0286
 71532   0 06245 0 07335  10846  HH74           PNAME,,-*-1        (                                     GPLA0287
 71533   0 00000 0 06244  10847                 -*-1               (                                     GPLA0288
 71534   0 00000 0 06243  10848                 -*-1                                                     GPLA0289
 71535  -347777777777     10849         OCT     747777777777                                             GPLA0290
                          10850             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0291
 71536   0 06241 0 07335  10851  HH75           PNAME,,-*-1        ILLEGAL                               GPLA0292
 71537   0 00000 0 06240  10852                 -*-1               $IL75$                                GPLA0293
 71540   0 00000 0 06237  10853                 -*-1                                                     GPLA0294
 71541  -133143070553     10854         OCT     533143070553                                             GPLA0295
                          10855             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0296
 71542   0 06235 0 07335  10856  HH76           PNAME,,-*-1        ILLEGAL                               GPLA0297
 71543   0 00000 0 06234  10857                 -*-1               $IL76$                                GPLA0298
 71544   0 00000 0 06233  10858                 -*-1                                                     GPLA0299
 71545  -133143070653     10859         OCT     533143070653                                             GPLA0300
                          10860             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *GPLA0301
 71546   0 06231 0 07335  10861  HH77           PNAME,,-*-1        ILLEGAL                               GPLA0302
 71547   0 00000 0 06230  10862                 -*-1               $IL77$                                GPLA0303
 71550   0 00000 0 06227  10863                 -*-1                                                     GPLA0304
 71551  -133143070753     10864         OCT     533143070753                                             GPLA0305
                          10865  *                                                                       GPLA0306
                          10866  *                                                                       GPLA0307
 71552   0 06232 0 77777  10867  )H77           -1,,-HH77                                                GPLA0308
 71553   0 06236 0 77777  10868  )H76           -1,,-HH76                                                GPLA0309
 71554   0 06242 0 77777  10869  )H75           -1,,-HH75                                                GPLA0310
 71555   0 06246 0 77777  10870  )H74           -1,,-HH74                                                GPLA0311
 71556   0 06252 0 77777  10871  )H73           -1,,-HH73                                                GPLA0312
 71557   0 06261 0 77777  10872  )H72           -1,,-HH72                                                GPLA0313
 71560   0 06265 0 77777  10873  )H71           -1,,-HH71                                                GPLA0314
 71561   0 06271 0 77777  10874  )H70           -1,,-HH70                                                GPLA0315
 71562   0 06275 0 77777  10875  )H67           -1,,-HH67                                                GPLA0316
 71563   0 06301 0 77777  10876  )H66           -1,,-HH66                                                GPLA0317
 71564   0 06305 0 77777  10877  )H65           -1,,-HH65                                                GPLA0318
 71565   0 06311 0 77777  10878  )H64           -1,,-HH64                                                GPLA0319
 71566   0 06321 0 77777  10879  )H63           -1,,-HH63                                                GPLA0320
 71567   0 06325 0 77777  10880  )H62           -1,,-HH62                                                GPLA0321
 71570   0 06331 0 77777  10881  )H61           -1,,-HH61                                                GPLA0322
 71571   0 06335 0 77777  10882  )H60           -1,,-HH60                                                GPLA0323
 71572   0 06341 0 77777  10883  )H57           -1,,-HH57                                                GPLA0324
 71573   0 06345 0 77777  10884  )H56           -1,,-HH56                                                GPLA0325
 71574   0 06351 0 77777  10885  )H55           -1,,-HH55                                                GPLA0326
 71575   0 06357 0 77777  10886  )H54           -1,,-HH54                                                GPLA0327
 71576   0 06363 0 77777  10887  )H53           -1,,-HH53                                                GPLA0328
 71577   0 06367 0 77777  10888  )H52           -1,,-HH52                                                GPLA0329
 71600   0 06373 0 77777  10889  )H51           -1,,-HH51                                                GPLA0330
 71601   0 06377 0 77777  10890  )H50           -1,,-HH50                                                GPLA0331
 71602   0 06403 0 77777  10891  )H47           -1,,-HH47                                                GPLA0332
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0203


 71603   0 06407 0 77777  10892  )H46           -1,,-HH46                                                GPLA0333
 71604   0 06413 0 77777  10893  )H45           -1,,-HH45                                                GPLA0334
 71605   0 06417 0 77777  10894  )H44           -1,,-HH44                                                GPLA0335
 71606   0 06423 0 77777  10895  )H43           -1,,-HH43                                                GPLA0336
 71607   0 06427 0 77777  10896  )H42           -1,,-HH42                                                GPLA0337
 71610   0 06433 0 77777  10897  )H41           -1,,-HH41                                                GPLA0338
 71611   0 06437 0 77777  10898  )H40           -1,,-HH40                                                GPLA0339
 71612   0 06443 0 77777  10899  )H37           -1,,-HH37                                                GPLA0340
 71613   0 06447 0 77777  10900  )H36           -1,,-HH36                                                GPLA0341
 71614   0 06453 0 77777  10901  )H35           -1,,-HH35                                                GPLA0342
 71615   0 06457 0 77777  10902  )H34           -1,,-HH34                                                GPLA0343
 71616   0 06463 0 77777  10903  )H33           -1,,-HH33                                                GPLA0344
 71617   0 06467 0 77777  10904  )H32           -1,,-HH32                                                GPLA0345
 71620   0 06473 0 77777  10905  )H31           -1,,-HH31                                                GPLA0346
 71621   0 06477 0 77777  10906  )H30           -1,,-HH30                                                GPLA0347
 71622   0 06503 0 77777  10907  )H27           -1,,-HH27                                                GPLA0348
 71623   0 06513 0 77777  10908  )H26           -1,,-HH26                                                GPLA0349
 71624   0 06517 0 77777  10909  )H25           -1,,-HH25                                                GPLA0350
 71625   0 06523 0 77777  10910  )H24           -1,,-HH24                                                GPLA0351
 71626   0 06527 0 77777  10911  )H23           -1,,-HH23                                                GPLA0352
 71627   0 06533 0 77777  10912  )H22           -1,,-HH22                                                GPLA0353
 71630   0 06537 0 77777  10913  )H21           -1,,-HH21                                                GPLA0354
 71631   0 06543 0 77777  10914  )H20           -1,,-HH20                                                GPLA0355
 71632   0 06547 0 77777  10915  )H17           -1,,-HH17                                                GPLA0356
 71633   0 06553 0 77777  10916  )H16           -1,,-HH16                                                GPLA0357
 71634   0 06557 0 77777  10917  )H15           -1,,-HH15                                                GPLA0358
 71635   0 06563 0 77777  10918  )H14           -1,,-HH14                                                GPLA0359
 71636   0 06567 0 77777  10919  )H13           -1,,-HH13                                                GPLA0360
 71637   0 06576 0 77777  10920  )H12           -1,,-HH12                                                GPLA0361
 71640   0 06577 1 77777  10921  )H11           -1,1,-HH11                                               GPLA0362
 71641   0 06600 1 77777  10922  )H10           -1,1,-HH10                                               GPLA0363
 71642   0 06601 1 77777  10923  )H07           -1,1,-HH07                                               GPLA0364
 71643   0 06602 1 77777  10924  )H06           -1,1,-HH06                                               GPLA0365
 71644   0 06603 1 77777  10925  )H05           -1,1,-HH05                                               GPLA0366
 71645   0 06604 1 77777  10926  )H04           -1,1,-HH04                                               GPLA0367
 71646   0 06605 1 77777  10927  )H03           -1,1,-HH03                                               GPLA0368
 71647   0 06606 1 77777  10928  )H02           -1,1,-HH02                                               GPLA0369
 71650   0 06607 1 77777  10929  )H01           -1,1,-HH01                                               GPLA0370
 71651   0 06610 1 77777  10930  )H00           -1,1,-HH00                                               GPLA0371
 71652                    10931  UPERML BSS     0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0204


                          10932         EJECT                                                            PAGE 217
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0205


                          10933         EJECT                                                            PAGE 218
                          10934         HEAD    0
                          10935  *      SYN CARDS CAUSE MANY SYMBOLS TO HAVE O-HEADED EQUIVALENTS
                          10936  *
                   06127  10937  H00    SYN     -)H00                                                    GPLA0372
                   06130  10938  H01    SYN     -)H01                                                    GPLA0373
                   06131  10939  H02    SYN     -)H02                                                    GPLA0374
                   06132  10940  H03    SYN     -)H03                                                    GPLA0375
                   06133  10941  H04    SYN     -)H04                                                    GPLA0376
                   06134  10942  H05    SYN     -)H05                                                    GPLA0377
                   06135  10943  H06    SYN     -)H06                                                    GPLA0378
                   06136  10944  H07    SYN     -)H07                                                    GPLA0379
                   06137  10945  H10    SYN     -)H10                                                    GPLA0380
                   06140  10946  H11    SYN     -)H11                                                    GPLA0381
                   06141  10947  H12    SYN     -)H12                                                    GPLA0382
                   06142  10948  H13    SYN     -)H13                                                    GPLA0383
                   06143  10949  H14    SYN     -)H14                                                    GPLA0384
                   06144  10950  H15    SYN     -)H15                                                    GPLA0385
                   06145  10951  H16    SYN     -)H16                                                    GPLA0386
                   06146  10952  H17    SYN     -)H17                                                    GPLA0387
                   06147  10953  H20    SYN     -)H20                                                    GPLA0388
                   06150  10954  H21    SYN     -)H21                                                    GPLA0389
                   06151  10955  H22    SYN     -)H22                                                    GPLA0390
                   06152  10956  H23    SYN     -)H23                                                    GPLA0391
                   06153  10957  H24    SYN     -)H24                                                    GPLA0392
                   06154  10958  H25    SYN     -)H25                                                    GPLA0393
                   06155  10959  H26    SYN     -)H26                                                    GPLA0394
                   06156  10960  H27    SYN     -)H27                                                    GPLA0395
                   06157  10961  H30    SYN     -)H30                                                    GPLA0396
                   06160  10962  H31    SYN     -)H31                                                    GPLA0397
                   06161  10963  H32    SYN     -)H32                                                    GPLA0398
                   06162  10964  H33    SYN     -)H33                                                    GPLA0399
                   06163  10965  H34    SYN     -)H34                                                    GPLA0400
                   06164  10966  H35    SYN     -)H35                                                    GPLA0401
                   06165  10967  H36    SYN     -)H36                                                    GPLA0402
                   06166  10968  H37    SYN     -)H37                                                    GPLA0403
                   06167  10969  H40    SYN     -)H40                                                    GPLA0404
                   06170  10970  H41    SYN     -)H41                                                    GPLA0405
                   06171  10971  H42    SYN     -)H42                                                    GPLA0406
                   06172  10972  H43    SYN     -)H43                                                    GPLA0407
                   06173  10973  H44    SYN     -)H44                                                    GPLA0408
                   06174  10974  H45    SYN     -)H45                                                    GPLA0409
                   06175  10975  H46    SYN     -)H46                                                    GPLA0410
                   06176  10976  H47    SYN     -)H47                                                    GPLA0411
                   06177  10977  H50    SYN     -)H50                                                    GPLA0412
                   06200  10978  H51    SYN     -)H51                                                    GPLA0413
                   06201  10979  H52    SYN     -)H52                                                    GPLA0414
                   06202  10980  H53    SYN     -)H53                                                    GPLA0415
                   06203  10981  H54    SYN     -)H54                                                    GPLA0416
                   06204  10982  H55    SYN     -)H55                                                    GPLA0417
                   06205  10983  H56    SYN     -)H56                                                    GPLA0418
                   06206  10984  H57    SYN     -)H57                                                    GPLA0419
                   06207  10985  H60    SYN     -)H60                                                    GPLA0420
                   06210  10986  H61    SYN     -)H61                                                    GPLA0421
                   06211  10987  H62    SYN     -)H62                                                    GPLA0422
                   06212  10988  H63    SYN     -)H63                                                    GPLA0423
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0206


                   06213  10989  H64    SYN     -)H64                                                    GPLA0424
                   06214  10990  H65    SYN     -)H65                                                    GPLA0425
                   06215  10991  H66    SYN     -)H66                                                    GPLA0426
                   06216  10992  H67    SYN     -)H67                                                    GPLA0427
                   06217  10993  H70    SYN     -)H70                                                    GPLA0428
                   06220  10994  H71    SYN     -)H71                                                    GPLA0429
                   06221  10995  H72    SYN     -)H72                                                    GPLA0430
                   06222  10996  H73    SYN     -)H73                                                    GPLA0431
                   06223  10997  H74    SYN     -)H74                                                    GPLA0432
                   06224  10998  H75    SYN     -)H75                                                    GPLA0433
                   06225  10999  H76    SYN     -)H76                                                    GPLA0434
                   06226  11000  H77    SYN     -)H77                                                    GPLA0435
                   10772  11001   AND   SYN     -)002
                   10762  11002   F1    SYN     -)003
                   10752  11003   F18   SYN     -)004
                   10742  11004   APVAL SYN     -)005
                   10742  11005  APVAL1 SYN     -)005
                   10735  11006   ARRAY SYN     -II1
                   10725  11007   ATOM  SYN     -)007
                   10715  11008   F29   SYN     -)008
                   06155  11009   F     SYN     H26
                   06212  11010   T     SYN     H63
                   10675  11011   CAR   SYN     -)011
                   10665  11012   CDR   SYN     -)012
                   06222  11013   COMMA SYN     H73
                   10460  11014   COND  SYN     -)016
                   10450  11015   CONSN SYN     -)017
                   00000  11016  DUMP   SYN     -DMPOB
                   10440  11017   F12   SYN     -)019
                   10430  11018   COPYN SYN     -)020
                   10420  11019   F35   SYN     -)021
                   10261  11020   EQ    SYN     -)030
                   10241  11021   F8    SYN     -)032
                   10231  11022   F21   SYN     -)034
                   10177  11023   F19   SYN     -)035
                   10167  11024  EVLISL SYN     -)036
                   10157  11025   EXPR  SYN     -)037
                   10152  11026   F32   SYN     -)038
                   10142  11027   FEXPR SYN     -)040
                   10135  11028   BIN   SYN     -)041
                   10135  11029   FIX   SYN     -)041
                   10120  11030   FLOAT SYN     -)042
                   10103  11031   FSUBR SYN     -)043
                   10076  11032  FUNARG SYN     -)044
                   10071  11033   FUNCT SYN     -)045
                   10057  11034  SYMGEN SYN     -)046
                   10047  11035   CGET  SYN     -)231
                   10037  11036   GO    SYN     -)047
                   10015  11037   F16   SYN     -)052
                   10005  11038   LABEL SYN     -)054
                   07775  11039  LAMBDA SYN     -)055
                   07770  11040  LAP    SYN     -)LAP
                   07736  11041   LIST  SYN     -)057                                                    PAGE 220
                   07716  11042   LOADA SYN     -)234A
                   07646  11043  PMAPCA SYN     -)065
                   07614  11044   MAXP  SYN     -II7
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0207


                   07574  11045   MINUS SYN     -)070
                   07604  11046   MINP  SYN     -II8
                   07544  11047   F3    SYN     -)071
                   00000  11048   NIL   SYN     0
                   07534  11049   NOT   SYN     -)074
                   07524  11050   NULL  SYN     -)075
                   07472  11051   OBLBA SYN     -)079A
                   07435  11052   OR    SYN     -)079
                   07415  11053   F2    SYN     -)080
                   07405  11054   PAUSE SYN     -)234C
                   07365  11055   PLB   SYN     -)234B
                   07355  11056   PLUS  SYN     -)081
                   07335  11057   PNAME SYN     -)083
                   07320  11058   F4    SYN     -)087
                   07300  11059   PROG  SYN     -)089
                   07260  11060   PROPO SYN     -)090
                   07250  11061   QUOTE SYN     -)094
                   07226  11062   F13   SYN     -)096
                   07206  11063   RCLAM SYN     -)234D
                   07140  11064  PRPLCA SYN     -)100
                   07130  11065  PRPLCD SYN     -)101
                   00000  11066  RETATM SYN     -)102
                   00000  11067   SASCO SYN     -)106
                   07061  11068  SLIST  SYN     -)LST
                   07110  11069  SPECAL SYN     -)SPCL
                   07101  11070  SMOVE  SYN     -)MOV
                   07072  11071  SRETUR SYN     -)RTRN
                   07042  11072   SRCH  SYN     -)236
                   07032  11073   SET   SYN     -)107
                   07022  11074   SETQ  SYN     -)108
                   06772  11075   STOP  SYN     -)111
                   07002  11076   F34   SYN     -)109
                   06733  11077   SUBR  SYN     -)113
                   06726  11078   F17   SYN     -)114
                   06716  11079   F30   SYN     -)115
                   06671  11080   F27   SYN     -)122
                   06706  11081  SYM    SYN     -)SYM
                   06657  11082   TIMES SYN     -)124
                   06647  11083  TRACE  SYN     -)213
                   06642  11084   F36   SYN     -)127
                   10655  11085   CAAR  SYN     -)201
                   10645  11086   CDAR  SYN     -)202
                   10635  11087   CADR  SYN     -)203
                   10625  11088   CDDR  SYN     -)204
                   10615  11089   CAAAR SYN     -)205
                   10605  11090   CAADR SYN     -)206
                   10575  11091   CADAR SYN     -)207
                   10565  11092   CADDR SYN     -)208
                   10555  11093   CDAAR SYN     -)209
                   10545  11094   CDADR SYN     -)210
                   10535  11095   CDDAR SYN     -)211                                                    PAGE 221
                   10525  11096   CDDDR SYN     -)212
                   07162  11097  REMPP  SYN     -)250
                   10410  11098  PJ1    SYN     -)PJ1                                                        0000
                   11013  11099  PJ2    SYN     -)PJ2                                                        0001
                   10221  11100  PJ4    SYN     -)PJ4                                                        0003
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0208


                   10251  11101  PJ5    SYN     -)PJ5                                                        0004
                   10470  11102  PJ6    SYN     -)PJ6                                                        0005
                   07656  11103  PJ7    SYN     -)PJ7                                                        0006
                   07120  11104  PJ8    SYN     -)PJ8                                                        0007
                   07375  11105  PJ9    SYN     -)PJ9                                                        0008
                   10333  11106  PJ10   SYN     -)PJ10                                                       0009
                   07345  11107  PJ11   SYN     -)PJ11                                                       0010
                   10705  11108  PJ12   SYN     -)PJ12                                                       0011
                   07012  11109  PJ14   SYN     -)PJ14                                                       0013
                   06765  11110  PJ15   SYN     -)PJ15                                                       0014
                   10375  11111  PJ16   SYN     -)PJ16                                                       0015
                   07726  11112  PJ17   SYN     -)PJ17                                                       0016
                   07445  11113  PJ18   SYN     -)PJ18                                                       0017
                   10353  11114  PJ19   SYN     -)PJ19                                                       0018
                   06755  11115  PJ21   SYN     -)PJ21                                                       0020
                   06701  11116  PJ23   SYN     -)PJ23                                                       0022
                   07425  11117  PJ24   SYN     -)PJ24                                                       0023
                   07502  11118  PJ25   SYN     -)PJ25                                                       0024
                   07554  11119  PJ26   SYN     -)PJ26                                                       0025
                   10502  11120  PJ27   SYN     -)PJ27                                                       0026
                   07462  11121  PJ28   SYN     -)PJ28                                                       0027
                   10313  11122  PJ30   SYN     -)PJ30                                                       0029
                   06630  11123  PJ31   SYN     -)PJ31                                                       0030
                   10515  11124  PJ32   SYN     -)PJ32                                                       0031
                   07330  11125  PJ33   SYN     -)PJ33                                                       0032
                   10301  11126  PJ34   SYN     -)PJ34                                                       0033
                   10271  11127  PJ35   SYN     -)PJ35                                                       0034
                   07676  11128  PJ36   SYN     -)PJ36                                                       0035
                   07706  11129  PJ37   SYN     -)PJ37                                                       0036
                   07666  11130  PJ38   SYN     -)PJ38                                                       0037
                   07310  11131  PJ39   SYN     -)PJ39                                                       0038
                   10211  11132  ERSETO SYN     -)PJ41
                   07760  11133   PVW1  SYN     -PVV1              LEFTSHIFT
                   07462  11134   OCT   SYN     PJ28
                   07216  11135   RECIP SYN     -II18
                   14401  11136   ADD1  SYN     Q$ADD1
                   14126  11137   ADDP  SYN     Q$ADDP
                   15016  11138   APP2  SYN     A$APP2
                   14663  11139   APPLY SYN     A$APPLY
                   10011  11140   APROP SYN     R$PROP
                   15230  11141   ATOMP SYN     R$ATOMP
                   15212  11142   CARP  SYN     R$CARP
                   15222  11143   CDRP  SYN     R$CDRP
                   00000  11144   CELL  SYN     T$CELL
                   12635  11145   CHACT SYN     F$CHACT
                   12201  11146   CLEAR SYN     F$CLEAR
                   04345  11147   COPY  SYN     R$COPY
                   07343  11148   CP1   SYN     C$CP1
                   12634  11149   CURC  SYN     F$CURC                                                   PAGE 222
                   12633  11150   CURC1 SYN     F$CURC1
                   04111  11151   DECON SYN     E$DECON
                   12337  11152   DIGIT SYN     F$DIGIT
                   15445  11153   EQP   SYN     R$EQP
                   04461  11154   EQUAL SYN     L$EQUAL
                   12346  11155   EROR1 SYN     F$EROR1
                   15454  11156   EVAL  SYN     A$EVAL
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0209


                   11310  11157   EVALQ SYN     S$EVALQ
                   15370  11158   EVAND SYN     R$EVA8
                   15154  11159   EVCON SYN     A$EVCON
                   15774  11160  EVLIS  SYN     A$EVLIS
                   15416  11161   EVOR  SYN     R$EVR8
                   13530  11162   EXPT  SYN     Q$EXPT
                   14466  11163   FIXP  SYN     Q$FIXP
                   00663  11164   INPUT SYN     B$INPUT
                   16130  11165   INTER SYN     R$INTER
                   15264  11166   LABP  SYN     R$LABP
                   15250  11167   LAMP  SYN     R$LAMP
                   12321  11168   LITER SYN     F$LITER
                   12662  11169   LOGOR SYN     H$LOGOR
                   14150  11170    MAX  SYN     Q$MAX
                   07620  11171   MAP   SYN     MAPCAR
                   14142  11172   MIN   SYN     Q$MIN
                   12147  11173   MKNAM SYN     F$MKNAM
                   12636  11174   MKNO  SYN     F$MKNO
                   14142  11175   MULT  SYN     Q$MIN
                   07675  11176   NCONC SYN     R$NCONC
                   10150  11177   NOTS  SYN     R$NOTS
                   15243  11178   NULLP SYN     R$NULLP
                   06622  11179   NUMBR SYN     F$NUMBR
                   12071  11180   NUMOB SYN     F$NUMOB
                   06543  11181   NUTRN SYN     T$NUTRN
                   14533  11182   ONEP  SYN     Q$ONEP
                   10220  11183   OVBGN SYN     S$OVBGN            OVERLORD BEGINNING
                   12032  11184   PACK  SYN     F$PACK
                   07562  11185   PAIR  SYN     A$PAIR
                   13572  11186   POWR  SYN     G$POWR
                   04620  11187   PRIN0 SYN     T$PRIN0
                   04703  11188   PRIN1 SYN     T$PRIN1
                   05110  11189   PRIN2 SYN     T$PRIN2
                   04604  11190   PRINT SYN     T$PRINT
                   10011  11191   PROP  SYN     R$PROP
                   05341  11192   PUN2  SYN     T$PUN2
                   05325  11193   PUNCH SYN     T$PUNCH
                   06026  11194   RD    SYN     I$RD
                   05732  11195   READ  SYN     I$READ
                   05757  11196   READ1 SYN     I$READ1
                   15346  11197   SETP  SYN     R$SETP
                   15311  11198   SETQP SYN     R$SETQP
                   02077  11199   SETUP SYN     E$SETUP
                   14430  11200   SUB1  SYN     Q$SUB1
                   07367  11201   SUBST SYN     R$SUBST
                   14565  11202   UNFIX SYN     Q$UNFIX
                   06533  11203   VALUE SYN I$VALUE                                                      PAGE 223
                   14507  11204   ZEROP SYN     Q$ZEROP
                   10042  11205  APSSOC SYN SASSOC
 71652                    11206         DECK                       BUTCH REGION AND END
                          11207         HEAD    0
                          11208  *
                          11209  *      BUTCH, A HOME FOR PATCHES
                          11210  *
 71652   0 00000 0 00000  11211   BUTCH
                   05766  11212  BUTCHL EQU     NILSXX-*+1         LENGTH OF BUTCH REGION
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0210


                          11213
                   77724  11214         TCD     LOADER             GO TO RW TML FOR OCTAL CORRECTION CDS
                          11215  *
                          11216  *              THE FOLLOWNG PRODUCE A ROW BINARY TRASNFER CARD TO CONTIN
                          11217  *
                          11218         FUL
 00000                    11219         ORG     0
                   00174  11220   AAAAA EQU     CONTIN
                   00000  11221   BBBBB EQU     AAAAA-AAAAA/2*2
                   00000  11222   CCCCC EQU     AAAAA/2-AAAAA/4*2
                   00001  11223   DDDDD EQU     AAAAA/4-AAAAA/8*2
                   00001  11224   EEEEE EQU     AAAAA/8-AAAAA/16*2
                   00001  11225   FFFFF EQU     AAAAA/16-AAAAA/32*2
                   00001  11226   GGGGG EQU     AAAAA/32-AAAAA/64*2
                   00001  11227   HHHHH EQU     AAAAA/64-AAAAA/128*2
                   00000  11228   IIIII EQU     AAAAA/128-AAAAA/256*2
                   00000  11229   JJJJJ EQU     AAAAA/256-AAAAA/512*2
 00000  +000000000000     11230         OCT     0,0,0,0,0,0,0,0,0
 00011   0 00000 0 00001  11231         PZE     HHHHH+4096*IIIII,,64*JJJJJ
 00012   0 00100 0 10001  11232         PZE     EEEEE+4096*FFFFF,,64*GGGGG
 00013   0 00100 0 00000  11233         PZE     BBBBB+4096*CCCCC,,64*DDDDD
                          11234  * Local Variables:
                          11235  * mode: asm
                          11236  * eval: (when (fboundp 'asm7090) (asm7090))
                          11237  * End:
                   00000  11238  ENDEND END     0
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0211
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 (IOS)    00276     300   742   769  4866  4871  5195
 (IOU)    00346     302   180
 )002     67006    9272  11001
 )003     67016    9281  11002
 )004     67026    9290  11003
 )005     67036    9299  11004  11005
 )007     67053    9314  11007
 )008     67063    9323  11008
 )011     67103    9341  11011
 )012     67113    9350  11012
 )016     67320    9499  11014
 )017     67330    9508  11015
 )019     67340    9517  11017
 )020     67350    9526  11018
 )021     67360    9535  11019
 )030     67517    9641  11020
 )032     67537    9659  11021
 )034     67547    9668  11022
 )035     67601    9697  11023
 )036     67611    9706  11024
 )037     67621    9715  11025
 )038     67626    9721  11026
 )040     67636    9730  11027
 )041     67643    9736  11028  11029
 )042     67660    9751  11030
 )043     67675    9766  11031
 )044     67702    9772  11032
 )045     67707    9778  11033
 )046     67721    9789  11034
 )047     67741    9807  11036
 )052     67763    9827  11037
 )054     67773    9836  11038
 )055     70003    9845  11039
 )057     70042    9880  11041
 )065     70132    9943  11043
 )069A    70152    9961  2023
 )069B    70142    9952  2018
 )070     70204    9990  11045
 )071     70234    10017  11047
 )074     70244    10026  11049
 )075     70254    10035  11050
 )079     70343    10097  11052
 )079A    70306    10064  11051
 )080     70363    10115  11053
 )081     70423    10151  11056
 )083     70443    10169  11057
 )087     70460    10184  11058
 )089     70500    10202  11059
 )090     70520    10220  11060
 )094     70530    10229  11061
 )096     70552    10249  11062
 )100     70640    10309  11064
 )101     70650    10318  11065
 )107     70746    10388  11073
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0212
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 )108     70756    10397  11074
 )109     70776    10415  11076
 )111     71006    10424  11075
 )113     71045    10459  11077
 )114     71052    10465  11078
 )115     71062    10474  11079
 )122     71107    10498  11080
 )124     71121    10509  11082
 )127     71136    10524  11084
 )201     67123    9359  11085
 )202     67133    9368  11086
 )203     67143    9377  11087
 )204     67153    9386  11088
 )205     67163    9395  11089
 )206     67173    9404  11090
 )207     67203    9413  11091
 )208     67213    9422  11092
 )209     67223    9431  11093
 )210     67233    9440  11094
 )211     67243    9449  11095
 )212     67253    9458  11096
 )213     71131    10518  11083
 )231     67731    9798  11035
 )234A    70062    9898  11042
 )234B    70413    10142  11055
 )234C    70373    10124  11054
 )234D    70572    10267  11063
 )236     70736    10379  11072
 )250     70616    10289  11097
 )ALST    66777    9264
 )H00     71651    10930  10937
 )H01     71650    10929  10938
 )H02     71647    10928  10939
 )H03     71646    10927  10940
 )H04     71645    10926  10941
 )H05     71644    10925  10942
 )H06     71643    10924  10943
 )H07     71642    10923  10944
 )H10     71641    10922  10945
 )H11     71640    10921  10946
 )H12     71637    10920  10947
 )H13     71636    10919  10948
 )H14     71635    10918  10949
 )H15     71634    10917  10950
 )H16     71633    10916  10951
 )H17     71632    10915  10952
 )H20     71631    10914  10953
 )H21     71630    10913  10954
 )H22     71627    10912  10955
 )H23     71626    10911  10956
 )H24     71625    10910  10957
 )H25     71624    10909  10958
 )H26     71623    10908  10959
 )H27     71622    10907  10960
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0213
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 )H30     71621    10906  10961
 )H31     71620    10905  10962
 )H32     71617    10904  10963
 )H33     71616    10903  10964
 )H34     71615    10902  10965
 )H35     71614    10901  10966
 )H36     71613    10900  10967
 )H37     71612    10899  10968
 )H40     71611    10898  10969
 )H41     71610    10897  10970
 )H42     71607    10896  10971
 )H43     71606    10895  10972
 )H44     71605    10894  10973
 )H45     71604    10893  10974
 )H46     71603    10892  10975
 )H47     71602    10891  10976
 )H50     71601    10890  10977
 )H51     71600    10889  10978
 )H52     71577    10888  10979
 )H53     71576    10887  10980
 )H54     71575    10886  10981
 )H55     71574    10885  10982
 )H56     71573    10884  10983
 )H57     71572    10883  10984
 )H60     71571    10882  10985
 )H61     71570    10881  10986
 )H62     71567    10880  10987
 )H63     71566    10879  10988
 )H64     71565    10878  10989
 )H65     71564    10877  10990
 )H66     71563    10876  10991
 )H67     71562    10875  10992
 )H70     71561    10874  10993
 )H71     71560    10873  10994
 )H72     71557    10872  10995
 )H73     71556    10871  10996
 )H74     71555    10870  10997
 )H75     71554    10869  10998
 )H76     71553    10868  10999
 )H77     71552    10867  11000
 )I02     70630    10300
 )I06     70726    10370
 )LAP     70010    9851  11040
 )LST     70717    10362  11068
 )MOV     70677    10344  11070
 )PJ1     67370    9544  11098
 )PJ10    67445    9594  11106
 )PJ11    70433    10160  11107
 )PJ12    67073    9332  11108
 )PJ14    70766    10406  11109
 )PJ15    71013    10430  11110
 )PJ16    67403    9556  11111
 )PJ17    70052    9889  11112
 )PJ18    70333    10088  11113
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0214
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 )PJ19    67425    9576  11114
 )PJ2     66765    9253  11099
 )PJ21    71023    10439  11115
 )PJ23    71077    10489  11116
 )PJ24    70353    10106  11117
 )PJ25    70276    10055  11118
 )PJ26    70224    10008  11119
 )PJ27    67276    9479  11120
 )PJ28    70316    10073  11121
 )PJ30    67465    9612  11122
 )PJ31    71150    10535  11123
 )PJ32    67263    9467  11124
 )PJ33    70450    10175  11125
 )PJ34    67477    9623  11126
 )PJ35    67507    9632  11127
 )PJ36    70102    9916  11128  6029
 )PJ37    70072    9907  11129  6016
 )PJ38    70112    9925  11130  6042
 )PJ39    70470    10193  11131
 )PJ4     67557    9677  11100
 )PJ41    67567    9686  11132
 )PJ5     67527    9650  11101
 )PJ6     67310    9490  11102
 )PJ7     70122    9934  11103
 )PJ8     70660    10327  11104
 )PJ9     70403    10133  11105
 )RTRN    70706    10352  11071
 )SPCL    70670    10336  11069
 )SYM     71072    10483  11081
 2SPACE   01220     753
 4SPACE   01217     752
 6SPACE   01216     751  5296
 8SPACE   01215     750
 AAAAA    00174    11220  11221  11221  11222  11222  11223  11223  11224  11224  11225  11225  11226  11226  11227  11227
                         11228  11228  11229  11229  11221  11221  11222  11222  11223  11223  11224  11224  11225  11225
                         11226  11226  11227  11227  11228  11228  11229  11229
 ADD1     14401    11136  9247
 ADDP     14126    11137  10154
 ADMASK   00462     367
 ADVANC   12211    5776  9256
 ALIST    03316    1936  5299  7387  7389  7432  7434  7805  7806  7896  7898  7946  8329  8632
 AMASK    00457     364  2772  2157  5444  5488  6316  6324  8142  8285  8355  8465
 AND      10772    11001  1964  9031
 APP2     15016    11138
 APPEND   07541    4288  4298  7539  9284
 APPLY    14663    11139  2550  4537  5309  5627  8640  8661  9293
 APROP    10011    11140  10223
 APSSOC   10042    11205  10373
 APVAL    10742    11004   110   378  7760  7761  9034  10648  10799
 APVAL1   10742    11005  9337  9474  9495  9545  9557  9599  9624  9633  9655  9939  10065  10138  10165  10332
                         10411  10435  10584  10837
 APVALD   00474     378
 ARG1     03317    1941  2375  2388  5612  5619
 ARG10    03330    1950  8703  8843
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0215
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 ARG11    03331    1951  8704  8841
 ARG12    03332    1952  8705  8839
 ARG13    03333    1953  8706  8837
 ARG14    03334    1954  8707  8835
 ARG15    03335    1955  8708  8833
 ARG16    03336    1956  8709  8831
 ARG17    03337    1957  8710  8829
 ARG18    03340    1958  8711  8827
 ARG19    03341    1959  8712  8825
 ARG2     03320    1942  4430  4431  4437  4439  4584  4602  5613
 ARG20    03342    1960  4594  8713  8823
 ARG3     03321    1943  2507  2533  2544  2545  4176  4236  4438  4450  4529  4532  4533  4534  5062  5317
                         5437  5595  5624  6134  6141  6410  6424  6465  6476  6485  6500  6522  6528  6544
                         6955  6967  7259  7264  7275  7297  7314  7330  7350  7396  7405  7589  7613  7729
                         7730  7863  7897  8100  8433  8633  8696  8857
 ARG4     03322    1944  2509  2531  2539  2542  2548  4234  5053  6143  8697  8855
 ARG5     03323    1945  6145  8698  8853
 ARG6     03324    1946  8699  8851
 ARG7     03325    1947  8700  8849
 ARG8     03326    1948  8701  8847
 ARG9     03327    1949  8702  8845
 ARRAY    10735    11006  1605  1606  6387
 ARREST   03752    2134  2127  2404  2443  8753
 ARYGET   13005    6127  6373
 ARYGTX   13043    6157  6372
 ARYLIS   03305    1922  1598  6358  6360
 ARYMAK   13113    6226  9308
 ATMASK   00463     368
 ATOM     10725    11007  9036
 ATOMP    15230    11141  9317
 ATTRIB   10134    4613  9326
 AWHOA    03763    2144  2138
 BACACT   01654    1052  1014  1016  1044
 BACD     01646    1044  1020  1050
 BACE     01667    1060  1049
 BACER    01650    1047  1015
 BACTD    01644    1042  1026
 BBBBB    00000    11221  11233
 BBT      02300    1341  1243  1293  1313
 BCDAD1   05313    3039  3048  3095  4663
 BCDIN    00000     731  3555  4718  5795
 BCDOUT   00364     852   464   967  1012  1048  1105  1140  1154  1328  1752  1828  2971  2998  3358  3438
                         3591  3758  4479  4487  4734  4739  4744  4759  4928  4933  5001  5032  5077  5157
                         5211  5269  5322  5332  5353  5713  5833  5836  5839
 BCONAT   00473     376  1910
 BEGBLK   03304    1919  1914
 BEX      01624    1026  1024  1041
 BFS      02276    1339  1236  1241  1246  1257  1262  1275  1286  1297
 BFW      02302    1343  1248  1277  1279  1308
 BIN      10135    11028   379
 BIND     00475     379   380
 BKOR     04010    2172  2215
 BLANKS   00472     375  3031  3032  2324  3132  3139  3763  4991  5004  5028  5181  5790
 BLKB     04022    2182  2170  2173
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0216
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 BLKBB    04030    2188  2177  2185
 BLKC     04023    2183  2174
 BLKETP   04016    2178  1221
 BLKOUT   04044    2206  2178
 BLKX     04026    2186  2168  2209
 BLOCKR   04004    2168  6294
 BOTTOM   00144     126   417   126   128   131   485   502  5197
 BRKOUT   05311    3028  2966
 BSR      00355     287   221   242   467   549
 BSRECL   00366     417   126   133   485   502
 BUCKET   66427    9016  9017  3669  3724
 BUCKNO   06535    3734  3665
 BUFFER   07325    4134  3753  3764  3790
 BUKSRT   06417    3656  1528
 BUTCH    71652    11211
 BUTCHL   05766    11212
 CAAAR    10615    11089  9044
 CAAARX   11672    5518  9398
 CAADR    10605    11090  9045
 CAADRX   11705    5530  8523  9407
 CAAR     10655    11085  9040
 CAARXX   11726    5549  9362
 CADAR    10575    11091  9046
 CADARX   11712    5536  8263  9416
 CADDR    10565    11092  9047
 CADDRX   11721    5543  9425
 CADR     10635    11087  9042
 CADRXX   11730    5552  8476  8532  9380
 CAR      10675    11011  9038
 CARP     15212    11142  8516  9344  10232
 CCCCC    00000    11222  11233
 CDAAR    10555    11093  9048
 CDAARX   11732    5555  9434
 CDADR    10545    11094  9049
 CDADRX   11744    5565  9443
 CDAR     10645    11086  9041
 CDARXX   11765    5585  9371
 CDDAR    10535    11095  9050
 CDDARX   11751    5571  9452
 CDDDR    10525    11096  9051
 CDDDRX   11760    5579  9461
 CDDR     10625    11088  9043
 CDDRXX   11767    5588  9389
 CDR      10665    11012  9039
 CDRP     15222    11143  8437  9353
 CELL     00000    11144  11144
 CGET     10047    11035  9139
 CHACT    12635    11145  9477
 CHKSUM   00532     411   413   414   415   417   135   137   194   200   201   208   227   444   476
 CLEAR    12201    11146  9482
 CNSFWL   02420    1461  1321
 CNSX     03747    2130  2115
 CNTA     04064    2229  2225
 CNTB     04076    2239  2228
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0217
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 CNTM     04107    2252  2136  2141  2160  2162  2226  2247
 CNTMSK   00467     372  8819
 CNTR1    03742    2125  2129  2149  2158  2227  2234  2246  2402  2406  2441  2445  5443  5451  5487  5491
                         8751  8755
 CNTS     04106    2251  2137  2140  2159  5445  5453  5489  5493
 CNTST    04100    2241  2145  2161  2233
 CNTX     04074    2237  2229
 CNTY     04075    2238  2230
 COMAND   00363     293   252
 COMMA    06222    11013
 COMMON   77662      94   103   717  2354  4123   103   717   799   805   812   814   817   820   824   825
                          845   895   901   905   912   913   914   915   920   928   935   939   947   954
                          957  1076  1082  2354  3179  3185  3188  3191  3199  3202  3206  3211  3213  3221
                         3222  3224  3226  3228  3232  3236  3245  3248  3263  4123  6556  6561  6578  6579
                         6759  6760  6790  6791
 COMPAT   12007    5610  2452  2457  2516  2525  4364  4388
 COND     10460    11014  1986  7563  8073  8074  9052
 CONS     03730    2115  1038  2489  2546  3383  3712  3715  3718  3721  4163  4263  4304  4335  4668  4670
                         4673  4676  5387  5390  5467  5620  5749  5756  5923  5990  6334  6336  6339  6344
                         6347  6359  6481  6488  7311  7313  7536  7543  7565  7732  7735  8061  8117  8292
                         8295  8380  8382  8500  8504  8520  8527  8530  8579  9511
 CONSN    10450    11015  9053
 CONSW    03710    2096  1492  1502  1521  4151  4666  5747  5754  5987  6342  8286
 CONTIN   00174     151  11220    47  5247
 COPY     04345    11147  9529
 COPYN    10430    11018  1979  9054
 COUNT    04057    2224  9538
 CP1      07343    11148  3710  9520
 CPPI     02317    1371  1025  1034  1040  1224  1373  1382  1389  1444  1549  1594  2371  2374  2412  2424
                         2674  2981  5457  5474  5482  7821  7841  7844  7865  7875  8783  8788  8798  8800
                         8808  8861  8870
 CRITWN   00402    1885  1711
 CSSI     02413    1446  1225  1443  1592
 CSWO     03723    2107  2105
 CSWQ     03726    2110  2099  2107  2193  2197
 CSWX     03724    2108  2096
 CTG      04110    2253  2139
 CURC     12634    11149  9554
 CURC1    12633    11150  9546
 DCT      01676    1065  2316  3667  6472  7212
 DDDDD    00001    11223  11233
 DEBUGI  000004B   4824  1556
 DECON    04111    11151
 DIFFER   13512    6519  9568
 DIGIT    12337    11152  9579
 DIVIDE   13420    6450  9588
 DMASK    00460     365  4305  4681  3717  5562  5989  8262  8290  8490  8515
 DMPCB    67455    9603
 DUMP     00000    11016  9055
 DUMPXX   10736    5048  9606
 DUMPYY   10760    5067
 ECONAT   00000     409  1910
 EEEEE    00001    11224  11232
 END0     02403    1429
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0218
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 END1     02401    1427  6019  6032  6045  7413  7961  8160  8654
 END10    02357    1409
 END11    02355    1407
 END12    02353    1405
 END13    02351    1403
 END14    02347    1401
 END15    02345    1399
 END16    02343    1397
 END2     02377    1425  2478  2700  3370  4153  4188  4293  6830  7387  7432  7577  7805  7896
 END3     02375    1423  2585  4356  7257  7635  7658  7928
 END4     02373    1421  4251  4380  7458  8026
 END5     02371    1419  2461  2503  8036
 END6     02367    1417
 END7     02365    1415
 END8     02363    1413  5432
 END9     02361    1411
 ENDBLK   03710    2091  1914
 ENDEND   00014    11238
 ENDPDL   02414    1447  1231  1289  1547  2373  7843  8862
 ENDRED   12273    5826  9615
 EQ       10261    11020  6699  9060  9644
 EQP      15445    11153
 EQUAL    04461    11154  4180  4277  8493  9662
 ERAC     01556     988  1845
 EREXIT   11665    5506  5512   994  1045  5461
 ERIND    01560     990   996
 ERM      01661    1055  1004
 ERMQ     01557     989   995
 ERN      01664    1058  1010
 ERNULL   11664    5505   993  5438
 ERO      01656    1054  1013
 EROR1    12346    11155  9680
 ERROR    01562     992  1005  1067  1068  1086  1108  1171  1172  1197  1198  1448  1449  1822  1844  1847
                         2147  2151  2767  2770  3355  3361  3441  3442  3563  3594  3756  3761  4337  4338
                         4341  4342  4596  4597  5660  5661  5845  5846  6202  6204  6366  6369  6551  6553
                         6968  6969  7417  7419  7480  7483  7601  7603  7623  7625  7792  7794  7936  7939
                         8120  8124  8218  8220  8343  8347  8452  8454  8538  8539
 ERROR1   02071    1197  9671
 ERRORI  000010B   4766  1000  1833
 ERRSET   11560    5430  9689
 ERSETO   10211    11132   392  5503  9239
 ERT      01655    1053  1002  1017
 ERX      01561     991   997   998
 EVAL     15454    11156  5464  7569  7586  7642  7665  8086  8093  8161  9700
 EVALQ    11310    11157
 EVALQT   11421    5340
 EVAND    15370    11158  9275
 EVCON    15154    11159  9502
 EVLIS    15774    11160  6020  6033  6046  6831  9709  9883
 EVLISL   10167    11024  1991  7925  9064
 EVOR     15416    11161  10100
 EVQERR   11423    5345  5506
 EVQRTS   11516    5409  1555  5271  5292  5349  5351
 EXPR     10157    11025  5369  5370  7363  7364  7724  7725  8624  8625  9065
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0219
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 EXPT     13530    11162  9724
 F        06155    11009
 F1       10762    11002  1968  9032
 F12      10440    11017  1982  9056
 F13      07226    11062  2045  9111
 F16      10015    11037  9078
 F17      06726    11078  2059  9131
 F18      10752    11003  9033
 F19      10177    11023  9063
 F2       07415    11053  9100
 F21      10231    11022  9062
 F27      06671    11080  9134
 F29      10715    11008  9037
 F3       07544    11047  9092
 F30      06716    11079  9132
 F32      10152    11026  9066
 F34      07002    11076  9122
 F35      10420    11019  9057
 F36      06642    11084  9137
 F4       07320    11058  2730  9105
 F8       10241    11021  2648  9061
 FEXPR    10142    11027  5374  5375  7726  7727  8626  8627  9067
 FFFFF    00001    11225  11232
 FIX      10135    11029  5994  5995  6982  6986  7131  7132  9068
 FIXD     00475     380  5972  6944  5972  6944  2146  2163  3775  6564  6567
 FIXFLO   14550    7131  6418  6467  6524  6545  6852  6867  6882  6912  7000  7060  7073  7102  7122  7206
 FIXP     14466    11163  9745
 FIXVAL   13075    6192  2232  5056  5060  5063  5441  6095  6152  6163  6166  6172  6175  6251  6258  6264
 FLAPCX   00200     160  4752
 FLAPCY   00201     161  4754
 FLAPCZ   00177     162  1080  1137  4714  4756
 FLAPTR   01707    1076   158
 FLOAT    10120    11030   381  5997  5998  6983  7133  7134  9070
 FLOATD   00476     381  3403  5970  6437  6943  7224  3783  6571
 FLOATP   14453    7055  9760
 FLONAM   05500    3162  2811
 FLOTOL   14623    7184  2641  7101
 FLXT     01717    1084  1069  1070  1078  1079  1092
 FNARGD   00500     383  7338  7544
 FPTA     01722    1087  1072
 FPTAC    01757    1113  1089
 FPTAD    01760    1114  1091
 FPTD     01763    1116  1099
 FPTDV    01765    1119  1071  1085  1098
 FPTF     01761    1115  1097
 FPTGNR   01706    1074  1065  1083
 FPTLO    01754    1111  1096
 FPTTY    01751    1110  1101  1103  1106
 FREE     03751    2132  1302  1667  1830  2116  2122  2393  2398  2433  2437  4207  4211  8747  8765  8774
 FROUT    04037    2200  2118  2395  2435  4209  8749
 FRX      04042    2203  2200
 FSUBR    10103    11031   382  1475  1476  5372  5373  7722  7723  8460  8461  8620  8621  9072  9273  9500
                         9779  9808  9837  9881  9908  9917  9926  9973  9982  10098  10152  10203  10230  10398
                         10510
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0220
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 FSUBRD   00477     382
 FUNARG   10076    11032   383  9073
 FUNCT    10071    11033  9074
 FWLOR    03711    2097  2198
 FWLOUT   04031    2193  2098
 FWORDL   03727    2111  1310  1684  1831  2097  2101  2104  2181  2211
 GCPDLC   03216    1873  1577  1596  1748
 GENSYM   10174    4661  9792
 GETTM    00000     977   977
 GGGGG    00001    11226  11232
 GO       10037    11036  2003  9076
 GOGOGO   16276    8149  9810
 GRTRTP   14433    7024  7039  9819
 H00      06127    10937   400  5815  5857  9141
 H00A     00521     400  5938  3780
 H01      06130    10938   396  9142
 H02      06131    10939   396  9143
 H03      06132    10940   397  9144
 H04      06133    10941   397  9145
 H05      06134    10942   398  9146
 H06      06135    10943   398  9147
 H07      06136    10944   399  9148
 H10      06137    10945   399  9149
 H11      06140    10946   403  9150
 H11D     00524     403  5941
 H12      06141    10947   401  9151  9626  10586
 H12A     00522     401  5939
 H13      06142    10948  9152  9657
 H14      06143    10949   404  9154
 H14D     00525     404  5942
 H15      06144    10950  9153
 H16      06145    10951  9155
 H17      06146    10952  9156
 H20      06147    10953  9157  10167
 H21      06150    10954  9158
 H22      06151    10955  9159
 H23      06152    10956  9160
 H24      06153    10957  9161
 H25      06154    10958  8473  8474  9162
 H26      06155    10959  11009  11009  9163
 H27      06156    10960  9164
 H30      06157    10961  9165
 H31      06160    10962  9166
 H32      06161    10963  9167
 H33      06162    10964   405  9168  10140
 H33D     00526     405  3413
 H34      06163    10965   406  9169  10334
 H34D     00527     406  3412
 H35      06164    10966  9170
 H36      06165    10967  9171
 H37      06166    10968  9172
 H40      06167    10969   407  9173  9559
 H40D     00530     407  5943
 H41      06170    10970  9174
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0221
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 H42      06171    10971  9175
 H43      06172    10972  9176
 H44      06173    10973  9177
 H45      06174    10974  9178
 H46      06175    10975  9179
 H47      06176    10976  9180
 H50      06177    10977  9181
 H51      06200    10978  9182
 H52      06201    10979  9183
 H53      06202    10980  9184  9601
 H54      06203    10981  9185  10437
 H55      06204    10982  9186
 H56      06205    10983  9187
 H57      06206    10984  9188
 H60      06207    10985  9189  9339
 H61      06210    10986  9190  10413
 H62      06211    10987  9191
 H63      06212    10988  11010  11010  9192
 H64      06213    10989  9193
 H65      06214    10990  9194
 H66      06215    10991  9195
 H67      06216    10992  9196
 H70      06217    10993  9197
 H71      06220    10994  9198
 H72      06221    10995   402  9199  9635  10839
 H72A     00523     402  5940
 H73      06222    10996  11013  11013  9200  9497
 H74      06223    10997   408  9201  9941
 H74D     00531     408  3411
 H75      06224    10998  9202
 H76      06225    10999  9203
 H77      06226    11000  9204
 HH00     71170    10559  10930
 HH01     71171    10561  10929
 HH02     71172    10563  10928
 HH03     71173    10565  10927
 HH04     71174    10567  10926
 HH05     71175    10569  10925
 HH06     71176    10571  10924
 HH07     71177    10573  10923
 HH10     71200    10575  10922
 HH11     71201    10577  10921
 HH12     71202    10580  10920
 HH13     71211    10588  10919
 HH14     71215    10593  10918
 HH15     71221    10598  10917
 HH16     71225    10603  10916
 HH17     71231    10608  10915
 HH20     71235    10613  10914
 HH21     71241    10618  10913
 HH22     71245    10623  10912
 HH23     71251    10628  10911
 HH24     71255    10633  10910
 HH25     71261    10638  10909
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0222
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 HH26     71265    10643  10908
 HH27     71275    10652  10907
 HH30     71301    10657  10906
 HH31     71305    10662  10905
 HH32     71311    10667  10904
 HH33     71315    10672  10903
 HH34     71321    10677  10902
 HH35     71325    10682  10901
 HH36     71331    10687  10900
 HH37     71335    10692  10899
 HH40     71341    10697  10898
 HH41     71345    10702  10897
 HH42     71351    10707  10896
 HH43     71355    10712  10895
 HH44     71361    10717  10894
 HH45     71365    10722  10893
 HH46     71371    10727  10892
 HH47     71375    10732  10891
 HH50     71401    10737  10890
 HH51     71405    10742  10889
 HH52     71411    10747  10888
 HH53     71415    10752  10887
 HH54     71421    10757  10886
 HH55     71427    10764  10885
 HH56     71433    10769  10884
 HH57     71437    10774  10883
 HH60     71443    10779  10882
 HH61     71447    10784  10881
 HH62     71453    10789  10880
 HH63     71457    10794  10879
 HH64     71467    10803  10878
 HH65     71473    10808  10877
 HH66     71477    10813  10876
 HH67     71503    10818  10875
 HH70     71507    10823  10874
 HH71     71513    10828  10873
 HH72     71517    10833  10872
 HH73     71526    10841  10871
 HH74     71532    10846  10870
 HH75     71536    10851  10869
 HH76     71542    10856  10868
 HH77     71546    10861  10867
 HHHHH    00001    11227  11231
 II1      67043    9305  11006  9035
 II10     71160    10544  9138
 II11     67650    9742  9069
 II12     67665    9757  9071
 II13     70264    10044  9096
 II14     66755    9244  9029
 II15     71035    10450  9130
 II16     70214    9999  9091
 II18     70562    10258  11135  9112
 II3      67751    9816  9077
 II4      70032    9871  9082
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0223
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 II7      70164    9972  11044   394  9088
 II8      70174    9981  11046   394  9089
 II9      70323    10079  9098
 IIIII    00000    11228  11231
 IJ01     67413    9565  9058
 IJ02     67435    9585  9059
 IJ03     70540    10238  9110
 IJ04     70604    10278  9116
 IJ05     70510    10211  9108
 INPUT    00663    11164  3554  4717  5794
 INTER    16130    11165  10205
 INTERN   06421    3658
 INTRN1   06420    3657  3511  5659  9830
 JJJJJ    00000    11229  11231
 LABEL    10005    11038   384  9079
 LABELD   00501     384  7336
 LABP     15264    11166  9839
 LAMBDA   07775    11039   385  9080
 LAMDAD   00502     385  7337
 LAMP     15250    11167  9781
 LAP      07770    11040  9081
 LBINPG   02305    1346  1216  1250  4905
 LBT      02311    1350  1240  1242  1260
 LCH      00362     292   178   446  5202
 LESSTP   14443    7038  9874
 LFREES   02310    1349  1233  4914
 LFULWS   02307    1348  1237  1247  4911
 LIST     07736    11041  6245  6246  9083
 LITER    12321    11168  9892
 LOAD     77724     301   149
 LOADA    07716    11042  9084
 LOADER   77724      98   301   301  9901  11214
 LOGAND   12676    6027  9910
 LOGOR    12662    11169  9919
 LOGXOR   12712    6040  9928
 LOWARY   03721    2105  2212
 LOWERP   66230    8881  1338
 LOWREG   00537     418   147   147   487   487   504   504
 LPBPDL   02306    1347  1227  1249  4908
 LRTAPE   00202     167   146   501   503
 LSHIFT   12760    6090  9863
 LWTAPE   00537     420   484   486
 MAGMSK   00456     363
 MAP      07620    11171
 MAPCAR   07620    4353  11171  9946
 MAPCON   07645    4377  4395  9955
 MAPLIS   04214    2369  4314  6227  7860  7931  8047  9964
 MAX      14150    11170  9975
 MAXP     07614    11044  6824
 MFS      02275    1338  1300
 MIN      14142    11172  11175  9984
 MINP     07604    11046  6817
 MINUS    07574    11045  9090
 MINUSP   14500    7081  10002
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0224
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 MKNAM    12147    11173  10011
 MKNO     12636    11174  2150  2164  3785  6068  6107  6477  6486  6504  6531  6574  6942  7008  7195  7217
                         8346  8377
 MNSPRG   14624    7189  9993
 MRKLST   03066    1782  1280  1284  1557  1584  1586  1658
 MULT     14142    11175  10512
 NCONC    07675    11176  6354  7285  10020
 NIL      00000    11048  9093
 NILLOC   77644     108
 NILSXX   77640     104  11212   157
 NOBACT  000200B   1051  1019
 NOPDL    02415    1448  1372
 NOT      07534    11049  9094
 NOTS     10150    11177  10029
 NROOM    04056    2216  2169  2208  2214
 NUBPDL   11670    5509  1022  1226
 NULL     07524    11050  9095
 NULLP    15243    11178  10038
 NUMBR    06622    11179  3766  4903  4906  4909  4912  4952  4956  4959
 NUMBRP   14445    7046  8212  8443  10047
 NUMNAM   04115    2275  2795
 NUMOB    12071    11180  10058
 NUMVAL   14342    6954  6060  6102  6397  6403  6841  6995  7047  7057  7070  7082  7094  7116  7190  7200
                         8223  8438
 NUTRN    06543    11181  3510
 OBLANK   00452     359  1009  1095  1135  1151  1740  4993
 OBLB     66430    9028  1320
 OBLBA    07472    11051  9097
 OBLIST   66427    9017  1553  10067
 OCT      07462    11134   386
 OCTALP   11021    5112  1008  1088  1090  1094  1134  1143  1145  1149  1739  2886
 OCTD     00503     386  3771  5695  6067  6106  8345  8376
 ONEP     14533    11182  10082
 OPCHAR   12333    5865  10091
 OR       07435    11052  2029  9099
 ORG      02304    1345  1215  2171  2179  8227  8250  8429
 OUTPUT   01222     761   463   966  1011  1047  1104  1139  1153  1327  1751  1827  2970  2997  3103  3357
                         3437  3590  3757  4478  4486  4733  4738  4743  4758  4927  4932  5000  5031  5076
                         5156  5210  5268  5321  5331  5352  5712  5832  5835  5838
 OVBGN    10220    11183
 OVLTXX   00651     497  5113
 OVRLRD   10230    4717   153  1169  1836  4730  4736  4790  4823  4852  4855  4886  4922  4930  4935  5046
                         5159  5216  5260
 PACK     12032    11184  10109
 PAIR     07562    11185  10118
 PAUSE    07405    11054  9101
 PAUSEF   01554     979  10127
 PDMASK   00464     369
 PDTMSK   00465     370  2235  2236  5452  5492
 PJ1      10410    11098  9205
 PJ10     10333    11106  9213
 PJ11     07345    11107  9214
 PJ12     10705    11108  9215
 PJ14     07012    11109  9216
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0225
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 PJ15     06765    11110  9217
 PJ16     10375    11111  9218
 PJ17     07726    11112  9219
 PJ18     07445    11113  9220
 PJ19     10353    11114  9221
 PJ2      11013    11099  9206
 PJ21     06755    11115  9222
 PJ23     06701    11116  9223
 PJ24     07425    11117  9224
 PJ25     07502    11118  9225
 PJ26     07554    11119  9226
 PJ27     10502    11120  9227
 PJ28     07462    11121  11134  11134  9228
 PJ30     10313    11122  9229
 PJ31     06630    11123  9230
 PJ32     10515    11124  9231
 PJ33     07330    11125  9232
 PJ34     10301    11126  9233
 PJ35     10271    11127  9234
 PJ36     07676    11128   392  9235
 PJ37     07706    11129   393  9236
 PJ38     07666    11130   393  9237
 PJ39     07310    11131  9238
 PJ4      10221    11100  9207
 PJ5      10251    11101  9208
 PJ6      10470    11102  9209
 PJ7      07656    11103  9210
 PJ8      07120    11104  9211
 PJ9      07375    11105  9212
 PLB      07365    11055  9102
 PLUS     07355    11056   395  6803  9103
 PMAPCA   07646    11043  2014  9085
 PMASK    00461     366  1028  5476
 PNAME    07335    11057   104   113   377   387  1477  1478  2777  2778  3687  3688  9104  9248  9257  9265
                         9276  9285  9294  9300  9309  9318  9327  9333  9345  9354  9363  9372  9381  9390
                         9399  9408  9417  9426  9435  9444  9453  9462  9468  9483  9491  9503  9512  9521
                         9530  9539  9547  9560  9569  9580  9589  9595  9607  9616  9627  9636  9645  9651
                         9663  9672  9681  9690  9701  9710  9716  9725  9731  9737  9746  9752  9761  9767
                         9773  9782  9793  9802  9811  9820  9831  9840  9846  9855  9864  9875  9884  9893
                         9902  9911  9920  9929  9935  9947  9956  9965  9976  9985  9994  10003  10012  10021
                         10030  10039  10048  10059  10068  10074  10083  10092  10101  10110  10119  10128  10134  10146
                         10155  10161  10170  10179  10188  10197  10206  10215  10224  10233  10242  10253  10262  10271
                         10282  10293  10304  10313  10322  10328  10337  10345  10353  10363  10374  10383  10392  10401
                         10407  10419  10425  10431  10443  10454  10460  10469  10478  10484  10493  10502  10513  10519
                         10528  10539  10548  10580  10588  10593  10598  10603  10608  10613  10618  10623  10628  10633
                         10638  10644  10652  10657  10662  10667  10672  10677  10682  10687  10692  10697  10702  10707
                         10712  10717  10722  10727  10732  10737  10742  10747  10752  10757  10764  10769  10774  10779
                         10784  10789  10795  10803  10808  10813  10818  10823  10828  10833  10841  10846  10851  10856
                         10861
 PNAMEA   00473     377
 PNAMED   00504     387  3739  4680
 POWR     13572    11186  6570
 PPTIND  000040B   4887  3108  4863  4868
 PPTOUT   00363     853  3104
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0226
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 PRGVAR   03447    8136  7590  7614
 PRIN0    04620    11187
 PRIN1    04703    11188  10178
 PRIN2    05110    11189  2340  2344  8012  8014  10196
 PRINAR   07745    4468  5304
 PRINT    04604    11190  1018  1043  1163  4482  4485  5054  5325  5356  7984  7991  8016  8019  8235  10187
 PRINT2   05104    2913  7981
 PRINTC   05231    2998
 PRINTD   05176    2971
 PRINTL   03453    2047  2677  2680  3059  3062
 PROG     07300    11059  2039  9106
 PROP     10011    11191  5597
 PROPO    07260    11060  9107
 PRPLCA   07140    11064  9114
 PRPLCD   07130    11065  9115
 PSHLDB   01371     856  10145
 PTAMSK   00466     371  1158
 PUN2     05341    11192
 PUNACT   05461    3154  3054  3121  3123
 PUNCH    05325    11193  10214
 PVV1     70020    9860  11133
 PVW1     07760    11133  9240
 Q1       00371     307  1222  1235  1239  1244  1725  1729  1773  2176  2844  2965  4963  5817  6270  6276
                         6297  6566  7013  7014  7125  8354
 Q10      00402     316  1885  2288  3777
 Q12      00403     317  3613
 Q128     00415     327   341  3318
 Q13      00404     318
 Q14      00405     319
 Q17      00406     320
 Q2       00372     308
 Q20      00407     321   764  1229
 Q21      00410     322   332
 Q22      00411     323
 Q233Q9   00433     344  7176
 Q3       00373     309
 Q36      00412     324  5959
 Q4       00374     310  6308
 Q5       00375     311  5885  6289
 Q6       00376     312  3610
 Q63      00413     325   340  3317  5911
 Q64      00414     326  2831
 Q7       00377     313  3535
 Q777Q9   00434     345  7175
 Q8       00400     314
 Q9       00401     315  5177
 QD1      00442     351  4569  4636  7520  7676  8028  1303  1316  2592  2613  3604  5860  5873  7031  7049
                         7064  7076  7108  8144  8165  8564  8786
 QD2      00443     352
 QD20     00447     356
 QD21     00450     357
 QD5      00444     353
 QD6      00445     354  4977
 QD7      00446     355
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0227
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 QF1      00454     361  7011  7012  7124  7208
 QO14     00416     328  4103  3531
 QO17     00417     329   461  5173
 QO1Q9    00432     343
 QO20     00420     330  3319  4102   457
 QO200    00415     341  6661  6661
 QO22     00421     331  4100
 QO25     00410     332  3320  4099  3320  4099
 QO2Q11   00435     346  6664
 QO33     00422     333  3316  4098
 QO33Q2   00431     342   960
 QO40     00423     334  2352  3321  4097  3533
 QO41     00424     335
 QO43     00425     336
 QO50     00426     337  4101
 QO60     00427     338   958  3322  4096   809
 QO61     00430     339   959
 QO77     00413     340
 QP5      00451     358  1029  5477
 QSPECD   00507     390  8514  8529
 QSYMD    00510     391  8215
 QT1      00436     347  2630  5996  6197
 QT2      00437     348  2789  5999
 QT4      00440     349  2792
 QT5      00441     350  5993
 QUOTE    07250    11061   388  8479  8480  9109
 QUOTED   00505     388  3402
 QUOTEN   13427    6459  10241
 RCEXIT   03040    1756  1735
 RCH      00361     291   192   436   539   747   779  5200
 RCLAM    07206    11063  9113
 RCPPRG   14633    7198  10261
 RCRLOC   03220    1876  2195  2201  2206
 RCSGNL   03270    1902  1543
 RCSGNM   03271    1903  1666
 RCSGNN   03272    1904  1705
 RD       06026    11194
 RDS      00350     282   189   239   515  5198
 READ     05732    11195  5275  10252
 READ1    05757    11196
 RECIP    07216    11135
 RECLAM   02522    1536  2196  2202  2210  8773  10270
 REMAIN   13423    6454  10281
 REMPP    07162    11097  9140
 REMPRP   07714    4429  10292
 RESETP   02074    1209
 RESTOR   17454    8870  8337
 RETATM   00000    11066  9117
 RETURN   16272    8142  10303
 REW      00352     284   148   241   489   505
 RPLACA   10155    4642  10312
 RPLACD   10164    4649  10321
 RPLACW   10170    4653
 RTX      00702     732   516
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0228
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 SASCO    00000    11067  9118
 SASSOC   10042    4543  11205  7399  7592  7615  8102  8435
 SAVE     02312    1366  2477  2502  2584  2699  3369  4152  4187  4250  4292  4355  4379  5431  6018  6031
                         6044  6829  7256  7386  7412  7431  7457  7576  7634  7657  7804  7895  7927  7960
                         8035  8159  8653
 SAVI     02337    1388  1386
 SAVJ     02336    1387  1384
 SAVK     02342    1391  1385
 SAVT     02407    1434  1368  1381  1429
 SAVY     02405    1431  1366  1379
 SAVZ     02404    1430  1367  1380
 SBIT     00455     362   847  4095  4018
 SDN      00354     286   246   247
 SEARCH   04400    2501  4239  10382
 SET      07032    11073  6138  6139  9120
 SETERR   02257    1327  1252
 SETP     15346    11197  10391
 SETQ     07022    11074  2055  9121
 SETQP    15311    11198  10400
 SETUP    02077    11199  4915
 SEVENS   00471     374  1880  1881  3323  5849  2337  2853  2926  3499  5663  5678  6035
 SLF      01410     881
 SLIST    07061    11068  9128
 SLN1     01404     877
 SLN2     01405     878
 SLN3     01406     879
 SLN4     01407     880
 SLT1     01411     882
 SLT2     01412     883
 SLT3     01413     884
 SLT4     01414     885
 SMOVE    07101    11070  9126
 SPACEX   01200     737  5295
 SPEAK    03774    2157  10418
 SPECAL   07110    11069   390  8512  8513  9129  9553
 SPPERR   10122    4596
 SPREAD   10072    4572  5403  7383  7900
 SRCH     07042    11072  2049  9119
 SRCMPT   04452    2544  2540
 SRETUR   07072    11071  9127
 STOP     06772    11075  5411  9123
 STRA     02046    1176  1128  1142  1156
 STRAMA   02064    1185  1144
 STRAMB   02065    1186  1146
 STRBTM   02032    1161  1258
 STRD     02050    1178
 STREAD   12221    5784  10442
 STREX    02037    1167  1126
 STRF     02035    1164  1159  1160  1161
 STRM     02055    1182  1136
 STRMC    02070    1188  1152
 STRMD    02060    1184  1155
 STRN     02053    1181  1141
 STRO     02007    1142
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0229
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 STRPNT   01766    1125  8721
 STRQ     02047    1177  1129
 STRT     02051    1179  1125  1130  1166
 STRTOP   02031    1160  1256
 STRX     02035    1165  1127  1147
 STRXT    02052    1180  1132
 SUB1     14430    11200  10453
 SUBLIS   07445    4224  4257  4261  10468
 SUBR     06733    11077   389  1473  1474  5367  5368  7361  7362  7720  7721  8458  8459  8618  8619  9124
                         9245  9254  9282  9291  9306  9315  9324  9342  9351  9360  9369  9378  9387  9396
                         9405  9414  9423  9432  9441  9450  9459  9480  9509  9518  9527  9536  9566  9577
                         9586  9604  9613  9642  9660  9669  9678  9687  9698  9707  9722  9743  9758  9790
                         9799  9817  9828  9852  9861  9872  9890  9899  9944  9953  9962  9991  10000  10009
                         10018  10027  10036  10045  10056  10080  10089  10107  10116  10125  10143  10176  10185  10194
                         10212  10221  10239  10250  10259  10268  10279  10290  10301  10310  10319  10371  10380  10389
                         10416  10440  10451  10466  10475  10490  10499  10525  10536  10545
 SUBRD    00506     389  6388
 SUBST    07367    11201  10477
 SWPFWS   02730    1684  1676
 SWT1     01376     868   514   529
 SWT2     01377     869
 SWT3     01400     870   782
 SWT4     01401     871
 SWT5     01402     872   737   774
 SWT6     01403     873  1167
 SYM      06706    11081   391  8283  8284  8456  8457  9135  9269  10349  10359  10367  10761
 SYMGEN   10057    11034  9075
 SYSIND   10340    4796   999  1001  1554  1832  1834  3107  3109  4713  4762  4764  4821  4848  4850  4854
                         4869  4916  4921  4924  4926  5145
 SYSPIT   00365     296   512
 SYSPOT   00364     295   852   741  4870
 SYSPPT   00363     294   853  4865
 SYSTAP   00367     298   144  5194
 SYSTMP   00366     297   455   460   482   499
 T        06212    11010
 TAGMSK   00470     373  1469  2619  2627  6973  8605  8606
 TAPASG   00370     299  5190
 TAPDMP   00633     480  4816  4831  4843  4860  4901  5139
 TAPIND  000100B   5255  4814  4829  4841  4862  5136  5144
 TBT      02277    1340  1234  1268
 TCO      00357     289   182   183   204   205   427   428   540   541   766   767  5196
 TCOUNT   11671    5510  2134  2144  2224  2245  5459
 TEF      00356     288   188   212   433   535   543
 TEMLIS   03304    1921  1566
 TERA2    11665    5512
 TEREAD   06311    3609   481  5345
 TERPDL   02410    1443  5348
 TERPRI   05214    2985  2679  2768  5346  5831  5841  7978  8010  10492
 TERPUN   05421    3121  3061  5347
 TFS      02274    1337  1232  1254  1273  1282
 TFW      02301    1342  1245  1264
 TIME     00000     976   976  1835  5267  5291  5330  10501
 TIMES    06657    11082   395  6810  9136
 TOPROG   17462    8878  1344
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0230
SYMBOL TABLE

 SYMBOL    ADDR    DEF            REFERENCES

 TPG      02303    1344  1214  1251
 TRACE    06647    11083  7359  7360  7718  7719  8622  8623  9125
 TRC      00360     290   187   211   432   448   545
 UNCONT   04101    2245  10527
 UNFIX    14565    11202
 UNPACK   12365    5904  10538
 UNSAVE   02326    1379  1031  2490  2527  2538  2587  2715  3381  3398  4161  4215  4264  4302  4371  4398
                         5479  5498  6021  6034  6047  6832  7266  7391  7436  7475  7596  7645  7669  7811
                         7902  7932  7949  7965  8131  8162  8662
 UNUMIX   13350    6395  6464  6521  6543  7025
 UPERML   71652    10931  1337
 VALUE    06533    11203  3748
 VERBOS   03267    1900  1734
 WALLPC   05310    3027  2676  2964  2969
 WEF      00353     285   243   488  4867  4872
 WRS      00351     283   240   434   746   777
 ZBLANK   00453     360   750   751   752   753
 ZERO     00370     306  4679  7339  7545  7677  8027   108   151  1021  3098  3424  3573  3711  5301  5456
                         5466  5614  6022  6048  6333  6335  6480  8051  8115  8519  8609
 ZEROP    14507    11204  10547
 ZZ069A   00000    9023  9087
 ZZ069B   00000    9022  9086
 ZZALST   00000    9021  9030
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0231
SYMBOL TABLE : HEAD B

 SYMBOL    ADDR    DEF            REFERENCES

 (IOS)    00276     233   300   145   203   483   500   513
 CALL     00673     517   511
 E        03472    2065  4224  4226  4229  4243  4247  4276
 F        07465    4240  4233  4235  4237
 FLTRA    00200     158   160   142
 INPUT    00663     509  11164
 INX4     00675     519   510   521
 IOSA     00320     251   254
 IOSBB    00347     277   245
 IOSX     00325     256   236
 IOSY     00324     255   237   253
 IOU      00346     276   302   233   238   251
 N1       07537    4282  4267  4278
 N2       07540    4283  4274  4275
 NF       07470    4243  4240
 NF1      07535    4280  4241
 NF2      07520    4267  4242
 P        03471    2064  4228  4238  4256  4260
 RCK      00263     217   207   209   210
 RTADR    00534     414   173   176   177   195   196   217   220
 RTIOC    00274     227   191
 RTIOD    00275     228   198
 RTIOU    00004     416   181   202
 RTLC     00234     193   197
 RTLCH    00535     415   179   193   199
 RTRD     00230     189   225
 RTRX     00533     413   168   169   213   214   222
 RTTWO    00205     170   175
 STRA     00201     159   161   140
 SU1      07451    4228  4225
 SU2      07455    4232  4230
 SU3      07477    4250  4246
 TPDMX    00647     492   480
 TPRTY    00637     484   491
 WAGN     00615     467   453
 WERC     00627     473   426   454   490
 WERM     00620     471   459   462   465
 WRCK     00576     452   447
 WTACL    00565     442   439
 WTAD     00561     438   423
 WTAG     00630     474   425   452   468
 WTIOC    00631     475   421   422   435   437   440
 WTIOD    00632     476   445
 WTWS     00555     434   469
 WTX      00574     449   424
 X1       03464    2059  4232  4248  4265
 X2       03465    2060  4252  4255
 X3       03466    2061  4254  4259
 X4       03467    2062  4251  4258  4262
 X5       03470    2063  4272  4280
 ZERC     00177     157   162
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0232
SYMBOL TABLE : HEAD C

 SYMBOL    ADDR    DEF            REFERENCES

 8L       77665     727   576   606   714
 8R       77666     728   578   612
 AFELD    16622    8418  8396  8398  8401  8405
 AINS     16602    8395  8386
 AINX     16620    8409  8395  8421
 ALST     16516    8329  9270
 AMBL     16572    8385  8369  8372
 B1       00747     564
 B10      01006     595
 B100     01165     706   699
 B11      01013     600
 B12      01154     697   602
 B13      00777     588   604
 B14      01000     589   618
 B15      01063     640   634
 B16      01104     657   651   705
 B17      01163     704   594   599
 B2       00757     572   556   566   657
 B200     01172     711   708
 B25      01160     701   588
 B3       00761     574   557   567   658
 B4       00770     581   568
 B40      01034     617   700
 B5       00762     575   572
 B50      01173     712   559   659
 B6       00773     584   581
 B7       01021     606   701
 B8       01003     592   703
 B9       01040     621   591   711
 BLR      01175     714   562
 C1       01110     661   571   580   603   617   633   650   707
 C10      01153     696
 C11      01150     693   674
 C2       01145     690   574   669
 C3       01144     689   583   605   620   639   656   670   710
 C4       01113     664   661   692   693   694
 C5       01126     675   671
 C6       01117     668   664
 C7       01127     676   663   665   675   691
 C8       01120     669   667
 C9       01111     662   696
 CA       12031    5628  5616  5623
 CD       12024    5623  5618
 CL       12017    5618  5622
 CMMND    01177     716   729   533   538   729
 CP1      07343    4144  11148  4157
 CR1      03361    1982  4145  4162
 CR2      03362    1983  4153  4154  4160
 CWRL     03363    1984  4148  4155  4158  4159
 CX       12026    5625  5610
 CY       12027    5626  5611
 ERCC     16517    8330  8447  8453
 FCN31    12005    5604  5594
 FDLST    17004    8536  8512  8513
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0233
SYMBOL TABLE : HEAD C

 SYMBOL    ADDR    DEF            REFERENCES

 FELX     17032    8558  8418  8430  8441  8466  8471  8478  8508  8543  8549
 FIND     16676    8462  8459
 FINX     16703    8468  8457
 FLOOP    16724    8486  8496
 GET      11771    5592  8216  8270  8517  9801
 GETL     12006    5605  5593  5596
 GETX     12003    5602  5592  5604
 H1       00710     533   530
 H2       00727     548   536   537   544   551
 H3       00714     537   552
 HOLD     16512    8325  8487  8495  8501  8506  8510
 INBP     16356    8227  8206  8209
 IND2     16451    8286  8283  8284
 INDC     16475    8308  8264  8266  8278  8281
 INST     16504    8319  8300  8368  8379  8420  8423
 JUST     16535    8352  8229  8399  8406
 L        77671     725   564   584   592   595   622   642   713
 LAN      17327    8778  8750  8756  8770  8772
 LAP      16321    8198  9854
 LAX      16470    8302  8198  8199
 LBPTP    16526    8342  1219  8239
 LCOM     16502    8315  8521  8526
 LDS      77665     721   727   608   623   640
 LEM      16631    8425  8550
 LEND     16464    8297  8248  8257  8280
 LER      17243    8719  8600  8607
 LFIX     17321    8772  8763
 LFX      17314    8767  8761  8775
 LINK     17061    8598   159
 LIST     16477    8312  8200  8242  8251  8297  8298
 LNAC     17250    8726  8646  8656
 LNARS    17206    8689  8636  8647
 LNDIS    17167    8672  8669
 LNEXP    17117    8628  8625
 LNFN     17247    8725  8631  8638  8659
 LNGN     17122    8631  8643
 LNKA     03417    2011  8598  8670  8685  8694  8720
 LNKB     03420    2012  8599  8671  8686  8695
 LNKC     17252    8728  8604  8608  8639  8651  8654  8664  8666  8683
 LNKD     17253    8729  8612  8642  8650  8690
 LNKP     17213    8694  8692
 LNLP     17101    8614  8626  8627  8657
 LNLX     17237    8714  8689  8717
 LNN      17241    8716  8691
 LNNF     17134    8642  8615
 LNRGL    17251    8727  8648  8660
 LNSBR    17171    8675  8619  8621
 LNTEN    17156    8662  8673
 LNTEX    17153    8659  8635
 LNTR     17136    8645  8623
 LNTRS    17246    8724  8611  8634  8645  8679
 LNTSB    17164    8669  8680
 LNTSX    17254    8730  8681  8682
 LOP1     16544    8363  8374  8384  8390
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0234
SYMBOL TABLE : HEAD C

 SYMBOL    ADDR    DEF            REFERENCES

 LOP2     16660    8448  8460  8461
 LOPL     17015    8545  8554
 LR       01174     713   561   575   589   609
 LS       77663     719   565   577   585   593   596   607   611   621   626   644   668
 LSAC     16520    8331  8432
 LSC      17275    8752  8739
 LSE      17320    8771  8746
 LSN      17261    8740  8738
 LSO      16353    8224
 LSP      17302    8757  8745  8764
 LSQ      16351    8222  8213
 LSR      17307    8762  8777
 LST      17255    8736  8336  8693
 LSTR     16524    8336  10368
 LX2      17316    8769  8736
 LZ       77667     723   610   625   641   715
 MKIND    16444    8281  8271
 MODE     16511    8324  8210  8228  8236  8247
 MOV      16523    8335  10350
 MOVD     17444    8860  8820  8822
 MOVE     17357    8807  8335
 MOVY     17364    8812  8807  8859
 NAME     16473    8306  8258  8267  8288
 NATM     16707    8473  8427
 NEVAL    16646    8438  8446
 NOCUR    16514    8327  8419  8536  8541  8555
 NON      16737    8497  8485
 NQT      16754    8512  8479  8480
 NTAB     16652    8442  8436
 NTE      16715    8479  8473  8474
 ONQT     16752    8510  8494
 PA       16670    8456  8451
 PASS     16543    8362  8233  8246
 PASWD    16510    8323  8232  8245  8373  8385
 PATCH    16476    8309  8276
 PAUX     16600    8391  8362  8364
 PH       17047    8572  8563
 PL       17046    8571  8565
 PMK      17053    8577  8568
 PNL      17042    8567  8571  8572
 PRO      17034    8561  8268  8533
 PROBE    16477    8311  1912
 PROEN    16503    8317  1912
 PROS     16503    8316  8566  8577  8580
 PTR      17060    8583  8562  8574  8578
 PX       17050    8573  8561  8581
 QTLST    16500    8313  8484  8503  8505
 R        77672     726   569   586   597   600   628   647
 RCD      00736     555
 RDBCD    00741     558   532
 RDS      77666     722   728   550   614   629   645
 REM      16515    8328  8544  8546  8553  8556
 REST     16505    8320  8204  8244  8363  8366
 RS       77664     720   570   579   587   598   601   613   616   627   632   649   666
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0235
SYMBOL TABLE : HEAD C

 SYMBOL    ADDR    DEF            REFERENCES

 RTRN     16525    8337  10360
 RTX      00702     527   732
 RTXBE    00734     553   542   548
 RTXX     00725     546   527   553
 RZ       77670     724   615   631   646
 SPP      17001    8533  8518
 STAR     16506    8321  8230  8238  8241  8249  8375  8387  8389  8397  8400  8404  8408  10762
 START    16507    8322  8231  8240  8265  8275
 STRW     17452    8866  8815  8863
 SUM      16513    8326  8542  8551  8552
 TAB      16501    8314  8201  8234  8299  8381  8383  8434
 TP       77662     718   635   637   652   654   672   673
 TRP      16750    8507  8511  8535
 TXLW     17453    8867  8811  8814  8816
 TYPE     16474    8307  8261  8269  8282  8294
 UND      17351    8798  8792
 UNF      17342    8791  8795
 UNG      17344    8793  8789
 UNH      17343    8792  8787  8797
 UNJ      17352    8799  8785
 UNR      17354    8801  8781  8782
 UNWND    17330    8781  1033  5481
 ZLR      01176     715   702
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0236
SYMBOL TABLE : HEAD A

 SYMBOL    ADDR    DEF            REFERENCES

 A        15153    7450  7351  7388  7398  7404  7433
 AGA      16076    7997  7976  7983  8008  8015
 AGM      16100    7999  7980
 AGO      16102    8001  8013
 AGQ      16077    7998  7977  7985  8009  8017
 AL       15152    7449  7352  7382  7406  7427
 APA      15144    7443  7423  7428
 APEXC    15136    7436  7415
 APNP1    07544    4291  4288
 APP2     15016    7349  11138  7272
 APPLY    14663    7238  11139  7268  7318  7334  7373  7410  7414  7744  7880  7964
 APSAL    15071    7395  7356
 APSES    15024    7355  7363  7364  7429
 APTRK    15121    7422  7360
 APTRT    15145    7444  7354  7370  7384  7407  7422
 APTSB    15131    7431  7385
 APTXP    15111    7412  7371  7408
 ARGOF    16050    7974  7426  7945  7959  8655
 AS1      03346    1968  4291  4303
 ASFUN    00500    7338  7250
 ASLBL    00501    7336  7253
 ASLMD    00502    7337  7247
 ASP1     14722    7270  7245
 ASP2     14725    7274  7249
 ASP3     14750    7295  7255
 ASP4     15000    7321  7252
 ASS1     03350    1971  7238  7242  7267  7271  7291  7317  7333  7380  7424
 ASSA     03352    1973  7257  7260  7263
 ASSL     03351    1972  7258  7265
 AST1     03353    1974  7240  7261  7270  7274  7295  7307  7316  7321  7325  7331  7349
 AST2     03354    1975  7296  7315
 AST3     03355    1976  7276  7284  7298  7312
 AST4     03356    1977  7280  7287  7302  7309
 ASZRO    00370    7339
 ATS1     15147    7446  7372  7409
 CSV      03315    1934  7381  7392  7413  7438  7440  7803  7812  7894  7903  7951  7953
 CWADR    15146    7445  7379  7390  7435
 CWR1     03347    1969  4293  4296  4300
 DECM     00460    4305  4297
 E1       15162    7461  7479
 E2       15203    7478  7470
 E3       15205    7480  7455
 EAG11    03411    1999
 ECS1     03364    1986  7456  7476
 ECS2     03365    1987  7459  7469
 ECS3     03366    1988  7462  7478  7481
 ECS4     03367    1989  7458  7465  7471
 ELP1     15763    7912  7859  7930
 ELT1     15772    7919  7913
 EV1N     15542    7752  7697
 EV27     15663    7841  7910
 EVAL     15454    7690  11156  7262  7292  7468  7477  7920
 EVAPG    15731    7879  7889
 EVCDR    03376    1998
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0237
SYMBOL TABLE : HEAD A

 SYMBOL    ADDR    DEF            REFERENCES

 EVCM     16127    8026  7853
 EVCON    15154    7455  11159
 EVD1     16125    8024  7776  7788  7829  7830
 EVD2     03412    2001  7728  7737
 EVDCO    15733    7886  7878
 EVI1     15600    7784  7773
 EVI2     15601    7785  7775
 EVI3     15657    7837  7825
 EVI4     15660    7838  7827
 EVL1     15572    7778  7784  7785
 EVL2     15651    7831  7837  7838
 EVLIS    15774    7924  11160
 EVLNS    16126    8025  7695  7696  7704  7705
 EVP1     15545    7756  7699  7760  7761
 EVP11    15563    7771  7757
 EVP12    15607    7792  7778
 EVP13    15553    7762
 EVP2     15501    7714  7726  7727  7747
 EVP22    15613    7797  7723
 EVP23    15634    7817  7725
 EVP25    15642    7824  7715
 EVP26    16007    7936  7706  7831
 EVP27    15756    7906  7708  7721
 EVP28    15665    7843  7822
 EVQD1    00442    8028  7774  7826
 EVS1     03372    1994  7690  7701  7743  7753  7768  7789  7802  7845  7867  7879  7893  7924  7926  7933
                         7957  7961  7967  7969
 EVSA     03374    1996  7849  7857  7862  7871  7918  7928  7929
 EVSE     03373    1995  7847  7856  7864  7869
 EVT1     16124    8023  7801  7810  7828  7839  7861  7876  7892  7901  7937  7948  7962
 EVTA     16123    8022  7771  7777
 EVTAE    16122    8021  7700  7820  7824  7840  7855
 EVTDE    03411    2000  7702  7734  7809  7858  7944  7947  7956  7963
 EVTE     16121    8020  7692  7752  7772  7793  7938
 EVTFS    16014    7942  7808
 EVTRK    03375    1997  7712  7713  7741  7746  7807  7851  7873  7877  7886  7888  7890  7909  8026
 EVTRT    15540    7746  7719
 EVTXP    16031    7956  7742  7887
 EVZRO    00370    8027  7731
 F        15151    7448  7353  7397  7418
 FARG     07572    4320  4313
 FARGX    07610    4334  4321
 FAS      15150    7447  7395
 LIS      03441    2034  4312  4315  4323  4327
 PAIR     07562    4311  11185  7283
 PAIRX    07570    4317  4311
 PERF     07612    4337  4316
 PERS     07615    4341  4324
 PLL      16064    7986  7992
 PRX      16074    7994  7974
 PRY      16073    7993  7975  7986
 R2       15046    7375  7362
 R21      15036    7366
 R33      15115    7417  7447
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0238
SYMBOL TABLE : HEAD A

 SYMBOL    ADDR    DEF            REFERENCES

 TEM      03440    2033  4322  4330
 VALOF    16104    8007  7441  7954  7970  8667
 VALV     16103    8002  8011
 VAX      16117    8018  8007
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0239
SYMBOL TABLE : HEAD E

 SYMBOL    ADDR    DEF            REFERENCES

 A        02532    1544  1261
 B        02533    1545  1263
 BIT      03266    1895  1896  1897  1636  1639  1813
 C        02645    1627  1265
 CMK      02474    1508  1499
 CMKO     02461    1496  1474  1476
 CMPLP    02503    1516  1525
 CMPNT    02476    1511  1478
 CMPS     02515    1526  1517
 CNAT     03313    1929  1467  1527
 CNFT     03312    1928  1518  1524
 CNFWX    02447    1484  1461
 CNFWY    02450    1485  1462
 CNMLP    02423    1464  1482
 CNNM     02452    1488  1470
 CNNR     02444    1481  1489  1494
 CNRS     02442    1479  1509
 CNRT     02443    1480  1506  1530
 CNSLP    02432    1471  1480
 CNVA     03314    1930  1515  1526
 CNX      03311    1927  1498  1505  1513  1529
 CNXT     03310    1926  1465  1481
 D        02667    1645  1270
 DE1      04130    2287  2294
 DE2      04144    2301  2293
 DE4      04127    2285  2299
 DE5      04200    2336  2318
 DE7      04121    2279  2273
 DECON    04111    2270  11151  1743  1746  1749
 DEDIG    77665    2358  2285  2290  2296  2306  2309  2313  2321  2336
 DEINP    77667    2360  2280  2301
 DEIR4    04176    2332  2272  2276  2346
 DEJ      04170    2326  2322
 DELOD    77664    2357  2271  2297  2307  2326  2343
 DEMIN    00423    2352  2311
 DEMQ     77666    2359  2291  2292
 DEORG    04214    2353  2361  2361
 DEQ      04154    2311  2303
 DETS1    77662    2355  2270  2275  2317
 DETS2    77663    2356  2279  2298  2308  2327  2341
 DEV      04157    2315  2302
 DEY      04211    2346  2342
 E        02677    1653  1271
 F        02713    1668  1274
 FSC      03212    1872  1665  1675  1719  1745
 FWC      03210    1871  1686  1703  1713  1742  1771  1774
 G        02720    1673  1287
 H        02733    1687  1278  1697
 I        02734    1688  1266
 MAA      02642    1624  1623
 MAB      02644    1626  1625
 MAC      02656    1636  1638
 MAD      02671    1647  1644
 MAE      02666    1644  1646
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0240
SYMBOL TABLE : HEAD E

 SYMBOL    ADDR    DEF            REFERENCES

 MAF      02674    1650  1652
 MARYA    02616    1603  1608
 MARYB    02612    1599  1610
 MARYC    02624    1609  1624  1655  1660
 MARYT    03226    1884  1601  1609
 MBIT     03267    1896  1763
 MBITF    03226    1897  1650
 MBTT     02665    1643  1634
 MBTTA    02662    1640  1269  1637
 MLBBJ    03113    1802  1294
 MLBDW    03114    1803  1281
 MLBFA    03112    1801  1288
 MLEPD    03100    1793  1291
 MLEPE    03107    1798  1292  1815
 MLEXT    03132    1818  1782  1783
 MLIST    03111    1800  1285  1787  1795
 MLPDC    03102    1795  1551
 MLPDE    03103    1796  1550
 MLTBT    03126    1814  1272
 MONE     03116    1806  1267  1803
 MONES    00471    1880  1699
 MONS     00471    1881  1643
 MOUT     03127    1815  1790  1800  1802  1804
 MPDLF    02611    1598  1591
 MRKA     02626    1612  1606
 MRKE     02702    1656  1619  1659
 MRKF     02700    1654  1641
 MRKP     03275    1907  1621  1654
 MRKX     03131    1817  1785
 MSRTN    03130    1816  1784
 MWIN     03074    1789  1801
 NOSET    02263    1331  1329
 RCA      02531    1543
 RCAC     03306    1923  1540  1756  1839
 RCB      02707    1664  1599
 RCBE     03225    1883  1542  1712  1715  1721  1731  1754
 RCBEX    03152    1838  1755
 RCC      03217    1874  1724  1726
 RCEA     02770    1716  1714
 RCEB     02776    1722  1720
 RCEC     03014    1736  1733
 RCED     03012    1734  1732
 RCERR    03133    1822  1796  1855
 RCFEM    03142    1829  1826
 RCIA     02540    1550  1548
 RCIND    03224    1882  1539  1758  1838
 RCMQ     03307    1924  1541  1757  1840
 RCT      03220    1875  1876  1706  1728
 RCT1     03201    1863  1741
 RCT4     03210    1866  1871  1744
 RCT5     03212    1868  1872  1747
 RCT6     03216    1870  1873  1750
 RCTM     03174    1862  1753
 RCX      03043    1759  1536  1736  1841
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0241
SYMBOL TABLE : HEAD E

 SYMBOL    ADDR    DEF            REFERENCES

 RCY      03044    1760  1537  1842
 RCZ      03045    1761  1538  1843
 RELOC    03165    1854  1707
 RELX     03172    1857  1854
 RLC      03221    1877  1727  1730
 RST      02256    1326  1209  1295  1323
 RSU      02147    1254  1211
 SETUP    02077    1213  11199
 SFSA     02717    1672  1680
 SFSC     02724    1677  1670
 SFSL     02714    1669  1673
 SFWA     03057    1772  1685  1704  1776
 SFWB     02752    1702  1768
 SFWC     03055    1770  1764
 SFWD     03052    1766  1778
 SFWDN    02753    1703
 SFWLD    02746    1698  1276  1702
 SFWSC    03047    1763  1700  1766
 SUPFS    02232    1306  1299
 SUPFV    02243    1315  1312  1314
 SUPFW    02245    1317  1319
 SUPX     02252    1322  1210  1213  1296  1330
 TEMXX    03276    1909  1921
 TFSC     03223    1879  1722  1723
 TFWC     03222    1878  1716  1717
 TMLD     02563    1576  1572  1593
 TMLE     02565    1578  1575  1587
 TMLF     02574    1585  1582
 TMLG     02576    1587  1580
 TMLH     02577    1588  1576
 TMLJ     02552    1567  1589
 TMLK     02562    1575  1597
 TMLM     03273    1905  1565  1568  1588  1590  1595
 TMPTM    03274    1906  1579
 ZPDL     02761    1709  1228
 ZPDLA    02760    1708  1552
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0242
SYMBOL TABLE : HEAD H

 SYMBOL    ADDR    DEF            REFERENCES

 A        11700    5524  5542
 AA       11676    5522  5534
 AAX      11710    5533  5550
 AD       11716    5540  5547
 ADX      11724    5546  5553
 ANS      12750    6074  6037
 BSOON    11625    5471  5460
 CAX      11703    5527  5518  5530  5536  5543  5549  5552
 CDX      11742    5563  5555  5565  5571  5579  5585  5588
 D        11740    5561  5577
 DA       11736    5559  5569
 DAX      11747    5568  5586
 DD       11755    5575  5583
 DDX      11763    5582  5589
 ERS      12751    6075  6050
 HARP     11630    5474  5483
 HORN     11662    5503  5430  5432  5433  5434  5435  5442  5446  5449  5450  5455  5458  5471  5486  5490
                         5494  5495  5496  5497  5499
 LOG1     12730    6056  6064  6078
 LOG2     12725    6052  6025  6038
 LOG4     12745    6070  6053
 LOG5     12737    6063  6052
 LOG6     12741    6066  6079
 LOGOR    12662    6014  11169
 LSH1     13003    6109  6090
 LSH2     12771    6099  6097
 LSH3     12777    6105  6099  6100
 LSH4     13002    6108  6091
 OBOE     11611    5455  5447
 ORS      12747    6073  6024
 SHAWM    11643    5486  5469
 T1       12756    6081  6111  6015  6017  6019  6023  6028  6030  6032  6036  6041  6043  6045  6049  6066
                         6069  6073  6074  6076  6077
 T2       12756    6111  6092  6101
 TUBA     11641    5483  5472  5473
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0243
SYMBOL TABLE : HEAD F

 SYMBOL    ADDR    DEF            REFERENCES

 A1       12417    5955  5649  5737  5761
 A2       12440    5956  5856
 A3       12437    5957  5867
 A36      00412    5959
 A6       12252    5809
 AL1      12336    5868  5854  5858  5865
 AL3      12324    5857  5868
 AL5      12344    5875  5871
 AL6      12331    5862  5859
 B        00421    4100  3915
 B1       12053    5652  5645  5665
 B3       12056    5655  5648
 B4       12061    5658  5655
 B5       12044    5645  5641
 B6       12066    5663  5657
 BACON    12261    5816  5844
 BB1      12207    5766  5734  5760
 BB2      12167    5750  5740
 BB3      12202    5761  5759
 BB4      12170    5751  5757
 BB5      12156    5741  5738
 BBIR2    12177    5758  5735  5751
 BBPNT    03654    2086  5977  5752  5755  5765
 BFLOC    12045    5646  5651  5656  5681  5750  5764
 BLANK    00427    4096
 BN       77662    4124  4125  3847  3935  3937  3995  4083
 BN1      06732    3879  3917
 BN2      06672    3847  3882  4086
 BN3      06720    3869  3858  3883  4087
 BOFFO    12631    5975  5647  5682  5753  5969
 BUFF     12552    5964  5796  5803  5837
 CH       77664    4127  3893  3898
 CHACT    12635    5981  11145  5800  5816  5818
 CHARS    12603    5973  5638  5642  5650  5664  5677  5736  5762
 CHD      77665    4128  4129
 CHOPS    12247    5806  5778
 CHPOS    12236    5797  5777  5806  5827  5887
 CHTYP    12417    5945  5955  5956  5957  5857
 CLEAR    12201    5760  11146  5691  5698  5707  5711
 CM       06765    3906  3891
 CM12     07125    4004  3998
 CM13     07072    3977  3977
 CM2      07033    3946  3852  3879  3880  3933  4037
 CM3      07035    3948  3855  3859  3860  3946  4039
 CM4      07017    3932  3930
 CM5      07036    3949  3932  3947
 CM6      07106    3989  3853  3881  3958  3973
 CM7      07071    3976  3959
 CM8      07067    3974  3976  3982  3988  3997
 CMF1     07045    3956  3953
 CMF2     07046    3957  3955
 CURC     12634    5980  11149  5820
 CURC1    12633    5979  11150  5821
 CV10     06755    3898  3876
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0244
SYMBOL TABLE : HEAD F

 SYMBOL    ADDR    DEF            REFERENCES

 CV2      07007    3924  3892  3907  3910  3913  3916  3919  3922
 CV3      06743    3888  3861  3865  3901  3904
 CV4      06762    3903  3902
 CV5      06760    3901  3862  3864  3873  3877  3878  3905
 CV6      06763    3904  3863  3874
 CV7      06751    3894  3869  3885  4051
 CV8      06753    3896  3870  3875
 CV9      06757    3900  3871
 CX3      07020    3933  3856  3926  4017  4081  4082
 CX5      07026    3940  3938
 CY2      06645    3825  3835  3838  3841
 CY3      06641    3821  3825  3828
 CY4      06651    3829  3824
 DASH     00416    4103  3839  3921  4074
 DATUM    77667    4131  3962  3964
 DECNO    06666    3843  3831  3834  3837  3840
 DIGIT    12337    5870  11152
 E        00410    4099  3912
 EOF      00522    5939  5824
 EOR      00523    5940  5842
 EORTS    12604    5974  5781  5799  5843
 ERBFL    12572    5967  5791  5840  5893  5894
 ERBFU    12535    5962  5792  5834  5891
 ERIR     12363    5896  5884
 EROR1    12346    5883  11155
 ERSIG    12517    5960  5786  5788  5829  5883
 ERX      12362    5895  5890
 EX1      06715    3866  3914
 EX2      06673    3848  3868
 EXC1     07241    4104  3971
 EXC2     07242    4105  3986
 EXPN     77663    4126  3848  3928
 EXS      07011    3926  3854  3866  3867  4041  4085
 FIXS     00475    5972  5708
 FL1      07243    4106  3949  3954  3956
 FL2      07244    4107  4121  3951  3952
 FLOS     00476    5970  5688
 FSTOR    07131    4008  3989  4040  4042
 GV1      12134    5710  5675  5690  5697  5706  5717
 GV2      12112    5692  5686
 GV3      12136    5712  5685
 GV4      12132    5708  5700  5702  5703
 GV6      12121    5699  5693
 GVA      12143    5718  5714
 HOL14    00525    5942
 HOL40    00530    5943
 HOL9     00524    5941  5870
 HORG     00521    5938  5636  5704  5920
 INTN     06674    3849  3857
 ISTO1    07127    4006  4078
 ISTOR    07126    4005  3942  3944  3948  4038  4043
 JEAN     12314    5843  5825
 JOYCE    12233    5794  5787
 LAMB     12243    5802  5780
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0245
SYMBOL TABLE : HEAD F

 SYMBOL    ADDR    DEF            REFERENCES

 LITER    12321    5854  11168
 MINUS    00423    4097  3833  3906  4068
 MKIR     12660    6003  5985
 MKNAM    12147    5734  11173  5658
 MKNO     12636    5985  11174  5689  5696  5709
 MKT1     03656    2089  5986  5991  5992  6000
 MN1      06737    3884  3908  3923
 MN2      06742    3887  3886
 MN3      06727    3876  3887
 MQ       77662    4125  3816  3845  4049
 N        77666    4130  3810  3812  3849  3894  3896  3900  3924  3931  3939  4056  4058  4059  4077
 NUMBR    06622    3803  11179  5684
 NUMOB    12071    5675  11180
 OCT1     07176    4053  4060  4063
 OCT10    07232    4081  4067
 OCT2     07207    4062  4061
 OCT3     07226    4077  4066  4069  4072  4075
 OCT41    00000    5958  5886
 OCT5     07230    4079  4070  4076
 OCT6     07205    4060  4073
 OCT8     07211    4064  4055
 OCT9     07203    4058  4052  4080
 OCTNO    07170    4047  3832
 ONE      07244    4121  3963  3967  3978  3981
 OVF      06764    3905  3899
 PACK     12032    5635  11184
 PARAM    12573    5969  5683
 PBIT     00455    4095  3884  3927  4079
 PIND     03655    2087
 PL1      06726    3875  3920
 PLUS     00420    4102  3836  3918  4071
 POINT    00422    4098  3909
 PORK     12220    5783  5776  5784  5822  5826
 PT1      06706    3859  3911
 PT3      06714    3865  3872  3888
 PWORD    12572    5968  5804  5808  5810
 PX1      07155    4028  3803  3975
 PX2      07156    4029  3804
 PX4      07157    4030  3805
 Q        00426    4101  3830  4065
 Q10      00000    4092  4120  4092  4120  3850  5701
 Q128     00000    4093  4093  3994
 Q8       00000    4091  4091  3823  3829
 QD7      00000    4094  4094  4015
 REORG    07325    4122  4133  4133
 RESID    77670    4132  3957  3968  3980
 RIBS     12316    5845  5797
 RUMP     12271    5824  5798
 RUTH     12230    5791  5793
 SEVNS    00471    5849  5742
 SHANK    12260    5815  5812  5813
 SHIFT    07117    3998  3996
 STEW     12276    5829  5783
 STZ      07161    4037  3925
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0246
SYMBOL TABLE : HEAD F

 SYMBOL    ADDR    DEF            REFERENCES

 SUZIE    12313    5842  5830
 SW1      06766    3907  3851  4006  4009  4084
 SW2      07050    3959
 T        77665    4129  3806  3843  3844  3965  3966  3969  3970  3979  3983  3984  3985  3990  3999  4016
                         4019  4021  4025  4047  4048
 T1       12574    5971  5745  5746  5914  5919
 TEN      00000    4120  3890
 UP1      12401    5917  5912  5913
 UP2      12372    5909  5915
 UP3      12412    5926  5918
 UP4      12402    5918  5925
 UPI2     12415    5929  5905
 UPI4     12414    5928  5904
 UPLST    03654    5977  5917  5922  5924  5926  5927
 VEAL     12223    5786  5782
 WDNUM    12237    5798  5779  5802  5828  5889
 XT1      07153    4026  4010
 XT2      07137    4014  4011
 XT3      07133    4010  4007
 ZERO     00000    5954  5954  5748
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0247
SYMBOL TABLE : HEAD L

 SYMBOL    ADDR    DEF            REFERENCES

 11L      77706      97    85    86
 9L       77662      95    96    97    48    63    69    70    71
 9R       77663      96    55    60
 EQA      04524    2600  2575
 EQAR     04527    2603  2601
 EQF      04521    2596  2568  2570  2582  2588  2604
 EQL1     04601    2649  2564  2567  2578  2580  2589  2600
 EQL2     04602    2650  2563  2565  2569  2571  2573  2585
 EQLP     04464    2565  2590
 EQP      04532    2610
 EQPE     04542    2618  2603
 EQPF     04537    2615  2610  2612
 EQPFX    04573    2643  2620  2629  2639
 EQPS     04577    2647  2633  2635
 EQPT     04576    2646  2621  2628  2631  2638
 EQPTX    04535    2613  2637  2642
 EQPX     04574    2644  2602  2615  2636
 EQT      04516    2592  2566  2605
 EQTS     04603    2651
 EQUAL    04461    2562  11154  2586
 EQXR     04600    2648  2562  2593  2597
 LOAD     77724      44    93    98    41    43    61    62    77    93
 LOAD2    77735      53    52    56    57
 LOAD3    77737      55    59
 LOAD4    77746      62    51
 LOAD5    77747      63    45
 LOAD8    77750      64    49
 LOAD9    77751      68    76    79
 LOD10    77756      73    87    88
 LOD11    77765      80    72    83    89
 STS      77645     110    91
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0248
SYMBOL TABLE : HEAD Q

 SYMBOL    ADDR    DEF            REFERENCES

 A1IR1    14417    7005  6991  7018
 A1IR2    14420    7006  6993
 A1IR4    14421    7007  6994
 A1T      14423    7010  6996  6999  7004
 AAA      13256    6326  6329
 AADD     13247    6319  6322
 AARY     13344    6384  6306  6332
 ACLA     13240    6312  6315
 ACLAS    13345    6385  6317
 AD1      14403    6993  7020
 ADA      13140    6248  6245  6246
 ADD1     14401    6991  11136
 ADDF     14426    7013  7003
 ADDP     14126    6802  11137
 ADO      13340    6380  6252  6268  6272  6275  6277  6279  6288  6309  6318
 ADOT     13335    6377  6282  6287  6312  6323
 ADT      13341    6381  6259  6271  6281  6319
 ADTH     13342    6382  6265  6269  6283  6326
 AFAT     03504    2078  6237  6349  6355  6361  6368
 AFL      14316    6925  6914
 AFLL     14233    6874  6854
 AFLR     14235    6876  6856
 AFLT     14262    6897  6886
 AFMP     14260    6895  6884
 AFRX     13320    6362  6230
 AFRY     13321    6363  6231  6367
 AGA      13177    6279  6267  6274
 AGAO     13072    6183  6129  6137  6142  6151  6165  6171
 AGAT     13073    6184  6133  6144  6174
 AGATH    13074    6185  6135  6146  6162
 AGD      13062    6174  6168
 AGDT     13056    6170  6150
 AGDTH    13047    6162  6149
 AGN      13032    6148  6138  6139
 AGR      13065    6177  6167  6170
 AGV      13071    6182  6140  6155
 AGXE     13041    6155  6178
 AGXEX    13042    6156  6131  6148
 AMEND    14330    6935  6836
 AMFAG    13115    6229  6226
 AMFLC    00476    6943  6938
 AMFRS    14220    6863  6844
 AMFXC    00475    6944  6936
 AMIN     14322    6929  6919
 AMIND    03501    2074  6804  6811  6818  6825  6830  6939
 AMIR     03500    2073  6802  6809  6816  6823  6828  6940
 AMIR2    14336    6941  6833
 AMLIS    03502    2075  6838  6861  6872  6893  6923  6933
 AMLP     14164    6835  6862  6873  6894  6924  6934
 AMLT     14240    6879  6846
 AMM      14300    6911  6850
 AMMMF    14155    6828  6807  6814  6821
 AMQ      03503    2076  6842  6851  6866  6881  6911
 AMR      14340    6945  6904  6908
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0249
SYMBOL TABLE : HEAD Q

 SYMBOL    ADDR    DEF            REFERENCES

 AMRNT    14307    6918  6928
 AMRT     14215    6860  6878
 AMRU     14255    6892  6900
 AMSUM    14341    6946  6834  6859  6860  6865  6877  6890  6892  6899  6905  6907  6920  6921  6929  6932
                         6935
 AOD      13164    6268  6254
 APWO     13332    6374  6298  6300
 APWT     13333    6375  6290  6293
 ARSTO    13346    6386  6325
 ARY      13347    6387  6338
 ARYTL    13323    6366  6295
 ARYY     13044    6158  6127
 ARYZ     13045    6159  6128
 ASB      00506    6388  6346
 ASBR     13343    6383  6301  6303  6341
 ATBZ     13334    6376  6299  6310
 ATD      13173    6275  6261
 ATMP     03505    2079  6250  6253  6256  6260  6296  6340  6343
 ATMQ     13337    6379  6291  6302
 ATYP     13336    6378  6244  6247  6284  6285  6292
 AX       13070    6181  6136
 AXS      13067    6180  6147
 DIFT     13527    6533  6523  6526  6527
 DIFX     13525    6530  6519
 DIFX2    13524    6529  6520
 DIVA     13476    6499  6474
 DIVDC    13443    6471  6498
 DIVEX    13504    6506  6479
 DIVFX    13471    6494  6470
 DIVND    13510    6511  6450  6454  6459  6491  6503  6508
 DIVOP    13432    6462  6452  6457
 DIVT     13511    6512  6466  6469  6475  6483  6484  6487  6497
 DIVX     13501    6502  6462  6489  6507
 DIVX2    13500    6501  6463  6490  6506
 EXPA     13564    6569  6547
 EXPB     13546    6555  6548
 EXPC     13540    6549  6569
 EXPT     13530    6541  11162
 EXPX     13567    6572  6541  6550  6565  6568
 EXPY     13570    6573  6542  6549
 FAD      14424    7011  7002
 FIXP     14466    7068  11163
 FL       14560    7139  7134
 FLT      14464    7064  7062
 FX       14564    7143  7132
 FXVE     13106    6201  6192  6195  6198
 GRTIR    14437    7028  7024  7032
 GRTT     14441    7031  7026
 MAX      14150    6823  11170
 MIN      14142    6816  11172  11175
 MIXFL    14270    6903  6876  6897  6927
 MRXR     14631    7194  7189
 MULT     14134    6809
 MXIR     14276    6909  6903
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0250
SYMBOL TABLE : HEAD Q

 SYMBOL    ADDR    DEF            REFERENCES

 NPIR     14451    7050  7046  7048  7055  7068  7081  7087  7092  7107  7114
 NPT      14450    7049  7085
 NVATM    14362    6972  6960
 NVIR4    14372    6980  6954  6965
 NVLP     14345    6957
 NVNO     14351    6962  6957  6974
 NVTBL    14373    6981  6979
 ONEP     14533    7114  11182
 OUT      13561    6566  6558
 OUT1     13556    6563  6559
 RCPFX    14657    7219  7209
 RCPS     00476    7224  7214
 RCPT     14662    7223  7203  7210
 RRXR     14654    7215  7198  7221
 RRXR2    14655    7216  7199
 SUB1     14430    7018  11200
 UFC      14621    7179  7147  7150  7167  7170
 UFE      14576    7157  7149
 UFF      14604    7163  7160  7165  7166
 UFMC     00433    7176  7151  7153
 UFMSK    00434    7175  7148
 UFNC     00000    7177  7164
 UFQ      14620    7178  7152  7154
 UFS      14622    7180  7159  7162  7171
 UFXR     14616    7173  7157
 UNFIX    14565    7147  11202  6422  6430  6902
 UNFLT    00476    6437  6423
 UNFX     14266    6901  6858  6888  6906  6917
 UNMXA    13373    6415  6408
 UNMXB    13410    6429  6420
 UNUE     13366    6409  6433
 UNUR     13417    6436  6401  6407  6409  6417
 UNUS     13415    6434  6400  6411  6421
 UNUT     13416    6435  6396  6402  6415  6425
 UNUX     13371    6412  6395  6427
 UNUX2    13406    6426  6416  6432
 ZEROP    14507    7092  11204
 ZPF      14524    7105  7063  7075  7111
 ZPG      14514    7097  7126
 ZPIR     14525    7106  7056  7065  7069  7077  7093  7109  7115
 ZPT      14527    7108  7098  7110
 ZPTS     14531    7110  7103  7104
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0251
SYMBOL TABLE : HEAD G

 SYMBOL    ADDR    DEF            REFERENCES

 A5       13745    6687  6631  6632
 A6       13746    6688  6630  6638
 AP6      13755    6695  6637
 C1       13730    6674  6615
 C5       13732    6676  6611  6612
 C7       13733    6677  6610  6643  6706  6755
 CP7      13737    6681  6642  6705  6754
 E        13716    6663  6587  6597  6618  6619  6621  6656
 EA       13706    6653
 EW       14022    6732  6696  6722  6724  6726  6727  6787  6788  6789
 FN       13715    6662  6584  6599
 L1       13747    6689  6716  6720  6730  6750  6779
 L200     00415    6661  6583  6595  6736  6740  6771
 LL200    00435    6664  6601
 LOG      13723    6669  6710  6775
 M1       13651    6624  6725  6744  6751  6752  6758  6780
 M2       13652    6625  6745  6746  6774  6776
 M3       13653    6626  6741  6772
 M4       13654    6627  6743
 N        13714    6659  6577  6620  6622  6728  6748  6781
 P01      13606    6589  6586  6591
 P02      13620    6599  6588
 P03      13610    6591  6590
 P04      13720    6666  6603  6605
 P05      13721    6667  6606  6607  6616
 P06      13722    6668  6608  6609
 P07      13637    6614  6613
 P08      13632    6609  6614
 P09      14023    6733  6623
 P10      13663    6634  6633
 P11      13656    6629  6634
 P12      13671    6640  6639
 P13      13666    6637  6640
 P14      13676    6645  6644
 P15      13673    6642  6645
 P16      13756    6696  6652
 P17      13763    6701  6654  6698
 P171     13707    6654  6697
 P18      13644    6619  6703
 P19      13575    6580  6700
 P20      14123    6797  6701
 P21      13711    6656  6702
 P22      13772    6708  6707
 P23      13767    6705  6708
 P24      13710    6655  6709  6798
 P25      14013    6725  6712
 P26      14113    6789  6729
 P27      14111    6787  6731
 P28      14106    6784  6737
 P29      14060    6762  6747
 P30      14047    6753  6749
 P31      14053    6757  6756
 P32      14050    6754  6757
 P33      14064    6766  6765
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0252
SYMBOL TABLE : HEAD G

 SYMBOL    ADDR    DEF            REFERENCES

 P34      14062    6764  6766
 P35      14121    6795  6778
 P36      14074    6774  6783
 P37      14101    6779  6784  6785
 P38      14117    6793  6786
 P39      14031    6739  6793
 P40      14030    6738  6794
 P41      13655    6628
 P42      13764    6702  6799
 POWR     13572    6577  11186
 R2       13727    6673  6617  6715
 RSQ      13717    6665  6602
 S1       13712    6657  6713  6714  6718  6721  6723
 S2       13713    6658  6717  6719
 S3       13724    6670  6711  6795
 SQ       13726    6672  6604
 W        13725    6671  6629  6635  6646  6647  6648  6649  6650  6651  6777
 ZERO     00000    6660  6660  6580  6581  6585  6628  6636  6641  6704  6733  6738  6753  6763
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0253
SYMBOL TABLE : HEAD R

 SYMBOL    ADDR    DEF            REFERENCES

 AT1      10146    4623  4613
 ATMX     15241    7518  7509
 ATOMP    15230    7509  11141
 ATP1     15236    7515  7510
 ATRB     10140    4617  4614  4620
 BFDM     00000    7506  7503
 BFFAG    00500    7544  7541
 BFQ1     00442    7520  7515  7525  7682
 BFS1     15221    7498  7532  7542  7549  7568  7609  7619  7679  7680
 BFS2     03415    2007  7533  7538  7553  7560  7611  7617
 BFS3     03416    2008  7550  7564
 BFS4     03414    2005  7558  7567
 BFS5     15367    7627  7610  7624
 BFZRO    00370    7545  7535
 C1       04357    2477  2473
 CARP     15212    7491  11142
 CARX     15217    7496  7491
 CDRP     15222    7500  11143
 CDRX     15226    7504  7500
 CMP      04334    2451  2391
 CMP1     04340    2456  2431
 COPY     04345    2467  11147  2483  2487
 CS1      03357    1979  2468  2475  2491
 CS2      03360    1980  2478  2481  2484  2485  2488
 CT1      04377    2493  2470  2474  2479
 DECM     00000    2494  2482  2536
 DMASK    00000    4625  7506  2494  4401  4425  4570  4625  7506  4582  4619
 ELA      03371    1992
 EQP      15445    7679  11153
 EVA1     03343    1964  7633  7646
 EVA2     03344    1965  7638  7648
 EVA3     15412    7648  7644
 EVA4     15377    7637  7649
 EVA5     15407    7645  7651
 EVA6     15373    7633  7630
 EVA8     15370    7630  11158
 EVA9     03345    1966  7635  7641  7643
 EVCF     00370    7677  7654  7674
 EVCT     00442    7676  7631  7650  7668
 EVLX     03370    1991
 EVR1     03435    2029  7656  7670
 EVR2     03436    2030  7661  7672
 EVR3     15441    7672  7667
 EVR4     15425    7660  7673
 EVR5     15436    7669  7675
 EVR6     15421    7656  7653
 EVR8     15416    7653  11161
 EVR9     03437    2031  7658  7664  7666
 GOT      16316    8165  8156
 GOX      03413    2003  8149  8160  8166
 INTAA    16166    8064  8053
 INTB     03445    2040  8042  8065  8068  8082  8088  8105
 INTE     16271    8135  8043  8052  8055
 INTEB    16202    8076  8087
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0254
SYMBOL TABLE : HEAD R

 SYMBOL    ADDR    DEF            REFERENCES

 INTER    16130    8034  11165
 INTEV    16221    8091  8073  8074
 INTFB    16242    8109  8046
 INTFC    16253    8119  8099
 INTFX    16251    8116  8110
 INTGA    16167    8065  8072  8076  8095  8107
 INTGL    03446    2041  8037  8064  8101  8123  8130
 INTGM    16152    8052  8059  8063
 INTGS    03450    2043  8036  8039  8094  8096  8106  8121  8127  8129  8143  8152  8157  8164
 INTPL    03447    2042  8136  8038  8048  8050  8085  8092
 INTRN    16262    8127  8066  8097
 INTRX    03444    2039  8034  8132
 LABP     15264    7549  11166
 LAMP     15250    7532  11167
 MAIN     04244    2393  2454
 MAIN1    04313    2433  2459
 MCDM     00000    4401  4393
 MCN2     03427    2021  4380  4390  4397
 MCN3     03426    2020  4381  4391
 MCN4     03425    2019  4382  4383  4385  4394
 MCN5     03424    2018  4378  4399
 MLOP1    04262    2407  2449
 MPRG1    04306    2428  2410
 MS1      03430    2023  2370  2376  2422  2425
 MS2      03431    2024  2378  2389  2407  2420  2429
 MS3      03432    2025  2380  2390  2392  2418  2430  2432
 MS4      03433    2026  2382  2400  2411  2416
 MS5      03434    2027  2384  2401  2414  2446  2448  2461
 MS6      04344    2461  2386
 NCDM     00000    4425  4418
 NCI1     07700    4414  4411
 NCI2     07702    4416  4419
 NCONC    07675    4411  11176  4400  8049
 NCS1     07711    4423  4414
 NCS3     07713    4426  4415  4422
 NLY      10131    4604  4578
 NOTC1    00442    4636  4634
 NOTS     10150    4631  11177
 NULLP    15243    7522  11178
 PROP     10011    4511  11140  11191
 REPP1    15341    7600  7588
 REPS1    03461    2055  7575  7597
 REPT1    03463    2057  7587  7594
 REPV     03462    2056  7577  7581  7591  7602
 RMPR1    07724    4437  4445
 RMPR2    07726    4439  4436  4452
 RMPRE    07737    4448  4443
 RMPRO    07735    4446
 RMPRT    07731    4442  4432  4434
 RMPRX    07744    4453  4429  4446
 SASDM    00000    4570  4524
 SASL1    10017    4517  4522  4523
 SASP1    10024    4523  4513
 SASP2    10023    4522  4515
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0255
SYMBOL TABLE : HEAD R

 SYMBOL    ADDR    DEF            REFERENCES

 SASP3    10030    4528  4519  4568
 SASP4    10067    4566  4551
 SASP5    10052    4551  4558  4559
 SASP6    10060    4558  4548
 SASP7    10061    4559  4546
 SASQ1    00442    4569  4514  4547
 SAST1    10065    4563  4511  4525  4531  4536  4543
 SAST2    10064    4562  4544  4566
 SAST3    10062    4560  4545  4567
 SETP     15346    7609  11197
 SETP1    15362    7622  7612
 SETQP    15311    7575  11198
 SPP1     10113    4589  4595
 SPRX     10132    4605  4573
 SPRY     10126    4601  4585
 SPRZ     10125    4600  4586  4589
 SR1      04435    2530  2518
 SR3      04404    2505  2537
 SR4      04445    2538  2505
 SRS1     03454    2049  2501  2528  2541  2549
 SRS2     03455    2050  2506  2519  2534
 SRS3     03456    2051  2504  2511  2513
 SRS4     03457    2052  2508  2520  2522  2532
 SRS5     03460    2053  2503  2510  2530
 ST       03477    2071  4178  4182  4185
 SUB1     07372    4177  4196  4201
 SUB2     07441    4216  4186  4219
 SUB3     07437    4214  4206
 SUB4     07443    4218  4181
 SUBST    07367    4174  11201
 SX       03475    2069  4174  4218
 SXT      03473    2067  4177  4216
 SY       03476    2070  4175  4179
 SZ       03474    2068  4188  4189  4193  4197  4199  4202  4203  4205  4212
 TWA      10130    4603  4583
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0256
SYMBOL TABLE : HEAD D

 SYMBOL    ADDR    DEF            REFERENCES

 BC01     01274     846   802   829
 BC02     01261     795   836
 BC03     01267     801   833
 BC04     01270     802   831
 BC05     01271     803   794
 BC06     01273     805   828
 BC07     01274     806   846
 BC08     01320     826   815   818   821
 BC15     01330     834   830   832
 BC49     01342     845   834
 BC50     00455     847   801
 F        03423    2016  4356  4357  4359  4361
 L        03422    2015  4358
 MCPR     07625    4358  4370
 RET      03421    2014  4354  4372
 RTRN     07642    4371
 SPX      01206     743   740   748
 WOTB     01367     849   772   793   850
 WOTC     01367     850   763   778   792
 WOTM     01234     771   765   773
 WOTON    01251     787
 WOTS     01341     844   791   808   827
 WOTT     01340     843   790   796   835
 WOTU     01334     838   787
 WOTV     01335     839   788
 WOTW     01336     840   789
 WOTX     01245     780   761   776
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0257
SYMBOL TABLE : HEAD I

 SYMBOL    ADDR    DEF            REFERENCES

 BSRT     06534    3733  3656  3673  3729  3730
 BUCK     06522    3723  3670
 CELL     06370    3639  3359  3527  3537  3759
 GET      06172    3523  3427  3454  3468  3471  3482
 GETGO    06175    3526  3560
 GTEOF    06236    3562  3558
 GTGCD    06227    3554  3525
 GTMC     06212    3539  3549  3552
 GTPC     06222    3548  3538
 GTPT     06213    3540  3536  3541  3542
 GTTBL    06352    3635  3539
 GTVAL    06416    3646  3456  3461  3464  3469  3473  3534  3572
 GTX      06220    3545  3523
 INTAD    06530    3729  3674
 INTCN    06516    3719  3731
 ITRX     06525    3726  3658  3708
 ITRY     06526    3727  3659
 LRCIS    06025    3415  3524  3550  3559  3609
 LWCKS    06355    3638
 LWDPB    06404    3640
 LWPO     06354    3637  3556
 O1       06536    3736  3675  3679
 O2       06537    3737  3681  3707
 O3       06452    3683  3687  3688
 O4       06443    3676  3684  3693  3702
 O5       06540    3738  3672  3719  3720  3725
 O7       06464    3693  3705
 OPNA     00504    3739  3714
 OUT      06504    3709  3677
 PTRFP    06260    3581  3575
 PTSFT    06330    3625  3500  3574
 PTTFA    06270    3590  3567
 PUT      06241    3566  3462  3476  3481
 PUTGA    06255    3578
 PUTMC    06246    3571  3496  3502  3576  3582  3607  3612
 PUTPC    06254    3577  3503  3513  3583  3587  3599
 PUTVL    06335    3627  3506  3507  3602  3605
 PUTX     06256    3579  3568  3588
 PUTZB    06276    3597  3570
 Q2       06541    3740  3698  3704
 Q4       06542    3741  3695  3703  3706
 RD       06026    3416  11194  3343  3365  3389  3392
 RDAA     06032    3420  3417
 RDDD     06110    3468  3458
 RDDDC    06413    3643  3457  3463  3470  3472
 RDDDL    06113    3471  3477
 RDDLR    06072    3453  3430
 RDDLS    06412    3642  3460
 RDFIN    06064    3446
 RDGC     06041    3427  3433
 RDIND    06414    3644  3423  3448
 RDJT1    06053    3437  3429  3492
 RDJT2    06137    3492  3466  3484
 RDLST    06415    3645  3416  3418  3495  3615
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0258
SYMBOL TABLE : HEAD I

 SYMBOL    ADDR    DEF            REFERENCES

 RDLT     06122    3479  3431
 RDNM     06123    3480  3432
 RDNN     06124    3481  3485  3486  3487  3521
 RDOT     06024    3413  3351  3371
 RDPB     06353    3636  3439
 RDPD     06164    3516  3491
 RDPNB    06335    3626  3504  3578  3584  3592  3600  3628  3629  3630  3631  3632
 RDPS     06140    3494  3489  3490  3517  3519
 RDPTS    06037    3425  3446  3611
 RDPU     06062    3444  3434  3435  3436  3508
 RDT      06106    3465  3459
 RDVAL    06025    3414  3444  3494
 RDWDS    06040    3426  3447  3614
 RDX      06063    3445  3420
 RDXT     06142    3496  3475  3488
 RDY      06070    3450  3421
 RDZ      06067    3449  3422
 READ     05732    3342  11195
 READ1    05757    3364  11196  3347  3376  3378
 REDER    05747    3355  3350  3353  3394  3396
 REDIS    05735    3345  3390
 REDS1    05734    3344  3342
 RLPAR    06022    3411  3345  3374
 RLTR     00505    3402
 RNUMB    00476    3403
 RP1      06003    3385  3368
 RP2      06006    3389  3373
 RRPAR    06023    3412  3348  3366  3393
 RS1      03451    2045  3364  3382  3386  3399
 RS2      03452    2046  3356  3360  3370  3377  3380  3391  3397
 TPF      06162    3513  3498
 TPFA     06154    3506  3514
 VALUE    06533    3732  11203  3657  3660  3692  3709
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0259
SYMBOL TABLE : HEAD O

 SYMBOL    ADDR    DEF            REFERENCES

 CONV     01436     907   916
 EXA      01510     949   891
 EXB      01511     950   892
 EXC      01473     936   893
 GETTM    01415     890   963
 LOAD     01434     905   918
 OCT33    00431     960   944
 OCT60    00427     958   924   932   934   942
 OCT61    00430     959   926
 ONWD     01520     957   902
 SKP1     01517     956   917
 SKP27    01515     954   897
 SKP3     01516     955   904
 TIME     01521     962
 TIR      01531     970   962
 TR       01533     972   964   965   968
 ZERO     01513     952   919   955   956
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0260
SYMBOL TABLE : HEAD S

 SYMBOL    ADDR    DEF            REFERENCES

 DIGIT    10217    4683  4662  4664
 EVALQ    11310    5265  11157  4822  4849
 EVLQX    11416    5334  5265
 EVLQY    11417    5335  5266
 EVQA     11334    5285  5281
 EVQAC    11513    5406  5311  5316
 EVQAM    11534    5414  5323
 EVQAN    03506    2081  5276  5320  5324  5326  5355  5382  5392
 EVQAT    11441    5362  5315  5374  5375
 EVQB     03653    2083  5272  5280  5282  5283  5287  5288  5297  5298
 EVQBL    00144    5410  5273  5293
 EVQBM    11520    5412  5270
 EVQD     11376    5318  5308  5340  5404
 EVQDN    11412    5330  5328
 EVQE     11400    5320
 EVQER    11407    5327  5294  5350
 EVQFS    11501    5395  5368  5373
 EVQFT    11377    5319  5307  5310  5399
 EVQFX    11457    5376  5370
 EVQLP    11345    5294  5329
 EVQME    11541    5415  5333
 EVQMP    11365    5309  5341
 EVQMQ    11514    5407  5383  5389
 EVQNF    11374    5316  5363
 EVQOP    11341    5290  5279  5358
 EVQRD    11321    5274  5284  5289
 EVQRE    11546    5416  5354
 EVQRX    11437    5357  5274
 EVQS     11346    5295
 EVQSP    11517    5411  5277
 EVQST    11515    5408  5366  5371  5380  5402
 EVQTH    11410    5328  5290
 EVQZ     11375    5317  5381  5393
 GCIOC    11302    5249  5205
 GCRD     11270    5237  5249
 GCRDB    11273    5240  5199
 GCRDC    11274    5241  5201
 GCRDD    11276    5243  5203
 GCRDE    11301    5247  5250
 GENC     00460    4681  4675
 GENPN    00504    4680  4672
 GENX     10214    4677  4661
 GENZ     00370    4679  4667  4669
 LETTR    10216    4682  4665
 OAXT     10631    4974  5005
 OAXT1    10630    4973  4999
 OBEG     11042    5118  4955  4965  4968  4970  4976  4978  5057  5072  5089
 OBQ      10652    4991  5008  5025
 OCTLP    11021    5098  5112  4980  4988  4990  5020  5023
 ODBAD    10774    5080  5078
 ODC      10700    5015  5012
 ODER     10770    5076  4953  4958  4961  4966
 ODLT     11045    5121  5010  5013  5015  5016  5017  5018  5019
 ODSAR    11044    5120  5021  5024
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0261
SYMBOL TABLE : HEAD S

 SYMBOL    ADDR    DEF            REFERENCES

 ODXCL    10646    4987  5014
 OEND     11043    5119  4957  4962  5061  5071  5092
 OLDM     11047    5123  5011
 OLDQ     10641    4982  4964  4997
 OLID     10673    5010  4986
 OLISD    11046    5122  4960  4985  5064  5073  5086
 OSTZ     10671    5007  4983
 OUP      11050    5124  4974  4981  4989  4994  4995  5002  5007  5022  5029  5033
 OVALF    10373    4801  4745
 OVBGN    10220    4708  11183
 OVBSW    10245    4730  4731  4732  4748  4749
 OVBUF    10404    4804  4719  4722  4723  4735  4760  4802  5147  5148  5174  5182  5185
 OVCEM    10341    4797  4929
 OVCER    10561    4924  4904  4907  4910  4913  4918
 OVCHN    11253    5229  5189
 OVCLT    11256    5230  5206
 OVCMP    11122    5155  5187
 OVCTN    11270    5232  5207
 OVDBG    10422    4807  4784
 OVDC     10723    5036  4948
 OVDEK    11041    5117  5044  5093
 OVDEX    11040    5116  4947  5042  5051  5052  5055  5070  5094
 OVDFN    10713    5027  4996
 OVDI     10725    5038  4950
 OVDLL    10717    5031  5027
 OVDMP    10574    4944  4788
 OVDN     10472    4859  4746  4778
 OVDQ     10724    5037  4949
 OVDSF    11036    5114  4973
 OVDSH    10666    5003  4971
 OVDX     10726    5039  4944  5034  5048  5067  5079  5095
 OVDY     10727    5040  4945  5049  5068
 OVDZ     10730    5041  4946  5050  5069
 OVDZS    11037    5115  4984  4998  5003
 OVENK    11002    5082  4954  5045
 OVEOF    10260    4743  4721
 OVERR    10254    4738  4720
 OVEXS    11307    5260  4792
 OVGE     10616    4962  5065  5074  5096
 OVGOR    10235    4722  4741
 OVIND    10337    4795  4712
 OVLA     11116    5151  5154
 OVLT     00651    5113  4818  4833  4845  5141
 OVNSM    10350    4798  4934
 OVNSZ    10570    4932  4813  4828  4840  4892
 OVONE    10526    4891  4770
 OVPNT    10264    4748  4728
 OVPOS    10402    4802  4902  4951
 OVRDM    10362    4800  4740
 OVRLX    10511    4874  4709
 OVRLY    10512    4875  4710
 OVRLZ    10513    4876  4711
 OVSET    10451    4839  4772
 OVSRC    10241    4726  4729
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0262
SYMBOL TABLE : HEAD S

 SYMBOL    ADDR    DEF            REFERENCES

 OVSST    10437    4827  4782
 OVSVI    10336    4793  4794  4708  4873
 OVSZE    10532    4900  4780
 OVTA     10434    4821  4836  4894
 OVTAA    11143    5163  5153
 OVTAP    11074    5133  4786
 OVTBL    10336    4794  4726  4750
 OVTCT    11250    5226  5188
 OVTJJ    11107    5144  5137
 OVTOV    10525    4886  4877
 OVTPO    11234    5218  5192
 OVTPP    11231    5217  5208  5209  5212
 OVTPS    11174    5188  5180
 OVTPX    11225    5213  5133
 OVTPY    11226    5214  5134
 OVTPZ    11227    5215  5135
 OVTRA    10305    4765  4751
 OVTRM    11131    5161  5155
 OVTRN    11127    5160  5158
 OVTST    10423    4812  4774  4776
 OVTTB    11243    5221  5151  5191
 OVTXX    11216    5206  5193
 REPL     10162    4647  4642  4649  4653
 RPLEX    10161    4646  4652  4656
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0263
SYMBOL TABLE : HEAD P

 SYMBOL    ADDR    DEF            REFERENCES

 PAL1     10001    4495  4473
 PAL2     10002    4496  4475
 PAL3     07777    4494  4480  4480
 PAL4     10010    4498  4480
 PAL5     10010    4499  4488
 PAP2     07766    4485
 PAP3     07767    4486  4483
 PAS1     07774    4491  4468
 PAS2     07775    4492  4469
 PAS3     03442    2036  4470  4481  4489
 PAS4     03443    2037  4471  4484  4490
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0264
SYMBOL TABLE : HEAD T

 SYMBOL    ADDR    DEF            REFERENCES

 A1       05717    3305  3190  3210  3212  3215  3216  3220  3223  3227  3233  3247
 A128     00415    3318  3184
 A2       04662    2719  2710
 A3       04640    2701  2723
 A33      00422    3316  3259
 A4       04645    2706  2727
 A6       04656    2715  2707
 A77      00413    3317  3286
 ADDM     00457    2772  2764  2765
 ADT      05312    3038  3038  3039  3040  3041  3042  3043  3044  3045  3046  3047
 BCI0Q    05077    2901  2873
 BCIQ     05101    2903  2859
 BETTY    04776    2822  2817
 BLANK    00472    3031  2990  2995
 BLNKA    00472    3032  2975  3006  3011
 BQ0      05076    2900  2870
 BQ10     05075    2899  2864
 C0       05731    3315  3170  3203
 C1       05730    3314
 C2       05727    3313
 C3       05726    3312
 C4       05725    3311
 C5       05724    3310
 C6       05723    3309
 C7       05722    3308  3201
 COMB     05146    2947  2951
 COMB1    05153    2952
 COMB3    05164    2961
 COMB4    05116    2923  3015
 COMB5    05151    2950  2962  2979
 COMM2    04700    2734  2719
 CWRL     04701    2735  2690  2698
 DEBBY    05032    2853  2837
 DOT      04672    2728  2711
 FIFI     05015    2839  2835  2848  2850
 FL01     05635    3255  3250
 FL65     05623    3245  3255
 FL67     05624    3246
 FL70     05651    3267  3265
 FL73     05524    3182
 FL74     05534    3190  3205
 FL75     05542    3196  3189
 FL76     05550    3202
 FL76A    05555    3207  3198
 FL77     05564    3214  3209
 FL78     05565    3215
 FL79     05572    3220  3218
 FL80     05576    3224  3219
 FL81     05617    3241  3237  3238
 FL82     05621    3243  3229
 FLNA     05512    3172  3165
 FLNX     05666    3280  3162  3166  3276
 FLNY     05667    3281  3172
 FLNZ     05670    3282  3173
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0265
SYMBOL TABLE : HEAD T

 SYMBOL    ADDR    DEF            REFERENCES

 FLOPB    05706    3295  3176  3177  3178  3271  3277  3288
 FLZET    05702    3294  3244  3249  3251  3257
 FLZPZ    05706    3296  3168
 GRETA    05007    2833  2841
 INBCD    05673    3286  3230  3235  3240  3242  3253  3258  3260  3262  3267
 INIT     05245    3010  2922
 JUST     05133    2936  2931
 KBPOS    06621    3790  3765
 L        05073    2897  2802  2806
 L1       04702    2736  2688  2693
 LOG10    05721    3307  3196
 LOG2     05720    3306  3187
 LPAR2    04677    2733  2696
 LSHIF    05142    2943  2937
 LUCY     04767    2815  2793
 MARIE    05053    2873  2823
 MICKY    05041    2861  2858
 MISGN    05100    2902  2818
 NA1      06550    3749  3755
 NA2      06566    3763  3754
 NA3      06601    3774  3770
 NA7      06612    3783  3768
 NA8      06614    3785  3773  3776  3778  3779
 NE       06557    3756  3767
 NOJOB    05155    2954  2928
 NUTRN    06543    3744  11181
 NX1      06615    3786  3746  3782
 NX2      06616    3787  3745
 NX4      06617    3788  3744
 ONEBL    00427    3322  3264
 ONEE     00410    3320  3241
 ONEMI    00423    3321  3239  3266
 ONEPL    00420    3319
 ONES     00471    3323  3270
 PA3      04750    2798  2778
 PART     05261    3023  2945  2948  2976  2989  3007  3012
 PARTS    05257    3021  2946  2952  2987  3003  3014
 PATSY    05054    2874  2860  2866  2872
 PCNT     05455    3150  3080  3094  3096  3135
 PCPPI    05307    3026  2675  2980
 PGRA     05360    3083  3093  3116
 PLIS     05456    3151  3100
 PLP      05350    3075  3083
 PNCHX    05337    3063  3053
 PNCQ     05460    3153  3097  3115
 PNX      05364    3087  3068  3124
 PNY      05365    3088  3069  3125
 PNZ      05366    3089  3070  3126
 POUP     05476    3156  3081  3101  3102  3105  3112  3136  3140
 POUT     05361    3084  3079
 PPRTS    05345    3072  3084  3130
 PR1      05072    2896  2759  2808  2891
 PR2      04713    2767
 PR3      04720    2773  2766
ASM7090 2.2.2     BONNIE-S BIRTHDAY ASSEMBLY                                  Wed May 17 06:02:19 2006 Page 0266
SYMBOL TABLE : HEAD T

 SYMBOL    ADDR    DEF            REFERENCES

 PR3N     04733    2784  2774
 PR3P     04724    2777  2783
 PR4      04753    2801  2807
 PR4E     04762    2808  2796  2812  2875
 PR4F     04764    2810  2790
 PR5      05056    2883  2780
 PR7      05253    3017  2920  2954  2982
 PR8      05254    3018  2919  2955  2983  2985  3004
 PR9      05255    3019  2913  2918  2956  2986  3005
 PRBLW    04673    2729  2683  2725
 PRC1     05070    2894  2887
 PRIN0    04620    2685  11187  2678  2705  3060
 PRIN1    04703    2759  11188  2695  2714
 PRIN2    05110    2917  11189  2684  2697  2712  2718  2720  2726  2805  2819  2843  2856  2874  2892  3056
                         3057  3127  3128  3169  3171  3275  3278
 PRINT    04604    2673  11190
 PRNIL    04616    2683  2686
 PRP2     04667    2725  2703
 PRPLP    05370    3092  3082  3138  3142
 PRPS1    04614    2681  2673
 PRSS     05071    2895  2760  2784  2883
 PRTB     05207    2980  2968
 PRTT1    04612    2679  2984
 PS1      04674    2730  2685  2694  2717
 PS2      04675    2731  2700  2701  2706  2713  2721
 PSS      05457    3152  3077
 PTPNT    05102    2904  2787  2815
 PTTGR    05103    2905  2763  2773  2788  2791
 PUN2     05341    3068  11192  2917
 PUNCH    05325    3053  11193
 PWRDS    05344    3071  3085  3129
 QD20     00000    3030  3030  2974  2977  3000  3010
 QD5      00000    3029  3029  2978  3002
 RCHM     05260    3022  2929  2930
 REC      05307    3025  2959  2972  2993  2999
 RECFL    05166    2963  2960
 RPAR2    04676    2732  2716
 SANDY    05046    2868  2861
 SHIFL    05124    2929  2935
 TEMP     05262    3024  2924  2925  2932  2934  2936  2943  2944  2963  2973
 TER1     05222    2991  2992
 TER2     05230    2997  2994
 TER3     05224    2993  2996
 THSND    05714    3302
 TONI     05074    2898  2833  2836  2842  2845  2849
 TPLP     05435    3133  3137
 VICKI    05036    2858  2851
 WFULL    05162    2959  2949
 WORDS    05256    3020  2921  2953  2988  3001
 XA1      04633    2696  2692

FAP 7090 mode assembly
Options in effect: ABSMOD ()OK
Deckname: LISP15

0 Errors in assembly
ViewGit