Google
 

Trailing-Edge - PDP-10 Archives - BB-JR93K-BB_1990 - 10,7/decmai/mx/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: +pg			
	LDB ,C,[POINT 6,A,5]
,0	MOVEI V,1(A)
	I,PMULI V,5
	IDIVI ,pC,7
	SUBI V,(C)

	SUBIV,(C)JH]v
W0.==A
W1.==B				;InitK0ialize break maskKP
W2.==C
W3.==D
==C
W3.==2J060TAL\ 0,0H:pEJZ E(>	..V22==aEH
	..V1==a
	IFNEhB <B>,<..V22==BF>
REPEAT ..V22-<F(a>+1,<	
	%%W==.FH.V1/^D32	
	%%X==Fh..V1-%%W*^D32	
	GIFE C,BRKC1 \"<%G(%W+"0">	
	IFN CGH,BRKC2 \"<%%W+"0"Gh>
	..V1==..V1+1
		   >
.V1+1 H(B	WA.==WA.!<1B<%%X>>
AEJ\4@ HhH	WA.==WAI.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: 7(8
%%FOO==7a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g Lk
	BRINI. AL0,B,C,D	
	IRPCLP E,<	UNBRK. "E"Lp>	
	IRPC F,<	BRMKCH. "F">	
	EXPM0 W0.,W1.,W2.,W3.		
W1.,W2.,W3.	EV4[RP jF<]Q @Ge@ ,GeLR +G  ;(b
		IFIDN ;H<A>,<>,<UERR 10,;h 0>
		IFDIF <A><,<>,<UERR 10, [AS<(CIZ /A/]>
	   IZ /A/]>
	   G' 3h 
	UETYPE 410, [ASCIZ \A\]
G#SCIZ\A\]			
	MOVE-P A,V
	ADJBP A,[POINT 7,0]
A,[PG&.N8 4H&
	UETYPE 4h1, [ASCIZ \A\]
   SCIZ \A\]
G'' 2(
	UTYPE 12H, [ASCIZ \A\]
   SCIZ \A\]
 G*5kP G6  gXU
    IFIDgxN <C>,<>,<
	IFIhDN <B>,<>,<[ASCIh8Z \A\],,.A>
	IhXFDIF <B>,<>,<[AShxCIZ \A\],,B>
 i   >
    IFDIF <i8C>,<>,<
	IFIDN iX<B>,<>,<[C
			ix ASCIZ \A\],,.Aj>
	IFDIF <B>,<>j8,<[C
			 ASCIZ jX\A\],,B>
    >
],,B>
    >G6" kY CMD (A,B,<CM%FW!C>) G6&@ lm}x
	IFDIF <lPB>,<>,< CMD (A,lp<[D!B]>,<CM%FW!mC>) >
	IFIDN <m0B>,<>,< CMD (A,<mP[D!.A]>,<CM%FW!C>) >
<CM%FW!p[0C>) 70[N>,YG6.,@ >(z
		IFIDN >H<A>,<>,<UERR 13,>h 0>
		IFDIF <A>?,<>,<UERR 13, [AS?(CIZ /A/]>
	   IZ /A/]>
	   G>tlV fX9
	XLIST
fx	MOVEI A,[FLDDB. g(.CMCFM)]
	CALL RFIELD
	LIST
GCN.: { f
	LOC	0
{@	ASCIZ /
COPYRIG{`HT (C) BY DIGITAL| EQUIPMENT CORPOR| ATION, MAYNARD, M|@ASS. 1986
ALL RI|`GHTS RESERVED.
/
	RELOCVED.
/GSN	  1H
	UTYPE 11h0, [ASCIZ \A\]
   SCIZ \A\]
G^+@ 7HB
		IFIDN 7h<A>,<>,<UERR 0, 80>
		IFDIF <A>,8(<>,<UERR 0, [ASCIZ /A/]>
	   II4\Y 5(4
	DEFINE 5HA (Z) <
		IFIDN5h <Z>,<>,<UERR B,6 0>
		IFDIF <Z>,6(<>,<UERR B, [ASC6HIZ /Z/]>
	   >
   /]>
	   >
I63 & H
   TOPS2&@0<
	.PSECT DATAP&`
   >
   TOPS10'<
	IMPUR0
' >
A:	IFIDN <B>,<'@>,<BLOCK 1000>
	'`IFDIF <B>,<>,<BL(OCK 1000*B>
   ( TOPS20<
	TOPPAG=(@=.
	.ENDPS DATAP(`
   >
   TOPS10)<
	PURE
   >

	PURE
   >
KSN	  3
	UETYPE 3([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$ A(
		IFIDN AH<A>,<>,<UERR 12,Ah 0>
		IFDIF <A>B,<>,<UERR 12, [ASB(CIZ /A/]>
	   IZ /A/]>
	   M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g Yxu
	..XX==<ZFLD(A,CM%FNC)>+Z8B+<Z G>
   IFNBZX <D>,<..XX=CM%HPZxP!..XX>
   IFNB [<E>,<..XX=CM%DPP[8!..XX>
   IFNB <[XF>,<..XX=CM%BRK![x..XX>
	..XX
   \IFNB <C>,<C>
 \8  IFB <C>,<0>
 \X  IFNB <D>,<POIN\xT 7,[ASCIZ D]>]
   IFB <D>,<IF]8NB <EF>,<0>>
 ]X  IFB <E>,<IFNB ]x<F>,<0>>
   IFN^B <E>,<POINT 7,[^8ASCIZ \E\]>
   ^XIFNB <F>,<F>
    <F>,<F>
 M2$*h _
	..XX==<_8FLD(A,CM%FNC)>+_XB+<Z G>
   IFNB_x <D>,<..XX=CM%HP`P!..XX>
   IFNB `8<E>,<..XX=CM%DPP`X!..XX>
   IFNB <`xF>,<..XX=CM%BRK!a..XX>
	..XX
   a8IFNB <C>,<C>
 aX  IFB <C>,<0>
ax  IFNB <D>,<D>
   IFB <D>,<IFNb8B <EF>,<0>>
  bX IFB <E>,<IFNB <bxF>,<0>>
   IFNBc <E>,<POINT 7,[Ac8SCIZ \E\]>
   IcXFNB <F>,<F>
    <F>,<F>
  M2$HG UxK

	XLIST
V	..XX==<FLD(A,CMV8%FNC)>+B+<Z F>
	IFNB <D>,<..XXVx==CM%HPP!..XX>
	WIFNB <E>,<..XX==W8CM%DPP!..XX>
	  WX  ..XX
	IFNB <CWx>,<C>
	IFB <C>X,<0>
	IFNB <D>,X8<POINT 7,[ASCIZ \XXD\]>
	IFB <D>,Xx<IFNB <E>,<0>>
Y	IFNB <E>,<POINTY8 7,[ASCIZ \E\]>
	LIST
M2$H]>Mp	

	XLIST
NP	..XX==<FLD(A,CMN0%FNC)>+B+<Z F>
	IFNB <D>,<..XXNp==CM%HPP!..XX>
	OIFNB <E>,<..XX==O0CM%DPP!..XX>
	  OP  ..XX
	IFNB <COp>,<C>
	IFB <C>P,<0>
	IFNB <D>,P0<D>
	IFB <D>,<PPIFNB <E>,<0>>
	PpIFNB <E>,<POINT Q7,[ASCIZ \E\]>
	LIST
    ]>
O2|,Y 			
	QEXT  <DFSQNW,DFSQTH>
	QEXT <FNDHDR,FN`DSB1,FNDTO0,FNDTO1>
TOPS20<	QEXT  <GETTYM> >
	QEXT@ <GETUNM>
	QEXTN` <KBFTOR>
	QEXT <MOVMID,MOVOPT,MO VSB2,MOVTO,MOVCC>@
	QEXT <MOVSUB>
	QEXT <NXTNEW,NX TSEQ>
	QEXT <PRS  MS0,PRSMSG,PRTSEQ @,PRTSQS>
	QEXTN  `<R,RSKP>
	QEXT <!RDTEXT,RELSEQ>
	! QEXT <SPCCHK>
TO!@PS20<	QEXT <SETTY!`M> >
	QEXT <STQD"L2,STRBUF>
	QEXT"  <TRANSH>
	QEXT <YESNO>
	QEXT O2|,` @d			
TOPS1`0<	QEXT <APPBLK> >
	QEXT <CLZTXT, CNCLHD>
;**;[307@4][3075] Add EMXG`JB in global list	MDR	14-AUG-86
T OPS20<	QEXT <EDFO@RK,EDTGJB,EMXGJB,`EV,EXECFK> >
	QEXT <RESMSQ,SAVMSQ ,MSGQLN>
	QEXT <@FILCOL>
	QEXT <H`DRPAG,HSTHLP>
	QEXT <KWDTBL>
	QE XT <LASTM,LCNT,LH@OSTN,LINEW>
	QEX`T <LSTCHR,LSTMSG>
	QEXT <MSGIDX,M SGJFN,MSGSEQ,MYDI@R,MYDIRS>
	QEXT `<MYHDEC,MYHNAM>
	QEXT <NXTMSG,OBP TR,OHSN,OHSPTR,OU@TIFN>
	QEXT <REP`LIN>
TOPS20<	QEXT <SAVMOD> >
TOP S10<	QEXT <SAVPSZ@> >
	QEXT <SVMIF`N>
	QEXT <TAKPTR,TCPAG,TOPTRS,TRA ILR>
TOPS10<	QEX@T <TTYUDX> >
	QE`XT <TXTCNT,TXTFPG,TXTMS2,TXTPTR,TX TTOT>
	QEXT <UPD@PTR,UPDX>
	QEXT <VERSN.>
QEXT ORl+ .
	IF2 <IF.0NDEF GTMIND, <EXT.PERNAL GTMIND>>
	.pPUSH P,F		;SAVE F/LAGS
	JSP F,GTMI/0ND		;CALL ROUTINE/P
	A,,B
	POP P/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#0<
	.ENDPS
	.PS# ECT .LOW.
   >;E#@nd TOPS20
   TOP#`S10<
	IFGE .-400$000,<RELOC>
   >;End TOPS10
 >U.,@ <hn
		IFIDN =<A>,<>,<UERR 14,=( 0>
		IFDIF <A>=H,<>,<UERR 14, [AS=hCIZ /A/]>
	   IZ /A/]>
	   UH6 Bh
		IFIDN C<A>,<>,<UERR 16,C( 0>
		IFDIF <A>CH,<>,<UERR 16, [ASChCIZ /A/]>
	   IZ /A/]>
	   UJ.I9 ?h
		IFIDN @<A>,<>,<UERR 17,@( 0>
		IFDIF <A>@H,<>,<UERR 17, [AS@hCIZ /A/]>
	   IZ /A/]>
	   U^+@ :V
		IFIDN :(<A>,<>,<UERR 7, :H0>
		IFDIF <A>,:h<>,<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: } 

   TOP}@S10<
	IFNDEF .GT}`LPN,<.GTLPN==-10>~	; Original logge~ d-in PPN
	TWOSEG~@
	RELOC 400000
~`   >;End TOPS10

   TOPS20<
	.P SECT .HIGH.

BY@2PAG==5000			; [J`CR]Bytes to a page
WD2PAG==1000
 
CTCCHN==0			; ^@C ON CHAN 0
TMRC`HN==5			; TIMER ON CHAN 5

 >

   TOPS10<
BY@2PAG==1200			; By`tes to a "page" (TOPS10 disk block )
WD2PAG==200			@; Words to a "pag`e" (TOPS10 disk block)
NQBFSZ==20 0			; Words in di@sk buffer
   >;E`nd TOPS10

WRDPAG==1000			; [JCR ]Words to a page
BY2WRD==5			; [J`CR]Bytes to a word

TAKPTN==3*20 			; Length of ta@ke IFN stack (FOB` size, addr, IFN)


; AC's

O =0				; CAUTION -@- Clobbered by al`l GLXLIB stuff!!
A=1				; Temp an d JSYS
B=2				; @Ditto
C=3				; D`itto
D=4				; Ditto
E=5				; Tem p & local to rout@ine
T=6				; Dit`to
U=7				; Ditt	o
V=10				; Ditt	 o - frequently is	@ a character poin	`ter
W=11				; Di
tto
L=12				; By
 te pointer to lis
@t of message numb
`ers
M=13				; Current message if  any (message numb@er)
MX=M				; M,` when pointing to
 current msg bloc
 k
F=14				; Flag
@s
X=15				; Ofte
`nrhorizontal curs
CX=1	; Used by ma
P=17

IFNF>,<PRINTX ?WARNING -- GLXLIB A C conventions hav@e changed - TF>
`IFN <A-S1>,<PRINTX ?WARNING -- GLX LIB AC convention@s have changed - `S1>
IFN <B-S2>,<PRINTX ?WARNING - - GLXLIB AC conve@ntions have changed - S2>

ang[bm}@ n{
	XLIST
n0    IRP C,<
	GTnPMBL (M,A)
	GTMBnpL (X,B)
	MOVE oA,MSGC(A)
	MOVo0EM A,MSGC(B)
>
	LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pe\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
	XLIST
e8	MOVEI A,[FLDDB. eX(.CMNOI,,<POINT 7ex,[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}\ d%
	XLIST
d8	HRROI A,[ASCIZ dXA]
	CALL DPROMPT
	LIST
PROMaWP $@.
   TOPS2$`0<
	.ENDPS
	.PS%ECT .HIGH.
   >;% End TOPS20
   TO%@PS10<
	IFL .-400%`000,<RELOC>
   >;End TOPS10
 >cF@ 
	IF2<
	 IRP A,<
	IFDEF @A,<INTERNAL A>
	IFNDEF A,<EXTERNAL A>
	>
	>
L A>
	>
	>FK@ @
	IF2<
	`IRP A,<
	IFNDEF A,<EXTERNAL A>
	>
	>
L A>e\| q
	SKIPN Rq0EDLVL		
	JRST .+qP4
	MOVEM F,SAVF
	JSP F,RESMSQ		
	MOVE F,SAVF
e  ,~e&:x )pOJRST RSKPQJRST RSKPe^TkWQ @g5\| op
	SKIPN RpEDLVL		
	JRST .+p04
	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 0h
	UTYPE [1ASCIZ \A\]
   SCIZ \A\]
   kuI7P kv
P kv=P k  k' `k:*g DH&
%%FOO==Dha
	BRK0 (%%FOO,B,1)
 (%%FOO,kSN	  @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` 8hL
		IFIDN 9<A>,<>,<UERR 3, 9(0>
		IFDIF <A>,9H<>,<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