CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 0 Table of contents (1) 6 CAMAC ACCESS LIBRARY HEADER (1) 75 SYSTEM AND CAMAC DEFS (1) 91 CAMAC PROCEDURE VECTOR SECTION (1) 111 CAM$ERROR, TEST CAMAC TRANSACTION ERROR (1) 226 CAM$X, TEST CAMAC X RESPONSE (1) 284 CAM$Q, TEST CAMAC Q RESPONSE (1) 342 CAM$XANDQ, TEST CAMAC (X.AND.Q) RESPONSE (1) 404 CAM$GET_STAT, GET CAMAC IMAGE BLOCK IOSB (1) 445 CAM$SHOW_STAT, DISPLAY CAMAC IOSB CONTEN (1) 517 CAM_SHIOSB, SERIAL HIGHWAY IOSB DISPLAY (1) 657 CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 1 V01-003 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0000 1 .TITLE CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 0000 2 .IDENT 'V01-003' 0000 3 0000 4 .LIBRARY /SYS$LIBRARY:LIB/ ; SYSTEM MACRO LIBRARY 0000 5 .LIBRARY /CAMDEF/ ; CAMAC MACRO LIBRARY 0000 6 .SBTTL CAMAC ACCESS LIBRARY HEADER 0000 7 0000 8 ;************************************************************************ 0000 9 ; 0000 10 ; CAMAC ACCESS PROCEDURE LIBRARY FOR THE VAX-11/780 0000 11 ; CAMAC SYSTEM 0000 12 ; 0000 13 ;*************************************************************** 0000 14 0000 15 ;+++ 0000 16 ; 0000 17 ; FACILITY 0000 18 ; OAK RIDGE NATIONAL LABORATORY 0000 19 ; FUSION ENERGY DIVISION 0000 20 ; TOKAMAK SECTION 0000 21 ; 0000 22 ; ABSTRACT 0000 23 ; 0000 24 ; This library contains a collection of procedures 0000 25 ; designed to provide status checking support for the 0000 26 ; VAX CAMAC system developed for the ORNL Fusion Energy 0000 27 ; Division VAX-11/780 computer system(s). These procedures 0000 28 ; are designed to conform to VAX linkage conventions and 0000 29 ; as such should be callable from any VAX supported high-level 0000 30 ; language. Specifically, this library contains the following 0000 31 ; procedures: 0000 32 ; 0000 33 ; CAM$ERROR 0000 34 ; -Analyzes the I/O status block from a CAMAC request to determine 0000 35 ; if any errors occurred on the transaction, 0000 36 ; CAM$X 0000 37 ; -Analyzes the I/O status block from a CAMAC request to determine 0000 38 ; if the X response was generated, 0000 39 ; CAM$Q 0000 40 ; -Analyzes the I/O status block from a CAMAC request to determine 0000 41 ; if the Q response was generated, 0000 42 ; CAM$XANDQ 0000 43 ; -Performs the equivalent of (CAM$X .AND. CAM$Q), 0000 44 ; CAM$GET_STAT 0000 45 ; -Returns raw I/O status block from the CAMAC image block to the 0000 46 ; user. 0000 47 ; CAM$SHOW_STAT 0000 48 ; -Performs analysis and formatted display of CAMAC I/O status block. 0000 49 ; 0000 50 ; 0000 51 ; A brief synopsis of each access procedure is included 0000 52 ; in the preamble for that procedure. 0000 53 ; 0000 54 ; AUTHOR 0000 55 ; E. T. Blair 0000 56 ; 0000 57 ; REVISION HISTORY CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 2 V01-003 CAMAC ACCESS LIBRARY HEADER 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0000 58 ; V01-001, E.T. Blair, 8-SEP-1982 0000 59 ; Made changes necessary to support the parallel highway. These changes 0000 60 ; are primarily assembly time checks made via the ASSUME macro to 0000 61 ; verify consistency of parallel control register and error/status 0000 62 ; register fields in the IOSB with their counterparts in the serial 0000 63 ; control register and error/status register. 0000 64 ; 0000 65 ; V01-002, E.T. Blair, 9-SEP-1982 0000 66 ; Added CAM$SHOW_STAT procedure to the CAMAC status library. This 0000 67 ; procedure analyzes the CAMAC I/O status block and produces a 0000 68 ; formatted display of it's contents. 0000 69 ; 0000 70 ; V01-003, E.T. Blair, 5-JAN-1983 0000 71 ; Added .LIBRARY directives for MACRO libraries required to assemble 0000 72 ; this module. Also, changed CAMAC structures $CAMIODEF, $SHREGS and 0000 73 ; $PHREGS. New equivalent structures are $KSIODEF and $KSREGS. 0000 74 ;--- 0000 75 .SBTTL SYSTEM AND CAMAC DEFS 0000 76 0000 77 $DSCDEF ; DESCRIPTOR STRUC/CODES 0000 78 $JPIDEF ; JOB/PROCESS INFORMATION CODES 0000 79 $SSDEF ; SYSTEM STATUS DEFINITIONS 0000 80 $KSIODEF ; CAMAC I/O FUNCTION CODES 0000 81 $KSREGS ; KS 2051 REGISTER DEFS 0000 82 $RTBDEF ; REGISTER TEMPLATE BLOCK STRUC 0000 83 $IOSBDEF ; CAMAC I/O STATUS BLOCK STRUC 0000 84 $LSTDEF ; KS 2050 LIST MODE DEFS 0000 85 $CIBDEF ; CAMAC IMAGE BLOCK STRUC 0000 86 $CRPDEF ; CAMAC REQUEST PACKET STRUC 0000 87 $LISDEF ; EXECUTE LIST HEADER STRUC 0000 88 $CMAPDEF ; CRATE/CHANNEL MAP DEF 0000 89 $KEYDEF ; CAMAC MODULE KEY STRUC CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 3 V01-003 CAMAC PROCEDURE VECTOR SECTION 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0000 91 .SBTTL CAMAC PROCEDURE VECTOR SECTION 0000 92 00000000 93 .PSECT CAM$VEC,PIC,SHR,NOWRT,EXE 0000 94 0000 95 ;++ 0000 96 ; CAMAC PROCEDURE TRANSFER VECTOR PROGRAM SECTION 0000 97 ; 0000 98 ;-- 0000 99 0000 100 PROCVEC CAM$ERROR ; CAMAC TRANSMISSION ERROR 0008 101 0008 102 PROCVEC CAM$X ; CAMAC X RESPONSE 0010 103 0010 104 PROCVEC CAM$Q ; CAMAC Q RESPONSE 0018 105 0018 106 PROCVEC CAM$XANDQ ; CAMAC X.AND.Q RESPONSE 0020 107 PROCVEC CAM$GET_STAT ; GET CAMAC STATUS 0028 108 0028 109 PROCVEC CAM$SHOW_STAT ; SHOW CAMAC STATUS CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 4 V01-003 CAM$ERROR, TEST CAMAC TRANSACTION ERROR 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0030 111 .SBTTL CAM$ERROR, TEST CAMAC TRANSACTION ERROR 0030 112 .ENABL LSB 00000000 113 .PSECT CAM$CODE,PIC,SHR,NOWRT 0000 114 0000 115 ;+++ 0000 116 ; 0000 117 ; Procedure: 0000 118 ; CAM$ERROR(X,Q[,IOSB]) 0000 119 ; 0000 120 ; Description: 0000 121 ; This procedure determines if a CAMAC transaction error 0000 122 ; occurred and returns a logical value as the function output 0000 123 ; (ERROR=.TRUE.; NOERROR=.FALSE.). Specifically, a .TRUE. return 0000 124 ; value indicates one of the following conditions exists: 0000 125 ; A system detected I/O error occurred(in which case 0000 126 ; the first longword of the IOSB contains a 0000 127 ; system status value), 0000 128 ; A CAMAC transmission error occurred causing the CAMAC 0000 129 ; transaction to terminate with 'ERROR' status, 0000 130 ; The X/Q response from the CAMAC transaction is 0000 131 ; inconsistent with the expected X/Q response. 0000 132 ; 0000 133 ; If further clarification of the nature of the error is required 0000 134 ; the CAM$X, CAM$Q, CAM$XANDQ or CAM$SHOW_STAT functions may be 0000 135 ; used. 0000 136 ; 0000 137 ; If no I/O status block is specified for the call, 0000 138 ; the procedure uses the I/O status block from the CAMAC 0000 139 ; image block. If the I/O status block is specified, it is 0000 140 ; assumed that valid CAMAC I/O status is contained in the 0000 141 ; block. This capability enables the CAM$ERROR function to 0000 142 ; be used to interrogate I/O status from proceed mode CAMAC requests. 0000 143 ; 0000 144 ; Parameters: 0000 145 ; X- address of a LOGICAL variable(any length) specifying 0000 146 ; the expected state of the CAMAC X response(may be 0000 147 ; specified as null for DON'T CARE), 0000 148 ; Q- address of a LOGICAL variable(any length) specifying 0000 149 ; the expected state of the CAMAC Q response(may be 0000 150 ; specified as null for DON'T CARE), 0000 151 ; IOSB- address of a quadword CAMAC I/O status block. If 0000 152 ; not specified, the IOSB from the last CAMAC request 0000 153 ; is utilized. 0000 154 ; 0000 155 ; Return Status: 0000 156 ; .TRUE. if a CAMAC transmission error occurred or if the 0000 157 ; resultant X and Q states are inconsistent with the expected 0000 158 ; values of those states, otherwise, the value .FALSE. is 0000 159 ; returned. 0000 160 ; 0000 161 ;--- 0000 162 0000 163 ; 0000 164 ; PROCEDURE LOCAL DATA 0000 165 ; 00000000 0000 166 ERR_NARGS = 0 ; NUMBER OF ARGS 00000004 0000 167 ERR_X = 4 ; EXPECTED X STATE CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 5 V01-003 CAM$ERROR, TEST CAMAC TRANSACTION ERROR 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 00000008 0000 168 ERR_Q = 8 ; EXPECTED Q STATE 0000000C 0000 169 ERR_IOSB = 12 ; IOSB ARGUMENT 00000002 0000 170 ERR_MINARGS = 2 ; MIN ARG COUNT 00000003 0000 171 ERR_MAXARGS = 3 ; MAX ARG COUNT 0000 172 0000 173 0800 0000 174 .ENTRY CAM$ERROR,^M 0002 175 6C 91 0002 176 CMPB ERR_NARGS(AP),- ; MIN ARGS SPECIFIED? 02 0004 177 #ERR_MINARGS 06 18 0005 178 BGEQ 10$ ; IF SO, CONTINUE 50 0114 8F 3C 0007 179 MOVZWL #SS$_INSFARG,R0 ; SET ERROR STATUS 04 000C 180 RET ; RETURN TO CALLER 000D 181 10$: 5B 00000000'GF 9E 000D 182 MOVAB G^CAM_CIB,R11 ; GET CIB ADDRESS 51 6B 9E 0014 183 MOVAB CIB_Q_IOSB(R11),R1 ; GET CIB IOSB ADDRESS 6C 91 0017 184 CMPB ERR_NARGS(AP),- ; IOSB SPECIFIED? 03 0019 185 #ERR_MAXARGS 09 19 001A 186 BLSS 20$ ; IF NOT, SKIP 0C AC D5 001C 187 TSTL ERR_IOSB(AP) ; JUST NULL? 04 13 001F 188 BEQL 20$ ; IF 0, ASSUME SO 51 0C AC D0 0021 189 MOVL ERR_IOSB(AP),R1 ; ASSUME VALID IOSB ADDRESS 0025 190 20$: 50 01 CE 0025 191 MNEGL #1,R0 ; ASSUME ERROR CONDITION 35 61 E9 0028 192 BLBC (R1),90$ ; IF SYSTEM ERROR, EXIT 002B 193 ASSUME SCT_V_ERR,EQ,PCT_V_ERR ; PAR/SER CONSISTENCY CHECK 0F E0 002B 194 BBS #SCT_V_ERR,- ; EXIT IF 'ERR' BIT SET 31 61 002D 195 IOSB_W_CTR(R1),90$ 002F 196 ASSUME SES_V_STE,EQ,PES_V_BTO ; PAR/SER CONSISTENCY CHECK 0F E0 002F 197 BBS #SES_V_STE,- ; EXIT IF 'STE' BIT SET 2C 04 A1 0031 198 IOSB_W_ESR(R1),90$ 04 AC D5 0034 199 TSTL ERR_X(AP) ; NULL ARGUMENT? 10 13 0037 200 BEQL 40$ ; IF 0, ASSUME SO 0039 201 ASSUME SES_V_SX,EQ,PES_V_BX 07 04 BC E9 0039 202 BLBC @ERR_X(AP),30$ ; BRANCH IF X NOT EXPECTED 0D E1 003D 203 BBC #SES_V_SX,- ; X RESPONSE GENERATED? 1E 04 A1 003F 204 IOSB_W_ESR(R1),90$ ; IF NOT, EXIT 05 11 0042 205 BRB 40$ ; CONTINUE 0044 206 30$: 0D E0 0044 207 BBS #SES_V_SX,- ; X RESPONSE GENERATED? 17 04 A1 0046 208 IOSB_W_ESR(R1),90$ ; IF SO, EXIT 0049 209 40$: 08 AC D5 0049 210 TSTL ERR_Q(AP) ; NULL ARGUMENT? 10 13 004C 211 BEQL 80$ ; IF 0, ASSUME SO 004E 212 ASSUME SES_V_SQ,EQ,PES_V_BQ 07 08 BC E9 004E 213 BLBC @ERR_Q(AP),50$ ; BRANCH IF Q NOT EXPECTED 0E E1 0052 214 BBC #SES_V_SQ,- ; Q RESPONSE GENERATED 09 04 A1 0054 215 IOSB_W_ESR(R1),90$ ; IF NOT, EXIT 05 11 0057 216 BRB 80$ ; CONTINUE 0059 217 50$: 0E E0 0059 218 BBS #SES_V_SQ,- ; Q RESPONSE GENERATED? 02 04 A1 005B 219 IOSB_W_ESR(R1),90$ ; IF SO, EXIT 005E 220 80$: 50 D4 005E 221 CLRL R0 ; CHANGE TO INDICATE NO ERROR 0060 222 90$: 04 0060 223 RET ; RETURN TO CALLER 0061 224 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 6 V01-003 CAM$X, TEST CAMAC X RESPONSE 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0061 226 .SBTTL CAM$X, TEST CAMAC X RESPONSE 0061 227 .ENABL LSB 0061 228 0061 229 ;+++ 0061 230 ; 0061 231 ; Procedure: 0061 232 ; CAM$X([IOSB]) 0061 233 ; 0061 234 ; Description: 0061 235 ; This procedure determines the X response from a CAMAC I/O 0061 236 ; and returns a logical value as the function output 0061 237 ; (X=.TRUE.; NO X=.FALSE.). If no I/O status block 0061 238 ; is specified for the call, the procedure uses the I/O 0061 239 ; status block from the last CAMAC request. If the I/O 0061 240 ; status block is specified, it is assumed that valid 0061 241 ; CAMAC I/O status is contained in the block. This capability 0061 242 ; enables the CAM$X function to be used to interrogate 0061 243 ; I/O status from proceed mode CAMAC requests. 0061 244 ; 0061 245 ; Parameters: 0061 246 ; IOSB- address of a quadword CAMAC I/O status block. If 0061 247 ; not specified, the IOSB from the last CAMAC request 0061 248 ; is utilized. 0061 249 ; 0061 250 ; Return Status: 0061 251 ; .TRUE. if X=1 response received, 0061 252 ; .FALSE. if X=0 response received. 0061 253 ; 0061 254 ;--- 0061 255 0061 256 ; 0061 257 ; PROCEDURE LOCAL DATA 0061 258 ; 00000000 0061 259 CAMX_NARGS = 0 ; NUMBER OF ARGS 00000004 0061 260 CAMX_IOSB = 4 ; IOSB ARGUMENT 00000000 0061 261 CAMX_MINARGS = 0 ; MIN ARG COUNT 00000001 0061 262 CAMX_MAXARGS = 1 ; MAX ARG COUNT 0061 263 0061 264 0800 0061 265 .ENTRY CAM$X,^M 0063 266 5B 00000000'GF 9E 0063 267 MOVAB G^CAM_CIB,R11 ; GET CIB ADDRESS 51 6B 9E 006A 268 MOVAB CIB_Q_IOSB(R11),R1 ; GET CIB IOSB ADDRESS 6C 95 006D 269 TSTB CAMX_NARGS(AP) ; ARG COUNT 0? 09 13 006F 270 BEQL 10$ ; IF YES, USE CIB IOSB 04 AC D5 0071 271 TSTL CAMX_IOSB(AP) ; IOSB SPECIFIED? 04 13 0074 272 BEQL 10$ ; IF 0, NULL PARAMETER 51 04 AC D0 0076 273 MOVL CAMX_IOSB(AP),R1 ; ASSUME VALID IOSB ADDRESS 007A 274 10$: 50 D4 007A 275 CLRL R0 ; SET STATE .FALSE. 007C 276 ASSUME SES_V_SX,EQ,PES_V_BX ; PAR/SER CONSISTENCY CHECK 0D E1 007C 277 BBC #SES_V_SX,- ; EXIT IF 'X' BIT RESET 03 04 A1 007E 278 IOSB_W_ESR(R1),20$ 50 01 CE 0081 279 MNEGL #1,R0 ; SET STATE .TRUE. 0084 280 20$: 04 0084 281 RET ; RETURN TO CALLER 0085 282 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 7 V01-003 CAM$Q, TEST CAMAC Q RESPONSE 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0085 284 .SBTTL CAM$Q, TEST CAMAC Q RESPONSE 0085 285 .ENABL LSB 0085 286 0085 287 ;+++ 0085 288 ; 0085 289 ; Procedure: 0085 290 ; CAM$Q([IOSB]) 0085 291 ; 0085 292 ; Description: 0085 293 ; This procedure determines the Q response from a CAMAC I/O 0085 294 ; and returns a logical value as the function output 0085 295 ; (Q=.TRUE.; NO Q=.FALSE.). If no I/O status block 0085 296 ; is specified for the call, the procedure uses the I/O 0085 297 ; status block from the last CAMAC request. If the I/O 0085 298 ; status block is specified, it is assumed that valid 0085 299 ; CAMAC I/O status is contained in the block. This capability 0085 300 ; enables the CAM$Q function to be used to interrogate 0085 301 ; I/O status from proceed mode CAMAC requests. 0085 302 ; 0085 303 ; Parameters: 0085 304 ; IOSB- address of a quadword CAMAC I/O status block. If 0085 305 ; not specified, the IOSB from the last CAMAC request 0085 306 ; is utilized. 0085 307 ; 0085 308 ; Return Status: 0085 309 ; .TRUE. if Q=1 response received, 0085 310 ; .FALSE. if Q=0 response received. 0085 311 ; 0085 312 ;--- 0085 313 0085 314 ; 0085 315 ; PROCEDURE LOCAL DATA 0085 316 ; 00000000 0085 317 CAMQ_NARGS = 0 ; NUMBER OF ARGS 00000004 0085 318 CAMQ_IOSB = 4 ; IOSB ARGUMENT 00000000 0085 319 CAMQ_MINARGS = 0 ; MIN ARG COUNT 00000001 0085 320 CAMQ_MAXARGS = 1 ; MAX ARG COUNT 0085 321 0085 322 0800 0085 323 .ENTRY CAM$Q,^M 0087 324 5B 00000000'GF 9E 0087 325 MOVAB G^CAM_CIB,R11 ; GET CIB ADDRESS 51 6B 9E 008E 326 MOVAB CIB_Q_IOSB(R11),R1 ; GET CIB IOSB ADDRESS 6C 95 0091 327 TSTB CAMQ_NARGS(AP) ; ARG COUNT 0? 09 13 0093 328 BEQL 10$ ; IF YES, USE CIB IOSB 04 AC D5 0095 329 TSTL CAMQ_IOSB(AP) ; IOSB SPECIFIED? 04 13 0098 330 BEQL 10$ ; IF 0, NULL PARAMETER 51 04 AC D0 009A 331 MOVL CAMQ_IOSB(AP),R1 ; ASSUME VALID IOSB ADDRESS 009E 332 10$: 50 D4 009E 333 CLRL R0 ; SET STATE .FALSE. 00A0 334 ASSUME SES_V_SQ,EQ,PES_V_BQ ; PAR/SER CONSISTENCY CHECK 0E E1 00A0 335 BBC #SES_V_SQ,- ; EXIT IF 'Q' BIT RESET 03 04 A1 00A2 336 IOSB_W_ESR(R1),20$ 50 01 CE 00A5 337 MNEGL #1,R0 ; SET STATE .TRUE. 00A8 338 20$: 04 00A8 339 RET ; RETURN TO CALLER 00A9 340 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 8 V01-003 CAM$XANDQ, TEST CAMAC (X.AND.Q) RESPONSE 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 00A9 342 .SBTTL CAM$XANDQ, TEST CAMAC (X.AND.Q) RESPONSE 00A9 343 .ENABL LSB 00A9 344 00A9 345 ;+++ 00A9 346 ; 00A9 347 ; Procedure: 00A9 348 ; CAM$XANDQ([IOSB]) 00A9 349 ; 00A9 350 ; Description: 00A9 351 ; This procedure determines the logical AND of the X and Q 00A9 352 ; responses from a CAMAC I/O and returns a logical value 00A9 353 ; as the function output( X=1 .AND. Q=1 returns .TRUE.; 00A9 354 ; X=0 .OR. Q=0 returns .FALSE.). If no I/O status block 00A9 355 ; is specified for the call, the procedure uses the I/O 00A9 356 ; status block from the last CAMAC request. If the I/O 00A9 357 ; status block is specified, it is assumed that valid 00A9 358 ; CAMAC I/O status is contained in the block. This capability 00A9 359 ; enables the CAM$Q function to be used to interrogate 00A9 360 ; I/O status from proceed mode CAMAC requests. 00A9 361 ; 00A9 362 ; Parameters: 00A9 363 ; IOSB- address of a quadword CAMAC I/O status block. If 00A9 364 ; not specified, the IOSB from the last CAMAC request 00A9 365 ; is utilized. 00A9 366 ; 00A9 367 ; Return Status: 00A9 368 ; .TRUE. if (X=1 .AND. Q=1), 00A9 369 ; .FALSE. if (X=0 .OR. Q=0). 00A9 370 ; 00A9 371 ;--- 00A9 372 00A9 373 ; 00A9 374 ; PROCEDURE LOCAL DATA 00A9 375 ; 00000000 00A9 376 XNQ_NARGS = 0 ; NUMBER OF ARGS 00000004 00A9 377 XNQ_IOSB = 4 ; IOSB ARGUMENT 00000000 00A9 378 XNQ_MINARGS = 0 ; MIN ARG COUNT 00000001 00A9 379 XNQ_MAXARGS = 1 ; MAX ARG COUNT 00A9 380 00A9 381 0800 00A9 382 .ENTRY CAM$XANDQ,^M 00AB 383 5B 00000000'GF 9E 00AB 384 MOVAB G^CAM_CIB,R11 ; GET CIB ADDRESS 51 6B 9E 00B2 385 MOVAB CIB_Q_IOSB(R11),R1 ; GET CIB IOSB ADDRESS 6C 95 00B5 386 TSTB XNQ_NARGS(AP) ; ARG COUNT 0? 09 13 00B7 387 BEQL 10$ ; IF YES, USE CIB IOSB 04 AC D5 00B9 388 TSTL XNQ_IOSB(AP) ; IOSB SPECIFIED? 04 13 00BC 389 BEQL 10$ ; IF 0, NULL PARAMETER 51 04 AC D0 00BE 390 MOVL XNQ_IOSB(AP),R1 ; ASSUME VALID IOSB ADDRESS 00C2 391 10$: 50 D4 00C2 392 CLRL R0 ; SET STATE .FALSE. 00C4 393 ASSUME SES_V_SX,EQ,PES_V_BX ; PAR/SER CONSISTENCY CHECK 00C4 394 ASSUME SES_V_SQ,EQ,PES_V_BQ 0D E1 00C4 395 BBC #SES_V_SX,- ; EXIT IF 'X' BIT RESET 08 04 A1 00C6 396 IOSB_W_ESR(R1),20$ 0E E1 00C9 397 BBC #SES_V_SQ,- ; EXIT IF 'Q' BIT RESET 03 04 A1 00CB 398 IOSB_W_ESR(R1),20$ CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 9 V01-003 CAM$XANDQ, TEST CAMAC (X.AND.Q) RESPONSE 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 50 01 CE 00CE 399 MNEGL #1,R0 ; SET STATE .TRUE. 00D1 400 20$: 04 00D1 401 RET ; RETURN TO CALLER 00D2 402 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 10 V01-003 CAM$GET_STAT, GET CAMAC IMAGE BLOCK IOSB 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 00D2 404 .SBTTL CAM$GET_STAT, GET CAMAC IMAGE BLOCK IOSB AND RETURN 00D2 405 .ENABL LSB 00D2 406 00D2 407 ;+++ 00D2 408 ; 00D2 409 ; Procedure: 00D2 410 ; CAM$GET_STAT(IOSB) 00D2 411 ; 00D2 412 ; Description: 00D2 413 ; This procedure provides a means for a CAMAC user to sample the 00D2 414 ; CAMAC image block I/O status block(which is used as the default 00D2 415 ; IOSB for all CAMAC I/O requests). The contents of the 00D2 416 ; CIB IOSB is returned in the quadword buffer specified by 00D2 417 ; the caller(IOSB). Function status is always returned as 00D2 418 ; SS$_NORMAL. 00D2 419 ; 00D2 420 ; Parameters: 00D2 421 ; IOSB- address of a quadword buffer to receive the CAMAC image 00D2 422 ; block IOSB contents. 00D2 423 ; 00D2 424 ;--- 00D2 425 ; 00D2 426 ; PROCEDURE LOCAL DATA 00D2 427 ; 00000000 00D2 428 GST_NARGS = 0 ; ARGUMENT CO 00000004 00D2 429 GST_IOSB = 4 ; IOSB ADDRESS 00000001 00D2 430 GST_MINARGS = 1 ; MIN ARG COUNT 00D2 431 0800 00D2 432 .ENTRY CAM$GET_STAT,^M 00D4 433 5B 00000000'GF 9E 00D4 434 MOVAB G^CAM_CIB,R11 ; GET CAMAC IMAGE BLOCK ADDR 01 6C 91 00DB 435 CMPB GST_NARGS(AP),#GST_MINARGS ; ARGS SUFFICITNE? 06 13 00DE 436 BEQL 10$ 50 0114 8F 3C 00E0 437 MOVZWL #SS$_INSFARG,R0 ; SIGNAL ERROR 04 00E5 438 RET ; RETURN TO CALLER 00E6 439 10$: 6B 7D 00E6 440 MOVQ CIB_Q_IOSB(R11),- ; COPY CIB IOSB TO 04 BC 00E8 441 @GST_IOSB(AP) ; TO USER IOSB 04 00EA 442 RET ; RETURN TO CALLER 00EB 443 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 11 V01-003 CAM$SHOW_STAT, DISPLAY CAMAC IOSB CONTEN 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 00EB 445 .SBTTL CAM$SHOW_STAT, DISPLAY CAMAC IOSB CONTENTS 00EB 446 .ENABL LSB 00EB 447 ;+++ 00EB 448 ; 00EB 449 ; Procedure: 00EB 450 ; CAM$SHOW_STAT([IOSB]) 00EB 451 ; 00EB 452 ; Description: 00EB 453 ; This procedure performs an analysis of the CAMAC I/O status 00EB 454 ; block resulting from a CAMAC I/O request. The quadword IOSB 00EB 455 ; is interpreted as follows: 00EB 456 ; 00EB 457 ; If (.not.IOSB(1)) then 00EB 458 ; IOSB(1) contains a system status code(SS$_xx), 00EB 459 ; IOSB(2) contents are unpredictable. 00EB 460 ; Else 00EB 461 ; IOSB_W(1) contains final CTR state(SCT/PCT), 00EB 462 ; IOSB_W(2) contains net transfer count(bytes), 00EB 463 ; IOSB_W(3) contains final ESR state(SES/PES), 00EB 464 ; IOSB_W(4) contains net reply list count(bytes). 00EB 465 ; End If 00EB 466 ; 00EB 467 ; The resulting display of the CAMAC IOSB consists of either an 00EB 468 ; appropriate system status message or a collection of CAMAC status 00EB 469 ; messages. 00EB 470 ; 00EB 471 ; If the optional I/O status block parameter is specified, it is assumed 00EB 472 ; that it represents a valid CAMAC I/O status block. If not specified, 00EB 473 ; the call defaults to the I/O status block in the CAMAC image block. 00EB 474 ; 00EB 475 ; Parameters: 00EB 476 ; IOSB- address of a quadword buffer containing valid CAMAC I/O status. 00EB 477 ; If not specified, defaults to CIB IOSB. 00EB 478 ; 00EB 479 ;--- 00EB 480 00EB 481 ; 00EB 482 ; PROCEDURE LOCAL DATA 00EB 483 ; 00000000 00EB 484 CSS_NARGS = 0 ; ARGUMENT COUNT 00000004 00EB 485 CSS_IOSB = 4 ; CAMAC IOSB 00EB 486 083C 00EB 487 .ENTRY CAM$SHOW_STAT,^M 00ED 488 5B 00000000'GF 9E 00ED 489 MOVAB G^CAM_CIB,R11 ; GET CIB ADDRESS 55 6B 7E 00F4 490 MOVAQ CIB_Q_IOSB(R11),R5 ; ASSUME USE CIB IOSB 6C D5 00F7 491 TSTL CSS_NARGS(AP) ; ANY ARGS SPECIFIED? 09 13 00F9 492 BEQL 10$ ; IF 0, NONE THERE 04 AC D5 00FB 493 TSTL CSS_IOSB(AP) ; NULL SPECIFIED? 04 13 00FE 494 BEQL 10$ ; IF SO, USE CIB IOSB 55 04 AC D0 0100 495 MOVL CSS_IOSB(AP),R5 ; GET IOSB ADDRESS 0104 496 10$: 1A 65 E8 0104 497 BLBS (R5),20$ ; VALID CAMAC STATUS? 0107 498 ; IF NOT, MUST BE 'SS$_XX' CODE 00 DD 0107 499 PUSHL #0 ; FAO COUNT=0 65 DD 0109 500 PUSHL (R5) ; STATUS TO STACK 02 DD 010B 501 PUSHL #2 ; MSG VECTOR COUNT CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 12 V01-003 CAM$SHOW_STAT, DISPLAY CAMAC IOSB CONTEN 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 51 5E D0 010D 502 MOVL SP,R1 ; SAVE MSG VEC ADDRESS 0110 503 $PUTMSG_S - ; DISPLAY SYSTEM ERROR MSG 0110 504 MSGVEC=(R1) ; MSG VECTOR 17 11 011F 505 BRB 90$ ; EXIT PROCEDURE 0121 506 20$: 55 DD 0121 507 PUSHL R5 ; P1=IOSB 09 04 A5 08 E0 0123 508 BBS #KS_V_PH,IOSB_W_ESR(R5),30$ ; PARALLEL IOSB? 0000018F'EF 01 FB 0128 509 CALLS #1,CAM_SHIOSB ; DECODE SERIAL HIGHWAY IOSB 07 11 012F 510 BRB 90$ ; EXIT PROCEDURE 0131 511 30$: 00000266'EF 01 FB 0131 512 CALLS #1,CAM_PHIOSB ; DECODE PARALLEL HIGHWAY IOSB 0138 513 90$: 04 0138 514 RET ; RETURN TO CALLER 0139 515 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 13 V01-003 CAM_SHIOSB, SERIAL HIGHWAY IOSB DISPLAY 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0139 517 .SBTTL CAM_SHIOSB, SERIAL HIGHWAY IOSB DISPLAY PROCEDURE 0139 518 .ENABL LSB 0139 519 0139 520 ;++ 0139 521 ; 0139 522 ; Procedure: 0139 523 ; CAM_SHIOSB(IOSB) 0139 524 ; 0139 525 ; Description: 0139 526 ; 0139 527 ; Parameters 0139 528 ; IOSB- address of CAMAC IOSB. 0139 529 ; 0139 530 ;-- 0139 531 0139 532 ; 0139 533 ; PROCEDURE LOCAL DATA 0139 534 ; 00000000 0139 535 SHS_NARGS = 0 ; ARG COUNT 00000004 0139 536 SHS_IOSB = 4 ; IOSB ADDRESS 0139 537 ; 0139 538 ; SERIAL ERROR/STATUS REGISTER ANALYSIS VECTORS 0139 539 ; 0139 540 SHS_B_SESSET: 04 0139 541 .BYTE SES_V_LSYN ; LOST SYNCH BIT 06 013A 542 .BYTE SES_V_TMO ; SERIAL TIMEOUT 09 013B 543 .BYTE SES_V_TPE ; TRANS PARITY ERROR 0A 013C 544 .BYTE SES_V_LPE ; LONG PARITY ERROR 0B 013D 545 .BYTE SES_V_DERR ; DELAYED ERROR 0C 013E 546 .BYTE SES_V_ERR ; ERROR 0D 013F 547 .BYTE SES_V_SX ; SERIAL X 0E 0140 548 .BYTE SES_V_SQ ; SERIAL Q 0F 0141 549 .BYTE SES_V_STE ; SERIAL TRANS ERROR 00000009 0142 550 SHS_K_SESSL = .-SHS_B_SESSET ; VECTOR LENGTH 0142 551 SHS_L_SESSMSG: 00000000' 0142 552 .LONG SH$_SESLSYNC 00000000' 0146 553 .LONG SH$_SESTMO 00000000' 014A 554 .LONG SH$_SESTPE 00000000' 014E 555 .LONG SH$_SESLPE 00000000' 0152 556 .LONG SH$_SESDERR 00000000' 0156 557 .LONG SH$_SESERR 00000000' 015A 558 .LONG SH$_SESSX 00000000' 015E 559 .LONG SH$_SESSQ 00000000' 0162 560 .LONG SH$_SESSTE 0166 561 SHS_B_SESCLR: 0D 0166 562 .BYTE SES_V_SX ; NO SERIAL X 0E 0167 563 .BYTE SES_V_SQ ; NO SERIAL Q 00000002 0168 564 SHS_K_SESCL = .-SHS_B_SESCLR ; VECTOR LENGTH 0168 565 SHS_L_SESCMSG: 00000000' 0168 566 .LONG SH$_SESNOSX 00000000' 016C 567 .LONG SH$_SESNOSQ 0170 568 ; 0170 569 ; SERIAL CONTROL REGISTER ANALYSIS VECTORS 0170 570 ; 0170 571 SHS_L_SCTMODE: 00000000' 0170 572 .LONG SH$_SCTPIO ; PROGRAMMED I/O 00000000' 0174 573 .LONG SH$_SCTQSCAN ; Q-SCAN CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 14 V01-003 CAM_SHIOSB, SERIAL HIGHWAY IOSB DISPLAY 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 00000000' 0178 574 .LONG SH$_SCTQSTOP ; Q-STOP 00000000' 017C 575 .LONG SH$_SCTSTOP ; STOP 0180 576 SHS_B_SCTSET: 08 0180 577 .BYTE SCT_V_BGL ; UNIBUS GRANT LATE 09 0181 578 .BYTE SCT_V_NXM ; UNITUB NONEXISTENT MEMORY 0F 0182 579 .BYTE SCT_V_ERR ; SCT ERROR BIT 00000003 0183 580 SHS_K_SCTSL = .-SHS_B_SCTSET ; VECTOR LENGTH 0183 581 SHS_L_SCTSMSG: 00000000' 0183 582 .LONG SH$_SCTBGL 00000000' 0187 583 .LONG SH$_SCTNXM 00000000' 018B 584 .LONG SH$_SCTERR 018F 585 018F 586 CAM_SHIOSB: 0030 018F 587 .WORD ^M 0191 588 55 04 AC D0 0191 589 MOVL SHS_IOSB(AP),R5 ; GET IOSB ADDRESS 54 5E D0 0195 590 MOVL SP,R4 ; SAVE ENTRY STACK LEVEL 0198 591 ; 0198 592 ; PROCESS SERIAL ERROR/STATUS REGISTER 0198 593 ; 51 D4 0198 594 CLRL R1 ; USE R1 FOR VECTOR INDEX 019A 595 100$: 50 9B AF41 9A 019A 596 MOVZBL SHS_B_SESSET[R1],R0 ; GET BIT POS TO TEST 06 04 A5 50 E1 019F 597 BBC R0,IOSB_W_ESR(R5),110$ ; IF BIT RESET, SKIP 00 DD 01A4 598 PUSHL #0 ; FAO COUNT=0 98 AF41 DD 01A6 599 PUSHL SHS_L_SESSMSG[R1] ; MESSAGE ID 01AA 600 110$: EC 51 09 F2 01AA 601 AOBLSS #SHS_K_SESSL,R1,100$ ; CONTINUE SCAN 01AE 602 51 D4 01AE 603 CLRL R1 ; ZAP R1 FOR VECTOR INDEX 01B0 604 120$: 50 B2 AF41 9A 01B0 605 MOVZBL SHS_B_SESCLR[R1],R0 ; GET BIT POS TO TEST 06 04 A5 50 E0 01B5 606 BBS R0,IOSB_W_ESR(R5),130$ ; IF SET, SKIP 00 DD 01BA 607 PUSHL #0 ; FAO COUNT=0 A8 AF41 DD 01BC 608 PUSHL SHS_L_SESCMSG[R1] ; MESSAGE ID 01C0 609 130$: EC 51 02 F2 01C0 610 AOBLSS #SHS_K_SESCL,R1,120$ ; CONTINUE SCAN 01C4 611 7E 04 A5 3C 01C4 612 MOVZWL IOSB_W_ESR(R5),-(SP) ; SES TO MSG VEC 01 DD 01C8 613 PUSHL #1 ; FAO COUNT 00000000'8F DD 01CA 614 PUSHL #SH$_RAWSES ; MSG CODE FOR RAW SES 01D0 615 ; 01D0 616 ; PROCESS SERIAL CONTROL REGISTER 01D0 617 ; 04 01 EF 01D0 618 EXTZV #SCT_V_M,#SCT_S_M,- ; EXTRACT MODE FROM SCT 50 65 01D3 619 IOSB_W_CTR(R5),R0 00 DD 01D5 620 PUSHL #0 ; FAO COUNT=0 95 AF40 DD 01D7 621 PUSHL SHS_L_SCTMODE[R0] ; MSG ID FOR MODE 51 D4 01DB 622 CLRL R1 ; ZAP R1 FOR VECTOR INDEX 01DD 623 200$: 50 9F AF41 9A 01DD 624 MOVZBL SHS_B_SCTSET[R1],R0 ; GET BIT POS TO TEST 06 65 50 E1 01E2 625 BBC R0,IOSB_W_CTR(R5),210$ ; IF RESET, SKIP 00 DD 01E6 626 PUSHL #0 ; FAO COUNT=0 97 AF41 DD 01E8 627 PUSHL SHS_L_SCTSMSG[R1] ; MESSAGE ID 01EC 628 210$: ED 51 03 F2 01EC 629 AOBLSS #SHS_K_SCTSL,R1,200$ ; CONTINUE SCAN 01F0 630 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 15 V01-003 CAM_SHIOSB, SERIAL HIGHWAY IOSB DISPLAY 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 7E 65 3C 01F0 631 MOVZWL IOSB_W_CTR(R5),-(SP) ; CTR TO MSG VEC 01 DD 01F3 632 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 01F5 633 PUSHL #SH$_RAWSCT ; MSG CODE FOR RAW SCT 01FB 634 ; 01FB 635 ; REPLY LIST BYTE COUNT 01FB 636 ; 7E 06 A5 3C 01FB 637 MOVZWL IOSB_W_RCNT(R5),-(SP) ; REPLY BCNT TO MSG VEC 01 DD 01FF 638 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 0201 639 PUSHL #SH$_RBCNT ; MSG CODE FOR RBCNT 0207 640 ; 0207 641 ; TRANSACTION/EXE LIST BYTE COUNT 0207 642 ; 7E 02 A5 3C 0207 643 MOVZWL IOSB_W_BCNT(R5),-(SP) ; TRANSACTION BCNT/EXE BCNT TO MSG VEC 01 DD 020B 644 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 020D 645 PUSHL #SH$_BCNT ; MSG CODE FOR BCNT 0213 646 ; 0213 647 ; DISPLAY MESSAGE VECTOR VIA PUTMSG SYSTEM SERVICE 0213 648 ; 54 5E C2 0213 649 SUBL SP,R4 ; COMPUTE MSG VEC LENGTH 7E 54 FE 8F 78 0216 650 ASHL #-2,R4,-(SP) ; BYTE COUNT=>LONGWORD COUNT 51 5E D0 021B 651 MOVL SP,R1 ; R1=MSG VEC ADDRESS 021E 652 $PUTMSG_S - ; DISPLAY MESSAGE VECTOR 021E 653 MSGVEC=(R1) ; MSG VEC ADDR 04 022D 654 RET ; RETURN TO CALLER 022E 655 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 16 V01-003 CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 022E 657 .SBTTL CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB 022E 658 .ENABL LSB 022E 659 022E 660 ;++ 022E 661 ; 022E 662 ; Procedure: 022E 663 ; CAM_PHIOSB(IOSB) 022E 664 ; 022E 665 ; Description: 022E 666 ; 022E 667 ; Parameters: 022E 668 ; IOSB- address of parallel highway IOSB. 022E 669 ; 022E 670 ;-- 022E 671 022E 672 ; 022E 673 ; PROCEDURE LOCAL DATA 022E 674 ; 00000000 022E 675 PHS_NARGS = 0 ; ARG COUNT 00000004 022E 676 PHS_IOSB = 4 ; IOSB ADDRESS 022E 677 ; 022E 678 ; PARALLEL ERROR/STATUS REGISTER ANALYSIS VECTORS 022E 679 ; 022E 680 PHS_B_PESSET: 0D 022E 681 .BYTE PES_V_BX ; BRAHCN X 0E 022F 682 .BYTE PES_V_BQ ; BRAHCN Q 0F 0230 683 .BYTE PES_V_BTO ; BRANCH TIMEOUT 00000003 0231 684 PHS_K_PESSL = .-PHS_B_PESSET ; VECTOR LENGTH 0231 685 PHS_L_PESSMSG: 00000000' 0231 686 .LONG PH$_PESBX 00000000' 0235 687 .LONG PH$_PESBQ 00000000' 0239 688 .LONG PH$_PESBTO 023D 689 PHS_B_PESCLR: 0D 023D 690 .BYTE PES_V_BX ; NO BRANCH X 0E 023E 691 .BYTE PES_V_BQ ; NO BRANCH Q 00000002 023F 692 PHS_K_PESCL = .-PHS_B_PESCLR ; VECTOR LENGTH 023F 693 PHS_L_PESCMSG: 00000000' 023F 694 .LONG PH$_PESNOBX 00000000' 0243 695 .LONG PH$_PESNOBQ 0247 696 ; 0247 697 ; PARALLEL CONTROL REGISTER ANALYSIS VECTORS 0247 698 ; 0247 699 PHS_L_PCTMODE: 00000000' 0247 700 .LONG PH$_PCTPIO ; PROGRAMMED I/O 00000000' 024B 701 .LONG PH$_PCTQSCAN ; Q-SCAN 00000000' 024F 702 .LONG PH$_PCTQSTOP ; Q-STOP 00000000' 0253 703 .LONG PH$_PCTSTOP ; STOP 0257 704 PHS_B_PCTSET: 08 0257 705 .BYTE PCT_V_BGL ; UNIBUS GRANT LATE 09 0258 706 .BYTE PCT_V_NXM ; UNITUB NONEXISTENT MEMORY 0F 0259 707 .BYTE PCT_V_ERR ; PCT ERROR BIT 00000003 025A 708 PHS_K_PCTSL = .-PHS_B_PCTSET ; VECTOR LENGTH 025A 709 PHS_L_PCTSMSG: 00000000' 025A 710 .LONG PH$_PCTBGL 00000000' 025E 711 .LONG PH$_PCTNXM 00000000' 0262 712 .LONG PH$_PCTERR 0266 713 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 17 V01-003 CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0266 714 CAM_PHIOSB: 0030 0266 715 .WORD ^M 0268 716 55 04 AC D0 0268 717 MOVL PHS_IOSB(AP),R5 ; GET IOSB ADDRESS 54 5E D0 026C 718 MOVL SP,R4 ; SAVE ENTRY STACK LEVEL 026F 719 ; 026F 720 ; PROCESS PARALLEL ERROR/STATUS REGISTER 026F 721 ; 51 D4 026F 722 CLRL R1 ; USE R1 FOR VECTOR INDEX 0271 723 100$: 50 B9 AF41 9A 0271 724 MOVZBL PHS_B_PESSET[R1],R0 ; GET BIT POS TO TEST 06 04 A5 50 E1 0276 725 BBC R0,IOSB_W_ESR(R5),110$ ; IF BIT RESET, SKIP 00 DD 027B 726 PUSHL #0 ; FAO COUNT=0 B0 AF41 DD 027D 727 PUSHL PHS_L_PESSMSG[R1] ; MESSAGE ID 0281 728 110$: EC 51 03 F2 0281 729 AOBLSS #PHS_K_PESSL,R1,100$ ; CONTINUE SCAN 0285 730 51 D4 0285 731 CLRL R1 ; ZAP R1 FOR VECTOR INDEX 0287 732 120$: 50 B2 AF41 9A 0287 733 MOVZBL PHS_B_PESCLR[R1],R0 ; GET BIT POS TO TEST 06 04 A5 50 E0 028C 734 BBS R0,IOSB_W_ESR(R5),130$ ; IF SET, SKIP 00 DD 0291 735 PUSHL #0 ; FAO COUNT=0 A8 AF41 DD 0293 736 PUSHL PHS_L_PESCMSG[R1] ; MESSAGE ID 0297 737 130$: EC 51 02 F2 0297 738 AOBLSS #PHS_K_PESCL,R1,120$ ; CONTINUE SCAN 029B 739 7E 04 A5 3C 029B 740 MOVZWL IOSB_W_ESR(R5),-(SP) ; PES TO MSG VEC 01 DD 029F 741 PUSHL #1 ; FAO COUNT 00000000'8F DD 02A1 742 PUSHL #PH$_RAWPES ; MSG CODE FOR RAW PES 02A7 743 ; 02A7 744 ; PROCESS PARALLEL CONTROL REGISTER 02A7 745 ; 04 01 EF 02A7 746 EXTZV #PCT_V_M,#PCT_S_M,- ; EXTRACT MODE FROM PCT 50 65 02AA 747 IOSB_W_CTR(R5),R0 00 DD 02AC 748 PUSHL #0 ; FAO COUNT=0 95 AF40 DD 02AE 749 PUSHL PHS_L_PCTMODE[R0] ; MSG ID FOR MODE 51 D4 02B2 750 CLRL R1 ; ZAP R1 FOR VECTOR INDEX 02B4 751 200$: 50 9F AF41 9A 02B4 752 MOVZBL PHS_B_PCTSET[R1],R0 ; GET BIT POS TO TEST 06 65 50 E1 02B9 753 BBC R0,IOSB_W_CTR(R5),210$ ; IF RESET, SKIP 00 DD 02BD 754 PUSHL #0 ; FAO COUNT=0 97 AF41 DD 02BF 755 PUSHL PHS_L_PCTSMSG[R1] ; MESSAGE ID 02C3 756 210$: ED 51 03 F2 02C3 757 AOBLSS #PHS_K_PCTSL,R1,200$ ; CONTINUE SCAN 02C7 758 7E 65 3C 02C7 759 MOVZWL IOSB_W_CTR(R5),-(SP) ; CTR TO MSG VEC 01 DD 02CA 760 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 02CC 761 PUSHL #PH$_RAWPCT ; MSG CODE FOR RAW PCT 02D2 762 ; 02D2 763 ; REPLY LIST BYTE COUNT 02D2 764 ; 7E 06 A5 3C 02D2 765 MOVZWL IOSB_W_RCNT(R5),-(SP) ; REPLY BCNT TO MSG VEC 01 DD 02D6 766 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 02D8 767 PUSHL #PH$_RBCNT ; MSG CODE FOR RBCNT 02DE 768 ; 02DE 769 ; TRANSACTION/EXE LIST BYTE COUNT 02DE 770 ; CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 18 V01-003 CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 7E 02 A5 3C 02DE 771 MOVZWL IOSB_W_BCNT(R5),-(SP) ; TRANSACTION BCNT/EXE BCNT TO MSG VEC 01 DD 02E2 772 PUSHL #1 ; SET FAO COUNT 00000000'8F DD 02E4 773 PUSHL #PH$_BCNT ; MSG CODE FOR BCNT 02EA 774 ; 02EA 775 ; DISPLAY MESSAGE VECTOR VIA PUTMSG SYSTEM SERVICE 02EA 776 ; 54 5E C2 02EA 777 SUBL SP,R4 ; COMPUTE MSG VEC LENGTH 7E 54 FE 8F 78 02ED 778 ASHL #-2,R4,-(SP) ; BYTE COUNT=>LONGWORD COUNT 51 5E D0 02F2 779 MOVL SP,R1 ; R1=MSG VEC ADDRESS 02F5 780 $PUTMSG_S - ; DISPLAY MESSAGE VECTOR 02F5 781 MSGVEC=(R1) ; MSG VEC ADDR 04 0304 782 RET ; RETURN TO CALLER 0305 783 .DSABL LSB CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 19 V01-003 CAM_PHIOSB, DISPLAY PARALLEL CAMAC IOSB 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) 0305 785 .END CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 20 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) $$ARGS = 0000000C CMR_V_A = 00000005 CRP_K_UIC = 00000008 $$T1 = 00000034 CMR_V_F = 00000000 CRP_L_GRP 00000040 BIT... = 00000020 CMR_V_N = 00000009 CRP_L_MEM 00000044 CAM$ERROR 00000000 RG 04 CMR_V_QNE = 0000000F CRP_L_QIOL 00000004 CAM$GET_STAT 000000D2 RG 04 CMR_V_XI = 0000000E CRP_Q_FIB 00000004 CAM$Q 00000085 RG 04 CONT_M_CID = 00000007 CRP_Q_RTB 00000038 CAM$SHOW_STAT 000000EB RG 04 CONT_M_SER = 00000008 CRP_W_CDH 0000003E CAM$X 00000061 RG 04 CONT_S_CID = 00000003 CRP_W_CHAN 00000048 CAM$XANDQ 000000A9 RG 04 CONT_S_SER = 00000001 CRP_W_CMR 0000003A CAMQ_IOSB = 00000004 CONT_V_CID = 00000000 CRP_W_CSTS 00000000 CAMQ_MAXARGS = 00000001 CONT_V_SER = 00000003 CRP_W_CTR 00000038 CAMQ_MINARGS = 00000000 CRPS_M_CSUV = 00000020 CRP_W_DLR 0000003C CAMQ_NARGS = 00000000 CRPS_M_CV = 00000080 CRP_W_STS 00000002 CAMX_IOSB = 00000004 CRPS_M_KEYED = 00000001 CSS_IOSB = 00000004 CAMX_MAXARGS = 00000001 CRPS_M_LISM = 00000008 CSS_NARGS = 00000000 CAMX_MINARGS = 00000000 CRPS_M_LRANUPD = 00000010 CSTS_M_M16 = 00000008 CAMX_NARGS = 00000000 CRPS_M_NOCHAN = 00000004 CSTS_M_QDC = 00000001 CAM_CIB ******** X 04 CRPS_M_NV = 00000100 CSTS_M_QNE = 00000002 CAM_PHIOSB 00000266 R 04 CRPS_M_UICV = 00000040 CSTS_M_XI = 00000004 CAM_SHIOSB 0000018F R 04 CRPS_M_WAIT = 00000002 CSTS_S_M16 = 00000001 CDH_M_16 = 00004000 CRPS_S_CSUV = 00000001 CSTS_S_QDC = 00000001 CDH_M_BCF = 00003800 CRPS_S_CV = 00000001 CSTS_S_QNE = 00000001 CDH_M_BCI = 00000700 CRPS_S_KEYED = 00000001 CSTS_S_XI = 00000001 CDH_M_C = 00003F00 CRPS_S_LISM = 00000001 CSTS_V_M16 = 00000003 CDH_M_HSB = 000000FF CRPS_S_LRANUPD = 00000001 CSTS_V_QDC = 00000000 CDH_S_16 = 00000001 CRPS_S_NOCHAN = 00000001 CSTS_V_QNE = 00000001 CDH_S_BCF = 00000003 CRPS_S_NV = 00000001 CSTS_V_XI = 00000002 CDH_S_BCI = 00000003 CRPS_S_UICV = 00000001 DCR_M_DFO = 00004000 CDH_S_C = 00000006 CRPS_S_WAIT = 00000001 DCR_M_DR = 00000080 CDH_S_HSB = 00000008 CRPS_V_CSUV = 00000005 DCR_M_GOCO = 00002000 CDH_V_16 = 0000000E CRPS_V_CV = 00000007 DCR_M_HDR = 00008000 CDH_V_BCF = 0000000B CRPS_V_KEYED = 00000000 DCR_M_SCA = 0000003F CDH_V_BCI = 00000008 CRPS_V_LISM = 00000003 DCR_M_SDIE = 00000040 CDH_V_C = 00000008 CRPS_V_LRANUPD = 00000004 DCR_M_SGL = 00001F00 CDH_V_HSB = 00000000 CRPS_V_NOCHAN = 00000002 DCR_S_DFO = 00000001 CIB_B_EFN 00000024 CRPS_V_NV = 00000008 DCR_S_DR = 00000001 CIB_K_LENGTH 00000025 CRPS_V_UICV = 00000006 DCR_S_GOCO = 00000001 CIB_L_GRP 00000010 CRPS_V_WAIT = 00000001 DCR_S_HDR = 00000001 CIB_L_MEM 00000014 CRP_A_CSUID 000000B4 DCR_S_SCA = 00000006 CIB_L_PSTS 00000008 CRP_A_LMODID 00000054 DCR_S_SDIE = 00000001 CIB_L_WSQUOTA 00000020 CRP_A_PMODID 0000007C DCR_S_SGL = 00000005 CIB_Q_CPRIV 00000018 CRP_A_UICID 000000A4 DCR_V_DFO = 0000000E CIB_Q_IOSB 00000000 CRP_B_A 0000004D DCR_V_DR = 00000007 CIB_W_CSTS 0000000E CRP_B_C 0000004B DCR_V_GOCO = 0000000D CIB_W_ISTS 0000000C CRP_B_CHANX 00000051 DCR_V_HDR = 0000000F CMAP_W_CHAN 00000000 CRP_B_CONT 0000004F DCR_V_SCA = 00000000 CMAP_W_MAPID 00000002 CRP_B_DSBMSK 00000052 DCR_V_SDIE = 00000006 CMR_M_A = 000001E0 CRP_B_F 0000004E DCR_V_SGL = 00000008 CMR_M_F = 0000001F CRP_B_MODE 0000004A DFR_M_DFE = 00000040 CMR_M_N = 00003E00 CRP_B_N 0000004C DFR_M_DFOR = 00000080 CMR_M_QNE = 00008000 CRP_B_RTAB 00000053 DFR_M_HD = 00008000 CMR_M_XI = 00004000 CRP_B_UNIT 00000050 DFR_M_SCA = 0000003F CMR_S_A = 00000004 CRP_K_CSU = 00000008 DFR_M_SGL = 00001F00 CMR_S_F = 00000005 CRP_K_EFN = 00000000 DFR_S_DFE = 00000001 CMR_S_N = 00000005 CRP_K_LENGTH 000000C4 DFR_S_DFOR = 00000001 CMR_S_QNE = 00000001 CRP_K_LMOD = 00000020 DFR_S_HD = 00000001 CMR_S_XI = 00000001 CRP_K_PMOD = 00000020 DFR_S_SCA = 00000006 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 21 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) DFR_S_SGL = 00000005 DSC$K_DTYPE_EPT= 000000B5 DSC$V_FL_COEFF = 00000006 DFR_V_DFE = 00000006 DSC$K_DTYPE_F = 0000000A DSC$V_FL_COLUMN= 00000005 DFR_V_DFOR = 00000007 DSC$K_DTYPE_FC = 0000000C DSC$V_FL_REDIM = 00000004 DFR_V_HD = 0000000F DSC$K_DTYPE_FLD= 000000B7 DSC$W_LENGTH 00000000 DFR_V_SCA = 00000000 DSC$K_DTYPE_G = 0000001B DSC$W_MAXLEN 00000008 DFR_V_SGL = 00000008 DSC$K_DTYPE_GBL= 000000B4 DSC$W_MAXSTRLEN 00000000 DSC$A_A0 00000010 DSC$K_DTYPE_GC = 0000001D ERR_IOSB = 0000000C DSC$A_BASE 00000004 DSC$K_DTYPE_H = 0000001C ERR_MAXARGS = 00000003 DSC$A_FRAME 00000008 DSC$K_DTYPE_HC = 0000001E ERR_MINARGS = 00000002 DSC$A_HANDLE FFFFFFF4 DSC$K_DTYPE_L = 00000008 ERR_NARGS = 00000000 DSC$A_POINTER 00000004 DSC$K_DTYPE_LBL= 000000BA ERR_Q = 00000008 DSC$B_AFLAGS 0000000A DSC$K_DTYPE_LU = 00000004 ERR_X = 00000004 DSC$B_CLASS 00000003 DSC$K_DTYPE_MOD= 000000BC FIB_B_CSIZE 00000003 DSC$B_DIGITS 00000009 DSC$K_DTYPE_NL = 00000010 FIB_B_F 00000002 DSC$B_DIMCT 0000000B DSC$K_DTYPE_NLO= 00000011 FIB_B_TYPE 0000000E DSC$B_DTYPE 00000002 DSC$K_DTYPE_NR = 00000012 FIB_K_LENGTH 0000000F DSC$B_SCALE 00000008 DSC$K_DTYPE_NRO= 00000013 FIB_L_DATA 00000008 DSC$C_D_BLN 00000008 DSC$K_DTYPE_NU = 0000000F FIB_W_CNDX 00000000 DSC$C_JI_BLN 0000000C DSC$K_DTYPE_NZ = 00000014 FIB_W_DNDX 00000004 DSC$C_J_BLN 00000008 DSC$K_DTYPE_O = 0000001A FIB_W_DSIZE 00000006 DSC$C_PI_BLN 0000000C DSC$K_DTYPE_OU = 00000019 FIB_W_EOF 0000000C DSC$C_P_BLN 00000008 DSC$K_DTYPE_P = 00000015 GRP_M_WILDGRP = 80000000 DSC$C_SD_BLN 0000000C DSC$K_DTYPE_PCT= 000000B8 GRP_S_WILDGRP = 00000001 DSC$C_S_BLN 00000008 DSC$K_DTYPE_Q = 00000009 GRP_V_WILDGRP = 0000001F DSC$C_UBS_BLN 0000000C DSC$K_DTYPE_QU = 00000005 GST_IOSB = 00000004 DSC$C_VS_BLN 00000008 DSC$K_DTYPE_R11= 000000B6 GST_MINARGS = 00000001 DSC$C_Z_BLN 00000008 DSC$K_DTYPE_RTN= 000000BE GST_NARGS = 00000000 DSC$K_CLASS_A = 00000004 DSC$K_DTYPE_SLB= 000000BB IO$K_LOOPTEST = 0000E000 DSC$K_CLASS_BFA= 000000BF DSC$K_DTYPE_T = 0000000E IO$K_PTPBSC = 00002000 DSC$K_CLASS_D = 00000002 DSC$K_DTYPE_V = 00000001 IO$K_SRRUNOUT = 00000000 DSC$K_CLASS_J = 00000007 DSC$K_DTYPE_VT = 00000025 IO$M_ABORT = 00000100 DSC$K_CLASS_JI = 00000008 DSC$K_DTYPE_VU = 00000022 IO$M_ACCEPT = 00000080 DSC$K_CLASS_NCA= 0000000A DSC$K_DTYPE_W = 00000007 IO$M_ACCESS = 00000040 DSC$K_CLASS_P = 00000005 DSC$K_DTYPE_WU = 00000003 IO$M_ATTNAST = 00000100 DSC$K_CLASS_PI = 00000006 DSC$K_DTYPE_Z = 00000000 IO$M_BINARY = 00000040 DSC$K_CLASS_S = 00000001 DSC$K_DTYPE_ZEM= 00000017 IO$M_CANCTRLO = 00000040 DSC$K_CLASS_SD = 00000009 DSC$K_DTYPE_ZI = 00000016 IO$M_CANLAM = 00000100 DSC$K_CLASS_UBA= 0000000E DSC$K_D_BLN 00000008 IO$M_CECYL = 00000400 DSC$K_CLASS_UBS= 0000000D DSC$K_JI_BLN 0000000C IO$M_CLEAR = 00001000 DSC$K_CLASS_V = 00000003 DSC$K_J_BLN 00000008 IO$M_CLR_COUNT = 00000400 DSC$K_CLASS_VS = 0000000B DSC$K_PI_BLN 0000000C IO$M_CNTRLENTRY= 00000080 DSC$K_CLASS_VSA= 0000000C DSC$K_P_BLN 00000008 IO$M_COFFLINE = 00000400 DSC$K_CLASS_Z = 00000000 DSC$K_SD_BLN 0000000C IO$M_COMMOD = 00000040 DSC$K_DTYPE_ADT= 00000023 DSC$K_S_BLN 00000008 IO$M_CONLINE = 00000200 DSC$K_DTYPE_B = 00000006 DSC$K_UBS_BLN 0000000C IO$M_CREATE = 00000080 DSC$K_DTYPE_BLV= 00000021 DSC$K_VS_BLN 00000008 IO$M_CTRL = 00000200 DSC$K_DTYPE_BPV= 00000020 DSC$K_Z_BLN 00000008 IO$M_CTRLCAST = 00000100 DSC$K_DTYPE_BU = 00000002 DSC$L_ARSIZE 0000000C IO$M_CTRLYAST = 00000080 DSC$K_DTYPE_CAD= 000000B2 DSC$L_BYTEOFF FFFFFFF8 IO$M_CVTLOW = 00000100 DSC$K_DTYPE_CIT= 0000001F DSC$L_LOGUNIT FFFFFFFC IO$M_CYCLE = 00001000 DSC$K_DTYPE_D = 0000000B DSC$L_M1 00000014 IO$M_DABLAMS = 00000100 DSC$K_DTYPE_DC = 0000000D DSC$L_M2 00000018 IO$M_DATACHECK = 00004000 DSC$K_DTYPE_DPC= 000000B9 DSC$L_POS 00000008 IO$M_DATAPATH = 00000400 DSC$K_DTYPE_DSC= 00000018 DSC$L_S1 00000014 IO$M_DELDATA = 00000040 DSC$K_DTYPE_ENT= 000000B3 DSC$L_S2 00000018 IO$M_DELETE = 00000100 DSC$K_DTYPE_EOM= 000000BD DSC$L_V0 00000010 IO$M_DIAGNOSTIC= 00000100 DSC$K_DTYPE_EOR= 000000BF DSC$V_FL_BOUNDS= 00000007 IO$M_DMOUNT = 00000400 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 22 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) IO$M_DSABLMBX = 00000400 IO$M_SETFNCT = 00000200 IO$V_INHRETRY = 0000000F IO$M_DSABL_ALT = 00001000 IO$M_SETPOOLSZ = 00000400 IO$V_INHSEEK = 0000000C IO$M_ENABLMBX = 00000080 IO$M_SETPROT = 00000200 IO$V_INTCLOCK = 0000000C IO$M_ENABL_ALT = 00000800 IO$M_SET_MODEM = 00000400 IO$V_INTERRUPT = 00000006 IO$M_ENLAMS = 00000080 IO$M_SHUTDOWN = 00000080 IO$V_INTSKIP = 00000008 IO$M_ESCAPE = 00004000 IO$M_SKPSECINH = 00000200 IO$V_LASTBLOCK = 0000000A IO$M_EXTEND = 00008000 IO$M_SLAVLOOP = 00000080 IO$V_LINE_OFF = 00000009 IO$M_FCODE = 0000003F IO$M_STARTUP = 00000040 IO$V_LINE_ON = 0000000B IO$M_FORCE = 00000040 IO$M_SWAP = 00000400 IO$V_LOOP = 00000007 IO$M_HANGUP = 00000200 IO$M_SYNCH = 00000200 IO$V_LOOP_EXT = 0000000C IO$M_INCLUDE = 00000800 IO$M_TIMED = 00000080 IO$V_LPBEXT = 0000000D IO$M_INHERLOG = 00000800 IO$M_TRMNOECHO = 00001000 IO$V_LPBINT = 0000000E IO$M_INHEXTGAP = 00001000 IO$M_TYPEAHDCNT= 00000040 IO$V_MAINT = 00000006 IO$M_INHRETRY = 00008000 IO$M_UNLOOP = 00000100 IO$V_MAINTLOOP = 00000009 IO$M_INHSEEK = 00001000 IO$M_WORD = 00000040 IO$V_MORE = 00000006 IO$M_INTCLOCK = 00001000 IO$M_WRTATTN = 00000100 IO$V_MOUNT = 00000009 IO$M_INTERRUPT = 00000040 IO$S_FCODE = 00000006 IO$V_MOVETRACKD= 00000007 IO$M_INTSKIP = 00000100 IO$V_ABORT = 00000008 IO$V_MULTIPLE = 00000008 IO$M_LASTBLOCK = 00000400 IO$V_ACCEPT = 00000007 IO$V_NOCTSWAIT = 00000006 IO$M_LINE_OFF = 00000200 IO$V_ACCESS = 00000006 IO$V_NODSRWAIT = 00000008 IO$M_LINE_ON = 00000800 IO$V_ATTNAST = 00000008 IO$V_NOECHO = 00000006 IO$M_LOOP = 00000080 IO$V_BINARY = 00000006 IO$V_NOFILTR = 00000009 IO$M_LOOP_EXT = 00001000 IO$V_CANCTRLO = 00000006 IO$V_NOFORMAT = 00000008 IO$M_LPBEXT = 00002000 IO$V_CANLAM = 00000008 IO$V_NOMRSP = 00000006 IO$M_LPBINT = 00004000 IO$V_CECYL = 0000000A IO$V_NOW = 00000006 IO$M_MAINT = 00000040 IO$V_CLEAR = 0000000C IO$V_NOWAIT = 00000007 IO$M_MAINTLOOP = 00000200 IO$V_CLR_COUNT = 0000000A IO$V_OPPOSITE = 00000009 IO$M_MORE = 00000040 IO$V_CNTRLENTRY= 00000007 IO$V_OUTBAND = 0000000A IO$M_MOUNT = 00000200 IO$V_COFFLINE = 0000000A IO$V_PACKED = 00000007 IO$M_MOVETRACKD= 00000080 IO$V_COMMOD = 00000006 IO$V_PURGE = 0000000B IO$M_MULTIPLE = 00000100 IO$V_CONLINE = 00000009 IO$V_QUALIFIED = 00000007 IO$M_NOCTSWAIT = 00000040 IO$V_CREATE = 00000007 IO$V_RD_COUNT = 00000008 IO$M_NODSRWAIT = 00000100 IO$V_CTRL = 00000009 IO$V_RD_MEM = 00000006 IO$M_NOECHO = 00000040 IO$V_CTRLCAST = 00000008 IO$V_RD_MODEM = 00000007 IO$M_NOFILTR = 00000200 IO$V_CTRLYAST = 00000007 IO$V_READATTN = 00000007 IO$M_NOFORMAT = 00000100 IO$V_CVTLOW = 00000008 IO$V_READCSR = 0000000F IO$M_NOMRSP = 00000040 IO$V_CYCLE = 0000000C IO$V_REDIRECT = 00000006 IO$M_NOW = 00000040 IO$V_DABLAMS = 00000008 IO$V_REFRESH = 0000000D IO$M_NOWAIT = 00000080 IO$V_DATACHECK = 0000000E IO$V_RESET = 0000000B IO$M_OPPOSITE = 00000200 IO$V_DATAPATH = 0000000A IO$V_REVERSE = 00000006 IO$M_OUTBAND = 00000400 IO$V_DELDATA = 00000006 IO$V_SETBSIZE = 00000009 IO$M_PACKED = 00000080 IO$V_DELETE = 00000008 IO$V_SETCUADR = 00000008 IO$M_PURGE = 00000800 IO$V_DIAGNOSTIC= 00000008 IO$V_SETENQCNT = 0000000B IO$M_QUALIFIED = 00000080 IO$V_DMOUNT = 0000000A IO$V_SETEVF = 00000006 IO$M_RD_COUNT = 00000100 IO$V_DSABLMBX = 0000000A IO$V_SETFNCT = 00000009 IO$M_RD_MEM = 00000040 IO$V_DSABL_ALT = 0000000C IO$V_SETPOOLSZ = 0000000A IO$M_RD_MODEM = 00000080 IO$V_ENABLMBX = 00000007 IO$V_SETPROT = 00000009 IO$M_READATTN = 00000080 IO$V_ENABL_ALT = 0000000B IO$V_SET_MODEM = 0000000A IO$M_READCSR = 00008000 IO$V_ENLAMS = 00000007 IO$V_SHUTDOWN = 00000007 IO$M_REDIRECT = 00000040 IO$V_ESCAPE = 0000000E IO$V_SKPSECINH = 00000009 IO$M_REFRESH = 00002000 IO$V_EXTEND = 0000000F IO$V_SLAVLOOP = 00000007 IO$M_RESET = 00000800 IO$V_FCODE = 00000000 IO$V_STARTUP = 00000006 IO$M_REVERSE = 00000040 IO$V_FORCE = 00000006 IO$V_SWAP = 0000000A IO$M_SETBSIZE = 00000200 IO$V_HANGUP = 00000009 IO$V_SYNCH = 00000009 IO$M_SETCUADR = 00000100 IO$V_INCLUDE = 0000000B IO$V_TIMED = 00000007 IO$M_SETENQCNT = 00000800 IO$V_INHERLOG = 0000000B IO$V_TRMNOECHO = 0000000C IO$M_SETEVF = 00000040 IO$V_INHEXTGAP = 0000000C IO$V_TYPEAHDCNT= 00000006 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 23 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) IO$V_UNLOOP = 00000008 IO$_SKIPFILE = 00000025 JPI$_EFWM = 00000316 IO$V_WORD = 00000006 IO$_SKIPRECORD = 00000026 JPI$_ENQCNT = 0000031F IO$V_WRTATTN = 00000008 IO$_SPACEFILE = 00000002 JPI$_ENQLM = 00000320 IO$_ACCESS = 00000032 IO$_SPACERECORD= 00000009 JPI$_EXCVEC = 00000100 IO$_ACPCONTROL = 00000038 IO$_STARTDATA = 00000038 JPI$_FILCNT = 00000314 IO$_AVAILABLE = 00000011 IO$_STARTDATAP = 00000006 JPI$_FILLM = 0000040F IO$_CAMIO = 00000032 IO$_STARTMPROC = 00000002 JPI$_FINALEXC = 00000101 IO$_CLEAN = 0000001E IO$_STARTSPNDL = 00000019 JPI$_FREP0VA = 00000404 IO$_CONINTREAD = 0000003C IO$_STOP = 00000003 JPI$_FREP1VA = 00000405 IO$_CONINTWRITE= 0000003D IO$_TTYREADALL = 0000003A JPI$_FREPTECNT = 00000415 IO$_CREATE = 00000033 IO$_TTYREADPALL= 0000003B JPI$_GPGCNT = 0000030C IO$_DEACCESS = 00000034 IO$_UNLOAD = 00000001 JPI$_GRP = 00000308 IO$_DELETE = 00000035 IO$_VIRTUAL = 0000003F JPI$_IMAGECOUNT= 0000041A IO$_DIAGNOSE = 0000001D IO$_WRITECHECK = 0000000A JPI$_IMAGNAME = 00000207 IO$_DRVCLR = 00000004 IO$_WRITECHECKH= 00000018 JPI$_IMAGPRIV = 00000413 IO$_DSE = 00000015 IO$_WRITEHEAD = 0000000D JPI$_JOBPRCCNT = 0000031E IO$_ENDRU1 = 0000003A IO$_WRITELBLK = 00000020 JPI$_LASTADR = 00000102 IO$_ENDRU2 = 0000003B IO$_WRITEMARK = 0000001C JPI$_LASTCTL = 00000209 IO$_ERASETAPE = 00000006 IO$_WRITEOF = 00000028 JPI$_LASTPCB = 00000322 IO$_FORCE = 00000037 IO$_WRITEPBLK = 0000000B JPI$_LASTPHD = 0000041B IO$_FORMAT = 0000001E IO$_WRITERET = 00000018 JPI$_LOGINTIM = 00000206 IO$_INITIALIZE = 00000004 IO$_WRITETRACKD= 0000000F JPI$_MEM = 00000307 IO$_LAMAST = 00000033 IO$_WRITEVBLK = 00000030 JPI$_OWNER = 00000303 IO$_LOADMCODE = 00000001 IO$_WRTTMKR = 0000001D JPI$_PAGEFLTS = 0000040A IO$_LOGICAL = 0000002F IOSB_K_LENGTH 00000008 JPI$_PAGFILCNT = 00000414 IO$_MODIFY = 00000036 IOSB_W_BCNT 00000002 JPI$_PAGFILLOC = 00000419 IO$_MOUNT = 00000039 IOSB_W_CTR 00000000 JPI$_PGFLQUOTA = 0000040E IO$_NETCONTROL = 00000036 IOSB_W_ESR 00000004 JPI$_PID = 00000319 IO$_NOP = 00000000 IOSB_W_RCNT 00000006 JPI$_PPGCNT = 0000030D IO$_OFFSET = 00000006 JPI$C_ADRTYPE = 00000001 JPI$_PRCCNT = 0000031B IO$_PACKACK = 00000008 JPI$C_CTLTYPE = 00000002 JPI$_PRCLM = 00000408 IO$_PHYSICAL = 0000001F JPI$C_LISTEND = 00000000 JPI$_PRCNAM = 0000031C IO$_QSTOP = 00000007 JPI$C_PCBTYPE = 00000003 JPI$_PRI = 00000302 IO$_RDSTATS = 0000000D JPI$C_PHDTYPE = 00000004 JPI$_PRIB = 00000309 IO$_READHEAD = 0000000E JPI$_ACCOUNT = 00000203 JPI$_PROCPRIV = 00000204 IO$_READINIT = 0000003C JPI$_APTCNT = 0000030A JPI$_SITESPEC = 00000208 IO$_READLBLK = 00000021 JPI$_ASTACT = 00000300 JPI$_STATE = 00000306 IO$_READPBLK = 0000000C JPI$_ASTCNT = 0000030E JPI$_STS = 00000305 IO$_READPRESET = 00000019 JPI$_ASTEN = 00000301 JPI$_SWPFILLOC = 00000321 IO$_READPROMPT = 00000037 JPI$_ASTLM = 00000409 JPI$_TERMINAL = 0000031D IO$_READTRACKD = 00000010 JPI$_AUTHPRI = 00000418 JPI$_TMBU = 0000030B IO$_READVBLK = 00000031 JPI$_AUTHPRIV = 00000412 JPI$_TQCNT = 00000315 IO$_RECAL = 00000003 JPI$_BIOCNT = 0000030F JPI$_TQLM = 00000410 IO$_RELEASE = 00000005 JPI$_BIOLM = 00000310 JPI$_UIC = 00000304 IO$_REREADN = 00000016 JPI$_BUFIO = 0000040C JPI$_USERNAME = 00000202 IO$_REREADP = 00000017 JPI$_BYTCNT = 00000311 JPI$_VIRTPEAK = 00000200 IO$_RETCENTER = 00000007 JPI$_BYTLM = 0000031A JPI$_VOLUMES = 00000205 IO$_REWIND = 00000024 JPI$_CPULIM = 0000040D JPI$_WSAUTH = 00000401 IO$_REWINDOFF = 00000022 JPI$_CPUTIM = 00000407 JPI$_WSAUTHEXT = 00000417 IO$_SEARCH = 00000009 JPI$_CURPRIV = 00000400 JPI$_WSEXTENT = 00000416 IO$_SEEK = 00000002 JPI$_DFPFC = 00000406 JPI$_WSPEAK = 00000201 IO$_SENSECHAR = 0000001B JPI$_DFWSCNT = 00000403 JPI$_WSQUOTA = 00000402 IO$_SENSEMODE = 00000027 JPI$_DIOCNT = 00000312 JPI$_WSSIZE = 00000411 IO$_SETCHAR = 0000001A JPI$_DIOLM = 00000313 KEY_K_LRCSEED = 0000005A IO$_SETCLOCK = 00000037 JPI$_DIRIO = 0000040B KEY_M_C = 0000003F IO$_SETCLOCKP = 00000005 JPI$_EFCS = 00000317 KEY_M_CHANX = 00FF0000 IO$_SETMODE = 00000023 JPI$_EFCU = 00000318 KEY_M_CID = 000001C0 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 24 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) KEY_M_LRC = FF000000 LIS_W_FRAME 0000000C PES_M_BDIE = 00000400 KEY_M_N = 0000FC00 LIS_W_REPNDX 00000002 PES_M_BQ = 00004000 KEY_M_SER = 00000200 LIS_W_SIZE 00000004 PES_M_BTO = 00008000 KEY_S_C = 00000006 LIS_W_STS 00000010 PES_M_BX = 00002000 KEY_S_CHANX = 00000008 LST_W_CMD 00000000 PES_M_ENAGL = 00000200 KEY_S_CID = 00000003 LST_W_COUNT 00000004 PES_M_NEXTBD = 00000100 KEY_S_LRC = 00000008 LST_W_CTY 00000002 PES_S_BC = 00000007 KEY_S_N = 00000006 LST_W_DHI 00000006 PES_S_BD = 00000001 KEY_S_SER = 00000001 LST_W_DLOW 00000004 PES_S_BDIE = 00000001 KEY_V_C = 00000000 MAE_M_RMA = 00003000 PES_S_BQ = 00000001 KEY_V_CHANX = 00000010 MAE_M_TMA = 0000C000 PES_S_BTO = 00000001 KEY_V_CID = 00000006 MAE_S_RMA = 00000002 PES_S_BX = 00000001 KEY_V_LRC = 00000018 MAE_S_TMA = 00000002 PES_S_ENAGL = 00000001 KEY_V_N = 0000000A MAE_V_RMA = 0000000C PES_S_NEXTBD = 00000001 KEY_V_SER = 00000009 MAE_V_TMA = 0000000E PES_V_BC = 00000000 KS_M_PH = 00000100 MEM_M_WILDMEM = 80000000 PES_V_BD = 00000007 KS_V_PH = 00000008 MEM_S_WILDMEM = 00000001 PES_V_BDIE = 0000000A KS_W_CDH 00000008 MEM_V_WILDMEM = 0000001F PES_V_BQ = 0000000E KS_W_CMR 00000006 MID_M_CID = 0000000F PES_V_BTO = 0000000F KS_W_CTR 00000000 MID_M_REFC = 0000FC00 PES_V_BX = 0000000D KS_W_DCR 0000000E MID_M_UNIT = 000003F0 PES_V_ENAGL = 00000009 KS_W_DFR 0000000C MID_S_CID = 00000004 PES_V_NEXTBD = 00000008 KS_W_DLR 0000000A MID_S_REFC = 00000006 PH$_BCNT ******** X 04 KS_W_MAE 00000018 MID_S_UNIT = 00000006 PH$_PCTBGL ******** X 04 KS_W_PES 00000004 MID_V_CID = 00000000 PH$_PCTERR ******** X 04 KS_W_RMA 0000001C MID_V_REFC = 0000000A PH$_PCTNXM ******** X 04 KS_W_SES 00000002 MID_V_UNIT = 00000004 PH$_PCTPIO ******** X 04 KS_W_TMA 0000001A PCT_M_BGL = 00000100 PH$_PCTQSCAN ******** X 04 KS_W_WCR 0000001E PCT_M_DONE = 00000080 PH$_PCTQSTOP ******** X 04 LCMD_M_A = 000001E0 PCT_M_ERR = 00008000 PH$_PCTSTOP ******** X 04 LCMD_M_F = 0000001F PCT_M_GO = 00000001 PH$_PESBQ ******** X 04 LCMD_M_N = 00003E00 PCT_M_IE = 00000040 PH$_PESBTO ******** X 04 LCMD_M_QNE = 00008000 PCT_M_M = 0000001E PH$_PESBX ******** X 04 LCMD_M_XI = 00004000 PCT_M_NXM = 00000200 PH$_PESNOBQ ******** X 04 LCMD_S_A = 00000004 PCT_M_QDC = 00000400 PH$_PESNOBX ******** X 04 LCMD_S_F = 00000005 PCT_M_RESET = 00000800 PH$_RAWPCT ******** X 04 LCMD_S_N = 00000005 PCT_M_SSP = 00000020 PH$_RAWPES ******** X 04 LCMD_S_QNE = 00000001 PCT_S_DONE = 00000001 PH$_RBCNT ******** X 04 LCMD_S_XI = 00000001 PCT_S_ERR = 00000001 PHS_B_PCTSET 00000257 R 04 LCMD_V_A = 00000005 PCT_S_GO = 00000001 PHS_B_PESCLR 0000023D R 04 LCMD_V_F = 00000000 PCT_S_IE = 00000001 PHS_B_PESSET 0000022E R 04 LCMD_V_N = 00000009 PCT_S_M = 00000004 PHS_IOSB = 00000004 LCMD_V_QNE = 0000000F PCT_S_QDC = 00000001 PHS_K_PCTSL = 00000003 LCMD_V_XI = 0000000E PCT_S_RESET = 00000001 PHS_K_PESCL = 00000002 LCTY_M_C = 00003F00 PCT_S_SSP = 00000001 PHS_K_PESSL = 00000003 LCTY_M_TYP = 0000C000 PCT_V_BGL = 00000008 PHS_L_PCTMODE 00000247 R 04 LCTY_S_C = 00000006 PCT_V_DONE = 00000007 PHS_L_PCTSMSG 0000025A R 04 LCTY_S_TYP = 00000002 PCT_V_ERR = 0000000F PHS_L_PESCMSG 0000023F R 04 LCTY_V_C = 00000008 PCT_V_GO = 00000000 PHS_L_PESSMSG 00000231 R 04 LCTY_V_TYP = 0000000E PCT_V_IE = 00000006 PHS_NARGS = 00000000 LIS_B_CONT 00000012 PCT_V_M = 00000001 PSTS_M_JIBV = 00000001 LIS_B_CRATE 00000013 PCT_V_NXM = 00000009 PSTS_S_JIBV = 00000001 LIS_K_LENGTH 00000014 PCT_V_QDC = 0000000A PSTS_V_JIBV = 00000000 LIS_L_FIBL 00000008 PCT_V_RESET = 0000000B QIO$_ASTADR = 00000014 LIS_W_CHAN 0000000E PCT_V_SSP = 00000005 QIO$_ASTPRM = 00000018 LIS_W_CSTS 00000006 PES_M_BC = 0000007F QIO$_CHAN = 00000008 LIS_W_EXENDX 00000000 PES_M_BD = 00000080 QIO$_EFN = 00000004 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 25 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) QIO$_FUNC = 0000000C SES_M_TPE = 00000200 SHS_L_SCTSMSG 00000183 R 04 QIO$_IOSB = 00000010 SES_S_DERR = 00000001 SHS_L_SESCMSG 00000168 R 04 QIO$_NARGS = 0000000C SES_S_ERC = 00000003 SHS_L_SESSMSG 00000142 R 04 QIO$_P1 = 0000001C SES_S_ERR = 00000001 SHS_NARGS = 00000000 QIO$_P2 = 00000020 SES_S_LPE = 00000001 SIZ... = 00000008 QIO$_P3 = 00000024 SES_S_LSYN = 00000001 SS$_ABORT = 0000002C QIO$_P4 = 00000028 SES_S_PH = 00000001 SS$_ACCONFLICT = 00000800 QIO$_P5 = 0000002C SES_S_REN = 00000001 SS$_ACCVIO = 0000000C QIO$_P6 = 00000030 SES_S_SQ = 00000001 SS$_ACPVAFUL = 000002FC RTB_K_LENGTH 00000008 SES_S_STE = 00000001 SS$_ALRDYCLOSED= 000006A9 RTB_W_CDH 00000006 SES_S_SX = 00000001 SS$_ARTRES = 00000474 RTB_W_CMR 00000002 SES_S_SYNC = 00000001 SS$_ASTFLT = 0000040C RTB_W_CTR 00000000 SES_S_TMO = 00000001 SS$_BADATTRIB = 00000034 RTB_W_DLR 00000004 SES_S_TPE = 00000001 SS$_BADCHKSUM = 00000808 SCT_M_BGL = 00000100 SES_V_DERR = 0000000B SS$_BADESCAPE = 0000003C SCT_M_DONE = 00000080 SES_V_ERC = 00000000 SS$_BADFILEHDR = 00000810 SCT_M_ERR = 00008000 SES_V_ERR = 0000000C SS$_BADFILENAME= 00000818 SCT_M_GO = 00000001 SES_V_LPE = 0000000A SS$_BADFILEVER = 00000820 SCT_M_IE = 00000040 SES_V_LSYN = 00000004 SS$_BADIMGHDR = 00000044 SCT_M_M = 0000001E SES_V_PH = 00000008 SS$_BADIRECTORY= 00000828 SCT_M_NXM = 00000200 SES_V_REN = 00000003 SS$_BADISD = 00002004 SCT_M_QDC = 00000400 SES_V_SQ = 0000000E SS$_BADPARAM = 00000014 SCT_M_RESET = 00000800 SES_V_STE = 0000000F SS$_BADQFILE = 000003BC SCT_M_SDR = 00007000 SES_V_SX = 0000000D SS$_BADQUEUEHDR= 00000394 SCT_M_SSP = 00000020 SES_V_SYNC = 00000005 SS$_BADRCT = 0000216C SCT_S_DONE = 00000001 SES_V_TMO = 00000006 SS$_BADSTACK = 000002B4 SCT_S_ERR = 00000001 SES_V_TPE = 00000009 SS$_BADVEC = 00002064 SCT_S_GO = 00000001 SH$_BCNT ******** X 04 SS$_BEGOFFILE = 00000938 SCT_S_IE = 00000001 SH$_RAWSCT ******** X 04 SS$_BLOCKCNTERR= 00000940 SCT_S_M = 00000004 SH$_RAWSES ******** X 04 SS$_BREAK = 00000414 SCT_S_QDC = 00000001 SH$_RBCNT ******** X 04 SS$_BUFBYTALI = 0000030C SCT_S_RESET = 00000001 SH$_SCTBGL ******** X 04 SS$_BUFFEROVF = 00000601 SCT_S_SDR = 00000003 SH$_SCTERR ******** X 04 SS$_BUFNOTALIGN= 00000324 SCT_S_SSP = 00000001 SH$_SCTNXM ******** X 04 SS$_BUGCHECK = 000002A4 SCT_V_BGL = 00000008 SH$_SCTPIO ******** X 04 SS$_CANCEL = 00000830 SCT_V_DONE = 00000007 SH$_SCTQSCAN ******** X 04 SS$_CHAINW = 00000C0B SCT_V_ERR = 0000000F SH$_SCTQSTOP ******** X 04 SS$_CHANINTLK = 0000004C SCT_V_GO = 00000000 SH$_SCTSTOP ******** X 04 SS$_CLEARED = 00002104 SCT_V_IE = 00000006 SH$_SESDERR ******** X 04 SS$_CLIFRCEXT = 00000980 SCT_V_M = 00000001 SH$_SESERR ******** X 04 SS$_CMODSUPR = 0000041C SCT_V_NXM = 00000009 SH$_SESLPE ******** X 04 SS$_CMODUSER = 00000424 SCT_V_QDC = 0000000A SH$_SESLSYNC ******** X 04 SS$_COMMHARD = 000020C4 SCT_V_RESET = 0000000B SH$_SESNOSQ ******** X 04 SS$_COMPAT = 0000042C SCT_V_SDR = 0000000C SH$_SESNOSX ******** X 04 SS$_CONCEALED = 00000691 SCT_V_SSP = 00000005 SH$_SESSQ ******** X 04 SS$_CONNECFAIL = 000020DC SES_M_DERR = 00000800 SH$_SESSTE ******** X 04 SS$_CONTINUE = 00000001 SES_M_ERC = 00000007 SH$_SESSX ******** X 04 SS$_CONTROLC = 00000651 SES_M_ERR = 00001000 SH$_SESTMO ******** X 04 SS$_CONTROLO = 00000609 SES_M_LPE = 00000400 SH$_SESTPE ******** X 04 SS$_CONTROLY = 00000611 SES_M_LSYN = 00000010 SHS_B_SCTSET 00000180 R 04 SS$_CREATED = 00000619 SES_M_PH = 00000100 SHS_B_SESCLR 00000166 R 04 SS$_CTRLERR = 00000054 SES_M_REN = 00000008 SHS_B_SESSET 00000139 R 04 SS$_CVTUNGRANT = 0000213C SES_M_SQ = 00004000 SHS_IOSB = 00000004 SS$_DATACHECK = 0000005C SES_M_STE = 00008000 SHS_K_SCTSL = 00000003 SS$_DATAOVERUN = 00000838 SES_M_SX = 00002000 SHS_K_SESCL = 00000002 SS$_DBGOPCREQ = 000006A1 SES_M_SYNC = 00000020 SHS_K_SESSL = 00000009 SS$_DEADLOCK = 00000E0A SES_M_TMO = 00000040 SHS_L_SCTMODE 00000170 R 04 SS$_DEBUG = 0000046C CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 26 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) SS$_DECOVF = 000004A4 SS$_FILELOCKED = 000008A8 SS$_IVGSDNAM = 0000014C SS$_DEVACTIVE = 000002C4 SS$_FILENUMCHK = 000008B0 SS$_IVLOCKID = 00002124 SS$_DEVALLOC = 00000840 SS$_FILEPURGED = 00000679 SS$_IVLOGNAM = 00000154 SS$_DEVALRALLOC= 00000641 SS$_FILESEQCHK = 000008B8 SS$_IVLOGTAB = 0000015C SS$_DEVASSIGN = 00000848 SS$_FILESTRUCT = 000008C0 SS$_IVLVEC = 0000203C SS$_DEVCMDERR = 0000032C SS$_FILNOTACC = 000000AC SS$_IVMODE = 00000354 SS$_DEVFOREIGN = 00000064 SS$_FILNOTCNTG = 000002AC SS$_IVPROTECT = 000002F4 SS$_DEVICEFULL = 00000850 SS$_FILNOTEXP = 000000B4 SS$_IVQUOTAL = 00000164 SS$_DEVINACT = 000020D4 SS$_FLTDIV = 00000494 SS$_IVSECFLG = 0000016C SS$_DEVMOUNT = 0000006C SS$_FLTDIV_F = 000004BC SS$_IVSECIDCTL = 000002E4 SS$_DEVNOTALLOC= 00000858 SS$_FLTOVF = 0000048C SS$_IVSSRQ = 00000174 SS$_DEVNOTDISM = 000021B4 SS$_FLTOVF_F = 000004B4 SS$_IVSTSFLG = 0000017C SS$_DEVNOTMBX = 00000074 SS$_FLTUND = 0000049C SS$_IVTIME = 00000184 SS$_DEVNOTMOUNT= 0000007C SS$_FLTUND_F = 000004C4 SS$_JBCERROR = 0000218C SS$_DEVOFFLINE = 00000084 SS$_FORCEDERROR= 00002144 SS$_LCKPAGFUL = 000000D4 SS$_DEVREQERR = 00000334 SS$_FORCEDEXIT = 0000217C SS$_LENVIO = 0000018C SS$_DGQINCOMP = 000009C0 SS$_FORMAT = 000000BC SS$_LINEABRT = 00000E02 SS$_DIRALLOC = 000009C8 SS$_GPTFULL = 000000C4 SS$_LINKABORT = 000020E4 SS$_DIRFULL = 00000860 SS$_GSDFULL = 000000CC SS$_LINKDISCON = 000020EC SS$_DIRNOTEMPTY= 00002174 SS$_HANGUP = 000002CC SS$_LINKEXIT = 000020F4 SS$_DISCONNECT = 0000204C SS$_HEADERFULL = 000008C8 SS$_LKWSETFUL = 00000194 SS$_DRVERR = 0000008C SS$_IDMISMATCH = 000003F4 SS$_MBFULL = 000008D8 SS$_DUPDSKQUOTA= 000003DC SS$_IDXFILEFULL= 000008D0 SS$_MBTOOSML = 0000019C SS$_DUPFILENAME= 00000868 SS$_ILLBLKNUM = 000000DC SS$_MCHECK = 000002BC SS$_DUPLNAM = 00000094 SS$_ILLCDTST = 00002154 SS$_MCNOTVALID = 0000035C SS$_DUPUNIT = 000021C4 SS$_ILLCNTRFUNC= 000000E4 SS$_MEDOFL = 000001A4 SS$_ENDOFFILE = 00000870 SS$_ILLEFC = 000000EC SS$_MSGNOTFND = 00000621 SS$_ENDOFTAPE = 00000878 SS$_ILLIOFUNC = 000000F4 SS$_MTLBLLONG = 00000304 SS$_ENDOFUSRLBL= 00000970 SS$_ILLLBLAST = 00000968 SS$_MULTRMS = 0000202C SS$_ENDOFVOLUME= 000009A0 SS$_ILLPAGCNT = 000000FC SS$_MUSTCLOSEFL= 00000948 SS$_EOTIN = 00000C03 SS$_ILLSELF = 0000214C SS$_NOACNT = 0000284C SS$_EXASTLM = 00002A04 SS$_ILLSEQOP = 000002DC SS$_NOALLSPOOL = 00002824 SS$_EXBIOLM = 00002A0C SS$_ILLSER = 00000104 SS$_NOALTPRI = 0000286C SS$_EXBYTLM = 00002A14 SS$_ILLUSRLBLRD= 00000958 SS$_NOAQB = 00000314 SS$_EXCPUTIM = 000020AC SS$_ILLUSRLBLWT= 00000960 SS$_NOBUGCHK = 000028BC SS$_EXDEPTH = 00000E1A SS$_INCOMPAT = 00000699 SS$_NOBYPASS = 000028EC SS$_EXDIOLM = 00002A1C SS$_INCVOLLABEL= 0000010C SS$_NOCMEXEC = 0000280C SS$_EXDISKQUOTA= 000003EC SS$_INHCHME = 000004D4 SS$_NOCMKRNL = 00002804 SS$_EXENQLM = 00002A44 SS$_INHCHMK = 000004CC SS$_NODATA = 000001AC SS$_EXFILLM = 00002A24 SS$_INSFARG = 00000114 SS$_NODETACH = 0000282C SS$_EXGBLPAGFIL= 00002164 SS$_INSFBUFDP = 0000033C SS$_NODEVAVL = 000009B0 SS$_EXPGFLQUOTA= 00002A2C SS$_INSFCDT = 000021AC SS$_NODIAGNOSE = 00002834 SS$_EXPORTQUOTA= 000003AC SS$_INSFMAPREG = 00000344 SS$_NODISKQUOTA= 000003E4 SS$_EXPRCLM = 00002A34 SS$_INSFMEM = 00000124 SS$_NOEXQUOTA = 0000289C SS$_EXQUOTA = 0000001C SS$_INSFRAME = 0000012C SS$_NOGROUP = 00002844 SS$_EXQUOTAEND = 00002AFF SS$_INSFSPTS = 00002044 SS$_NOGRPNAM = 0000281C SS$_EXQUOTASTRT= 00002A00 SS$_INSFWSL = 0000011C SS$_NOHANDLER = 000008F8 SS$_EXTIDXFILE = 00000880 SS$_INTDIV = 00000484 SS$_NOHOMEBLK = 000008E0 SS$_EXTQELM = 00002A3C SS$_INTERLOCK = 0000038C SS$_NOIOCHAN = 000001B4 SS$_FACILITY = 00000000 SS$_INTOVF = 0000047C SS$_NOLICENSE = 00002194 SS$_FCPREADERR = 00000888 SS$_INVLOGIN = 0000209C SS$_NOLINKS = 0000027C SS$_FCPREPSTN = 00000988 SS$_IVADDR = 00000134 SS$_NOLISTENER = 0000215C SS$_FCPREWNDERR= 00000890 SS$_IVBUFLEN = 0000034C SS$_NOLOCKID = 00000E12 SS$_FCPSPACERR = 00000898 SS$_IVCHAN = 0000013C SS$_NOLOGNAM = 000001BC SS$_FCPWRITERR = 000008A0 SS$_IVCHAR = 000020CC SS$_NOLOG_IO = 0000283C SS$_FILACCERR = 0000009C SS$_IVCHNLSEC = 0000026C SS$_NOMBX = 00000274 SS$_FILALRACC = 000000A4 SS$_IVDEVNAM = 00000144 SS$_NOMOREFILES= 00000930 CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 27 Symbol table 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) SS$_NOMOREPROC = 000009A8 SS$_OPRABORT = 000020B4 SS$_VCCLOSED = 000021A4 SS$_NOMOUNT = 0000288C SS$_OVRDSKQUOTA= 00000669 SS$_VECFULL = 00002034 SS$_NONETMBX = 000028A4 SS$_PAGOWNVIO = 000001EC SS$_VECINUSE = 0000024C SS$_NONEXDRV = 000001C4 SS$_PAGRDERR = 00000444 SS$_VOLINV = 00000254 SS$_NONEXPR = 000008E8 SS$_PARITY = 000001F4 SS$_WAITUSRLBL = 00000950 SS$_NONLOCAL = 000008F0 SS$_PARNOTGRANT= 00002134 SS$_WASCLR = 00000001 SS$_NOOPER = 00002894 SS$_PARTESCAPE = 000001FC SS$_WASECC = 00000639 SS$_NOP1VA = 00002024 SS$_PARTMAPPED = 00000E22 SS$_WASSET = 00000009 SS$_NOPFNMAP = 000028D4 SS$_PATHLOST = 000020FC SS$_WRITLCK = 0000025C SS$_NOPHY_IO = 000028B4 SS$_PFMBSY = 00000204 SS$_WRONGACP = 0000031C SS$_NOPRIV = 00000024 SS$_PLHLDR = 00000404 SYS$PUTMSG ******** GX 04 SS$_NOPRIVEND = 000029FF SS$_POWERFAIL = 00000364 XNQ_IOSB = 00000004 SS$_NOPRIVSTRT = 00002800 SS$_PRIVINSTALL= 00002054 XNQ_MAXARGS = 00000001 SS$_NOPRMCEB = 00002854 SS$_PROTINSTALL= 0000205C XNQ_MINARGS = 00000000 SS$_NOPRMGBL = 000028C4 SS$_PROTOCOL = 00002074 XNQ_NARGS = 00000000 SS$_NOPRMMBX = 0000285C SS$_PSTFULL = 0000020C SS$_NOPSWAPM = 00002864 SS$_QFACTIVE = 000003CC SS$_NOQFILE = 000003C4 SS$_QFNOTACT = 000003D4 SS$_NORMAL = 00000001 SS$_RADRMOD = 0000044C SS$_NOSETPRV = 00002874 SS$_RDDELDATA = 00000661 SS$_NOSHMBLOCK = 000003B4 SS$_REJECT = 00000294 SS$_NOSHMEM = 000028DC SS$_RELINK = 0000200C SS$_NOSHRIMG = 000021BC SS$_REMOTE = 00000649 SS$_NOSIGNAL = 00000900 SS$_REMRSRC = 0000206C SS$_NOSLOT = 0000039C SS$_RESET = 0000210C SS$_NOSOLICIT = 00000284 SS$_RESIGNAL = 00000918 SS$_NOSUCHDEV = 00000908 SS$_RESULTOVF = 00000214 SS$_NOSUCHFILE = 00000910 SS$_ROPRAND = 00000454 SS$_NOSUCHNODE = 0000028C SS$_SECTBLFUL = 0000021C SS$_NOSUCHOBJ = 000020A4 SS$_SHARTOOBIG = 0000201C SS$_NOSUCHSEC = 00000978 SS$_SHMGSNOTMAP= 0000036C SS$_NOSUCHUSER = 00002084 SS$_SHMNOTCNCT = 0000037C SS$_NOSYSGBL = 000028CC SS$_SHRIDMISMAT= 000020BC SS$_NOSYSLCK = 000028F4 SS$_SHUT = 0000208C SS$_NOSYSNAM = 00002814 SS$_SSFAIL = 0000045C SS$_NOSYSPRV = 000028E4 SS$_SUBLOCKS = 0000212C SS$_NOTALLPRIV = 00000681 SS$_SUBRNG = 000004AC SS$_NOTAPEOP = 00000264 SS$_SUPERSEDE = 00000631 SS$_NOTCREATOR = 00000384 SS$_SUSPENDED = 000003A4 SS$_NOTFILEDEV = 000001CC SS$_SYNCH = 00000689 SS$_NOTINSTALL = 00002014 SS$_SYSVERDIF = 00000671 SS$_NOTINTBLSZ = 000001D4 SS$_TAPEPOSLOST= 00000224 SS$_NOTLABELMT = 000001DC SS$_TBIT = 00000464 SS$_NOTMODIFIED= 00000659 SS$_THIRDPARTY = 0000207C SS$_NOTMPMBX = 0000287C SS$_TIMEOUT = 0000022C SS$_NOTNETDEV = 000002EC SS$_TOOMANYLNAM= 00000374 SS$_NOTPRINTED = 00002184 SS$_TOOMANYREDS= 0000211C SS$_NOTQUEUED = 000009B8 SS$_TOOMANYVER = 00000990 SS$_NOTRAN = 00000629 SS$_TOOMUCHDATA= 0000029C SS$_NOTSQDEV = 000001E4 SS$_UNASEFC = 00000234 SS$_NOTVOLSET = 00000998 SS$_UNREACHABLE= 00002094 SS$_NOVOLPRO = 000028AC SS$_UNSAFE = 0000023C SS$_NOWORLD = 00002884 SS$_UNSOLICIT = 00002114 SS$_NOWRT = 000003FC SS$_UNWIND = 00000920 SS$_OPCCUS = 00000434 SS$_UNWINDING = 00000928 SS$_OPCDEC = 0000043C SS$_VASFULL = 00000244 SS$_OPINCOMPL = 000002D4 SS$_VCBROKEN = 0000219C CAM$SLIB CAMAC STATUS PROCEDURE LIBRARY 6-JAN-1983 11:06:39 VAX-11 Macro V03-00 Page 28 Psect synopsis 5-JAN-1983 17:16:49 SYS$SYSROOT:[CAMAC.SOURCE.KS30202](1) +----------------+ ! Psect synopsis ! +----------------+ PSECT name Allocation PSECT No. Attributes ---------- ---------- --------- ---------- . ABS . 00000000 ( 0.) 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE . BLANK . 00000000 ( 0.) 01 ( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE $ABS$ FFFFFFFC ( 0.) 02 ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE CAM$VEC 00000030 ( 48.) 03 ( 3.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE CAM$CODE 00000305 ( 773.) 04 ( 4.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE +------------------------+ ! Performance indicators ! +------------------------+ Phase Page faults CPU Time Elapsed Time ----- ----------- -------- ------------ Initialization 26 00:00:00.06 00:00:00.15 Command processing 29 00:00:00.20 00:00:00.46 Pass 1 776 00:00:16.47 00:00:17.47 Symbol table sort 0 00:00:01.98 00:00:01.98 Pass 2 276 00:00:03.20 00:00:03.27 Symbol table output 115 00:00:00.78 00:00:00.79 Psect synopsis output 9 00:00:00.03 00:00:00.03 Cross-reference output 0 00:00:00.00 00:00:00.00 Assembler run totals 1234 00:00:22.74 00:00:24.16 The working set limit was 750 pages. 87640 bytes (172 pages) of virtual memory were used to buffer the intermediate code. There were 70 pages of symbol table space allocated to hold 1326 non-local and 30 local symbols. 785 source lines were read in Pass 1, producing 37 object records in Pass 2. 36 pages of virtual memory were used to define 31 macros. +--------------------------+ ! Macro library statistics ! +--------------------------+ Macro library name Macros defined ------------------ -------------- SYS$SYSROOT:[CAMAC.SOURCE.KS30202]CAMDEF.MLB; 12 SYS$SYSROOT:[SYSLIB]LIB.MLB;1 0 SYS$SYSROOT:[SYSLIB]STARLET.MLB;1 14 TOTALS (all libraries) 26 1558 GETS were required to define 26 macros. There were no errors, warnings or information messages. /LIS CAMSLIB