.TITLE SETCSI	SETUP FOR COPY
;
; ROUTINE GETS COMMMAND STRING, SETS UP FILES FOR I/O.
; COMMAND STRING IS OBTAINED USING .CSIGEN
;
; RETURNS C BIT SET IF ERROR
;
;	The following programs are used in the RT-11 User and RT-11
;	Programmer self paced instruction courses for RT-11 V4.They are also
;	similar to programs used in the Programming with RT-11 series for
;	RT-11 V5.0 or later. The name of the files are as specified in the
;	self paced course.
;
;	The code is supplied as a service as Digital does not supply these
;	on diskette.
;	Any copyright is the property of Digital Equipment Corporartion
;
;
	.MCALL	.CSIGEN,.PRINT
;
DEFTYP:	.WORD	0,0,0,0
SPSAVE:	.WORD
LIMITS:	.LIMIT			;GENERATES TWO WORDS, SECOND
				;IS FIRST FREE ADDRESS ABOVE PROGRAM
PRMPT:	.ASCIZ	/SPECIFY OUTFILE=INFILE/
CSIERR:	.ASCIZ	/ERROR ON CSI CALL/
	.EVEN
;
SETUP::	MOV	SP,SPSAVE	;SAVE STACK POINTER FOR RESTORATION
				;AFTER CSI CALL
	.PRINT	#PRMPT		;PROMPT
	.CSIGEN	LIMITS+2,#DEFTYP,#0
	MOV	SPSAVE,SP	;IGNORE ANY OPTIONS
	BCC	1$		;(C BIT IS STILL SET IF .CSIGEN SET IT)
	.PRINT	#CSIERR		;REPORT ANY ERROR FROM CSI
	SEC			;AND RETURN C-BIT SET
1$:	RETURN
	.END