ф >Patch122 !ф Patch Z80 Tube Client v1.20 ф J.G.Harston (ф Fixes: 2-ф Bad check for ROM type byte on execute <)ф Unbalanced stack entering raw code Fф Truncated OSWORD 5,14,15 Pф Corrected error numbers Zф SEEK0 overwrites stack d7ф Execute patch will co-exist with BBC BASIC patch n: xload$ ="Z80Tube120" ‚oswFF$="OswFFv3" Њsave$ ="Z80Tube122" –: !Ю mem% &FFF,ctrl% 19,name% 19 Єя"Load "+load$+" "+Г~mem% ґ4з mem%!&2A6<>&30322E31:с"Not v1.20 Client ROM":а ѕтasm И0я"Save "+save$+" "+Г~mem%+"+1000 0 FFFBBC00" Т о … а Ья"Stamp "+save$ жа р: ъ Этasm REBOOT=&FCAF:PROG=&FCA8 г P=0 ё 1 P%=mem%-&F000+&F7FC "[OPT P*3 ,6\ &F7FC: LD A,(HL):LD DE,copystr-mem%+&F000:LD B,4 6\ &F802: .loop @*\ &F802: LD A,(DE):CP (HL):JR NZ,LF826 J$\ &F806: INC HL:INC DE:DJNZ loop T\ &F80A: POP HL:DEC HL ^\ &F80C: LD A,(REBOOT) h\ &F80F: „ A:JR NZ,LF829 r\ &F812: LD A,(HL):Ђ &4F |\ &F815: CP &40:JR C,boot †\ &F819: CP &48:JR NZ,boot ђ\ &F81D: .code_enter љ&\ &F81D: CP A:LD HL,(PROG):JP (HL) ¤\ &F822: ®\ &F822: .boot ё\ &F822: CP A:JP &F4A9 В,\ &F823: \JP RunExec2 :\ BBC BASIC patch М,\ &F826: \JP RunExec1 :\ BBC BASIC patch Ц\ &F826: .LF826 а!\ &F826: POP HL:JR code_enter к\ &F829: ф\ &F829: .LF829 ю \ &F829: XOR A:LD (REBOOT),A \ &F82D: LD A,(HL):Ђ &4F \ &F830: CP &40:JR C,LF83D "\ &F834: CP &48:JR NZ,LF83D+25 &#\ &F838: LD A,&01:JR code_enter 0\ &F83C: NOP :\ &F83D: .LF83D D] NP%=mem%-&F000+&FF22 X[OPT P*3 b\ &FF22: .copystr l\ &FF22: ЭB 0:ЭM "(C)" v\ &FF26: Ђ] Љ(P%=mem%-&F000+&F300:[OPT P*3:ЭB 17:] ”)P%=mem%-&F000+&F50A:[OPT P*3:ЭB 200:] ћ.P%=mem%-&F000+&F629:[OPT P*3:NOP:NOP:NOP:] Ё)P%=mem%-&F000+&F83E:[OPT P*3:ЭB 249:] І)P%=mem%-&F000+&F857:[OPT P*3:ЭB 249:] ј(P%=mem%-&F000+&FA35:[OPT P*3:Ђ &FF:] Ж*P%=mem%-&F000+&FC74+5 :[OPT P*3:ЭB 4:] Р+P%=mem%-&F000+&FC74+14:[OPT P*3:ЭB 32:] Ъ+P%=mem%-&F000+&FC74+15:[OPT P*3:ЭB 32:] д+P%=mem%-&F000+&FC88+14:[OPT P*3:ЭB 32:] о,P%=mem%-&F000+&F2A6:[OPT P*3:ЭM "1.22":] ш,P%=mem%-&F000+&F730:[OPT P*3:ЭM "1.22":] н $X%=ctrl%:Y%=X%Ѓ256:$name%=oswFF$ (!X%=name%:A%=5:з ((є&FFDD)Ђ&FF)<>1:б (oswlen%=X%!6-X%!2:osw%=&FDDA-oswlen% *in%=Ћ(oswFF$):з in%=0:б 46г A%=0 ё oswlen%-1:mem%?(osw%-&F000+A%)=љ#in%:н A% > Щ#in% HP%=mem%-&F000+&F5B2 R$[OPT 3:LD DE,osw%:LD B,oswlen%:] \б я