SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 	.TITLE	SETPRINT - SET CHARACTERISTICS OF A PRINTER

                                     0000   200 	.IDENT	/X01/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1977

                                     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 PRINTER

                                     0000  2800 ;

                                     0000  2900 ; AUTHOR:	R.HEINEN 21-NOV-1977

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

                                     0000  5000 	$LPDEF				; DEFINE PRINTER CHARACTERISTICS

                                     0000  5050 	$DCDEF				; DEVICE CLASS DEFINITIONS

                                     0000  5100 ;

                                     0000  5200 ; LOCAL STORAGE

                                     0000  5300 ;

                                 00000000  5400 	.PSECT	SET$RWDATA,NOEXE,LONG

                                     0000  5500  

                           00000000  0000  5600 CHAN:		.LONG	0		; PRINTER CHANNEL NUMBER

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   2

X01                                                                                                                              (1)



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

                  00000000 00000000  0008  5800 IOSTATUS:	.LONG	0,0		; IOSB FOR PRINTER GET CHARACTERISTICS

                           00000010  0010  5900 GET_CHAN_INFO:	.LONG	16

                           00000018' 0014  6000 		.LONG	CHAN_INFO-4

                           00000000  0018  6100 		.LONG	0

                                     001C  6200 CHAN_INFO:

                           0000001D  001C  6300 CLASS:		.BLKB	1

                           0000001E  001D  6400 LP_TYPE:	.BLKB	1

                           00000020  001E  6500 WIDTH:		.BLKW	1

                           00000024  0020  6600 LP_CHAR:	.BLKB	4

                           00000027  0024  6700 MASK:		.BLKB	3

                           00000028  0027  6800 PAGESIZ:	.BLKB	1

                           0000002C  0028  6900 ENABLE:		.BLKL	1

                                     002C  7000 ;

                                     002C  7100 QIO:	$QIO	FUNC=IO$_SETMODE,EFN=1,IOSB=IOSTATUS,P1=CHAN_INFO,P2=8

                                     0060  7200 LP_NAME:

                                     0060  7300 	$CLIREQDESC	RQTYPE=CLI$K_INPUT1	; GET THE INPUT OR PRINTER NAME

                                     007C  7400 CHAR_QUAL:

                                     007C  7500 	$CLIREQDESC	RQTYPE=CLI$K_GETQUAL,QUALST=QUALS

                                     0098  7600 NUM_VAL:

                                     0098  7700 	$CLIREQDESC	RQTYPE=CLI$K_NUMERVAL

                                     00B4  7800 QUALS:

                                     00B4  7900 	$CLIQUALDESC	QDCODE=CLI$K_STLP_LA11,TRUACT=LA11

                                     00CB  8000 	$CLIQUALDESC	QDCODE=CLI$K_STLP_LA18,TRUACT=LA18

                                     00E2  8100 	$CLIQUALDESC	QDCODE=CLI$K_STLP_LP11,TRUACT=LP11

                                     00F9  8200 	$CLIQUALDESC	QDCODE=CLI$K_STLP_UNKN,TRUACT=UNKN

                                     0110  8300 CR_QUAL:$CLIQUALDESC	QDCODE=CLI$K_STLP_CR,TRUACT=CR,QDFLGS=<CLI$V_QDEXPA>,-

                                     0110  8400 			FLSACT=NOCR

                                     0127  8500 FF_QUAL:$CLIQUALDESC	QDCODE=CLI$K_STLP_FF,TRUACT=FF,FLSACT=NOFF,-

                                     0127  8600 			QDFLGS=<CLI$V_QDEXPA>

                                     013E  8700 	$CLIQUALDESC	QDCODE=CLI$K_STLP_LOWE,TRUACT=LOWE,FLSACT=UPPE,-

                                     013E  8800 			QDFLGS=<CLI$V_QDEXPA>

                                     0155  8900 PAGE_QUAL:$CLIQUALDESC	QDCODE=CLI$K_STLP_PAGE,TRUACT=PAGE

                                     016C  9000 	$CLIQUALDESC	QDCODE=CLI$K_STLP_UPPE,TRUACT=UPPE,FLSACT=LOWE,-

                                     016C  9100 			QDFLGS=<CLI$V_QDEXPA>

                                     0183  9200 WIDT_QUAL:$CLIQUALDESC	QDCODE=CLI$K_STLP_WIDT,TRUACT=WIDT

                                     019A  9300 	$CLIQUALDESC	END_LIST

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   3

X01                                                                                                                              (2)



                                 00000000   100 	.PSECT	SET$CODE,NOWRT

                                     0000   200 ;++

                                     0000   300 ; SET$PRINT - SET PRINTER CHARACTERISTICS

                                     0000   400 ;

                                     0000   500 ; FUNCTIONAL DESCRIPTION:

                                     0000   600 ;

                                     0000   700 ; THIS ROUTINE SETS THE CHARACTERISTICS OF A SPECIFIED PRINTER.

                                     0000   800 ; IT IS ENTERED AS A RESULT OF A DISPATCH FROM THE SET 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 ;	SET$L_STATUS = STATUS OF THE OPERATION

                                     0000  1700 ;--

                                     0000  1800 SET$PRINT::				; SET PRINTER COMMAND

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

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

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

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

                                     0019  2300 20$:	$ASSIGN_S	(R6),W^QIO+8	; ASSIGN CHANNEL TO DEVICE

            26            50     E9  0028  2400 	BLBC	R0,ERROR		; IF LOW CLEAR THEN ERROR AND EXIT

                                     002B  2500 	$GETCHN_S	W^QIO+8,,W^GET_CHAN_INFO

            0D            50     E9  0041  2600 	BLBC	R0,ERROR		; IF LOW CLEAR THEN ERROR

         43 8F       001C'CF     91  0044  2610 	CMPB	W^CLASS,#DC$_LP		; IS DEVICE A PRINTER?

                          0B     13  004A  2620 	BEQL	SET_CHAR		; IF EQL YES

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

                                     0051  2700 ;

                                     0051  2800 ; ERROR IN GETTING CHARACTERISTICS

                                     0051  2900 ;

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

                                 04  0056  3100 	RET				; RETURN

                                     0057  3200 ;

                                     0057  3300 ; PROCESS DATA

                                     0057  3400 ;

                                     0057  3500 SET_CHAR:				; PROCESS DATA

                     0024'CF     7C  0057  3600 	CLRQ	W^MASK			; ZERO MASK AND ENABLES

       002B'CF            01     8E  005B  3700 	MNEGB	#1,W^ENABLE+3		; SET PAGE MAGIC

       0027'CF       0023'CF     90  0060  3800 	MOVB	W^CHAN_INFO+7,W^PAGESIZ	; SET UP OLD PAGE

       0038'CF       0000'8F     3C  0067  3900 	MOVZWL	#IO$_SETMODE,W^QIO+12	; ASSUME NO PRIVILEGE NEEDED

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

                                     0075  4100 	CALLBAK	W^CHAR_QUAL

            26       0000'CF     E9  0085  4200 	BLBC	W^SET$L_STATUS,100$

       0020'CF       0028'CF     CA  008A  4300 	BICL	W^ENABLE,W^CHAN_INFO+4

       0020'CF       0024'CF     C8  0091  4400 	BISL	W^MASK,W^CHAN_INFO+4

   00000000'9F       002C'CF     FA  0098  4500 	CALLG	W^QIO,@#SYS$QIOW	; SET THE MODE OR CHARACTERISTICS

       0000'CF            50     B0  00A1  4600 	MOVW	R0,W^SET$L_STATUS	; SAVE STATUS

            07            50     E9  00A6  4700 	BLBC	R0,100$			; IF LOW CLEAR THEN ERROR

       0000'CF       0008'CF     3C  00A9  4800 	MOVZWL	W^IOSTATUS,W^SET$L_STATUS; SAVE STATUS

                                     00B0  4900 100$:	$DASSGN_S	W^QIO+8		; DEASSIGN THE PRINTER

                                 04  00BC  5000 	RET				; RETURN

                                     00BD  5100 ;

                                     00BD  5200 ; ACTION ROUTINES

                                     00BD  5300 ;

                                     00BD  5400 	.ENABL	LSB

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   4

X01                                                                                                                              (2)



                                     00BD  5500 ;

                                     00BD  5600 ; ACTION ROUTINE FOR LP$M_MECHFORM

                                     00BD  5700 ;

                               0000  00BD  5800 FF:	.WORD	0

       0024'CF            02     A8  00BF  5900 	BISW	#LP$M_MECHFORM,W^MASK

                          02     11  00C4  6000 	BRB	10$

                               0000  00C6  6100 NOFF:	.WORD	0

       0028'CF            02     A8  00C8  6200 10$:	BISW	#LP$M_MECHFORM,W^ENABLE

                                 04  00CD  6300 	RET

                                     00CE  6400 	.DSABL	LSB

                                     00CE  6500 	.ENABL	LSB

                                     00CE  6600 ;

                                     00CE  6700 ; ACTION ROUTINE FOR LP$M_CR

                                     00CE  6800 ;

                               0000  00CE  6900 CR:	.WORD	0

       0024'CF            01     A8  00D0  7000 	BISW	#LP$M_CR,W^MASK

                          02     11  00D5  7100 	BRB	10$

                               0000  00D7  7200 NOCR:	.WORD	0

       0028'CF            01     A8  00D9  7300 10$:	BISW	#LP$M_CR,W^ENABLE

                                 04  00DE  7400 	RET

                                     00DF  7500 	.DSABL	LSB

                                     00DF  7600 	.ENABL	LSB

                                     00DF  7700 ;

                                     00DF  7800 ; ACTION ROUTINE FOR LP$M_LOWER

                                     00DF  7900 ;

                               0000  00DF  8000 LOWE:	.WORD	0

       0024'CF         80 8F     88  00E1  8100 	BISB	#LP$M_LOWER,W^MASK

                          02     11  00E7  8200 	BRB	10$

                               0000  00E9  8300 UPPE:	.WORD	0

       0028'CF         80 8F     88  00EB  8400 10$:	BISB	#LP$M_LOWER,W^ENABLE

                                 04  00F1  8500 	RET

                                     00F2  8600 	.DSABL	LSB

                                     00F2  8700 	.ENABL	LSB

                                     00F2  8800 ;

                                     00F2  8900 ; ACTION ROUTINE FOR PRINTER TYPES

                                     00F2  9000 ;

                               0000  00F2  9100 LA11:	.WORD	0

       001D'CF            02     90  00F4  9200 	MOVB	#LP$_LA11,W^LP_TYPE	; SET TYPE

                          18     11  00F9  9300 	BRB	10$

                               0000  00FB  9400 LP11:	.WORD	0

       001D'CF            01     90  00FD  9500 	MOVB	#LP$_LP11,W^LP_TYPE	; SET TYPE

                          0F     11  0102  9600 	BRB	10$

                               0000  0104  9700 LA18:	.WORD	0

       001D'CF            03     90  0106  9800 	MOVB	#LP$_LA180,W^LP_TYPE	; SET TYPE

                          06     11  010B  9900 	BRB	10$

                               0000  010D 10000 UNKN:	.WORD	0

                     001D'CF     94  010F 10100 	CLRB	W^LP_TYPE		; SET NO TYPE

       0038'CF       0000'8F     3C  0113 10200 10$:	MOVZWL	#IO$_SETCHAR,W^QIO+12	; SET PRIVILEGED REQUEST

                                 04  011A 10300 	RET				; AND RETURN

                                     011B 10400 	.DSABL	LSB

                                     011B 10500 BADPARAM:

       0000'CF       0000'8F     3C  011B 10600 	MOVZWL	#SS$_BADPARAM,W^SET$L_STATUS

                                 04  0122 10700 	RET

                                     0123 10800 ;

                                     0123 10900 ; ACTION ROUTINE FOR PAGE

                                     0123 11000 ;

                               0000  0123 11100 PAGE:	.WORD	0

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   5

X01                                                                                                                              (2)



                     0159'CF     B5  0125 11200 	TSTW	W^CLI$W_QDVALSIZ+PAGE_QUAL; VALUE PRESENT?

                          22     13  0129 11300 	BEQL	20$			; NO CHANGE IF EQL

                                     012B 11400 	CALLBAK	W^NUM_VAL,W^PAGE_QUAL	; GET THE VALUE

       00A4'CF   FFFFFF00 8F     D3  013B 11500 	BITL	#^X0FFFFFF00,W^CLI$L_RQVALU+NUM_VAL

                          D5     12  0144 11600 	BNEQ	BADPARAM

       0027'CF       00A4'CF     90  0146 11700 	MOVB	W^CLI$L_RQVALU+NUM_VAL,W^PAGESIZ; SET THE VALUE

                                 04  014D 11800 20$:	RET

                                     014E 11900 ;

                                     014E 12000 ; ACTION ROUTINE FOR WIDTH

                                     014E 12100 ;

                               0000  014E 12200 WIDT:	.WORD	0

                     0187'CF     B5  0150 12300 	TSTW	W^CLI$W_QDVALSIZ+WIDT_QUAL; VALUE PRESENT?

                          22     13  0154 12400 	BEQL	20$			; NO CHANGE IF EQL

                                     0156 12500 	CALLBAK	W^NUM_VAL,W^WIDT_QUAL	; GET THE VALUE

       00A4'CF   FFFF0000 8F     D3  0166 12600 	BITL	#^X0FFFF0000,W^CLI$L_RQVALU+NUM_VAL

                          AA     12  016F 12700 	BNEQ	BADPARAM

       001E'CF       00A4'CF     B0  0171 12800 	MOVW	W^CLI$L_RQVALU+NUM_VAL,W^WIDTH; SET THE VALUE

                                 04  0178 12900 20$:	RET

                                     0179 13000 	.END	

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (2)



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

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

$$$GBL         = 00000000            CLI$K_KEYWORD  = 00000042            CLI$K_STPR_PROT= 00000002            

$$ARGS         = 0000000C            CLI$K_NUMERVAL = 00000040            CLI$K_STQE_AFTE= 00000001            

$$T1           = 00000001            CLI$K_OUTPUT1  = 00000020            CLI$K_STQE_ENTR= 00000003            

$CLI.          = 00000183 R     03   CLI$K_OUTPUT2  = 00000021            CLI$K_STQE_FORM= 00000004            

$CLI..         = 0000019A R     03   CLI$K_OUTPUT3  = 00000022            CLI$K_STQE_HOLD= 00000005            

$QUALNUM$      = 0000000B            CLI$K_OUTPUT4  = 00000023            CLI$K_STQE_JOB_= 00000002            

AT$_MBA        = 00000000            CLI$K_OUTSPEC  = 00000002            CLI$K_STQE_LOWE= 00000006            

AT$_UBA        = 00000001            CLI$K_PARDONE  = 00000003            CLI$K_STQE_NAME= 00000007            

BADPARAM         0000011B R     04   CLI$K_QDBITS     00000014            CLI$K_STQE_PRIO= 00000008            

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

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

CHAN             00000000 R     03   CLI$K_SET_ACCO = 00000001            CLI$K_STRM_BUFF= 00000002            

CHAN_INFO        0000001C R     03   CLI$K_SET_CARD = 00000002            CLI$K_STRM_DISK= 00000003            

CHAR_QUAL        0000007C R     03   CLI$K_SET_CONT = 00000012            CLI$K_STRM_HASH= 00000006            

CLASS            0000001C 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            

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (2)



CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            DEV$V_RCK      = 0000001E            

CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            DEV$V_REC      = 00000000            

CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            DEV$V_RND      = 0000001C            

CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            DEV$V_RTM      = 0000001D            

CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            DEV$V_SDI      = 00000004            

CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            DEV$V_SHR      = 00000010            

CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            DEV$V_SPL      = 00000006            

CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            DEV$V_SQD      = 00000005            

CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            DEV$V_SWL      = 00000019            

CLI$M_ALLOCCUR = 00000001            CR               000000CE R     04   DEV$V_TRM      = 00000002            

CLI$M_BATCH    = 00000008            CR_QUAL          00000110 R     03   DEV$V_WCK      = 0000001F            

CLI$M_CONCATINP= 00000002            DC$_CARD       = 00000041            DT$_CR11       = 00000001            

CLI$M_DBGEXCP  = 00010000            DC$_DISK       = 00000001            DT$_LA11       = 00000002            

CLI$M_DBGTRU   = 00000002            DC$_LP         = 00000043            DT$_LA180      = 00000003            

CLI$M_DEBUG    = 00000001            DC$_MAILBOX    = 000000A0            DT$_LA36       = 00000020            

CLI$M_DUMMY    = 00000002            DC$_SCOM       = 00000020            DT$_LAX        = 00000020            

CLI$M_EXPNAM   = 00000004            DC$_TAPE       = 00000002            DT$_LP11       = 00000001            

CLI$M_INDIRECT = 00000010            DC$_TERM       = 00000042            DT$_MBX        = 00000001            

CLI$M_KEYVALU  = 00000002            DEV$M_ALL      = 00800000            DT$_RK06       = 00000001            

CLI$M_LASTVAL  = 00000001            DEV$M_AVL      = 00040000            DT$_RK07       = 00000002            

CLI$M_MOREINP  = 00000004            DEV$M_CCL      = 00000002            DT$_RM03       = 00000006            

CLI$M_MOREVALS = 00000001            DEV$M_DIR      = 00000008            DT$_RP04       = 00000003            

CLI$M_PARMDEF  = 00000008            DEV$M_DMT      = 00200000            DT$_RP05       = 00000004            

CLI$M_PARMPRS  = 00000001            DEV$M_ELG      = 00400000            DT$_RP06       = 00000005            

CLI$M_PARMREQ  = 00000001            DEV$M_FOD      = 00004000            DT$_RP07       = 00000007            

CLI$M_QDEXPA   = 00000004            DEV$M_FOR      = 01000000            DT$_RP07HT     = 00000008            

CLI$M_QDUSRV   = 00000002            DEV$M_GEN      = 00020000            DT$_TE16       = 00000001            

CLI$M_QUALEXP  = 00000002            DEV$M_IDV      = 04000000            DT$_TTYUNKN    = 00000000            

CLI$M_QUALTRU  = 00000001            DEV$M_MBX      = 00100000            DT$_TU45       = 00000002            

CLI$M_TRMVRBLV = 00000300            DEV$M_MNT      = 00080000            DT$_TU77       = 00000003            

CLI$M_VERIFY   = 00000004            DEV$M_NET      = 00002000            DT$_VT05       = 00000001            

CLI$M_VFYINP   = 00000020            DEV$M_ODV      = 08000000            DT$_VT52       = 00000040            

CLI$Q_QDVALDESC  00000004            DEV$M_RCK      = 40000000            DT$_VT55       = 00000041            

CLI$Q_RQDESC     00000008            DEV$M_REC      = 00000001            DT$_VT5X       = 00000040            

CLI$S_PRITYP   = 00000004            DEV$M_RND      = 10000000            DT$_XM_ALMA    = 00000009            

CLI$S_SUBTYP   = 00000004            DEV$M_RTM      = 20000000            DT$_XM_ALMD    = 0000000A            

CLI$S_TRMVRBLV = 00000002            DEV$M_SDI      = 00000010            DT$_XM_ARDA    = 00000001            

CLI$V_ABSADR   = 00000001            DEV$M_SHR      = 00010000            DT$_XM_ARFA    = 00000002            

CLI$V_ALLOCCUR = 00000000            DEV$M_SPL      = 00000040            ENABLE           00000028 R     03   

CLI$V_BATCH    = 00000003            DEV$M_SQD      = 00000020            ERROR            00000051 R     04   

CLI$V_CONCATINP= 00000001            DEV$M_SWL      = 02000000            FF               000000BD R     04   

CLI$V_DBGEXCP  = 00000010            DEV$M_TRM      = 00000004            FF_QUAL          00000127 R     03   

CLI$V_DBGTRU   = 00000001            DEV$M_WCK      = 80000000            GBL...         = 00000000            

CLI$V_DEBUG    = 00000000            DEV$V_ALL      = 00000017            GET_CHAN_INFO    00000010 R     03   

CLI$V_DUMMY    = 00000001            DEV$V_AVL      = 00000012            IO$_SETCHAR      ********   X   04   

CLI$V_EXPNAM   = 00000002            DEV$V_CCL      = 00000001            IO$_SETMODE      ********   X   03   

CLI$V_INDIRECT = 00000004            DEV$V_DIR      = 00000003            IOSTATUS         00000008 R     03   

CLI$V_KEYVALU  = 00000001            DEV$V_DMT      = 00000015            LA11             000000F2 R     04   

CLI$V_LASTVAL  = 00000000            DEV$V_ELG      = 00000016            LA18             00000104 R     04   

CLI$V_MOREINP  = 00000002            DEV$V_FOD      = 0000000E            LOWE             000000DF R     04   

CLI$V_MOREVALS = 00000000            DEV$V_FOR      = 00000018            LP$M_CR        = 00000001            

CLI$V_PARMDEF  = 00000003            DEV$V_GEN      = 00000011            LP$M_LOWER     = 00000080            

CLI$V_PARMPRS  = 00000000            DEV$V_IDV      = 0000001A            LP$M_MECHFORM  = 00000002            

CLI$V_PARMREQ  = 00000000            DEV$V_MBX      = 00000014            LP$M_PAGE_L    = FF000000            

CLI$V_PRITYP   = 00000004            DEV$V_MNT      = 00000013            LP$S_PAGE_L    = 00000008            

CLI$V_QDEXPA   = 00000002            DEV$V_NET      = 0000000D            LP$V_CR        = 00000000            

CLI$V_QDUSRV   = 00000001            DEV$V_ODV      = 0000001B            LP$V_LOWER     = 00000007            

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (2)



LP$V_MECHFORM  = 00000001            QUA_M_INTDEF   = 00000200            

LP$V_PAGE_L    = 00000018            QUA_M_KEYVAL   = 00004000            

LP$_LA11       = 00000002            QUA_M_LOCALKEY = 00000002            

LP$_LA180      = 00000003            QUA_M_NEG      = 00000040            

LP$_LP11       = 00000001            QUA_M_ONEVAL   = 00002000            

LP11             000000FB R     04   QUA_M_OUTPUT   = 00000800            

LP_CHAR          00000020 R     03   QUA_M_PARM     = 00000010            

LP_NAME          00000060 R     03   QUA_M_VAL      = 00000020            

LP_TYPE          0000001D R     03   QUA_M_VALREQ   = 00001000            

MASK             00000024 R     03   QUA_M_VERB     = 00000008            

NOCR             000000D7 R     04   QUA_S_MAXPARM  = 00000004            

NOFF             000000C6 R     04   QUA_S_MINPARM  = 00000004            

NUM_VAL          00000098 R     03   QUA_V_BATDEF   = 00000008            

PAGE             00000123 R     04   QUA_V_CHNGLIST = 00000000            

PAGESIZ          00000027 R     03   QUA_V_DEFTRUE  = 00000007            

PAGE_QUAL        00000155 R     03   QUA_V_FILE     = 00000002            

PRO_B_FLAGS      00000001            QUA_V_IMAGE    = 0000000A            

PRO_B_PROMPT     00000000            QUA_V_INTDEF   = 00000009            

PRO_K_LENGTH     00000002            QUA_V_KEYVAL   = 0000000E            

PRO_M_CONCAT   = 00000001            QUA_V_LOCALKEY = 00000001            

PRO_M_IMPCAT   = 00000002            QUA_V_MAXPARM  = 00000004            

PRO_M_LIST     = 00000004            QUA_V_MINPARM  = 00000000            

PRO_M_OPTION   = 00000008            QUA_V_NEG      = 00000006            

PRO_M_REQ      = 00000010            QUA_V_ONEVAL   = 0000000D            

PRO_M_STRING   = 00000020            QUA_V_OUTPUT   = 0000000B            

PRO_V_CONCAT   = 00000000            QUA_V_PARM     = 00000004            

PRO_V_IMPCAT   = 00000001            QUA_V_VAL      = 00000005            

PRO_V_LIST     = 00000002            QUA_V_VALREQ   = 0000000C            

PRO_V_OPTION   = 00000003            QUA_V_VERB     = 00000003            

PRO_V_REQ      = 00000004            QUA_W_FLAGS      00000003            

PRO_V_STRING   = 00000005            QUA_W_PROMPT     00000009            

QIO              0000002C R     03   QUA_W_QUALIST    00000006            

QIO$_ASTADR    = 00000014            SET$A_CLIWORK    ********   X   04   

QIO$_ASTPRM    = 00000018            SET$L_STATUS     ********   X   04   

QIO$_CHAN      = 00000008            SET$PRINT        00000000 RG    04   

QIO$_EFN       = 00000004            SET_CHAR         00000057 R     04   

QIO$_FUNC      = 0000000C            SS$_BADPARAM     ********   X   04   

QIO$_IOSB      = 00000010            SS$_IVDEVNAM     ********   X   04   

QIO$_NARGS     = 0000000C            SS$_NORMAL       ********   X   04   

QIO$_P1        = 0000001C            SYS$ASSIGN       ********   X   04   

QIO$_P2        = 00000020            SYS$DASSGN       ********   X   04   

QIO$_P3        = 00000024            SYS$GETCHN       ********   X   04   

QIO$_P4        = 00000028            SYS$QIOW         ********   X   04   

QIO$_P5        = 0000002C            UNKN             0000010D R     04   

QIO$_P6        = 00000030            UPPE             000000E9 R     04   

QUALS            000000B4 R     03   WIDT             0000014E R     04   

QUA_B_DEFVAL     00000002            WIDTH            0000001E R     03   

QUA_B_IMAGE      00000005            WIDT_QUAL        00000183 R     03   

QUA_B_INDEX      00000001            

QUA_B_OFFSET     00000000            

QUA_B_PARMCNT    00000008            

QUA_G_CHNGLST    00000006            

QUA_M_BATDEF   = 00000100            

QUA_M_CHNGLIST = 00000001            

QUA_M_DEFTRUE  = 00000080            

QUA_M_FILE     = 00000004            

QUA_M_IMAGE    = 00000400            

SETPRINT        - SET CHARACTERISTICS OF A PRINTER               21-AUG-1978 19:07:26   VAX-11 MACRO X0.3-11               Page   9

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  

SET$RWDATA       0000019B      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

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





THERE WERE NO ERRORS OR WARNINGS.

7454. BYTES LEFT IN FREE MEMORY POOL.

3618. BYTES OF RECLAIMED MEMORY.

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

59 MLB DIR RDS - 799 GETS TO DEFINE 35 MACROS. 66 INTER. FILE WRITES. 

