PDP-10 Archive: 7-sources/msunv.unv from tops20-v7-ft-dist1-clock

Trailing-Edge - PDP-10 Archives - tops20-v7-ft-dist1-clock - 7-sources/msunv.unv

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

x
,Sz@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: =(#r			
	LDB =HC,[POINT 6,A,5]
=h	MOVEI V,1(A)
	I>MULI V,5
	IDIVI >(C,7
	SUBI V,(C)

	SUBIV,(C)\%h@
W0.==A
W1.==B				;Init\hialize break mask]
W2.==C
W3.==D
==C
W3.==(>%V0$B0TAL%,0(80EJZ V`%J	..V22==aW
	..V1==a
	IFNW B <B>,<..V22==BW@>
REPEAT ..V22-<W`a>+1,<	
	%%W==.X.V1/^D32	
	%%X==X ..V1-%%W*^D32	
	X@IFE C,BRKC1 \"<%X`%W+"0">	
	IFN CY,BRKC2 \"<%%W+"0"Y >
	..V1==..V1+1
		   >
.V1+1 Y`%N	WA.==WA.!<1B<%%X>>
AEJ\4@ Z %T	WA.==WAZ@.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: H`$D
%%FOO==H@a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g ]H%v

	BRINI. A]h,B,C,D	
	IRPC^ E,<	UNBRK. "E"^(>	
	IRPC F,<	BR^HKCH. "F">	
	EXP^h W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  L`$n
		IFIDN M<A>,<>,<UERR 10,M  0>
		IFDIF <A>M@,<>,<UERR 10, [ASM`CIZ /A/]>
	   IZ /A/]>
	   G' E $,
	UETYPE E@10, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE? A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 F$2
	UETYPE F 1, [ASCIZ \A\]
   SCIZ \A\]
G'' C`$ 
	UTYPE 1D, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  y'a
    IFIDy0N <C>,<>,<
	IFIyPDN <B>,<>,<[ASCIypZ \A\],,.A>
	IzFDIF <B>,<>,<[ASz0CIZ \A\],,B>
 zP   >
    IFDIF <zpC>,<>,<
	IFIDN {<B>,<>,<[C
			{0 ASCIZ \A\],,.A{P>
	IFDIF <B>,<>{p,<[C
			 ASCIZ |\A\],,B>
    >
],,B>
    >G6" |P'e CMD (A,B,<CM%FW!C>) G6&@ }P'x0
	IFDIF <~B>,<>,< CMD (A,~(<[D!B]>,<CM%FW!~HC>) >
	IFIDN <~hB>,<>,< CMD (A,<[D!.A]>,<CM%FW!C>) >
<CM%FW!(|'g0C>) y(B0G6.,@ O`%
		IFIDN P<A>,<>,<UERR 13,P  0>
		IFDIF <A>P@,<>,<UERR 13, [ASP`CIZ /A/]>
	   IZ /A/]>
	   G>tlV x'E
	XLIST
x0	MOVEI A,[FLDDB. xP(.CMCFM)]
	CALL RFIELD
	LIST
GCN.:

X q
	LOC	0

x	ASCIZ /
COPYRIGBYTDIGITAL
ALL RIGHTS RESERVED.
/
	RELOCVED.
/GSN	  C$
	UTYPE 1C 0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ I$N
		IFIDN I <A>,<>,<UERR 0, I@0>
		IFDIF <A>,I`<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y F`$@
	DEFINE GA (Z) <
		IFIDNG  <Z>,<>,<UERR B,G@ 0>
		IFDIF <Z>,G`<>,<UERR B, [ASCHIZ /Z/]>
	   >
   /]>
	   >
I63 7X#S
   TOPS27x0<
	.PSECT DATAP8
   >
   TOPS1088<
	IMPUR0
8X>
A:	IFIDN <B>,<8x>,<BLOCK 1000>
	9IFDIF <B>,<>,<BL98OCK 1000*B>
   9XTOPS20<
	TOPPAG=9x=.
	.ENDPS DATAP:
   >
   TOPS10:8<
	PURE
   >

	PURE
   >
KSN	  D@$&
	UETYPE D`[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$ R`%
		IFIDN S<A>,<>,<UERR 12,S  0>
		IFDIF <A>S@,<>,<UERR 12, [ASS`CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g k0'
	..XX==<kPFLD(A,CM%FNC)>+kpB+<Z G>
   IFNBl <D>,<..XX=CM%HPl0P!..XX>
   IFNB lP<E>,<..XX=CM%DPPlp!..XX>
   IFNB <mF>,<..XX=CM%BRK!m0..XX>
	..XX
   mPIFNB <C>,<C>
 mp  IFB <C>,<0>
 n  IFNB <D>,<POINn0T 7,[ASCIZ D]>nP
   IFB <D>,<IFnpNB <EF>,<0>>
 o  IFB <E>,<IFNB o0<F>,<0>>
   IFNoPB <E>,<POINT 7,[opASCIZ \E\]>
   pIFNB <F>,<F>
    <F>,<F>
 M2$*h pP')
	..XX==<ppFLD(A,CM%FNC)>+qB+<Z G>
   IFNBq0 <D>,<..XX=CM%HPqPP!..XX>
   IFNB qp<E>,<..XX=CM%DPPr!..XX>
   IFNB <r0F>,<..XX=CM%BRK!rP..XX>
	..XX
   rpIFNB <C>,<C>
 s  IFB <C>,<0>
s0  IFNB <D>,<D>
   IFB <D>,<IFNspB <EF>,<0>>
  t IFB <E>,<IFNB <t0F>,<0>>
   IFNBtP <E>,<POINT 7,[AtpSCIZ \E\]>
   IuFNB <F>,<F>
    <F>,<F>
  M2$HG g0&W

	XLIST
gP	..XX==<FLD(A,CMgp%FNC)>+B+<Z F>
	IFNB <D>,<..XXh0==CM%HPP!..XX>
	hPIFNB <E>,<..XX==hpCM%DPP!..XX>
	  i  ..XX
	IFNB <Ci0>,<C>
	IFB <C>iP,<0>
	IFNB <D>,ip<POINT 7,[ASCIZ \jD\]>
	IFB <D>,j0<IFNB <E>,<0>>
jP	IFNB <E>,<POINTjp 7,[ASCIZ \E\]>
	LIST
M2$H]>(&

	XLIST
`	..XX==<FLD(A,CMh%FNC)>+B+<Z F>
	IFNB <D>,<..XX`(==CM%HPP!..XX>
	`HIFNB <E>,<..XX==`hCM%DPP!..XX>
	  a  ..XX
	IFNB <Ca(>,<C>
	IFB <C>aH,<0>
	IFNB <D>,ah<D>
	IFB <D>,<bIFNB <E>,<0>>
	b(IFNB <E>,<POINT bH7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y .8#			
	QEXT.X <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN/DSB1,FNDTO0,FNDTO/81>
TOPS20<	QEXT /X<GETTYM> >
	QEXT/x <GETUNM>
	QEXTN0 <KBFTOR>
	QEXT 08<MOVMID,MOVOPT,MO0XVSB2,MOVTO,MOVCC>0x
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX18TSEQ>
	QEXT <PRS1XMS0,PRSMSG,PRTSEQ1x,PRTSQS>
	QEXTN 2<R,RSKP>
	QEXT <28RDTEXT,RELSEQ>
	2XQEXT <SPCCHK>
TO2xPS20<	QEXT <SETTY3M> >
	QEXT <STQD38L2,STRBUF>
	QEXT3X <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` $x"o			
TOPS1%0<	QEXT <APPBLK> %8>
	QEXT <CLZTXT,%XCNCLHD>
;**;[307%x4][3075] Add EMXG&JB in global list&8	MDR	14-AUG-86
T&XOPS20<	QEXT <EDFO&xRK,EDTGJB,EMXGJB,'EV,EXECFK> >
	QE'8XT <RESMSQ,SAVMSQ'X,MSGQLN>
	QEXT <'xFILCOL>
	QEXT <H(DRPAG,HSTHLP>
	Q(8EXT <KWDTBL>
	QE(XXT <LASTM,LCNT,LH(xOSTN,LINEW>
	QEX)T <LSTCHR,LSTMSG>)8
	QEXT <MSGIDX,M)XSGJFN,MSGSEQ,MYDI)xR,MYDIRS>
	QEXT *<MYHDEC,MYHNAM>
*8	QEXT <NXTMSG,OBP*XTR,OHSN,OHSPTR,OU*xTIFN>
	QEXT <REP+LIN>
TOPS20<	QEX+8T <SAVMOD> >
TOP+XS10<	QEXT <SAVPSZ+x> >
	QEXT <SVMIF,N>
	QEXT <TAKPTR,8,TCPAG,TOPTRS,TRA,XILR>
TOPS10<	QEX,xT <TTYUDX> >
	QE-XT <TXTCNT,TXTFPG-8,TXTMS2,TXTPTR,TX-XTTOT>
	QEXT <UPD-xPTR,UPDX>
	QEXT <VERSN.>
QEXT ORl+ ?H$

	IF2 <IF?hNDEF GTMIND, <EXT@ERNAL GTMIND>>
	@(PUSH P,F		;SAVE F@HLAGS
	JSP F,GTMI@hND		;CALL ROUTINEA
	A,,B
	POP PA(,F			;RESTORE FLAGS
RESTORE FLAQ-|P$Q.	P"Q.

YP @Q.,2P!Q.N8P QtH:P QtkP QuI7P Qv:=P QO&:2P S7\H 4#+
   TOPS2480<
	.ENDPS
	.PS4XECT .LOW.
   >;E4xnd TOPS20
   TOP5S10<
	IFGE .-40058000,<RELOC>
   >;End TOPS10
 >U.,@ N $z
		IFIDN N@<A>,<>,<UERR 14,N` 0>
		IFDIF <A>O,<>,<UERR 14, [ASO CIZ /A/]>
	   IZ /A/]>
	   UH6 T %*
		IFIDN T@<A>,<>,<UERR 16,T` 0>
		IFDIF <A>U,<>,<UERR 16, [ASU CIZ /A/]>
	   IZ /A/]>
	   UJ.I9 Q %
		IFIDN Q@<A>,<>,<UERR 17,Q` 0>
		IFDIF <A>R,<>,<UERR 17, [ASR CIZ /A/]>
	   IZ /A/]>
	   U^+@ K@$b
		IFIDN K`<A>,<>,<UERR 7, L0>
		IFDIF <A>,L <>,<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: X"

   TOPxS10<
	IFNDEF .GTLPN,<.GTLPN==-10>8	; Original loggeXd-in PPN
	TWOSEGx
	RELOC 400000
   >;End TOPS10
8
   TOPS20<
	.PXSECT .HIGH.

BYx2PAG==5000			; [JCR]Bytes to a pag8e
WD2PAG==1000
X
CTCCHN==0			; ^xC ON CHAN 0
TMRCHN==5			; TIMER O8N CHAN 5

X>

   TOPS10<
BYx2PAG==1200			; Bytes to a "page" (8TOPS10 disk blockX)
WD2PAG==200			x; Words to a "page" (TOPS10 disk b8lock)
NQBFSZ==20X0			; Words in dixsk buffer
   >;End TOPS10

WRDP8AG==1000			; [JCRX]Words to a page
BY2WRD==5			; [JCR]Bytes to a wor8d

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


; AC's

OX=0				; CAUTION -x- Clobbered by all GLXLIB stuff!!
A=1				; Temp anXd JSYS
B=2				; xDitto
C=3				; Ditto
D=4				; Di8tto
E=5				; TemXp & local to routxine
T=6				; Ditto
U=7				; Ditt8o
V=10				; DittXo - frequently isx a character pointer
W=11				; Di8tto
L=12				; ByXte pointer to lisxt of message numbers
M=13				; Cu8rrent message if Xany (message numbxer)
MX=M				; M, when pointing to8 current msg blocXk
F=14				; Flagxs
X=15				; Often horizontal curs8or position
CX=1X6				; Used by maxcros
P=17

IFN <TF>,<PRINTX ?WA8RNING -- GLXLIB AXC conventions havxe changed - TF>
 IFN <A-S1>,<PRINT 8X ?WARNING -- GLX XLIB AC convention xs have changed - !S1>
IFN <B-S2>,<!8PRINTX ?WARNING -!X- GLXLIB AC conve!xntions have changed - S2>

ang[bm}@ H(
	XLIST
h    IRP C,<
	GTMBL (M,A)
	GTMB(L (X,B)
	MOVE HA,MSGC(A)
	MOVhEM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pv\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
vp	MOVEI A,[FLDDB. w(.CMNOI,,<POINT 7w0,[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}\ uP'1
	XLIST
up	HRROI A,[ASCIZ vA]
	CALL DPROMPT
	LIST
PROMaWP 5x#9
   TOPS260<
	.ENDPS
	.PS68ECT .HIGH.
   >;6XEnd TOPS20
   TO6xPS10<
	IFL .-4007000,<RELOC>
   >;End TOPS10
 >cF@ "8"
	IF2<
	"XIRP A,<
	IFDEF "xA,<INTERNAL A>
	IFNDEF A,<EXTE#8RNAL A>
	>
	>
L A>
	>
	>FK@ #x"#
	IF2<
	$IRP A,<
	IFNDEF$8 A,<EXTERNAL A>
	>
	>
L A>e\| H(
	SKIPN RhEDLVL		
	JRST .+4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x ;(#ZJRST RSKP\JRST RSKPe^TkWQ @g5\| ((
	SKIPN RHEDLVL		
	JRST .+h4
	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 B $
	UTYPE [B@ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv

P kv=P k  k' `k:*g V%2
%%FOO==V a
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` J $X
		IFIDN J@<A>,<>,<UERR 3, J`0>
		IFDIF <A>,K<>,<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