Google
 

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - new-subsys/msunv.unv
There are 35 other files named msunv.unv in the archive. Click here to see a list.
x
,Sz@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: = #r			
	LDB =@C,[POINT 6,A,5]
=`	MOVEI V,1(A)
	I>MULI V,5
	IDIVI > C,7
	SUBI V,(C)

	SUBIV,(C)[x%h8
W0.==A
W1.==B				;Init\`ialize break mask]
W2.==C
W3.==D
==C
W3.==(=%U0$A0TAL%+0(70EJZ VX%I	..V22==aVx
	..V1==a
	IFNWB <B>,<..V22==BW8>
REPEAT ..V22-<WXa>+1,<	
	%%W==.Wx.V1/^D32	
	%%X==X..V1-%%W*^D32	
	X8IFE C,BRKC1 \"<%XX%W+"0">	
	IFN CXx,BRKC2 \"<%%W+"0"Y>
	..V1==..V1+1
		   >
.V1+1 YX%M	WA.==WA.!<1B<%%X>>
AEJ\4@ Z%S	WA.==WAZ8.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: HX$C
%%FOO==H8a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g ]@%v
	BRINI. A]`,B,C,D	
	IRPC^ E,<	UNBRK. "E"^ >	
	IRPC F,<	BR^@KCH. "F">	
	EXP^` W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  LX$m
		IFIDN Lx<A>,<>,<UERR 10,M 0>
		IFDIF <A>M8,<>,<UERR 10, [ASMXCIZ /A/]>
	   IZ /A/]>
	   G' E$+
	UETYPE E810, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE? A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 Ex$1
	UETYPE F1, [ASCIZ \A\]
   SCIZ \A\]
G'' CX$
	UTYPE 1Cx, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  y'`
    IFIDy(N <C>,<>,<
	IFIyHDN <B>,<>,<[ASCIyhZ \A\],,.A>
	IzFDIF <B>,<>,<[ASz(CIZ \A\],,B>
 zH   >
    IFDIF <zhC>,<>,<
	IFIDN {<B>,<>,<[C
			{( ASCIZ \A\],,.A{H>
	IFDIF <B>,<>{h,<[C
			 ASCIZ |\A\],,B>
    >
],,B>
    >G6" |H'd CMD (A,B,<CM%FW!C>) G6&@ }H'x(
	IFDIF <~B>,<>,< CMD (A,~ <[D!B]>,<CM%FW!~@C>) >
	IFIDN <~`B>,<>,< CMD (A,<[D!.A]>,<CM%FW!C>) >
<CM%FW!({'f0C>) (B0G6.,@ OX%
		IFIDN Ox<A>,<>,<UERR 13,P 0>
		IFDIF <A>P8,<>,<UERR 13, [ASPXCIZ /A/]>
	   IZ /A/]>
	   G>tlV x'D
	XLIST
x(	MOVEI A,[FLDDB. xH(.CMCFM)]
	CALL RFIELD
	LIST
GCN.: 
P q
	LOC	0

p	ASCIZ /
COPYRIGBYTDIGITAL
ALL RIGHTS RESERVED.
/
	RELOCVED.
/GSN	  Bx$
	UTYPE 1C0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ Hx$M
		IFIDN I<A>,<>,<UERR 0, I80>
		IFDIF <A>,IX<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y FX$?
	DEFINE FxA (Z) <
		IFIDNG <Z>,<>,<UERR B,G8 0>
		IFDIF <Z>,GX<>,<UERR B, [ASCGxIZ /Z/]>
	   >
   /]>
	   >
I63 7P#S
   TOPS27p0<
	.PSECT DATAP8
   >
   TOPS1080<
	IMPUR0
8P>
A:	IFIDN <B>,<8p>,<BLOCK 1000>
	9IFDIF <B>,<>,<BL90OCK 1000*B>
   9PTOPS20<
	TOPPAG=9p=.
	.ENDPS DATAP:
   >
   TOPS10:0<
	PURE
   >

	PURE
   >
KSN	  D8$%
	UETYPE DX[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$ RX%
		IFIDN Rx<A>,<>,<UERR 12,S 0>
		IFDIF <A>S8,<>,<UERR 12, [ASSXCIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g k('
	..XX==<kHFLD(A,CM%FNC)>+khB+<Z G>
   IFNBl <D>,<..XX=CM%HPl(P!..XX>
   IFNB lH<E>,<..XX=CM%DPPlh!..XX>
   IFNB <mF>,<..XX=CM%BRK!m(..XX>
	..XX
   mHIFNB <C>,<C>
 mh  IFB <C>,<0>
 n  IFNB <D>,<POINn(T 7,[ASCIZ D]>nH
   IFB <D>,<IFnhNB <EF>,<0>>
 o  IFB <E>,<IFNB o(<F>,<0>>
   IFNoHB <E>,<POINT 7,[ohASCIZ \E\]>
   pIFNB <F>,<F>
    <F>,<F>
 M2$*h pH'(
	..XX==<phFLD(A,CM%FNC)>+qB+<Z G>
   IFNBq( <D>,<..XX=CM%HPqHP!..XX>
   IFNB qh<E>,<..XX=CM%DPPr!..XX>
   IFNB <r(F>,<..XX=CM%BRK!rH..XX>
	..XX
   rhIFNB <C>,<C>
 s  IFB <C>,<0>
s(  IFNB <D>,<D>
   IFB <D>,<IFNshB <EF>,<0>>
  t IFB <E>,<IFNB <t(F>,<0>>
   IFNBtH <E>,<POINT 7,[AthSCIZ \E\]>
   IuFNB <F>,<F>
    <F>,<F>
  M2$HG g(&V

	XLIST
gH	..XX==<FLD(A,CMgh%FNC)>+B+<Z F>
	IFNB <D>,<..XXh(==CM%HPP!..XX>
	hHIFNB <E>,<..XX==hhCM%DPP!..XX>
	  i  ..XX
	IFNB <Ci(>,<C>
	IFB <C>iH,<0>
	IFNB <D>,ih<POINT 7,[ASCIZ \jD\]>
	IFB <D>,j(<IFNB <E>,<0>>
jH	IFNB <E>,<POINTjh 7,[ASCIZ \E\]>
	LIST
M2$H]> &

	XLIST
`	..XX==<FLD(A,CM`%FNC)>+B+<Z F>
	IFNB <D>,<..XX` ==CM%HPP!..XX>
	`@IFNB <E>,<..XX==``CM%DPP!..XX>
	  a  ..XX
	IFNB <Ca >,<C>
	IFB <C>a@,<0>
	IFNB <D>,a`<D>
	IFB <D>,<bIFNB <E>,<0>>
	b IFNB <E>,<POINT b@7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y .0#			
	QEXT.P <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN/DSB1,FNDTO0,FNDTO/01>
TOPS20<	QEXT /P<GETTYM> >
	QEXT/p <GETUNM>
	QEXTN0 <KBFTOR>
	QEXT 00<MOVMID,MOVOPT,MO0PVSB2,MOVTO,MOVCC>0p
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX10TSEQ>
	QEXT <PRS1PMS0,PRSMSG,PRTSEQ1p,PRTSQS>
	QEXTN 2<R,RSKP>
	QEXT <20RDTEXT,RELSEQ>
	2PQEXT <SPCCHK>
TO2pPS20<	QEXT <SETTY3M> >
	QEXT <STQD30L2,STRBUF>
	QEXT3P <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` $p"o			
TOPS1%0<	QEXT <APPBLK> %0>
	QEXT <CLZTXT,%PCNCLHD>
;**;[307%p4][3075] Add EMXG&JB in global list&0	MDR	14-AUG-86
T&POPS20<	QEXT <EDFO&pRK,EDTGJB,EMXGJB,'EV,EXECFK> >
	QE'0XT <RESMSQ,SAVMSQ'P,MSGQLN>
	QEXT <'pFILCOL>
	QEXT <H(DRPAG,HSTHLP>
	Q(0EXT <KWDTBL>
	QE(PXT <LASTM,LCNT,LH(pOSTN,LINEW>
	QEX)T <LSTCHR,LSTMSG>)0
	QEXT <MSGIDX,M)PSGJFN,MSGSEQ,MYDI)pR,MYDIRS>
	QEXT *<MYHDEC,MYHNAM>
*0	QEXT <NXTMSG,OBP*PTR,OHSN,OHSPTR,OU*pTIFN>
	QEXT <REP+LIN>
TOPS20<	QEX+0T <SAVMOD> >
TOP+PS10<	QEXT <SAVPSZ+p> >
	QEXT <SVMIF,N>
	QEXT <TAKPTR,0,TCPAG,TOPTRS,TRA,PILR>
TOPS10<	QEX,pT <TTYUDX> >
	QE-XT <TXTCNT,TXTFPG-0,TXTMS2,TXTPTR,TX-PTTOT>
	QEXT <UPD-pPTR,UPDX>
	QEXT <VERSN.>
QEXT ORl+ ?@$

	IF2 <IF?`NDEF GTMIND, <EXT@ERNAL GTMIND>>
	@ PUSH P,F		;SAVE F@@LAGS
	JSP F,GTMI@`ND		;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#+
   TOPS2400<
	.ENDPS
	.PS4PECT .LOW.
   >;E4pnd TOPS20
   TOP5S10<
	IFGE .-40050000,<RELOC>
   >;End TOPS10
 >U.,@ N$y
		IFIDN N8<A>,<>,<UERR 14,NX 0>
		IFDIF <A>Nx,<>,<UERR 14, [ASOCIZ /A/]>
	   IZ /A/]>
	   UH6 T%)
		IFIDN T8<A>,<>,<UERR 16,TX 0>
		IFDIF <A>Tx,<>,<UERR 16, [ASUCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 Q%
		IFIDN Q8<A>,<>,<UERR 17,QX 0>
		IFDIF <A>Qx,<>,<UERR 17, [ASRCIZ /A/]>
	   IZ /A/]>
	   U^+@ K8$a
		IFIDN KX<A>,<>,<UERR 7, Kx0>
		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: P"

   TOPpS10<
	IFNDEF .GTLPN,<.GTLPN==-10>0	; Original loggePd-in PPN
	TWOSEGp
	RELOC 400000
   >;End TOPS10
0
   TOPS20<
	.PPSECT .HIGH.

BYp2PAG==5000			; [JCR]Bytes to a pag0e
WD2PAG==1000
P
CTCCHN==0			; ^pC ON CHAN 0
TMRCHN==5			; TIMER O0N CHAN 5

P>

   TOPS10<
BYp2PAG==1200			; Bytes to a "page" (0TOPS10 disk blockP)
WD2PAG==200			p; Words to a "page" (TOPS10 disk b0lock)
NQBFSZ==20P0			; Words in dipsk buffer
   >;End TOPS10

WRDP0AG==1000			; [JCRP]Words to a page
BY2WRD==5			; [JCR]Bytes to a wor0d

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


; AC's

OP=0				; CAUTION -p- Clobbered by all GLXLIB stuff!!
A=1				; Temp anPd JSYS
B=2				; pDitto
C=3				; Ditto
D=4				; Di0tto
E=5				; TemPp & local to routpine
T=6				; Ditto
U=7				; Ditt0o
V=10				; DittPo - frequently isp a character pointer
W=11				; Di0tto
L=12				; ByPte pointer to lispt of message numbers
M=13				; Cu0rrent message if Pany (message numbper)
MX=M				; M, when pointing to0 current msg blocPk
F=14				; Flagps
X=15				; Often horizontal curs0or position
CX=1P6				; Used by mapcros
P=17

IFN <TF>,<PRINTX ?WA0RNING -- GLXLIB APC conventions havpe changed - TF>
 IFN <A-S1>,<PRINT 0X ?WARNING -- GLX PLIB AC convention ps have changed - !S1>
IFN <B-S2>,<!0PRINTX ?WARNING -!P- GLXLIB AC conve!pntions have changed - S2>

ang[bm}@ @(
	XLIST
`    IRP C,<
	GTMBL (M,A)
	GTMB L (X,B)
	MOVE @A,MSGC(A)
	MOV`EM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pv\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
vh	MOVEI A,[FLDDB. w(.CMNOI,,<POINT 7w(,[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}\ uH'0
	XLIST
uh	HRROI A,[ASCIZ vA]
	CALL DPROMPT
	LIST
PROMaWP 5p#9
   TOPS260<
	.ENDPS
	.PS60ECT .HIGH.
   >;6PEnd TOPS20
   TO6pPS10<
	IFL .-4007000,<RELOC>
   >;End TOPS10
 >cF@ "0"
	IF2<
	"PIRP A,<
	IFDEF "pA,<INTERNAL A>
	IFNDEF A,<EXTE#0RNAL A>
	>
	>
L A>
	>
	>FK@ #p"#
	IF2<
	$IRP A,<
	IFNDEF$0 A,<EXTERNAL A>
	>
	>
L A>e\| @(
	SKIPN R`EDLVL		
	JRST .+4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x ; #ZJRST RSKP\JRST RSKPe^TkWQ @g5\|  (
	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 B$
	UTYPE [B8ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv
P kv=P k  k' `k:*g Ux%1
%%FOO==Va
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` J$W
		IFIDN J8<A>,<>,<UERR 3, JX0>
		IFDIF <A>,Jx<>,<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