SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 	.TITLE	SETMAGTAPE - SET CHARACTERISTICS OF A MAGTAPE

                                     0000   200 	.IDENT	/X01/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

                                     0000   800 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000   900 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000  1000 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000  1100 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000  1200 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000  1300 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

                                     0000  1600 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000  1700 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

                                     0000  2000 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000  2100 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000  2200 ;

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY:	CLI UTILITY "SET"

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT: 	SET THE CHARACTERISTICS OF A MAGTAPE

                                     0000  2800 ;

                                     0000  2900 ; AUTHOR:	LEN KAWELL 15-MAY-1978

                                     0000  3000 ;--

                                     0000  3100 ;

                                     0000  3200 ; LOCAL MACROS

                                     0000  3300 ;

                                     0000  3400 	.MACRO	CALLBAK	P1,P2

                                     0000  3500 	.IF B <P2>

                                     0000  3600 	PUSHAB	W^BITS			; ADDRESS OF BIT MASK

                                     0000  3700 	.IFF

                                     0000  3800 	PUSHAB	P2			; ADDRESS OF THIRD ARGUEMENT

                                     0000  3900 	.ENDC

                                     0000  4000 	PUSHAB	W^SET$A_CLIWORK	; COMMON WORK AREA

                                     0000  4100 	PUSHAB	P1			; THE REQUEST DESCRIPTOR

                                     0000  4200 	CALLS	#3,@CLI$A_UTILSERV(AP)	; REQUEST THE SERVICE OF THE CLI

                                     0000  4300 	.ENDM				;

                                     0000  4400  

                                     0000  4500 ;

                                     0000  4600 ; EXTERNAL SYMBOLS

                                     0000  4700 ;

                                     0000  4800 	$CLIDEFQUALSET			; DEFINE QUALIFIER CODES

                                     0000  4900 	$CLIMSGDEF			; CLI MESSAGE DEFINITIONS

                                     0000  5000 	$DEVDEF				; DEFINE DEVICE CHARACTERISTICS

                                     0000  5100 	$MTDEF				; MAGTAPE CHARACTERISTICS

                                     0000  5200 	$DCDEF				; DEVICE CLASS DEFINITIONS

                                     0000  5300 ;

                                     0000  5400 ; LOCAL STORAGE

                                     0000  5500 ;

                                 00000000  5600 	.PSECT	SET$RWDATA,NOEXE,LONG

                                     0000  5700  

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   2

X01                                                                                                                              (1)



                           00000000  0000  5800 BITS:		.LONG	0		; STORAGE FOR CLI CALL BACK

                  00000000 00000000  0004  5900 IOSTATUS:	.LONG	0,0		; IOSB FOR GET CHARACTERISTICS

                           0000000C  000C  6000 GET_CHAN_INFO:	.LONG	12

                           00000014' 0010  6100 		.LONG	DEV_CHAR

                                     0014  6200 DEV_CHAR:

                           00000000  0014  6300 		.LONG	0

                                     0018  6400 CHAN_INFO:

                           00000019  0018  6500 CLASS:		.BLKB	1

                           0000001A  0019  6600 MT_TYPE:	.BLKB	1

                           0000001C  001A  6700 BUFF:		.BLKW	1

                           00000020  001C  6800 MT_CHAR:	.BLKB	4

                                     0020  6900 

                                     0020  7000 QIO:					; QIO PARAMETER BLOCK

                                     0020  7100 	$QIOW	IOSB=IOSTATUS,P1=CHAN_INFO,P2=8

                                     0054  7200 

                                     0054  7300 MT_NAME:				; CLI REQUEST FOR DEVICE NAME

                                     0054  7400 	$CLIREQDESC	RQTYPE=CLI$K_INPUT1	

                                     0070  7500 CHAR_QUAL:

                                     0070  7600 	$CLIREQDESC	RQTYPE=CLI$K_GETQUAL,QUALST=QUALS

                                     008C  7700 QUALS:

                                     008C  7800 DEN_Q:	$CLIQUALDESC	QDCODE=CLI$K_STMT_DENS,TRUACT=DENSITY,-

                                     008C  7900 			QDFLGS=<CLI$V_QDEXPA>

                                     00A3  8000 	$CLIQUALDESC	QDCODE=CLI$K_STMT_REWI,TRUACT=REWIND,-

                                     00A3  8100 			QDFLGS=<CLI$V_QDEXPA>

                                     00BA  8200 	$CLIQUALDESC	QDCODE=CLI$K_STMT_UNLO,TRUACT=UNLOAD,-

                                     00BA  8300 			QDFLGS=<CLI$V_QDEXPA>

                                     00D1  8400 	$CLIQUALDESC	END_LIST

                                     00D2  8500 

                                     00D2  8600 NUM_VAL:				; CLI REQUEST FOR NUMERIC VALUE

                                     00D2  8700 	$CLIREQDESC	RQTYPE=CLI$K_NUMERVAL

                                     00EE  8800 

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   3

X01                                                                                                                              (1)



                                 00000000  9000 	.PSECT	SET$CODE,NOWRT

                                     0000  9100 ;++

                                     0000  9200 ; SET$MAGTAPE - SET FOREIGN MAGTAPE CHARACTERISTICS

                                     0000  9300 ;

                                     0000  9400 ; FUNCTIONAL DESCRIPTION:

                                     0000  9500 ;

                                     0000  9600 ; THIS ROUTINE SETS THE CHARACTERISTICS OF A SPECIFIED MAGTAPE.

                                     0000  9700 ; IT IS ENTERED AS A RESULT OF A DISPATCH FROM THE SET COMMAND PROCESSOR

                                     0000  9800 ;

                                     0000  9900 ; INPUTS:

                                     0000 10000 ;

                                     0000 10100 ;	THE CLI DATA BASE IS SET UP. 

                                     0000 10200 ;

                                     0000 10300 ; OUTPUTS:

                                     0000 10400 ;

                                     0000 10500 ;	SET$L_STATUS = STATUS OF THE OPERATION

                                     0000 10600 ;--

                                     0000 10700 SET$MAGTAPE::				; SET MAGTAPE COMMAND

                               0004  0000 10800 	.WORD	^M<R2>

            52       0054'CF     9E  0002 10900 	MOVAB	W^MT_NAME,R2		; ADDRESS QUAL DESC

                                     0007 11000 	CALLBAK	(R2)			; CALL CLI FOR DEVICE NAME

            52         08 A2     9E  0015 11100 	MOVAB	CLI$Q_RQDESC(R2),R2	; ADDRESS NAME DESC

                                     0019 11200 20$:	$ASSIGN_S (R2),W^QIOW$_CHAN+QIO	; ASSIGN CHANNEL TO DEVICE

            3A            50     E9  0028 11300 	BLBC	R0,ERROR		; IF LOW CLEAR THEN ERROR AND EXIT

                                     002B 11400 	$GETCHN_S W^QIOW$_CHAN+QIO,,W^GET_CHAN_INFO

            21            50     E9  0041 11500 	BLBC	R0,ERROR		; IF LOW CLEAR THEN ERROR

            02       0018'CF     91  0044 11600 	CMPB	W^CLASS,#DC$_TAPE	; IS DEVICE A TAPE?

                          07     13  0049 11700 	BEQL	30$			; IF EQL YES

            50       0000'8F     3C  004B 11800 	MOVZWL	#SS$_IVDEVNAM,R0	; ELSE INVALID DEVICE ERROR

                          13     11  0050 11900 	BRB	ERROR			;

                                     0052 11950 

       0014'CF            13     E1  0052 12000 30$:	BBC	#DEV$V_MNT,W^DEV_CHAR,40$ ; IF CLEAR, NOT MOUNTED

                          06         0057       

       0014'CF            18     E0  0058 12100 	BBS	#DEV$V_FOR,W^DEV_CHAR,SET_CHAR ; IF SET MOUNTED FOREIGN

                          0D         005D       

            50   0003887A 8F     D0  005E 12200 40$:	MOVL	#CLI$_DEVNOTFOR,R0	; ELSE NOT MOUNTED FOREIGN ERROR

                                     0065 12300 ;

                                     0065 12400 ; ERROR IN GETTING CHARACTERISTICS OR ASSIGNING CHANNEL

                                     0065 12500 ;

       0000'CF            50     D0  0065 12600 ERROR:	MOVL	R0,W^SET$L_STATUS	; SAVE FOR EXIT STATUS

                                 04  006A 12700 	RET				; RETURN

                                     006B 12800 ;

                                     006B 12900 ; PROCESS QUALIFIERS

                                     006B 13000 ;

                                     006B 13100 SET_CHAR:				; PROCESS QUALIFIERS

       0000'CF       0000'8F     3C  006B 13200 	MOVZWL	#SS$_NORMAL,W^SET$L_STATUS; ASSUME SUCCESS

                                     0072 13300 	CALLBAK	W^CHAR_QUAL

            0A       0000'CF     E9  0082 13400 	BLBC	W^SET$L_STATUS,100$	; IF LOW CLEAR - ERROR

            DB            50     E9  0087 13500 	BLBC	R0,ERROR		;

       0000'CF       0004'CF     3C  008A 13600 	MOVZWL	W^IOSTATUS,W^SET$L_STATUS ; SAVE I/O STATUS

                                     0091 13700 100$:	$DASSGN_S W^QIOW$_CHAN+QIO	; DEASSIGN THE CHANNEL

                                 04  009D 13800 	RET				; RETURN

                                     009E 13900 ;

                                     009E 14000 ; ACTION ROUTINES

                                     009E 14100 ;

                                     009E 14200 

                                     009E 14300 ;

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   4

X01                                                                                                                              (1)



                                     009E 14400 ; ACTION ROUTINE TO SET DENSITY

                                     009E 14500 ;

                                     009E 14600 DENSITY:

                               0004  009E 14700 	.WORD	^M<R2>

                     0090'CF     B5  00A0 14800 	TSTW	W^CLI$W_QDVALSIZ+DEN_Q	; VALUE PRESENT?

                          4F     13  00A4 14900 	BEQL	30$			; IF EQL NO

                                     00A6 15000 	CALLBAK	W^NUM_VAL,W^DEN_Q	; GET THE VALUE

            37            50     E9  00B6 15100 	BLBC	R0,20$			;

            50   0003883A 8F     D0  00B9 15200 	MOVL	#CLI$_ILLVAL,R0		; ASSUME ILLEGAL VALUE

            52       00DE'CF     D0  00C0 15300 	MOVL	W^CLI$L_RQVALU+NUM_VAL,R2 ; GET THE DENSITY VALUE

            51            04     D0  00C5 15400 	MOVL	#MT$K_PE_1600,R1	; ASSUME 1600 BPI

       0640 8F            52     B1  00C8 15500 	CMPW	R2,#1600		; IS IT 1600 BPI?

                          0A     13  00CD 15600 	BEQL	10$			; IF EQL YES

            51            03     D0  00CF 15700 	MOVL	#MT$K_NRZI_800,R1	; ASSUME 800 BPI

       0320 8F            52     B1  00D2 15800 	CMPW	R2,#800			; IS IT 800 BPI?

                          17     12  00D7 15900 	BNEQ	20$			; IF NEQ NO - ERROR

            08            51     F0  00D9 16000 10$:	INSV	R1,#MT$V_DENSITY,#MT$S_DENSITY,W^MT_CHAR ; SET CHARACTERISTICS

       001C'CF            05         00DC       

       002C'CF       0000'8F     3C  00E0 16100 	MOVZWL	#IO$_SETMODE,W^QIOW$_FUNC+QIO ; SET FUNCTION CODE

                                     00E7 16200 	$QIOW_G	W^QIO			; SET MODE

       0000'CF            50     D0  00F0 16300 20$:	MOVL	R0,W^SET$L_STATUS	; SET STATUS

                                 04  00F5 16400 30$:	RET

                                     00F6 16500 

                                     00F6 16600 ;

                                     00F6 16700 ; ACTION ROUTINE TO REWIND MAGTAPE

                                     00F6 16800 ;

                                     00F6 16900 REWIND:

                               0000  00F6 17000 	.WORD	0

       002C'CF       0000'8F     3C  00F8 17100 	MOVZWL	#IO$_REWIND,W^QIOW$_FUNC+QIO ; SET FUNCTION CODE

                                     00FF 17200 	$QIOW_G	W^QIO			; ISSUE FUNCTION

       0000'CF            50     D0  0108 17300 	MOVL	R0,W^SET$L_STATUS	; SET STATUS

                                 04  010D 17400 	RET

                                     010E 17500 

                                     010E 17600 

                                     010E 17700 ;

                                     010E 17800 ; ACTION ROUTINE TO UNLOAD MAGTAPE

                                     010E 17900 ;

                                     010E 18000 UNLOAD:

                               0000  010E 18100 	.WORD	0

       002C'CF       0000'8F     3C  0110 18200 	MOVZWL	#IO$_REWINDOFF,W^QIOW$_FUNC+QIO ; SET FUNCTION CODE

                                     0117 18300 	$QIOW_G	W^QIO			; ISSUE FUNCTION

       0000'CF            50     D0  0120 18400 	MOVL	R0,W^SET$L_STATUS	; SET STATUS

                                 04  0125 18500 	RET

                                     0126 18600 

                                     0126 18700 	.END

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (1)



$$$            = 00000004            CLI$K_KEYVAL   = 00000043            CLI$K_STPR_OWNE= 00000004            

$$$.           = 00000004            CLI$K_KEYWORD  = 00000042            CLI$K_STPR_PROT= 00000002            

$$$GBL         = 00000000            CLI$K_NUMERVAL = 00000040            CLI$K_STQE_AFTE= 00000001            

$$ARGS         = 0000000C            CLI$K_OUTPUT1  = 00000020            CLI$K_STQE_ENTR= 00000003            

$$T1           = 00000001            CLI$K_OUTPUT2  = 00000021            CLI$K_STQE_FORM= 00000004            

$CLI.          = 000000D2 R     03   CLI$K_OUTPUT3  = 00000022            CLI$K_STQE_HOLD= 00000005            

$CLI..         = 000000EE R     03   CLI$K_OUTPUT4  = 00000023            CLI$K_STQE_JOB_= 00000002            

$QUALNUM$      = 0000000B            CLI$K_OUTSPEC  = 00000002            CLI$K_STQE_LOWE= 00000006            

AT$_MBA        = 00000000            CLI$K_PARDONE  = 00000003            CLI$K_STQE_NAME= 00000007            

AT$_UBA        = 00000001            CLI$K_QDBITS     00000014            CLI$K_STQE_PRIO= 00000008            

BIT...         = 00000045            CLI$K_QUALDEF    00000014            CLI$K_STQE_RELE= 00000009            

BITS             00000000 R     03   CLI$K_REQDESC    0000001C            CLI$K_STRM_BLOC= 00000001            

BUFF             0000001A R     03   CLI$K_SET_ACCO = 00000001            CLI$K_STRM_BUFF= 00000002            

CHAN_INFO        00000018 R     03   CLI$K_SET_CARD = 00000002            CLI$K_STRM_DISK= 00000003            

CHAR_QUAL        00000070 R     03   CLI$K_SET_CONT = 00000012            CLI$K_STRM_HASH= 00000006            

CLASS            00000018 R     03   CLI$K_SET_DEFA = 00000004            CLI$K_STRM_INDE= 00000007            

CLI$A_ABSACT     00000014            CLI$K_SET_DEVI = 00000003            CLI$K_STRM_MAGT= 00000004            

CLI$A_ERRACT     00000004            CLI$K_SET_LOGI = 00000005            CLI$K_STRM_RELA= 00000008            

CLI$A_FLSACT     00000010            CLI$K_SET_MAGT = 00000006            CLI$K_STRM_SEQU= 00000009            

CLI$A_IMGFILED   00000010            CLI$K_SET_ON   = 00000007            CLI$K_STRM_SYST= 0000000A            

CLI$A_IMGHDADR   0000000C            CLI$K_SET_PASS = 00000008            CLI$K_STRM_UNIT= 00000005            

CLI$A_PROGXFER   00000004            CLI$K_SET_PRIN = 00000009            CLI$K_STTT_BROA= 00000001            

CLI$A_PRSACT     00000010            CLI$K_SET_PROC = 0000000A            CLI$K_STTT_CRFI= 00000002            

CLI$A_QDVALADR   00000008            CLI$K_SET_PROT = 0000000B            CLI$K_STTT_ECHO= 00000003            

CLI$A_QUALST     00000018            CLI$K_SET_QUEU = 0000000C            CLI$K_STTT_EIGH= 00000004            

CLI$A_RQADDR     0000000C            CLI$K_SET_RMS_ = 00000011            CLI$K_STTT_ESCA= 00000005            

CLI$A_TRUACT     0000000C            CLI$K_SET_TERM = 0000000D            CLI$K_STTT_HARD= 00000006            

CLI$A_UTILSERV   00000008            CLI$K_SET_UIC  = 0000000E            CLI$K_STTT_HOLD= 00000007            

CLI$B_BITNUM     00000001            CLI$K_SET_VERI = 0000000F            CLI$K_STTT_HOST= 00000008            

CLI$B_QDBLKSIZ   00000000            CLI$K_SET_WORK = 00000010            CLI$K_STTT_INTE= 00000009            

CLI$B_QDCODE     00000001            CLI$K_STAC_DISA= 00000001            CLI$K_STTT_LA36= 0000000A            

CLI$B_QDFLGS     00000002            CLI$K_STAC_ENAB= 00000002            CLI$K_STTT_LFFI= 0000000B            

CLI$B_QDSTAT     00000003            CLI$K_STAC_NEW_= 00000003            CLI$K_STTT_LOCA= 0000000C            

CLI$B_RQFLGS     00000002            CLI$K_STCR_026 = 00000001            CLI$K_STTT_LOWE= 0000000D            

CLI$B_RQINDX     00000001            CLI$K_STCR_029 = 00000002            CLI$K_STTT_PAGE= 0000000E            

CLI$B_RQSTAT     00000003            CLI$K_STDV_ERRO= 00000002            CLI$K_STTT_PARI= 0000001E            

CLI$B_RQTYPE     00000000            CLI$K_STDV_SPOO= 00000001            CLI$K_STTT_PASS= 0000000F            

CLI$C_QDBITS     00000014            CLI$K_STLG_INTE= 00000001            CLI$K_STTT_PERM= 00000020            

CLI$C_QUALDEF    00000014            CLI$K_STLP_CR  = 00000001            CLI$K_STTT_READ= 0000001F            

CLI$C_REQDESC    0000001C            CLI$K_STLP_FF  = 00000002            CLI$K_STTT_REMO= 00000010            

CLI$C_WORKAREA   00000080            CLI$K_STLP_LA11= 00000005            CLI$K_STTT_SCOP= 00000011            

CLI$K_ASCIIVAL = 00000041            CLI$K_STLP_LA18= 00000006            CLI$K_STTT_SCRI= 00000012            

CLI$K_CLISERV  = 00000005            CLI$K_STLP_LOWE= 00000004            CLI$K_STTT_SPEE= 00000013            

CLI$K_ENDPRM1  = 00000030            CLI$K_STLP_LP11= 00000007            CLI$K_STTT_TAB = 00000014            

CLI$K_ENDPRM2  = 00000031            CLI$K_STLP_PAGE= 00000008            CLI$K_STTT_TTSY= 00000015            

CLI$K_ENDPRM3  = 00000032            CLI$K_STLP_UNKN= 00000009            CLI$K_STTT_TYPE= 00000016            

CLI$K_ENDPRM4  = 00000033            CLI$K_STLP_UPPE= 00000003            CLI$K_STTT_UNKN= 00000017            

CLI$K_FILSPEC  = 00000044            CLI$K_STLP_WIDT= 0000000A            CLI$K_STTT_UPPE= 00000018            

CLI$K_GETCMD   = 00000001            CLI$K_STMT_DENS= 00000001            CLI$K_STTT_VT05= 00000019            

CLI$K_GETOPT   = 00000003            CLI$K_STMT_REWI= 00000002            CLI$K_STTT_VT52= 0000001A            

CLI$K_GETQUAL  = 00000002            CLI$K_STMT_UNLO= 00000003            CLI$K_STTT_VT55= 0000001B            

CLI$K_INITPRS  = 00000000            CLI$K_STPC_IDEN= 00000001            CLI$K_STTT_WIDT= 0000001C            

CLI$K_INPSPEC  = 00000001            CLI$K_STPC_PRIO= 00000002            CLI$K_STTT_WRAP= 0000001D            

CLI$K_INPUT1   = 00000010            CLI$K_STPC_RESO= 00000003            CLI$K_STWR_LIMI= 00000001            

CLI$K_INPUT2   = 00000011            CLI$K_STPC_SWAP= 00000004            CLI$K_STWR_QUOT= 00000002            

CLI$K_INPUT3   = 00000012            CLI$K_STPR_DEFA= 00000001            CLI$K_UTILOPR  = 00000000            

CLI$K_INPUT4   = 00000013            CLI$K_STPR_DEVI= 00000003            CLI$K_VALCONV  = 00000004            

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            CLI$_NULFIL    = 000380E0            

CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            CLI$_NUMBER    = 000380E8            

CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            CLI$_ONCOMD    = 000380F0            

CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            CLI$_ONERR     = 000380F8            

CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            CLI$_ONEVAL    = 00038158            

CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            CLI$_ONLEVL    = 00038100            

CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            CLI$_ONOVF     = 00038108            

CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            CLI$_OVRFLW    = 00038160            

CLI$M_ALLOCCUR = 00000001            CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            

CLI$M_BATCH    = 00000008            CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            

CLI$M_CONCATINP= 00000002            CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            

CLI$M_DBGEXCP  = 00010000            CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            

CLI$M_DBGTRU   = 00000002            CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            

CLI$M_DEBUG    = 00000001            CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            

CLI$M_DUMMY    = 00000002            CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            

CLI$M_EXPNAM   = 00000004            CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            

CLI$M_INDIRECT = 00000010            CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            

CLI$M_KEYVALU  = 00000002            CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            

CLI$M_LASTVAL  = 00000001            CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            

CLI$M_MOREINP  = 00000004            CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            

CLI$M_MOREVALS = 00000001            CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            

CLI$M_PARMDEF  = 00000008            CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            

CLI$M_PARMPRS  = 00000001            CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            

CLI$M_PARMREQ  = 00000001            CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            

CLI$M_QDEXPA   = 00000004            CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            

CLI$M_QDUSRV   = 00000002            CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            

CLI$M_QUALEXP  = 00000002            CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            

CLI$M_QUALTRU  = 00000001            CLI$_INSFPRM   = 00038048            DC$_CARD       = 00000041            

CLI$M_TRMVRBLV = 00000300            CLI$_INVKEY    = 00038178            DC$_DISK       = 00000001            

CLI$M_VERIFY   = 00000004            CLI$_INVQUAL   = 0003880A            DC$_LP         = 00000043            

CLI$M_VFYINP   = 00000020            CLI$_INVQUALNUM= 0003881A            DC$_MAILBOX    = 000000A0            

CLI$Q_QDVALDESC  00000004            CLI$_INVREQTYP = 00038822            DC$_SCOM       = 00000020            

CLI$Q_RQDESC     00000008            CLI$_INVRSP    = 00038180            DC$_TAPE       = 00000002            

CLI$S_PRITYP   = 00000004            CLI$_INVUIC    = 000381A8            DC$_TERM       = 00000042            

CLI$S_SUBTYP   = 00000004            CLI$_IVCHAR    = 00038050            DENSITY          0000009E R     04   

CLI$S_TRMVRBLV = 00000002            CLI$_IVDEVTYPE = 0003886A            DEN_Q            0000008C R     03   

CLI$V_ABSADR   = 00000001            CLI$_IVFNAM    = 000381C0            DEV$M_ALL      = 00800000            

CLI$V_ALLOCCUR = 00000000            CLI$_IVKEYW    = 00038060            DEV$M_AVL      = 00040000            

CLI$V_BATCH    = 00000003            CLI$_IVOPER    = 00038068            DEV$M_CCL      = 00000002            

CLI$V_CONCATINP= 00000001            CLI$_IVPROT    = 00038070            DEV$M_DIR      = 00000008            

CLI$V_DBGEXCP  = 00000010            CLI$_IVQLOC    = 00038078            DEV$M_DMT      = 00200000            

CLI$V_DBGTRU   = 00000001            CLI$_IVSYMB    = 00038080            DEV$M_ELG      = 00400000            

CLI$V_DEBUG    = 00000000            CLI$_IVVALU    = 00038088            DEV$M_FOD      = 00004000            

CLI$V_DUMMY    = 00000001            CLI$_IVVERB    = 00038090            DEV$M_FOR      = 01000000            

CLI$V_EXPNAM   = 00000002            CLI$_MAXPARM   = 00038098            DEV$M_GEN      = 00020000            

CLI$V_INDIRECT = 00000004            CLI$_MULKEY    = 000381A0            DEV$M_IDV      = 04000000            

CLI$V_KEYVALU  = 00000001            CLI$_NOATFIL   = 000380A0            DEV$M_MBX      = 00100000            

CLI$V_LASTVAL  = 00000000            CLI$_NOCCAT    = 000380A8            DEV$M_MNT      = 00080000            

CLI$V_MOREINP  = 00000002            CLI$_NOCOMD    = 000380B0            DEV$M_NET      = 00002000            

CLI$V_MOREVALS = 00000000            CLI$_NOKEYW    = 000380B8            DEV$M_ODV      = 08000000            

CLI$V_PARMDEF  = 00000003            CLI$_NOLIST    = 000380C0            DEV$M_RCK      = 40000000            

CLI$V_PARMPRS  = 00000000            CLI$_NOOPTPRS  = 00038842            DEV$M_REC      = 00000001            

CLI$V_PARMREQ  = 00000000            CLI$_NOQUAL    = 000380C8            DEV$M_RND      = 10000000            

CLI$V_PRITYP   = 00000004            CLI$_NORMAL    = 00030001            DEV$M_RTM      = 20000000            

CLI$V_QDEXPA   = 00000002            CLI$_NOTNEG    = 000380D8            DEV$M_SDI      = 00000010            

CLI$V_QDUSRV   = 00000001            CLI$_NOVALU    = 000380D0            DEV$M_SHR      = 00010000            

CLI$V_QUALEXP  = 00000001            CLI$_NOVALUE   = 0003882A            DEV$M_SPL      = 00000040            

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



DEV$M_SQD      = 00000020            ERROR            00000065 R     04   QIOW$_NARGS    = 0000000C            

DEV$M_SWL      = 02000000            GBL...         = 00000000            QIOW$_P1       = 0000001C            

DEV$M_TRM      = 00000004            GET_CHAN_INFO    0000000C R     03   QIOW$_P2       = 00000020            

DEV$M_WCK      = 80000000            IO$_REWIND       ********   X   04   QIOW$_P3       = 00000024            

DEV$V_ALL      = 00000017            IO$_REWINDOFF    ********   X   04   QIOW$_P4       = 00000028            

DEV$V_AVL      = 00000012            IO$_SETMODE      ********   X   04   QIOW$_P5       = 0000002C            

DEV$V_CCL      = 00000001            IOSTATUS         00000004 R     03   QIOW$_P6       = 00000030            

DEV$V_DIR      = 00000003            MT$K_CORDMP11  = 0000000D            QUALS            0000008C R     03   

DEV$V_DMT      = 00000015            MT$K_DEFAULT   = 00000000            QUA_B_DEFVAL     00000002            

DEV$V_ELG      = 00000016            MT$K_NORMAL11  = 0000000C            QUA_B_IMAGE      00000005            

DEV$V_FOD      = 0000000E            MT$K_NORMAL15  = 0000000E            QUA_B_INDEX      00000001            

DEV$V_FOR      = 00000018            MT$K_NRZI_800  = 00000003            QUA_B_OFFSET     00000000            

DEV$V_GEN      = 00000011            MT$K_PE_1600   = 00000004            QUA_B_PARMCNT    00000008            

DEV$V_IDV      = 0000001A            MT$M_BOT       = 00010000            QUA_G_CHNGLST    00000006            

DEV$V_MBX      = 00000014            MT$M_DENSITY   = 00001F00            QUA_M_BATDEF   = 00000100            

DEV$V_MNT      = 00000013            MT$M_EOF       = 00020000            QUA_M_CHNGLIST = 00000001            

DEV$V_NET      = 0000000D            MT$M_EOT       = 00040000            QUA_M_DEFTRUE  = 00000080            

DEV$V_ODV      = 0000001B            MT$M_FORMAT    = 000000F0            QUA_M_FILE     = 00000004            

DEV$V_RCK      = 0000001E            MT$M_HWL       = 00080000            QUA_M_IMAGE    = 00000400            

DEV$V_REC      = 00000000            MT$M_LOST      = 00100000            QUA_M_INTDEF   = 00000200            

DEV$V_RND      = 0000001C            MT$M_PARITY    = 00000008            QUA_M_KEYVAL   = 00004000            

DEV$V_RTM      = 0000001D            MT$S_DENSITY   = 00000005            QUA_M_LOCALKEY = 00000002            

DEV$V_SDI      = 00000004            MT$S_FORMAT    = 00000004            QUA_M_NEG      = 00000040            

DEV$V_SHR      = 00000010            MT$V_BOT       = 00000010            QUA_M_ONEVAL   = 00002000            

DEV$V_SPL      = 00000006            MT$V_DENSITY   = 00000008            QUA_M_OUTPUT   = 00000800            

DEV$V_SQD      = 00000005            MT$V_EOF       = 00000011            QUA_M_PARM     = 00000010            

DEV$V_SWL      = 00000019            MT$V_EOT       = 00000012            QUA_M_VAL      = 00000020            

DEV$V_TRM      = 00000002            MT$V_FORMAT    = 00000004            QUA_M_VALREQ   = 00001000            

DEV$V_WCK      = 0000001F            MT$V_HWL       = 00000013            QUA_M_VERB     = 00000008            

DEV_CHAR         00000014 R     03   MT$V_LOST      = 00000014            QUA_S_MAXPARM  = 00000004            

DT$_CR11       = 00000001            MT$V_PARITY    = 00000003            QUA_S_MINPARM  = 00000004            

DT$_LA11       = 00000002            MT_CHAR          0000001C R     03   QUA_V_BATDEF   = 00000008            

DT$_LA180      = 00000003            MT_NAME          00000054 R     03   QUA_V_CHNGLIST = 00000000            

DT$_LA36       = 00000020            MT_TYPE          00000019 R     03   QUA_V_DEFTRUE  = 00000007            

DT$_LAX        = 00000020            NUM_VAL          000000D2 R     03   QUA_V_FILE     = 00000002            

DT$_LP11       = 00000001            PRO_B_FLAGS      00000001            QUA_V_IMAGE    = 0000000A            

DT$_MBX        = 00000001            PRO_B_PROMPT     00000000            QUA_V_INTDEF   = 00000009            

DT$_RK06       = 00000001            PRO_K_LENGTH     00000002            QUA_V_KEYVAL   = 0000000E            

DT$_RK07       = 00000002            PRO_M_CONCAT   = 00000001            QUA_V_LOCALKEY = 00000001            

DT$_RM03       = 00000006            PRO_M_IMPCAT   = 00000002            QUA_V_MAXPARM  = 00000004            

DT$_RP04       = 00000003            PRO_M_LIST     = 00000004            QUA_V_MINPARM  = 00000000            

DT$_RP05       = 00000004            PRO_M_OPTION   = 00000008            QUA_V_NEG      = 00000006            

DT$_RP06       = 00000005            PRO_M_REQ      = 00000010            QUA_V_ONEVAL   = 0000000D            

DT$_RP07       = 00000007            PRO_M_STRING   = 00000020            QUA_V_OUTPUT   = 0000000B            

DT$_RP07HT     = 00000008            PRO_V_CONCAT   = 00000000            QUA_V_PARM     = 00000004            

DT$_TE16       = 00000001            PRO_V_IMPCAT   = 00000001            QUA_V_VAL      = 00000005            

DT$_TTYUNKN    = 00000000            PRO_V_LIST     = 00000002            QUA_V_VALREQ   = 0000000C            

DT$_TU45       = 00000002            PRO_V_OPTION   = 00000003            QUA_V_VERB     = 00000003            

DT$_TU77       = 00000003            PRO_V_REQ      = 00000004            QUA_W_FLAGS      00000003            

DT$_VT05       = 00000001            PRO_V_STRING   = 00000005            QUA_W_PROMPT     00000009            

DT$_VT52       = 00000040            QIO              00000020 R     03   QUA_W_QUALIST    00000006            

DT$_VT55       = 00000041            QIOW$_ASTADR   = 00000014            REWIND           000000F6 R     04   

DT$_VT5X       = 00000040            QIOW$_ASTPRM   = 00000018            SET$A_CLIWORK    ********   X   04   

DT$_XM_ALMA    = 00000009            QIOW$_CHAN     = 00000008            SET$L_STATUS     ********   X   04   

DT$_XM_ALMD    = 0000000A            QIOW$_EFN      = 00000004            SET$MAGTAPE      00000000 RG    04   

DT$_XM_ARDA    = 00000001            QIOW$_FUNC     = 0000000C            SET_CHAR         0000006B R     04   

DT$_XM_ARFA    = 00000002            QIOW$_IOSB     = 00000010            SS$_IVDEVNAM     ********   X   04   

SETMAGTAPE      - SET CHARACTERISTICS OF A MAGTAPE               21-AUG-1978 19:09:24   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



SS$_NORMAL       ********   X   04   

SYS$ASSIGN       ********   X   04   

SYS$DASSGN       ********   X   04   

SYS$GETCHN       ********   X   04   

SYS$QIOW         ********   X   04   

UNLOAD           0000010E R     04   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            00000080      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

SET$RWDATA       000000EE      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SET$CODE         00000126      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

5624. BYTES LEFT IN FREE MEMORY POOL.

3730. BYTES OF RECLAIMED MEMORY.

OBJ$:SETMAG,LIS$:SETMAG/-SP=EXECML$/ML,LIB$:CLIUTL/ML,SRC$:SETMAG

67 MLB DIR RDS - 912 GETS TO DEFINE 37 MACROS. 67 INTER. FILE WRITES. 

