Google
 

Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/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: /#			
	LDB /8C,[POINT 6,A,5]
/X	MOVEI V,1(A)
	I/xMULI V,5
	IDIVI 0C,7
	SUBI V,(C)

	SUBIV,(C)Mp$wy0
W0.==A
W1.==B				;InitNXialize break maskNx
W2.==C
W3.==D
==C
W3.=='M$e0#Q0TALL\$;0'G0\;X6EJZ HP$Y	..V22==aHp
	..V1==a
	IFNIB <B>,<..V22==BI0>
REPEAT ..V22-<IPa>+1,<	
	%%W==.Ip.V1/^D32	
	%%X==J..V1-%%W*^D32	
	J0IFE C,BRKC1 \"<%JP%W+"0">	
	IFN CJp,BRKC2 \"<%%W+"0"K>
	..V1==..V1+1
		   >
.V1+1 KP$]	WA.==WA.!<1B<%%X>>
AEJ\4@ L$c	WA.==WAL0.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: :P#S
%%FOO==:0a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g O8%
	BRINI. AOX,B,C,D	
	IRPCOx E,<	UNBRK. "E"P>	
	IRPC F,<	BRP8KCH. "F">	
	EXPPX W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  >P#}
		IFIDN >p<A>,<>,<UERR 10,? 0>
		IFDIF <A>?0,<>,<UERR 10, [AS?PCIZ /A/]>
	   IZ /A/]>
	   G' 7#;
	UETYPE 7010, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE0x A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 7p#A
	UETYPE 81, [ASCIZ \A\]
   SCIZ \A\]
G'' 5P#/
	UTYPE 15p, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  k&p
    IFIDk N <C>,<>,<
	IFIk@DN <B>,<>,<[ASCIk`Z \A\],,.A>
	IlFDIF <B>,<>,<[ASl CIZ \A\],,B>
 l@   >
    IFDIF <l`C>,<>,<
	IFIDN m<B>,<>,<[C
			m  ASCIZ \A\],,.Am@>
	IFDIF <B>,<>m`,<[C
			 ASCIZ n\A\],,B>
    >
],,B>
    >G6" n@&t CMD (A,B,<CM%FW!C>) G6&@ o@' 
	IFDIF <oxB>,<>,< CMD (A,p<[D!B]>,<CM%FW!p8C>) >
	IFIDN <pXB>,<>,< CMD (A,<px[D!.A]>,<CM%FW!C>) >
<CM%FW!(&v0C>) 6'Q0PG6.,@ AP$
		IFIDN Ap<A>,<>,<UERR 13,B 0>
		IFDIF <A>B0,<>,<UERR 13, [ASBPCIZ /A/]>
	   IZ /A/]>
	   G>tlV j&T
	XLIST
j 	MOVEI A,[FLDDB. j@(.CMCFM)]
	CALL RFIELD
	LIST
GCN.: ~H 
	LOC	0
~h	ASCIZ /
COPYRIGHT (C) BY DIGITAL( EQUIPMENT CORPORHATION, MAYNARD, MhASS. 1986
ALL RIGHTS RESERVED.
/
	RELOCVED.
/GSN	  4p#)
	UTYPE 150, [ASCIZ \A\]
   SCIZ \A\]
G^+@ :p#]
		IFIDN ;<A>,<>,<UERR 0, ;00>
		IFDIF <A>,;P<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y 8P#O
	DEFINE 8pA (Z) <
		IFIDN9 <Z>,<>,<UERR B,90 0>
		IFDIF <Z>,9P<>,<UERR B, [ASC9pIZ /Z/]>
	   >
   /]>
	   >
I63 )H"b
   TOPS2)h0<
	.PSECT DATAP*
   >
   TOPS10*(<
	IMPUR0
*H>
A:	IFIDN <B>,<*h>,<BLOCK 1000>
	+IFDIF <B>,<>,<BL+(OCK 1000*B>
   +HTOPS20<
	TOPPAG=+h=.
	.ENDPS DATAP,
   >
   TOPS10,(<
	PURE
   >

	PURE
   >
KSN	  60#5
	UETYPE 6P[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$ DP$-
		IFIDN Dp<A>,<>,<UERR 12,E 0>
		IFDIF <A>E0,<>,<UERR 12, [ASEPCIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g ] &
	..XX==<]@FLD(A,CM%FNC)>+]`B+<Z G>
   IFNB^ <D>,<..XX=CM%HP^ P!..XX>
   IFNB ^@<E>,<..XX=CM%DPP^`!..XX>
   IFNB <_F>,<..XX=CM%BRK!_ ..XX>
	..XX
   _@IFNB <C>,<C>
 _`  IFB <C>,<0>
 `  IFNB <D>,<POIN` T 7,[ASCIZ D]>`@
   IFB <D>,<IF``NB <EF>,<0>>
 a  IFB <E>,<IFNB a <F>,<0>>
   IFNa@B <E>,<POINT 7,[a`ASCIZ \E\]>
   bIFNB <F>,<F>
    <F>,<F>
 M2$*h b@&8
	..XX==<b`FLD(A,CM%FNC)>+cB+<Z G>
   IFNBc  <D>,<..XX=CM%HPc@P!..XX>
   IFNB c`<E>,<..XX=CM%DPPd!..XX>
   IFNB <d F>,<..XX=CM%BRK!d@..XX>
	..XX
   d`IFNB <C>,<C>
 e  IFB <C>,<0>
e   IFNB <D>,<D>
   IFB <D>,<IFNe`B <EF>,<0>>
  f IFB <E>,<IFNB <f F>,<0>>
   IFNBf@ <E>,<POINT 7,[Af`SCIZ \E\]>
   IgFNB <F>,<F>
    <F>,<F>
  M2$HG Y %f

	XLIST
Y@	..XX==<FLD(A,CMY`%FNC)>+B+<Z F>
	IFNB <D>,<..XXZ ==CM%HPP!..XX>
	Z@IFNB <E>,<..XX==Z`CM%DPP!..XX>
	  [  ..XX
	IFNB <C[ >,<C>
	IFB <C>[@,<0>
	IFNB <D>,[`<POINT 7,[ASCIZ \\D\]>
	IFB <D>,\ <IFNB <E>,<0>>
\@	IFNB <E>,<POINT\` 7,[ASCIZ \E\]>
	LIST
M2$H]>Q%#

	XLIST
Qx	..XX==<FLD(A,CMQX%FNC)>+B+<Z F>
	IFNB <D>,<..XXR==CM%HPP!..XX>
	R8IFNB <E>,<..XX==RXCM%DPP!..XX>
	  Rx  ..XX
	IFNB <CS>,<C>
	IFB <C>S8,<0>
	IFNB <D>,SX<D>
	IFB <D>,<SxIFNB <E>,<0>>
	TIFNB <E>,<POINT T87,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y  (",			
	QEXT H <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN!DSB1,FNDTO0,FNDTO!(1>
TOPS20<	QEXT !H<GETTYM> >
	QEXT!h <GETUNM>
	QEXTN" <KBFTOR>
	QEXT "(<MOVMID,MOVOPT,MO"HVSB2,MOVTO,MOVCC>"h
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX#(TSEQ>
	QEXT <PRS#HMS0,PRSMSG,PRTSEQ#h,PRTSQS>
	QEXTN $<R,RSKP>
	QEXT <$(RDTEXT,RELSEQ>
	$HQEXT <SPCCHK>
TO$hPS20<	QEXT <SETTY%M> >
	QEXT <STQD%(L2,STRBUF>
	QEXT%H <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` h!~			
TOPS10<	QEXT <APPBLK> (>
	QEXT <CLZTXT,HCNCLHD>
;**;[307h4][3075] Add EMXGJB in global list(	MDR	14-AUG-86
THOPS20<	QEXT <EDFOhRK,EDTGJB,EMXGJB,EV,EXECFK> >
	QE(XT <RESMSQ,SAVMSQH,MSGQLN>
	QEXT <hFILCOL>
	QEXT <HDRPAG,HSTHLP>
	Q(EXT <KWDTBL>
	QEHXT <LASTM,LCNT,LHhOSTN,LINEW>
	QEXT <LSTCHR,LSTMSG>(
	QEXT <MSGIDX,MHSGJFN,MSGSEQ,MYDIhR,MYDIRS>
	QEXT <MYHDEC,MYHNAM>
(	QEXT <NXTMSG,OBPHTR,OHSN,OHSPTR,OUhTIFN>
	QEXT <REPLIN>
TOPS20<	QEX(T <SAVMOD> >
TOPHS10<	QEXT <SAVPSZh> >
	QEXT <SVMIFN>
	QEXT <TAKPTR(,TCPAG,TOPTRS,TRAHILR>
TOPS10<	QEXhT <TTYUDX> >
	QEXT <TXTCNT,TXTFPG(,TXTMS2,TXTPTR,TXHTTOT>
	QEXT <UPDhPTR,UPDX>
	QEXT <VERSN.>
QEXT ORl+ 18#
	IF2 <IF1XNDEF GTMIND, <EXT1xERNAL GTMIND>>
	2PUSH P,F		;SAVE F28LAGS
	JSP F,GTMI2XND		;CALL ROUTINE2x
	A,,B
	POP P3,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&HECT .LOW.
   >;E&hnd TOPS20
   TOP'S10<
	IFGE .-400'(000,<RELOC>
   >;End TOPS10
 >U.,@ @$	
		IFIDN @0<A>,<>,<UERR 14,@P 0>
		IFDIF <A>@p,<>,<UERR 14, [ASACIZ /A/]>
	   IZ /A/]>
	   UH6 F$9
		IFIDN F0<A>,<>,<UERR 16,FP 0>
		IFDIF <A>Fp,<>,<UERR 16, [ASGCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 C$!
		IFIDN C0<A>,<>,<UERR 17,CP 0>
		IFDIF <A>Cp,<>,<UERR 17, [ASDCIZ /A/]>
	   IZ /A/]>
	   U^+@ =0#q
		IFIDN =P<A>,<>,<UERR 7, =p0>
		IFDIF <A>,><>,<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: H!

   TOPhS10<
	IFNDEF .GTLPN,<.GTLPN==-10>(	; Original loggeHd-in PPN
	TWOSEGh
	RELOC 400000
   >;End TOPS10
(
   TOPS20<
	.PHSECT .HIGH.

BYh2PAG==5000			; [JCR]Bytes to a pag(e
WD2PAG==1000
H
CTCCHN==0			; ^hC ON CHAN 0
TMRCHN==5			; TIMER O(N CHAN 5

H>

   TOPS10<
BYh2PAG==1200			; Bytes to a "page" ((TOPS10 disk blockH)
WD2PAG==200			h; Words to a "page" (TOPS10 disk b(lock)
NQBFSZ==20H0			; Words in dihsk buffer
   >;End TOPS10

WRDP(AG==1000			; [JCRH]Words to a page
BY2WRD==5			; [JCR]Bytes to a wor(d

TAKPTN==3*20H			; Length of tahke IFN stack (FOB	 size, addr, IFN)	(


; AC's

O	H=0				; CAUTION -	h- Clobbered by al
l GLXLIB stuff!!
(
A=1				; Temp an
Hd JSYS
B=2				; 
hDitto
C=3				; Ditto
D=4				; Di(tto
E=5				; TemHp & local to routhine
T=6				; Dit
to
U=7				; Ditt
(o
V=10				; Ditt
Ho - frequently is
htarcharacter poin
W=11				; Di
L=12				;eByonlisers
M=13				; Cu(rrent message if Hany (message numbher)
MX=M				; M, when pointing to( current msg blocHk
F=14				; Flaghs
X=15				; Often horizontal curs(or position
CX=1H6				; Used by mahcros
P=17

IFN <TF>,<PRINTX ?WA(RNING -- GLXLIB AHC conventions havhe changed - TF>
IFN <A-S1>,<PRINT(X ?WARNING -- GLXHLIB AC conventionhs have changed - S1>
IFN <B-S2>,<(PRINTX ?WARNING -H- GLXLIB AC convehntions have changed - S2>

ang[bm}@ q8'
	XLIST
qX    IRP C,<
	GTqxMBL (M,A)
	GTMBrL (X,B)
	MOVE r8A,MSGC(A)
	MOVrXEM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2ph\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
h`	MOVEI A,[FLDDB. i(.CMNOI,,<POINT 7i ,[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}\ g@&@
	XLIST
g`	HRROI A,[ASCIZ hA]
	CALL DPROMPT
	LIST
PROMaWP 'h"H
   TOPS2(0<
	.ENDPS
	.PS((ECT .HIGH.
   >;(HEnd TOPS20
   TO(hPS10<
	IFL .-400)000,<RELOC>
   >;End TOPS10
 >cF@ (!*
	IF2<
	HIRP A,<
	IFDEF hA,<INTERNAL A>
	IFNDEF A,<EXTE(RNAL A>
	>
	>
L A>
	>
	>FK@ h!2
	IF2<
	IRP A,<
	IFNDEF( A,<EXTERNAL A>
	>
	>
L A>e\| t8')
	SKIPN RtXEDLVL		
	JRST .+tx4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x -"iJRST RSKPkJRST RSKPe^TkWQ @g5\| s'
	SKIPN Rs8EDLVL		
	JRST .+sX4
	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 4##
	UTYPE [40ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv
P kv=P k  k' `k:*g Gp$A
%%FOO==Ha
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` <#g
		IFIDN <0<A>,<>,<UERR 3, <P0>
		IFDIF <A>,<p<>,<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