forked from amberisvibin/chibi-pc09
29 lines
703 B
NASM
29 lines
703 B
NASM
TITLE 'Test programm for Z80-Disassembler'
|
|
|
|
;==========================================================================
|
|
; Test programm for Z80-Disassembler
|
|
;==========================================================================
|
|
|
|
LD SP,STACK ; initialize stack for simulator
|
|
LD HL,Z80OPS ; start address for disassembler
|
|
LD (DADR),HL
|
|
LOOP:
|
|
CALL DISSCR ; disassemble one screen full
|
|
HALT ; stop simulation
|
|
JP LOOP ; next run
|
|
|
|
PRTSTR: ; print 0 terminated string
|
|
LD A,(HL) ; next char -> A
|
|
OR A ; 0 ?
|
|
RET Z ; yes, done
|
|
OUT (0),A ; no, print it
|
|
INC HL ; increase pointer to string
|
|
JP PRTSTR ; process next char
|
|
|
|
INCLUDE z80dis.asm
|
|
INCLUDE z80ops.asm
|
|
|
|
DEFS 100H
|
|
STACK:
|
|
END
|