31 lines
877 B
ArmAsm
31 lines
877 B
ArmAsm
;;; -*- 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
|