.TITLE	CRUDFT
	.IDENT	/X01.00/
;
;  Author:	Gilbert J. DeLeeuw
;  Date:	July 9, 1985
;  Name:	CRUDFT - CRU Defaults
;  Function:	Set defaults for switches
;
;
CRUDFT::
	MOV	#"LI,CCTYP		;DEFAULT TO LIST
	MOV	#"ST,CCTYP+2		;   CARRIAGE CONTROL
	CLR	CMPRM			;COMPRESSION PARAMETER
	MOV	#'V,FOCH		;DEFAULT RECORD TYPE INDICATOR
	MOVB	#' ,PDCH		;DEFAULT PADD CHARACTER
	MOV	#80.,PDSZ		;DEFAULT PADD LENGTH
	CLR	PGST			;START PAGE
	CLR	PGND			;END PAGE
	CLR	PAGE			;PAGE NUMBER
	MOV	#66.,PSIZ		;PAGE SIZE
	CLR	LINE			;LINE NUMBER
	MOV	#"LP,SPDV		;DEFAULT SPOOL DEVICE
	CLR	SPUN			;DEFAULT UNIT
	CLR	SPFO			;DEFAULT FORM NUMBER
	MOV	#1,SPCO			;DEFAULT NUMBER OF COPIES
	MOV	#132.,TRSZ		;TRUNCATE LINE SIZE
;
; INITIALIZE USER MASK WORD
	CLR	MKWD			;USER MASK WORD
	RTS	PC
	.END