;***************************************************************************;
;                                                                           ;
;                                                                           ;
;                                  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