SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 	.TITLE	SHOWMAGTAPE - SHOW 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 "SHOW"

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:	SHOW THE CHARACTERISTICS OF A MAGTAPE

                                     0000  2800 ;

                                     0000  2900 ; AUTHOR:	LEN KAWELL 5-JUN-78

                                     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^SHOW$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 	$DEVDEF				; DEFINE DEVICE CHARACTERISTICS

                                     0000  4850 	$DCDEF				; DEFINE DEVICE TYPES & CLASSES

                                     0000  4900 	$MTDEF				; DEFINE MAGTAPE CHARACTERISTICS

                                     0000  5000 ;

                                     0000  5100 ; LOCAL STORAGE

                                     0000  5200 ;

                                 00000000  5300 	.PSECT	SHOW$RWDATA,NOEXE,LONG

                                     0000  5400  

                                     0000  5500 ;

                                     0000  5600 ; STORAGE

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   2

X01                                                                                                                              (1)



                                     0000  5700 ;

                           00000000  0000  5800 CHAN:		.LONG	0		; CHANNEL NUMBER

                           00000000  0004  5900 BITS:		.LONG	0		; STORAGE FOR CLI CALL BACK

                  00000000 00000000  0008  6000 UTIL_DESC:	.LONG	0,0		; UTILITY DESC

                           00000030  0010  6100 GET_CHAN_INFO:	.LONG	48

                           00000018' 0014  6200 		.LONG	CHAN_INFO-4

                           00000000  0018  6300 		.LONG	0

                           0000004C  001C  6400 CHAN_INFO:	.BLKL	12

                                     004C  6500 ;

                                     004C  6600 CHAR_LIST:	.REPT	11

                                     004C  6700 		.LONG	NULL_STR

                                     004C  6800 		.ENDR

                                 00  0078  6900 NULL_STR:	.BYTE	0

                                     0079  7000 ;

                                     0079  7100 ; READ ONLY DATA

                                     0079  7200 ;

                                 00000000  7300 	.PSECT	SHOW$RDATA,NOEXE,LONG

                                     0000  7400  

                                     0000  7500 DEV_NAME:

                                     0000  7600 	$CLIREQDESC	RQTYPE=CLI$K_INPUT1	; GET THE DEVICE NAME

                                     001C  7700 ;

                                     001C  7800 ; TYPE NAMES

                                     001C  7900 ;

                                     001C  8000 TYPE_NAME:

0000003E'00000039'00000034'0000002C' 001C  8100 	.LONG	1$,2$,3$,4$

            4E 57 4F 4E 4B 4E 55 00' 002C  8200 1$:	.ASCIC	/UNKNOWN/

                                 07  002C       

                     36 31 45 54 00' 0034  8300 2$:	.ASCIC	/TE16/

                                 04  0034       

                     35 34 55 54 00' 0039  8400 3$:	.ASCIC	/TU45/

                                 04  0039       

                     37 37 55 54 00' 003E  8450 4$:	.ASCIC	/TU77/

                                 04  003E       

                                     0043  8500 ;

                                     0043  8600 ; DENSITY VALUES

                                     0043  8800 ;

                                     0043  8810 DENSITY:

                  0000004F'0000004B' 0043  8820 	.LONG	1$,2$

                        30 30 38 00' 004B  8830 1$:	.ASCIC	/800/

                                 03  004B       

                     30 30 36 31 00' 004F  8840 2$:	.ASCIC	/1600/

                                 04  004F       

                                     0054  8850 ;

                                     0054  8860 ; FORMAT TYPES

                                     0054  8870 ;

                                     0054  8880 FORMAT:

         00000076'0000006A'00000060' 0054  8890 	.LONG	1$,2$,3$

      31 31 2D 6C 61 6D 72 6F 4E 00' 0060  8900 1$:	.ASCIC	/Normal-11/

                                 09  0060       

31 31 2D 70 6D 75 64 65 72 6F 43 00' 006A  8910 2$:	.ASCIC	/Coredump-11/

                                 0B  006A       

      35 31 2D 6C 61 6D 72 6F 4E 00' 0076  8920 3$:	.ASCIC	/Normal-15/

                                 09  0076       

                                     0080  8930 ;

                                     0080  8940 ; STATUS VALUES

                                     0080  8950 ;

                                     0080  8960 STATUS:

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   3

X01                                                                                                                              (1)



000000C1'000000B4'000000A7'00000094' 0080  8970 	.LONG	1$,2$,3$,4$,5$

                           000000CF' 0090       

6F 2D 67 6E 69 6E 6E 69 67 65 42 00' 0094  8980 1$:	.ASCIC	/Beginning-of-Tape /

               20 65 70 61 54 2D 66  00A0       

                                 12  0094       

65 6C 69 46 2D 66 6F 2D 64 6E 45 00' 00A7  8990 2$:	.ASCIC	/End-of-File /

                                 20  00B3       

                                 0C  00A7       

65 70 61 54 2D 66 6F 2D 64 6E 45 00' 00B4  8995 3$:	.ASCIC	/End-of-Tape /

                                 20  00C0       

                                 0C  00B4       

65 6B 63 6F 6C 2D 65 74 69 72 57 00' 00C1  9000 4$:	.ASCIC	/Write-locked /

                              20 64  00CD       

                                 0D  00C1       

6F 4C 20 6E 6F 69 74 69 73 6F 50 00' 00CF  9010 5$:	.ASCIC	/Position Lost /

                           20 74 73  00DB       

                                 0E  00CF       

                                     00DE  9020 ;

                                     00DE  9030 DEFAULT:

            74 6C 75 61 66 65 44 00' 00DE  9040 	.ASCIC	/Default/

                                 07  00DE       

                                     00E6  9050 EVEN:

                     6E 65 76 45 00' 00E6  9060 	.ASCIC	/Even/

                                 04  00E6       

                                     00EB  9070 ODD:

                        64 64 4F 00' 00EB  9080 	.ASCIC	/Odd/

                                 03  00EB       

                                     00EF  9090 

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   4

X01                                                                                                                              (2)



                                 00000000   100 	.PSECT	SHOW$CODE,NOWRT

                                     0000   200 ;++

                                     0000   300 ; SHOW$MAGTAPE - SHOW MAGTAPE CHARACTERISTICS

                                     0000   400 ;

                                     0000   500 ; FUNCTIONAL DESCRIPTION:

                                     0000   600 ;

                                     0000   700 ; THIS ROUTINE SHOWS THE CHARACTERISTICS OF A SPECIFIED MAGTAPE.

                                     0000   800 ; IT IS ENTERED AS A RESULT OF A DISPATCH FROM THE SHOW COMMAND PROCESSOR.

                                     0000   900 ;

                                     0000  1000 ; INPUTS:

                                     0000  1100 ;

                                     0000  1200 ;	THE CLI DATA BASE IS SET UP. 

                                     0000  1300 ;

                                     0000  1400 ; OUTPUTS:

                                     0000  1500 ;

                                     0000  1600 ;	R0 = STATUS OF THE OPERATION

                                     0000  1700 ;--

                                     0000  1800 SHOW$MAGTAPE::				; SHOW MAGTAPE COMMAND

                               03FC  0000  1900 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9>

            56       0000'CF     9E  0002  2000 	MOVAB	W^DEV_NAME,R6		; ADDRESS QUAL DESC

                                     0007  2100 	CALLBAK	(R6)			; CALL CLI FOR DEVICE NAME

            56         08 A6     9E  0015  2200 	MOVAB	CLI$Q_RQDESC(R6),R6	; ADDRESS NAME DESC

                                     0019  2300 	$GETDEV_S	(R6),,W^GET_CHAN_INFO; GET THE DEVICE INFO

            06            50     E8  002C  2400 	BLBS	R0,SHOW

                                     002F  2500 ;

                                     002F  2600 ; ERROR IN GETTING CHARACTERISTICS

                                     002F  2700 ;

                                     002F  2800 ERROR:

       0000'CF            50     D0  002F  2900 	MOVL	R0,W^SHOW$L_STATUS	; SAVE FOR EXIT STATUS

                                 04  0034  3300 	RET				; RETURN

                                     0035  3400 ;

                                     0035  3500 ; OUTPUT CHARACTERISTICS

                                     0035  3600 ;

                                     0035  3700 SHOW:					; 

                          00'    DD  0035  3800 	PUSHL	S^#SHOW$_MAGT_L1	; SET UP TO OUTPUT MESSAGE

                     004C'CF     9F  0037  3900 	PUSHAB	W^CHAR_LIST		;

            56            6E     D0  003B  4000 	MOVL	(SP),R6			; ADDRESS LIST 

                                     003E  4100 ;

                                     003E  4200 ; OUTPUT NAME, TYPE,

                                     003E  4300 ;

            52       0024'CF     9E  003E  4400 	MOVAB	W^CHAN_INFO+8,R2	; ADDRESS CHARACTERISTICS

            50            82     3C  0043  4500 	MOVZWL	(R2)+,R0		; GET NAME AND UNIT

            52            62     9A  0046  4600 	MOVZBL	(R2),R2			; GET OFFSET TO NAME

            86       0018'CF42   9E  0049  4700 	MOVAB	W^CHAN_INFO-4[R2],(R6)+	; ADDRESS NAME

            86            50     D0  004F  4800 	MOVL	R0,(R6)+		; INSERT UNIT

                          54     D4  0052  4900 	CLRL	R4			; ASSUME UNKNOWN

            01       001D'CF     91  0054  5000 	CMPB	W^CHAN_INFO+1,#DT$_TE16	; IN RANGE?

                          0C     1F  0059  5100 	BLSSU	10$

            03       001D'CF     91  005B  5110 	CMPB	W^CHAN_INFO+1,#DT$_TU77	; IN RANGE?

                          05     1A  0060  5120 	BGTRU	10$

            54       001D'CF     9A  0062  5200  	MOVZBL	W^CHAN_INFO+1,R4	; GET TYPE VALUE

            86       001C'CF44   D0  0067  5300 10$:	MOVL	W^TYPE_NAME[R4],(R6)+	; ADDRESS TYPE

                                     006D  5310 

                                     006D  5315 ;

                                     006D  5317 ; DENSITY,

                                     006D  5319 ;

            55       0020'CF     D0  006D  5320 	MOVL	W^CHAN_INFO+4,R5	; GET DEVICE-DEPENDENT CHARACTERISTICS

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   5

X01                                                                                                                              (2)



            66       00DE'CF     9E  0072  5330 	MOVAB	W^DEFAULT,(R6)		; ASSUME DEFAULT DENSITY

            05            08     EF  0077  5340 	EXTZV	#MT$V_DENSITY,#MT$S_DENSITY,R5,R4 ; GET DENSITY VALUE

            54            55         007A       

                          10     13  007C  5350 	BEQL	20$			; BR IF DEFAULT

            04            54     91  007E  5360 	CMPB	R4,#MT$K_PE_1600	; IN RANGE?

                          0B     1A  0081  5370 	BGTRU	20$			; BR IF NO

            54            03     C2  0083  5380 	SUBL	#MT$K_NRZI_800,R4	; CONVERT TO TABLE INDEX

                          06     19  0086  5382 	BLSS	20$			; BR IF NOT IN RANGE

            66       0043'CF44   D0  0088  5390 	MOVL	W^DENSITY[R4],(R6)	; SET DENSITY

                                     008E  5400 

                                     008E  5402 ;

                                     008E  5404 ; FORMAT,

                                     008E  5406 ;

                          86     D5  008E  5410 20$:	TSTL	(R6)+			;

            66       00DE'CF     9E  0090  5420 	MOVAB	W^DEFAULT,(R6)		; ASSUME DEFAULT FORMAT

            04            04     EF  0095  5430 	EXTZV	#MT$V_FORMAT,#MT$S_FORMAT,R5,R4 ; GET FORMAT VALUE

            54            55         0098       

                          10     13  009A  5440 	BEQL	30$			; BR IF DEFAULT

            0E            54     91  009C  5450 	CMPB	R4,#MT$K_NORMAL15	; IN RANGE?

                          0B     1A  009F  5460 	BGTRU	30$			; BR IF NO

            54            0C     C2  00A1  5470 	SUBL	#MT$K_NORMAL11,R4	; CONVERT TO TABLE INDEX

                          06     19  00A4  5472 	BLSS	30$			; BR IF NOT IN RANGE

            66       0054'CF44   D0  00A6  5480 	MOVL	W^FORMAT[R4],(R6)	; SET FORMAT

                                     00AC  5490 

                                     00AC  5492 ;

                                     00AC  5494 ; STATUS,

                                     00AC  5496 ;

            53            10     D0  00AC  5500 30$:	MOVL	#MT$V_BOT,R3		; GET LOWEST VALUED STATUS BIT

                          54     D4  00AF  5510 	CLRL	R4			; INIT TABLE INDEX

                          86     D5  00B1  5520 40$:	TSTL	(R6)+			; INCREMENT ARGLIST POINTER

            55            53     E1  00B3  5530 	BBC	R3,R5,50$		; BR IF STATUS NOT OCCURING

                          06         00B6       

            66       0080'CF44   D0  00B7  5540 	MOVL	W^STATUS[R4],(R6)	; SET STATUS NAME

                          54     D6  00BD  5550 50$:	INCL	R4			; INCREMENT TABLE INDEX

            53            14     F3  00BF  5560 	AOBLEQ	#MT$V_LOST,R3,40$	; CHECK NEXT BIT?

                          EE         00C2       

                                     00C3  5590 

                                     00C3  5592 ;

                                     00C3  5594 ; AND PARITY

                                     00C3  5596 ;

                          86     D5  00C3  5600 	TSTL	(R6)+			;

            66       00EB'CF     9E  00C5  5610 	MOVAB	W^ODD,(R6)		; ASSUME ODD PARITY

            55            03     E1  00CA  5620 	BBC	#MT$V_PARITY,R5,60$	; BR IF IT IS ODD

                          05         00CD       

            66       00E6'CF     9E  00CE  5630 	MOVAB	W^EVEN,(R6)		; ELSE SET TO EVEN

                                     00D3  5640 

       0000'CF            02     FB  00D3  6700 60$:	CALLS	#2,W^SHOW$PRINT_MSG

                                 04  00D8  6800 	RET

                                     00D9  6900 	.END

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (2)



$CLI.          = 00000000 R     04   CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

$CLI..         = 0000001C R     04   CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

AT$_MBA        = 00000000            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

AT$_UBA        = 00000001            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

BIT...         = 00000045            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

BITS             00000004 R     03   CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CHAN             00000000 R     03   CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CHAN_INFO        0000001C R     03   CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CHAR_LIST        0000004C R     03   CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_ABSACT     00000014            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_ERRACT     00000004            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_FLSACT     00000010            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_IMGFILED   00000010            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$A_IMGHDADR   0000000C            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$A_PROGXFER   00000004            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$A_PRSACT     00000010            CLI$M_ALLOCCUR = 00000001            DC$_CARD       = 00000041            

CLI$A_QDVALADR   00000008            CLI$M_BATCH    = 00000008            DC$_DISK       = 00000001            

CLI$A_QUALST     00000018            CLI$M_CONCATINP= 00000002            DC$_LP         = 00000043            

CLI$A_RQADDR     0000000C            CLI$M_DBGEXCP  = 00010000            DC$_MAILBOX    = 000000A0            

CLI$A_TRUACT     0000000C            CLI$M_DBGTRU   = 00000002            DC$_SCOM       = 00000020            

CLI$A_UTILSERV   00000008            CLI$M_DEBUG    = 00000001            DC$_TAPE       = 00000002            

CLI$B_BITNUM     00000001            CLI$M_DUMMY    = 00000002            DC$_TERM       = 00000042            

CLI$B_QDBLKSIZ   00000000            CLI$M_EXPNAM   = 00000004            DEFAULT          000000DE R     04   

CLI$B_QDCODE     00000001            CLI$M_INDIRECT = 00000010            DENSITY          00000043 R     04   

CLI$B_QDFLGS     00000002            CLI$M_KEYVALU  = 00000002            DEV$M_ALL      = 00800000            

CLI$B_QDSTAT     00000003            CLI$M_LASTVAL  = 00000001            DEV$M_AVL      = 00040000            

CLI$B_RQFLGS     00000002            CLI$M_MOREINP  = 00000004            DEV$M_CCL      = 00000002            

CLI$B_RQINDX     00000001            CLI$M_MOREVALS = 00000001            DEV$M_DIR      = 00000008            

CLI$B_RQSTAT     00000003            CLI$M_PARMDEF  = 00000008            DEV$M_DMT      = 00200000            

CLI$B_RQTYPE     00000000            CLI$M_PARMPRS  = 00000001            DEV$M_ELG      = 00400000            

CLI$C_QDBITS     00000014            CLI$M_PARMREQ  = 00000001            DEV$M_FOD      = 00004000            

CLI$C_QUALDEF    00000014            CLI$M_QDEXPA   = 00000004            DEV$M_FOR      = 01000000            

CLI$C_REQDESC    0000001C            CLI$M_QDUSRV   = 00000002            DEV$M_GEN      = 00020000            

CLI$C_WORKAREA   00000080            CLI$M_QUALEXP  = 00000002            DEV$M_IDV      = 04000000            

CLI$K_ASCIIVAL = 00000041            CLI$M_QUALTRU  = 00000001            DEV$M_MBX      = 00100000            

CLI$K_CLISERV  = 00000005            CLI$M_TRMVRBLV = 00000300            DEV$M_MNT      = 00080000            

CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            DEV$M_NET      = 00002000            

CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            DEV$M_ODV      = 08000000            

CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            DEV$M_RCK      = 40000000            

CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            DEV$M_REC      = 00000001            

CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            DEV$M_RND      = 10000000            

CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            DEV$M_RTM      = 20000000            

CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            DEV$M_SDI      = 00000010            

CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            DEV$M_SHR      = 00010000            

CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            DEV$M_SPL      = 00000040            

CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            DEV$M_SQD      = 00000020            

CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            DEV$M_SWL      = 02000000            

CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            DEV$M_TRM      = 00000004            

CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            DEV$M_WCK      = 80000000            

CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            DEV$V_ALL      = 00000017            

CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            DEV$V_AVL      = 00000012            

CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            DEV$V_CCL      = 00000001            

CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            DEV$V_DIR      = 00000003            

CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            DEV$V_DMT      = 00000015            

CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            DEV$V_ELG      = 00000016            

CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            DEV$V_FOD      = 0000000E            

CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            DEV$V_FOR      = 00000018            

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (2)



DEV$V_GEN      = 00000011            MT$M_DENSITY   = 00001F00            

DEV$V_IDV      = 0000001A            MT$M_EOF       = 00020000            

DEV$V_MBX      = 00000014            MT$M_EOT       = 00040000            

DEV$V_MNT      = 00000013            MT$M_FORMAT    = 000000F0            

DEV$V_NET      = 0000000D            MT$M_HWL       = 00080000            

DEV$V_ODV      = 0000001B            MT$M_LOST      = 00100000            

DEV$V_RCK      = 0000001E            MT$M_PARITY    = 00000008            

DEV$V_REC      = 00000000            MT$S_DENSITY   = 00000005            

DEV$V_RND      = 0000001C            MT$S_FORMAT    = 00000004            

DEV$V_RTM      = 0000001D            MT$V_BOT       = 00000010            

DEV$V_SDI      = 00000004            MT$V_DENSITY   = 00000008            

DEV$V_SHR      = 00000010            MT$V_EOF       = 00000011            

DEV$V_SPL      = 00000006            MT$V_EOT       = 00000012            

DEV$V_SQD      = 00000005            MT$V_FORMAT    = 00000004            

DEV$V_SWL      = 00000019            MT$V_HWL       = 00000013            

DEV$V_TRM      = 00000002            MT$V_LOST      = 00000014            

DEV$V_WCK      = 0000001F            MT$V_PARITY    = 00000003            

DEV_NAME         00000000 R     04   NULL_STR         00000078 R     03   

DT$_CR11       = 00000001            ODD              000000EB R     04   

DT$_LA11       = 00000002            SHOW             00000035 R     05   

DT$_LA180      = 00000003            SHOW$A_CLIWORK   ********   X   05   

DT$_LA36       = 00000020            SHOW$L_STATUS    ********   X   05   

DT$_LAX        = 00000020            SHOW$MAGTAPE     00000000 RG    05   

DT$_LP11       = 00000001            SHOW$PRINT_MSG   ********   X   05   

DT$_MBX        = 00000001            SHOW$_MAGT_L1    ********   X   05   

DT$_RK06       = 00000001            STATUS           00000080 R     04   

DT$_RK07       = 00000002            SYS$GETDEV       ********   X   05   

DT$_RM03       = 00000006            TYPE_NAME        0000001C R     04   

DT$_RP04       = 00000003            UTIL_DESC        00000008 R     03   

DT$_RP05       = 00000004            

DT$_RP06       = 00000005            

DT$_RP07       = 00000007            

DT$_RP07HT     = 00000008            

DT$_TE16       = 00000001            

DT$_TTYUNKN    = 00000000            

DT$_TU45       = 00000002            

DT$_TU77       = 00000003            

DT$_VT05       = 00000001            

DT$_VT52       = 00000040            

DT$_VT55       = 00000041            

DT$_VT5X       = 00000040            

DT$_XM_ALMA    = 00000009            

DT$_XM_ALMD    = 0000000A            

DT$_XM_ARDA    = 00000001            

DT$_XM_ARFA    = 00000002            

ERROR            0000002F R     05   

EVEN             000000E6 R     04   

FORMAT           00000054 R     04   

GBL...         = 00000000            

GET_CHAN_INFO    00000010 R     03   

MT$K_CORDMP11  = 0000000D            

MT$K_DEFAULT   = 00000000            

MT$K_NORMAL11  = 0000000C            

MT$K_NORMAL15  = 0000000E            

MT$K_NRZI_800  = 00000003            

MT$K_PE_1600   = 00000004            

MT$M_BOT       = 00010000            

SHOWMAGTAPE     - SHOW CHARACTERISTICS OF A MAGTAPE              21-AUG-1978 19:28:15   VAX-11 MACRO X0.3-11               Page   8

PROGRAM SECTION SYNOPSIS                                                                                                         (2)







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  

SHOW$RWDATA      00000079      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SHOW$RDATA       000000EF      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SHOW$CODE        000000D9      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

17008. BYTES LEFT IN FREE MEMORY POOL.

2136. BYTES OF RECLAIMED MEMORY.

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

32 MLB DIR RDS - 444 GETS TO DEFINE 19 MACROS. 34 INTER. FILE WRITES. 

