************************************
* Dump program made by Y. Yoshioka *
************************************
 org $1000
lrdx1 equ $ffe4
lprx1 equ $ffe7
lprtn equ $ffea
lcont equ $20
lcon2 equ $21
ladd0 equ $22
lprbf equ $2000
* dump command
ldump
 ldx #$1000 : stx ladd0
 lda #$10   : sta lcont
ldum0
 ldx #lprbf : lda #$44   : sta ,x+    : lda #$20   : sta ,x+
 lda ladd0  : bsr lstrx  : lda ladd0+1: bsr lstrx
 lda #$20   : sta ,x+    : lda #$10   : sta lcon2  : ldy ladd0
ldum2
 lda #$20   : sta ,x+    : lda ,y+    : bsr lstrx
 dec lcon2  : bne ldum2  : sty ladd0
 ldd #$0d0a : std ,x+2   : clr ,x
 ldx #lprbf : jsr lprtn  : dec lcont  : bne ldum0  : rts
lstrx
 jsr lxcha  : std ,x+2   : rts
*
lxcha
 pshs a     : bsr lxchb  : tfr a,b    : puls a : lsra : lsra : lsra : lsra
lxchb
 anda #$0f  : cmpa #$0a  : blt lxchc  : adda #$07
lxchc
 adda #$30  : rts
*
 end