) > %.BLib.RelocROM v1.00 22-Jan-2001 % Create relocatable sideways ROM : (0 mcode% &2000: Enough space for two copies 2 pass%=0 3 < rm_pass F [OPT opt% PEQUB 0:EQUW RelocTable Z\ code .... d.RelocTable n] x rm_table  : rm_pass pass%=0:len%=0 pass%=1:len%=O%-mcode% P%=&8100-128*(pass%2) O%=mcode%+len%*(pass%2)2 opt%="4647",pass%+1,1)  : rm_table @base80%=mcode%+len%:base81%=mcode%:byte%=0:count%=0:off%=0: Rbyte80%=base80%?off%:byte81%=base81%?off%: off%>=len%:byte80%=&80:byte81%=&80 ] ((byte81%-byte80%) &FE)<>0 "ERROR: Offset by more than one page at &";~&8000+off% M (byte80% &C0)=&80:byte%=byte%2+128*(byte81%-byte80%):count%=count%+1 1 count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0 "&off%=off%+1:off%>=len% count%=0 ,