0 > DisPDP 1.02 - PDP11 disassembly routines $ݤDis_Name(A%):X%?3=&14:="PDP11" 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 2 $(X%+4)=pdp:X%?3=num%:=num% <: F ݤpdp Po(c%7)=0:s%>39:s%<52:="CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",3*(s%-40)+1,3)+" B",c%8+1,1)+" "+mr(d%) Zo((c%-1)7)<5:="MOVCMPBITBICBIS",(c%7)*3-2,3)+" B",c%8+1,1)+" "+mr(s%)+","+mr(d%) =("FNpdp_"+~c%) d: n(ݤpdp_F:="FLOP "+mr(s%)+","+mr(d%) x: (ݤpdp_E:="SUB "+mr(s%)+","+mr(d%) : Pݤpdp_8:s%<32:="BPLBMIBHIBLSBVCBVSBCCBCS",3*((s%4))+1,3)+" "+jr(?Data%) 9s%<40:="EMT TRAP",(s%&FC)-31,4)+" &"+h0(?Data%,2) >(s%&FC)=&34:="MTPSMFPDMTPDMFPS",4*s%-207,3)+" "+mr(d%) $X%?2=128:="EQUW &"+h0(!Data%,4) : ݤpdp_7 Ds%<32:="MUL DIV ASH ASHC",4*(s%8)+1,4)+" "+mr(d%)+","+r(s%) &s%<40:="XOR "+r(s%)+","+mr(d%) ?s%=40:d%<32:="FADDFSUBFMULFDIV",4*(d%8)+1,4)+" "+r(d%) 9(s%&38)=&38:="SOB "+r(s%)+","+jr(d%-192*(d%>31)) $X%?2=128:="EQUW &"+h0(!Data%,4) : (ݤpdp_6:="ADD "+mr(s%)+","+mr(d%) : "`ݤpdp_0:s%<32:s%>3:X%?2=(s%<8)64:="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)) 6"s%=1:X%?2=64:="JMP "+mr(d%) @'s%=2:d%<8:X%?2=64:="RTS "+r(d%) J(s%=2:(d%&38)=&18:="SPL "+(d%7) T.s%=2:(d%&30)=&20:="CCC &"+h0(d%&F,2) ^.s%=2:(d%&30)=&30:="SCC &"+h0(d%&F,2) hs%=3:="SWAB "+mr(d%) r/(s%&38)=&20:="JSR "+r(s%7)+","+mr(d%) |s%=52:="MARK &"+h0(d%,2) :(s%&FC)=&34:="MFPIMTPISXT ",4*s%-211,3)+" "+mr(d%) $X%?2=128:="EQUW &"+h0(!Data%,4) : 9ݤr(A%):A%=A%7:A%=7:="PC" A%=6:="SP" ="R"+ A% .ݤmr(A%): m%:m%=(A%&38)8:(A%7)=7:=pc 'm%<2:="("+r(A%)+")",2-m%,2*m%+2) :m%<6:="@",m%1)+"-",m%4)+"("+r(A%)+")"+"+",m%<4) @num%=num%+2:="@",m%=7)+h0(Data%!(num%-2),4)+"("+r(A%)+")" ݤpc m%<2:="(PC)",2-m%,2*m%+2)