STDEN	X0002 - SET TAPE DENSIT	MACRO M1110  21-AUG-78 20:56  PAGE 3





      1	000000					$BEGIN	STDEN,0002,<SET TAPE DENSITY>

						.TITLE	STDEN	X0002 - SET TAPE DENSITY

						.IDENT	"X0002"

      2

      3					;

      4					; COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION,

      5					; MAYNARD, MASSACHUSETTS

      6					;

      7					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A

      8					; SINGLE  COMPUTER  SYSTEM AND MAY BE COPIED ONLY WITH THE IN-

      9					; CLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE,  OR

     10					; ANY  OTHER  COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE

     11					; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR  USE  ON  SUCH

     12					; SYSTEM  AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE

     13					; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL  TIMES  REMAIN

     14					; IN DIGITAL.

     15					;

     16					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITH-

     17					; OUT  NOTICE  AND  SHOULD NOT BE CONSTRUED AS A COMMITMENT BY

     18					; DIGITAL EQUIPMENT CORPORATION.

     19					;

     20					; DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY  FOR

     21					; THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS

     22					; NOT SUPPLIED BY DIGITAL.

     23					;

     24					; ANDREW C. GOLDSTEIN  14-JUL-76  2:58

     25

     26

     27						.MCALL	QIO$C

STDEN	X0002 - SET TAPE DENSIT	MACRO M1110  21-AUG-78 20:56  PAGE 4





     29					;

     30					; MAGTAPE CHARACTERISTICS BITS

     31					;

     32		000004 			CH.DMP = 4

     33		004000 			CH.160 = 4000

     34

     35					;+

     36					;

     37					; *** - $STO08	SET OUTPUT TAPE DENSITY TO 800 BPI

     38					;

     39					; *** - $STO16	SET OUTPUT TAPE DENSITY TO 1600 BPI

     40					;

     41					; *** - $STI08	SET INPUT TAPE DENSITY TO 800 BPI

     42					;

     43					; *** - $STI16	SET INPUT TAPE DENSITY TO 1600 BPI

     44					;

     45					; THESE ROUTINES SET THE TAPE UNIT DESIGNATED TO THE DESIRED

     46					; DENSITY.

     47					;

     48					; INPUTS:

     49					;

     50					;	INPUT OR OUTPUT LUN ASSIGNED TO DEVICE

     51					;

     52					; OUTPUTS:

     53					;

     54					;	DENSITY SET

     55					;	ALL REGISTERS PRSERVED

     56					;

     57					;-

     58

     59	000000				$STO08::

     60	000000					QIO$C	IO.STC,OUTLUN,EFN,,,,<CH.DMP>

     61	000006					RETURN

     62

     63	000010				$STO16::

     64	000010					QIO$C	IO.STC,OUTLUN,EFN,,,,<CH.160!CH.DMP>

     65	000016					RETURN

     66

     67	000020				$STI08::

     68	000020					QIO$C	IO.STC,INLUN,EFN,,,,<CH.DMP>

     69	000026					RETURN

     70

     71	000030				$STI16::

     72	000030					QIO$C	IO.STC,INLUN,EFN,,,,<CH.160!CH.DMP>

     73	000036					RETURN

     74

     75

     76

     77		000001 				.END

STDEN	X0002 - SET TAPE DENSIT	MACRO M1110  21-AUG-78 20:56  PAGE 4-1

SYMBOL TABLE



CH.DMP= 000004   	OUTLUN= ****** GX	Q.IOPR= 000007   	$L$   = 000000   	$SUPMC= 000043

CH.160= 004000   	Q.IOAE= 000012   	Q.IOSB= 000010   	$R    = 177777   	$T    = 000000

EFN   = ****** GX	Q.IOEF= 000006   	$DIDDO= 000000   	$STI08  000020RG 	$$$   = 000110R     002

IIII  = 177777   	Q.IOFN= 000002   	$EF$  = 000000   	$STI16  000030RG 	$$$ARG= 000001

INLUN = ****** GX	Q.IOLU= 000004   	$E$   = 000001   	$STO08  000000RG 	$$$OST= 000014

IO.STC= ****** GX	Q.IOPL= 000014   	$L    = 000000   	$STO16  000010RG



. ABS.	000000	   000

      	000040	   001

$DPB$$	000140	   002

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  11558 WORDS  ( 46 PAGES)

DYNAMIC MEMORY:  13332 WORDS  ( 51 PAGES)

ELAPSED TIME:  00:00:23

EXE$:STDEN,LIS$:STDEN/-SP=SRC$:SMAC/PA:1,DSCPRE,STDEN

