Google
 
Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/build/strdcl.unv
There are 17 other files named strdcl.unv in the archive. Click here to see a list.
x
,5*@P C3<9@ C:y@ C;N:=P C@@ CC[R@ E^y@ E@ E:!htP EA@ EA@ EC|`@#a@ECH@#@ECI@#FEg&:=@ FD@ G@ G",:`P G"^Z@ G; @ G>v= <$2,AG?T  REMARKGC8@ I  1;T

	IFN A1(NYSIZ,<
	SKIPGE	1HC		;THIS IS IMPE1hRFECT
	JRST	[HRL2I	C,RMBYTE ;HERE2( IF "440700" C
2H		 SOJA	C,.+1]
2h	A	B,C
	CAML	3C,[MAXBP,,0]
	J3(RST	[HRLI	C,RMBY3HTE
		 SOJA	C,.+3h2]
	ADD	C,[SIZ24PF,,0]>

	IFE A4(NYSIZ,<
	IFNDEF 4HSIZ,<SIZ=AP>
	IF4hNDEF POZ,<POZ=SVP5>	;REGS 15 AND 165(
	SAVE <SIZ,POZ>5H
	LDB	SIZ,[BPSIZ5h1,,C]
	LDB	POZ,6[BPPOS,,C]
	CAI6(N	POZ,44		;CHARS 6HASSUMED LEFT ALIG6hNED
	JRST	[IDIV	7POZ,SIZ
		 MOVE	7(POZ,SIZ
		 LDB	S7HIZ,[BPSIZ1,,C]
7h		 DPB	POZ,[BPPOS8,,C]
		 SOJA	C8(,.+1]
	A	B,C
	ADD	POZ,SIZ
	C8hAIN	POZ,44		;CHAR9S ASSUMED LEFT AL9(IGNED
	JRST	[IDI9HV	POZ,SIZ
		DPB9h	SIZ,[BPPOS,,C]
		(SOJA	C,.+2]
	DPB	POZ,[BPPOS,:H,C]
	RESTOR	<POZ,SIZ> >
R	<POI$J3 <<

	IFN	A<(NYSIZ,<
	HRRZ	A<H,R1
	SUB	A,LEN1<h
	HRRZ	T2,R0
	S=UBI	T2,0(BP1)	;GI=(VES WORD DIF OF T=HHE 2 BP
	IMULI	T=h2,CPW
	ADD	A,T2>	;T2 IS NEG
	LDB>(	T1,[BPPOS,,R0]
>H	LDB	T2,[BPPOS,,B>hP1]
	SUB	T2,T1
?	IDIVI	T2,BYTSIZ
	ADD	A,T2>

	?HIFE ANYSIZ,<
	IF?hNDEF SIZ,<SIZ=AP>@
	SAVE <SIZ>
	L@(DB	SIZ,[BPSIZ1,,B@HP1]
	HRRZ	A,R1
	SUB	A,LEN1
	HARRZ	T2,R0
	SUBI	A(T2,0(BP1)
	IMUL	AHT2,CPW$##(SIZ)
	AhADD	A,T2
	LDB	TB1,[BPPOS,,R0]
	LB(DB	T2,[BPPOS,,BP1BH]
	SUB	T2,T1
	IBhDIV	T2,SIZ
	ADD	CA,T2
	RESTOR	<SIZ>>
RESTOR	<SK;%R@ KF`@ KK|@ D<&
	IFNB <D(B>,<
	JRST	[PUSHDH	P,[B]
		 JRST	DhA]>
	IFB <B>,<
	PUSHJ	P,A><Kb

=@ MVt= J=&
	T.....=J(0
	ST....=1
	IFJH2,<IFNDEF A,<EXTJhERNAL A>>
	IFNBK <B>,<
	PUSH	P,K(AP
	IRP	B,<IFIDKHN <B> <$1>, <ST.Kh...=0>
		   IFIDLN <B> <$2>, <ST.L(...=-1>
		   IFDLHIF <B> <$1>,<
	Lh		IFDIF <B> <$2>M,<
			   IFG ST.M(...,<PUSH	P,B
	MH		   T.....=T....Mh.+1
>
			   ST.N...=1>>>
	R.....N(=0
	   IRP  B,<NHIFIDN <B> <$1>, Nh<ST....=0>
		   OIFIDN <B> <$2>, O(<ST....=-1>
		  OH IFDIF <B> <$1>,Oh<
			IFDIF <B> P<$2>,<
			   IFEP( ST....,<T......=PHT......+1
				  Ph  PUSH	P,B>
			Q   IFL ST....,<T.Q(....=T.....+1
		QH		    PUSH	P,[B]Qh>
			   IFG ST..R..,<T......=T....R(..+1
					R.....RH=R.....+1
					HRhRRZI	AP,-T.....+RS.....+1(P)
					S(PUSH	P,AP
>
			SH   ST....=1>>>>
Sh	MOVEI	AP,-T.....T+R.....+1(P)
	PUT(SHJ	P,A
	IFNB <THB>,<
	SUB	P,[T.Th....,,T.....]
	POP	P,AP>..]
	PQ&=P Q&Ep@ SAi @ Su|R@ S:%@ <$1,ASB~:=@$A`YvX@@ Yr@ Yr @ Y>=1 E(<6
	C.....=EH0
	IFNB <B>,< IEhRP B,<C.....=C..F...+1
			 PUSH	PF(,B>>
	PUSHJ	P,FHA 
	IFN C.....,<Fh SUB	P,[C.....,,C.....]>
...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? X=D
	SUB	P,DX(13D13##
	HRLZ	APXH,P
	ADD	AP,[1,,2]
	BLT	AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy Uh=.
	IRP A,<	POP	P,A> A,e&XY@ e&\W WH=<
	JRST	RAX$##
	JRST	RAe6@ `g4 V(=8
	HRRZ	R0VH,P
	ADD	R0,[2,,1Vh]
	BLT	R0,16(P)
	ADD	P,D13D13##	ADD	P,D13D13##g4P U(=*
	IRP A,<	PUSH	P,A>A,g&

z Y=X
	IFE PSEY(UDO,<
	SKIPN PSUYH.R0##		;0 MEANS IYhNISTR NOT CALLED
	POPJ	P,
	MOVEMZ(	R0,@PSU.R0##
	MZHOVEM	R1,@PSU.R1##Zh
	POPJ	P,>
	IFN[ PSEUDO,<
	POPJ	P,>DO,<
	POPJ	g'R,@ pgPuX@ gSk[P gSS G(<L

	LDB	R0,GH[TYPCOD+B,,A]
Gh
	MOVEI	R1,@A(HB)
	LOCSUB	CANONH($##
	IFNB <C>, HH<MOVEM	R0,C>
	IHhFNB <D>, <HRRZM	IR1,D>
	IFE	BND.I(CH,<
	IFNB <E>,IH <HLRZM	R1,E>>
HLRZM	R1,E>>
g[@ h@@ hD@ i:=@ @i2I @ i<tq@ iJ

9 @ iR ;;\
	IFE MES;(SAG, <TLNN	P,STR.;HNW
		     TTCALL	3,M.A> TTCALLig;r@"qo"L:@ sj7@ t;@ S@P >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.