;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
;; test for memcpy
.scope memcpy_test
        charset = $FB
        code = $FE
        petski_position = $FE ;16-bit value (uses FF), reuses code:s memory
        screen_position = $FC ;16-bit value (uses FD)

        Mov_16 B_start, B_start + 1, #<$D000, #>$D000
        ;#### TEMP INIT DATA ####
        Mov_16 B_end, B_end + 1,  #<($D000+$1F3F), #>($D000 +$1F3F)
        LDA #$10
        STA code
        LDA #$10
        STA X_pos
        STA Y_pos

        VIC_bank = $4000
        VIC_bank_end = VIC_bank + $3FFF
        Mov_16 A_start, A_start + 1, #<VIC_bank, #>VIC_bank
        LDA #$00
        JSR memcpy
        STA petski_position
        jmp exit
.endscope