PDP-10 Archive: 10,7/mail/mx/msunv.unv from T10_DECMAIL_MS_V11_FT1

Trailing-Edge - PDP-10 Archives - T10_DECMAIL_MS_V11_FT1_860414 - 10,7/mail/mx/msunv.unv

There are 35 other files named msunv.unv in the archive. Click here to see a list.

x
,Qv@P C-[Q @CtP Ct;rP CtkP CuI7P CuKUP C,I6Q C,KwQ C.	\Q @C.

WQ C.9\Q  C$P Cf::P C9P C}P CC2P 'EA: G`$F			
	LDB HC,[POINT 6,A,5]
H 	MOVEI V,1(A)
	IH@MULI V,5
	IDIVI H`C,7
	SUBI V,(C)

	SUBIV,(C)f8&<

h
W0.==A
W1.==B				;Initg ialize break maskg@
W2.==C
W3.==D
==C
W3.==(h&)0%0TAL%0(b0)3P@EJZ a&	..V22==aa8
	..V1==a
	IFNaXB <B>,<..V22==Bax>
REPEAT ..V22-<ba>+1,<	
	%%W==.b8.V1/^D32	
	%%X==bX..V1-%%W*^D32	
	bxIFE C,BRKC1 \"<%c%W+"0">	
	IFN Cc8,BRKC2 \"<%%W+"0"cX>
	..V1==..V1+1
		   >
.V1+1 d&!	WA.==WA.!<1B<%%X>>
AEJ\4@ dX&'	WA.==WAdx.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: S%
%%FOO==Rxa
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g h&J

	BRINI. Ah ,B,C,D	
	IRPCh@ E,<	UNBRK. "E"h`>	
	IRPC F,<	BRiKCH. "F">	
	EXPi  W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  W%A
		IFIDN W8<A>,<>,<UERR 10,WX 0>
		IFDIF <A>Wx,<>,<UERR 10, [ASXCIZ /A/]>
	   IZ /A/]>
	   G' OX$
	UETYPE Ox10, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVEI@ A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 P8%
	UETYPE PX1, [ASCIZ \A\]
   SCIZ \A\]
G'' N$s
	UTYPE 1N8, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  ~H(


    IFID~hN <C>,<>,<
	IFIDN <B>,<>,<[ASCI(Z \A\],,.A>
	IHFDIF <B>,<>,<[AShCIZ \A\],,B>
    >
    IFDIF <(C>,<>,<
	IFIDN H<B>,<>,<[C
			h ASCIZ \A\],,.A>
	IFDIF <B>,<>(,<[C
			 ASCIZ H\A\],,B>
    >
],,B>
    >G6" ( CMD (A,B,<CM%FW!C>) G6&@ ($X
	IFDIF <@B>,<>,< CMD (A,`<[D!B]>,<CM%FW!C>) >
	IFIDN < B>,<>,< CMD (A,<@[D!.A]>,<CM%FW!C>) >
<CM%FW!)&(0C>) (m0L20G6.,@ Z%Y
		IFIDN Z8<A>,<>,<UERR 13,ZX 0>
		IFDIF <A>Zx,<>,<UERR 13, [AS[CIZ /A/]>
	   IZ /A/]>
	   G>tlV }H'p
	XLIST
}h	MOVEI A,[FLDDB. ~(.CMCFM)]
	CALL RFIELD
	LIST
GSN	  M8$m
	UTYPE 1MX0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ S8%!
		IFIDN SX<A>,<>,<UERR 0, Sx0>
		IFDIF <A>,T<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y Q%
	DEFINE Q8A (Z) <
		IFIDNQX <Z>,<>,<UERR B,Qx 0>
		IFDIF <Z>,R<>,<UERR B, [ASCR8IZ /Z/]>
	   >
   /]>
	   >
I63 B $(
   TOPS2B@0<
	.PSECT DATAPB`
   >
   TOPS10C<
	IMPUR0
C >
A:	IFIDN <B>,<C@>,<BLOCK 1000>
	C`IFDIF <B>,<>,<BLDOCK 1000*B>
   D TOPS20<
	TOPPAG=D@=.
	.ENDPS DATAPD`
   >
   TOPS10E<
	PURE
   >

	PURE
   >
KSN	  Nx$y
	UETYPE O[ASCIZ \A\]
   SCIZ \A\]
[rPLL,P L@Q L)3P @L0Q L[sQ LX Q L{QQ LKQ L$XwP L%kVP  L.;RQ @L2Q @L2 Q  L20Q L4J9P LELP LV>9P$Ld;Q LeywQ LmyP Lv=6Q  L,wP L

XP @L

I1P  L6P LYP L6Q L
7Q L8wQ  LY\P!L.[`P L4-Q @LE[P LE]P LF
8P"LH-iQ @LH-lxQ LH-l{Q  M$ ]%q
		IFIDN ]8<A>,<>,<UERR 12,]X 0>
		IFDIF <A>]x,<>,<UERR 12, [AS^CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g uh'T
	..XX==<vFLD(A,CM%FNC)>+v(B+<Z G>
   IFNBvH <D>,<..XX=CM%HPvhP!..XX>
   IFNB w<E>,<..XX=CM%DPPw(!..XX>
   IFNB <wHF>,<..XX=CM%BRK!wh..XX>
	..XX
   xIFNB <C>,<C>
 x(  IFB <C>,<0>
 xH  IFNB <D>,<POINxhT 7,[ASCIZ D]>y
   IFB <D>,<IFy(NB <EF>,<0>>
 yH  IFB <E>,<IFNB yh<F>,<0>>
   IFNzB <E>,<POINT 7,[z(ASCIZ \E\]>
   zHIFNB <F>,<F>
    <F>,<F>
 M2$HG qh'*

	XLIST
r	..XX==<FLD(A,CMr(%FNC)>+B+<Z F>
	IFNB <D>,<..XXrh==CM%HPP!..XX>
	sIFNB <E>,<..XX==s(CM%DPP!..XX>
	  sH  ..XX
	IFNB <Csh>,<C>
	IFB <C>t,<0>
	IFNB <D>,t(<POINT 7,[ASCIZ \tHD\]>
	IFB <D>,th<IFNB <E>,<0>>
u	IFNB <E>,<POINTu( 7,[ASCIZ \E\]>
	LIST
M2$H]>i`&h

	XLIST
j@	..XX==<FLD(A,CMj %FNC)>+B+<Z F>
	IFNB <D>,<..XXj`==CM%HPP!..XX>
	kIFNB <E>,<..XX==k CM%DPP!..XX>
	  k@  ..XX
	IFNB <Ck`>,<C>
	IFB <C>l,<0>
	IFNB <D>,l <D>
	IFB <D>,<l@IFNB <E>,<0>>
	l`IFNB <E>,<POINT m7,[ASCIZ \E\]>
	LIST
    ]>
MRN=yP O2|,Y 8 #r			
TOPS18@0<	QEXT <APPDEQ,A8`PPNQ0> >
	QEXT <9DFSQNW,DFSQTH>
	9 QEXT <FNDHDR,FNDS9@B1,FNDTO0,FNDTO1>9`
TOPS20<	QEXT <G:ETTYM> >
	QEXT <: GETUNM>
	QEXTN <:@KBFTOR>
	QEXT <M:`OVMID,MOVOPT,MOVS;B2,MOVTO,MOVCC>
; 	QEXT <MOVSUB>
	;@QEXT <NXTNEW,NXTS;`EQ>
	QEXT <PRSMS<0,PRSMSG,PRTSEQ,P< RTSQS>
	QEXTN <R<@,RSKP>
	QEXT <RD<`TEXT,RELSEQ>
	QE=XT <SPCCHK>
TOPS= 20<	QEXT <SETTYM>=@ >
	QEXT <STQDL2=`,STRBUF>
	QEXT <>TRANSH>
TOPS10<	> QEXT <USRINI> >
	QEXT <YESNO>
O2|,` / #>			
TOPS1/@0<	QEXT <APPBLK> /`>
	QEXT <CLZTXT,0CNCLHD>
TOPS20<	0 QEXT <EDFORK,EDTG0@JB,EV,EXECFK> >
0`	QEXT <RESMSQ,SAV1MSQ,MSGQLN>
	QEX1 T <FILCOL>
	QEXT1@ <HDRPAG,HSTHLP>
	QEXT <KWDTBL>
2	QEXT <LASTM,LCNT2 ,LHOSTN,LINEW>
	2@QEXT <LSTCHR,LSTM2`SG>
	QEXT <MSGID3X,MSGJFN,MSGSEQ,M3 YDIR,MYDIRS,MYHDE3@C,MYHNAM>
	QEXT 3`<NXTMSG,OBPTR,OHS4N,OHSPTR,OUTIFN>
TOPS20<	QEXT <PI4@DGET,PIDNAM> >
	4`QEXT <REPLIN>
TO5PS20<	QEXT <SAVMO5 D> >
TOPS10<	QEX5@T <SAVPSZ> >
	QE5`XT <SVMIFN>
	QEX6T <TAKPTR,TCPAG,T6 OPTRS,TRAILR>
TO6@PS10<	QEXT <TTYUD6`X> >
	QEXT <TXTC7NT,TXTFPG,TXTMS2,7 TXTPTR,TXTTOT>
	7@QEXT <UPDPTR,UPDX7`>
	QEXT <VERSN.>
QEXT <VERSN.>ORl+ J$^
	IF2 <IFJ NDEF GTMIND, <EXTJ@ERNAL GTMIND>>
	J`PUSH P,F		;SAVE FKLAGS
	JSP F,GTMIK ND		;CALL ROUTINEK@
	A,,B
	POP PK`,F			;RESTORE FLAGS
RESTORE FLAQ-|P$Q.	P"Q.

YP @Q.,2P!Q.N8P QtH:P QtkP QuI7P Qv:=P QO&:2P S7\H >`$
   TOPS2?0<
	.ENDPS
	.PS? ECT .LOW.
   >;E?@nd TOPS20
   TOP?`S10<
	IFGE .-400@000,<RELOC>
   >;End TOPS10
 >U.,@ XX%M
		IFIDN Xx<A>,<>,<UERR 14,Y 0>
		IFDIF <A>Y8,<>,<UERR 14, [ASYXCIZ /A/]>
	   IZ /A/]>
	   UH6 ^X%}
		IFIDN ^x<A>,<>,<UERR 16,_ 0>
		IFDIF <A>_8,<>,<UERR 16, [AS_XCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 [X%e
		IFIDN [x<A>,<>,<UERR 17,\ 0>
		IFDIF <A>\8,<>,<UERR 17, [AS\XCIZ /A/]>
	   IZ /A/]>
	   U^+@ Ux%5
		IFIDN V<A>,<>,<UERR 7, V80>
		IFDIF <A>,VX<>,<UERR 7, [ASCIZ /A/]>
	   IZMP Z$[P ZP Z;ZP ZY7P Z$[8Q  Z4Q @[N<p [N<p [N<+rp [N<+wp [N<-p 
[N<H:p [N<lVp [N<lWp [N=	p [N=p [N=Z2p [N=Z7p [N=m6p [N>)3p [N>)Wp 	[N>,Wp 
[N>,Yp 	[N>;Rp [N>;Wp [N>=1p [N>=7p [N>K`p [N>Kup [N>Kwp [NMj: "b

   TOP S10<
	IFNDEF .GT@LPN,<.GTLPN==-10>`	; Original logged-in PPN
	TWOSEG 
	RELOC 400000
@   >;End TOPS10
`
   TOPS20<
	.PSECT .HIGH.

BY 2PAG==5000			; [J@CR]Bytes to a pag`e
   >

   TOPS10<
BY2PAG==120 0			; Bytes to a @"page" (TOPS10 di`sk block)
WD2PAG==200			; Words t o a "page" (TOPS1@0 disk block)
NQ`BFSZ==200			; Wor ds in disk buffer  
   >;End TOPS10 @

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

; AC!`'s

O=0				; CA"UTION -- Clobbere" d by all GLXLIB s"@tuff!!
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 - freque%ntly is a charact% er pointer
W=11	%@			; Ditto
L=12	%`			; Byte pointer& to list of messa& ge numbers
M=13	&@			; Current mess&`age if any (messa'ge number)
MX=M	' 			; M, when poin'@ting to current m'`sg block
F=14			(	; Flags
X=15			( 	; Often horizont(@al cursor positio(`n
CX=16				; Use)d by macros
P=17) 

IFN <TF>,<PRI)@NTX ?WARNING -- G)`LXLIB AC conventi*ons have changed * - TF>
IFN <A-S1>*@,<PRINTX ?WARNING*` -- GLXLIB AC con+ventions have cha+ nged - S1>
IFN <+@B-S2>,<PRINTX ?WA+`RNING -- GLXLIB A,C conventions hav, e changed - S2>

anged - S2>
[bm}@ (2
	XLIST
     IRP C,<
	GT@MBL (M,A)
	GTMB`L (X,B)
	MOVE A,MSGC(A)
	MOV EM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2p|\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
|(	MOVEI A,[FLDDB. |H(.CMNOI,,<POINT 7|h,[ASCIZ /A/]>)]
	CALL RFIELD
	LIST
RFIELD
	L]B%@P ]FL@P r]P,SP ]P,XP ]P,HwP ]P,KwP ]P-=vP @]P-HvP ]P-k(P ]P-nP  ]P.>7P ]R[ZP ]R3P ]Reh6P ]S6P ]SH1P aD;rP'~aJt;rP'}aJ}\ {'\
	XLIST
{(	HRROI A,[ASCIZ {HA]
	CALL DPROMPT
	LIST
PROMaWP @@$
   TOPS2@`0<
	.ENDPS
	.PSAECT .HIGH.
   >;A End TOPS20
   TOA@PS10<
	IFL .-400A`000,<RELOC>
   >;End TOPS10
 >cF@ ,`"n
	IF2<
	-IRP A,<
	IFDEF - A,<INTERNAL A>
	IFNDEF A,<EXTE-`RNAL A>
	>
	>
L A>
	>
	>FK@ . "v
	IF2<
	.@IRP A,<
	IFNDEF.` A,<EXTERNAL A>
	>
	>
L A>e\| (F
	SKIPN R EDLVL		
	JRST .+@4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x Ep$/JRST RSKP1JRST RSKPg5\| `(<
	SKIPN REDLVL		
	JRST .+ 4
	MOVEM F,SAVF
	JSP F,SAVMSQ		
	MOVE F,SAVF
guI7P

gD;rP'~g'& gSP gg;rP'it(5P it;ZP itkyP ivNP ic&:=P 	xigP LX$g
	UTYPE [LxASCIZ \A\]
   SCIZ \A\]
   kuI7P kv

P kv=P k  k' `k:*g `8&
%%FOO==`Xa
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` TX%+
		IFIDN Tx<A>,<>,<UERR 3, U0>
		IFDIF <A>,U8<>,<UERR 3, [ASCIZ /A/]>
	   Io3P }mP S@P .=P }i P f<P "&,}p 6~) P B]p B^(zp B^98p B^=p B^N8p B~=P J,:p J,;p J,;7p J,;Vp J,=p J,=p N-iP O$RP O$2P O$uP O$vP >}{woP