10 REM > DisARM 1.00 - 22Sep2007 - ARM diassembly routines via Debugger SWI
   20 :
   30 DEFFNDis_Code(A%,a%,d%)
   40 SYS "Debugger_Disassemble",!d%,a% TO ,A%,a%:A%?a%=13:$(X%+4)=LEFT$($A%,26):!X%=0:X%?3=4:=4
   50 :
   60 DEFFNDis_Name(A%):X%?3=10:="ARM"