ô > Mon32 ô > MonCore v2.00 ô (C)1989-2007 J.G.Harston (&ô 16-Mar-2007 v2.00 JGH: Rewritten 2: <î…ö:ñž:òend:à FAos%=¤fx(0,1):ë¤mode:Þ ctrl%31,data%15,zp%3:X%=ctrl%:Y%=X%256 P3blen%=“-’-&400+&C00*(os%>5):buf%=“-blen%:Ó=buf% Zhgh%-1+8*(wid%<40) ,õQ$=¾:V%=¼:çQ$>"`" € Q$<"{":Q$=½(—Q$-32) OçQ$=" ":addr%=¤line(addr%):ñŠ0,2 € (hgh%>19));:P%=P%+num%:num%=¤line(P%)-P% "=ý§½13+½9+½127+"+;-=GPQWSMHJOLTYZNR*0123456789ABCDEFX",Q$) ,çQ$=½13:P%=P%+1:=0 6çQ$=½127:P%=P%-1:=0 @çQ$="+"„Q$=";":P%=P%+8:=0 JçQ$="-"„Q$="=":P%=P%-8:=0 TçQ$="Q":dmp%=dmp%‚2:=0 ^çQ$="W":D%=4+((D%-3)ƒ5):=0 hçQ$="H":hex%=¬hex%:=0 rçQ$="J":Z%=(Z%+1)€3:=0 |OçQ$="M":è"Address: &"A$:çA$="":P%=buf%:O%=P%:=0 ‹çQ$="M":P%= ("&"+A$)+O%:=0 †çQ$="O":òo:òtop:=0 çQ$="L":òlist(£):=0 šçQ$="S" €os%:òmode:=0 ¤LçQ$="T":ñB$;:è"Text: "Q$:A%=?(P%+©Q$):$(P%)=Q$:?(P%+©Q$)=A%:P%=P%+©Q$:=0 ®xçQ$="Y":ñB$;:è"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" €os%:òrom:=0 ÖçQ$="*":òosc:Û:òSetScr:=0 àRçQ$="G":è"Get file: "A$:çA$<>"":ÿ"LOAD "+A$+" "+Ã~buf%+À"+"+Ã~blen%,os%=32):=0 êSçQ$="P":è"Put file: "A$:çA$<>"":è"Length: &"Q$:ÿ"SAVE "+A$+" "+Ã~buf%+"+"+Q$:=0 ô5ç(Q$>"/" € Q$<":")„(Q$>"@" € Q$<"G"):òbyte(Q$):=0 þ=Q$="X" : >Ýòo:è"Address for code address 0000: &"A$:çA$="":A$=Ã~buf% %çÀA$,1)="=":O%=P%- ("&"+ÁA$,2)):á &$A%=P%-O%:O%= ("&"+A$):P%=O%+A%:á 0: :Ýòlist(T%) D>è"Start address: &"A$:çA$="":addr%=P% ‹ addr%= ("&"+A$)+O% NCè"End address: &"A$:çA$="":end%=addr%+&8000 ‹ end%= ("&"+A$)+O% X>è"Address for code address 0000: &"A$:çA$<>"":O%= ("&"+A$) b%õaddr%=¤line(addr%):ýaddr%>end%:á l: vÝòbyte(Q$):ñ"Bytes: &";Q$; €õ:A%=¥:çA%>96:A%=A%€&DF Š'çA%=95 € 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 ¨á ²: ¼,Ýòrom:è"ROM: &"A$:çA$="":P%=P%€&FFFFFF:á Æ0P%=(P%€&FFFF)„&FF000000 „ 65536* ("&F"+A$):á Ð: ÚÝòmode:è"Mode: "A$:çA$="":á ä:Q%= (A$)„&80:ços%<6:ç¤fx(130,0)=&FFFF:ç¤fx(133,Q%)<“:á î+ï22,Q%:òSetScr:çwid%<39:ï22,&87:òSetScr øá : Ýòosc:çwid%>40:ï26,31,0,hgh% -õ:è†"*"A$:ÿ A$:ý A$="":çhgh%<20:Û:òSetScr á *: 4Ý¤addr(A$):òname:çhex%:=A$ >A%=§A$,"&"):çA%=0:=A$ H=L%=A%:õL%=L%+1:ý§"0123456789ABCDEF",ÁA$,L%,1))=0 „ L%>©A$ R>=ÀA$,A%)+"o"+¤o0( (ÁA$,A%,L%-A%+1)),(L%-A%-1)*3/2)+ÁA$,L%) \*Ýòname:çE%=0:á ‹ A%=§A$,"&FF"):çA%=0:á f)L%= (ÁA$,A%,5))-&FFCE:çL%<0 „ L%>43:á pEç((L%ƒ3-(L%>27))ƒ3-3*(L%=24)+(L%>24 € L%<28)-3*(L%=27)-(L%=28)):á z)ç(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:á ¶: À2ÝòSetScr:ï3,26:A$=½132:B$=½135:wid%=79:hgh%=31 Ê[ços%<32:wid%=¤byte(160,10,0)-¤byte(160,8,0)€&FF:hgh%=¤byte(160,9,0)-¤byte(160,11,0)€&FF ÔËçhgh%<20 „ wid%>40:ï28,47,hgh%,wid%,0:çhgh%<20:ñ"** "¤Dis_Name(M%)" 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:á ÞW%=wid%+46*(wid%>40):ñÄW%/4-©¤Dis_Name(M%)/2+(ny%>9)-(W%<40),"*");" ";¤Dis_Name(M%);" D"dd$"er ";ny%;" ";ÄW%-±,"*"):çwid%<40:ñŠ0,hgh%-6); èçwid%<40:ñA$"RETURN"B$"forward 1"‰4;A$"+"B$"forward 8"‰7;A$"DELETE"B$"back 1"‰7;A$"-"B$"back 8"'A$"L"B$"List d"dd$"y "A$"Q"B$"DUMP/LIST"‰7; ò»çwid%<40:ñA$"M"B$"Set Memory address"A$"O"B$"Set code origin"'A$"T"B$"Enter text"‰8;A$"Y"B$"Enter message ";A$"Z"B$"Set machine"‰4;A$"SPACE"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"'"Q: 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":ços%:ñ"Z: Set machine" 0ñ"S: Screen mode"'"R: Rom number"'"X: Exit"; ï28,0,hgh%,45,0 $á .: 8Ý¤cpu:ç¤Dis_Name(0)<>"":=M% B!Û:ñ‰(7)"Microprocessor Menu"' LA$=¤Dis_Name(0):÷:ó A%,A$:õ V,ñ;A%;":";Š4+(± 20)*20);A$;Š20 €(±<20)); `5ó A%,A$:ýA%=0:õõ:è'"Enter CPU number: "cpu%:ýcpu% jDA%=¤Dis_Name(cpu%)="":çA%:ñ"No disassembly routine for this CPU" tý¬A%:Û:=cpu% ~FÜ 2,6502,8,8008,9,6809,11,PDP11,12,6512,18,80186,28,80286,30,OGGIN ˆ=Ü 32,32016,38,80386,44,ARM,48,80486,58,80586,65,6502/6512 ’9Ü 68,68x00 Series,80,Z80,85,8080/8085,86,80x86 Series œ+Ü 89,INS8900,94,9440 series,99,9900,0,* ¦: °(Ý¤err:çŸ<0:P%=P%2:O%=O%2:=¦(os%>0) ºö:çŸ<>17:ç¥ Ä ç¦(os%>0):ñ" at line ";ž ‹ Û Î =¦(os%>0) Ø: âÝòend:î … à ìï26:ñŠ0,hgh%);:*QUIT öá : -Ýòaddr:ços%=32:çP%< „ P%>“+blen%:P%=buf% á 9Ý¤mode:ços%=6:ç>&7FFF:=ë ‹ =(¤byte(135,0,0)256)„&80 (3Ý¤ho(A%,N%):çhex%:=¤h0(A%,N%) ‹ =¤o0(A%,N%*1.5) 2: <ô Library routines F1Ý¤c(A%):A%=A%€127:çA%=127 „ A%<32:="." ‹ =½A% P#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) Z•Ý¤o0(A%,N%):A%=A%€&FFFF:=Â"00000"+½(48+((A%32768)€7))+½(48+((A%4096)€7))+½(48+((A%512)€7))+½(48+((A%64)€7))+½(48+((A%8)€7))+½(48+(A%€7)),N%) dLô DEFFNo0(A%,N%):LOCAL A$,B$:IFA%<0:B$="7":A%=A%AND&7FFFFFFF ELSE B$="0" nPô REPEATA$=STR$(A%AND7)+A$:A%=A%DIV8:UNTILA%=0:=RIGHT$(STRING$(N%,B$)+A$,N%) x)Ý¤byte(A%,X%,Y%)=((º&FFF4)€&FF00)256 ‚6Ý¤fx(A%,X%):ê Y%:Y%=X%256:=((º&FFF4)€&FFFF00)256 Œ<Ý¤rm(!&F6):ê Y%:Y%=?&F8 ‚ &F0:ç?&F8<&80:ç?&F7>&BF:?&F9=0 –4ç!&F6<0:ç?&F7>&7F „ Y%=&E:=(º&FFB9)€&FF ‹ =?!&F6 : ª-ô *********** End of MonCore ************ ´-ô Specific disassembly routines from here ¾/ô > Dis32 1.00 - 32000 disassembly routines ÈÝ¤Dis_Name(A%)="32000" Ò#Ý¤Dis_Code(A%,Ptr%,Data%):ê op% Ü2op%=!Data%:X%!0=0:$(X%+4)=¤_32:X%?3=num%:=num% æ Ý¤_32 ð num%=1 ú2ç(op%€&FF)=&12:num%=2:="RET &"+¤h0(Data%?1,2) Eç(op%€&CF)=&02:=Á"BSRRETCXPRXP",((op%€&F0)16)*3+1,3)+" "+¤dispPC 2ç(op%€&FF)=&42:num%=2:="RETT &"+¤h0(Data%?1,2) ç(op%€&FF)=&52:="RETI" "-ç(op%€&FF)=&62:num%=2:="SAVE [reg list]" ,/ç(op%€&FF)=&72:num%=2:="RESTORE [reg list]" 66ç(op%€&FF)=&82:num%=2:="ENTER [reg list],"+¤dispPC @-ç(op%€&FF)=&92:num%=2:="EXIT [reg list]" Jç(op%€&FF)=&A2:="NOP" Tç(op%€&FF)=&B2:="WAIT" ^ç(op%€&FF)=&C2:="DIA" h2ç(op%€&FF)=&D2:num%=2:="FLAG &"+¤h0(Data%?1,2) r2ç(op%€&FF)=&E2:num%=2:="SVC &"+¤h0(Data%?1,2) |2ç(op%€&FF)=&F2:num%=2:="BPT &"+¤h0(Data%?1,2) †5ç(op%€&0F)=&0A:="B"+¤cc((op%€&F0)16)+" "+¤dispPC num%=2 š‡ç(op%€&0000FF)=&00004E:A$=Á"ROT ASH CBIT CBITIxxxx LSH SBIT SBITINEG NOT xxxx SUBP ABS COM IBIT ADDP",(op%€&3C0)1024*5+1,5) ¤‘ç(op%€&0000FF)=&00004E:=ÀA$,§A$+" "," ")-1)+¤sz(Data%?1 € 3)+" "+¤gen((Data%?2 € &F8)8,Data%?1 € 3)+","+¤gen((op%€&3C000)&4000,Data%?1 € 3) ®: ¸Žç(op%€&003CFF)=&0000CE:num%=3:="MOVM"+¤sz(Data%?1 €3)+" "+¤gen((op%€&7C000)&4000,Data%?1 €3)+","+¤gen((Data%?2 €&F8)8,Data%?1 € 3)+¤disp Â: ÌÔç(op%€&0000FF)=&0000CE:num%=3:A$=Á"MOVM CMPM INSS"+¤sz(data%?1 € 3)+" EXTS MOVXBWMOVZBWMOVZ"+¤sz(Data%?1 €3)+"DMOVX"+¤sz(Data%?1 €3)+"DMUL MEI xxx DEI QUO REM MOD DIV",(op%€&3C00)1024*6+1,6) Ömç(op%€&0000FF)=&0000CE:=A$+" "+¤gen((Data%?2 €&F8)8,Data%?1 € 3)+","+¤gen((op%€&7C000)&4000,Data%?1 €3) à: êƒç(op%€&F870FF)=&00000E:num%=3:=Á"MOVS CMPS SETCFGSKPS",(op%€&C00)1024*6+1,6)+¤sz(Data%?1 € 3)+" "+¤short((op%€&38000)&8000) ô±ç(op%€&43F)=&02E:num%=3:=Á"EXT CVTP INS CHECK",(op%€&C0)64*5+1,5)+" R"+Ã((Data%?1 €&38)8)+","+¤gen((Data%?2 €&F8)8,Data%?1 € 3)+","+¤gen((op%€&7C000)&4000,Data%?1 € 3) þ: ]ç(op%€&7C)=&0C:="ADDQ"+¤sz(op%€3)+" "+¤short((op%€&380)128)+","+¤gen((Data%?1)8,op%€3) ]ç(op%€&7C)=&1C:="CMPQ"+¤sz(op%€3)+" "+¤short((op%€&380)128)+","+¤gen((Data%?1)8,op%€3) [ç(op%€&7C)=&2C:="SPR"+¤sz(op%€3)+" "+¤areg((op%€&780)128)+","+¤gen((Data%?1)8,op%€3) &Rç(op%€&7C)=&3C:="S"+¤cc((op%€&380)128)+¤sz(op%€3)+","+¤gen((Data%?1)8,op%€3) 0fç(op%€&7C)=&4C:="ACB"+¤sz(op%€3)+" "+¤short((op%€&380)128)+","+¤gen((Data%?1)8,op%€3)+","+¤disp :]ç(op%€&7C)=&5C:="MOVQ"+¤sz(op%€3)+" "+¤short((op%€&380)128)+","+¤gen((Data%?1)8,op%€3) D[ç(op%€&7C)=&6C:="LPR"+¤sz(op%€3)+" "+¤areg((op%€&780)128)+","+¤gen((Data%?1)8,op%€3) N_ç(op%€&FC)=&7C:A$=Á"CXPD BICPSRJUMP BISPR xxxx ADJSP JSR CASE",((op%€&700)256)*6+1,6) X=ç(op%€&FC)=&7C:=A$+¤sz(op%€3)+" "+¤gen((Data%?1)8,op%€3) bç(op%€&0C)<>&0C:=Á"ADDCMPBICxxxADCMOVORRxxxSUBADRANDxxxSBCTSTXOR",(op%€&3C)4*3+1,3)+¤sz(op%€3)+" "+¤gen((Data%?1)8,op%€3)+","+¤gen((op%€&7C0)64,op%€3) l num%=3 v: €num%=1:="EQUB &"+¤h0(op%,2) Š ”Gç(op%€&00043F)=&00002E:=Á"EXT CVTP INS CHECK",(op%€&C0)64*5+1,5) žFç(op%€&00043F)=&00042E:=Á"INDEXFFS MOVSUxxxx",(op%€&C0)64*5+1,5) ¨]ç(op%€&0000FF)=&00003E:=Á"MOVIFLFSR MOVLFMOVFLROUNDTRUNCSFSR FLOOR",(op%€&300)256*5+1,5) ²lç(op%€&0000FF)=&0000BE:=Á"ADDFMOVFCMPFSUBFNEGFxxx xxx DIVFxxx xxx MULFABSFxxx xxx",(op%€&3C)1024*4+1,4) ¼Hç(op%€&0030FF)=&00001E:=Á"RDVALWRVALLMR SMR",(op%€&C00)1024*5+1,5) Æ: Ðnum%=1:="EQUB &"+¤h0(op%) Ú: ä:Ý¤cc(A%)=Á"EQNECSCCHILSGTLEFSFCLOHSLTGEALNV",A%*2+1,2) î+Ý¤short(A%):ç A%<8:="+"+ÃA% ‹ =Ã(A%-16) øÝ¤sz(A%)=Á"BW-D",A%+1,1) Ý¤gen(A%,sz%):ê rn%:rn%=A% çA%<8:="R"+ÃA% #çA%<16:=¤disp+"(R"+Ã(rn%-8)+")" ,çA%=16:A$=¤disp+"(FP)":=¤disp+"("+A$+")" *,çA%=17:A$=¤disp+"(SP)":=¤disp+"("+A$+")" 4,çA%=18:A$=¤disp+"(SB)":=¤disp+"("+A$+")" >çA%=19:="reserved" H8çA%=20:çsz%=0:num%=num%+1:="&"+¤h0(Data%?(num%-1),2) R8çA%=20:çsz%=1:num%=num%+2:="&"+¤h0(Data%!(num%-2),4) \sçA%=20:num%=num%+4:="&"+¤h0(Data%?(num%-4),2)+¤h0(Data%?(num%-3),2)+¤h0(Data%?(num%-2),2)+¤h0(Data%?(num%-1),2) fçA%=21:="@"+¤disp pçA%=22:="EXT (disp1)+disp2" zçA%=23:="TOS" „çA%=24:=¤disp+"(FP)" ŽçA%=25:=¤disp+"(SP)" ˜çA%=26:=¤disp+"(SB)" ¢çA%=27:="*+"+¤disp ¬rn%=Data%?num%:num%=num%+1 ¶/çA%=28:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":B]" À/çA%=29:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":W]" Ê/çA%=30:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":D]" Ô/çA%=31:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":Q]" Þ="" è+Ý¤disp:A%=¤dispVal:="&"+¤h0(A%,dz%*2+2) ò-Ý¤dispPC:="&"+¤h0(¤dispVal+num%*0+Ptr%,8) ü7Ý¤dispVal:dz%=(Data%?num%)64:dz%=»Á"0013",dz%+1,1) ,çdz%=0:num%=num%+1:A%=Data%?(num%-1):=A% Fçdz%=1:num%=num%+2:A%=Data%?(num%-1)+256*(Data%?(num%-2) € 63):=A% dA%=data%?(num%+3)+256*data%?(num%+2)+65536*data%?(num%+1)+&1000000*(data%?num% € 63):num%=num%+4 $=A% .Ý¤areg(A%) 8çA%=0:="US" BçA%=8:="FP" LçA%=9:="SP" VçA%=10:="SB" `çA%=13:="PSR" jçA%=14:="INTBASE" tçA%=15:="MOD" ~ ="xx" ÿ