ô > MonZ80 ô > MonCore v2.02 ô (C)1989-2008 J.G.Harston (&ô 16-Mar-2007 v2.00 JGH: Rewritten 2<ô 22-May-2007 v2.01 JGH: *Spool only active when listing &FFFF):buf%=“-blen%:Ó=buf% xFhex%=¹:dmp%=0:ny%=0:dd$="isassembl":io%=(¤fx(130,0)=&FFFF)€(os%<6) ‚2E%=E%€3:Z%=Z%€3:D%=1+((D%-1)€7):î…ç¤err:òend:à ŒHõ:Û:òSetScr:õX%=ctrl%:Y%=X%256:ç>&FFFFF:çP%< „ P%>“+blen%:P%=buf% – ý¤menu:ýQ$="Q"„Q$="X":òend:à : ªVÝ¤line(addr%):ñ¤ho(addr%-O%,D%);" ";:!data%=!addr%:data%!4=addr%!4:data%!8=addr%!8 ´2çio%:çaddr%<0:ãB%=0¸7:data%?B%=¤rm(addr%+B%):í ¾Lçdmp%:ãB%=0¸7:ñ¤ho(data%?B%,2)" ";:í:ãB%=0¸7:ñ¤c(data%?B%);:í:ñ:=addr%+8 È#N%=¤Dis_Code(M%,addr%-O%,data%) Ò,çZ%=0:ãB%=0¸N%-1:ñ¤ho(data%?B%,2);" ";:í Ü4çZ%=1:ãB%=0¸N%-1ˆ2:ñ¤ho(data%!B%€&FFFF,4);" ";:í æ1çZ%=3:ãB%=0¸N%-1ˆ4:ñ¤ho(data%!B%,N%*2);" ";:í ð*ñŠt1%+D%);:ãB%=0¸N%-1:ñ¤c(data%?B%);:í ú-ñŠt2%+D%);" ";¤addr($(X%+4)):ç(X%?2€64):ñ =addr%+N% : .Ý¤menu:Û:ç¤Dis_Name(M%)="":M%=¤cpu:òSetScr "&òtop:addr%=¤line(P%):num%=addr%-P% ,-õaddr%=¤line(addr%):ý¼>hgh%-1+8*(wid%<40) 6õQ$=¾:V%=¼:çQ$="*":òosc @MçQ$=" ":addr%=¤line(addr%):ñŠ0,(hgh%>19)€2);:P%=P%+num%:num%=¤line(P%)-P% J!çQ$>"`" € Q$<"{":Q$=½(—Q$-32) T@ý§½13+½8+½9+½127+"+;-=GPQWSMHJOLTYZNR*0123456789ABCDEFX",Q$) ^çQ$="*":=¹ hçQ$=½13:P%=P%+1:=0 rçQ$=½127„Q$=½8:P%=P%-1:=0 |çQ$="+"„Q$=";":P%=P%+8:=0 †çQ$="-"„Q$="=":P%=P%-8:=0 çQ$=½9:dmp%=dmp%‚2:=0 šçQ$="W":D%=4+((D%-3)ƒ5):=0 ¤çQ$="H":hex%=¬hex%:=0 ®çQ$="J":Z%=(Z%+1)€3:=0 ¸çQ$="M":òm:=0 ÂçQ$="O":òo:òtop:=0 ÌçQ$="L":òlist(£):=0 ÖçQ$="S":òmode:=¹ àHçQ$="T":è†"Text: "Q$:A%=?(P%+©Q$):$(P%)=Q$:?(P%+©Q$)=A%:P%=P%+©Q$:=0 êtçQ$="Y":è†"Message: "Q$:A%=?(P%+©Q$):$P%=Q$:?(P%+©Q$)=A%:?(P%-1+©Q$)=&80 „ ?(P%-1+©Q$):?(P%+©Q$)=A%:P%=P%+©Q$:=0 ôçQ$="Z":M%=¤cpu:òSetScr:=0 þçQ$="N":E%=(E%+1)€3:=0 çQ$="R"€io%:òrom:=0 WçQ$="G":è†"Get file: "A$:çA$<>"":ÿ"LOAD """+A$+""" "+Ã~buf%+À"+"+Ã~blen%,os%=32):=¹ XçQ$="P":è†"Put file: "A$:çA$<>"":è"Length: &"Q$:ÿ"SAVE """+A$+""" "+Ã~buf%+"+"+Q$:=¹ &5ç(Q$>"/" € Q$<":")„(Q$>"@" € Q$<"G"):òbyte(Q$):=0 0?çQ$="Q"„Q$="X":è"Quit? "Q$:A%=(—Q$€&DF)=89:Q$="":çA%:Q$="Q" :=Q$="X"„Q$="Q" D: N9Ýòm:è"Address: &"A$:A$=¤uc(A$):çA$="":P%=buf%:O%=P%:á XCA%= ("&"+A$):çio%:çA%<&10000:P%=(P%€&FFFF0000)+A%+O% ‹ P%=A%+O% bá l: vIÝòo:è"Address for code address 0000: &"A$:A$=¤uc(A$):çA$="":A$=Ã~buf% €%çÀA$,1)="=":O%=P%- ("&"+ÁA$,2)):á Š$A%=P%-O%:O%= ("&"+A$):P%=O%+A%:á ”: žÝòlist(T%) ¨Iè"Start address: &"A$:A$=¤uc(A$):çA$="":addr%=P% ‹ addr%= ("&"+A$)+O% ²Pè"End address: &"A$:A$=¤uc(A$):çA$="":end%=addr%+&8000 ‹ end%= ("&"+A$)+O% ¼Iè"Address for code address 0000: &"A$:A$=¤uc(A$):çA$<>"":O%= ("&"+A$) Æ6ÿ"FX3":õaddr%=¤line(addr%):ýaddr%>end%:ÿ"FX3,16":á Ð: Ú6Ýòbyte(Q$):ñ"Bytes: &";Q$;:õ:A%=¥:çA%>96:A%=A%€&DF ä0ç(A%=95 „ A%=8) € Q$<>"":ï127:Q$=ÀQ$,© Q$-1) î=ç((A%>47 € A%<58)„(A%>64 € A%<71)) € ©Q$<30:ïA%:Q$=Q$+½A% ø?ýA%=13:çQ$<>"":õ:?P%= ("&"+ÀQ$,2)):P%=P%+1:Q$=ÁQ$,3):ý©Q$<2 á : 7Ýòrom:è"ROM: &"A$:A$=¤uc(A$):çA$="":P%=P%€&FFFFFF:á 0P%=(P%€&FFFF)„&FF000000 „ 65536* ("&F"+A$):á *: 4Ýòmode:è"Mode: "A$:çA$="":á >&Q%= (A$)„&80:çio%:ç¤fx(133,Q%)<“:á Hï22,Q%:á R: \ Ýòosc:çwid%>40:ï26,31,0,hgh% f3õ:è†"*"A$:ÿ A$:ï58:õQ$=¾:ý§½13+"GgPp*",Q$):ï127 pýQ$<>"*":çQ$=½13:Q$="*" zá „: ŽÝ¤addr(A$):òname:çhex%:=A$ ˜A%=§A$,"&"):çA%=0:=A$ ¢=L%=A%:õL%=L%+1:ý§"0123456789ABCDEF",ÁA$,L%,1))=0 „ L%>©A$ ¬>=ÀA$,A%)+"o"+¤o0( (ÁA$,A%,L%-A%+1)),(L%-A%-1)*3/2)+ÁA$,L%) ¶: À*Ýòname:çE%=0:á ‹ A%=§A$,"&FF"):çA%=0:á Ê)L%= (ÁA$,A%,5))-&FFCE:çL%<0 „ L%>43:á ÔEç((L%ƒ3-(L%>27))ƒ3-3*(L%=24)+(L%>24 € L%<28)-3*(L%=27)-(L%=28)):á Þ)ç(E%€2):A$=A$+" :\ ":ç(E%€1):A%=©A$+1 è†A$=ÀA$,A%-1)+"OS"+Á"FINDGBPBBPUTBGETARGSFILERDCHASCINEWLWRCRWRCHWORDBYTE_CLI",(L%3)*4+1,4)+ÁA$,A%+5):çE%=2:A$=A$+"&"+Ã~(L%+&FFCE) òá ü: Ýòtop:çhgh%>20:ï30:ñ"Memory: &";¤h0(P%-O%,D%)‰(19-±);"Origin: &";¤h0(O%,D%+1);‰(39-±)'"Buffer: &"~buf%;‰(19-±)"Buffer size: &"~blen%'‰(39):á Rï28,47,hgh%,wid%,0:ñŠ9,2);¤h0(P%-O%,D%+1);Š9,3);¤h0(O%,D%+1):ï28,0,hgh%,45,0:á : $–ÝòSetScr:ÿ"FX3,16":ï3,26:C$=½132:B$=½135:!X%=0:A$=¤Dis_Name(M%):A%=X%?3:D%=(A%€3)*2+4:Z%=(A%€12)4:hex%=(A%€16)=0:ç¤fx(135,0)256<>7:C$=" ":B$=" " .pt1%=13:wid%=¤fx(160,10):hgh%=¤fx(160,9)€&FF:çwid%>80:çD%>4:t1%=(wid%-79)/8*3+13 ‹ çwid%<38:ï22,&87:òSetScr:á 8Ót2%=t1%+t1%3:çhgh%<20 „ wid%>40:ï28,wid%-33,hgh%,wid%,0:çhgh%<20:ñ"** "A$" D"dd$"er **"''"Memory: &";¤h0(P%-O%,D%+1)'"Origin: &";¤h0(O%,D%+1)'"Buffer addr: &";~buf%'"Buffer size: &";~blen%:ï28,0,hgh%,45,0:á BWW%=33-11*(wid%<40):ñÄW%/4-©A$/2+(ny%>9),"*");" ";A$;" D"dd$"er ";ny%;" ";ÄW%-±,"*") Lœçwid%<40:ñŠ0,hgh%-6);C$"RETURN"B$"forward 1"‰4;C$"+"B$"forward 8"‰7;C$"DELETE"B$"back 1"‰7;C$"-"B$"back 8"'C$"L"B$"List d"dd$"y "C$"TAB"B$"DUMP/LIST"‰6; V¹çwid%<40:ñC$"M"B$"Set Memory address"C$"O"B$"Set code origin"'C$"T"B$"Enter text"‰8;C$"Y"B$"Enter message ";C$"Z"B$"Set machine"‰6;C$"SPC"B$"Move past code";:ï28,0,hgh%-7,wid%,1:á `êñ"RETURN forward 1 + forward 8"'"DELETE backward 1 - backward 8"'"SPACE move past code"''" M: Set memory address"'" O: Set code origin"'" N: Display named labels"'" W: Address width"'" J: Data width"'" H: Hex/Oct toggle" jÕñ" TAB: Dump/List"''" 0-9, A-F: Enter bytes"'" T: Enter text"'" Y: Enter message"'" L: List d"dd$"y"'" G: Get to buffer"'" P: Put from buffer"'" Z: Set machine"'" S: Screen mode":çio%:ñ" R: ROM number" t(ñ" Q: Quit";:ï28,0,hgh%,wid%-35,0:á ~: ˆ+Ý¤cpu:ç¤Dis_Name(0)<>"":=M% ‹ =¤Dis_CPU ’: œ#Ý¤err:çŸ<0:P%=P%2:O%=O%2:=¦-1 ¦ö:çŸ<>17:ç¥ °ç¦-1:ñ" at line ";ž ‹ Û º=¦-1 Ä: ÎÝòend:ÿ"FX3":î … à Øï26:ñŠ0,hgh%);:*QUIT âá ì: ö3Ý¤ho(A%,N%):çhex%:=¤h0(A%,N%) ‹ =¤o0(A%,N%*3/2) : ô Library routines 1Ý¤c(A%):A%=A%€127:çA%=127 „ A%<32:="." ‹ =½A% Ý¤uc(A$):ê B$:çA$="":="" (5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ 2#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) <5Ý¤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 d*çA%=160:çX%=10:=@vdu%!28 @vdu%!216-1 n)çA%=160:çX%=9:=@vdu%!36 @vdu%!220-1 x=((º&FFF4)€&FFFF00)256 ‚7Ý¤rm(!&F6):êY%:Y%=?&F8+&40:çY%€&40:ç?&F7>&BF:?&F9=0 Œ3ç!&F6<0:ç?&F7>&7F„Y%=&3E:=(º&FFB9)€&FF ‹ =?!&F6 –: -ô *********** End of MonCore ************ ª-ô Specific disassembly routines from here ´<ô > DisZ80 1.01 - 09-Jan-1989 - Z80 disassembly routines ¾: ÈÝ¤Dis_Name(A%)="Z80" ÒCÝ¤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)" 67çA%=6:num%=num%+1:="(I"+½(87+xy%)+¤rel(Data%?2)+")" @#ç(A%€6)=4:="I"+½(87+xy%)+¤r(A%) J=¤r(A%) T+Ý¤rel(A%):çA%<128:="+"+ÃA% ‹ =Ã(A%-256) ^FÝ¤jr(A%):çA%<128:="&"+¤h0(Ptr%+A%+2,4) ‹ ="&"+¤h0(Ptr%+A%+2-256,4) hKÝ¤cc(A%)=Á"NZZ NCC POPEP M ",A%*2+1,2-((A% € 1) € (A%<4))-(1 € (A%>5))) r: |Ý¤z80_0:çc%=0:="NOP" †@ç(c%€&F7)=&10:num%=2:=Á"DJNZJR ",s%*4-7,4)+" "+¤jr(Data%?1) )çd%=7 € s%<4:=À¤rot(s%),3+(s%>1))+"A" š%ç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%)+")" þ2ç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'" &: 0Ý¤z80_40:çc%=&76:="HALT" :'ç s%=6:="LD "+¤reg(s%)+","+¤r(d%) D'ç d%=6:="LD "+¤r(s%)+","+¤reg(d%) N"="LD "+¤reg(s%)+","+¤reg(d%) X: b7Ý¤z80_80:=¤alu(s%)+" "+À"A,",s%<2 „ s%=3)+¤reg(d%) l/Ý¤z80_C0:çd%=5 € (s%€1)=1:= ("FNz80_"+Ã~c%) vçc%=&CB:=¤z80_CB €!çd%=7:="RST &"+¤h0(c%€&38,2) Š8çd%=6 € s%<4:num%=2:=¤alu(s%)+" A,&"+¤h0(Data%?1,2) ”/çd%=6:num%=2:=¤alu(s%)+" &"+¤h0(Data%?1,2) žHç(d%€3)=1 €(s%€1)=0:=Á"POP PUSH",(d%4)*4+1,4)+" "+¤drg(s%-4*(s%>5)) ¨:çd%=4:num%=num%+2:="CALL "+¤cc(s%)+",&"+¤h0(Data%!1,4) ²:ç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) *: 4,Ý¤z80_CD:num%=3:="CALL &"+¤h0(Data%!1,4) >5Ý¤z80_CB:num%=num%+1:çxy%:c%=Data%?3 ‹ c%=Data%?1 H9d%=c%€7:s%=(c%€&38)8:çc%<&40:=¤rot(s%)+" "+¤reg(d%) R8=Á"BITRESSET",(c%64)*3-2,3)+" "+Ã(s%)+","+¤reg(d%) \: fÝ¤z80_DD pÝ¤z80_FD z,çxy%:num%=1:="DEFB &"+¤h0(xy%*&20+&BD,2) „'ê A$:xy%=(c%€&20)&20+1:num%=num%+1 Ž>c%=Data%?1:d%=c%€7:s%=(c%€&38)8:A$= ("FNz80_"+Ã~(c%€&C0)) ˜Fç§ÁA$,4),"X")+§A$,"Y")=0:num%=1:="DEFB &"+¤h0(xy%*&20+&BD,2) ‹ =A$ ¢: ¬5Ý¤z80_ED:çxy%:num%=1:="DEFB &"+¤h0(xy%*&20+&CD,2) ¶0num%=num%+1:c%=Data%?1:d%=c%€7:s%=(c%€&38)8 Àçc%<&10:="DEFW &"+¤h0(c%*256+&ED,4)+":\ MOS_"+Á"QUITCLI BYTEWORDWRCHRDCHFILEARGSBGETBPUTGBPBFINDFF0CFF0DFF0EFF0F",c%*4+1,4) Ê&ç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%) 0ç(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)) 8Gç(c%€&E4)=&A0:=Á"LDCPINOT",d%*2+1,2)+½(73-5*(s%€1))+½(32+25*(s%€2)) Bnum%=1:="DEFB &ED" ÿ