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 280 sta $fc 290 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