> MonPDP ::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) OQ$=" ":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 6Q$="J":Z%=(Z%+1)3:=0 @OQ$="M":"Address: &"A$:A$="":P%=buf%:O%=P%:=0 Q$="M":P%=("&"+A$)+O%:=0 JQ$="O":o:top:=0 TQ$="L":list():=0 ^Q$="S" os%:mode:=0 hLQ$="T":B$;:"Text: "Q$:A%=?(P%+Q$):$(P%)=Q$:?(P%+Q$)=A%:P%=P%+Q$:=0 rxQ$="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 RQ$="G":"Get file: "A$:A$<>"":"LOAD "+A$+" "+~buf%+"+"+~blen%,os%=32):=0 SQ$="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$): lmode:"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):  R28,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); Rwid%<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": 826: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=&14:="PDP-11" 5ݤDis_Code(A%,Ptr%,Data%): s%,d%,c%:!X%=0:num%=2 ;c%=!Data%:s%=(c%&0FC0)64:d%=c%63:c%=(c%&F000)&1000  $(X%+4)=pdp:X%?3=num%:=num%  ݤpdp q(c%7)=0: s%>39: s%<52:="CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",3*(s%-40)+1,3)+" B",c%8+1,1)+" "+mr(d%) p((c%-1)&7)<5:="MOVCMPBITBICBIS",(c%7)*3-2,3)+" B",c%8+1,1)+" "+mr(s%)+","+mr(d%) =("FNpdp_"+~c%) (ݤpdp_F:="FLOP "+mr(s%)+","+mr(d%)  (ݤpdp_E:="SUB "+mr(s%)+","+mr(d%) Qݤpdp_8: s%<32:="BPLBMIBHIBLSBVCBVSBCCBCS",3*((s%4))+1,3)+" "+jr(?Data%) # s%<36:="EMT &"+h0(?Data%,2) (# s%<40:="TRAP &"+h0(?Data%,2) 2 s%=52:="MTPS "+mr(d%) < s%=53:="MFPD "+mr(d%) F s%=54:="MTPD "+mr(d%) P s%=55:="MFPS "+mr(d%) Z="EQUB &"+h0(!Data%,4) d ݤpdp_7 n> s%<40:="MUL DIV ASH ASHCXOR ",3*(s%8)+1,4)+" "+mr(d%) xA s%=40: d%<32:="FADDFSUBFMULFDIV",3*(d%8)+1,4)+" "+r(d%) 9(s%&38)=&38:="SOB "+r(s%)+","+jr(d%-192*(d%>31)) ="EQUB &"+h0(!Data%,4) (ݤpdp_6:="ADD "+mr(s%)+","+mr(d%) Sݤpdp_0: s%<32: s%>3:="BR BNEBEQBGEBLTBGTBLE",3*(s%4)-2,3)+" "+jr(?Data%) ^ s%=0: d%<7:="HALTWAITRTIBPTIOTRESETRTT",d%*4+1+(d%>2)+(d%>3)+(d%=5),4+(d%>1)-2*(d%>4))  s%=1:="JMP "+mr(d%) ! s%=2: d%<8:="RTS "+r(d%) ) s%=2:(d%&38)=&18:="SPL "+(d%7) / s%=2:(d%&30)=&20:="CCC &"+h0(d%&F,2) / s%=2:(d%&30)=&30:="SCC &"+h0(d%&F,2)  s%=3:="SWAB "+mr(d%) /(s%&38)=&20:="JSR "+r(s%7)+","+mr(d%)  s%=52:="MARK &"+h0(d%,2)  s%=53:="MFPI "+mr(d%)  s%=54:="MTPI "+mr(d%)  s%=55:="SXT "+mr(d%) "="EQUB &"+h0(!Data%,4) ,;ݤr(A%):A%=A%7: A%=7:="PC" A%=6:="SP" ="R"+ A% 6.ݤmr(A%): m%:m%=(A%&38)8:(A%7)=7:=pc @ m%=0:=r(A%) J m%=1:="("+r(A%)+")" T m%=2:="("+r(A%)+")+" ^ m%=3:="@("+r(A%)+")+" h m%=4:="-("+r(A%)+")" r m%=5:="@-("+r(A%)+")" |@ m%=6:num%=num%+2:="&"+h0(Data%!(num%-2),4)+"("+r(A%)+")" A m%=7:num%=num%+2:="@&"+h0(Data%!(num%-2),4)+"("+r(A%)+")" ="" ݤpc  m%=0:="PC"  m%=1:="(PC)" 2 m%=2:num%=num%+2:="#&"+h0(Data%!(num%-2),4) 3 m%=3:num%=num%+2:="@#&"+h0(Data%!(num%-2),4)  m%=4:="-(PC)"  m%=5:="@-(PC)" 8 m%=6:num%=num%+2:="&"+h0(Ptr%+4+Data%!(num%-2),4) 9 m%=7:num%=num%+2:="@&"+h0(Ptr%+4+Data%!(num%-2),4) Kݤjr(A%): A%<128:="&"+h0(Ptr%+A%*2+2,4) ="&"+h0(Ptr%+A%*2+2-512,4)