ô > Mon32 î…ö:ñž:ò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=2:="32000" À;Ý¤Dis_Code(A%,Ptr%,Data%):êop%,num%,i%,g1%,g2%,op0%,dz% Ê7op%=!Data%:i%=op%€3:g1%=Data%?18:g2%=(op%€&7C0)64 Ô;X%!0=0:A$=¤_32:ç©A$<35:$(X%+4)=A$‹$(X%+4)=ÀA$,32)+"..." Þ"çnum%:çnum%<13:X%?3=num%:=num% èQX%?2=&80:X%?3=1:$(X%+4)="EQUB &"+¤h0(?Data%,2)+À" ; num="+Ãnum%,num%<>0):=1 ò Ý¤_32 ü9ç(op%€&1F)=&06„(op%€&5F)=&5E„(op%€&EF)=&8E:num%=0:="" num%=1 .ç(op%€&FF)=&EA:X%?2=&40:="BR "+¤dispPC 8ç(op%€&0F)=&0A:="B"+¤cc((op%€&F0)16)+" "+¤dispPC $%ç(op%€&FF)=&02:="BSR "+¤dispPC .,ç(op%€&FF)=&12:X%?2=&40:="RET "+¤disp 8#ç(op%€&FF)=&22:="CXP "+¤disp B,ç(op%€&FF)=&32:X%?2=&40:="RXP "+¤disp L,ç(op%€&FF)=&42:X%?2=&40:="RETT "+¤disp V#ç(op%€&FF)=&52:X%?2=&40:="RETI" `%ç(op%€&FF)=&62:="SAVE "+¤lst(0) j&ç(op%€&FF)=&72:="RESTORE "+¤lst(7) t/ç(op%€&FF)=&82:="ENTER "+¤lst(0)+","+¤disp ~%ç(op%€&FF)=&92:="EXIT "+¤lst(7) ˆç(op%€&FF)=&A2:="NOP" ’ç(op%€&FF)=&B2:="WAIT" œç(op%€&FF)=&C2:="DIA" ¦4ç(op%€&FF)=&D2:num%=2:="FLAG &"+¤h0(Data%?1,2) °4ç(op%€&FF)=&E2:num%=2:="SVC &"+¤h0(Data%?1,2) º ç(op%€&FF)=&F2:num%=1:="BPT" Ä num%=2 ÎMç(op%€&7C)=&0C:çi%<>2:="ADDQ"+¤sz(i%)+" "+¤short(g2%2)+","+¤gen(g1%,i%) ØMç(op%€&7C)=&1C:çi%<>2:="CMPQ"+¤sz(i%)+" "+¤short(g2%2)+","+¤gen(g1%,i%) âLç(op%€&7C)=&2C:çi%<>2:="SPR"+¤sz(i%)+" "+¤areg(g2%2)+","+¤gen(g1%,i%) ìMç(op%€&7C)=&3C:çi%<>2:="S"+¤cc((op%€&380)128)+¤sz(i%)+" "+¤gen(g1%,i%) öYç(op%€&7C)=&4C:çi%<>2:="ACB"+¤sz(i%)+" "+¤short(g2%2)+","+¤gen(g1%,i%)+","+¤dispPC Mç(op%€&7C)=&5C:çi%<>2:="MOVQ"+¤sz(i%)+" "+¤short(g2%2)+","+¤gen(g1%,i%) Lç(op%€&7C)=&6C:çi%<>2:="LPR"+¤sz(i%)+" "+¤areg(g2%2)+","+¤gen(g1%,i%) ç(op%€&7FC)=&27C:X%?2=&40 ç(op%€&FC)=&7C:çi%<>2:=ÀÁ"CXPD BICPSRJUMP BISPSRxxxx ADJSP JSR CASE",g2%4*6+1,»Á"46464534",g2%4+1,1))+¤sz(i%),5)+" "+¤gen(g1%,i%) (Çç(op%€&0C)<>&0C:çi%<>2:A%=(op%€&3C)4:A$=¤gen(g1%,i%):=ÀÁ"ADD CMP BIC xxx ADDCMOV OR xxx SUB ADDRAND xxx SUBCTBITXOR",A%*4+1,»Á"333043203430443",A%+1,1))+¤sz(i%)+" ",5)+" "+A$+","+¤gen(g2%,i%) 2Vnum%=3:i%=(op%€&300)256:g1%=Data%?28:g2%=(op%€&7C000)&4000:op0%=(Data%?1€&3C)4 2:="SETCFG"+¤sz(Data%?1€3)+" "+¤cfg(g2%2) Fiç(op%€&F870FF)=&00E:çi%<>2:ç(op%€&60000)<>&40000:=Á"MOVSCMPSxxxxSKPS",op0%*6+1,4)+¤sz(i%)+¤str(g2%2) PÍç(op%€&0000FF)=&04E:çi%<>2:=ÀÁ"ROT ASH CBIT CBITIundefLSH SBIT SBITINEG NOT undefSUBP ABS COM IBIT ADDP",op0%*5+1,»Á"3345534533543345",op0%+1,1))+¤sz(i%)+" ",5)+" "+¤gen(g1%,0)+","+¤gen(g2%,i%) Zoç(op%€&0038FF)=&00CE:çi%<>2:=Á"MOVCMP",op0%*3+1,3)+"M"+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%)+","+¤disp dç(op%€&0038FF)=&08CE:çi%<>2:A$=Á"INSEXT",op0%*3-5,3)+"S"+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%):num%=num%+1:=A$+","+Ã(Data%?(num%-1)32)+","+Ã(1+(Data%?(num%-1)€31)) nuç(op%€&0020FF)=&20CE:çi%<>2:=Á"MULMEIundDEIQUOREMMODDIV",op0%*3-23,3)+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) x“ç(op%€&0030FF)=&10CE:çi%<>2:=Á"MOVX"+¤sz(i%)+"WMOVZ"+¤sz(i%)+"WMOVZ"+¤sz(i%)+"DMOVX"+¤sz(i%)+"D",op0%*6-23,6)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) ‚„ç(op%€&00047F)=&002E:çi%<>2:=Á"EXTINS",(op%€&80)128*3+1,3)+¤sz(i%)+" R"+Ã(op0%2)+","+¤gen(g1%,i%)+","+¤gen(g2%,i%)+","+¤disp Œ¿ç(op%€&00003F)=&002E:çi%<>2:A%=(op%€&C0)+(op%€&400)4:çA%=&40„A%=&C0„A%=&100:=ÀÁ"CVTP xxxxxCHECKINDEX",A%64*5-4,5+(A%=64))+¤sz(i%)+" ",6)+" R"+Ã(op0%2)+","+¤gen(g1%,i%)+","+¤gen(g2%,i%) –Rç(op%€&0004FF)=&046E:çi%<>2:="FFS"+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) iç(op%€&002CFF)=&0CAE:çi%<>2:="MOV"+Á"SUUS",(op0%€4)2+1,2)+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) ª0ç(op%€&003FFF)=&083E:="LFSR "+¤gen(g1%,i%) ´0ç(op%€&003FFF)=&303E:="SFSR "+¤gen(g1%,i%) ¾«ç(op%€&0000FF)=&003E:çi%<>2:=Á"MOV xxxxxMOVLFMOVFLROUNDTRUNCxxxxxFLOOR",(op0%2)*5+1,»Á"35555555",(op0%2)+1,1))+¤fl(op%€1)+¤sz(i%)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) ÈŒç(op%€&0002FF)=&00BE:=Á"ADDMOVCMPxxxSUBNEGundundDIVxxxundundMULABSundund",op0%*3+1,3)+¤fl(Data%?1€1)+" "+¤gen(g1%,i%)+","+¤gen(g2%,i%) ÒMç(op%€&0078FF)=&001E:=Á"RDVALWRVAL",op0%*5+1,5)+¤sz(i%)+" "+¤gen(g1%,i%) Ü]ç(op%€&0078FF)=&081E:=Á"LMR SMR ",op0%*5-9,5)+¤sz(i%)+" "+¤mmu(g2%2)+","+¤gen(g1%,i%) æGç(op%€&00001F)=&0016:="SLAVE "+Ã((Data%?0)32)+",&"+¤h0(Data%!1,4) ð*num%=1:X%?2=&80:="equb &"+¤h0(op%,2) ú3Ý¤lst(A%):êrn%,n%,A$:rn%=Data%?num%:num%=num%+1 -ãn%=0¸7:ç(rn%€(2^n%)):A$=A$+",R"+Ã(n%‚A%) ín%:="["+ÁA$,2)+"]" IÝ¤cfg(A%)=À"I",(A%€1)=1)+À"F",(A%€2)=2)+À"M",(A%€4)=4)+À"C",(A%€8)=8) "LÝ¤str(A%)=À"T",(A%€1)=1)+À"B",(A%€2)=2)+À"W",(A%€12)=4)+À"U",(A%€12)=12) ,:Ý¤cc(A%)=Á"EQNECSCCHILSGTLEFSFCLOHSLTGEALNV",A%*2+1,2) 61Ý¤short(A%):A%=A%€15:çA%<8:="+"+ÃA%‹=Ã(A%-16) @Ý¤sz(A%)=Á"BW-D",A%+1,1) JÝ¤fl(A%)=Á"LF",A%+1,1) TÝ¤gen(A%,sz%):êrn%:rn%=A% ^çA%<8:="R"+ÃA% h&çA%<16:=¤dispReg+"(R"+Ã(rn%-8)+")" r,çA%=16:A$=¤disp+"(FP)":=¤disp+"("+A$+")" |,çA%=17:A$=¤disp+"(SP)":=¤disp+"("+A$+")" †,çA%=18:A$=¤disp+"(SB)":=¤disp+"("+A$+")" çA%=19:="revd" š8çA%=20:çsz%=0:num%=num%+1:="&"+¤h0(Data%?(num%-1),2) ¤8ç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) ¸ çA%=21:="@&"+¤h0(¤dispOff,8) Â)çA%=22:A$=¤disp:="EXT("+A$+")+"+¤disp ÌçA%=23:="TOS" ÖçA%=24:=¤dispReg+"(FP)" àçA%=25:=¤dispReg+"(SP)" êçA%=26:=¤dispReg+"(SB)" ôçA%=27:=¤dispPC þ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]" 0="" :+Ý¤disp:A%=¤dispVal:="&"+¤h0(A%,dz%*2+2) D&Ý¤dispPC:="&"+¤h0(Ptr%+¤dispOff,8) N>Ý¤dispReg:A%=¤dispOff:çA%<0:=ÃA%‹="&"+¤h0(A%,(1+©Ã~A%)€-2) XkÝ¤dispOff:A%=¤dispVal:dz%= ("&"+Á"0000003F00001FFF000000001FFFFFFF",dz%*8+1,8)):çA%>dz%:=A%-2*dz%-2‹=A% b7Ý¤dispVal:dz%=(Data%?num%)64:dz%=»Á"0013",dz%+1,1) l&çdz%=0:num%=num%+1:=Data%?(num%-1) v>çdz%=1:num%=num%+2:=Data%?(num%-1)+256*(Data%?(num%-2)€63) €dnum%=num%+4:=Data%?(num%-1)+256*Data%?(num%-2)+65536*Data%?(num%-3)+&1000000*(Data%?(num%-4)€63) ŠÝ¤areg(A%) ”çA%=0:="US" žçA%=8:="FP" ¨çA%=9:="SP" ²çA%=10:="SB" ¼çA%=13:="PSR" ÆçA%=14:="INTBASE" ÐçA%=15:="MOD" Ú ="AR"+ÃA% ä Ý¤mmu(A%) îç(A%€14)=0:="BPR"+ÃA% øç(A%€14)=4:="PF"+Ã(A%-4) çA%=8:="SC" çA%=10:="MSR" çA%=11:="BCNT" ç(A%€14)=12:="PTB"+Ã(A%-12) *çA%=15:="EIA" 4="mmu"+ÃA% ÿ