

zero-depack.src ==0801==
   10 * = $49dc
   20 sei
   30 lda #$34
   40 sta $01
   50 ldy #0
   60 loop2 = *
   70 lda $7de0,y
   80 sta $1000,y
   90 lda $7ee0,y
  100 sta $1100,y
  110 iny
  120 bne loop2
  130 ldy #$1f
  140 loop3 = *
  150 lda $7fe0,y
  160 sta $1200,y
  170 dey
  180 bpl loop3
  190 lda #$36
  200 sta $01
  210 cli
  220 start = $b800
  230 finish = $2200
  240 target = $1300
  250 lda #<start
  260 sta $fb
  270 lda #>start
  280 sta $fc
  290 lda #<target
  300 sta $fd
  310 lda #>target
  320 sta $fe
  330 loop = *
  340 lda $fe
  350 cmp #>finish
  360 bne lp1
  370 rts
  380 lp1 = *
  390 ldy #0
  400 lda ($fb),y
  410 beq rle
  420 cmp #$20
  430 beq rle
  440 sta ($fd),y
  450 jsr tbump
  460 jsr sbump
  470 jmp loop
  480 rle = *
  490 jsr sbump
  500 pha
  510 lda ($fb),y
  520 tax
  530 pla
  540 rloop = *
  550 sta ($fd),y
  560 jsr tbump
  570 dex
  580 bne rloop
  590 jsr sbump
  600 jmp loop
  610 sbump = *
  620 inc $fb
  630 bne sp1
  640 inc $fc
  650 sp1 = *
  660 rts
  670 tbump = *
  680 inc $fd
  690 bne tp1
  700 inc $fe
  710 tp1 = *
  720 rts
