mirror of
https://github.com/cc65/cc65.git
synced 2024-11-03 10:07:02 +00:00
20 lines
493 B
ArmAsm
20 lines
493 B
ArmAsm
;
|
|
; 2019-12-22, Greg King
|
|
;
|
|
; void fastcall vpoke (unsigned char data, unsigned long addr);
|
|
; /* Put a byte into a location in VERA's internal address space.
|
|
; ** (addr is second instead of first for the sake of code efficiency.)
|
|
; */
|
|
;
|
|
|
|
.export _vpoke
|
|
|
|
.import vaddr0, popa
|
|
.include "cx16.inc"
|
|
|
|
|
|
_vpoke: jsr vaddr0 ; put VERA's address
|
|
jsr popa
|
|
sta VERA::DATA0 ; write data to VERA port zero
|
|
rts
|