                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 374/378 ------           
                                         2 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED          F3B12690    
       07150  0 50000 1 02327 TEARG1 CLA AIL,1                                                                    
       07151  0 40200 0 02211        SUB ALLONE                               . -.-.  - -) --. .==.=  F3B12700    
       07152  0 10000 0 02155        TZE ERROR1            ALL ONES. GO TO PROPER ST0P                F3B12720    
       07153  0 02000 4 00001        TRA 1,4               N0T ALL ONES.)RETURN . -.-.                F3B12730    
                                         3 TEARG2. ROUTINE T0 DET. IF T00 MANY ARGS. SPECIFIED        F3B12740    
       07154  0 50000 1 02327 TEARG2 CLA AIL,1             TEST FOR ALL ONES IN-TST WORD-OF..=        F3B12750    
       07155  0 02000 0 07237        TRA SUBPAT                            - ))  --))---.)-           F3B12760    
       07156  0 50000 1 02331 ARGTAG CLA AIL+2,1           PLACE SUMB ADDRESS OF CURRENT ARG          F3B12770    
       07157  0 60100 0 02324        STO M1CW+2            IN M1CW+2                 - ) -.-)         F3B12780    
       07160  0 50000 1 02332        CLA AIL+3,1           PLACE RELATIVE ADD. AND TAG OF CUR         F3B12790    
       07161  0 60100 0 02325        STO M1CW+3            RENT ARG. IN M1CW+3            .-=         F3B12800    
       07162 -0 32000 0 02207        ANA TGMSK             TEST FOR TAG                               F3B12810    
       07163  0 10000 4 00001        TZE 1,4               N0 TAG. RETURN                             F3B12820    
       07164 -0 63400 4 07232        SXD C,4               ARG TAGGED. SAVE LINKAGE                   F3B12830    
       07165 -0 76000 0 00143        MSE 99                TEST FOR END OF CHTAG TABLE                F3B12840    
       07166  0 07400 4 01016        TSX M12500,4          CHTAG TABLE N0T EXHAUSTED7-                F3B12850    
       07167  0 76000 0 00143        PSE 99                END OF CHTAG TABLE. RESTORE IN-            F3B12860    
       07170 -0 53400 4 07232        LXD C,4               DICAT0R AND LINKAGE                        F3B12870    
       07171  0 02000 4 00001        TRA 1,4               RETURN                                     F3B12880    
                                         THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIHAND XDIM   F3B12890    
       07172  0 76000 0 00144  XDIM  PSE 100               TURN 0N SENSE LIGHT 100 FOR XDIM--- -=.U   F3B12900    
       07173  0 07400 4 07150  DIM   TSX TEARG1,4          TEST N0. OF ARGS SPECIFIED- --.-           F3B12910    
       07174  0 07400 4 07156        TSX ARGTAG,4          TEST WHETHER FIRST ARG. IS TAGGED          F3B12920    
       07175  1 77774 1 07176        TXI O1,1,-4           INDEX COMPAIL RECQRD T0 BEG. OF-NEXT REC.  F3B12930    
       07176  0 07400 4 07137  O1    TSX TEST,4            TEST FOR END OF CURRENT AIL.RECORD-. 4--.  F3B12940    
       07177  0 07400 4 07154        TSX TEARG2,4          TEST N0. OF ARGS. SPECIFIED      -         F3B12950    
       07200  0 07400 4 00707        TSX CIT00,4           COMPILE FIRST INST. FOR DIM AND XDIM       F3B12960    
       07201  0 00000 0 02322        HTR M1CW              L0CATION (1ST WD)               --.-1      F3B12970    
       07202  0 00000 0 02215        HTR L(CLA)            CLA(2ND WD.)        .                      F3B12980    
       07203  0 00000 0 02324        HTR M1CW+2            FIRST ARG (3RD WD)                         F3B12990    
       07204  0 00000 0 02325        HTR M1CW+3            REL. ADD END TAG OF 1ST ARG (4TH WD)       F3B13000    
       07205  0 07400 4 07156        TSX ARGTAG,4          TEST WHETHER 2ND. ARG TAGGED ETC.          F3B13010    
       07206 -0 50000 0 07233        CAL L(SUB)            PREPARE 0P. WD (2ND WD) OF 2ND AIL         F3B13020    
       07207 -0 76000 0 00144        MSE 100               ENTRY. 0P. IS SUB. FOR XDIM    -.-         F3B13030    
       07210 -0 50000 0 07234        CAL L(FSB)            FSB FOR DIM                                F3B13040    
       07211  0 60200 0 02323        SLW M1CW+1                                                       F3B13050    
       07212  0 07400 4 00707        TSX CIT00,4           COMPILE 2ND INST FOR DIM 0R XDIH           F3B13060    
       07213  0 00000 0 02170        HTR L(0)              0 (1ST WD)                                 F3B13070    
       07214  0 00000 0 02323        HTR M1CW+1            SUB(XDIH), FSB(DIM) (2ND. WD)              FI113110    
       07215  0 00000 0 02324        HTR M1CW+2            2ND. ARG (3RD WD)                          F3B13090    
       07216  0 00000 0 02325        HTR M1CW+3            REL. ADD AND TAG OF 2ND ARG (4TH WD)       F3B13100    
       07217  0 07400 4 00707        TSX CIT00,4           COMPILE 3RD INST FOR DIM AND XD(H          1I1I1I71    
       07220  0 00000 0 02170        HTR L(0)              0(1ST WD)                                  F3B13120    
       07221  0 00000 0 07235        HTR L(TPL)            TPL(2ND WD)                                F3B13130    
       07222  0 00000 0 02245        HTR L(017)            0CT. 17 IN BITS S-5                        F3B13140    
       07223  0 00000 0 02177        HTR L(2D)             REL. ADD 2, TAG 0 (4TH WD)                 F3B13150    
       07224  0 07400 4 00707        TSX CIT00,4           COMPILE LAST INST FOR DIH AND XD)M         F3B13160    
       07225  0 00000 0 02170        HTR L(0)              0 (1STWD)                                  F3B13170    
       07226  0 00000 0 07236        HTR L(PXD)            PXD (2ND WD)                               F3B13180    
       07227  0 00000 0 02170        HTR L(0)              0 (3RD WD)                                 F3B13190    
       07230  0 00000 0 02170        HTR L(0)              0 (4TH WD)                                 F3B13200    
       07231  1 77774 1 00774        TXI RESUHE,1,-4       INDEX CUR AIL RECORD T0 BEGINNING          F3B13210    
                                                           OF NEXT 4WD INST AND RETURN T0 HAIN PROG   F3B13220    
