mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
22 lines
562 B
ArmAsm
22 lines
562 B
ArmAsm
;
|
|
; 2019-10-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 vset, popa
|
|
.include "cx16.inc"
|
|
|
|
|
|
_vpoke: php ; (vset blocks interrupts)
|
|
jsr vset ; put VERA's address
|
|
jsr popa
|
|
sta VERA::DATA0 ; write data to VERA port zero
|
|
plp
|
|
rts
|