Google
 
Trailing-Edge - PDP-10 Archives - cobol12c - 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,AGC8@ I  h(J

	IFN ANYSIZ,<
	SKIPGE	(C		;THIS IS IMPEHRFECT
	JRST	[HRLhI	C,RMBYTE	;HERE IF "440700" C
(		 SOJA	C,.+1]
H	A	B,C
	CAML	hC,[MAXBP,,0]
	JRST	[HRLI	C,RMBY(TE
		 SOJA	C,.+H2]
	ADD	C,[SIZ2hPF,,0]>

	IFE ANYSIZ,<
	IFNDEF (SIZ,<SIZ=AP>
	IFHNDEF POZ,<POZ=SVPh>	;REGS 15 AND 16
	SAVE <SIZ,POZ>(
	LDB	SIZ,[BPSIZH1,,C]
	LDB	POZ,h[BPPOS,,C]
	CAIN	POZ,44		;CHARS (ASSUMED LEFT ALIGHNED
	JRST	[IDIV	hPOZ,SIZ
		 MOVE	POZ,SIZ
		 LDB	S(IZ,[BPSIZ1,,C]
H		 DPB	POZ,[BPPOSh,,C]
		 SOJA	C,.+1]
	A	B,C
	ADD	POZ,SIZ
	CHAIN	POZ,44		;CHARhS ASSUMED LEFT ALIGNED
	JRST	[IDI(V	POZ,SIZ
		hDPBH	SIZ,[BPPOS,,C]
		SOJA	C,.+2]
	DPB	POZ,[BPPOS,	(,C]
	RESTOR	<POZ,SIZ> >
R	<POI$J3 
h)

	IFN	ANYSIZ,<
	HRRZ	A(,R1
	SUB	A,LEN1H
	HRRZ	T2,R0
	ShUBI	T2,0(BP1)	;GI

VES WORD DIF OF T

(HE 2 BP
	IMULI	T

H2,CPW
	ADD	A,T2

h	;T2 IS NEG
	LDB[BPPOS,,R0]
	LDB	T2,[BPPOS,,B
	SUB	T2,T1
	IDIVI	T2,BYTSIZ
	ADD	A,T2>

	(IFE ANYSIZ,<
	IFHNDEF SIZ,<SIZ=AP>h
	SAVE <SIZ>
	LDB	SIZ,[BPSIZ1,,B(P1]
	HRRZ	A,R1
	SUB	A,LEN1
	HhRRZ	T2,R0
	SUBI	T2,0(BP1)
	IMUL	(T2,CPW$##(SIZ)
	HADD	A,T2
	LDB	Th1,[BPPOS,,R0]
	LDB	T2,[BPPOS,,BP1(]
	SUB	T2,T1
	IHDIV	T2,SIZ
	ADD	hA,T2
	RESTOR	<SIZ>>
RESTOR	<SK;%R@ KF`@ KK|@ h)
	IFNB <B>,<
	JRST	[PUSH(	P,[B]
		 JRST	HA]>
	IFB <B>,<
	PUSHJ	P,A><Kb

=@ MVt= h*
;	SALL
	T.....=0
	ST...(.=1
	IF2,<IFNDEFH A,<EXTERNAL A>h>
	IFNB <B>,<
	PUSH	P,AP
	IRP	(B,<IFIDN <B> <$H1>, <ST....=0>
	h	   IFIDN <B> <$2>, <ST....=-1>
(		   IFDIF <B> <H$1>,<
			IFDIF <hB> <$2>,<
			   IFG ST....,<PUSH(	P,B
			   T...H..=T.....+1
>
	h		   ST....=1>>>
	R.....=0
	   I(RP  B,<IFIDN <BH> <$1>, <ST....=0h>
		   IFIDN <B> <$2>, <ST....=-(1>
		   IFDIF <HB> <$1>,<
			IFDhIF <B> <$2>,<
			   IFE ST....,<(T......=T......+1H
				    PUSH	P,hB>
			   IFL ST ....,<T.....=T... (..+1
				    PUS HH	P,[B]>
			    hIFG ST....,<T....!..=T......+1
			!(		R.....=R.....+1!H
					HRRZI	AP,-!hT.....+R.....+1(P")
					PUSH	P,AP"(
>
			   ST...."H=1>>>>
	MOVEI	AP"h,-T.....+R.....+1#(P)
	PUSHJ	P,A
	IFNB <B>,<
	S#HUB	P,[T.....,,T..#h...]
	POP	P,AP>..]
	POP	P,AP>Q&=P Q&Ep@ SAi @ Su|R@ S:%@ )$1,ASB~:=@$A`YvX@@ Yr@ Yr @ Y>=1 ),
	C.....=(0
	IFNB <B>,< IHRP B,<C.....=C..h...+1
			 PUSH	P,B>>
	PUSHJ	P,(A 
	IFN C.....,<H SUB	P,[C.....,,C.....]>
...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? '*<
	SUB	P,D'(13D13##
	HRLZ	AP'H,P
	ADD	AP,[1,,2]
	BLT	AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy $h*&
	IRP A,<	POP	P,A> A,e&XY@ e&\W &H*4
	JRST	RAX$##
	JRST	RAe6@ `g4 %(*0
	HRRZ	R0%H,P
	ADD	R0,[2,,1%h]
	BLT	R0,16(P)
	ADD	P,D13D13##	ADD	P,D13D13##g4P $(*"
	IRP A,<	PUSH	P,A>A,g&

z (*P
	IFE PSE((UDO,<
	SKIPN PSU(H.R0##	;0 MEANS IN(hISTR NOT CALLED
)	POPJ	P,
	MOVEM	)(R0,@PSU.R0##
	MO)HVEM	R1,@PSU.R1##
	POPJ	P,>
	IFN *PSEUDO,<
	POPJ	P,>DO,<
	POPJ	Pg'R,@ pgPuX@ gSk[P gSS )B

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

9 @ iR 	h(R
	IFE MES
SAG, <TLNN	P,STR.
(NW
		     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.