Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.ssarg +++|BLTAB
00002 M01S00002.ssarg +++| IDENT BLTAB
00003 M01S00003.ssarg +++|*CALL COMCMAC
00004 M01S00004.ssarg +++| ENTRY BLTAB
00005 M01S00005.ssarg +++| SYSCOM B1
00006 M01S00006.ssarg +++| TITLE BLTAB - SET UP *SSBLD* ARGUMENT LIST.
00007 M01S00007.ssarg +++|*COMMENT SET UP *SSBLD* ARGUMENT LIST.
00008 M01S00008.ssarg +++|
00009 M01S00009.ssarg +++|** BLTAB SETS UP THE ARGUMENT LIST.
00010 M01S00010.ssarg +++|*
00011 M01S00011.ssarg +++|* THIS PROCEDURE SETS UP THE ARGUMENT LIST.
00012 M01S00012.ssarg +++|* IT CALLS *COMTBLP* TO SET UP THE ADDRESSES OF
00013 M01S00013.ssarg +++|* FOR THE CRACKED PARAMETERS IN THE COMMON
00014 M01S00014.ssarg +++|* AREA *UBLPCOM*. IT PASSES THE ADDRESS OF THE
00015 M01S00015.ssarg +++|* ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
00016 M01S00016.ssarg +++|*
00017 M01S00017.ssarg +++|* SYMPL CALL BLTAB(ARGLIST)
00018 M01S00018.ssarg +++|*
00019 M01S00019.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00020 M01S00020.ssarg +++|* ARGLIST - AN ITEM TO HOLD THE ADDRESS
00021 M01S00021.ssarg +++|* OF THE ARGUMENT LIST.
00022 M01S00022.ssarg +++|*
00023 M01S00023.ssarg +++|* USES A - 6
00024 M01S00024.ssarg +++|* X - 1,6
00025 M01S00025.ssarg +++|*
00026 M01S00026.ssarg +++|* MACRO ARG
00027 M01S00027.ssarg +++|
00028 M01S00028.ssarg +++| BLTAB SUBR ENTRY/EXIT
00029 M01S00029.ssarg +++| SX6 ARGLIST RETURN ADDRESS OF ARGUMENT LIST
00030 M01S00030.ssarg +++| SA6 X1
00031 M01S00031.ssarg +++| EQ BLTABX
00032 M01S00032.ssarg +++|
00033 M01S00033.ssarg +++|* SET UP THE ARGUMENT LIST FOR THE *SSBLD* CONTROL
00034 M01S00034.ssarg +++|* CARD PARAMETERS.
00035 M01S00035.ssarg +++|
00036 M01S00036.ssarg +++| ARGLIST BSS 0
00037 M01S00037.ssarg +++| CF ARG CFASV,CF CONFIGURATION FILE NAME
00038 M01S00038.ssarg +++| BF ARG BFASV,BF BUDT FILE NAME
00039 M01S00039.ssarg +++| ARG END OF ARGUMENT LIST
00040 M01S00040.ssarg +++|
00041 M01S00041.ssarg +++|* DEFAULT VALUES.
00042 M01S00042.ssarg +++|
00043 M01S00043.ssarg +++| CFASV DATA 0LSUDT
00044 M01S00044.ssarg +++| BFASV DATA 0LBUDT
00045 M01S00045.ssarg +++|
00046 M01S00046.ssarg +++|*CALL COMTBLP
00047 M01S00047.ssarg +++| END
00048 M01S00048.ssarg +++| IDENT DBTAB
00049 M01S00049.ssarg +++| ENTRY DBTAB
00050 M01S00050.ssarg +++| SYSCOM B1
00051 M01S00051.ssarg +++| TITLE DBTAB - SET UP *SSDEBUG* ARGUMENT LIST.
00052 M01S00052.ssarg +++|*COMMENT SET UP *SSDEBUG* ARGUMENT LIST.
| Line S00053 Modification History |
M01 (Added by) | ssarg |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00053 M02S00053.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00054 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00055 M01S00054.ssarg +++|
00056 M01S00055.ssarg +++|*CALL COMCMAC
00057 M01S00056.ssarg +++| DBTAB SPACE 4,15
00058 M01S00057.ssarg +++|** DBTAB - SET UP *SSDEBUG* ARGUMENT LIST.
00059 M01S00058.ssarg +++|*
00060 M01S00059.ssarg +++|* DBTAB(ARGLIST); (*SYMPL* CALL)
00061 M01S00060.ssarg +++|*
00062 M01S00061.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00063 M01S00062.ssarg +++|* (ARGLIST) = FWA OF ARGUMENT LIST.
00064 M01S00063.ssarg +++|*
00065 M01S00064.ssarg +++|* USES A - 6.
00066 M01S00065.ssarg +++|* B - 1.
00067 M01S00066.ssarg +++|* X - 6.
00068 M01S00067.ssarg +++|*
00069 M01S00068.ssarg +++|* MACROS ARG.
00070 M01S00069.ssarg +++|
00071 M01S00070.ssarg +++|
00072 M01S00071.ssarg +++| DBTAB SUBR ENTRY/EXIT
00073 M01S00072.ssarg +++| SB1 1
00074 M01S00073.ssarg +++| SX6 ARGLIST ADDRESS OF ARGUMENT LIST
00075 M01S00074.ssarg +++| SA6 X1
00076 M01S00075.ssarg +++| EQ DBTABX RETURN
00077 M01S00076.ssarg +++|
00078 M01S00077.ssarg +++|* ARGUMENT LIST.
00079 M01S00078.ssarg +++|
00080 M01S00079.ssarg +++| ARGLIST BSS 0
00081 M01S00080.ssarg +++| I ARG IASV,I,400B DIRECTIVE FILE
00082 M01S00081.ssarg +++| L ARG L,L OUTPUT FILE
00083 M01S00082.ssarg +++| Z ARG -ZASV,Z *Z* OPTION
00084 M01S00083.ssarg +++| OP ARG OPASV,OP,400B DIRECTIVE NAME
00085 M01S00084.ssarg +++| PF ARG PFASV,PF,400B PERMANENT FILE NAME
00086 M01S00085.ssarg +++| FO ARG FOASV,FO,400B,1 *FCT* ORDINAL
00087 M01S00086.ssarg +++| ST ARG STASV,ST,400B,1 STARTING AU NUMBER
00088 M01S00087.ssarg +++| FM ARG FMASV,FM,400B FAMILY NAME
00089 M01S00088.ssarg +++| SB ARG SBASV,SB,400B SUBFAMILY IDENTIFIER
00090 M01S00089.ssarg +++| SM ARG SMASV,SM,400B SM IDENTIFIER
00091 M01S00090.ssarg +++| SL ARG SLASV,SL,400B LOWER STREAM LIMIT
00092 M01S00091.ssarg +++| SU ARG SUASV,SU,400B UPPER STREAM LIMIT
00093 M01S00092.ssarg +++| CM ARG CMASV,CM,400B CARTRIDGE MAKER IDENTIFIER
00094 M01S00093.ssarg +++| CN ARG CNASV,CN,400B,1 CARTRIDGE SERIAL NUMBER
00095 M01S00094.ssarg +++| YI ARG YIASV,YI,400B,1 Y COORDINATE
00096 M01S00095.ssarg +++| FL ARG FLASV,FL,400B,1 FLAG TO BE CHANGED
00097 M01S00096.ssarg +++| ON ARG -ONASV,ON TURN FLAG ON
00098 M01S00097.ssarg +++| OF ARG -OFASV,OF TURN FLAG OFF
00099 M01S00098.ssarg +++| ZI ARG ZIASV,ZI,400B,1 Z COORDINATE
00100 M01S00099.ssarg +++| ARG END OF ARGLIST.
00101 M01S00100.ssarg +++|
00102 M01S00101.ssarg +++|* DEFAULT VALUES.
00103 M01S00102.ssarg +++|
00104 M01S00103.ssarg +++| IASV DATA 0LINPUT
00105 M01S00104.ssarg +++| ZASV DATA 1
00106 M01S00105.ssarg +++| OPASV DATA 0
00107 M01S00106.ssarg +++| PFASV DATA 0
00108 M01S00107.ssarg +++| FOASV DATA -1
00109 M01S00108.ssarg +++| STASV DATA -1
00110 M01S00109.ssarg +++| FMASV DATA 0
| Line S00110 Modification History |
M01 (Added by) | ssarg |
M02 (Updated by) | msea014 |
Seq # *Modification Id* Act
----------------------------+
00111 M02S00110.msea014 ---| SBASV DATA 0
00112 M01S00001.msea014 +++| SBASV DATA -1
00113 M01S00111.ssarg +++| SMASV DATA 1
00114 M01S00112.ssarg +++| SLASV DATA 0
00115 M01S00113.ssarg +++| SUASV DATA 0
00116 M01S00114.ssarg +++| CMASV DATA 2LA-
00117 M01S00115.ssarg +++| CNASV DATA -1
00118 M01S00116.ssarg +++| DASV DATA -1
00119 M01S00117.ssarg +++| ZIASV DATA 7777B
00120 M01S00118.ssarg +++| YIASV DATA 7777B
00121 M01S00119.ssarg +++| FLASV DATA -1
00122 M01S00120.ssarg +++| ONASV DATA 1
00123 M01S00121.ssarg +++| OFASV DATA 1
00124 M01S00122.ssarg +++|
00125 M01S00123.ssarg +++|*CALL COMTDBP
00126 M01S00124.ssarg +++|
00127 M01S00125.ssarg +++| END
00128 M01S00126.ssarg +++| IDENT DFTAB
00129 M01S00127.ssarg +++|*CALL COMCMAC
00130 M01S00128.ssarg +++| ENTRY DFTAB
00131 M01S00129.ssarg +++| SYSCOM B1
00132 M01S00130.ssarg +++| TITLE DFTAB - SET UP *SSDEF* ARGUMENT LIST.
00133 M01S00131.ssarg +++|*COMMENT SET UP *SSDEF* ARGUMENT LIST.
00134 M01S00132.ssarg +++|
00135 M01S00133.ssarg +++|** DFTAB SETS UP THE ARGUMENT LIST.
00136 M01S00134.ssarg +++|*
00137 M01S00135.ssarg +++|* THIS PROCEDURE SETS UP THE ARGUMENT LIST.
00138 M01S00136.ssarg +++|* IT CALLS *COMUDFP* TO SET UP THE ADDRESSES OF
00139 M01S00137.ssarg +++|* FOR THE CRACKED PARAMETERS IN THE COMMON
00140 M01S00138.ssarg +++|* AREA *UDFPCOM*. IT PASSES THE ADDRESS OF THE
00141 M01S00139.ssarg +++|* ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
00142 M01S00140.ssarg +++|*
00143 M01S00141.ssarg +++|* SYMPL CALL DFTAB(ARGLIST)
00144 M01S00142.ssarg +++|*
00145 M01S00143.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00146 M01S00144.ssarg +++|* ARGLIST - AN ITEM TO HOLD THE ADDRESS
00147 M01S00145.ssarg +++|* OF THE ARGUMENT LIST.
00148 M01S00146.ssarg +++|*
00149 M01S00147.ssarg +++|* USES A - 6
00150 M01S00148.ssarg +++|* X - 1,6
00151 M01S00149.ssarg +++|*
00152 M01S00150.ssarg +++|* MACRO ARG
00153 M01S00151.ssarg +++|
00154 M01S00152.ssarg +++| DFTAB SUBR ENTRY/EXIT
00155 M01S00153.ssarg +++| SX6 ARGLIST RETURN ADDRESS OF ARGUMENT LIST
00156 M01S00154.ssarg +++| SA6 X1
00157 M01S00155.ssarg +++| EQ DFTABX
00158 M01S00156.ssarg +++|
00159 M01S00157.ssarg +++|* SET UP THE ARGUMENT LIST FOR THE *SSDEF* CONTROL
00160 M01S00158.ssarg +++|* CARD PARAMETERS.
00161 M01S00159.ssarg +++|
00162 M01S00160.ssarg +++| ARGLIST BSS 0
00163 M01S00161.ssarg +++| FM ARG FMASV,FM FAMILY NAME
00164 M01S00162.ssarg +++| SM ARG SMASV,SM SM NUMBER
00165 M01S00163.ssarg +++| ARG END OF ARGUMENT LIST
00166 M01S00164.ssarg +++|
00167 M01S00165.ssarg +++|* DEFAULT VALUES.
00168 M01S00166.ssarg +++|
00169 M01S00167.ssarg +++| FMASV DATA 0
00170 M01S00168.ssarg +++| SMASV DATA 0LA
00171 M01S00169.ssarg +++|
00172 M01S00170.ssarg +++|*CALL COMTDFP
00173 M01S00171.ssarg +++| END
00174 M01S00172.ssarg +++| IDENT EXTAB
00175 M01S00173.ssarg +++|*CALL COMCMAC
00176 M01S00174.ssarg +++| ENTRY EXTAB
00177 M01S00175.ssarg +++| SYSCOM B1
00178 M01S00176.ssarg +++| TITLE EXTAB - SET UP *SSEXEC* ARGUMENT LIST.
00179 M01S00177.ssarg +++|*COMMENT SET UP *SSEXEC* ARGUMENT LIST.
00180 M01S00178.ssarg +++|
00181 M01S00179.ssarg +++|** EXTAB SETS UP THE ARGUMENT LIST.
00182 M01S00180.ssarg +++|*
00183 M01S00181.ssarg +++|* THIS PROCEDURE SETS UP THE ARGUMENT LIST.
00184 M01S00182.ssarg +++|* IT CALLS *COMEEXP* TO SET UP THE ADDRESSES FOR THE CRACKED
00185 M01S00183.ssarg +++|* PARAMETERS IN THE COMMON AREA *EEXPCOM*. IT PASSES THE
00186 M01S00184.ssarg +++|* ADDRESS OF THE ARGUMENT LIST BACK TO THE CALLING PROCEDURE.
00187 M01S00185.ssarg +++|*
00188 M01S00186.ssarg +++|* SYMPL CALL EXTAB(ARGLIST).
00189 M01S00187.ssarg +++|*
00190 M01S00188.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00191 M01S00189.ssarg +++|* ARGLIST - AN ITEM TO HOLD THE ADDRESS OF THE ARGUMENT
00192 M01S00190.ssarg +++|* LIST.
00193 M01S00191.ssarg +++|*
00194 M01S00192.ssarg +++|* USES A - 6.
00195 M01S00193.ssarg +++|* X - 1,6.
00196 M01S00194.ssarg +++|*
00197 M01S00195.ssarg +++|* MACRO ARG.
00198 M01S00196.ssarg +++|
00199 M01S00197.ssarg +++| EXTAB SUBR ENTRY/EXIT
00200 M01S00198.ssarg +++| SX6 ARGLIST RETURN ADDRESS OF ARGUMENT LIST
00201 M01S00199.ssarg +++| SA6 X1
00202 M01S00200.ssarg +++| EQ EXTABX
00203 M01S00201.ssarg +++|
00204 M01S00202.ssarg +++|* SET UP THE ARGUMENT LIST FOR *SSEXEC* PARAMETERS.
00205 M01S00203.ssarg +++|
00206 M01S00204.ssarg +++|ARGLIST BSS 0
00207 M01S00205.ssarg +++|Q ARG QASV,Q TUNING PARAMETER
00208 M01S00206.ssarg +++|TM ARG TMASV,TM TRACE MODE PARMAMETER
00209 M01S00207.ssarg +++|S ARG SASV,S SET INDEX PARAMETER
00210 M01S00208.ssarg +++| ARG END OF ARGUMENT LIST
00211 M01S00209.ssarg +++|
00212 M01S00210.ssarg +++|* DEFAULT VALUES.
00213 M01S00211.ssarg +++|
00214 M01S00212.ssarg +++|
00215 M01S00213.ssarg +++|QASV DATA 0
00216 M01S00214.ssarg +++|TMASV DATA 0
00217 M01S00215.ssarg +++|SASV DATA 0
00218 M01S00216.ssarg +++|
00219 M01S00217.ssarg +++|*CALL COMXEXP
00220 M01S00218.ssarg +++|
00221 M01S00219.ssarg +++| END
00222 M01S00220.ssarg +++| IDENT LBTAB
00223 M01S00221.ssarg +++| ENTRY LBTAB
00224 M01S00222.ssarg +++|*COMMENT SET UP *SSLABEL* ARGUMENT LIST.
00225 M01S00223.ssarg +++| SYSCOM B1
00226 M01S00224.ssarg +++| TITLE LBTAB - SET UP *SSLABEL* ARGUMENT LIST.
| Line S00225 Modification History |
M01 (Added by) | ssarg |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00227 M02S00225.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00228 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00229 M01S00226.ssarg +++|
00230 M01S00227.ssarg +++|*CALL COMCMAC
00231 M01S00228.ssarg +++| LBTAB SPACE 4,15
00232 M01S00229.ssarg +++|** LBTAB - SET UP *SSLABEL* ARGUMENT LIST.
00233 M01S00230.ssarg +++|*
00234 M01S00231.ssarg +++|* LBTAB(ARGLIST); (*SYMPL* CALL)
00235 M01S00232.ssarg +++|*
00236 M01S00233.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00237 M01S00234.ssarg +++|* (ARGLIST) = FWA OF ARGUMENT LIST.
00238 M01S00235.ssarg +++|*
00239 M01S00236.ssarg +++|* USES A - 6.
00240 M01S00237.ssarg +++|* B - 1.
00241 M01S00238.ssarg +++|* X - 6.
00242 M01S00239.ssarg +++|*
00243 M01S00240.ssarg +++|* MACROS ARG.
00244 M01S00241.ssarg +++|
00245 M01S00242.ssarg +++|
00246 M01S00243.ssarg +++| LBTAB SUBR ENTRY/EXIT
00247 M01S00244.ssarg +++| SB1 1
00248 M01S00245.ssarg +++| SX6 ARGLIST ADDRESS OF ARGUMENT LIST
00249 M01S00246.ssarg +++| SA6 X1
00250 M01S00247.ssarg +++| EQ LBTABX RETURN
00251 M01S00248.ssarg +++|
00252 M01S00249.ssarg +++|* ARGUMENT LIST FOR *SSLABEL* CONTROL STATEMENT
00253 M01S00250.ssarg +++|* AND DIRECTIVE PARAMETERS.
00254 M01S00251.ssarg +++|
00255 M01S00252.ssarg +++| ARGLIST BSS 0
00256 M01S00253.ssarg +++| I ARG IASV,I,400B DIRECTIVE OPTION
00257 M01S00254.ssarg +++| L ARG L,L OUTPUT FILE
00258 M01S00255.ssarg +++| Z ARG -ZASV,Z *Z* OPTION
00259 M01S00256.ssarg +++| OP ARG OPASV,OP,400B DIRECTIVE NAME
00260 M01S00257.ssarg +++| N ARG NASV,N,400B NUMBER OF CUBES/CARTRIDGES TO PROCESS
00261 M01S00258.ssarg +++| CN ARG CNASV,CN,400B,1 CARTRIDGE SERIAL NUMBER
00262 M01S00259.ssarg +++| PK ARG PKASV,PK,400B PICK OPTION
00263 M01S00260.ssarg +++| PT ARG PTASV,PT,400B PUT OPTION
00264 M01S00261.ssarg +++| GR ARG GRASV,GR
00265 M01S00262.ssarg +++| LT ARG -LTASV,LT CARTRIDGE *LOST* OPTION
00266 M01S00263.ssarg +++| SM ARG SMASV,SM,400B STORAGE MODULE IDENTIFIER
00267 M01S00264.ssarg +++| ON ARG -ONASV,ON TURN FLAG ON OPTION
00268 M01S00265.ssarg +++| OF ARG -OFASV,OF TURN FLAG OFF OPTION
00269 M01S00266.ssarg +++| YI ARG YIASV,YI,400B FIRST Y COORDINATE
00270 M01S00267.ssarg +++| YF ARG YFASV,YF,400B SECOND Y COORDINATE
00271 M01S00268.ssarg +++| ZI ARG ZIASV,ZI,400B FIRST Z COORDINATE
00272 M01S00269.ssarg +++| ZF ARG ZFASV,ZF,400B SECOND Z COORDINATE
00273 M01S00270.ssarg +++| FM ARG FMASV,FM,400B FAMILY NAME
00274 M01S00271.ssarg +++| SB ARG SBASV,SB,400B SUBFAMILY IDENTIFIER
00275 M01S00272.ssarg +++| CM ARG CMASV,CM,400B CARTRIDGE MANUFACTURER
00276 M01S00273.ssarg +++| CC ARG CCASV,CC,400B STORE CLEAR CARTRIDGE
00277 M01S00274.ssarg +++| B ARG BASV,B,400B SMALL FILE SPACE
00278 M01S00275.ssarg +++| ARG END OF STATUS LIST
00279 M01S00276.ssarg +++|
00280 M01S00277.ssarg +++|* DEFAULT VALUES.
00281 M01S00278.ssarg +++|
00282 M01S00279.ssarg +++| IASV DATA 0LINPUT
00283 M01S00280.ssarg +++| ZASV DATA 1
00284 M01S00281.ssarg +++| OPASV DATA 0
00285 M01S00282.ssarg +++| NASV DATA 1
00286 M01S00283.ssarg +++| CNASV DATA 0
00287 M01S00284.ssarg +++| PKASV DATA 0
00288 M01S00285.ssarg +++| PTASV VFD 6/0LP,54/
00289 M01S00286.ssarg +++| GRASV DATA 7777
00290 M01S00287.ssarg +++| LTASV DATA 1
00291 M01S00288.ssarg +++| SMASV DATA 0LA
00292 M01S00289.ssarg +++| ONASV DATA 1
00293 M01S00290.ssarg +++| OFASV DATA 1
00294 M01S00291.ssarg +++| YIASV DATA 7777B
00295 M01S00292.ssarg +++| YFASV DATA 7777B
00296 M01S00293.ssarg +++| ZIASV DATA 7777B
00297 M01S00294.ssarg +++| ZFASV DATA 7777B
00298 M01S00295.ssarg +++| FMASV DATA -1
00299 M01S00296.ssarg +++| SBASV DATA 0
00300 M01S00297.ssarg +++| CCASV DATA -1
00301 M01S00298.ssarg +++| CMASV DATA 2LA-
00302 M01S00299.ssarg +++| BASV DATA 600
00303 M01S00300.ssarg +++|
00304 M01S00301.ssarg +++|*CALL COMTLBP
00305 M01S00302.ssarg +++|
00306 M01S00303.ssarg +++| END
00307 M01S00304.ssarg +++| IDENT MVTAB
00308 M01S00305.ssarg +++| ENTRY MVTAB
00309 M01S00306.ssarg +++| SYSCOM B1
00310 M01S00307.ssarg +++| TITLE MVTAB - SET UP *SSMOVE* ARGUMENT LIST.
00311 M01S00308.ssarg +++|*COMMENT SET UP *SSMOVE* ARGUMENT LIST.
| Line S00309 Modification History |
M01 (Added by) | ssarg |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00312 M02S00309.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00313 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00314 M01S00310.ssarg +++|
00315 M01S00311.ssarg +++|*CALL COMCMAC
00316 M01S00312.ssarg +++|*CALL,COMSPFM
00317 M01S00313.ssarg +++| MVTAB SPACE 4,15
00318 M01S00314.ssarg +++|*** MVTAB - SET UP *SSMOVE* ARGUMENT LIST.
00319 M01S00315.ssarg +++|*
00320 M01S00316.ssarg +++|* MVTAB(ARGLIST); (*SYMPL* CALL)
00321 M01S00317.ssarg +++|*
00322 M01S00318.ssarg +++|* EXIT (ARGLIST) = ADDRESS OF ARGUMENT LIST.
00323 M01S00319.ssarg +++|*
00324 M01S00320.ssarg +++|* USES A - 6.
00325 M01S00321.ssarg +++|* B - 1.
00326 M01S00322.ssarg +++|* X - 6.
00327 M01S00323.ssarg +++|*
00328 M01S00324.ssarg +++|* MACROS ARG.
00329 M01S00325.ssarg +++|
00330 M01S00326.ssarg +++|
00331 M01S00327.ssarg +++|MVTAB SUBR ENTRY/EXIT
00332 M01S00328.ssarg +++| SB1 1
00333 M01S00329.ssarg +++| SX6 ARGLIST ADDRESS OF ARGUMENT LIST
00334 M01S00330.ssarg +++| SA6 X1
00335 M01S00331.ssarg +++| EQ MVTABX RETURN
00336 M01S00332.ssarg +++|
00337 M01S00333.ssarg +++|* ARGUMENT LIST.
00338 M01S00334.ssarg +++|
00339 M01S00335.ssarg +++| ARGLIST BSS 0
00340 M01S00336.ssarg +++| L ARG L,L OUTPUT FILE
00341 M01S00337.ssarg +++| NW ARG ON,NW NO WAIT OPTION
00342 M01S00338.ssarg +++| FM ARG FM,FM,400B FAMILY NAME
00343 M01S00339.ssarg +++| UI ARG UIASV,UI,400B USER INDEX OPTION
00344 M01S00340.ssarg +++| DN ARG DN,DN DEVICE NUMBER
00345 M01S00341.ssarg +++| I ARG I,I DIRECTIVE FILE
00346 M01S00342.ssarg +++| LO ARG LO,LO LIST OPTION
00347 M01S00343.ssarg +++| PX ARG PX,PX PROCESS EXCEPTIONS
00348 M01S00344.ssarg +++| LB ARG ON,LB LARGE FILE BOUNDARY
00349 M01S00345.ssarg +++| ARG END OF ARGLIST
00350 M01S00346.ssarg +++|
00351 M01S00347.ssarg +++|* DEFAULT VALUES.
00352 M01S00348.ssarg +++|
00353 M01S00349.ssarg +++| ON CON -1
00354 M01S00350.ssarg +++| UIASV DATA -1
00355 M01S00351.ssarg +++|
00356 M01S00352.ssarg +++|*CALL,COMTMVD
00357 M01S00353.ssarg +++|*CALL,COMTMVP
00358 M01S00354.ssarg +++|
00359 M01S00355.ssarg +++| END
00360 M01S00356.ssarg +++| IDENT USTAB
00361 M01S00357.ssarg +++| ENTRY USTAB
00362 M01S00358.ssarg +++| ENTRY ARG=
00363 M01S00359.ssarg +++| SYSCOM B1
00364 M01S00360.ssarg +++| TITLE USTAB - SET UP *SSUSE* ARGUMENT LIST.
00365 M01S00361.ssarg +++|*COMMENT SET UP *SSUSE* ARGUMENT LIST.
| Line S00362 Modification History |
M01 (Added by) | ssarg |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00366 M02S00362.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00367 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00368 M01S00363.ssarg +++|
00369 M01S00364.ssarg +++|*CALL COMCMAC
00370 M01S00365.ssarg +++| USTAB SPACE 4,15
00371 M01S00366.ssarg +++|** USTAB - SET UP *SSUSE* ARGUMENT LIST.
00372 M01S00367.ssarg +++|*
00373 M01S00368.ssarg +++|* USTAB(ARGLIST); (*SYMPL* CALL)
00374 M01S00369.ssarg +++|*
00375 M01S00370.ssarg +++|* EXIT ARGUMENT LIST SET UP.
00376 M01S00371.ssarg +++|* (ARGLIST) = FWA OF ARGUMENT LIST.
00377 M01S00372.ssarg +++|*
00378 M01S00373.ssarg +++|* USES A - 6.
00379 M01S00374.ssarg +++|* B - 1
00380 M01S00375.ssarg +++|* X - 6.
00381 M01S00376.ssarg +++|*
00382 M01S00377.ssarg +++|* MACROS ARG.
00383 M01S00378.ssarg +++|
00384 M01S00379.ssarg +++|
00385 M01S00380.ssarg +++| ARG= BSS 0
00386 M01S00381.ssarg +++| USTAB SUBR ENTRY/EXIT
00387 M01S00382.ssarg +++| SB1 1
00388 M01S00383.ssarg +++| SX6 ARGLIST RETURN ADDRESS OF ARGUMENT LIST
00389 M01S00384.ssarg +++| SA6 X1
00390 M01S00385.ssarg +++| EQ USTABX RETURN
00391 M01S00386.ssarg +++|
00392 M01S00387.ssarg +++|* ARGUMENT LIST FOR *SSUSE* CONTROL STATEMENT.
00393 M01S00388.ssarg +++|
00394 M01S00389.ssarg +++| ARGLIST BSS 0
00395 M01S00390.ssarg +++| OP ARG OPASV,OP,400B RETURN OPTION
00396 M01S00391.ssarg +++| FM ARG FMASV,FM,400B FAMILY NAME
00397 M01S00392.ssarg +++| SB ARG SBASV,SB,400B,1 SELECTED SUBFAMILIES
00398 M01S00393.ssarg +++| SM ARG SMASV,SM,400B,1 SELECTED SM-ID-S
00399 M01S00394.ssarg +++| L ARG LASV,L OUTPUT FILE
00400 M01S00395.ssarg +++| CN ARG CNASV,CN,400B,1 CARTRIDGE SERIAL NUMBER
00401 M01S00396.ssarg +++| CM ARG CMASV,CM,400B CARTRIDGE MANUFACTURER
00402 M01S00397.ssarg +++| ARG END OF ARGUMENT LIST
00403 M01S00398.ssarg +++|
00404 M01S00399.ssarg +++|* DEFAULT VALUES.
00405 M01S00400.ssarg +++|
00406 M01S00401.ssarg +++| OPASV DATA 0
00407 M01S00402.ssarg +++| FMASV DATA 0
00408 M01S00403.ssarg +++| SBASV DATA 0L01234567
00409 M01S00404.ssarg +++| SMASV DATA 1HA
00410 M01S00405.ssarg +++| LASV DATA 0LOUTPUT
00411 M01S00406.ssarg +++| CNASV DATA 0
00412 M01S00407.ssarg +++| CMASV DATA 2LA
00413 M01S00408.ssarg +++|
00414 M01S00409.ssarg +++|*CALL COMTUSP
00415 M01S00410.ssarg +++|
00416 M01S00411.ssarg +++| END
00417 M01S00412.ssarg +++| IDENT VLTAB
00418 M01S00413.ssarg +++| ENTRY VLTAB
00419 M01S00414.ssarg +++| ENTRY ARG=
00420 M01S00415.ssarg +++| SYSCOM B1
00421 M01S00416.ssarg +++| TITLE VLTAB - SET UP *SSVAL* ARGUMENT LIST.
00422 M01S00417.ssarg +++|*COMMENT SET UP *SSVAL* ARGUMENT LIST.
00423 M01S00418.ssarg +++|
00424 M01S00419.ssarg +++|*CALL COMCMAC
00425 M01S00420.ssarg +++| VLTAB SPACE 4,30
00426 M01S00421.ssarg +++|
00427 M01S00422.ssarg +++|** VLTAB - ASVAL CONTROL CARD ARGUMENTS TABLE.
00428 M01S00423.ssarg +++|*
00429 M01S00424.ssarg +++|* *VLTAB* RETURNS THE ADDRESS OF *ARGLIST* TO THE CALLER
00430 M01S00425.ssarg +++|* IN THE CALLING PARAMETER *ARGADDR*.
00431 M01S00426.ssarg +++|*
00432 M01S00427.ssarg +++|* SYMPL CALL - VLTAB(ARGADDR);
00433 M01S00428.ssarg +++|*
00434 M01S00429.ssarg +++|* ENTRY (X1) = ADDRESS OF *ARGADDR*.
00435 M01S00430.ssarg +++|*
00436 M01S00431.ssarg +++|* EXIT (ARGADDR) = ADDRESS OF *ARGLIST*.
00437 M01S00432.ssarg +++|*
00438 M01S00433.ssarg +++|* USES X - 6
00439 M01S00434.ssarg +++|* A - 6
00440 M01S00435.ssarg +++|*
00441 M01S00436.ssarg +++|* CALLS COMTVLP - SSVAL CONTROL STATEMENT PARAMETERS ARRAY.
00442 M01S00437.ssarg +++|*
00443 M01S00438.ssarg +++|* NOTES *ARGLIST* IS A TABLE THAT DESCRIBES THE
00444 M01S00439.ssarg +++|* *SSVAL* CONTROL STATEMENT ARGUMENTS, AND DEFAULTS
00445 M01S00440.ssarg +++|* USING THE *NOS* MACRO *ARG*.
00446 M01S00441.ssarg +++|*
00447 M01S00442.ssarg +++|*
00448 M01S00443.ssarg +++|*
00449 M01S00444.ssarg +++|*
00450 M01S00445.ssarg +++|
00451 M01S00446.ssarg +++| ARG= BSS 0
00452 M01S00447.ssarg +++| VLTAB SUBR ENTRY/EXIT
00453 M01S00448.ssarg +++| SX6 ARGLIST
00454 M01S00449.ssarg +++| SA6 X1 RETURN ADDRESS OF ARGUMENT LIST
00455 M01S00450.ssarg +++| EQ VLTABX
00456 M01S00451.ssarg +++|
00457 M01S00452.ssarg +++|* ARGUMENT TABLE
00458 M01S00453.ssarg +++|*
00459 M01S00454.ssarg +++|* THE CONTROL CARD PARAMETERS ARE DESCRIBED BY THE ARG MACRO -
00460 M01S00455.ssarg +++|* OP ARG ASV,ADDR,ST,WC
00461 M01S00456.ssarg +++|* WHERE OP = 2 CHARACTER KEYWORD.
00462 M01S00457.ssarg +++|* ASV = ASSUMED VALUE IF OP, FORM DETECTED.
00463 M01S00458.ssarg +++|* ADDR = ADDRESS FOR RESULTANT PARAMETER.
00464 M01S00459.ssarg +++|* ST = A STATUS.
00465 M01S00460.ssarg +++|* WC = PARAMETER LENGTH.
00466 M01S00461.ssarg +++|*
00467 M01S00462.ssarg +++|
00468 M01S00463.ssarg +++| ARGLIST BSS 0
00469 M01S00464.ssarg +++| L ARG LF,LF
00470 M01S00465.ssarg +++| RF ARG RFA,RF
00471 M01S00466.ssarg +++| AM ARG ON,AM
00472 M01S00467.ssarg +++| SM ARG SM,SM,400B,1
00473 M01S00468.ssarg +++| FM ARG ON,FM
00474 M01S00469.ssarg +++| FX ARG FX,FX,400B
00475 M01S00470.ssarg +++| RL ARG ON,RL
00476 M01S00471.ssarg +++| SB ARG SB,SB,400B,1
00477 M01S00472.ssarg +++| ST ARG STA,ST,400B
00478 M01S00473.ssarg +++|ENDARGS BSSZ 1 END OF ARGLIST
00479 M01S00474.ssarg +++|
00480 M01S00475.ssarg +++|* DEFAULTS
00481 M01S00476.ssarg +++|
00482 M01S00477.ssarg +++| RFA CON 7LZZZZRDF
00483 M01S00478.ssarg +++| ON CON -1
00484 M01S00479.ssarg +++| STA DATA 1HX
00485 M01S00480.ssarg +++|
00486 M01S00481.ssarg +++|*CALL COMTVLP
00487 M01S00482.ssarg +++|
00488 M01S00483.ssarg +++| END