[ssr] / StraySrc / Utilities / fixlink.bas

REM crunched "b.fixlink"
SYS16TOA_$:IFINSTR(A_$,"-quit")=0THENERROR1,"fixLink must be started using *Run"
A_$=MID$(A_$,INSTR(A_$,"""")+1):A_$=MID$(A_$,INSTR(A_$," ")+1):A_$=LEFT$(A_$,INSTR(A_$,"""")-1):SYS8,17,A_$TO,,,,B_%:DIMb% B_%:SYS8,16,A_$,b%,0:DIMq% 8:$q%="OBJ_HEAD":A%=q%!0:B%=q%!4:c%=b%!4:x%=b%+12:o%=0:FORi%=1TOc%:IFx%!0=A%ANDx%!4=B%THENo%=x%!8
x%+=16:NEXT:IFo%=0THENERROR0,"Erk!"
x%=b%+o%+24:a%=!(b%+o%+8):FORi%=1TOa%:x%!4=x%!4AND&FFFF:x%+=20:NEXT:SYS8,10,A_$,&FFD,,b%,b%+B_%:END
Commit	Line	Data
c1b567d8 MW	1	REM crunched "b.fixlink"
	2	SYS16TOA_$:IFINSTR(A_$,"-quit")=0THENERROR1,"fixLink must be started using *Run"
	3	A_$=MID$(A_$,INSTR(A_$,"""")+1):A_$=MID$(A_$,INSTR(A_$," ")+1):A_$=LEFT$(A_$,INSTR(A_$,"""")-1):SYS8,17,A_$TO,,,,B_%:DIMb% B_%:SYS8,16,A_$,b%,0:DIMq% 8:$q%="OBJ_HEAD":A%=q%!0:B%=q%!4:c%=b%!4:x%=b%+12:o%=0:FORi%=1TOc%:IFx%!0=A%ANDx%!4=B%THENo%=x%!8
	4	x%+=16:NEXT:IFo%=0THENERROR0,"Erk!"
	5	x%=b%+o%+24:a%=!(b%+o%+8):FORi%=1TOa%:x%!4=x%!4AND&FFFF:x%+=20:NEXT:SYS8,10,A_$,&FFD,,b%,b%+B_%:END