Google
 

Trailing-Edge - PDP-10 Archives - BB-KL11L-BM_1990 - t20src/msunv.unv
There are 35 other files named msunv.unv in the archive. Click here to see a list.
x
,Uz@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: 8(J			
	LDB 8HC,[POINT 6,A,5]
8h	MOVEI V,1(A)
	I9MULI V,5
	IDIVI 9(C,7
	SUBI V,(C)

	SUBIV,(C)W@@
W0.==A
W1.==B				;InitWhialize break maskX
W2.==C
W3.==D
==C
W3.==.00TAL00EJZ Q`"	..V22==aR
	..V1==a
	IFNR B <B>,<..V22==BR@>
REPEAT ..V22-<R`a>+1,<	
	%%W==.S.V1/^D32	
	%%X==S ..V1-%%W*^D32	
	S@IFE C,BRKC1 \"<%S`%W+"0">	
	IFN CT,BRKC2 \"<%%W+"0"T >
	..V1==..V1+1
		   >
.V1+1 T`&	WA.==WA.!<1B<%%X>>
AEJ\4@ U ,	WA.==WAU@.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: C`
%%FOO==C@a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g XHN
	BRINI. AXh,B,C,D	
	IRPCY E,<	UNBRK. "E"Y(>	
	IRPC F,<	BRYHKCH. "F">	
	EXPYh W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  G`F
		IFIDN H<A>,<>,<UERR 10,H  0>
		IFDIF <A>H@,<>,<UERR 10, [ASH`CIZ /A/]>
	   IZ /A/]>
	   G' @ 
	UETYPE @@10, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE: A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 A

	UETYPE A 1, [ASCIZ \A\]
   SCIZ \A\]
G'' >`x
	UTYPE 1?, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  t9
    IFIDt0N <C>,<>,<
	IFItPDN <B>,<>,<[ASCItpZ \A\],,.A>
	IuFDIF <B>,<>,<[ASu0CIZ \A\],,B>
 uP   >
    IFDIF <upC>,<>,<
	IFIDN v<B>,<>,<[C
			v0 ASCIZ \A\],,.AvP>
	IFDIF <B>,<>vp,<[C
			 ASCIZ w\A\],,B>
    >
],,B>
    >G6" wP= CMD (A,B,<CM%FW!C>) G6&@ xPP
0
	IFDIF <yB>,<>,< CMD (A,y(<[D!B]>,<CM%FW!yHC>) >
	IFIDN <yhB>,<>,< CMD (A,<z[D!.A]>,<CM%FW!C>) >
<CM%FW!T?0C>) u0G6.,@ J`^
		IFIDN K<A>,<>,<UERR 13,K  0>
		IFDIF <A>K@,<>,<UERR 13, [ASK`CIZ /A/]>
	   IZ /A/]>
	   G>tlV s
	XLIST
s0	MOVEI A,[FLDDB. sP(.CMCFM)]
	CALL RFIELD
	LIST
GCN.: 87
	LOC	0
X	ASCIZ /
COPYRIGxHT (C) BY DIGITAL EQUIPMENT CORPOR8ATION, MAYNARD, MXASS. 1986
ALL RIxGHTS RESERVED.
/
	RELOCVED.
/GSN	  >r
	UTYPE 1> 0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ D&
		IFIDN D <A>,<>,<UERR 0, D@0>
		IFDIF <A>,D`<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y A`
	DEFINE BA (Z) <
		IFIDNB  <Z>,<>,<UERR B,B@ 0>
		IFDIF <Z>,B`<>,<UERR B, [ASCCIZ /Z/]>
	   >
   /]>
	   >
I63 2X+
   TOPS22x0<
	.PSECT DATAP3
   >
   TOPS1038<
	IMPUR0
3X>
A:	IFIDN <B>,<3x>,<BLOCK 1000>
	4IFDIF <B>,<>,<BL48OCK 1000*B>
   4XTOPS20<
	TOPPAG=4x=.
	.ENDPS DATAP5
   >
   TOPS1058<
	PURE
   >

	PURE
   >
KSN	  ?@~
	UETYPE ?`[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$ M`v
		IFIDN N<A>,<>,<UERR 12,N  0>
		IFDIF <A>N@,<>,<UERR 12, [ASN`CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g f0Y
	..XX==<fPFLD(A,CM%FNC)>+fpB+<Z G>
   IFNBg <D>,<..XX=CM%HPg0P!..XX>
   IFNB gP<E>,<..XX=CM%DPPgp!..XX>
   IFNB <hF>,<..XX=CM%BRK!h0..XX>
	..XX
   hPIFNB <C>,<C>
 hp  IFB <C>,<0>
 i  IFNB <D>,<POINi0T 7,[ASCIZ D]>iP
   IFB <D>,<IFipNB <EF>,<0>>
 j  IFB <E>,<IFNB j0<F>,<0>>
   IFNjPB <E>,<POINT 7,[jpASCIZ \E\]>
   kIFNB <F>,<F>
    <F>,<F>
 M2$*h kP
	..XX==<kpFLD(A,CM%FNC)>+lB+<Z G>
   IFNBl0 <D>,<..XX=CM%HPlPP!..XX>
   IFNB lp<E>,<..XX=CM%DPPm!..XX>
   IFNB <m0F>,<..XX=CM%BRK!mP..XX>
	..XX
   mpIFNB <C>,<C>
 n  IFB <C>,<0>
n0  IFNB <D>,<D>
   IFB <D>,<IFNnpB <EF>,<0>>
  o IFB <E>,<IFNB <o0F>,<0>>
   IFNBoP <E>,<POINT 7,[AopSCIZ \E\]>
   IpFNB <F>,<F>
    <F>,<F>
  M2$HG b0/

	XLIST
bP	..XX==<FLD(A,CMbp%FNC)>+B+<Z F>
	IFNB <D>,<..XXc0==CM%HPP!..XX>
	cPIFNB <E>,<..XX==cpCM%DPP!..XX>
	  d  ..XX
	IFNB <Cd0>,<C>
	IFB <C>dP,<0>
	IFNB <D>,dp<POINT 7,[ASCIZ \eD\]>
	IFB <D>,e0<IFNB <E>,<0>>
eP	IFNB <E>,<POINTep 7,[ASCIZ \E\]>
	LIST
M2$H]>Z(l

	XLIST
[	..XX==<FLD(A,CMZh%FNC)>+B+<Z F>
	IFNB <D>,<..XX[(==CM%HPP!..XX>
	[HIFNB <E>,<..XX==[hCM%DPP!..XX>
	  \  ..XX
	IFNB <C\(>,<C>
	IFB <C>\H,<0>
	IFNB <D>,\h<D>
	IFB <D>,<]IFNB <E>,<0>>
	](IFNB <E>,<POINT ]H7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y )8u			
	QEXT)X <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN*DSB1,FNDTO0,FNDTO*81>
TOPS20<	QEXT *X<GETTYM> >
	QEXT*x <GETUNM>
	QEXTN+ <KBFTOR>
	QEXT +8<MOVMID,MOVOPT,MO+XVSB2,MOVTO,MOVCC>+x
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX,8TSEQ>
	QEXT <PRS,XMS0,PRSMSG,PRTSEQ,x,PRTSQS>
	QEXTN -<R,RSKP>
	QEXT <-8RDTEXT,RELSEQ>
	-XQEXT <SPCCHK>
TO-xPS20<	QEXT <SETTY.M> >
	QEXT <STQD.8L2,STRBUF>
	QEXT.X <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` xG			
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+ :Hb
	IF2 <IF:hNDEF GTMIND, <EXT;ERNAL GTMIND>>
	;(PUSH P,F		;SAVE F;HLAGS
	JSP F,GTMI;hND		;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 /
   TOPS2/80<
	.ENDPS
	.PS/XECT .LOW.
   >;E/xnd TOPS20
   TOP0S10<
	IFGE .-40008000,<RELOC>
   >;End TOPS10
 >U.,@ I R
		IFIDN I@<A>,<>,<UERR 14,I` 0>
		IFDIF <A>J,<>,<UERR 14, [ASJ CIZ /A/]>
	   IZ /A/]>
	   UH6 O 
		IFIDN O@<A>,<>,<UERR 16,O` 0>
		IFDIF <A>P,<>,<UERR 16, [ASP CIZ /A/]>
	   IZ /A/]>
	   UJ.I9 L j
		IFIDN L@<A>,<>,<UERR 17,L` 0>
		IFDIF <A>M,<>,<UERR 17, [ASM CIZ /A/]>
	   IZ /A/]>
	   U^+@ F@:
		IFIDN F`<A>,<>,<UERR 7, G0>
		IFDIF <A>,G <>,<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: 8g

   TOPXS10<
	IFNDEF .GTxLPN,<.GTLPN==-10>	; Original logge8d-in PPN
	TWOSEGX
	RELOC 400000
x   >;End TOPS10
	
   TOPS20<
	.P	8SECT .HIGH.

BY	X2PAG==5000			; [J	xCR]Bytes to a pag
e
WD2PAG==1000

8
CTCCHN==0			; ^
XC ON CHAN 0
TMRC
xHN==5			; TIMER ON CHAN 5

8>

   TOPS10<
BYX2PAG==1200			; Byxtes to a "page" (
TOPS10 disk block
8)
WD2PAG==200			
X; Words to a "pag
xe"c(TOPS10 disk b
NQBFSZ==20s in di

USRB777777,,757760		;[3109] Define8 username break mXask
USRB1.==7475x44,,1760		;[3109]
USRB2.==400000,8,740		;[3109]
USXRB3.==400000,,760x		;[3109]
   >;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>,<PRINT8X ?WARNING -- GLXXLIB AC conventionxs have changed - S1>
IFN <B-S2>,<8PRINTX ?WARNING -X- GLXLIB AC convexntions have changed - S2>

ang[bm}@ zH^
	XLIST
zh    IRP C,<
	GT{MBL (M,A)
	GTMB{(L (X,B)
	MOVE {HA,MSGC(A)
	MOV{hEM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pq\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
qp	MOVEI A,[FLDDB. r(.CMNOI,,<POINT 7r0,[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}\ pP	
	XLIST
pp	HRROI A,[ASCIZ qA]
	CALL DPROMPT
	LIST
PROMaWP 0x
   TOPS210<
	.ENDPS
	.PS18ECT .HIGH.
   >;1XEnd TOPS20
   TO1xPS10<
	IFL .-4002000,<RELOC>
   >;End TOPS10
 >cF@ 8s
	IF2<
	XIRP A,<
	IFDEF xA,<INTERNAL A>
	IFNDEF A,<EXTE8RNAL A>
	>
	>
L A>
	>
	>FK@ x{
	IF2<
	IRP A,<
	IFNDEF8 A,<EXTERNAL A>
	>
	>
L A>e\| }Hr
	SKIPN R}hEDLVL		
	JRST .+~4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x 6(2JRST RSKP4JRST RSKPe^TkWQ @g5\| |(h
	SKIPN R|HEDLVL		
	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 = l
	UTYPE [=@ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv
P kv=P k  k' `k:*g Q

%%FOO==Q a
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` E 0
		IFIDN E@<A>,<>,<UERR 3, E`0>
		IFDIF <A>,F<>,<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