13 lines
470 B
ArmAsm
13 lines
470 B
ArmAsm
;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
|
|
;; test for memcpy
|
|
;; Writes text to half the screen
|
|
.scope memcpy_test
|
|
.include "mem.inc"
|
|
VIC_bank = $4000
|
|
Character_generator_ROM = $D000
|
|
len = $1f40
|
|
Mov_16 A_start, A_start + 1, #<VIC_bank, #>VIC_bank
|
|
Mov_16 B_start, B_start + 1, #<Character_generator_ROM, #>Character_generator_ROM
|
|
Mov_16 length, length + 1, #<len, #>len
|
|
JSR memcpy
|
|
.endscope
|