Google
 

Trailing-Edge - PDP-10 Archives - BB-KL11K-BM_1990 - t20src/msunv.mac
There are 14 other files named msunv.mac in the archive. Click here to see a list.
;This software is furnished under a license and may only be used
;  or copied in accordance with the terms of such license.
;
;Copyright (C) 1979,1980,1981,1982 by Digital Equipment Corporation
;	       1983,1984,1985,1986    Maynard, Massachusetts, USA


	UNIVERSAL MSUNV - Universal file for MS

	.DIRECTIVE FLBLST
	SALL


;MACRO TO DO COPYRIGHT STATEMENT IN .REL FILES

DEFINE CPYRYT,<
	LOC	0
	ASCIZ /
COPYRIGHT (C) BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 1986
ALL RIGHTS RESERVED.
/
	RELOC>



DEFINE MSINIT,<

   TOPS10<
	IFNDEF .GTLPN,<.GTLPN==-10>	; Original logged-in PPN
	TWOSEG
	RELOC 400000
   >;End TOPS10

   TOPS20<
	.PSECT .HIGH.

BY2PAG==5000			; [JCR]Bytes to a page
WD2PAG==1000

CTCCHN==0			; ^C ON CHAN 0
TMRCHN==5			; TIMER ON CHAN 5

   >

   TOPS10<
BY2PAG==1200			; Bytes to a "page" (TOPS10 disk block)
WD2PAG==200			; Words to a "page" (TOPS10 disk block)
NQBFSZ==200			; Words in disk buffer

USRB0.==777777,,757760		;[3109] Define username break mask
USRB1.==747544,,1760		;[3109]
USRB2.==400000,,740		;[3109]
USRB3.==400000,,760		;[3109]
   >;End TOPS10

WRDPAG==1000			; [JCR]Words to a page
BY2WRD==5			; [JCR]Bytes to a word

TAKPTN==3*20			; Length of take IFN stack (FOB size, addr, IFN)


; AC's

O=0				; CAUTION -- Clobbered by all GLXLIB stuff!!
A=1				; Temp and JSYS
B=2				; Ditto
C=3				; Ditto
D=4				; Ditto
E=5				; Temp & local to routine
T=6				; Ditto
U=7				; Ditto
V=10				; Ditto - frequently is a character pointer
W=11				; Ditto
L=12				; Byte pointer to list of message numbers
M=13				; Current message if any (message number)
MX=M				; M, when pointing to current msg block
F=14				; Flags
X=15				; Often horizontal cursor position
CX=16				; Used by macros
P=17

IFN <TF>,<PRINTX ?WARNING -- GLXLIB AC conventions have changed - TF>
IFN <A-S1>,<PRINTX ?WARNING -- GLXLIB AC conventions have changed - S1>
IFN <B-S2>,<PRINTX ?WARNING -- GLXLIB AC conventions have changed - S2>

>;End DEFINE MSINIT
 SUBTTL Global symbol definitions

DEFINE QEXT (VAR),<
	IF2<
	IRP VAR,<
	IFDEF VAR,<INTERNAL VAR>
	IFNDEF VAR,<EXTERNAL VAR>
	>
	>
>

DEFINE QEXTN (VAR),<
	IF2<
	IRP VAR,<
	IFNDEF VAR,<EXTERNAL VAR>
	>
	>
>

;Keep these alphabetical

DEFINE GLOBS,<			;; Define global storage and equates
TOPS10<	QEXT <APPBLK> >
	QEXT <CLZTXT,CNCLHD>
;**;[3074][3075] Add EMXGJB in global list	MDR	14-AUG-86
TOPS20<	QEXT <EDFORK,EDTGJB,EMXGJB,EV,EXECFK> >
	QEXT <RESMSQ,SAVMSQ,MSGQLN>
	QEXT <FILCOL>
	QEXT <HDRPAG,HSTHLP>
	QEXT <KWDTBL>
	QEXT <LASTM,LCNT,LHOSTN,LINEW>
	QEXT <LSTCHR,LSTMSG>
	QEXT <MSGIDX,MSGJFN,MSGSEQ,MYDIR,MYDIRS>
	QEXT <MYHDEC,MYHNAM>
	QEXT <NXTMSG,OBPTR,OHSN,OHSPTR,OUTIFN>
	QEXT <REPLIN>
TOPS20<	QEXT <SAVMOD> >
TOPS10<	QEXT <SAVPSZ> >
	QEXT <SVMIFN>
	QEXT <TAKPTR,TCPAG,TOPTRS,TRAILR>
TOPS10<	QEXT <TTYUDX> >
	QEXT <TXTCNT,TXTFPG,TXTMS2,TXTPTR,TXTTOT>
	QEXT <UPDPTR,UPDX>
	QEXT <VERSN.>
>

DEFINE GLOBRS,<			;; Define global routines
	QEXT <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FNDSB1,FNDTO0,FNDTO1>
TOPS20<	QEXT <GETTYM> >
	QEXT <GETUNM>
	QEXTN <KBFTOR>
	QEXT <MOVMID,MOVOPT,MOVSB2,MOVTO,MOVCC>
	QEXT <MOVSUB>
	QEXT <NXTNEW,NXTSEQ>
	QEXT <PRSMS0,PRSMSG,PRTSEQ,PRTSQS>
	QEXTN <R,RSKP>
	QEXT <RDTEXT,RELSEQ>
	QEXT <SPCCHK>
TOPS20<	QEXT <SETTYM> >
	QEXT <STQDL2,STRBUF>
	QEXT <TRANSH>
	QEXT <YESNO>
>
 SUBTTL Storage allocation macros

;Since MACRO and LINK under TOPS10 don't get PSECTs right, klugery is required.

DEFINE IMPUR0,<
   TOPS20<
	.ENDPS
	.PSECT .LOW.
   >;End TOPS20
   TOPS10<
	IFGE .-400000,<RELOC>
   >;End TOPS10
>

DEFINE PURE,<
   TOPS20<
	.ENDPS
	.PSECT .HIGH.
   >;End TOPS20
   TOPS10<
	IFL .-400000,<RELOC>
   >;End TOPS10
>

DEFINE DEFPAG (ADDR,LENGTH) <
   TOPS20<
	.PSECT DATAP
   >
   TOPS10<
	IMPUR0
   >
ADDR:	IFIDN <LENGTH>,<>,<BLOCK 1000>
	IFDIF <LENGTH>,<>,<BLOCK 1000*LENGTH>
   TOPS20<
	TOPPAG==.
	.ENDPS DATAP
   >
   TOPS10<
	PURE
   >
>
OPDEF UTYPE [2B8]
OPDEF UETYPE [3B8]
OPDEF UERR [4B8]
OPDEF CALL [PUSHJ 17,]
OPDEF CALLRET [JRST]
OPDEF RET [POPJ 17,]

DEFINE RETSKP <JRST RSKP>

NPDL==2000			; Size of PDL

F%F1==1B0			; Temporary local flags
F%F2==1B1			;  ..
F%F3==1B2			;  ..
F%AT==1B3			; @ seen in address
F%CC==1B4			; In cc command
F%CMA==1B5			; Type comma except before 1st field
F%LCL==1B6			; Local mail seen
F%ESND==1B7			; EMACS said "send"
F%RSCN==1B8			; Exec level command seen
F%LOGO==1B9			; LOGOUT-ON-EXIT command seen
F%CTLC==1B10			; Control-C seen during expunge
F%RPIN==1B11			; Include me in replies
F%CONC==1B12			; Concise mode
F%RPAL==1B13			; Reply to all (0 = sender only)
F%VBTY==1B14			; Verbose-type (all hdrs) flag
F%NSUM==1B15			; Don't type initial summary line
F%CEOF==1B16			; Lit by caller of RFLDE to force error return
				;  instead of invisible unwinding
F%MX==1B17			; MX queued up some mail for us
;F%NIPC==1B17			; New IPCF mailer exists - OBSOLETE

F%FDIR==1B35			; Force directory lookup (no RCUSR outside <>)
F%REDI==1B34			; REDISTRIBUTE command in progress
F%ARPA==1B33			; ARPA net present
F%MOD== 1B32			; Reading system MAIL.TXT
F%AMOD==1B31			; Auto MOD
F%DECN==1B30			; DECnet present
F%QDEC==1B29			; DECNET mail has been queued
F%QARP==1B28			; ARPANET mail has been queued
F%QXML==1B27			; XMAILR mail has been queued
F%XMLR==1B26			; System has XMAILR/HOSTS2 support
F%XMTO==1B25			; Flag for MOVTO/MOVCC to do XMAILR-style lists
F%HLPT==1B24			; Preface LPT listings with headers of msgs
F%PRSN==1B23			; Show personal name only in headers
F%DNNM==1B22			; Use DECNET node name instead of ARPANET
F%BREF==1B21			; Brief address-lists (don't display elements)
F%SUFX==1B20			; Suffix will be needed at end of this expansion
F%XPIP==1B19			; Expunge in progress
F%JSYS==1B18			; Next call to TXTOUT should do SOUT, not TSOUT
F%ANFX==F%JSYS			; ANF10 net present (precludes JSYSes)
F%UUO==F%XMLR			; Use OUTPUT UUO instead of TSOUT

;Flags2 word bits

F2%NDC==1B0			; set no directory-lookup-confirmation
F2%NSV==1B1			; temporarily suppress save-outgoing-messages
F2%NSQ==1B2			; no sequence message flag
 SUBTTL Message block (MSGxxx) definitions

	PHASE 0			; Define msg block offsets
MSGALL:!BLOCK 1			; Starting byte of message
MSGALN:!BLOCK 1			; Size of whole message
MSGBOD:!BLOCK 1			; Starting byte of message body
MSGBON:!BLOCK 1			; Size of message body
MSGHDN:!BLOCK 1			; Size of header area
MSGDAT:!BLOCK 1			; Date of message
MSGSND:!BLOCK 1			; Starting byte of sender field
MSGSNN:!BLOCK 1			; Size of sender field
MSGFRM:!BLOCK 1			; Starting byte of from field
MSGFRN:!BLOCK 1			; Size of from field
MSGTO:!	BLOCK 1			; Starting byte of to field
MSGTON:!BLOCK 1			; Size of first line of to field
MSGTOK:!BLOCK 1			; Size of entire to field
MSGCC:!	BLOCK 1
MSGCCN:!BLOCK 1
MSGSUB:!BLOCK 1			; Starting byte of subject
MSGSUN:!BLOCK 1			; Size of subject
MSGMID:!BLOCK 1			; Starting byte of message-ID
MSGMIN:!BLOCK 1			; Size of message-ID
MSGREF:!BLOCK 1			; Starting byte of Reference
MSGRFN:!BLOCK 1			; Size of reference
MSGRRR:!BLOCK 1			; Starting byte of return receipt field
MSGRRN:!BLOCK 1			; Size of same
MSGBTS:!BLOCK 1			; Msg bits 0-5 local only
				;	   6-17 file copy
				;	   18-35 dynamic
MSGNUM:!BLOCK 1			; Message number
MSGIDN:!			; Size of a message block
	DEPHASE

M%SEEN==1			; Message has been seen
M%DELE==2			; Message is deleted
M%ATTN==4			; Message wants attention
M%RPLY==10			; Message has been replied to
M%RSNT==4000			; Return receipt has been sent

M%VALI==1B0			; Local bit -- msg info is valid
M%TEMP==1B1			; Temporary marker bit
;Random parameters

MS%ISA==^D5			; Number of times to try again when
				; invalid simul. access occurs (in sec)
ADRWTH==^D57			; Maximum line width for address lists
NTCPAG==10			; Number of pages for To/CC lists
NTCENT==<NTCPAG*1000>/2		; Number of entries per To or CC list
NTRAIL==^D13			; Length of trailer (MUST MATCH definition
				;  of TRAILR in MS.MAC!)
NQID==12345			; ENQ ID magic number for expunge interlock
APPQID==23456			; ENQ ID magic number for append interlock
CJFNLN==20			; Length of COMND JSYS's GTJFN block
MAXTRY==^D25			; Number of tries minus 5 to get MX's PID

;Random bit definitions

RWJFNO==1B0			; The READ/WRITE file is open

;Random macros

DEFINE BP2CHR,<			;; Byte pointer to character pointer
	LDB C,[POINT 6,A,5]
	MOVEI V,1(A)
	IMULI V,5
	IDIVI C,7
	SUBI V,(C)
>

DEFINE CHR2BP,<			;; Character pointer to byte pointer
	MOVE A,V
	ADJBP A,[POINT 7,0]
>

;MACRO TO CALL GTMIND ( GET MESSAGE BLOCK POINTER)

DEFINE GTMBL (REGS,REGD) <
	IF2 <IFNDEF GTMIND, <EXTERNAL GTMIND>>
	PUSH P,F		;SAVE FLAGS
	JSP F,GTMIND		;CALL ROUTINE
	REGS,,REGD
	POP P,F			;RESTORE FLAGS
>
;Flags in command dispatch word

C%GETF==1B0			; Need to have MAIL file for this

;Node block (N-block).  This is the fundamental data structure formed
; from the various node tables.  The RH of each HOSTAB entry points
; to one of these.

	PHASE 0

N.SIZE:!BLOCK 1			; Size, in words, of this block
N.FLGS:!BLOCK 1			; Flag bits
   NT%DCN==1B35			; DECnet host
   NT%ARP==1B34			; ARPAnet host
   NT%ANF==1B33			; ANF10 hot
   NT%LCL==1B32			; this host
   NT%DON==1B31			; mail queued for this host
   NT%SYN==1B30			; This name is a synonym for some other name
   NT%NXL==1B29			; Don't translate this name in message text
   NT%KWL==1B28			; Kawell mail host (VMS, RSX, RSTS)
   NT%NM0==1B27			; Name string is dynamically allocated (ALCSB)
N.NAME:!BLOCK 1			; Address of name string (allocated with ALCSB
				;  iff NT%NM0 is lit, else lives in HOSTS2.BIN)
N.PATH:!BLOCK 1			; Address of path string, or zero
N.REAL:!BLOCK 1			; Address of real name, if NT%SYN is lit
N.SITE:!BLOCK 1			; Address of site table entry, for HOSTS2 hosts
N.UTIL:!BLOCK 1			; Utility word
N.NEXT:!BLOCK 1			; Link to next N-block
   N.LEN==.+1			; Length of an N-block

	DEPHASE

;Flags in LH of to/cc list entries (TCPAG)

AD%PFX==1B0			; This entry is a prefix name for a list
AD%SFX==1B1			; This is a suffix (semicolon) placeholder
AD%PRN==1B2			; This is a personal name
AD%DON==1B3			; This one has been queued (XMAILR only)
AD%DEL==1B4			; [JCR]Network mail delivered by MX

SB.LEN==^D25			; Size of a string block (these are used
				;  for usernames, keywords, header-item names,
				;  alias names, and so forth)
;Header-item definitions

;User-defined header items are maintained in a TBLUK-style table.
; The string (pointed to by LH of table entry) is the name of the
; header-item.  The right half points to an H-block.

;H-block - contains type, flags, and possible data for header-item

HD.SIZ==0		; Size of this H-block
HD.FLG==1		; Flags and type code
	HD%OPT==1B18		; Optional (must use send lvl cmd to include)
	HD%PDF==1B19		; Predefined (wired in)
	HD%RQD==1B20		; Required but not defined (must prompt for it)
	HD%PRS==1B21		; This header-item is present in current msg
	HD%TYP==77B35		; Type code (types defined at GETHDA by HDTYPS macro)
HD.DAT==2		; Data associated with header-item
   HD.LEN==HD.DAT+3

;Alias definitions.  These are maintained in a TBLUK-style table,
; with the data portion pointing at one or more A-blocks linked together.

;A-block format

AB.COD==0		; User no. or code, -1 = net addr, -2 = SYSTEM
AB.FLG==1		; Flag bits
   AB%INV==1B0			; Invisible -- don't show alias in mail
AB.LNK==2		; Link to next A-block
AB.ADR==3		; Text of address in this A-block
   AB.LEN==AB.ADR+1	; Length of A-block


;U-block (TOPS10 only) -- contains structure and PPN for MAIL.TXT

UB.PPN==0		; PPN
UB.STR==1		; Structure
   UB.LEN==2


;T-block - page of message text.  These are linked together and the
; list grows as message text is added.

TB.FOR==0			; Forward link
TB.BAK==1			; Backward link
TB.CNT==2			; Count of bytes in this block
TB.TXT==3			; First word of text

TXTSIZ==<1000-TB.TXT>*5		; Number of bytes in a T-block

;Funny values returned by GETUSR for non-addresses or special addresses

NETCOD==<0,,-1>			; Network address code
SYSCOD==<0,,-2>			; Special system code
PFXCOD==<0,,-3>			; Prefix code (name of address list)
SFXCOD==<0,,-4>			; Suffix code (terminator of address list)
PRNCOD==<0,,-5>			; Personal name code
 SUBTTL Simple macros

DEFINE TYPE (X) <
	UTYPE [ASCIZ \X\]
   >
DEFINE CTYPE (X) <
	UTYPE 10, [ASCIZ \X\]
   >
DEFINE CITYPE (X) <
	UTYPE 1, [ASCIZ \X\]
   >

DEFINE ETYPE (X) <
	UETYPE [ASCIZ \X\]
   >
DEFINE CETYPE (X) <
	UETYPE 10, [ASCIZ \X\]
   >
DEFINE CIETYP (X) <
	UETYPE 1, [ASCIZ \X\]
   >


;AC field decoded as follows:
;10 (1 = ? , 0 = %)
; 4 ERSTR for last error
; 3 Return to user
; 2 Return to EXEC
; 1 User settable return (*** de-implemented ***)
; 0 Cause command error reparse

DEFINE DEFERR (XX,Y) <
	DEFINE XX (Z) <
		IFIDN <Z>,<>,<UERR Y, 0>
		IFDIF <Z>,<>,<UERR Y, [ASCIZ /Z/]>
	   >
   >
DEFERR CWARN,0
DEFERR WARN,3
DEFERR JWARN,7
DEFERR CERR,10
DEFERR JCERR,14
DEFERR CMERR,13
DEFERR JRETER,17
DEFERR FATAL,12
DEFERR JFATAL,16
 SUBTTL COMND helper macros -- stolen from MACSYM because GLXMAC doesn't have 'em

;Macro to add break character to four word break mask (W0., W1., W2., W3.)

DEFINE BRKCH. (%%V,V2)
<
%%FOO==%%V
	BRK0 (%%FOO,V2,0)
>

;Macro to remove character

DEFINE UNBRK. (%%V,V2)
<
%%FOO==%%V
	BRK0 (%%FOO,V2,1)
>

DEFINE BRK0 (%%11,V2,FLAVOR)
<	..V22==%%11
	..V1==%%11
	IFNB <V2>,<..V22==V2>
REPEAT ..V22-<%%11>+1,<	;;BRACKETS AROUND %%11 IN CASE ITS AN EXPRESSION
	%%W==..V1/^D32	;;DECIDE WHICH WORD CHARACTER GOES IN
	%%X==..V1-%%W*^D32	;;CALCULATE BIT POSITION WITHIN WORD
	IFE FLAVOR,BRKC1 \"<%%W+"0">	;;MODIFY CORRECT MASK WORD
	IFN FLAVOR,BRKC2 \"<%%W+"0">
	..V1==..V1+1
		   >
>

DEFINE BRKC1 (ARG1)
<	W'ARG1'.==W'ARG1'.!<1B<%%X>>
>

DEFINE BRKC2 (ARG1)
<	W'ARG1'.==W'ARG1'.&<-1-1B<%%X>>
>

;Macro to initialize 4-word 12-bit character break mask

DEFINE BRINI.(A0<0>,A1<0>,A2<0>,A3<0>)
<
W0.==A0
W1.==A1				;Initialize break mask
W2.==A2
W3.==A3
>

;macro to define a break set

DEFINE BRMSK. (INI0,INI1,INI2,INI3,ALLOW,DISALW)
<	BRINI. INI0,INI1,INI2,INI3	;;SET UP INITIAL MASK
	IRPC ALLOW,<	UNBRK. "ALLOW">	;;DON'T BREAK ON CHARS TO BE ALLOWED IN FIELD
	IRPC DISALW,<	BRKCH. "DISALW">	;;BREAK ON CHARACTERS NOT ALLOWED
	EXP W0.,W1.,W2.,W3.		;;STORE RESULTANT MASK IN MEMORY
>

;Define break masks

	BRINI.			;Initialize break mask for standard field
	BRKCH. (0,37)		;All control characters
	BRKCH. (40,54)		;Space through comma
	BRKCH. (56,57)		;Dot and slash
	BRKCH. (72,77)		;Colon through question mark
	BRKCH. (100)		;Atsign
	BRKCH. (133,140)	;Open bracket through accent grave
	BRKCH. (173,177)	;Close bracket through tilde

FLDB0.==W0.			;Standard field break mask
FLDB1.==W1.
FLDB2.==W2.
FLDB3.==W3.


;Macro to generate function data block -- caller supplies POINTER to help text

    DEFINE FLDDB1 (TYP,FLGS,DATA,HLPM,DEFM,LST) <
	XLIST
	..XX==<FLD(TYP,CM%FNC)>+FLGS+<Z LST>
	IFNB <HLPM>,<..XX==CM%HPP!..XX>
	IFNB <DEFM>,<..XX==CM%DPP!..XX>
	    ..XX
	IFNB <DATA>,<DATA>
	IFB <DATA>,<0>
	IFNB <HLPM>,<HLPM>
	IFB <HLPM>,<IFNB <DEFM>,<0>>
	IFNB <DEFM>,<POINT 7,[ASCIZ \DEFM\]>
	LIST
    >

; Macro to generate function data block -- caller supplies help text

    DEFINE FLDDB. (TYP,FLGS,DATA,HLPM,DEFM,LST) <
	XLIST
	..XX==<FLD(TYP,CM%FNC)>+FLGS+<Z LST>
	IFNB <HLPM>,<..XX==CM%HPP!..XX>
	IFNB <DEFM>,<..XX==CM%DPP!..XX>
	    ..XX
	IFNB <DATA>,<DATA>
	IFB <DATA>,<0>
	IFNB <HLPM>,<POINT 7,[ASCIZ \HLPM\]>
	IFB <HLPM>,<IFNB <DEFM>,<0>>
	IFNB <DEFM>,<POINT 7,[ASCIZ \DEFM\]>
	LIST
    >


;Macro to generate function descriptor block with break mask supplied

DEFINE FLDBK. (TYP,FLGS,DATA,HLPM,DEFM,BRKADR,LST)<
	..XX==<FLD(TYP,CM%FNC)>+FLGS+<Z LST>
   IFNB <HLPM>,<..XX=CM%HPP!..XX>
   IFNB <DEFM>,<..XX=CM%DPP!..XX>
   IFNB <BRKADR>,<..XX=CM%BRK!..XX>
	..XX
   IFNB <DATA>,<DATA>
   IFB <DATA>,<0>
   IFNB <HLPM>,<POINT 7,[ASCIZ HLPM]>
   IFB <HLPM>,<IFNB <DEFM'BRKADR>,<0>>
   IFB <DEFM>,<IFNB <BRKADR>,<0>>
   IFNB <DEFM>,<POINT 7,[ASCIZ \DEFM\]>
   IFNB <BRKADR>,<BRKADR>
   >


DEFINE FLDBK1 (TYP,FLGS,DATA,HLPM,DEFM,BRKADR,LST)<
	..XX==<FLD(TYP,CM%FNC)>+FLGS+<Z LST>
   IFNB <HLPM>,<..XX=CM%HPP!..XX>
   IFNB <DEFM>,<..XX=CM%DPP!..XX>
   IFNB <BRKADR>,<..XX=CM%BRK!..XX>
	..XX
   IFNB <DATA>,<DATA>
   IFB <DATA>,<0>
   IFNB <HLPM>,<HLPM>
   IFB <HLPM>,<IFNB <DEFM'BRKADR>,<0>>
   IFB <DEFM>,<IFNB <BRKADR>,<0>>
   IFNB <DEFM>,<POINT 7,[ASCIZ \DEFM\]>
   IFNB <BRKADR>,<BRKADR>
   >


;Macro to prompt for command

DEFINE PROMPT (MESSAGE) <
	XLIST
	HRROI A,[ASCIZ MESSAGE]
	CALL DPROMPT
	LIST
>

;Macro to print guidewords

DEFINE NOISE (SHT) <
	XLIST
	MOVEI A,[FLDDB. (.CMNOI,,<POINT 7,[ASCIZ /SHT/]>)]
	CALL RFIELD
	LIST
>

;Macro to require confirmation

DEFINE CONFRM <
	XLIST
	MOVEI A,[FLDDB. (.CMCFM)]
	CALL RFIELD
	LIST
>
   REPEAT 0,<
;Macros to make table entry for TBLUK or COMND .CMKEY style table

DEFINE TB (WORD,ADDRES) <
IFB <ADDRES>,<	[ASCIZ /WORD/],,.'WORD>
IFNB <ADDRES>,<	[ASCIZ /WORD/],,ADDRES>
>
   >;End REPEAT 0

DEFINE CMD (X,Y,Z) <
    IFIDN <Z>,<>,<
	IFIDN <Y>,<>,<[ASCIZ \X\],,.'X>
	IFDIF <Y>,<>,<[ASCIZ \X\],,Y>
    >
    IFDIF <Z>,<>,<
	IFIDN <Y>,<>,<[Z
			 ASCIZ \X\],,.'X>
	IFDIF <Y>,<>,<[Z
			 ASCIZ \X\],,Y>
    >
>

DEFINE CMD1 (X,Y,Z) < CMD (X,Y,<CM%FW!Z>) >

DEFINE CMDT (X,Y,Z<0>,FL<0>) <
	IFDIF <Y>,<>,< CMD (X,<[FL!Y]>,<CM%FW!Z>) >
	IFIDN <Y>,<>,< CMD (X,<[FL!.'X]>,<CM%FW!Z>) >
>

;Macro to move entries in message tables down over deleted entries.
; Whenever a message table is added, its name must be added to the
; argument list in the invocation of this macro in the expunge code.

DEFINE MXMOV (AC1,AC2,ZOT) <
	XLIST
    IRP ZOT,<
	GTMBL (M,AC1)
	GTMBL (X,AC2)
	MOVE AC1,MSG'ZOT(AC1)
	MOVEM AC1,MSG'ZOT(AC2)
>
	LIST
>

;Macros to conditionally save/restore message sequence context, based
; on whether or not we're in read mode.

DEFINE SAVMSX  <
	SKIPN REDLVL		;; Read mode?
	JRST .+4
	MOVEM F,SAVF
	JSP F,SAVMSQ		;; Yes, save context
	MOVE F,SAVF
>

DEFINE RESMSX  <
	SKIPN REDLVL		;; Read mode?
	JRST .+4
	MOVEM F,SAVF
	JSP F,RESMSQ		;; Yes, restore stuff
	MOVE F,SAVF
>
 SUBTTL HOSTS2 Definitions

;HOSTS2 is the Stanford/MIT Host table.  It is compiled from text files into
; the format described here.  It allows for multiple networks, multiple
; names for a host, and multiple paths to a host.  XMAILR is a mailer
; which uses HOSTS2.  MS assumes that a system either has XMAILR and
; HOSTS2, or neither.

;The format of the compiled HOSTS2 file is:

HSTSID==0	; wd 0	SIXBIT /HOSTS2/
NAMPTR==10	; wd 10 Address in file of NAME table.
SITPTR==11	; wd 11	Address in file of SITE table.
NETPTR==12	; wd 12 Address in file of NETWORK table.


;NETWORK table
; wd 0	Number of entries in table.
; wd 1	Number of words per entry. (2)

NETNUM==0	; wd 0	network number
NTLNAM==1	; wd 1 LH - address in file of name of network
NTRTAB==1	; wd 1 RH - address in file of network's address table


;ADDRESS table(s)
; wd 0	Number of entries in table.
; wd 1	Number of words per entry. (2)

ADDADR==0	; wd 0	Network address of this entry including network number
ADLSIT==1	; wd 1 LH - address in file of SITE table entry
ADRCDR==1	; wd 1 RH - address in file of next ADDRESS entry for this site
		;	    0 = end of list


;SITE table
; wd 0	Number of entries in table.
; wd 1	Number of words per entry. (3)

STLNAM==0	; wd 0 LH - address in file of official host name
STRADR==0	; wd 0 RH - address in file of first ADDRESS table entry for
		;	    this site.  Successive entries are threaded
		;	    together through ADRCDR.


;NAMES table:
; wd 0	Number of entries
; wd 1	Number of words per entry. (1)

NMLSIT==0	; lh	address in file of SITE table entry for this host.
NMRNAM==0	; rh	address in file of host name


; All names are ASCIZ strings, all letters upper case.
; The strings are stored before, after and between the tables.
; All strings are word-aligned, and fully zero-filled in the last word.


;Network addresses are defined as follows, for purposes of this table:
;    4.9     0
;    4.8-4.1 network number
;    Chaos net (number 7):
;	3.9-2.8	0
;	2.7-1.1 address (2.7-1.9 subnet, 1.8-1.1 host)
;    Arpanet (number 12):	(note, old-format Arpanet addresses
;	3.9-3.8	0	 	never appear in the host table.)
;	3.7-2.1	IMP
;	1.9	0
;	1.8-1.1	Host
;    Dialnet (number 26):
;	3.9-3.1	0
;	2.9-1.1	address in file of ASCIZ string of phone number
 SUBTTL      MS/MX IPCF Message Format

;Format of the message header

	PHASE 0
.PKTYP:!	BLOCK 1		;[JCR]Packet type
	.POST==1		;[JCR]New message packet
	.CONT==2		;[JCR]Old message packet
.PKID:! 	BLOCK 1		;[JCR]Packet i.d.
.PKSEQ:!	BLOCK 1		;[JCR]Packet sequence number
.PKSTS:!	BLOCK 1		;[JCR]Packet status
	.DONE==1		;[JCR]Packet completes the message
	.MORE==2		;[JCR]More packets follow this one
	.STAOK==1		;[JCR]Packet made it O.K. (Sent by MX)
	.STAME==2		;[JCR]MX expects more packets (Sent by MX)
	.STASM==3		;[JCR]Error, some received mail (Sent by MX)
	.STABD==4		;[JCR]Error, no one received mail (Sent by MX)
.PKRCT:!	BLOCK 1		;[JCR]Number of records in this packet
.HDRSZ:!			;[JCR]Length of header

	DEPHASE

;Format of a message record

	PHASE 0

.RECNM:!	BLOCK 1		;[JCR]Record sequence number
.RECTY:!	BLOCK 1		;[JCR]Record type
	.FLSPC==1		;[JCR]Record contains file-spec of message file
	.SENDR==2		;[JCR]Record contains sender of message
	.DESTN==3		;[JCR]Record contains destination string
	.SJSTR==4		;[JCR]Record contains subject line
.RECLN:!	BLOCK 1		;[JCR]Record length
.RECHS:!			;[JCR]Record header size
.RECTX:!	BLOCK 1		;[JCR]First word of the ASCII string
.RECMN:!			;[JCR]Minimum record length

	DEPHASE

MXRCSZ==.RECHS+51		;[JCR]Maximum record length
BUFEND==1000-MXRCSZ		;[JCR]End of message page check
;Clean up the symbol tables

	PURGE ..V22
	PURGE ..V1
	PURGE ..XX
	PURGE %%W
	PURGE %%X
	PURGE %%FOO

	END

; Edit 2450 to MSUNV.MAC by JROSSELL on 30-Sep-85
; Remove symbols PIDGET and PIDNAM. They are no longer needed by MSLCL
; Edit 2462 to MSUNV.MAC by PRATT on 4-Nov-85
; Merge many changes in -10, -20, and common code.
; *** Edit 2465 to MSUNV.MAC by JROSSELL on 5-Nov-85
; Define a subject record value
; *** Edit 2471 to MSUNV.MAC by PRATT on 14-Nov-85
; Changes to break up MS into a smaller module.
; *** Edit 2482 to MSUNV.MAC by PRATT on 20-Nov-85
; Invent F%MX (mail queued up by MX), use it for warm and fuzzy confirmation


; *** Edit 2486 to MSUNV.MAC by PRATT on 22-Nov-85
; Copyright statements
; *** Edit 2634 to MSUNV.MAC by JROSSELL on 10-Jan-86
; Open up a second JFN as READ/WRITE in places where we don't want another
; process writing to the mail file.
; *** Edit 2651 to MSUNV.MAC by SANTEE on 2-Feb-86
; Eliminate the need for MSUTAB at all. Move the few useful lines elsewhere. 
; *** Edit 2683 to MSUNV.MAC by JROSSELL on 18-Mar-86
; Change the way MX's PID is picked up to avoid infinite loops 
; *** Edit 2715 to MSUNV.MAC by RASPUZZI on 6-Jun-86
; Make MS more flexible when encountering "Invalid simultaneous access" on
; MAIL.TXT by trying to open the file 1 time per second for 5 seconds just in
; case MX has the file opened for incoming mail. 
; *** Edit 3074 to MSUNV.MAC by RASPUZZI on 14-Aug-86, for SPR #21351
; Make sure MS gets the right EMACS from EDITOR:
; *** Edit 3075 to MSUNV.MAC by RASPUZZI on 14-Aug-86
; Silly me. I forgot to put in the edit number for 3074. So now there are 2.
; Edit= 3109 to MSUNV.MAC on 11-Nov-88 by RASPUZZI
;Add username break mask for TOPS-10 usage.