Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-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= =N$2,A G?T  REMARKGC8@ I  G(=

	IFN AGHNYSIZ,<
	SKIPGE	GhC		;THIS IS IMPEHRFECT
	JRST	[HRLH(I	C,RMBYTE	;HEREHH IF "440700" C
Hh		 SOJA	C,.+1]
I	A	B,C
	CAML	I(C,[MAXBP,,0]
	JIHRST	[HRLI	C,RMBYIhTE
		 SOJA	C,.+J2]
	ADD	C,[SIZ2J(PF,,0]>

	IFE AJHNYSIZ,<
	IFNDEF JhSIZ,<SIZ=AP>
	IFKNDEF POZ,<POZ=SVPK(>	;REGS 15 AND 16KH
	SAVE <SIZ,POZ>Kh
	LDB	SIZ,[BPSIZL1,,C]
	LDB	POZ,L([BPPOS,,C]
	CAILHN	POZ,44		;CHARS LhASSUMED LEFT ALIGMNED
	JRST	[IDIV	M(POZ,SIZ
		 MOVE	MHPOZ,SIZ
		 LDB	SMhIZ,[BPSIZ1,,C]
N		 DPB	POZ,[BPPOSN(,,C]
		 SOJA	CNH,.+1]
	A	B,C
	ADD	POZ,SIZ
	COAIN	POZ,44		;CHARO(S ASSUMED LEFT ALOHIGNED
	JRST	[IDIOhV	POZ,SIZ
		(DPBP	SIZ,[BPPOS,,C]
		HSOJA	C,.+2]
	DPB	POZ,[BPPOS,Ph,C]
	RESTOR	<POZ,SIZ> >
R	<POI$J3 R(=J

	IFN	ARHNYSIZ,<
	HRRZ	ARh,R1
	SUB	A,LEN1S
	HRRZ	T2,R0
	SS(UBI	T2,0(BP1)	;GISHVES WORD DIF OF TShHE 2 BP
	IMULI	TT2,CPW
	ADD	A,T2T(	;T2 IS NEG
	LDBTH	T1,[BPPOS,,R0]
Th	LDB	T2,[BPPOS,,BUP1]
	SUB	T2,T1
U(	IDIVI	T2,BYTSIZ
	ADD	A,T2>

	UhIFE ANYSIZ,<
	IFVNDEF SIZ,<SIZ=AP>V(
	SAVE <SIZ>
	LVHDB	SIZ,[BPSIZ1,,BVhP1]
	HRRZ	A,R1
	SUB	A,LEN1
	HW(RRZ	T2,R0
	SUBI	WHT2,0(BP1)
	IMUL	WhT2,CPW$##(SIZ)
	XADD	A,T2
	LDB	TX(1,[BPPOS,,R0]
	LXHDB	T2,[BPPOS,,BP1Xh]
	SUB	T2,T1
	IYDIV	T2,SIZ
	ADD	Y(A,T2
	RESTOR	<SIZ>>
RESTOR	<SK;%R@ KF`@ KK|@ Z(=X
	IFNB <ZHB>,<
	JRST	[PUSHZh	P,[B]
		 JRST	[A]>
	IFB <B>,<
	PUSHJ	P,A><Kb

=@ MVt= `(>Z
;	SALL
`H	T.....=0
	ST...`h.=1
	IF2,<IFNDEFa A,<EXTERNAL A>a(>
	IFNB <B>,<
aH	PUSH	P,AP
	IRP	ahB,<IFIDN <B> <$b1>, <ST....=0>
	b(	   IFIDN <B> <$bH2>, <ST....=-1>
bh		   IFDIF <B> <c$1>,<
			IFDIF <c(B> <$2>,<
			  cH IFG ST....,<PUSHch	P,B
			   T...d..=T.....+1
>
	d(		   ST....=1>>>
	R.....=0
	   IdhRP  B,<IFIDN <Be> <$1>, <ST....=0e(>
		   IFIDN <BeH> <$2>, <ST....=-eh1>
		   IFDIF <fB> <$1>,<
			IFDf(IF <B> <$2>,<
	fH		   IFE ST....,<fhT......=T......+1g
				    PUSH	P,g(B>
			   IFL STgH....,<T.....=T...gh..+1
				    PUShH	P,[B]>
			   h(IFG ST....,<T....hH..=T......+1
			hh		R.....=R.....+1i
					HRRZI	AP,-i(T.....+R.....+1(PiH)
					PUSH	P,APih
>
			   ST....j=1>>>>
	MOVEI	APj(,-T.....+R.....+1jH(P)
	PUSHJ	P,A
	IFNB <B>,<
	SkUB	P,[T.....,,T..k(...]
	POP	P,AP>..]
	POP	P,AP>Q&=P Q&Ep@ SAi @ Su|R@ S:%@ =L$1,A SB~:=@$A`YvX@@ Yr@ Yr @ Y>=1 [H=h
	C.....=[h0
	IFNB <B>,< I\RP B,<C.....=C..\(...+1
			 PUSH	P\H,B>>
	PUSHJ	P,\hA 
	IFN C.....,<] SUB	P,[C.....,,C.....]>
...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? nH>x
	SUB	P,Dnh13D13##
	HRLZ	APo,P
	ADD	AP,[1,,2]
	BLT	AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy l(>b
	IRP A,<	POP	P,A> A,e&XY@ e&\W n>p
	JRST	RAX$##
	JRST	RAe6@ `g4 lh>l
	HRRZ	R0m,P
	ADD	R0,[2,,1m(]
	BLT	R0,16(P)
	ADD	P,D13D13##	ADD	P,D13D13##g4P kh>^
	IRP A,<	PUSH	P,A>A,g&

z oH?


	IFE PSEohUDO,<
	SKIPN PSUp.R0##	;0 MEANS INp(ISTR NOT CALLED
pH	POPJ	P,
	MOVEM	phR0,@PSU.R0##
	MOqVEM	R1,@PSU.R1##
	POPJ	P,>
	IFN qHPSEUDO,<
	POPJ	P,>DO,<
	POPJ	Pg'R,@ pgPuX@ gSk[P gSS ]H=~

	LDB	R0,]h[TYPCOD+B,,A]
^
	MOVEI	R1,@A(^(B)
	LOCSUB	CANON^H$##
	IFNB <C>, ^h<MOVEM	R0,C>
	I_FNB <D>, <HRRZM	_(R1,D>
	IFE	BND._HCH,<
	IFNB <E>,_h <HLRZM	R1,E>>
HLRZM	R1,E>>
g[@ h@@ hD@ i:=@ @i2I @ i<tq@ iJ

9 @ iR Q(=
	IFE MESQHSAG, <TLNN	P,STR.QhNW
		     TTCALL	3,M.A> TTCALLig;r@"qo"L:@ sj7@ t;@ S@P >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.