PDP-10 Archive: 10,7/mail/ms/msunv.unv from msv11ck

Trailing-Edge - PDP-10 Archives - msv11ck - 10,7/mail/ms/msunv.unv

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

x
,Rz@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: *p_			
	LDB +C,[POINT 6,A,5]
+0	MOVEI V,1(A)
	I+PMULI V,5
	IDIVI +pC,7
	SUBI V,(C)

	SUBIV,(C)IHUu
W0.==A
W1.==B				;InitJ0ialize break maskJP
W2.==C
W3.==D
==C
W3.==*B0.0TAL0$0pPEJZ D(6	..V22==aDH
	..V1==a
	IFNDhB <B>,<..V22==BE>
REPEAT ..V22-<E(a>+1,<	
	%%W==.EH.V1/^D32	
	%%X==Eh..V1-%%W*^D32	
	FIFE C,BRKC1 \"<%F(%W+"0">	
	IFN CFH,BRKC2 \"<%%W+"0"Fh>
	..V1==..V1+1
		   >
.V1+1 G(:	WA.==WA.!<1B<%%X>>
AEJ\4@ Gh@	WA.==WAH.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: 6(0
%%FOO==6a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g Kc

	BRINI. AK0,B,C,D	
	IRPCKP E,<	UNBRK. "E"Kp>	
	IRPC F,<	BRLKCH. "F">	
	EXPL0 W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  :(Z
		IFIDN :H<A>,<>,<UERR 10,:h 0>
		IFDIF <A>;,<>,<UERR 10, [AS;(CIZ /A/]>
	   IZ /A/]>
	   G' 2h
	UETYPE 310, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE,P A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 3H
	UETYPE 3h1, [ASCIZ \A\]
   SCIZ \A\]
G'' 1(

	UTYPE 11H, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  fXM
    IFIDfxN <C>,<>,<
	IFIgDN <B>,<>,<[ASCIg8Z \A\],,.A>
	IgXFDIF <B>,<>,<[ASgxCIZ \A\],,B>
 h   >
    IFDIF <h8C>,<>,<
	IFIDN hX<B>,<>,<[C
			hx ASCIZ \A\],,.Ai>
	IFDIF <B>,<>i8,<[C
			 ASCIZ iX\A\],,B>
    >
],,B>
    >G6" jQ CMD (A,B,<CM%FW!C>) G6&@ ke|x
	IFDIF <kPB>,<>,< CMD (A,kp<[D!B]>,<CM%FW!lC>) >
	IFIDN <l0B>,<>,< CMD (A,<lP[D!.A]>,<CM%FW!C>) >
<CM%FW!hS0C>) Z/0[N=	G6.,@ =(r
		IFIDN =H<A>,<>,<UERR 13,=h 0>
		IFDIF <A>>,<>,<UERR 13, [AS>(CIZ /A/]>
	   IZ /A/]>
	   G>tlV eX1
	XLIST
ex	MOVEI A,[FLDDB. f(.CMCFM)]
	CALL RFIELD
	LIST
GCN.: { f
	LOC	0
{@	ASCIZ /
COPYRIG{`HT (C) BY DIGITAL| EQUIPMENT CORPOR| ATION, MAYNARD, M|@ASS. 1986
ALL RI|`GHTS RESERVED.
/
	RELOCVED.
/GSN	  0H
	UTYPE 10h0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ 6H:
		IFIDN 6h<A>,<>,<UERR 0, 70>
		IFDIF <A>,7(<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y 4(,
	DEFINE 4HA (Z) <
		IFIDN4h <Z>,<>,<UERR B,5 0>
		IFDIF <Z>,5(<>,<UERR B, [ASC5HIZ /Z/]>
	   >
   /]>
	   >
I63 % @
   TOPS2%@0<
	.PSECT DATAP%`
   >
   TOPS10&<
	IMPUR0
& >
A:	IFIDN <B>,<&@>,<BLOCK 1000>
	&`IFDIF <B>,<>,<BL'OCK 1000*B>
   ' TOPS20<
	TOPPAG='@=.
	.ENDPS DATAP'`
   >
   TOPS10(<
	PURE
   >

	PURE
   >
KSN	  2
	UETYPE 2([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 LoQ 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$ @(

		IFIDN @H<A>,<>,<UERR 12,@h 0>
		IFDIF <A>A,<>,<UERR 12, [ASA(CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g Xxm
	..XX==<YFLD(A,CM%FNC)>+Y8B+<Z G>
   IFNBYX <D>,<..XX=CM%HPYxP!..XX>
   IFNB Z<E>,<..XX=CM%DPPZ8!..XX>
   IFNB <ZXF>,<..XX=CM%BRK!Zx..XX>
	..XX
   [IFNB <C>,<C>
 [8  IFB <C>,<0>
 [X  IFNB <D>,<POIN[xT 7,[ASCIZ D]>\
   IFB <D>,<IF\8NB <EF>,<0>>
 \X  IFB <E>,<IFNB \x<F>,<0>>
   IFN]B <E>,<POINT 7,[]8ASCIZ \E\]>
   ]XIFNB <F>,<F>
    <F>,<F>
 M2$*h ^
	..XX==<^8FLD(A,CM%FNC)>+^XB+<Z G>
   IFNB^x <D>,<..XX=CM%HP_P!..XX>
   IFNB _8<E>,<..XX=CM%DPP_X!..XX>
   IFNB <_xF>,<..XX=CM%BRK!`..XX>
	..XX
   `8IFNB <C>,<C>
 `X  IFB <C>,<0>
`x  IFNB <D>,<D>
   IFB <D>,<IFNa8B <EF>,<0>>
  aX IFB <E>,<IFNB <axF>,<0>>
   IFNBb <E>,<POINT 7,[Ab8SCIZ \E\]>
   IbXFNB <F>,<F>
    <F>,<F>
  M2$HG TxC

	XLIST
U	..XX==<FLD(A,CMU8%FNC)>+B+<Z F>
	IFNB <D>,<..XXUx==CM%HPP!..XX>
	VIFNB <E>,<..XX==V8CM%DPP!..XX>
	  VX  ..XX
	IFNB <CVx>,<C>
	IFB <C>W,<0>
	IFNB <D>,W8<POINT 7,[ASCIZ \WXD\]>
	IFB <D>,Wx<IFNB <E>,<0>>
X	IFNB <E>,<POINTX8 7,[ASCIZ \E\]>
	LIST
M2$H]>Lp

	XLIST
MP	..XX==<FLD(A,CMM0%FNC)>+B+<Z F>
	IFNB <D>,<..XXMp==CM%HPP!..XX>
	NIFNB <E>,<..XX==N0CM%DPP!..XX>
	  NP  ..XX
	IFNB <CNp>,<C>
	IFB <C>O,<0>
	IFNB <D>,O0<D>
	IFB <D>,<OPIFNB <E>,<0>>
	OpIFNB <E>,<POINT P7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y 
			
	QEXT  <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN`DSB1,FNDTO0,FNDTO1>
TOPS20<	QEXT  <GETTYM> >
	QEXT@ <GETUNM>
	QEXTN` <KBFTOR>
	QEXT <MOVMID,MOVOPT,MO VSB2,MOVTO,MOVCC>@
	QEXT <MOVSUB>
	QEXT <NXTNEW,NXTSEQ>
	QEXT <PRS MS0,PRSMSG,PRTSEQ@,PRTSQS>
	QEXTN `<R,RSKP>
	QEXT < RDTEXT,RELSEQ>
	  QEXT <SPCCHK>
TO @PS20<	QEXT <SETTY `M> >
	QEXT <STQD!L2,STRBUF>
	QEXT!  <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` @\			
TOPS1`0<	QEXT <APPBLK> >
	QEXT <CLZTXT, CNCLHD>
TOPS20<	@QEXT <EDFORK,EDTG`JB,EV,EXECFK> >
	QEXT <RESMSQ,SAV MSQ,MSGQLN>
	QEX@T <FILCOL>
	QEXT` <HDRPAG,HSTHLP>
	QEXT <KWDTBL>
 	QEXT <LASTM,LCNT@,LHOSTN,LINEW>
	`QEXT <LSTCHR,LSTMSG>
	QEXT <MSGID X,MSGJFN,MSGSEQ,M@YDIR,MYDIRS>
	QE`XT <MYHDEC,MYHNAM>
	QEXT <NXTMSG, OBPTR,OHSN,OHSPTR@,OUTIFN>
	QEXT <`REPLIN>
TOPS20<	QEXT <SAVMOD> >
 TOPS10<	QEXT <SAV@PSZ> >
	QEXT <SV`MIFN>
	QEXT <TAKPTR,TCPAG,TOPTRS, TRAILR>
TOPS10<	@QEXT <TTYUDX> >
`	QEXT <TXTCNT,TXTFPG,TXTMS2,TXTPTR ,TXTTOT>
	QEXT <@UPDPTR,UPDX>
	QEXT <VERSN.>
QEORl+ -w
	IF2 <IF-0NDEF GTMIND, <EXT-PERNAL GTMIND>>
	-pPUSH P,F		;SAVE F.LAGS
	JSP F,GTMI.0ND		;CALL ROUTINE.P
	A,,B
	POP P.p,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.,@ ;hf
		IFIDN <<A>,<>,<UERR 14,<( 0>
		IFDIF <A><H,<>,<UERR 14, [AS<hCIZ /A/]>
	   IZ /A/]>
	   UH6 Ah
		IFIDN B<A>,<>,<UERR 16,B( 0>
		IFDIF <A>BH,<>,<UERR 16, [ASBhCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 >h~
		IFIDN ?<A>,<>,<UERR 17,?( 0>
		IFDIF <A>?H,<>,<UERR 17, [AS?hCIZ /A/]>
	   IZ /A/]>
	   U^+@ 9N
		IFIDN 9(<A>,<>,<UERR 7, 9H0>
		IFDIF <A>,9h<>,<UERR 7, [ASCIZ /A/]>
	   IZMP Z$[P ZP Z;ZP ZY7P Z$[8Q  Z4Q @[FL\P

[L-pP [N<p [N<p [N<+rp [N<+wp [N<-p [N<8`p [N<8wp [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: } 

   TOP}@S10<
	IFNDEF .GT}`LPN,<.GTLPN==-10>~	; Original logge~ d-in PPN
	TWOSEG~@
	RELOC 400000
~`   >;End TOPS10

   TOPS20<
	.P SECT .HIGH.

BY@2PAG==5000			; [J`CR]Bytes to a page
WD2PAG==1000
 
CTCCHN==0			; ^@C ON CHAN 0
TMRC`HN==5			; TIMER ON CHAN 5

 >

   TOPS10<
BY@2PAG==1200			; By`tes to a "page" (TOPS10 disk block )
WD2PAG==200			@; Words to a "pag`e" (TOPS10 disk block)
NQBFSZ==20 0			; Words in di@sk buffer
   >;E`nd TOPS10

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

TAKPTN==3*20 			; Length of ta@ke IFN stack (FOB` size, addr, IFN)


; AC's

O =0				; CAUTION -@- Clobbered by al`l GLXLIB stuff!!
A=1				; Temp an d JSYS
B=2				; @Ditto
C=3				; D`itto
D=4				; Ditto
E=5				; Tem p & local to rout@ine
T=6				; Dit`to
U=7				; Ditt	o
V=10				; Ditt	 o - frequently is	@ a character poin	`ter
W=11				; Di
tto
L=12				; By
 te pointer to lis
@t of message numb
`ers
M=13				; Current message if  any (message numb@er)
MX=M				; M,` when pointing to

 current msg bloc

 k
F=14				; Flag

@s
X=15				; Ofte

`nrhorizontal curs
CX=1	; Used by ma
P=17

IFNF>,<PRINTX ?WARNING -- GLXLIB A C conventions hav@e changed - TF>
`IFN <A-S1>,<PRINTX ?WARNING -- GLX LIB AC convention@s have changed - `S1>
IFN <B-S2>,<PRINTX ?WARNING - - GLXLIB AC conve@ntions have changed - S2>

ang[bm}@ ms
	XLIST
m0    IRP C,<
	GTmPMBL (M,A)
	GTMBmpL (X,B)
	MOVE nA,MSGC(A)
	MOVn0EM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pd\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
d8	MOVEI A,[FLDDB. dX(.CMNOI,,<POINT 7dx,[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}\ c
	XLIST
c8	HRROI A,[ASCIZ cXA]
	CALL DPROMPT
	LIST
PROMaWP #@&
   TOPS2#`0<
	.ENDPS
	.PS$ECT .HIGH.
   >;$ End TOPS20
   TO$@PS10<
	IFL .-400$`000,<RELOC>
   >;End TOPS10
 >cF@ 
	IF2<
	 IRP A,<
	IFDEF @A,<INTERNAL A>
	IFNDEF A,<EXTERNAL A>
	>
	>
L A>
	>
	>FK@ @
	IF2<
	`IRP A,<
	IFNDEF A,<EXTERNAL A>
	>
	>
L A>e\| p
	SKIPN Rp0EDLVL		
	JRST .+pP4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x (pGJRST RSKPIJRST RSKPe^TkWQ @g5\| np}
	SKIPN RoEDLVL		
	JRST .+o04
	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 /h
	UTYPE [0ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv

P kv=P k  k' `k:*g CH
%%FOO==Cha
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` 7hD
		IFIDN 8<A>,<>,<UERR 3, 8(0>
		IFDIF <A>,8H<>,<UERR 3, [ASCIZ /A/]>
	   I}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 NV=P O$RP O$2P O$uP O$vP >}{woP