test/distest.f

   1 : main  ( -- )
   2   " code_start" ur-get-label
   3   \ " code_undoc" ur-get-label
   4   \ 0x45
   5   tozx
   6   begin
   7 \ ." !000\n" (ufe-bp)
   8     dup tozx " code_end" ur-get-label tozx <
   9 \ ." !001\n" (ufe-bp)
  10   while
  11     tozx dup
  12 \ ." !002\n" (ufe-bp)
  13     zx-disasm-one  ;; ( staddr addr count )
  14 \ ." !003\n" (ufe-bp)
  15     rot
  16     base @ over hex <# # # # # #> type base ! ." : "
  17     zxdis-pc over -
  18     >r zxdis-pc tozx swap
  19     do
  20       base @ i tozx c@ hex <# bl hold # # #> type base !
  21     loop
  22     4 r> - 3 * spaces
  23     xtype cr
  24     zxdis-pc
  25 \ ." !099\n" (ufe-bp)
  26   repeat
  27 ;
  28
  29 main
  30 " done" ufe-fatal