COMTLBP 
COMMON
                                                                      # 
          CTEXT  COMTLBP - *SSLABEL* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN     # COMTLBP #
  
                                                                      # 
***       COMTLBP - ADDRESSES FOR THE PROCESSED *SSLABEL* PARAMETERS. 
* 
*         *COMTLBP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSLABEL* PROCESSED PARAMETERS.
  
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSLABEL*
*         CONTROL STATEMENT AND THE DIRECTIVE PARAMETERS. 
  
          USE    /TLBPCOM/
  
 DIR      BSS    9           BUFFER TO HOLD THE DIRECTIVE IMAGE 
 OP       DATA   0           DIRECTIVE NAME 
 N        DATA   0           NUMBER OF CARTRIDGES OR CUBES TO PROCESS 
 CN       DATA   0           CARTRIDGE SERIAL NUMBER
 PK       DATA   0           CARTRIDGE OR CUBE PICK OPTION
 PT       DATA   0           CARTRIDGE OR CUBE PUT OPTION 
 GR       DATA   7777 
 LT       DATA   0           LOST OPTION
 SM       DATA   0           SM-ID
 ON       DATA   0           TURN A FLAG ON OPTION
 OF       DATA   0           TURN A FLAG OFF OPTION 
 YI       DATA   0           Y COORDINATE OF FIRST LOCATION 
 YF       DATA   0           Y COORDINATE OF SECOND LOCATION
 ZI       DATA   0           Z COORDINATE OF FIRST LOCATION 
 ZF       DATA   0           Z COORDINATE OF SECOND LOCATION
 FM       DATA   0           FAMILY NAME
 SB       DATA   0           SUB-FAMILY IDENTIFIER
 CM       DATA   0           CARTRIDGE MANUFACTURER 
 CC       DATA    0           STORE CLEAR CARTRIDGE 
 B        DATA   600         ALLOCATED FOR SMALL FILES
 I        DATA   0LINPUT     DIRECTIVE SOURCE FILE
 L        DATA   0LOUTPUT    OUTPUT FILE
 Z        DATA   0           *Z* OPTION 
          USE 
  
*         RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
*         ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE 
*         FOLLOWING ORDER.  *DIR* IS CONSIDERED AS WORD *0* 
*         FOR *SYMPL* DECLARATIONS. 
                                                                      # 
                                            # WORD POSITIONS FOR #
#DIR      #DEF#  DIR+0       # DIR$LB #0#;   # DIRECTIVE IMAGE BUFFER # 
#OP       #DEF#  DIR+9       # OP$LB  #9#;   # *OP* # 
#N        #DEF#  DIR+10      # N$LB   #10#;  # *N* #
#CN       #DEF#  DIR+11      # CN$LB  #11#;  # *CN* # 
#PK       #DEF#  DIR+12      # PK$LB  #12#;  # *PK* # 
#PT       #DEF#  DIR+13      # PT$LB  #13#;  # *PT* # 
#GR       #DEF#  DIR+14      # GR$LB  #14#;  # *GR* # 
#LT       #DEF#  DIR+15      # LT$LB  #15#;  # *LT* # 
#SM       #DEF#  DIR+16      # SM$LB  #16#;  # *SM* # 
#ON       #DEF#  DIR+17      # ON$LB  #17#;  # *ON* # 
#OF       #DEF#  DIR+18      # OF$LB  #18#;  # *OF* # 
#YI       #DEF#  DIR+19      # YI$LB  #19#;  # *YI* # 
#YF       #DEF#  DIR+20      # YF$LB  #20#;  # *YF* # 
#ZI       #DEF#  DIR+21      # ZI$LB  #21#;  # *ZI* # 
#ZF       #DEF#  DIR+22      # ZF$LB  #22#;  # *ZF* # 
#FM       #DEF#  DIR+23      # FM$LB  #23#;  # *FM* # 
#SB       #DEF#  DIR+24      # SB$LB  #24#;  # *SB* # 
#CM       #DEF#  DIR+25      # CM$LB  #25#;  # *CM* # 
#CC       #DEF#  DIR+26      # CC$LB  #26#;  # *CC* # 
#B        #DEF#  DIR+27      # B$LB   #27#;  # *B* #
#I        #DEF#  DIR+28      # I$LB   #28#;  # *I* #
#L        #DEF#  DIR+29      # L$LB   #29#;  # *L* #
#Z        #DEF#  DIR+30      # Z$LB   #30#;  # *Z* #
  
                                                                      # 
          COL    12 
                                                                      # 
  
            DEF LBARGL  #31#;      # LENGTH OF THE BUFFER TO HOLD ALL 
                                       *SSLABEL* PARAMETERS (BOTH 
                                       CONTROL STATEMENT AND DIRECTIVE) 
                                       AND THE BUFFER TO HOLD THE 
                                       DIRECTIVE IMAGE #
            DEF DIRPRML  #28#;   # NUMBER OF SSLABEL DIRECTIVES 
                                       PARAMETERS AND THE LENGTH OF THE 
                                       BUFFER TO HOLD THE DIRECTIVE 
                                       IMAGE #
  
           COMMON TLBPCOM;
  
             BEGIN  # TLBPCOM # 
  
                                                                      # 
*         ARRAY TO HOLD THE DIRECTIVE IMAGE AND TO
*         ACCESS THE PROCESSED *SSLABEL* PARAMETERS.
                                                                      # 
  
             ARRAY LBARG [0:0] P(LBARGL); 
               BEGIN
               ITEM LBARG$DIRN C(00,00,03);  # DIRECTIVE NUMBER # 
               ITEM LBARG$DIRF B(00,59,01);  # DIRECTIVE ERROR FLAG # 
               ITEM LBARG$DIRI C(01,00,80);  # DIRECTIVE IMAGE #
  
                                                                      # 
*         PARAMETERS SPECIFIED ON *ASLABEL* DIRECTIVES. 
                                                                      # 
  
               ITEM LBARG$OP   C(OP$LB,00,02);  # DIRECTIVE NAME #
               ITEM LBARG$N    U(N$LB,00,60);   # NUMBER OF CARTRIDGES
                                                  OR CUBES TO PROCESS # 
               ITEM LBARG$C    C(CN$LB,00,08);  # CARTRIDGE NUMBER #
               ITEM LBARG$PK   C(PK$LB,00,01);  # PICK OPTION # 
               ITEM LBARG$PT   C(PT$LB,00,01);  # PUT OPTION #
               ITEM LBARG$GR   I(GR$LB,00,60);  # GROUP NUMBER #
               ITEM LBARG$LT   U(LT$LB,00,60);  # LOST OPTION # 
               ITEM LBARG$SM   C(SM$LB,00,01);  # SM-ID # 
               ITEM LBARG$SMID U(SM$LB,00,06);  # SM-ID # 
               ITEM LBARG$ZSM  U(SM$LB,06,06);  # 6 BITS NEXT TO
                                                  SM-ID # 
               ITEM LBARG$ON   U(ON$LB,00,60);  # FLAG ON OPTION #
               ITEM LBARG$OF   U(OF$LB,00,60);  # FLAG OFF OPTION # 
               ITEM LBARG$YI   I(YI$LB,00,60);  # FIRST Y COORDINATE #
               ITEM LBARG$YF   I(YF$LB,00,60);  # SECOND Y COORDINATE # 
               ITEM LBARG$ZI   I(ZI$LB,00,60);  # FIRST Z COORDINATE #
               ITEM LBARG$ZF   I(ZF$LB,00,60);  # SECOND Z COORDINATE # 
               ITEM LBARG$ZFM  I(FM$LB,00,60);  # REFERENCE TO FM$LB #
               ITEM LBARG$FM   C(FM$LB,00,07);  # FAMILY NAME # 
               ITEM LBARG$SB   U(SB$LB,00,60);  # SUB-FAMILY #
               ITEM LBARG$CM   C(CM$LB,00,02);  # CARTRIDGE MAKER # 
               ITEM LBARG$CC   U(CC$LB,00,60);  # STORE CLEAR CUBE #
               ITEM LBARG$B    U(B$LB,00,60);   # SMALL FILE SPACE #
  
                                                                      # 
*     *ASLABEL* CONTROL STATEMENT PARAMETERS. 
                                                                      # 
  
               ITEM LBARG$I    C(I$LB,00,07);  # INPUT FILE NAME #
               ITEM LBARG$LZ   U(L$LB,00,60);  # REFERENCE TO L$LB #
               ITEM LBARG$L    C(L$LB,00,07);  # OUTPUT FILE NAME # 
               ITEM LBARG$Z    U(Z$LB,00,60);  # *Z* OPTION # 
               END
  
             END  # TLBPCOM # 
  
           END  # COMTLBP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
