PDP-10 Archive: cobol-build/gendcl.unv from BB-Z759A-SM

Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-build/gendcl.unv

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

x
,5@P C@@ CJ8I0P CJ8MP CJ8M7P CJ8Y0P CJ8]P CJ8]7P CJ9i0P CJ9mP CJ9m7P CK  x'O
	  T1.==x81
	  IFNB <B>,<xX
	    T1.==B
	xx    IFN 100000*T1y.-100000*B,<T1.=y8=T1.+1>
	  >
	 yX A==OFFS. - 1
	yx  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO lX&q
	GETLEN	lx<C>
A:	POINT 7m,.+2
	XWD	B,LENm8.
	ASCII\C\
	TmX1.==<LEN.+4>/5
	mxT1.==T1.*5
	T1.=n=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP (117B12+AE2^:= z8'U
	  A==OzXFFS.
	  OFFS.==0
	
	  OFFS.==0E3&x 1x#
	  T1.==2B-A+1
	  SUB	P28,[T1.,,T1.]
	  H2XRLZ	AP,P
	  ADD	2xAP,[1,,A]
	  BLT	AP,B
		  BLE3&8; 0#
	  HRRZ	08R0,P
	  ADD	R0,[0XA,,1]		
	  BLT	0xR0,B(P)
	  T1.=1=B-A+1
	  ADD	18P,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ nX&w
	  POINTnx A$B,A.BC,A%B
	A.BC,AE@$X P E@&yP E@&:=P E@&[ZP E@,X P E@.yP E@.:=P E@.[ZP E@tX P E@vyP E@v:=P E@v[ZP Eg$\` qX'
	  POS.=qx=-1
	  IRP B,<DrUMMY(A,B)>
	  r8OFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ rx'
	  POS.=s=-1
	  IRP C,<Ds8UMMY(A,C,B)>
sX	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VPGtHUPGtMPGti@PGtj6P GukqP Gum6P GuxzP Gv2P Gv
	  JRST	X@[EXP .+1,B](A)
	.+1,B](A)GH1 +ICASA::sG~	@ ? +z^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHA<8N==B
	  $$$A===81B<^D35-B>
	  I=XNI.CH==INI.CH ! $$$A
	I.CH ! $G7%` #X*3
	SAVE	<R#x2,R3,R4>
	MOVEI	$0,A
	MOVEI	1,B$8
	MOVEI	4,C
	H$XRR	2,0
	HRLI	2,($xPOINT 7,)
	HRR	3%,1
	HRLI	3,(POIN%8T 7,)
	ILDB	0,2
	ILDB	1,3
	CAME%x	0,1
	JRST	.+3
&	SOJG	4,.-4
	SET&8ZM	1
	RESTOR	<R4,R3,R2>
	R	<R4G? 8)c
	WHATYP	X<A>
	IFE SYM..+x1,<
	MOVEI	A,B>
	IFN SYM..+1,<8
	MOVEI	0,B
	MOVEM	0,A>

	MG? X)W
	WHATYP	x<A>
	IFE SYM..+1,<
	MOVE	A,B>8
	IFN SYM..+1,<
	  WHATYP <B>
x	  IFN SYM..+1,<
	  MOVE	0,B
	 8 MOVEM	0,A>
	  XIFE SYM..+1,<
	 x MOVEM	B,A>
	>
EM	B,A>
	>G?`  x*
	SAVE	<R!2,R3,R4>
	MOVEI	!80,B
	MOVEI	1,A!X
	MOVEI	4,C
	H!xRR	2,0
	HRLI	2,("POINT 7,)
	HRR	3"8,1
	HRLI	3,(POIN"XT 7,)
	ILDB	0,2
	IDPB	0,3
	SOJG#	R4,.-2
	RESTOR	<R4,R3,R2>
	R	GC8P I$ `X&	
	IFB<B>`x,<	A: BLOCK 1>
a	IFNB<B>,<	A: BLOCK B>
	A: BI )		
	REPEA8T 5-B,<IBP	A>
	SOS	A
	A>
I~  x*
	WHATYP	<A>
	IFE SYM..+81,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+1,<
	  WHATYP	<B8>
	  IFN SYM..+1X,<
	xMOVE	0,B
	  MOVEM	0,A
	  MOVE	0,1+B
	 8 MOVEM	0,1+A
	 X >
	  IFE SYM..+x1,<
	  MOVEM	B, A
	  MOVEM	B+1 8,1+A
	  >
	>
	A
	  >
	>
IVm^  o8&{
	ONEBYT(A,B,C)
	YT(KK U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	KK0 U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@P@L:%@P L:%VP L:/
L:myP L:myP L:t2P L:t6P L;iP L;I7P 
M&-I tx'5
	  T1.=1u
	u8IFNB <B>,<
	    T1.==B
	 uX   IFN 100000*T1.ux-100000*B,<T1.==vT1.+1>
	  >
	  v8A==OFFS.
	  OFFvXS.==OFFS.+T1.
	.==OFFS.+T1.
	M&d\Y U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	M&d\Y U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	M'4P (=[5]M?.  (;[4]MVt= O@-
	SALL
	O`ARGS.=0
	IF2, <IPFNDEF A,<EXTERNAP L A>>
	P`IFB <P@B>,<	PUSHJ P,A>
	  IFNB <B>,<
Q	  IRP B,<ARGS.=Q ARGS.+1>
	  MOVEQ@I	AP,[-ARGS.,,0
Q`	  IRP B,<B>
	R  ]+1
	  PUSHJ	P,A
	  >
	OH  ^X&
	  IFNDE^xF GDATA.,<EXTERN _A>
	  IFDEF GDA_8TA.,<
	    IFB<_XB>,<A:: BLOCK 1>_x
	    IFNB<B>,<`A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 (#
	  LEN.=80
	  IRPC A,<LEN.=LEN.+1>
	LEO2` TX%)
	IF2, <ITxFNDEF A,<EXTERNAUL A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p aX&'		
	  IFBax <B>,<GREG.==GREbG.-1>
	  IFNB <b8B>,<GREG.==B>
	bX  IFL GREG.-LGREGbx.,<LGREG.=GREG.>
	  A=GREG.
	  c8IFDEF .A,<
	cx cX IFN .A+GREG.,<
	      PRINTX ;"dA" ALTER-EGO ALRd8EADY IN USE
	   dX >
	  >
	  IFNDdxEF .A,<  .A==-GREG.>
	.A==-GOW% [X%q
	SALL
	[xIF2, <IFNDEF A,<\EXTERNAL A>>
	A\8RGS.=0
	\xIFB <\XB>,<	PUSHJ P,A>
	  IFNB <B>,<
]	  IRP B,<ARGS.=]8ARGS.+1>
	  MOVE]XI	AP,[-ARGS.,,0
]x	  IRP B,<B>
	^  ]+1
	  PUSHJ	P,A
	  >
	J	PQlYP S;HwP 	S;IZP 	S;XwP S;YZP S;h9P S;hwP S;hxP S;iZP S;H1P S;J2P S;J7P S;K2P 	S;KxP S;X1P S;Z2P S;Z7P S;[2P S;[xP S;h1P S;j2P S;j7P S;k2P S;kxP S;  (/2B12+AY &x*W
	  IFNDE'F B$C,<T1.==^D3'86>
	  IFDEF B$'XC,<T1.==B$C>
	'x  IFE T1.-^D36,<M(OVE A,B.CD>
(8	  IFN T1.-^D36,<(X
	    IFN T1.-^D(x18,<LDB A,[BP ()B,C,D)]>
	    )8IFE T1.-^D18,<
	)X      T1.==B%C
	      IFE T1.-^*D17,<HLRZ A,B.*8CD>
	      IFE *XT1.-^D35,<HRRZ A*x,B.CD>
	    >
	  >
		    >Y/ +8*{		
	  IFN+XDEF B$C,<T1.==^+xD36>
	,8IFDEF B,$C,<T1.==B$C>
	  IFE T1.-^D36,,X<MOVE A,B.CD>,x
	  IFN T1.-^D36-,<
	    IFN T1.--8^D18,<LDB A,[BP -X(B,C,D)]>
	.-x  IFE T1.-^D18,<
	      T1.==B%.8C
	      IFE T1..X-^D17,<HLRE A,B.x.CD>
	      IF/E T1.-^D35,<HRRE /8A,B.CD>
	    >
	  >
		   Yi  9X#MPOP$A+HMREG.-MREG.$A+HMREY&u0 V8%G
	SALL
	VXARGS.=0
	IF2, <IVxFNDEF A,<EXTERNAWL A>>
	WXIFB <W8B>,<	PUSHJ P,A>
	  IFNB <B>,<
Wx	  IRP B,<ARGS.=XARGS.+1>
	  MOVEX8I	AP,[-ARGS.,,0
XX	  IRP B,<B>
	Xx  ]+1
	  PUSHJ	P,A
	  >
	[3@ }'i<<<1_<A>>-1>B<B>>_<A>>[83 (
	EXP	[
8	  IRP B,<
	  AXCT..=0
	    IRPCx B,<IFIDN <-><B>,<ACT..=1>
				8  STOPI>
	    IFXN ACT..,<
	    xB
	    >
	    IFE ACT..,<
		GET8LEN <B>
		ADDR.X==[EXP LEN.
			AxSCIZ\B\]
		EXP <ADDR.+1>
	    >8
	  >
			0	]
	XA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ 8(C
	17B12+[ASCIZ\A\]
	+[[4tP [4t=9P [4v:=P [J,p e8&O		
	  IFNeX LMREG.,<MREG.==LexMREG.
			LMREG.=f=0>
	fXIFB <B>,f8<MREG.==MREG.+1>
	  IFNB <B>,<MRfxEG.==B>
	  IFB g<A>,<MREG.=TREG.g8>
	  IFG MREG.-HgXMREG.,<HMREG.=MREgxG.>
	 IFNB <A>,h<
	  A=MREG.
	h8  IFDEF .A,<
	 hX   IFN .A+MREG.,hx<
	      PRINTX i;"A" ALTER-EGO Ai8LREADY IN USE
	 iX   >
	  >
	  IFixNDEF .A,<  .A==-MREG.>
	 >
	] }X'o
	  IFNDE}xF	A,<A==B>
		A,<A==B>
	_63@P _:( (5[1]_:,.: ox'	
	  IFNB p<D>,<D.B=OFFS.p8-A.D>
	  A.BpX==OFFS.
	  A$Bpx==C
	  POS.==POqS.+C
	  A%B==POS.
	 A%B==_RD89 :x+_
	  REPEA;T <CA.UMAX-CA.USR;8+1>,<
	    CASLA;XB(\CA.USR)
	  ;xCA.USR==CA.USR+1
	  >
	.USR+1a&LW ~8'}
	  STR.S~XT=.
	  BYTE (12)~xB
	  LEN.==0
	  IRP B,<LEN.==L8EN.+1>
A:	  POIXNT	^D12,STR.ST
	  XWD	0,LEN.
	a$\YP a$kP

a%X2P 	a%[P 	a%h7P a&<qP a,\YP a,kP a-X2P a-[P a-h7P a.<qP at88P at94P atJ9P at\YP atkP auX2P au[P auh7P av97P av<qP a4,;ZA @a4,<A a4,^A a4.A a4.)A a4.|@A a>Mm |8'e<POINT	WID|X(B),A,POS(B)>B),A,POS(B)>a? 8#I
	T1.==MR88EG.
	REPEAT <MRE8XG.-TREG.>,<
	  R8xESTOR	T1.
	  T1.9=T1.-1
	>




	
	>


a?K8 3x#RESTOR<R5,R4,R3,R2>OR<R5,a? {X'<^L<A>+^L{x<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< w'=
	  B.Cw8==OFFS.-A.B
	 wX FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 j8&a
	  A=BjX
	jxIFDEF .A,<
	    IFN .A+B,k<
	      PRINTX k8;"A" ALTER-EGO AkXLREADY IN USE
	 kx   >
	  >
	  IFlNDEF .A,<  .A==-B>
	<  .A==eKy /X"}
	IRP A,<	POP	P,A> A,e&\W :#W
	  IFN M:8REG.-TREG.,<JRST	:XLEAVE>
	  IFE MR:xEG.-TREG.,<POPJ	P,>
	G.,<POPJ	PeL$:P 	eL$|WP 	eL%vP eL%I;P eL%m6P 	eL&wP 	eL&,4P 	eL&-8P 	eL&:P eL&:=P 	eL&[ZP eL,:P eL,|WP eL-vP eL-I;P eL-m6P eL.wP eL.,4P eL.-8P eL.:P eL.:=P eL.[ZP eLt:P eLt|WP eLuvP eLuI;P eLuKqP eLum6P eLvwP eLv,4P eLv-8P eLv:P eLv:=P eLv[ZP g4 48#=
	  IFN H4XMREG.-MREG.,<		
4x	    T1.==TREG.
5	    REPEAT <MREG58.-TREG.>,<
	    5X  T1.==T1.+1
	  5x    SAVE	T1.
	  6  >
	    IFDEF U68NWIND,<MOVEM P,UN6XWIND>
	    IFDEF6x MY.INI,<JSP R1,M7Y.INI>
	  >
	  78IFE HMREG.-MREG.,7X<JSP	R1,SAV$A>




	V$A>
g4P /"y
	IRP A,<	PUSH	P,A>A,g6K8 38#SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 -"u
	  IFDEF-8  HIORG,<TWOSEG  -XHIORG>	;[1106]
	-x  IFNDEF HIORG,<T.WOSEG>		;[1106]
.8	  RELOC	0
	  GD.XATA.==0				
	  SEGSYM
		
	  Sg>>6 *X"e
	
	  OF*xFS.==0
	  LMREG.+==0
	  LGREG.==1+86
	
	  IFDEF MU+XREG.,<MREG.=MUREG+x.>
	  IFNDEF MUR,EG.,<MREG.==TREG.,8>
	  HMREG.==MRE,XG.
	  HIGH==1
	
	  HIGH==1
	g$W 6+5
	  MOVEM68	P,FRAMCON
	  CO6XPI	PARSCON,A
	I	PARSCON,A
	g$ x(+
	 GETLEN	A
	  ADDR.=1B182 + [	LEN.
			 ASCII/A/]+1
	Ag$89 9X+S
	  CA.A9x==CA.USR
	  CASL:AB(\CA.USR)
	  C:8A.USR==CA.USR+1
	SR==CA.USR+1
g'@ (?[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP /x+
	  IFNDE0F B$C,<T1.==^D3086>
	  IFDEF B$0XC,<T1.==B$C>
	0x  IFE T1.-^D36,<M1OVEM A,B.CD>
	  IFN T1.-^D36,1X<
	    IFN T1.-^1xD18,<DPB A,[BP (2B,C,D)]>
	   28 IFE T1.-^D18,<
2X	      T1.==B%C2x
	      IFE T1.-3^D17,<HRLM A,B.38CD>
	      IFE3X T1.-^D35,<HRRM 3xA,B.CD>
	    >
	  >
		    gR5 48+-		
	  T1.4X==B%C
	  IFE T4x1.-^D17,<MOVSM A5,B.CD>
	  IFE58 T1.-^D35,<IFN A5X-D,<MOVEM A,B.CD>>
	A,B.gS 	x(S
	GETLEN 
(<A>)
	POINT	7,
8[ASCII\A\]
	EXP	LEN.
	]
	EXPgSY x(K
	GETLEN 	(<B>)
	EXP LEN.	8
A:	ASCII/B/
	A:	ASCII/B/
gft\Y U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	gft\Y U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	gg\Y U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	hDpPAi@i#Yx(9[3]iJ,s@PAiWks8)TXZ2A,B x)
	IFE C&777777,<TLA	B,(8C)>
	IFN C&777X777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP )TX(NE,A,B)TX(NE,A,ibu` X)TX(NN,A,B)TX(NN,A,ibx X)-TX(O,A,B)TX(O,A,Bib| )!TX(OA,A,B)TX(OA,A,ib|P X)%TX(OE,A,B)TX(OE,A,ib}` ))TX(ON,A,B)TX(ON,A,icP X)=TX(Z,A,B)TX(Z,A,BicT )1TX(ZA,A,B)TX(ZA,A,icTP X)5TX(ZE,A,B)TX(ZE,A,icU` )9TX(ZN,A,B)TX(ZN,A,k2Mj` R@-$
	SALL
	R`ARGS.=0
	  IFB <SB>,<	PUSHJ P,A>S 
	S@IFNB <B>,<
	  IRP B,<ARGS.S`=ARGS.+1>
	T MOVTEI	AP,[-ARGS.,,0
	  IRP B,<B>
T@	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	kO\Y U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ R@-$
	SALL
	R`ARGS.=0
	  IFB <SB>,<	PUSHJ P,A>S 
	S@IFNB <B>,<
	  IRP B,<ARGS.S`=ARGS.+1>
	T MOVTEI	AP,[-ARGS.,,0
	  IRP B,<B>
T@	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m (-1B12+Ao` 8x+G
	FUNCT	TYPOUT,<A>
		Toj@ U`-2
	FUNCT	TVYPOUT,<A>
	IFNBV  <B>,<JRST	B>
	ol` U-*
	JRST	[FU UNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 
x(w
	SYM..==0
	  IRPC A,<
8	  IFIDN <A><@>,X<SYM..=1
			  STxOPI>
	  IFIDN <

A><(>,<SYM..=2

8		  STOPI>
	  IF

XIDN <A><[>,<SYM.

x.=3
			  STOPI>
	,<IFIDN=<A><+>
			PIS
	AIFIDN<<M..=4
			  STOPI>
	  >8
	XIFE SYM..,<
	    IFDEF .A,<xSYM..=-1>
	  >
	..=-1>
	  >
o&  {'Y<^L<-<<A>_<^L<A>>>-1>>>o?@ t'#
	  BYTESt8(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp UX%-
	PUSHJ	P,A		
	PUSHJ	Pup (3[0]+A	-hz >,f
	IFGE HI>XGH,<			;[1106]
	?@IFG HIGH,<
	@ IFA DEF  HIORG,<RELOC>8  HIORG>	;[1106]
	  IFNDEF HIORG,@<RELOC 400000>	;[A1106]
	>; END IF@@G HIGH			;[1106]
	  HIGH==-1
	  @`IFG MREG.-TREG.,<Ap
SAV$A:
	  T1.=Bx=TREG.
	AHREPEATBX <MREG.-TREG.>,<
	CH  T1.==T1.+1
	    SAVE	T1.
	C(  >
	  IFDEF UNWD`IND,<
	    MOVEME P,UNWIND
	    IE FDEF UNWEXIT,<
	E@      IFDEF MY.EXE`IT,<COPI UNWEXIT,FMY.EXIT>
	      F IFNDEF MY.EXIT,<CF@OPI UNWEXIT,POP$AF`-1>
	    >
	  >G
	  IFDEF MY.INIG ,<JRST MY.INI>	
G@	  IFNDEF MY.INI,G`<JRST	0(R1)>
	  H>
	  IFDEF UNWEXH IT,<IFNDEF MY.EXIH@T,<MOVE P,UNWIND>H`>
POP$A:
	  POPIALL
	  POPJ	P,
I 	>

A:
	ENTRYI@ A
	IFN LMREG.,I`<MREG.==LMREG.
	J		LMREG.==0>
	AOJ FF.==0
	IFNB <BJ@>,<
	J`IRP B,<
	  B==AOFF.
	 K AOFF.==AOFF.+1
K 	  >
	>
	IFN MRK@EG.-TREG.,<SAVALLK`>		
	IFE MREG.-TLREG.,<
	  IFDEF L UNWIND,<MOVEM P,UL@NWIND>
	  IFDEF L`MY.INI,<JSP R1,MY.INI>
	>
		e~7 O%
	IFGE HIO8GH,<			;[1106]
	OXIFG HIGH,<
	P8IFOxDEF  HIORG,<RELOCP  HIORG>	;[1106]
	  IFNDEF HIORG,PX<RELOC 400000>	;[Px1106]
	>; END IFQG HIGH			;[1106]
	  HIGH==-1
	QxQXMREG.==TREG.				
	  HMREG.==MREG.R				
POP$A:
	  R8POPJ	P,
	>
A:
	ENTRY A
	IFE RxLMREG.,<LMREG.==MSREG.>
	MREG.=TREG.			
	EG.=TRE	.J6 LX$u
A:
	ENLxTRY A
	IFE LMREMG.,<LMREG.==MREG.M8>
	MREG.=TREG.		MX	
	AOFF.==0
	IFMxNB <B>,<
	  IRPN B,<
	  B==AOFN8F.
	  AOFF.==AOFNXF.+1
	  >
	>
	+1
	  >
	>
		"N93 ;8#i			;[1106];X
	IFG HIGH,<			;;x[1106]
	  IFDEF < HIORG,<RELOC  HI<8ORG>	;[1106]
	  <XIFNDEF HIORG,<REL<xOC 400000>	;[1106=]
	  HIGH==0>			;[1106]
	0>				2Mj` >,f
	IFGE HI>XGH,<			;[1106]
	?@IFG HIGH,<
	@ IFA DEF  HIORG,<RELOC>8  HIORG>	;[1106]
	  IFNDEF HIORG,@<RELOC 400000>	;[A1106]
	>; END IF@@G HIGH			;[1106]
	  HIGH==-1
	  @`IFG MREG.-TREG.,<Ap
SAV$A:
	  T1.=Bx=TREG.
	AHREPEATBX <MREG.-TREG.>,<
	CH  T1.==T1.+1
	    SAVE	T1.
	C(  >
	  IFDEF UNWD`IND,<
	    MOVEME P,UNWIND
	    IE FDEF UNWEXIT,<
	E@      IFDEF MY.EXE`IT,<COPI UNWEXIT,FMY.EXIT>
	      F IFNDEF MY.EXIT,<CF@OPI UNWEXIT,POP$AF`-1>
	    >
	  >G
	  IFDEF MY.INIG ,<JRST MY.INI>	
G@	  IFNDEF MY.INI,G`<JRST	0(R1)>
	  H>
	  IFDEF UNWEXH IT,<IFNDEF MY.EXIH@T,<MOVE P,UNWIND>H`>
POP$A:
	  POPIALL
	  POPJ	P,
I 	>

A:
	ENTRYI@ A
	IFN LMREG.,I`<MREG.==LMREG.
	J		LMREG.==0>
	AOJ FF.==0
	IFNB <BJ@>,<
	J`IRP B,<
	  B==AOFF.
	 K AOFF.==AOFF.+1
K 	  >
	>
	IFN MRK@EG.-TREG.,<SAVALLK`>		
	IFE MREG.-TLREG.,<
	  IFDEF L UNWIND,<MOVEM P,UL@NWIND>
	  IFDEF L`MY.INI,<JSP R1,MY.INI>
	>
		VeU M ,x
A:
	IFM@E LMREG.,<LMREG.=M`=MREG.>
	MREG.=TNREG.			
	AOFF.==N 0
	IFNB <B>,<
N@	  IRP B,<
	  N`B==AOFF.
	  AOFFO.==AOFF.+1
	>
	>
		W% M ,x
A:
	IFM@E LMREG.,<LMREG.=M`=MREG.>
	MREG.=TNREG.			
	AOFF.==N 0
	IFNB <B>,<
N@	  IRP B,<
	  N`B==AOFF.
	  AOFFO.==AOFF.+1
	>
	>
		f` SX%!
A:
	IFSxE LMREG.,<LMREG.=T=MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.