;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
memcpy_test:
        ;; TESTING OF MEMCPY TEMPERARLY HERE BECAUSE IT WILL USE THAT :)
        X_pos = $FA
        A_start = $FAFB
        Y_pos = $F9
        B_start = $FCFD
        charset = $FB
        B_end = $FEFF
        code = $FE
        petski_position = $FEFF ;reuses code:s memory
        screen_position = $FCFD


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


        Mov_16 >A_start, <A_start, #<VIC_bank, #>VIC_bank
        ;We first need to clear some memory
        ;Mov_16 >A_end, >A_end,  #<(VIC_bank+100),  #>(VIC_bank +100)
        LDA #$00
        JSR memcpy
        STA <petski_position
        jmp exit