ô > MonARM î…ö:ñž:òend:à Hos%=¤fx(0,1):ë(¤fx(135,0)256)„((“<&FFFF)€&80):ç“<&FFFF:Ó=¤fx(132,0) (,Þctrl%39,data%15,zp%3:X%=ctrl%:Y%=X%256 2.blen%=“-’-&580+&C00*(“>&FFFF):buf%=“-blen% &FFFFF:çP%<„P%>“+blen%:P%=buf% Z ý¤menu:ýQ$="Q"„Q$="X":òend:à dVÝ¤line(addr%):ñ¤ho(addr%-O%,D%);" ";:!data%=!addr%:data%!4=addr%!4:data%!8=addr%!8 n2çio%:çaddr%<0:ãB%=0¸7:data%?B%=¤rm(addr%+B%):í xLç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) æõQ$=¾:V%=¼:çQ$="*":òosc ðMçQ$=" ":addr%=¤line(addr%):ñŠ0,(hgh%>19)€2);:P%=P%+num%:num%=¤line(P%)-P% úçQ$>"`"€Q$<"{":Q$=½(—Q$-32) @ý§½13+½8+½9+½127+"+;-=GPQWSMHJOLTYZNR*0123456789ABCDEFX",Q$) çQ$="*":=¹ çQ$=½13:P%=P%+1:=0 "çQ$=½127„Q$=½8:P%=P%-1:=0 ,çQ$="+"„Q$=";":P%=P%+8:=0 6çQ$="-"„Q$="=":P%=P%-8:=0 @çQ$=½9:dmp%=dmp%‚2:=0 JçQ$="W":D%=4+((D%-3)ƒ5):=¹ TçQ$="H":hex%=¬hex%:=0 ^çQ$="J":Z%=(Z%+1)€3:=0 hçQ$="M":òm:=0 rç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 šrç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$:=¹ Ö1ç(Q$>"/"€Q$<":")„(Q$>"@"€Q$<"G"):òbyte(Q$):=0 à?çQ$="Q"„Q$="X":è"Quit? "Q$:A%=(—Q$€&DF)=89:Q$="":çA%:Q$="Q" ê=Q$="X"„Q$="Q" ô9Ýòm:è"Address: &"A$:A$=¤uc(A$):çA$="":P%=buf%:O%=P%:á þAA%= ("&"+A$):çio%:çA%<&10000:P%=(P%€&FFFF0000)+A%+O%‹P%=A%+O% á IÝò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%:á 0Ýòlist(T%) :Gè"Start address: &"A$:A$=¤uc(A$):çA$="":addr%=P%‹addr%= ("&"+A$)+O% DNè"End address: &"A$:A$=¤uc(A$):çA$="":end%=addr%+&8000‹end%= ("&"+A$)+O% NIè"Address for code address 0000: &"A$:A$=¤uc(A$):çA$<>"":O%= ("&"+A$) X6ÿ"FX3":õaddr%=¤line(addr%):ýaddr%>end%:ÿ"FX3,16":á b6Ýòbyte(Q$):ñ"Bytes: &";Q$;:õ:A%=¥:çA%>96:A%=A%€&DF l+ç(A%=95„A%=8)€Q$<>"":ï127:Q$=ÀQ$,©Q$-1) v7ç((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:á ž.P%=(P%€&FFFF)„&FF000000„65536* ("&F"+A$):á ¨Ýòmode:è"Mode: "A$:çA$="":á ²&Q%= (A$)„&80:çio%:ç¤fx(133,Q%)<“:á ¼ï22,Q%:á Æ Ýòosc:çwid%>40:ï26,31,0,hgh% Ð2õ:è†"*"A$:ÿA$:ï58:õQ$=¾:ý§½13+"GgPp*",Q$):ï127 ÚýQ$<>"*":çQ$=½13:Q$="*" äá îÝ¤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:á *Cç((L%ƒ3-(L%>27))ƒ3-3*(L%=24)+(L%>24€L%<28)-3*(L%=27)-(L%=28)):á 4)ç(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) Há RÝò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:á fMÝòSetScr:ÿ"FX3,16":ï3,26:C$=½132:B$=½135:ç¤fx(135,0)256<>7:C$=" ":B$=" " pnt1%=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:á zÑ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:á „WW%=33-11*(wid%<40):ñÄW%/4-©A$/2+(ny%>9),"*");" ";A$;" D"dd$"er ";ny%;" ";ÄW%-±,"*") Žœç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; ˜¹ç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" ¬Õñ" 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" ¶(ñ" 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 á 1Ý¤ho(A%,N%):çhex%:=¤h0(A%,N%)‹=¤o0(A%,N%*3/2) -Ý¤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$ 8#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) B4Ý¤o0(A%,N%):êA$,B%,L%:çA%<0:B%=2:A%=A%€&7FFFFFFF L;õA$=Ã(A%€7)+A$:A%=A%8:L%=L%+3:ýL%>27:=ÂÃ(A%+B%)+A$,N%) V?Ý¤fx(A%,X%):êY%:Y%=X%256:ç<&FFFFF:=((º&FFF4)€&FFFF00)256 `-çA%=135:X%=ë:çX%>-1:=X%*256‹çA%=135:=&A00 j(çA%=160:çX%=10:=@vdu%!28@vdu%!216-1 t'ç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_Code(A%,a%,d%) ¦TÈ™"Debugger_Disassemble",!d%,a%¸,A%,a%:A%?a%=13:$(X%+4)=À$A%,26):!X%=0:X%?3=4:=4 °!Ý¤Dis_Name(A%):X%?3=10:="ARM" ÿ