10 REM Dissasembly test program 1
   20 REM By J.G.Harston
   30 DIM ctrl% 32:X%=ctrl%:Y%=X%DIV256
   40 INPUT"Start address: &"A$:Ad%=EVAL("&"+A$)
   50 A%=190:REPEAT
   60   !X%=&200C:X%?2=80
   70   X%!4=Ad%: REM Address
   80   X%!8=!Ad%:X%!12=Ad%!4:REM Data at address
   90   CALL &FFF1
  100   PRINT;~Ad%;" ";
  110   FOR Z%=Ad% TO Ad%-1+X%?3
  120   PRINT;~?Z%;" ";:NEXT
  130   PRINTTAB(20);$(X%+4)
  140   IF(X%?2 AND 64):PRINT
  150   Ad%=Ad%+X%?3
  160 UNTIL0

Download D1

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.