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