ô > MonZ80 î…ö:ñž:òend:à Hos%=¤fx(0,1):ë(¤fx(135,0)256)„((“<&FFFF)€&80):ç“<&FFFF:Ó=¤fx(132,0) (Hio%=(¤fx(130,0)=&FFFF)€(os%<6):ad$="ddress":dd$="isassembl":*FX219,9 2]Þctrl%39,data%15,zp%3,A%-1:bln%=“-A%-1500*(1-2*(“>&FFFF)):buf%=“-bln%:òcpu:î…ç¤err:òend:à <&X%=ctrl%:Y%=X%256:çP%<„P%>“:P%= Fõ:òhlp:ý¤menu:òend:à P#Ý¤err:çŸ<0:P%=P%2:O%=O%2:=¦-1 Zö:çŸ<>17:ç¥ dç¦-1:ñ" at line ";ž‹Û n=¦-1 xÝòend:ÿ"FX3":î…à ‚òbot:*QUIT Œá –nÝ¤menu:ñ'½30"Memory: &"¤ho(P%-O%,W%)Š19)"Origin: &"¤ho(O%,W%)'"Buffer: &";~buf%Š18)"Buffer size: &";~bln%' >addr%=¤line(P%):num%=addr%-P%:õ:addr%=¤line(addr%):ý¼>=ht% ª%õQ$=¾:çQ$>"`"€Q$<"{":Q$=½(—Q$-32) ´)ý§½8+½9+½13+½127+"*+-;= ",Q$)„Q$>="0" ¾çQ$=½13:P%=P%+1:=0 ÈçQ$=½127„Q$=½8:P%=P%-1:=0 ÒçQ$=" ":P%=P%+num%:=0 Ü,ç(Q$>"/"€Q$<":")„(Q$>"@"€Q$<"G"):òhex:=0 æçQ$="L":òlst:=0 ðˆçQ$="T"„Q$="Y":ñÁ"MessageText",1-7*(Q$="T"),7);:è": "A$:A%=P%?©A$:$P%=A$:P%?©A$=A%:P%?(©A$-1)=P%?(©A$-1)„((Q$="Y")€&80):P%=P%+©A$:=0 úçQ$=½9:Z%=Z%‚64:=0 çQ$="M":òm:=0 çQ$="O":òo:=0 çQ$="+"„Q$=";":P%=P%+8:=0 "çQ$="-"„Q$="=":P%=P%-8:=0 ,çQ$="*":òosc:çQ$="":=0 6çQ$="H":Z%=Z%‚32:òcol:=0 @WçQ$="G":è†"Load file: "A$:çA$<>"":ÿ"LOAD """+A$+""" "+Ã~buf%+À"+"+Ã~bln%,os%=32):=0 JYçQ$="P":è†"Save file: "A$:çA$<>"":è"Length: &"Q$:ÿ"SAVE """+A$+""" "+Ã~buf%+"+"+Q$:=0 T+çQ$="J":Z%=(Z%€-4)+((Z%€3)+1)ƒ3:òcol:=0 ^$çQ$="W":W%=»Á"44456784",W%,1):=0 hçQ$="S":òmde:=0 r0çQ$="Z":ç¤Dis_Name(0)="":M%=¤Dis_CPU:òcpu:=0 |çQ$="R":çio%:òrom:=0 †?çQ$="Q"„Q$="X":è"Quit? "Q$:A%=(—Q$€&DF)=89:Q$="":çA%:Q$="Q" =Q$="Q" š(Ý¤line(addr%):ñ¤ho(addr%-O%,W%);" "; ¤Qçio%:çaddr%<0:ãN%=0¸7:data%?N%=¤rm(addr%+N%):í‹ãN%=0¸15ˆ4:data%!N%=addr%!N%:í ®^çZ%€64:A%=11-Z%16:ãN%=0¸A%:ñ¤ho(data%?N%,2)" ";:í:ãN%=0¸A%:ñ¤c(data%?N%);:í:ñ:=addr%+A%+1 ¸-N%=¤Dis_Code(M%,addr%-O%,data%)-1:A%=Z%€3 Â0ãB%=0¸N%ˆ2^A%:ñ¤ho(data%!B%,2*(2^A%));" ";:í Ì'ñŠW%+U%);:ãB%=0¸N%:ñ¤c(data%?B%);:í Ö,ñŠW%+V%);:ñ$(X%+4)½8:ç(X%?2€64):ç¼"":O%= ("&"+A$) N,ÿ"FX3":õaddr%=¤line(addr%):ýaddr%>end%:á X1Ýòhex:ñ"Bytes: &";Q$;:õ:A%=¥:çA%>96:A%=A%€&DF b+ç(A%=95„A%=8)€Q$<>"":ï127:Q$=ÀQ$,©Q$-1) l7ç((A%>47€A%<58)„(A%>64€A%<71))€©Q$<30:ïA%:Q$=Q$+½A% vAýA%=13:çQ$<>"":õ:?P%= ("&"+ÀQ$,2)):P%=P%+1:Q$=ÁQ$,3):ý©Q$<2:á €PÝòosc:òbot:õ:è†"*"A$:ÿA$:ï58:õQ$=½(¥€&DF):ý§½10+½13+"GP",Q$):ï127:ý—Q$<>10:á Š7Ýòrom:è"ROM: &"A$:A$=¤uc(A$):çA$="":P%=P%€&FFFFFF:á ”.P%=(P%€&FFFF)„&FF000000„65536* ("&F"+A$):á žÝòmde:è"Mode: "A$:çA$="":á ¨&Q%= (A$)„&80:çio%:ç¤fx(133,Q%)<“:á ²ï22,Q%:á ¼gÝòcpu:X%=ctrl%:Y%=X%256:!X%=0:M$=¤Dis_Name(M%)+" D"+dd$+"er":W%=(X%?3€3)*2+4:Z%=(X%?3/4)€31:òcol:á Æ/Ýòcol:A%=Z%4:U%=A%*3+13:V%=U%+A%+6:çA%<8:á ÐU%=17:V%=U%+7:á Ú$Ýòbot:ñ½26Š0,ht%-8*(wd%<40)-1):á ä=Ýòhlp:ÿ"FX3,16":ï26,12:wd%=¤fx(160,10):ht%=¤fx(160,9)€&FF î²çwd%>50:ï28,wd%-29,ht%,wd%,0:ñ‰(14-©M$/2);M$''"RETURN forward 1 + forward 8"'"DELETE back 1"‰5"- back 8"'"SPACE move past code"''" M: Set memory a"ad$'" O: Set code origin" ø“çwd%>50:ñ" W: A"ad$" width"'" J: Data width"'" H: Hex/Oct toggle"'"TAB: Dump/list"''"0-9 A-F: Enter bytes"'" T: Enter text"'" Y: Enter message" “çwd%>50:ñ" L: List d"dd$"y"'" G: Load file"'" P: Save file"'" Z: Select CPU"'" S: Screen mode"'" R: ROM number"'" Q: Quit":ï28,0,ht%,wd%-31,0:á \ñ‰((wd%+1-©M$)/2);M$:ï28,0,ht%,wd%,ht%-5:B$=" ":C$=" ":ç¤fx(135,0)256=7:B$=½132:C$=½135 ŠñB$"RETURN"C$"forward 1"‰5;B$"+"C$"forward 8"'B$"DELETE"C$"backward 1"‰4;B$"-"C$"backward 8"'B$"TAB"C$"DUMP/LIST"‰8;B$"H"C$"HEX/ASCII" ¶ñB$"M"C$"Set memory a"ad$" "B$"O"C$"Set code offset"½8'B$"T"C$"Enter text"‰9;B$"Y"C$"Enter message"'B$"L"C$"List d"dd$"y "B$"SPC"C$"Move past code";:ï28,0,ht%-6,wd%,1:ht%=ht%-7:á *2Ý¤ho(A%,N%):çZ%€32:=¤o0(A%,N%*3/2)‹=¤h0(A%,N%) 4-Ý¤c(A%):A%=A%€127:çA%=127„A%<32:="."‹=½A% >Ý¤uc(A$):êB$:çA$="":="" H5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ R#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) \4Ý¤o0(A%,N%):êA$,B%,L%:çA%<0:B%=2:A%=A%€&7FFFFFFF f;õA$=Ã(A%€7)+A$:A%=A%8:L%=L%+3:ýL%>27:=ÂÃ(A%+B%)+A$,N%) p?Ý¤fx(A%,X%):êY%:Y%=X%256:ç<&FFFFF:=((º&FFF4)€&FFFF00)256 z-çA%=135:X%=ë:çX%>-1:=X%*256‹çA%=135:=&A00 „(çA%=160:çX%=10:=@vdu%!28@vdu%!216-1 Ž'çA%=160:çX%=9:=@vdu%!36@vdu%!220-1 ˜=((º&FFF4)€&FFFF00)256 ¢7Ý¤rm(!&F6):êY%:Y%=?&F8+&40:çY%€&40:ç?&F7>&BF:?&F9=0 ¬1ç!&F6<0:ç?&F7>&7F„Y%=&3E:=(º&FFB9)€&FF‹=?!&F6 ¶ Ý¤Dis_Name(A%):X%?3=0:="Z80" ÀBÝ¤Dis_Code(A%,Ptr%,Data%):ês%,d%,c%,xy%:!X%=0:num%=1:c%=?Data% Ê8d%=c%€7:s%=(c%€&38)8:$(X%+4)= ("FNz80_"+Ã~(c%€&C0)) ÔX%?3=num%:=num% Þ3Ý¤alu(A%)=Á"ADDADCSUBSBCANDXOROR CP ",A%*3+1,3) è3Ý¤rot(A%)=Á"RLCRRCRL RR SLASRASLSSRL",A%*3+1,3) òÝ¤r(A%)=Á"BCDEHLFA",A%+1,1) ü>Ý¤drg(A%)=Á"BCDEHLSPIXAFIY",(A%„1)+((xy%*4)€((A%€6)=4)),2) "Ý¤reg(A%):çxy%=0€A%<>6:=¤r(A%) çA%=6€xy%=0:="(HL)" 7çA%=6:num%=num%+1:="(I"+½(87+xy%)+¤rel(Data%?2)+")" $#ç(A%€6)=4:="I"+½(87+xy%)+¤r(A%) .=¤r(A%) 8)Ý¤rel(A%):çA%<128:="+"+ÃA%‹=Ã(A%-256) B/Ý¤jr(A%):="&"+¤h0(Ptr%+A%+2+256*(A%>127),4) LEÝ¤cc(A%)=Á"NZZ NCC POPEP M ",A%*2+1,2-((A%€1)€(A%<4))-(1€(A%>5))) VÝ¤z80_0:çc%=0:="NOP" `@ç(c%€&F7)=&10:num%=2:=Á"DJNZJR ",s%*4-7,4)+" "+¤jr(Data%?1) j'çd%=7€s%<4:=À¤rot(s%),3+(s%>1))+"A" t%çd%=7:=Á"DAACPLSCFCCF",s%*3-11,3) ~Cçd%=6:num%=num%+1:="LD "+¤reg(s%)+",&"+¤h0(?(Data%+num%-1),2) ˆ4ç(d%€6)=4:=Á"INCDEC",(d%€1)*3+1,3)+" "+¤reg(s%) ’0çd%=3:=Á"INCDEC",(s%€1)*3+1,3)+" "+¤drg(s%) œFçc%=&22:num%=num%+2:="LD (&"+¤h0(!(Data%+num%-2),4)+"),"+¤drg(4) ¦Içc%=&2A:num%=num%+2:="LD "+¤drg(4)+",(&"+¤h0(!(Data%+num%-2),4)+")" °7çc%=&32:num%=num%+2:="LD (&"+¤h0(Data%!1,4)+"),A" º7çc%=&3A:num%=num%+2:="LD A,(&"+¤h0(Data%!1,4)+")" Ä+çd%=2€(s%€5)=0:="LD ("+¤drg(s%)+"),A" Î"çd%=2:="LD A,("+¤drg(s%)+")" Ø0çd%=1€(s%€1)=1:="ADD "+¤drg(4)+","+¤drg(s%) âCçd%=1:num%=num%+2:="LD "+¤drg(s%)+",&"+¤h0(!(Data%+num%-2),4) ì>çd%=0€s%>3:num%=num%+1:="JR "+¤cc(s%€3)+","+¤jr(Data%?1) ö="EX AF,AF'" Ý¤z80_40:çc%=&76:="HALT" &çs%=6:="LD "+¤reg(s%)+","+¤r(d%) &çd%=6:="LD "+¤r(s%)+","+¤reg(d%) "="LD "+¤reg(s%)+","+¤reg(d%) (5Ý¤z80_80:=¤alu(s%)+" "+À"A,",s%<2„s%=3)+¤reg(d%) 2-Ý¤z80_C0:çd%=5€(s%€1)=1:= ("FNz80_"+Ã~c%) <çc%=&CB:=¤z80_CB F!çd%=7:="RST &"+¤h0(c%€&38,2) P6çd%=6€s%<4:num%=2:=¤alu(s%)+" A,&"+¤h0(Data%?1,2) Z/çd%=6:num%=2:=¤alu(s%)+" &"+¤h0(Data%?1,2) dGç(d%€3)=1€(s%€1)=0:=Á"POP PUSH",(d%4)*4+1,4)+" "+¤drg(s%-4*(s%>5)) n:çd%=4:num%=num%+2:="CALL "+¤cc(s%)+",&"+¤h0(Data%!1,4) x:çd%=2:num%=num%+2:="JP "+¤cc(s%)+",&"+¤h0(Data%!1,4) ‚çd%=0:="RET "+¤cc(s%) Œ+çc%=&C3:num%=3:="JP &"+¤h0(Data%!1,4) –çc%=&C9:="RET" 2çc%=&D3:num%=2:="OUT (&"+¤h0(Data%?1,2)+"),A" ª2çc%=&DB:num%=2:="IN A,(&"+¤h0(Data%?1,2)+")" ´çc%=&D9:="EXX" ¾!çc%=&E3:="EX (SP),"+¤drg(4) È!çc%=&E9:="JP ("+¤drg(4)+")" Òçc%=&EB:="EX DE,HL" Üçc%=&F9:="LD SP,HL" æ=Á"DIEI",(s%€1)*2+1,2) ð,Ý¤z80_CD:num%=3:="CALL &"+¤h0(Data%!1,4) ú3Ý¤z80_CB:num%=num%+1:çxy%:c%=Data%?3‹c%=Data%?1 9d%=c%€7:s%=(c%€&38)8:çc%<&40:=¤rot(s%)+" "+¤reg(d%) 8=Á"BITRESSET",(c%64)*3-2,3)+" "+Ã(s%)+","+¤reg(d%) Ý¤z80_DD "Ý¤z80_FD ,,çxy%:num%=1:="DEFB &"+¤h0(xy%*&20+&BD,2) 6&êA$:xy%=(c%€&20)&20+1:num%=num%+1 @>c%=Data%?1:d%=c%€7:s%=(c%€&38)8:A$= ("FNz80_"+Ã~(c%€&C0)) JDç§ÁA$,4),"X")+§A$,"Y")=0:num%=1:="DEFB &"+¤h0(xy%*&20+&BD,2)‹=A$ T5Ý¤z80_ED:çxy%:num%=1:="DEFB &"+¤h0(xy%*&20+&CD,2) ^0num%=num%+1:c%=Data%?1:d%=c%€7:s%=(c%€&38)8 hçc%<&10:="DEFW &"+¤h0(c%*256+&ED,4)+":\ MOS_"+Á"QUITCLI BYTEWORDWRCHRDCHFILEARGSBGETBPUTGBPBFINDFF0CFF0DFF0EFF0F",c%*4+1,4) r%çc%<&40„c%>&C0:num%=1:="DEFB &ED" |4ç(c%€&C7)=&42:=¤alu(3-(s%€1)*2)+" HL,"+¤drg(s%) †Hç(c%€&CF)=&4B:num%=num%+2:="LD "+¤drg(s%)+",(&"+¤h0(Data%!2,4)+")" Eç(c%€&CF)=&43:num%=num%+2:="LD (&"+¤h0(Data%!2,4)+"),"+¤drg(s%) š(ç(c%€&C7)=&40:="IN "+¤r(s%)+",(C)" ¤%ç(c%€&C7)=&41:="OUT (C),"+¤r(s%) ®/ç(c%€&E7)=&46€s%<>1:="IM "+Ã(s%-1-(s%=0)) ¸'ç(c%€&F7)=&67:=Á"RRDRLD",s%*3-11,3) Â(ç(c%€&F7)=&45:=Á"RETNRETI",s%*4+1,4) Ìçc%=&44:="NEG" ÖPç(c%€&E7)=&47:="LD "+½(65-8*(s%=0)-17*(s%=1))+","+½(65-8*(s%=2)-17*(s%=3)) àGç(c%€&E4)=&A0:=Á"LDCPINOT",d%*2+1,2)+½(73-5*(s%€1))+½(32+25*(s%€2)) ênum%=1:="DEFB &ED" ÿ