; E.LIT- An accessory to AMUS EMAIL for Alpha Base systems
;*************************************************************************
;** **
;** E . L I T **
;** **
;** BY **
;** **
;** Michael Spalding **
;** Northview Laboratories, Inc. **
;** Copyright 1986 (C) **
;** All Rights Reserved **
;** Donated to AMUS 16-Jan-87 **
;** **
;*************************************************************************
;** **
;** Permission is granted to any individual or institution to copy or **
;** use this software and the routines described in it, except for **
;** commercial purposes. This software must not be sold to any person **
;** or institution. **
;** **
;*************************************************************************
; This program is useful for systems running Alpha Base and the AMUS
; EMAIL program. It simply executes the MALINI program, then the
; Alpha Base program STRMEN.
;
; Usage: E {MENU #}
;
; MENU # is simply the starting menu for this user. If no menu # is
; specified, the Alpha Base Main Menu (1010) is the default. To use
; this program, place the command E {MENU #} in field 10 of the Alpha
; Base User File ("Menu # or .CMD"). The user will automatically be
; logged into the EMAIL system when they log on through the Alpha Base
; LOGIN program. Be sure to have the AB compatable version of MAILON
; (v 1.1, 362-154-561-663) and EMAIL (v 1.1, 361-734-227-766) in your
; SYS account. This program is called E since a short name was needed
; to allow it to fit in the 6 character field of the user file. You
; should place this program in SYSTEM memory for faster execution. You
; will also need to place a MAILOF command everywhere you have a LOGIN
; command so the user is logged off the EMAIL system when they log off.
; Edit History:
;
; Initials Name Company Name Phone
; ======== ====================== ==================== ============
; MJS Michael Spalding Northview Labs 312-564-8181
;
; Version Date Initials Description
; ======= =========== ======== ==============================================
;
; 1.0 16-Jan-87 MJS Original version
;
START: PHDR -2,0,PH$REE!PH$REU
GETIMP IMPSIZ,A3
LEA A1,MENUNO(A3) ; index menu # buffer
BYP ; skip blanks
TRM ; end of line
BNE 10$ ; no- go get menu #
LEA A2,DFAULT ; index default menu #
10$: MOVB (A2)+,(A1)+ ; store next chr of menu #
TRM ; terminator?
BNE 10$ ; no- get next char
CLRB @A1 ; end with a null
PUSH A3 ; just in case
LEA A2,MAILON ; index MAILON command string
AMOS ; execute it
POP A3 ; restore
LEA A1,STRMEN ; index STRMEN command string
LEA A2,CMDBUF(A3) ; index command buffer
20$: MOVB (A1)+,(A2)+ ; store next byte
TSTB @A1 ; end of string?
BNE 20$ ; no- get more
LEA A1,MENUNO(A3) ; index menu #
30$: MOVB (A1)+,(A2)+ ; get next byte
TSTB @A1 ; null?
BNE 30$ ; nope- get more
MOVB #0D,(A2)+ ; append CR LF null
MOVB #0A,(A2)+
CLRB @A2
LEA A2,CMDBUF(A3) ; reindex command buffer
AMOS ; execute it
EXIT
DFAULT: ASCII \1010\ ; default menu # (change if desired)
BYTE 0D,0A,0
