1Т > DisPDP 1.00 - PDP-11 disassembly routines %щє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 2 $(X%+4)=єpdp:X%?3=num%:=num% <: F щєpdp PТ x0 50-63 xx: ZqГ(c%─7)=0:Г s%>39:Г s%<52:=а"CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",3*(s%-40)+1,3)+а" B",c%│8+1,1)+" "+єmr(d%) d)Т x1, x2, x3, x4, x5 else x0, x6, x7: npГ((c%-1)─&7)<5:=а"MOVCMPBITBICBIS",(c%─7)*3-2,3)+а" B",c%│8+1,1)+" "+єmr(s%)+","+єmr(d%) ▀ =═("FNpdp_"+ц~c%) x: ┌(щє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) хГ s%=52:="MTPS "+єmr(d%) рГ s%=53:="MFPD "+єmr(d%) эГ s%=54:="MTPD "+єmr(d%) ФГ s%=55:="MFPS "+єmr(d%) П="EQUB &"+єh0(!Data%,4) З: щєpdp_7 >Г s%<40:=а"MUL DIV ASH ASHCXOR ",3*(s%│8)+1,4)+" "+єmr(d%) AГ 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) 6: @(щєpdp_6:="ADD "+єmr(s%)+","+єmr(d%) J: TSщє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)) hГ s%=1:="JMP "+єmr(d%) r!Г 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% Т.щєmr(A%):Й m%:m%=(A%─&38)│8:Г(A%─7)=7:=єpc ЧГ m%=0:=єr(A%) Г m%=1:="("+єr(A%)+")" Г m%=2:="("+єr(A%)+")+" Г m%=3:="@("+єr(A%)+")+" &Г m%=4:="-("+єr(A%)+")" 0Г m%=5:="@-("+єr(A%)+")" :@Г m%=6:num%=num%+2:="&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" DAГ m%=7:num%=num%+2:="@&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" N="" Xщєpc bГ m%=0:="PC" lГ m%=1:="(PC)" v2Г 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) ф: Ъ