Google
 
Trailing-Edge - PDP-10 Archives - red405a2 - subsys/sbsmac.unv
There are 3 other files named sbsmac.unv in the archive. Click here to see a list.
x
,N@P C, s'LSH A,-^D9LSH A,-^DI  uX'-.INDR.(A,B,SOS)NDR.(A,S:  u').INDR.(A,B,AOS)NDR.(A,Y>

@ sX'.LDST.(A,sxB,C,HRRZ,HLRZ,LDB,MOVE),HLRZ,L[@ lx&s
	IFB <Bm>,<MAXSIZ==0
		Im8RP A,<IFG <A-MAmXXSIZ>,<MAXSIZ==Amx>>>
	IFNB <B>,<nB==0
		IRP A,<n8IFG <A-B>,<B==A>>>
B>,<B==[&p nx'
	IFB <Bo>,<MINSIZ==377777o8,,777777
		IRP oXA,<IFG <MINSIZ-Aox>,<MINSIZ==A>>>
	IFNB <B>,<B==p8377777,,777777
	pX	IRP A,<IFG <B-pxA>,<B==A>>>
A>,<B==A>>>
`P `DP `HP `LP `PP a rX'LSH A,^D9LSH A,^D9fDP fHP g4P q8'.SAVE.(\A).SAVE.(\AgYP gZ7P gi9P gzP gR~r (
S..A:: 8.STCD. .SCB,(SIXBIT/A/)
,(SIXgR~)  t8'%.LDST.(A,tXB,C,HRRM,HRLM,DPB,MOVEM)HRLM,Dgg

V kX&c
	IFNB <kxB>,<IFN FTUUOS,<lA==B>>
	IFNB <l8C>,<IFN FTJSYS,<A==C>>
SYS,<hDP hHP hLP hPP inP up |x(
	IFNB	<}B>,<..T==0
		IFE}8	B-777777,<..T==}X1
			HLLZS	A>
}x		IFE	B-77777700~0000,<..T==1
			~8HRRZS	A>
		IFE	~XB-777777777777,<~x..T==1
			SETZM	A>
		IFE	..T,<M8OVX	TEMP,B
			 X    XLIST
			   x  ANDCAM	TEMP,A
			     LIST
		8	     SALL>>
	IFXB	<B>,<SETZM	A>
B>,<SETZM	A>
v8YP S@P &tLG y8'c
	IFNB	<yXB>,<..T==0
		IFEyx	B-777777,<..T==z1
			C	A>
		Iz8FE	B-77777777777zX7,<..T==1
			C	zxA>
		IFE	..T,<L{OAD(TEMP,A,B)
{8				  XLIST
				{X  C	TEMP
				  {xSTORE(TEMP,A,B)|
				  LIST
			|8	  SALL>>
	IFB	<B>,<C	A>
	<2&= v'G
	IFNB	<v8C>,<..T==0
		IFEvX	C-777777,<..T==vx1
			D	A,B>
w		IFE	C-77777700w80000,<..T==1
			wXE	A,B>
		IFE	wxC-777777777777,<x..T==1
			G	A,x8B>
		IFE	..T,<xXF	A,[POINTR(B,xxC)]>>
	IFB	<C>,<G	A,B>
C>,Ni' qx'EXTERN .SVrA
		    PUSHJ P,.SVA  PUSHJ PNh:P NLPP O$9 >}{woP