Google
 
Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - 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  ~X(A

	IFN A~xNYSIZ,<
	SKIPGE	C		;THIS IS IMPE8RFECT
	JRST	[HRLXI	C,RMBYTE	;HEREx IF "440700" C
		 SOJA	C,.+1]
8	A	B,C
	CAML	XC,[MAXBP,,0]
	JxRST	[HRLI	C,RMBYTE
		 SOJA	C,.+82]
	ADD	C,[SIZ2XPF,,0]>

	IFE AxNYSIZ,<
	IFNDEF SIZ,<SIZ=AP>
	IF8NDEF POZ,<POZ=SVPX>	;REGS 15 AND 16x
	SAVE <SIZ,POZ>
	LDB	SIZ,[BPSIZ81,,C]
	LDB	POZ,X[BPPOS,,C]
	CAIxN	POZ,44		;CHARS ASSUMED LEFT ALIG8NED
	JRST	[IDIV	XPOZ,SIZ
		 MOVE	xPOZ,SIZ
		 LDB	SIZ,[BPSIZ1,,C]
8		 DPB	POZ,[BPPOSX,,C]
		 SOJA	Cx,.+1]
	A	B,C
	ADD	POZ,SIZ
	C8AIN	POZ,44		;CHARXS ASSUMED LEFT ALxIGNED
	JRST	[IDIV	POZ,SIZ
		XDPB8	SIZ,[BPPOS,,C]
		xSOJA	C,.+2]
	DPB	POZ,[BPPOS,,C]
	RESTOR	<POZ,SIZ> >
R	<POI$J3 	X)

	IFN	A	xNYSIZ,<
	HRRZ	A
,R1
	SUB	A,LEN1
8
	HRRZ	T2,R0
	S
XUBI	T2,0(BP1)	;GI
xVES WORD DIF OF THE 2 BP
	IMULI	T82,CPW
	ADD	A,T2X	;T2 IS NEG
	LDBx	T1,[BPPOS,,R0]


	LDB	T2,[BPPOS,,B

8P1]
	SUB	T2,T1


X	IDIVI	T2,BYTSIZ

x
	ADD	A,T2>

	FE ANYSIZ,<
	IFF SIZ,<SIZ=AP>
	SAVE <SIZ>
	L	SIZ,[BPSIZ1,,BP1]
	HRRZ	A,R1
	SUB	A,LEN1
	HXRRZ	T2,R0
	SUBI	xT2,0(BP1)
	IMUL	T2,CPW$##(SIZ)
	8ADD	A,T2
	LDB	TX1,[BPPOS,,R0]
	LxDB	T2,[BPPOS,,BP1]
	SUB	T2,T1
	I8DIV	T2,SIZ
	ADD	XA,T2
	RESTOR	<SIZ>>
RESTOR	<SK;%R@ KF`@ KK|@ X)
	IFNB <xB>,<
	JRST	[PUSH	P,[B]
		 JRST	8A]>
	IFB <B>,<
	PUSHJ	P,A><Kb

=@ MVt= X*
;	SALL
x	T.....=0
	ST....=1
	IF2,<IFNDEF8 A,<EXTERNAL A>X>
	IFNB <B>,<
x	PUSH	P,AP
	IRP	B,<IFIDN <B> <$81>, <ST....=0>
	X	   IFIDN <B> <$x2>, <ST....=-1>
		   IFDIF <B> <8$1>,<
			IFDIF <XB> <$2>,<
			  x IFG ST....,<PUSH	P,B
			   T...8..=T.....+1
>
	X		   ST....=1>>>
	R.....=0
	   IRP  B,<IFIDN <B8> <$1>, <ST....=0X>
		   IFIDN <Bx> <$2>, <ST....=-1>
		   IFDIF <8B> <$1>,<
			IFDXIF <B> <$2>,<
	x		   IFE ST....,<T......=T......+18
				    PUSH	P,XB>
			   IFL STx....,<T.....=T.....+1
				    PUS8H	P,[B]>
			   XIFG ST....,<T....x..=T......+1
			 		R.....=R.....+1 8
					HRRZI	AP,- XT.....+R.....+1(P x)
					PUSH	P,AP!
>
			   ST....!8=1>>>>
	MOVEI	AP!X,-T.....+R.....+1!x(P)
	PUSHJ	P,A
	IFNB <B>,<
	S"8UB	P,[T.....,,T.."X...]
	POP	P,AP>..]
	POP	P,AP>Q&=P Q&Ep@ SAi @ Su|R@ S:%@ )$1,ASB~:=@$A`YvX@@ Yr@ Yr @ Y>=1 x)#
	C.....=0
	IFNB <B>,< I8RP B,<C.....=C..X...+1
			 PUSH	Px,B>>
	PUSHJ	P,A 
	IFN C.....,<8 SUB	P,[C.....,,C.....]>
...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? %x*3
	SUB	P,D&13D13##
	HRLZ	AP&8,P
	ADD	AP,[1,,2]
	BLT	AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy #X*
	IRP A,<	POP	P,A> A,e&XY@ e&\W %8*+
	JRST	RAX$##
	JRST	RAe6@ `g4 $*'
	HRRZ	R0$8,P
	ADD	R0,[2,,1$X]
	BLT	R0,16(P)
	ADD	P,D13D13##	ADD	P,D13D13##g4P #*
	IRP A,<	PUSH	P,A>A,g&

z &x*G
	IFE PSE'UDO,<
	SKIPN PSU'8.R0##	;0 MEANS IN'XISTR NOT CALLED
'x	POPJ	P,
	MOVEM	(R0,@PSU.R0##
	MO(8VEM	R1,@PSU.R1##
	POPJ	P,>
	IFN (xPSEUDO,<
	POPJ	P,>DO,<
	POPJ	Pg'R,@ pgPuX@ gSk[P gSS x)9

	LDB	R0,[TYPCOD+B,,A]
8
	MOVEI	R1,@A(XB)
	LOCSUB	CANONx$##
	IFNB <C>, <MOVEM	R0,C>
	I8FNB <D>, <HRRZM	XR1,D>
	IFE	BND.xCH,<
	IFNB <E>, <HLRZM	R1,E>>
HLRZM	R1,E>>
g[@ h@@ hD@ i:=@ @i2I @ i<tq@ iJ

9 @ iR X(I
	IFE MESxSAG, <TLNN	P,STR.	NW
		     TTCALL	3,M.A> TTCALLig;r@"qo"L:@ sj7@ t;@ S@P >}{woP