 
Т >Z80CONV Т Z80BBCBASIC Converter "Т By J.G.Harston, (C)1989-2006 (Т 70 Camm Street 2Т SHEFFIELD <Т S6 3TR FТ Public Domain P$Т 16/04/91: Uses extended *Basic Z Т 23/05/91: PRINT# corrected d+Т 16/06/93: Load checks for non-65BASIC n-Т 23/02/97 v1.19: Errors don't do CLOSE#0 x1Т 27/02/97 v1.20: Module-compliant rom header ┌?Т 15/04/97 v1.22: load_block moved to common block at &374D ▄DТ 14/07/97 v1.23: Reordered in code order, better variable names √EТ 23/11/03 v1.24: Compacted code to help with Spectrum conversion ═HТ 24/04/06 v1.25: Load changed as ANFS doesn't return correct length ╙: Є)Г░<>&3B00:Я"Wrong version of BASIC":Ю Ў+test%=ё:VER$="1.25":DATE$="24 Mar 2006" хРassm1:Рassm2 рЮ э: ФщРassm1 П*OSFILE=&FFDD:OSFIND=&FFCE:OSBPUT=&FFD4 З7OSBGET=&FFD7:OSARGS=&FFDA:OSGBPB=&FFD1:OSRDCH=&FFE06OSWRCH=&FFEE:OSWORD=&FFF1:OSBYTE=&FFF4:oscli=&FFF7ctrl=&374D:",Т Point to old routines before starting:,ChkEscape=&366E6:@Ц P=0 ╦ 1J3P%=єaddr(&011B):[OPT P*3   :\ Pass command to ЪTJP oscli:]^:h6P%=єaddr(&0143):[OPT P*3   :\ Get host environmentrж InitEnv:]|:├2P%=єaddr(&019D):[OPT P*3   :\ Print '>' prompt░ж PrPrompt:] :є.P%=єaddr(&01D6):[OPT P*3   :\ Input a lineўж RdLine:]╦:б2P%=єaddr(&06A1):[OPT P*3   :\ Check for Escapeлж ChkEscape:]ж:Ю8P%=єaddr(&07A6):[OPT P*3   :\ Look for Save filenameЙж SaveFindName:]Т:Ч2P%=єaddr(&07FE):[OPT P*3   :\ In error handlerNOP:NOP:NOP:]P%=єaddr(&080A):[OPT P*3NOP:NOP:NOP:NOP:NOP:]&:0,P%=єaddr(&095A):[OPT P*2   :\ Print char:ж OSWRCH:]D:N2P%=єaddr(&0DAE):[OPT P*3   :\ Check for EscapeXж ChkEscape:]b:l>P%=єaddr(&0D06):[OPT P*3   :\ Check for ╒#= as well as ▐#=vщW SetExtPtr:]─:┼0P%=єaddr(&0DDC):[OPT P*3   :\ Don't ы#0 on Ю■NOP:NOP:NOP:]·:╗#P%=єaddr(&0E18):[OPT P*3   :\ Ъ╡ж oscli:]╪:ф*P%=єaddr(&0E20):[OPT P*3   :\ *commandпж oscli:]з:Д2P%=єaddr(&0E63):[OPT P*3   :\ Check for EscapeНж ChkEscape:]Ь:$P%=єaddr(&0F8E):[OPT P*3   :\ Я#PUSH DE:ж &1E46:EX AF,AF'JP M,PrString POP DE:PUSH BC*4CP 5:JP Z,PrReal            :\ &05=real, &04=int4+LD A,&40:ж &328E         :\ &40=Integer>ж PutH1:ж PutL1Hж PutH2:ж PutL2R4POP BC:JR єaddr(&0F84)     :\ Loop for next item\:f.PrStringpLD H,&38:LD L,E:POP DEz*XOR A:ж &328E            :\ &00=String└&LD A,L:ж &328E           :\ Length▌.PrStringLp≤!INC L:DEC L:JR Z,єaddr(&0F84)╒$DEC L:LD A,(HL):ж &328E  :\ Char╛JR PrStringLpІ:ю3NOP:NOP:NOP:NOP             :\ Four spare bytesй]:Рchk(&0FCC)т:ч$P%=єaddr(&12E9):[OPT P*3   :\ Х#ХPUSH AF:PUSH HLР└ A:JP M,InpStringЭж &32AB:CP &FF:JP Z,InpRealж GetH1:ж GetL1ж GetH2:ж GetL2
LD C,0$.AssignVal.POP IX:POP AF8PUSH DE:ж &15EA:POP DEB<JR єaddr(&12D7)            :\ Loop to fetch another itemL:V.InpString`.ж &32AB:ж &32AB       :\ Fetch Type,LengthjPUSH AF:LD L,A:LD H,&38t.InpStringLp~INC L:DEC L:JP Z,InpStrEnd┬$DEC L:ж &32AB:LD (HL),A  :\ Char▓JR InpStringLp°:і.PrPrompt╟3LD A,&3E:JP OSWRCH          :\ Print '>' prompt╨:д]:Рchk(&132A)н:ь/P%=єaddr(&13A3):[OPT P*3   :\ No ┴ before ХБJR єaddr(&13A8):]Л:Ж.P%=єaddr(&13AF):[OPT P*3   :\ Input a line ж RdLine:]
:0P%=єaddr(&1460):[OPT P*3   :\ Do NL before Жж report:](:2*P%=єaddr(&149B):[OPT P*3   :\ ▐#=, ╒#=<JP WriteArgs:]F:P.P%=єaddr(&14B0):[OPT P*3   :\ Check ▒=/▒$=ZJP SetTime:]d:n&P%=єaddr(&1521):[OPT P*3   :\ О x,xж OSWRCH:]┌:▄&P%=єaddr(&1530):[OPT P*3   :\ О x;√ж OSWRCH:]═:╙0P%=єaddr(&1D8A):[OPT P*3   :\ Separate ▌/ґ/ўЄщW openin:]ЎP%=єaddr(&1DC8):[OPT P*3хщW openup:щW openout:]р:эCP%=єaddr(&1FDC):[OPT P*3   :\ Check for functions in &C6+ rangeФJP NC,CheckFunction:]П:ЗP%=єaddr(&2192):[OPT P*3;LD A,13:LD (DE),A:POP AF    :\ CR-terminate OPEN string3LD HL,&3800:ж OSFIND     :\ Call OSFIND to open]":,.P%=єaddr(&21AF):[OPT P*3   :\ Check =▒/=▒$6JP GetTime:]@:J&P%=єaddr(&264C):[OPT P*3   :\ =╔/ЎTж OSRDCH:]^:hP%=єaddr(&3169):[OPT P*3r.OsfileHigh|2LD A,&82:ж OSBYTE        :\ Get addr high word├LD (ctrl+4),HL:RET░: 2]:Рchk(&3172):[OPT P*3   :\ Save Basic programє0ж SaveTryOsfile:RET NC   :\ Try using OSFILEў4ж SaveCreate             :\ Create an empty file╦4LD A,&80:ж OSFIND        :\ Open file for outputб─ A:JP Z,CantOpenл-LD H,A:LD A,13              :\ Initial CRж/DEC DE:ж SaveWrite       :\ Save with BPUTsЮXOR A:JP OSFINDЙ:Т;.SaveWriteLp                :\ Save program using BPUTsЧLD A,(DE):─ A9LD A,&FF:JR Z,SaveWriteFF   :\ If ╘=0, end of program.INC DE:INC DE               :\ Point to HI.SaveWriteFF&ж PutByte0<CP &FF:RET Z                :\ If HI=&FF, end of program:&ж PutByteDec             :\ Put LOD%ж PutByteDec             :\ Put ╘N0INC DE:INC DE:INC DE        :\ Point to textX.SaveWriteb-ж PutByte:INC DE         :\ Put each bytelCP 13:JR NZ,SaveWritevJR SaveWriteLp─:┼.PutByteDec■
DEC DE·.PutByte╗LD A,(DE):JP OSBPUT╡:╪.reportф/ж &FFE7:JP &0CE2         :\ Put NL before Жп:з2NOP:NOP                     :\ Two spare bytesД:Н9]:Рchk(&31BB):[OPT P*3   :\ Load BASIC program =&31BBЬ;LD (ctrl),HL:LD (ctrl+2),DE :\ HL=>filename, DE=addressж OsfileHighXOR A:LD (ctrl+6),A2DEC A:ж CallOsfile       :\ Load to ░ (was +1) 0PUSH DE:POP HL              :\ DE=load, HL=░*:LD A,(DE):CP 13:JR NZ,LoadOk:\ Z80-style Basic program4IINC DE                      :\ 6502-style program has to be reordered>9.LoadLoop                   :\ HL=><CR>+1, DE=><CR>+1H*INC DE:INC DE:LD A,(DE):LD (HL),A:\  ╘R&DEC DE:LD A,(DE):LD B,A     :\  LO\&DEC DE:LD A,(DE)            :\  HIf&INC HL:LD (HL),B            :\  LOp&INC HL:LD (HL),A            :\  HIz7INC A:JR Z,LoadEnd          :\ End of BASIC program└:INC H:JR Z,LoadEnd          :\ Gone past top of memory▌DEC H:JR LoadLine≤:╒(]:Рchk(&31EB):[OPT P*3   :\ ы =&31EB╛XOR A:LD H,E:JP OSFINDІ:ю9.LoadLine                   :\ HL=>HI(80), DE=>HI(65)й/INC DE:INC DE:INC DE        :\ DE=>TEXT(65)т,DEC HL:DEC HL               :\ HL=>╘(80)ч.LoadLineSpcХ&LD A,(DE):CP 32:JR NZ,LoadLineTextР;DEC (HL):INC DE:JR LoadLineSpc:\ Skip space, dec lengthЭ.LoadLineText	/INC HL:INC HL:INC HL        :\ HL=>TEXT(80)	.LoadTextLoop	,LD A,(DE):LD (HL),A         :\ Copy text	$INC HL:INC DE	.9CP 13:JR NZ,LoadTextLoop    :\ HL=>(CR)+1, DE=>(CR)+1	8JR LoadLoop	B:	L.LoadEnd	VDEC HL:DEC HL:LD (HL),0	`.LoadOk	j3SCF:RET                     :\ Flag OK and exit	t:	~;.SaveCreate                 :\ Try to create empty file	┬LD (ctrl),HL:PUSH HL	▓!PUSH DE:XOR A:LD E,A:ж OSARGS	°4CP 4:JR C,SaveCreateTape    :\ CFS, can't create	іPOP DE:PUSH DE:INC DE	╟LD (ctrl+10),DE	╨EX DE,HL:INC HL:ADD HL,BC	д.SaveOsfile	н LD (ctrl+14),HL:ж OsfileHigh	ь#LD (ctrl+12),HL:LD (ctrl+16),HL	БLD HL,&FFFF	Л!LD (ctrl+4),HL:LD (ctrl+8),HL	ЖLD HL,&FB00:LD (ctrl+2),HL
 LD H,0:LD (ctrl+6),HL

XOR A:ж CallOsfile:─ A
.SaveCreateTape
APOP DE:POP HL:RET           :\ On return, C=CFS, NC=DISK, etc
(:
2.CallOsfile
<LD HL,ctrl:JP OSFILE
F:
P.CantOpen
Z-LD A,214:ж &07D6:щM "Can't open file":NOP
d:
n.openin :LD A,&40:JR open
x.openout:LD A,&80:JR open
┌$.openup :LD A,&C0:.open:JP &218E
▄:
√.WriteArgs
═APOP BC                      :\ BC=0/18 ╒/▐, A=chn, DEHL=value
╙LD (ctrl+2),DE:LD E,A
Є/LD A,C:─ A:LD A,1         :\ If C<>0, do ▐=
Ў-JR NZ,WriteArgs2:LD A,3     :\ C=0, do ╒=
х.WriteArgs2
рж CallArgsHL:JP &0DAA
эNOP
Ф:
П(]:Рchk(&328E):[OPT P*3   :\ у =&328E
ЗPUSH HL:LD H,E:ж OSBPUTPOP HL:RET:.CheckFunction"CP &EB:JR Z,FuncRdMode,CP &E0:JR Z,FuncRdEnd6CP &F6:JP Z,FuncRdReport@HJP &2186                    :\ Unrecognised extra function - MistakeJ:T.FuncRdEnd^LD HL,(&3AE2):JP &2186h:r(]:Рchk(&32AB):[OPT P*3   :\   =&32AB|PUSH HL:LD H,E:ж OSBGET├POP HL:RET░: .FuncRdModeєLD A,&87:ж &FFF4ўLD L,H:JP &2184╦:б.EofEndлLD A,127:LD L,Eжж OSBYTE:LD A,LЮCPL:─ A:RETЙ)]:Рchk(&32C5):[OPT P*3   :\ =е =&32C5ТJR EofEndЧ:3NOP:NOP:NOP:NOP:NOP         :\ five spare bytes:)]:Рchk(&32CC):[OPT P*3   :\ =╒ =&32CC&
LD A,20.ReadArgs:LD HL,0:LD (ctrl+2),HLDж CallArgsHLNLD HL,(ctrl)XLD DE,(ctrl+2):RETb:l.OsByte00v/LD HL,0:JP OSBYTE           :\ Osbyte A,0,0─:┼)]:Рchk(&32E5):[OPT P*3   :\ =▐ =&32E5■XOR A:JR ReadArgs·:╗.CheckCommand╡2CP &95:JP Z,&0E5F           :\ Enter assembler╪)CP &DC:JP NZ,&0E41          :\ Not ╒=ф2LD C,0                      :\ Flag this is ╒=п.SetExtPtrз5PUSH BC:JP &148C            :\ Save cmd, evaluateД:Н.CallArgsHLЬLD (ctrl),HLLD HL,ctrl:JP OSARGS:(.GetTime                    :\ =▒$/▒ LD A,(IY+0):CP ≈"$"*JR Z,GetDate4ж &2FC0:JP &21B2>.GetDateH
INC IYRLD HL,&3800:LD (HL),0\LD A,14:ж &FFF1fLD A,(HL):LD E,Ap─ A:JR Z,GetDate2zLD E,24:.GetDate2└LD D,&38:LD A,&80:RET▌:≤(.SetTime                    :\ ▒$/▒=╒LD A,(IY+0):CP ≈"$"╛JR Z,SetDateІж &1758:JP &14B3ю.SetDateйINC IY:ж &1758тж &1F5F:\ get stringчLD A,E:─ A:JR Z,SetDateNullХPUSH DE:LD H,D:LD L,EРLD C,E:LD B,0:DEC HLЭLDDR:POP DE.SetDateNullLD HL,&3800:LD (HL),ELD A,15:ж &FFF1$JP &0DAA.:8%.FuncRdReport               :\ =ЖBLD A,(IY+0):CP ≈"$"LJR NZ,RdReport:INC IYV.RdReport`LD HL,(&3AEE):LD DE,&3800j.RdReportLptLD A,(HL):LD (DE),A~INC DE:INC HL┬BIT 7,E:JR NZ,RdReportEnd▓─ A:JR NZ,RdReportLp°	DEC Eі.RdReportEnd╟LD A,&80:RET╨:д.PrRealн(LD A,&FF:ж &328E         :\ &FF=realьж PutL2:ж PutH2Бж PutL1:ж PutH1ЛPOP BC:LD A,C:─ AЖ>JR Z,PrRealExp:INC A        :\ Put exponent into 6502 form .PrRealExp
ж &328E:JP &0F84:.PutH1:LD A,H:JP &328E(.PutL1:LD A,L:JP &328E2".PutH2:EXX:LD A,H:EXX:JP &328E<".PutL2:EXX:LD A,L:EXX:JP &328EF:P.InpStrEndZPOP AF:LD L,Ad"POP IX:POP AF:PUSH DE:EX DE,HLnж &1611:POP DE:JP &12D7x.InpReal┌ж GetL2:ж GetH2▄ж GetL1:ж GetH1√ж &32AB:LD C,A═CP 2:JP C,AssignVal╙	DEC CЄJP AssignValЎ:х.GetH1:ж &32AB:LD H,A:RETр.GetL1:ж &32AB:LD L,A:RETэ%.GetH2:ж &32AB:EXX:LD H,A:EXX:RETФ%.GetL2:ж &32AB:EXX:LD L,A:EXX:RETП:З.SaveFindName!LD A,(IY+0):CP 13:JP NZ,&1F5F&LD HL,(&3ADC):INC HL:INC HL:INC HL$ж SaveSkipSpc:CP &F4:JP NZ,&1F5F"%ж SaveSkipSpc:CP ≈">":JP NZ,&1F5F,LD DE,&38006.SaveName3@%LD A,(HL):LD (DE),A:INC DE:INC HLJCP 13:JR NZ,SaveName3:RETT.SaveSkipSpc^+LD A,(HL):INC HL:CP 32:JR Z,SaveSkipSpchRETr:|.SaveTooBig├POP HL:SCF:RET░: 9.SaveTryOsfile              :\ Try saving with OSFILEє$PUSH HL:LD HL,(&3AE2)       :\ ЮўADD HL,BC:JR C,SaveTooBig╦LD A,H:INC AбLD HL,0:ADD HL,SPлCP H:JR NC,SaveTooBigжPOP HL:LD (ctrl),HLЮ#LD HL,(&3AE2):LD (HL),13:INC HLЙ.SaveCopyТ,INC DE:INC DE:LD A,(DE):LD (HL),A:INC HLЧCP &FF:JR Z,CopyEnd%DEC DE:LD A,(DE):LD (HL),A:INC HLDEC DE:LD A,(DE):LD (HL),A─ A:JR Z,CopyEndZero&INC HL:INC DE:INC DE:INC DE0.CopyLine:LD A,(DE):LD (HL),A:INC HLDINC DE:CP 13:JR NZ,CopyLineNJR SaveCopyX.CopyEndZerobDEC HL:DEC HLlLD (HL),&FF:INC HLv.CopyEnd─!LD DE,(&3AE2):LD (ctrl+10),DE┼!PUSH HL:PUSH HL:JP SaveOsfile■:·.Error1╗5LD HL,(&FF82):PUSH HL       :\ Push FAULT pointer╡.Error2╪3POP HL:LD A,(HL):INC HL     :\ Get error numberф1PUSH HL:JP &07D6            :\ Register errorп:з.ChkEscapeД1LD A,(&FF80):└ A:RET P     :\ No Escape stateН.MkEscapeЬLD A,&7E:ж OSBYTE8JP &0E84                    :\ Generate Escape error:.InitEnv 6LD A,&C3:LD (&38),A         :\ Init RST &38 vector*LD HL,Error2:LD (&39),HL43LD HL,Error1:LD (&FFFA),HL  :\ Init BRKV vector>LD A,&E5:ж OsByte00HLD A,&E6:ж OsByte00R-ж GetCmdLine:PUSH AF     :\ Save cmd flag\0LD A,&84:ж OSBYTE:EX DE,HL :\ DE=MEMTOP -> ⌠f.LD A,&83:ж &FFF4         :\ HL=MEMBOT -> ░p=LD L,0:LD A,H:CP &3B        :\ Check if MEMBOT is too lowzJR NC,InitPageOk└9LD H,&3B                    :\ Force MEMBOT=end of ws▌.InitPageOk≤3POP AF:RET                  :\ NZ=param present╒:╛7.RdLine                     :\ Read a line of inputІLD IX,&374DюLD (IX+0),L:LD (IX+1),Hй0LD (IX+2),&FF               :\ max=255 charsт0LD (IX+3),&20:LD (IX+4),&FF :\ chars &20-&FFч4LD A,&DA:ж OsByte00      :\ Clear scroll counterХ+XOR A:LD HL,&374D:ж OSWORD :\ Read lineР@JR C,MkEscape:XOR A:RET     :\ Generate Escape if escape setЭ:<.GetCmdLine                 :\ Final code, so expandable7XOR A:LD DE,&3800:LD HL,&80 :\ DE=strbuf, HL=cmdbuf1LD C,(HL):INC HL            :\ Get cmd length$?CP C:JR Z,GetNoCmd:LDIR     :\ Copy command pars if present..GetNoCmd87EX DE,HL:LD (HL),13:RET     :\ Put terminating <cr>B:L;.SpareStart                 :\ Where spare space startsV]М`:j2P%=єaddr(&0E3D):[OPT P*3:JP CheckCommand:NOP:]t%Т Check for functions as commands~2Т Must be done last, or interpreter falls over┬:▓Я"Saving Z80BAS"°0Г ╛ test% Ъ"**SAVE Z80BAS 100 "+ц~SpareStartіА╟(щєaddr(A%):Г test% ▄ =A%+&A000 ▀ =A%╨IщРchk(A%):ГP%-(test% ─&A000)<>A%:Я"Misalignment at ";~A%;" (";~P%;")"дАн:ьщРassm2Бч mcode% &11F:start=&B000ЛServStart=SpareStartЖ!Patch=&F5AE     :Т Patch area 4ExecPatch=&F823 :Т Address of RunExec patch area
Ц P=0 ╦ 1P%=start:O%=mcode%[OPT P*3+4(JR LangZ80:щB &B02щB &4C:щW &8000+ServStart<
щB &E8FщB copy-startPщB ╩ VER$ZщM "Z80 BASIC"dщB 0nщM VER$+" ("+DATE$+")"x	.copy┌щB 0▄щM "(C)J.G.Harston"√щB 0═щW start:щW 0╙щB 0:\ Align to &803A:Є\Ў$\ This point NEEDS ╦ BE at &803Aх%\ For 6502/Z80 lang entry to workр.LangZ80эLD HL,start+&100:LD DE,&100Ф<LD BC,&3660:LDIR            :\ Copy language part to TPAП4LD A,&2A:LD (&F8E4),A       :\ LD HL,(nn) opcodeЗLD HL,6:JR LangX:NOP:$\ This point NEEDS ╦ BE at &B050%\ For 6502/Z80 lang entry to work"\ Lang6502,%щB &A2:щB &00           :\ LDX #06.щB &20:щW PrMessage-&3000 :\ JSR PrMessage@+щB &AE:щW &190+187      :\ LDX OS_BasicJ&щB &E4:щB &F4           :\ CPX &F4T'щB &D0:щB &01           :\ BNE P%+3^$щB &CA                    :\ DEXh'щB &A9:щB &8E           :\ LDA #142r)щB &4C:щW &FFF4         :\ JMP OSBYTE|:├.PrMessage░/щB &BD:щW &8000+ServStart+3:\ LDA MsgBase,X +щB &F0:щB &06           :\ BEQ PrMsgEndє)щB &20:щW &FFE3         :\ JSR OSASCIў$щB &E8                    :\ INX╦,щB &D0:щB &F5           :\ BNE PrMessageб$щB &60                    :\ RTSл:ж-\щB &4C:\щW &8000+ServStart+3:\ JMP &B783Ю:Й
.LangXТ=LD (&F8E5),HL               :\ Make Osbyte84 do LD HL,(6)Ч9LD A,&C3:DEC HL:LD (HL),A   :\ Put JP opcode at &00058LD HL,&E9E1:LD (&E),HL      :\ Create LD HL,PC at &E9LD HL,&1919:LD (&FC83),HL   :\ Set correct length for.LD (&FC96),HL               :\ Osword14,15&4LD HL,&F000:LD (&6),HL      :\ Put JP ⌠ at &00050LD DE,Header:LD BC,15:3EX DE,HL:LDIR               :\ Copy header to ⌠D:N=LD DE,Patch+1:LD (&FFF8),DE :\ Redirect Ъ to patched codeX6DEC DE                      :\ Point to Patch areab4LD BC,PatchEnd-PatchStart:LDIR:\ Copy Patch codel5LD DE,ExecPatch:LD BC,6:LDIR:\ Patch RunExec codev:─1XOR A:LD (&FCA3),A          :\ Turn full Ъ on┼8LD (&80),A:LD A,&80         :\ Look for command line■@LD HL,GBPBTable:ж &FFD1  :\ &80 will have length, &81.. name·:╗=LD A,90:LD HL,&0209:ж &FFF4:\ Ask myself if Break occured╡9BIT 6,L:LD A,138:LD HL,&CA00:\ and restore Break type╪=ж NZ,&FFF4               :\ *FX138,0,&CA if Break occuredф1EI:JP &100                  :\ Enter Z80Basicп:з.HeaderД#RET:RET:RET:JP &FFB9:щB &E8:NOPНщB 3:щM "BASIC":NOPЬ:.PatchStart7RET                         :\ Kill INIT_FF routine.NewOsc /LD (Patch+&C),SP:LD SP,&F60E:\ Patch Ъ code*:ж &F6B7:LD SP,0:RET      :\ Save SP, call, and restore4:>.RunExec1H:POP HL              :\ Enter pure code - balance stackR.RunExec2\:JP Z,&F4A9          :\ Check rom header - not Z80 codef6CP A:LD HL,(&FCA8): :\ Z=1, flag stack as balancedp%JP (HL)             :\ Enter codez.PatchEnd└:▌1JP RunExec2-PatchStart+Patch:\ Check rom code≤0JP RunExec1-PatchStart+Patch:\ Balance stack╒:╛.GBPBTableІщB 0:щW &80:щW 0ю8\щW 0:\щW 0:\щW 0:\щW 0:\ This can be trimmed to fitй:тщM д&B100-P%,Ґ0)ч:Х\ Must be within &B100Р]МЭ"Я'"Saving Z80 BASIC base code"HГ ╛ test% Ъ"**SAVE Z80R1 "+ц~mcode%+" "+ц~O%+" "+ц~start+" "+ц~startАЪ