                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 090/090 ------           
       05436 -0 50000 0 07403 DIMSR  CAL SA                       IF THIS VARIABLE                    4F12921     
       05437  0 60200 0 01130        SLW E+2                      DOES NOT HAVE A SUBSCRIPT, THEN     4F12922     
       05440  0 07400 4 01771 RD1    TSX DIM1SR,4               * GO SEARCH DIM1 TABLE,               4F12923     
 D     05441  1 00000 0 05444        TXI RD2,0                    IF FOUND, THEN                      4F12924     
       05442  0 50000 0 01101 CS1    CLA D12                      PICKUP DIMENSION 1                  4F12925     
 D     05443  1 00000 0 05467        TXI DVS,0                    AND GO TEST SIZE. OTHERWISE,        4F12926     
       05444  0 07400 4 01775 RD2    TSX DIM2SR,4               * GO SEARCH DIM2 TABLE.               4F12927     
 D     05445  1 00000 0 05455        TXI RD3,0                    AND IF FOUND,                       4F12928     
       05446  0 56000 0 01101 CS2    LDQ D12                      PICKUP                              4F12929     
       05447  0 60000 0 01361        STZ N2                       DIMENSION 1 AND                     4F12930     
       05450 -0 62000 0 01361        SLQ N2                       DIMENSION 2                         4F12931     
       05451 -0 76300 0 00022        LGL 18                       AND MULTIPLY                        4F12932     
       05452  0 20000 0 01361        MPY N2                       THEM TOGETHER.                      4F12933     
       05453  0 77100 0 00001        ARS 1                        THEN                                4F12934     
 D     05454  1 00000 0 05467        TXI DVS,0                    GO TEST THE PRODUCT. OTHERWISE,     4F12935     
       05455  0 07400 4 02005 RD3    TSX DIM3SR,4               * GO SEARCH DIM3 TABLE.               4F12936     
 D     05456  1 00000 0 05533        TXI NODIM,0                  AND IF FOUND,                       4F12937     
       05457  0 56000 0 01101 CS3    LDQ D12                      PICKUP                              4F12938     
       05460  0 60000 0 01361        STZ N2                       DIMENSION 1,                        4F12939     
       05461 -0 62000 0 01361        SLQ N2                       DIMENSION 2,                        4F12940     
       05462 -0 76300 0 00022        LGL 18                       AND DIMENSION 3.                    4F12941     
       05463  0 20000 0 01361        MPY N2                       MULTIPLY                            4F12942     
       05464  0 76500 0 00022        LRS 18                       THEM TOGETHER,                      4F12943     
       05465  0 20000 0 01102        MPY D3                       AND IF                              4F12944     
       05466  0 76300 0 00021        LLS 17                       THEIR                               4F12945     
       05467  0 40200 0 01407 DVS    SUB L(1)                     PRODUCT IS                          4F12946     
       05470  0 10000 0 05533        TZE NODIM                    GREATER THAN 1, THEN                4F12947     
       05471  0 76700 0 00022        ALS 18                       PLACE DIMENSION-1 IN THE            4F12948     
       05472  0 60100 0 01347        STO G                        DECREMENT OF G, AND                 4F12949     
       05473  0 07400 4 00417        TSX FXCNIX,4               * GO ENTER IN FIXCON, AND GET TAG.    4F12950     
       05474  0 76700 0 00022        ALS 18                       ADJUST, AND STORE TAG IN THE        4F12951     
       05475  0 62200 0 01364        STD RAT                      DECREMENT OF RAT. THEN              4F12952     
       05476  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12953     
       05477  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12954     
       05500  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000                    4F12955     
       05501  0 00000 0 01561        PZE LXD                      WORD2--LXD000                       4F12956     
       05502  0 00000 0 00013        PZE 2P                       WORD3--200000                       4F12957     
       05503  0 00000 0 01364        PZE RAT                      WORD4--0(FIXCON TAG)008             4F12958     
       05504  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12959     
       05505  0 07400 4 05754        TSX ETMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12960     
       05506  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12961     
       05507  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000 OR 000000          4F12962     
       05510  0 00000 0 07401        PZE OP                       WORD2--(OPERATION CODE)             4F12963     
       05511  0 00000 0 07403        PZE SA                       WORD3--(SYMBOLIC ADDRESS)           4F12964     
       05512  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12965     
       05513  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12966     
       05514  0 07400 4 05757        TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12967     
       05515  0 07400 4 02375        TSX GIF,4                  * GET IFN IN SL AND TL.               4F12968     
       05516  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12969     
       05517  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F12970     
       05520  0 00000 0 01576        PZE TIX                      WORD2--TIX001                       4F12971     
       05521  0 00000 0 01367        PZE SL                       WORD3--0(IFN)000                    4F12972     
       05522  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12973     
       05523  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12974     
