;***************************************************************************;
;									    ;
;									    ;
;				   SECURE				    ;
;			   Modem Security Program			    ;
;									    ;
;									    ;
;***************************************************************************;
;1.0 02-Nov-83 DFP written by D. Pallmann.
;
; File makes external references to MAC:SYSLIB.LIB.  
; After assembly, enter this command: .LNKLIT file
;

	VMAJOR=1

	EXTERN	$ODTIM
	ASMMSG	"Link after assembly"

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

	LF=12
	CR=15

	.OFINI
	.OFDEF	FILE,D.DDB
	.OFSIZ	IMPSIZ

START:	PHDR	-2,0,PH$REE!PH$REU	; program header
	GETIMP	IMPSIZ,A5		; allocate impure area
	JOBIDX	A0
	MOV	JOBTRM(A0),A1
	ORW	#T$DAT!T$ECS,T.STS(A1)

RESET:	LEA	A0,PASS

LOOP:	KBD
	UCS
	CMPB	D1,(A0)+
	BNE	RESET
	TSTB	@A0
	BNE	LOOP
	TYPECR	Welcome to LMS

JOBACT:	JOBIDX	A0
	MOVW	#402,JOBUSR(A0)		; log into [1,2]
	LEA	A2,LOGFIL
	FSPEC	FILE(A5),LOG
	INIT	FILE(A5)
	LOOKUP	FILE(A5)
	BEQ	10$
	OPENO	FILE(A5)
	BR	20$
10$:	OPENA	FILE(A5)
20$:	CLR	D3
	CLR	D4
	LEA	A0,TEXT
30$:	MOVB	(A0)+,D1
	BEQ	40$
	FILOTB	FILE(A5)
	BR	30$
40$:	LEA	A2,FILE(A5)
	MOV	#^B<1000100011110110>,D5
	CALL	$ODTIM
	MOVB	#CR,D1
	FILOTB	FILE(A5)
	MOVB	#LF,D1
	FILOTB	FILE(A5)
	CLOSE	FILE(A5)

LOGOUT:	JOBIDX	A0
	MOVW	#[DSK],JOBDEV(A0)
	CLRW	JOBDRV(A0)
	CLRW	JOBUSR(A0)

EXIT:	EXIT

PASS:	ASCIZ	/SPACE SHUTTLE/		; put password here
LOGFIL:	ASCIZ	/DSK0:MODEM.LOG[1,2]/
TEXT:	ASCIZ	/Modem access /
	EVEN

	END

.