Google
 
Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - sources/ms/msunv.unv
There are 35 other files named msunv.unv in the archive. Click here to see a list.
x
,Qz@P C- @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: :#X			
	LDB : C,[POINT 6,A,5]
:@	MOVEI V,1(A)
	I:`MULI V,5
	IDIVI ;C,7
	SUBI V,(C)

	SUBIV,(C)XX%N
W0.==A
W1.==B				;InitY@ialize break maskY`
W2.==C
W3.==D
==C
W3.==(#%;0$'0TAL%0(0EJZ S8%/	..V22==aSX
	..V1==a
	IFNSxB <B>,<..V22==BT>
REPEAT ..V22-<T8a>+1,<	
	%%W==.TX.V1/^D32	
	%%X==Tx..V1-%%W*^D32	
	UIFE C,BRKC1 \"<%U8%W+"0">	
	IFN CUX,BRKC2 \"<%%W+"0"Ux>
	..V1==..V1+1
		   >
.V1+1 V8%3	WA.==WA.!<1B<%%X>>
AEJ\4@ Vx%9	WA.==WAW.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: E8$)
%%FOO==Ea
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g Z %\

	BRINI. AZ@,B,C,D	
	IRPCZ` E,<	UNBRK. "E"[>	
	IRPC F,<	BR[ KCH. "F">	
	EXP[@ W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  I8$S
		IFIDN IX<A>,<>,<UERR 10,Ix 0>
		IFDIF <A>J,<>,<UERR 10, [ASJ8CIZ /A/]>
	   IZ /A/]>
	   G' Ax$
	UETYPE B10, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE;` A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 BX$
	UETYPE Bx1, [ASCIZ \A\]
   SCIZ \A\]
G'' @8$
	UTYPE 1@X, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  uh'F
    IFIDvN <C>,<>,<
	IFIv(DN <B>,<>,<[ASCIvHZ \A\],,.A>
	IvhFDIF <B>,<>,<[ASwCIZ \A\],,B>
 w(   >
    IFDIF <wHC>,<>,<
	IFIDN wh<B>,<>,<[C
			x ASCIZ \A\],,.Ax(>
	IFDIF <B>,<>xH,<[C
			 ASCIZ xh\A\],,B>
    >
],,B>
    >G6" y('J CMD (A,B,<CM%FW!C>) G6&@ z('^


	IFDIF <z`B>,<>,< CMD (A,{<[D!B]>,<CM%FW!{ C>) >
	IFIDN <{@B>,<>,< CMD (A,<{`[D!.A]>,<CM%FW!C>) >
<CM%FW!(a'L0C>) ((0G6.,@ L8$k
		IFIDN LX<A>,<>,<UERR 13,Lx 0>
		IFDIF <A>M,<>,<UERR 13, [ASM8CIZ /A/]>
	   IZ /A/]>
	   G>tlV th'*
	XLIST
u	MOVEI A,[FLDDB. u((.CMCFM)]
	CALL RFIELD
	LIST
GCN.: 
0 _
	LOC	0

P	ASCIZ /
COPYRIG
pHT (C) BY DIGITAL EQUIPMENT CORPOR0ATION, MAYNARD, MPASS. 1986
ALL RIpGHTS RESERVED.
/
	RELOCVED.
/GSN	  ?X#
	UTYPE 1?x0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ EX$3
		IFIDN Ex<A>,<>,<UERR 0, F0>
		IFDIF <A>,F8<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y C8$%
	DEFINE CXA (Z) <
		IFIDNCx <Z>,<>,<UERR B,D 0>
		IFDIF <Z>,D8<>,<UERR B, [ASCDXIZ /Z/]>
	   >
   /]>
	   >
I63 40#9
   TOPS24P0<
	.PSECT DATAP4p
   >
   TOPS105<
	IMPUR0
50>
A:	IFIDN <B>,<5P>,<BLOCK 1000>
	5pIFDIF <B>,<>,<BL6OCK 1000*B>
   60TOPS20<
	TOPPAG=6P=.
	.ENDPS DATAP6p
   >
   TOPS107<
	PURE
   >

	PURE
   >
KSN	  A$
	UETYPE A8[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$ O8%
		IFIDN OX<A>,<>,<UERR 12,Ox 0>
		IFDIF <A>P,<>,<UERR 12, [ASP8CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g h&f
	..XX==<h(FLD(A,CM%FNC)>+hHB+<Z G>
   IFNBhh <D>,<..XX=CM%HPiP!..XX>
   IFNB i(<E>,<..XX=CM%DPPiH!..XX>
   IFNB <ihF>,<..XX=CM%BRK!j..XX>
	..XX
   j(IFNB <C>,<C>
 jH  IFB <C>,<0>
 jh  IFNB <D>,<POINkT 7,[ASCIZ D]>k(
   IFB <D>,<IFkHNB <EF>,<0>>
 kh  IFB <E>,<IFNB l<F>,<0>>
   IFNl(B <E>,<POINT 7,[lHASCIZ \E\]>
   lhIFNB <F>,<F>
    <F>,<F>
 M2$*h m('
	..XX==<mHFLD(A,CM%FNC)>+mhB+<Z G>
   IFNBn <D>,<..XX=CM%HPn(P!..XX>
   IFNB nH<E>,<..XX=CM%DPPnh!..XX>
   IFNB <oF>,<..XX=CM%BRK!o(..XX>
	..XX
   oHIFNB <C>,<C>
 oh  IFB <C>,<0>
p  IFNB <D>,<D>
   IFB <D>,<IFNpHB <EF>,<0>>
  ph IFB <E>,<IFNB <qF>,<0>>
   IFNBq( <E>,<POINT 7,[AqHSCIZ \E\]>
   IqhFNB <F>,<F>
    <F>,<F>
  M2$HG d&<


	XLIST
d(	..XX==<FLD(A,CMdH%FNC)>+B+<Z F>
	IFNB <D>,<..XXe==CM%HPP!..XX>
	e(IFNB <E>,<..XX==eHCM%DPP!..XX>
	  eh  ..XX
	IFNB <Cf>,<C>
	IFB <C>f(,<0>
	IFNB <D>,fH<POINT 7,[ASCIZ \fhD\]>
	IFB <D>,g<IFNB <E>,<0>>
g(	IFNB <E>,<POINTgH 7,[ASCIZ \E\]>
	LIST
M2$H]>\%z


	XLIST
\`	..XX==<FLD(A,CM\@%FNC)>+B+<Z F>
	IFNB <D>,<..XX]==CM%HPP!..XX>
	] IFNB <E>,<..XX==]@CM%DPP!..XX>
	  ]`  ..XX
	IFNB <C^>,<C>
	IFB <C>^ ,<0>
	IFNB <D>,^@<D>
	IFB <D>,<^`IFNB <E>,<0>>
	_IFNB <E>,<POINT _ 7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y +#			
	QEXT+0 <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN+pDSB1,FNDTO0,FNDTO,1>
TOPS20<	QEXT ,0<GETTYM> >
	QEXT,P <GETUNM>
	QEXTN,p <KBFTOR>
	QEXT -<MOVMID,MOVOPT,MO-0VSB2,MOVTO,MOVCC>-P
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX.TSEQ>
	QEXT <PRS.0MS0,PRSMSG,PRTSEQ.P,PRTSQS>
	QEXTN .p<R,RSKP>
	QEXT </RDTEXT,RELSEQ>
	/0QEXT <SPCCHK>
TO/PPS20<	QEXT <SETTY/pM> >
	QEXT <STQD0L2,STRBUF>
	QEXT00 <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` "P"U			
TOPS1"p0<	QEXT <APPBLK> #>
	QEXT <CLZTXT,#0CNCLHD>
TOPS20<	#PQEXT <EDFORK,EDTG#pJB,EV,EXECFK> >
$	QEXT <RESMSQ,SAV$0MSQ,MSGQLN>
	QEX$PT <FILCOL>
	QEXT$p <HDRPAG,HSTHLP>
	QEXT <KWDTBL>
%0	QEXT <LASTM,LCNT%P,LHOSTN,LINEW>
	%pQEXT <LSTCHR,LSTM&SG>
	QEXT <MSGID&0X,MSGJFN,MSGSEQ,M&PYDIR,MYDIRS>
	QE&pXT <MYHDEC,MYHNAM'>
	QEXT <NXTMSG,'0OBPTR,OHSN,OHSPTR'P,OUTIFN>
	QEXT <'pREPLIN>
TOPS20<	(QEXT <SAVMOD> >
(0TOPS10<	QEXT <SAV(PPSZ> >
	QEXT <SV(pMIFN>
	QEXT <TAK)PTR,TCPAG,TOPTRS,)0TRAILR>
TOPS10<	)PQEXT <TTYUDX> >
)p	QEXT <TXTCNT,TXT*FPG,TXTMS2,TXTPTR*0,TXTTOT>
	QEXT <*PUPDPTR,UPDX>
	QEXT <VERSN.>
QEORl+ < #p
	IF2 <IF<@NDEF GTMIND, <EXT<`ERNAL GTMIND>>
	=PUSH P,F		;SAVE F= LAGS
	JSP F,GTMI=@ND		;CALL ROUTINE=`
	A,,B
	POP 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 0p#
   TOPS210<
	.ENDPS
	.PS10ECT .LOW.
   >;E1Pnd TOPS20
   TOP1pS10<
	IFGE .-4002000,<RELOC>
   >;End TOPS10
 >U.,@ Jx$_
		IFIDN K<A>,<>,<UERR 14,K8 0>
		IFDIF <A>KX,<>,<UERR 14, [ASKxCIZ /A/]>
	   IZ /A/]>
	   UH6 Px%
		IFIDN Q<A>,<>,<UERR 16,Q8 0>
		IFDIF <A>QX,<>,<UERR 16, [ASQxCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 Mx$w
		IFIDN N<A>,<>,<UERR 17,N8 0>
		IFDIF <A>NX,<>,<UERR 17, [ASNxCIZ /A/]>
	   IZ /A/]>
	   U^+@ H$G
		IFIDN H8<A>,<>,<UERR 7, HX0>
		IFDIF <A>,Hx<>,<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: 

0!}

   TOP

PS10<
	IFNDEF .GT

pLPN,<.GTLPN==-10>
	TWOSEG
	RELOC 400000
   >;End TOPS10

   TOPS20<
	.P0SECT .HIGH.

BYP2PAG==5000			; [JpCR]Bytes to a page
WD2PAG==1000
0
CTCCHN==0			; ^PC ON CHAN 0
TMRCpHN==5			; TIMER ON CHAN 5

0>

   TOPS10<
BYP2PAG==1200			; Byptes to a "page" (TOPS10 disk block0)
WD2PAG==200			P; Words to a "pagpe" (TOPS10 disk block)
NQBFSZ==2000			; Words in diPsk buffer
   >;Epnd TOPS10

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

TAKPTN==3*200			; Length of taPke IFN stack (FOBp size, addr, IFN)


; AC's

O0=0				; CAUTION -P- Clobbered by alpl GLXLIB stuff!!
A=1				; Temp an0d JSYS
B=2				; PDitto
C=3				; Dpitto
D=4				; Ditto
E=5				; Tem0p & local to routPine
T=6				; Ditpto
U=7				; Ditto
V=10				; Ditt0o - frequently isP a character poinpter
W=11				; Ditto
L=12				; By0te pointer to lisPt of message numbpers
M=13				; Current message if 0any (message numbPer)
MX=M				; M,p when pointing to current msg bloc0k
F=14				; FlagPs
X=15				; Oftepn horizontal cursor position
CX=106				; Used by maPcros
P=17

IFNp <TF>,<PRINTX ?WARNING -- GLXLIB A0C conventions havPe changed - TF>
pIFN <A-S1>,<PRINTX ?WARNING -- GLX0LIB AC conventionPs have changed - pS1>
IFN <B-S2>,<PRINTX ?WARNING -0- GLXLIB AC convePntions have changed - S2>

ang[bm}@ | 'l
	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\:t2ps\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
sH	MOVEI A,[FLDDB. sh(.CMNOI,,<POINT 7t,[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}\ r('
	XLIST
rH	HRROI A,[ASCIZ rhA]
	CALL DPROMPT
	LIST
PROMaWP 2P#
   TOPS22p0<
	.ENDPS
	.PS3ECT .HIGH.
   >;30End TOPS20
   TO3PPS10<
	IFL .-4003p000,<RELOC>
   >;End TOPS10
 >cF@  "	
	IF2<
	 0IRP A,<
	IFDEF  PA,<INTERNAL A>
	IFNDEF A,<EXTE!RNAL A>
	>
	>
L A>
	>
	>FK@ !P"
	IF2<
	!pIRP A,<
	IFNDEF" A,<EXTERNAL A>
	>
	>
L A>e\|  (
	SKIPN R@EDLVL		
	JRST .+`4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x 8#@JRST RSKPBJRST RSKPe^TkWQ @g5\| ~'v
	SKIPN R~ EDLVL		
	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 >x#y
	UTYPE [?ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv

P kv=P k  k' `k:*g RX%
%%FOO==Rxa
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` Fx$=
		IFIDN G<A>,<>,<UERR 3, G80>
		IFDIF <A>,GX<>,<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