START.MAC;2/AU/-BF=START.VGN;1
-2,2
.IDENT	/M02.1/
-32
; RAY VAN TASSLE	13 Nov 1980
; DEFAULT OUTPUT IS SAME FILENAME AS INPUT (EXCEPT EXTENT)
; IF NO OUTPUT SPECIFIED (NO = IN THE COMMAND LINE), OUTPUT
; DEVICE IS TI:
-43
	.MCALL	GLUN$S,QIOW$S
STATSAV:	.WORD 0
-76
	QIOW$S	#IO.DET,#5,#5	; DETACH IT (IF IT IS)
-92,92
	MOVB	CSIBLK+C.STAT,STATSAV	; SOMEONE IS WIPING OUT CS.EQU
	MOVB	#CS.INP,C.TYPR(R0)
	BITB	#CS.EQU,STATSAV
	BNE	35$
	MOVb	#CS.OUT,C.TYPR(R0)	; NO OUTPUT SPECIFED
35$:	CSI$2	#CSIBLK,,#SWTBL
-98,98
	bcs	55$
; DEFAULT OUT FILENAME = INFILENAME
	MOV	TTLDMY+F.FNB+N.FNAM+0,LSTFIL+N.FNAM+0
	MOV	TTLDMY+F.FNB+N.FNAM+2,LSTFIL+N.FNAM+2
	MOV	TTLDMY+F.FNB+N.FNAM+4,LSTFIL+N.FNAM+4
; IF NO OUTPUT FILE, THE OUTPUT GOES TO TI
	MOV	#"SY,LSTFIL+N.DVNM
	BITB	#CS.EQU,STATSAV
	BNE	60$			; JMP IF BOTH ARE GIVEN
	MOV	#"TI,LSTFIL+N.DVNM	; USE TI
	CLR	CSIBLK+C.DSDS
	BR	85$
55$:
-105
85$:
-109,109
	JMP	10$
-114
	MOV	#ILMRG,STDLM	; "STANDARD LM" FROM TKB DEFINTION
	TST	DLMVAL
	BMI	103$

	MOV	DLMVAL,STDLM	; SET "STANDARD LM" AS SPECIFIED ON SWITCH
103$:	MOV	STDLM,LMARG	; SET CURRENT LM TO STANDARD LM
-139

; ATTACH THE OUTPUT DEVICE IF IT IS RECORD-ORIENTED
	GLUN$S	#5,#OUTPRM
	BIT	#DV.REC,OUTPRM+4
	BEQ	135$
	QIOW$S	#IO.ATT,#5,#5	; ATTACH IT
135$:
-142,142
	TSTEQ	NSLA120,5$
	MOVB	#'1,LPIMSG+2	; RESET THE LA120
	MOVB	#'6,CPIMSG+2
	CALL	SET120
5$:	CLR	NSLA120
	QIOW$S	#IO.DET,#5,#5	; DETACH IT (IF IT IS)
6$:
/