2019-10-24 09:15:42 +00:00
|
|
|
;
|
2019-12-25 15:56:32 +00:00
|
|
|
; 2019-12-22, Greg King
|
2019-10-24 09:15:42 +00:00
|
|
|
;
|
|
|
|
|
; 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
|
|
|
|
|
|
2019-12-25 15:56:32 +00:00
|
|
|
.import vaddr0, popa
|
2019-10-24 09:15:42 +00:00
|
|
|
.include "cx16.inc"
|
|
|
|
|
|
|
|
|
|
|
2019-12-25 15:56:32 +00:00
|
|
|
_vpoke: jsr vaddr0 ; put VERA's address
|
2019-10-24 09:15:42 +00:00
|
|
|
jsr popa
|
|
|
|
|
sta VERA::DATA0 ; write data to VERA port zero
|
|
|
|
|
rts
|
