Retro1.org codex

BLTAB
          IDENT  BLTAB
*CALL     COMCMAC
          ENTRY  BLTAB
          SYSCOM B1
          TITLE  BLTAB - SET UP *SSBLD* ARGUMENT LIST.
*COMMENT SET UP *SSBLD* ARGUMENT LIST.
 
**        BLTAB  SETS UP THE ARGUMENT LIST.
*
*         THIS PROCEDURE SETS UP THE ARGUMENT LIST.
*         IT CALLS *COMTBLP* TO SET UP THE ADDRESSES OF
*         FOR THE CRACKED PARAMETERS IN THE COMMON
*         AREA *UBLPCOM*.  IT PASSES THE ADDRESS OF THE
*         ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
*
*         SYMPL CALL   BLTAB(ARGLIST)
*
*         EXIT   ARGUMENT LIST SET UP.
*                ARGLIST - AN ITEM TO HOLD THE ADDRESS
*                          OF THE ARGUMENT LIST.
*
*         USES   A - 6
*                X - 1,6
*
*         MACRO  ARG
 
 BLTAB    SUBR               ENTRY/EXIT
          SX6    ARGLIST     RETURN ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     BLTABX
 
*         SET UP THE ARGUMENT LIST FOR THE *SSBLD* CONTROL
*         CARD PARAMETERS.
 
 ARGLIST  BSS    0
 CF       ARG    CFASV,CF    CONFIGURATION FILE NAME
 BF       ARG    BFASV,BF    BUDT FILE NAME
          ARG                END OF ARGUMENT LIST
 
*         DEFAULT VALUES.
 
 CFASV    DATA   0LSUDT
 BFASV    DATA   0LBUDT
 
*CALL     COMTBLP
          END
          IDENT  DBTAB
          ENTRY  DBTAB
          SYSCOM B1
          TITLE  DBTAB - SET UP *SSDEBUG* ARGUMENT LIST.
*COMMENT SET UP *SSDEBUG* ARGUMENT LIST.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 
*CALL     COMCMAC
 DBTAB    SPACE  4,15
**        DBTAB - SET UP *SSDEBUG* ARGUMENT LIST.
*
*         DBTAB(ARGLIST);   (*SYMPL* CALL)
*
*         EXIT   ARGUMENT LIST SET UP.
*                (ARGLIST) = FWA OF ARGUMENT LIST.
*
*         USES   A - 6.
*                B - 1.
*                X - 6.
*
*         MACROS ARG.
 
 
 DBTAB    SUBR               ENTRY/EXIT
          SB1    1
          SX6    ARGLIST     ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     DBTABX      RETURN
 
*         ARGUMENT LIST.
 
 ARGLIST  BSS    0
 I        ARG    IASV,I,400B      DIRECTIVE FILE
 L        ARG    L,L              OUTPUT FILE
 Z        ARG    -ZASV,Z          *Z* OPTION
 OP       ARG    OPASV,OP,400B    DIRECTIVE NAME
 PF       ARG    PFASV,PF,400B    PERMANENT FILE NAME
 FO       ARG    FOASV,FO,400B,1  *FCT* ORDINAL
 ST       ARG    STASV,ST,400B,1  STARTING AU NUMBER
 FM       ARG    FMASV,FM,400B    FAMILY NAME
 SB       ARG    SBASV,SB,400B    SUBFAMILY IDENTIFIER
 SM       ARG    SMASV,SM,400B    SM IDENTIFIER
 SL       ARG    SLASV,SL,400B    LOWER STREAM LIMIT
 SU       ARG    SUASV,SU,400B    UPPER STREAM LIMIT
 CM       ARG    CMASV,CM,400B    CARTRIDGE MAKER IDENTIFIER
 CN       ARG    CNASV,CN,400B,1  CARTRIDGE SERIAL NUMBER
 YI       ARG    YIASV,YI,400B,1  Y COORDINATE
 FL       ARG    FLASV,FL,400B,1  FLAG TO BE CHANGED
 ON       ARG    -ONASV,ON        TURN FLAG ON
 OF       ARG    -OFASV,OF        TURN FLAG OFF
 ZI       ARG    ZIASV,ZI,400B,1  Z COORDINATE
          ARG                     END OF ARGLIST.
 
*         DEFAULT VALUES.
 
 IASV     DATA   0LINPUT
 ZASV     DATA   1
 OPASV    DATA   0
 PFASV    DATA   0
 FOASV    DATA   -1
 STASV    DATA   -1
 FMASV    DATA   0
 SBASV    DATA   -1
 SMASV    DATA   1
 SLASV    DATA   0
 SUASV    DATA   0
 CMASV    DATA   2LA-
 CNASV    DATA   -1
 DASV     DATA   -1
 ZIASV    DATA   7777B
 YIASV    DATA   7777B
 FLASV    DATA   -1
 ONASV    DATA   1
 OFASV    DATA   1
 
*CALL COMTDBP
 
          END
          IDENT  DFTAB
*CALL     COMCMAC
          ENTRY  DFTAB
          SYSCOM B1
          TITLE  DFTAB - SET UP *SSDEF* ARGUMENT LIST.
*COMMENT SET UP *SSDEF* ARGUMENT LIST.
 
**        DFTAB  SETS UP THE ARGUMENT LIST.
*
*         THIS PROCEDURE SETS UP THE ARGUMENT LIST.
*         IT CALLS *COMUDFP* TO SET UP THE ADDRESSES OF
*         FOR THE CRACKED PARAMETERS IN THE COMMON
*         AREA *UDFPCOM*.  IT PASSES THE ADDRESS OF THE
*         ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
*
*         SYMPL CALL   DFTAB(ARGLIST)
*
*         EXIT   ARGUMENT LIST SET UP.
*                ARGLIST - AN ITEM TO HOLD THE ADDRESS
*                          OF THE ARGUMENT LIST.
*
*         USES   A - 6
*                X - 1,6
*
*         MACRO  ARG
 
 DFTAB    SUBR               ENTRY/EXIT
          SX6    ARGLIST     RETURN ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     DFTABX
 
*         SET UP THE ARGUMENT LIST FOR THE *SSDEF* CONTROL
*         CARD PARAMETERS.
 
 ARGLIST  BSS    0
 FM       ARG    FMASV,FM    FAMILY NAME
 SM       ARG    SMASV,SM    SM NUMBER
          ARG                END OF ARGUMENT LIST
 
*         DEFAULT VALUES.
 
 FMASV    DATA   0
 SMASV    DATA   0LA
 
*CALL     COMTDFP
          END
          IDENT  EXTAB
*CALL     COMCMAC
          ENTRY  EXTAB
          SYSCOM B1
          TITLE  EXTAB - SET UP *SSEXEC* ARGUMENT LIST.
*COMMENT SET UP *SSEXEC* ARGUMENT LIST.
 
**        EXTAB  SETS UP THE ARGUMENT LIST.
*
*         THIS PROCEDURE SETS UP THE ARGUMENT LIST.
*         IT CALLS *COMEEXP* TO SET UP THE ADDRESSES FOR THE CRACKED
*         PARAMETERS IN THE COMMON AREA *EEXPCOM*.  IT PASSES THE
*         ADDRESS OF THE ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
*
*         SYMPL CALL   EXTAB(ARGLIST).
*
*         EXIT   ARGUMENT LIST SET UP.
*                ARGLIST - AN ITEM TO HOLD THE ADDRESS OF THE ARGUMENT
*                          LIST.
*
*         USES   A - 6.
*                X - 1,6.
*
*         MACRO  ARG.
 
 EXTAB    SUBR               ENTRY/EXIT
          SX6    ARGLIST     RETURN ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     EXTABX
 
*         SET UP THE ARGUMENT LIST FOR *SSEXEC* PARAMETERS.
 
ARGLIST   BSS    0
Q         ARG    QASV,Q      TUNING PARAMETER
TM        ARG    TMASV,TM    TRACE MODE PARMAMETER
S         ARG    SASV,S      SET INDEX PARAMETER
          ARG                END OF ARGUMENT LIST
 
*         DEFAULT VALUES.
 
 
QASV      DATA   0
TMASV     DATA   0
SASV      DATA   0
 
*CALL COMXEXP
 
          END
          IDENT  LBTAB
          ENTRY  LBTAB
*COMMENT SET UP *SSLABEL* ARGUMENT LIST.
          SYSCOM B1
          TITLE  LBTAB - SET UP *SSLABEL* ARGUMENT LIST.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 
*CALL     COMCMAC
 LBTAB    SPACE  4,15
**        LBTAB - SET UP *SSLABEL* ARGUMENT LIST.
*
*         LBTAB(ARGLIST);  (*SYMPL* CALL)
*
*         EXIT   ARGUMENT LIST SET UP.
*                (ARGLIST) = FWA OF ARGUMENT LIST.
*
*         USES   A - 6.
*                B - 1.
*                X - 6.
*
*         MACROS ARG.
 
 
 LBTAB    SUBR               ENTRY/EXIT
          SB1    1
          SX6    ARGLIST     ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     LBTABX      RETURN
 
*         ARGUMENT LIST FOR *SSLABEL* CONTROL STATEMENT
*         AND DIRECTIVE PARAMETERS.
 
 ARGLIST  BSS    0
 I        ARG    IASV,I,400B       DIRECTIVE OPTION
 L        ARG    L,L            OUTPUT FILE
 Z        ARG    -ZASV,Z        *Z* OPTION
 OP       ARG    OPASV,OP,400B  DIRECTIVE NAME
 N        ARG    NASV,N,400B    NUMBER OF CUBES/CARTRIDGES TO PROCESS
 CN       ARG    CNASV,CN,400B,1 CARTRIDGE SERIAL NUMBER
 PK       ARG    PKASV,PK,400B  PICK OPTION
 PT       ARG    PTASV,PT,400B  PUT OPTION
 GR       ARG    GRASV,GR
 LT       ARG    -LTASV,LT      CARTRIDGE *LOST* OPTION
 SM       ARG    SMASV,SM,400B  STORAGE MODULE IDENTIFIER
 ON       ARG    -ONASV,ON      TURN FLAG ON OPTION
 OF       ARG    -OFASV,OF      TURN FLAG OFF OPTION
 YI       ARG    YIASV,YI,400B  FIRST Y COORDINATE
 YF       ARG    YFASV,YF,400B  SECOND Y COORDINATE
 ZI       ARG    ZIASV,ZI,400B  FIRST Z COORDINATE
 ZF       ARG    ZFASV,ZF,400B  SECOND Z COORDINATE
 FM       ARG    FMASV,FM,400B  FAMILY NAME
 SB       ARG    SBASV,SB,400B  SUBFAMILY IDENTIFIER
 CM       ARG    CMASV,CM,400B  CARTRIDGE MANUFACTURER
 CC       ARG    CCASV,CC,400B  STORE CLEAR CARTRIDGE
 B        ARG    BASV,B,400B    SMALL FILE SPACE
          ARG                   END OF STATUS LIST
 
*         DEFAULT VALUES.
 
 IASV     DATA   0LINPUT
 ZASV     DATA   1
 OPASV    DATA   0
 NASV     DATA   1
 CNASV    DATA   0
 PKASV    DATA   0
 PTASV    VFD    6/0LP,54/
 GRASV    DATA   7777
 LTASV    DATA   1
 SMASV    DATA   0LA
 ONASV    DATA   1
 OFASV    DATA   1
 YIASV    DATA   7777B
 YFASV    DATA   7777B
 ZIASV    DATA   7777B
 ZFASV    DATA   7777B
 FMASV    DATA   -1
 SBASV    DATA   0
 CCASV    DATA   -1
 CMASV    DATA   2LA-
 BASV     DATA   600
 
*CALL COMTLBP
 
          END
          IDENT  MVTAB
          ENTRY  MVTAB
          SYSCOM B1
          TITLE  MVTAB - SET UP *SSMOVE* ARGUMENT LIST.
*COMMENT SET UP *SSMOVE* ARGUMENT LIST.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 
*CALL     COMCMAC
*CALL,COMSPFM
 MVTAB    SPACE  4,15
***       MVTAB - SET UP *SSMOVE* ARGUMENT LIST.
*
*         MVTAB(ARGLIST);   (*SYMPL* CALL)
*
*         EXIT   (ARGLIST) = ADDRESS OF ARGUMENT LIST.
*
*         USES   A - 6.
*                B - 1.
*                X - 6.
*
*         MACROS ARG.
 
 
MVTAB     SUBR               ENTRY/EXIT
          SB1    1
          SX6    ARGLIST     ADDRESS OF ARGUMENT LIST
          SA6    X1
          EQ     MVTABX      RETURN
 
*         ARGUMENT LIST.
 
 ARGLIST  BSS    0
 L        ARG    L,L            OUTPUT FILE
 NW       ARG    ON,NW          NO WAIT OPTION
 FM       ARG    FM,FM,400B     FAMILY NAME
 UI       ARG    UIASV,UI,400B  USER INDEX OPTION
 DN       ARG    DN,DN       DEVICE NUMBER
 I        ARG    I,I         DIRECTIVE FILE
 LO       ARG    LO,LO       LIST OPTION
 PX       ARG    PX,PX       PROCESS EXCEPTIONS
 LB       ARG    ON,LB       LARGE FILE BOUNDARY
          ARG                   END OF ARGLIST
 
*         DEFAULT VALUES.
 
 ON       CON    -1
 UIASV    DATA   -1
 
*CALL,COMTMVD
*CALL,COMTMVP
 
          END
          IDENT  USTAB
          ENTRY  USTAB
          ENTRY  ARG=
          SYSCOM B1
          TITLE  USTAB - SET UP *SSUSE* ARGUMENT LIST.
*COMMENT SET UP *SSUSE* ARGUMENT LIST.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 
*CALL COMCMAC
 USTAB    SPACE  4,15
**        USTAB - SET UP *SSUSE* ARGUMENT LIST.
*
*         USTAB(ARGLIST);   (*SYMPL* CALL)
*
*         EXIT    ARGUMENT LIST SET UP.
*                 (ARGLIST) = FWA OF ARGUMENT LIST.
*
*         USES    A - 6.
*                 B - 1
*                 X - 6.
*
*         MACROS ARG.
 
 
 ARG=     BSS     0
 USTAB    SUBR               ENTRY/EXIT
          SB1     1
          SX6     ARGLIST    RETURN ADDRESS OF ARGUMENT LIST
          SA6     X1
          EQ      USTABX     RETURN
 
*         ARGUMENT LIST FOR *SSUSE* CONTROL STATEMENT.
 
 ARGLIST  BSS    0
 OP       ARG    OPASV,OP,400B    RETURN OPTION
 FM       ARG    FMASV,FM,400B    FAMILY NAME
 SB       ARG    SBASV,SB,400B,1  SELECTED SUBFAMILIES
 SM       ARG    SMASV,SM,400B,1  SELECTED SM-ID-S
 L        ARG    LASV,L           OUTPUT FILE
 CN       ARG    CNASV,CN,400B,1  CARTRIDGE SERIAL NUMBER
 CM       ARG    CMASV,CM,400B    CARTRIDGE MANUFACTURER
          ARG                     END OF ARGUMENT LIST
 
*         DEFAULT VALUES.
 
 OPASV    DATA   0
 FMASV    DATA   0
 SBASV    DATA   0L01234567
 SMASV    DATA   1HA
 LASV     DATA   0LOUTPUT
 CNASV    DATA   0
 CMASV    DATA   2LA
 
*CALL     COMTUSP
 
          END
          IDENT  VLTAB
          ENTRY  VLTAB
          ENTRY  ARG=
          SYSCOM B1
          TITLE  VLTAB - SET UP *SSVAL* ARGUMENT LIST.
*COMMENT SET UP *SSVAL* ARGUMENT LIST.
 
*CALL     COMCMAC
 VLTAB    SPACE  4,30
 
**        VLTAB - ASVAL CONTROL CARD ARGUMENTS TABLE.
*
*         *VLTAB* RETURNS THE ADDRESS OF *ARGLIST* TO THE CALLER
*         IN THE CALLING PARAMETER *ARGADDR*.
*
*         SYMPL CALL - VLTAB(ARGADDR);
*
*         ENTRY  (X1) = ADDRESS OF *ARGADDR*.
*
*         EXIT   (ARGADDR) = ADDRESS OF *ARGLIST*.
*
*         USES  X - 6
*               A - 6
*
*         CALLS  COMTVLP - SSVAL CONTROL STATEMENT PARAMETERS ARRAY.
*
*         NOTES  *ARGLIST* IS A TABLE THAT DESCRIBES THE
*                *SSVAL* CONTROL STATEMENT ARGUMENTS, AND DEFAULTS
*                USING THE *NOS* MACRO *ARG*.
*
*
*
*
 
 ARG=     BSS    0
 VLTAB    SUBR               ENTRY/EXIT
          SX6    ARGLIST
          SA6    X1          RETURN ADDRESS OF ARGUMENT LIST
          EQ     VLTABX
 
*         ARGUMENT TABLE
*
*         THE CONTROL CARD PARAMETERS ARE DESCRIBED BY THE ARG MACRO -
* OP      ARG    ASV,ADDR,ST,WC
*         WHERE  OP = 2 CHARACTER KEYWORD.
*                ASV = ASSUMED VALUE IF OP, FORM DETECTED.
*                ADDR = ADDRESS FOR RESULTANT PARAMETER.
*                ST = A STATUS.
*                WC = PARAMETER LENGTH.
*
 
 ARGLIST  BSS    0
 L        ARG    LF,LF
 RF       ARG    RFA,RF
 AM       ARG    ON,AM
 SM       ARG    SM,SM,400B,1
 FM       ARG    ON,FM
 FX       ARG    FX,FX,400B
 RL       ARG    ON,RL
 SB       ARG    SB,SB,400B,1
 ST       ARG    STA,ST,400B
ENDARGS   BSSZ   1           END OF ARGLIST
 
*         DEFAULTS
 
 RFA      CON    7LZZZZRDF
 ON       CON    -1
 STA      DATA   1HX
 
*CALL COMTVLP
 
          END