7f56f90613
This was recomended by dicander and duunqnd because A =$ABAC looks like one address and not 2 zero-page addresses.
25 lines
727 B
ArmAsm
25 lines
727 B
ArmAsm
;;; -*- 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
|