( "ERROR 0 "+$+" at line "+Þ:  : Purpose : Patches !TransMrtl so that it works on RPC (9 Author : "Steven M. Singer" 2' Warning : NOT tested on StrongArm fingerprint%(i%) ^ #f% h = r |  #f%  "Backing up old files..."; @ș "OS_FSControl",26,dir$+".Trk_Player",dir$+".Trk_PlayeB",0 5ș "OS_FSControl",26,dir$+".!Run",dir$+".!RunB",0  "done."  )"Patching Tracker player module..."; f%=(dir$+".Trk_Player")  i%=0 14  #f%=trackloc%(i%)  #f%,trackval%(i%)  #f%  "done."  &"Patching !Run file..."; 0f%=(dir$+".!RunB") :g%=(dir$+".!Run") D ȕ #f% N a$=#f% X) a$="Run .ObjectCode" b' #g%,"Set TransMortal$RPC Y" lC #g%,"RMEnsure UtilityModule 3.50 Set TransMortal$RPC N" vE #g%,"IF "+(34)+""+(34)+"="+(34)+"Y"+ +(34)+" THEN .RunRPC ELSE "+a$   #g%,a$    #f%  #g%  "done."  "Adding RunRPC file..."; f%=(dir$+".RunRPC") ( #f%,"RmLoad .RPCMode100" * #f%,"WimpSlot -min 1048K -max 1048K" & #f%,"LOAD .ObjectCode"  ) #f%,"LOAD .RPCCode FFFE4"  #f%,"GO FFFEC"   #f%,"RMKill Mode100" *#f% 4(("SetType "+dir$+".RunRPC"+" Obey") > "done." H R"Adding patch code..."; \ code% 1024 f pass%=0 2 2 p P%=code% z[OPT pass%  .start% EQUD &258F8  .jump% MOV PC,#&00100000 MOV R0,#&97000 R R0,R0,#&4c0 LDR R1,jump% STR R1,[R0] LDR PC,start%  MOV R3,#3 ADR R0,changes% .changeloop% LDMIA R0!,{R1,R2} STR R2,[R1] SUBS R3,R3,#1 BNE changeloop% $LDR PC,start% . .changes% 8EQUD &25988 B MOV R0,R0 LEQUD &25994 VRSBS R1,R1,#&00078000 `EQUD &2599c j SWIGT "OS_ChangeDynamicArea" t .end% ~]   4ș "OS_File",10,dir$+".RPCCode",&FFD,,code%,end%  "done."  "Adding mode module...";  pass%=4 6 2 P%=0  O%=code% [OPT pass%  EQUD 0  EQUD 0  EQUD 0  EQUD service% EQUD title% EQUD help% ( EQUD 0 2 .title% <EQUS "Mode100" F EQUB 0 P .help% Z3EQUS "Mode 100"+(9)+"1.01 (11 Oct 1996)"+(13) d EQUB 9 n EQUB 9 x7EQUS "Text: 40x34 Graphics: 320x272 Colours: 256"  EQUB 0  ALIGN  .service% CMP R1,#&50 CMPEQ R2,#100  Q R1,#0 ADREQ R3,vidc% ADREQ R4,vdu% MOV PC,R14  .vidc%  EQUD 3  EQUD 3  EQUD 42  EQUD 14  EQUD 12  EQUD 320 " EQUD 12 , EQUD 0 6 EQUD 2 @ EQUD 98 J EQUD 0 T EQUD 272 ^ EQUD 0 h EQUD 77 rEQUD 12587 | EQUD 2  EQUD -1  .vdu%  EQUD 0  EQUD 10  EQUD 0  EQUD 0  EQUD 1  EQUD 39  EQUD 2  EQUD 33  EQUD 3  EQUD 63  EQUD 4  EQUD 1  EQUD 5  EQUD 2 & EQUD 6 0 EQUD 320 : EQUD 7 DEQUD 320*272 N EQUD 8 X EQUD 0 b EQUD 9 l EQUD 3 v EQUD 10  EQUD 3  EQUD 11  EQUD 319  EQUD 12  EQUD 271  EQUD -1  .end% ]   =ș "OS_File",10,dir$+".RPCMode100",&FFA,,code%,code%+end%  "done."  "Patch complete."   =