samples/z80asmdis/main.zas

   1 ;==========================================================================
   2 ; Test program for Z80-disassembler
   3 ;==========================================================================
   4   org  #8000
   5
   6   include <open-main-screen.zas>
   7
   8   ld   hl,Z80OPS  ; start address for disassembler
   9   ld   (DADR),hl
  10 .loop:
  11   call DISSCR     ; disassemble one screen full
  12   halt            ; stop simulation
  13   jp   .loop      ; next run
  14
  15 PRTSTR:           ; print 0 terminated string
  16   ld   a,(hl)     ; next char -> a
  17   or   a          ; 0 ?
  18   ret  z          ; yes, done
  19   rst  #10        ; no, print it
  20   inc  hl         ; increase pointer to string
  21   jp   PRTSTR     ; process next char
  22
  23   include "z80dis.zas"
  24   include "z80ops.zas"