ô > Mon32 î…ö:ñž:òend:à Aos%=¤fx(0,1):ë¤mode:Þ ctrl%31,data%15,zp%3:X%=ctrl%:Y%=X%256 (5blen%=“-’-&480+&C00*(>&8000):buf%=“-blen%:Ó=buf% 2hgh%-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 úçQ$=½127:P%=P%-1:=0 çQ$="+"„Q$=";":P%=P%+8:=0 çQ$="-"„Q$="=":P%=P%-8:=0 çQ$="Q":dmp%=dmp%‚2:=0 "çQ$="W":D%=4+((D%-3)ƒ5):=0 ,çQ$="H":hex%=¬hex%:=0 6çQ$="J":Z%=(Z%+1)€3:=0 @OçQ$="M":è"Address: &"A$:çA$="":P%=buf%:O%=P%:=0 ‹çQ$="M":P%= ("&"+A$)+O%:=0 JçQ$="O":òo:òtop:=0 TçQ$="L":òlist(£):=0 ^çQ$="S" €os%:òmode:=0 hLçQ$="T":ñB$;:è"Text: "Q$:A%=?(P%+©Q$):$(P%)=Q$:?(P%+©Q$)=A%:P%=P%+©Q$:=0 rxç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%:á êÝòlist(T%) ô>è"Start address: &"A$:çA$="":addr%=P% ‹ addr%= ("&"+A$)+O% þCè"End address: &"A$:çA$="":end%=addr%+&8000 ‹ end%= ("&"+A$)+O% >è"Address for code address 0000: &"A$:çA$<>"":O%= ("&"+A$) 6ÿ"FX3":õaddr%=¤line(addr%):ýaddr%>end%:ÿ"FX3,16":á Ýòbyte(Q$):ñ"Bytes: &";Q$; &õ:A%=¥:çA%>96:A%=A%€&DF 0'çA%=95 € Q$<>"":ï127:Q$=ÀQ$,© Q$-1) :@ç((A%>47 € A%<58) „ (A%>64 € A%<71)) € © Q$<30:ïA%:Q$=Q$+½A% D?ýA%=13:çQ$<>"":õ:?P%= ("&"+ÀQ$,2)):P%=P%+1:Q$=ÁQ$,3):ý©Q$<2 Ná X,Ýòrom:è"ROM: &"A$:çA$="":P%=P%€&FFFFFF:á b0P%=(P%€&FFFF)„&FF000000 „ 65536* ("&F"+A$):á lÝòmode:è"Mode: "A$:çA$="":á v: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 ¨á ²Ý¤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:wid%=79:hgh%=31:!X%=0:A$=¤Dis_Name(M%):A%=X%?3:D%=(A%€3)*2+4:Z%=(A%€12)4:hex%=(A%€16)=0 4[ç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:ñ"** "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:á HwW%=wid%+46*(wid%>40):ñÄW%/4-©A$/2+(ny%>9)-(W%<40),"*");" ";A$;" D"dd$"er ";ny%;" ";ÄW%-±,"*"):çwid%<40:ñŠ0,hgh%-6); Rçwid%<40:ñ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$"Q"B$"DUMP/LIST"‰7; \»ç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"‰4;C$"SPACE"B$"Move past code";:ï28,0,hgh%-7,wid%,1:á fÌñ"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"' pñ"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" z0ñ"S: Screen mode"'"R: Rom number"'"X: Exit"; „ï28,0,hgh%,45,0 Žá ˜Ý¤cpu:ç¤Dis_Name(0)<>"":=M% ¢!Û:ñ‰(7)"Microprocessor Menu"' ¬÷:ó A%,A$:õ ¶,ñ;A%;":";Š4+(± 20)*20);A$;Š20 €(±<20)); À5ó A%,A$:ýA%=0:õõ:è'"Enter CPU number: "cpu%:ýcpu% Ê@A%=¤Dis_Name(cpu%)="":çA%:ñ"No d"dd$"y routine for this CPU" Ôý¬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:ÿ"FX3":î … à 8ï26:ñŠ0,hgh%);:*QUIT Bá L-Ýòaddr:ços%=32:çP%< „ P%>“+blen%:P%=buf% Vá `9Ý¤mode:ços%=6:ç>&7FFF:=ë ‹ =(¤byte(135,0,0)256)„&80 j3Ý¤ho(A%,N%):çhex%:=¤h0(A%,N%) ‹ =¤o0(A%,N%*1.5) t1Ý¤c(A%):A%=A%€127:çA%=127 „ A%<32:="." ‹ =½A% ~#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) ˆ•Ý¤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%) ’)Ý¤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 º"Ý¤Dis_Name(A%):X%?3=2:="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]" (6ç(op%€&FF)=&82:num%=2:="ENTER [reg list],"+¤dispPC 2-ç(op%€&FF)=&92:num%=2:="EXIT [reg list]" <ç(op%€&FF)=&A2:="NOP" Fç(op%€&FF)=&B2:="WAIT" Pç(op%€&FF)=&C2:="DIA" Z2ç(op%€&FF)=&D2:num%=2:="FLAG &"+¤h0(Data%?1,2) d2ç(op%€&FF)=&E2:num%=2:="SVC &"+¤h0(Data%?1,2) n2ç(op%€&FF)=&F2:num%=2:="BPT &"+¤h0(Data%?1,2) x5ç(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) úfç(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) [ç(op%€&7C)=&6C:="LPR"+¤sz(op%€3)+" "+¤areg((op%€&780)128)+","+¤gen((Data%?1)8,op%€3) _ç(op%€&FC)=&7C:A$=Á"CXPD BICPSRJUMP BISPR xxxx ADJSP JSR CASE",((op%€&700)256)*6+1,6) "=ç(op%€&FC)=&7C:=A$+¤sz(op%€3)+" "+¤gen((Data%?1)8,op%€3) ,ç(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) 6 num%=3 @num%=1:="EQUB &"+¤h0(op%,2) JGç(op%€&00043F)=&00002E:=Á"EXT CVTP INS CHECK",(op%€&C0)64*5+1,5) TFç(op%€&00043F)=&00042E:=Á"INDEXFFS MOVSUxxxx",(op%€&C0)64*5+1,5) ^]ç(op%€&0000FF)=&00003E:=Á"MOVIFLFSR MOVLFMOVFLROUNDTRUNCSFSR FLOOR",(op%€&300)256*5+1,5) hlç(op%€&0000FF)=&0000BE:=Á"ADDFMOVFCMPFSUBFNEGFxxx xxx DIVFxxx xxx MULFABSFxxx xxx",(op%€&3C)1024*4+1,4) rHç(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$+")" Ö,çA%=18:A$=¤disp+"(SB)":=¤disp+"("+A$+")" àçA%=19:="reserved" ê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:="@"+¤disp çA%=22:="EXT (disp1)+disp2" çA%=23:="TOS" &çA%=24:=¤disp+"(FP)" 0çA%=25:=¤disp+"(SP)" :çA%=26:=¤disp+"(SB)" DçA%=27:="*+"+¤disp Nrn%=Data%?num%:num%=num%+1 X/çA%=28:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":B]" b/çA%=29:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":W]" l/çA%=30:=¤gen(rn%8,sz%)+"[R"+Ã(rn%€7)+":D]" v/ç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%) ÚçA%=0:="US" äçA%=8:="FP" îçA%=9:="SP" øçA%=10:="SB" çA%=13:="PSR" çA%=14:="INTBASE" çA%=15:="MOD" ="xx" ÿ