ô > Monitor î…ö:ñž:ò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 ºFÝ¤Dis_Code(c%,a%,d%):!X%=&200C:X%?2=c%:X%!4=a%:X%!8=!d%:X%!12=d%!4 Ä=A%=190:Ö&FFF1:çX%?3=0:$(X%+4)="EQUB &"+¤h0(X%?8,2):X%?3=1 Î =X%?3 Ø9Ý¤Dis_Name(c%):!X%=&2008:X%?2=c%:X%!4=0:A%=190:Ö&FFF1 âçX%!4:=$(X%+4) ‹ ="" ÿ