 
Ї > LibMax/s 0.11 Ї Library Maximiser 0Ї NB: Currently only works on MOS 3 onwards! (DЇ ??-???-1997 v0.02 JJR: Initial version, works via direct entry 2>Ї 20-Feb-1999 v0.10 JGH: Rewritten to trap errors properly <?Ї 28-Feb-1999 v0.11 JGH: Module-compatible relocation table F: PчУ<╕P:ы&87 Z%Ї EXTENDED VECTORS START AT &0D9F d+▐ mcode% 1024:ver$="0.11 (28 Feb 1999)" nOSNEWL=&FFE7:OSWRCH=&FFEE xVectorTable=&FFB6 ВVec0=&200: CLIV=&208 МXVec0=&D9F:XCLIV=&DAB Цlptr=&F2:  errptr=&FD а: кlen%=0:у pass%=0 ╕ 3 ┤P%=&8100-128*(pass%А2) ╛O%=mcode%+len%*(pass%А2)Б2 ╚opt%=╗┴"4647",pass%+1,1) ╥[OPT opt% ▄.RomStart цBRK:EQUW RelocTable ЁJMP RomService ·2EQUB &82:EQUB RomCopyright-RomStart:EQUB ╗ver$..RomTitle    :EQUS "Library Maximiser":BRK.RomVersion  :EQUS ver$+.RomCopyright:BRK:EQUS "(C)JJR,JGH":BRK":,.RomHelp64EQUS "  Maximises your Library capacity":EQUB 13@2EQUS "  *command translated to *c.command":BRKJ:T.RomService^ CMP #9:BNE P%+5:JMP Service9h CMP #6:BNE P%+5:JMP Service6r CMP #2:BNE P%+5:JMP Service2|RTSЖ:Р.Service9:\ *HelpЪ
LDX #0д%LDA (&F2),Y:CMP #13:BEQ ServHelp1оCMP #Ч".":BEQ ServHelp2╕"А #&DF:CMP #Ч"L":BEQ ServHelp2┬BNE Serv9Exit╠.ServHelp1╓CLCр.ServHelp2ъPHP:JSR OSNEWLЇ.ServHelpLp■#LDA RomTitle,X:BEQ ServHelpDone!JSR OSWRCH:INX:BNE ServHelpLp.ServHelpDoneLDX #RomHelp-RomTitle&PLP:BCS ServHelp10JSR OSNEWL:.Serv9ExitDLDA #9:RTSN:X:b.Service2l4STX XCLIV+2                     :\ My ROM numberv?LDA #&FF:STA CLIV+1             :\ Point to extended vectorАLDA #XCLIV-XVec0:STA CLIV+0К0LDA NewOscV+1:STA XCLIV+1       :\ RoutineHiФ0LDA NewOscV+0:STA XCLIV+0       :\ RoutineLoЮLDA #2:RTSи:▓.NewOscV╝EQUW NewOsc╞.NewOsc╨9LDA &F4:STA &DCFF:В #&AA:STA &DCFE :\ Set Error Catch┌>PHX:TSX:STX &DCFD:PLX                :\ Save stack pointerфAJSR DoOscli                          :\ Try to do the commandю.ErrorUntrapped°BLDA #0:STA &DCFF:STA &DCFE           :\ Clear Error Catch Flag?LDA #6:RTS                           :\ Exit from Service 6:.DoOscli 1CLC:LDA #CLIV-Vec0:ADC VectorTable+1:STA &101*LLDA #0:ADC VectorTable+2:STA &102    :\ Get pointer to address of real  4LDA #&6C:STA &100:JMP &100>:H@.Service6                            :\ An error has occuredR1LDA &DCFF:В &DCFE:CMP #&AA:BNE ErrorUntrapped\5LDY #0:LDA (errptr),Y:CMP #254:BNE ErrorUntrappedfALDX &DCFD:TXS:PLX                    :\ Restore stack pointerp
LDY #0z.ErrorRealignДLDA (lptr),Y:STA &DC00,YОIINY:CMP #13:BNE ErrorRealign         :\ Ensure string starts at &DC00ШLDX #&FDв.ErrorMoveUpмLDA &DBFF,X:STA &DC02,X╢JDEX:BNE ErrorMoveUp                  :\ Move up 3 for extra characters└!STA &DC01:LDA #Ч".":STA &DC02╩<LDA #Ч"/":STA &DC00                :\ Add '/x.' to start╘9JSR ErrorUntrapped                   :\ Untrap errors▐=LDX #0:LDY #&DC:JMP DoOscli          :\ Try command againш:Є.RelocTable№]len%=RelocTable-RomStartэЄMakeRelocTable$;ё"*Save LibMax "+├~(mcode%+len%)+" "+├~O%+" 0 FFFBBC00".р8:B▌ЄMakeRelocTableL@base80%=mcode%+len%:base81%=mcode%:byte%=0:count%=0:off%=0:їVRbyte80%=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%jMч (byte80% А &C0)=&80:byte%=byte%Б2+128*(byte81%-byte80%):count%=count%+1t1ч count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0~&off%=off%+1:¤off%>=len% А count%=0Ис