 
Т >Z80CONV Т Z80 BBCBASIC Converter "Т By J.G.Harston, (C)1989-2009 (Т 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 ╙?Т 01/03/09 v1.26: ROM header checks Tube after Tube startup Є: Ў)Г░<>&3B00:Я"Wrong version of BASIC":Ю х+test%=ё:VER$="1.26":DATE$="01 Mar 2009" рР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:6ChkEscape=&366E@:JЦ P=0 ╦ 1T3P%=єaddr(&011B):[OPT P*3   :\ Pass command to Ъ^JP oscli:]h:r6P%=єaddr(&0143):[OPT P*3   :\ Get host environment|ж 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Dж OSWRCH:]N:X2P%=єaddr(&0DAE):[OPT P*3   :\ Check for Escapebж ChkEscape:]l:v>P%=єaddr(&0D06):[OPT P*3   :\ Check for ╒#= as well as ▐#=─щ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44CP 5:JP Z,PrReal            :\ &05=real, &04=int>+LD A,&40:ж &328E         :\ &40=IntegerHж PutH1:ж PutL1Rж PutH2:ж PutL2\4POP BC:JR єaddr(&0F84)     :\ Loop for next itemf:p.PrStringzLD H,&38:LD L,E:POP DE└*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8POP IX:POP AFBPUSH DE:ж &15EA:POP DEL<JR єaddr(&12D7)            :\ Loop to fetch another itemV:`.InpStringj.ж &32AB:ж &32AB       :\ Fetch Type,LengthtPUSH AF:LD L,A:LD H,&38~.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:]
:6Т P%=FNaddr(&1460):[OPT P*3 :\ Do NL before REPORT=Т CALL report:]             :REM Compatible with ?(TOP-2)(: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:ж OSBPUT  :\ Initial CRж/ж SaveWriteLp            :\ Save with BPUTsЮXOR A:JP OSFINDЙ:Т;.SaveWriteLp                :\ Save program using BPUTsЧ&LD A,(DE):─ A             :\ Get ╘HLD A,&FF:JP Z,OSBPUT        :\ If &00, output end-of-prog and return.INC DE:INC DE               :\ Point to HI&ж PutByte                :\ Put HI&&ж PutByteDec             :\ Put LO0%ж PutByteDec             :\ Put ╘:0INC DE:INC DE:INC DE        :\ Point to textD.SaveWriteN-ж PutByte:INC DE         :\ Put each byteXCP 13:JR NZ,SaveWritebJR SaveWriteLpl:v.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 IINC DE                      :\ 6502-style program has to be reordered*9.LoadLoop                   :\ HL=><CR>+1, DE=><CR>+14*INC DE:INC DE:LD A,(DE):LD (HL),A:\  ╘>&DEC DE:LD A,(DE):LD B,A     :\  LOH&DEC DE:LD A,(DE)            :\  HIR&INC HL:LD (HL),B            :\  LO\&INC HL:LD (HL),A            :\  HIf7INC A:JR Z,LoadEnd          :\ End of BASIC programp:INC H:JR Z,LoadEnd          :\ Gone past top of memoryz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	$JR LoadLoop	.:	8.LoadEnd	BDEC HL:DEC HL:LD (HL),0	L.LoadOk	V3SCF:RET                     :\ Flag OK and exit	`:	j;.SaveCreate                 :\ Try to create empty file	t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
:
.CallOsfile
(LD HL,ctrl:JP OSFILE
2:
<.CantOpen
F-LD A,192:ж &07D6:щM "Can't save file":NOP
P:
Z.openin :LD A,&40:JR open
d.openout:LD A,&80:JR open
n$.openup :LD A,&C0:.open:JP &218E
x:
┌.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"CP &F6:JP Z,FuncRdReport,HJP &2186                    :\ Unrecognised extra function - Mistake6:@.FuncRdEndJLD HL,(&3AE2):JP &2186T:^(]:Рchk(&32AB):[OPT P*3   :\   =&32ABhPUSH HL:LD H,E:ж OSBGETr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.ReadArgs&LD HL,0:LD (ctrl+2),HL0ж CallArgsHL:LD HL,(ctrl)DLD DE,(ctrl+2):RETN:X.OsByte00b/LD HL,0:JP OSBYTE           :\ Osbyte A,0,0l:v)]:Р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 ж &2FC0:JP &21B2*.GetDate4
INC IY>LD HL,&3800:LD (HL),0HLD A,14:ж &FFF1RLD A,(HL):LD E,A\─ A:JR Z,GetDate2fLD E,24:.GetDate2pLD D,&38:LD A,&80:RETz:└(.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:$%.FuncRdReport               :\ =Ж.LD A,(IY+0):CP ≈"$"8JR NZ,RdReport:INC IYB.RdReportLLD HL,(&3AEE):LD DE,&3800V.RdReportLp`LD A,(HL):LD (DE),AjINC DE:INC HLt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".PutH2:EXX:LD A,H:EXX:JP &328E(".PutL2:EXX:LD A,L:EXX:JP &328E2:<.InpStrEndFPOP AF:LD L,AP"POP IX:POP AF:PUSH DE:EX DE,HLZж &1611:POP DE:JP &12D7d.InpRealnж GetL2:ж GetH2xж 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".SaveName3,%LD A,(HL):LD (DE),A:INC DE:INC HL6CP 13:JR NZ,SaveName3:RET@.SaveSkipSpcJ+LD A,(HL):INC HL:CP 32:JR Z,SaveSkipSpcTRET^:h.SaveTooBigr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.CopyLine&LD A,(DE):LD (HL),A:INC HL0INC DE:CP 13:JR NZ,CopyLine:JR SaveCopyD.CopyEndZeroNDEC HL:DEC HLXLD (HL),&FF:INC HLb.CopyEndl!LD DE,(&3AE2):LD (ctrl+10),DEv!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 3LD HL,Error1:LD (&FFFA),HL  :\ Init BRKV vector*LD A,&E5:ж OsByte004LD A,&E6:ж OsByte00>-ж GetCmdLine:PUSH AF     :\ Save cmd flagH0LD A,&84:ж OSBYTE:EX DE,HL :\ DE=MEMTOP -> ⌠R.LD A,&83:ж &FFF4         :\ HL=MEMBOT -> ░\=LD L,0:LD A,H:CP &3B        :\ Check if MEMBOT is too lowfJR NC,InitPageOkp9LD H,&3B                    :\ Force MEMBOT=end of wsz.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$7EX DE,HL:LD (HL),13:RET     :\ Put terminating <cr>.:8;.SpareStart                 :\ Where spare space startsB]МL:V2P%=єaddr(&0E3D):[OPT P*3:JP CheckCommand:NOP:]`%Т Check for functions as commandsj2Т Must be done last, or interpreter falls overt:~Я"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щB &4C:щW &8000+ServStart(
щB &E82щB copy-start<щB ╩ VER$FщM "Z80 BASIC"PщB 0ZщM VER$+" ("+DATE$+")"d	.copynщB 0xщ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".щB &20:щW PrMessage-&3000 :\ JSR PrMessage,+щB &AE:щW &190+187      :\ LDX OS_Basic6&щB &E4:щB &F4           :\ CPX &F4@'щB &D0:щB &01           :\ BNE P%+3J$щB &CA                    :\ DEXT'щB &A9:щB &8E           :\ LDA #142^)щB &4C:щW &FFF4         :\ JMP OSBYTEh:r.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LD DE,Header:LD BC,15&3EX DE,HL:LDIR               :\ Copy header to ⌠0::=LD DE,Patch+1:LD (&FFF8),DE :\ Redirect Ъ to patched codeD6DEC DE                      :\ Point to Patch areaN4LD BC,PatchEnd-PatchStart:LDIR:\ Copy Patch codeX5LD DE,ExecPatch:LD BC,6:LDIR:\ Patch RunExec codeb:l1XOR A:LD (&FCA3),A          :\ Turn full Ъ onv8LD (&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 :*.RunExec14:POP HL              :\ Enter pure code - balance stack>.RunExec2H:JP Z,&F4A9          :\ Check ROM header - not Z80 codeR6CP A:LD HL,(&FCA8): :\ Z=1, flag stack as balanced\%JP (HL)             :\ Enter codef.PatchEndp:z1JP 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ЭАЪ