;***************************************************************************;
;									    ;
;				     IPL				    ;
;      execute command string after command file processing completed	    ;
;									    ;
;			  Author: David F. Pallmann			    ;
;	     Copyright (C) 1984 by LMS Technical Services, Inc.		    ;
;									    ;
;***************************************************************************;

OBJNAM	IPL.LIT

VMAJOR=1

;edit history
VEDIT=100.	;31-Dec-83 DFP creation.
VEDIT=101.	;24-Jan-84 DFP make display nicer.

;universals
SEARCH	SYS
SEARCH	SYSSYM
SEARCH	TRM

;ASCII chars
LF=12

START:	PHDR	-2,0,PH$REE!PH$REU	;program header
	MOV	JOBCUR,A6
	MOV	JOBTRM(A6),A5
	CLR	T.ICC(A5)		;clear input buffer		101
 	BYP				;bypass leading spaces
	LIN				;end of line?
	BNE	GETCHR			; no
	MOV	JOBCUR,A0
	MOVW	#C.SIL,JOBCMS(A0)	;				101
	MOVW	#<<1_8.>+1>,JOBUSR(A0)
	LEA	A2,DEFALT

GETCHR:	CTRLC	EXIT
	MOVB	(A2)+,D1
	CMPB	D1,#LF
	BEQ	10$
	TRMICP
	BR	GETCHR
10$:	CLRW	JOBCMS(A0)		;				101

EXIT:	EXIT

DEFALT:	ASCII	/LOGIN/			;				101
	BYTE	15,12,0
	EVEN

	END