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