mirror of
https://github.com/cc65/cc65.git
synced 2024-06-19 14:29:40 +00:00
20 lines
465 B
ArmAsm
20 lines
465 B
ArmAsm
|
;
|
||
|
|
; 2019-10-22, Greg King
|
||
|
|
;
|
||
|
|
; unsigned char fastcall vpeek (unsigned long addr);
|
||
|
|
; /* Get a byte from a location in VERA's internal address space. */
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _vpeek
|
||
|
|
|
||
|
|
.import vset
|
||
|
|
.include "cx16.inc"
|
||
|
|
|
||
|
|
|
||
|
|
_vpeek: php ; (vset blocks interrupts)
|
||
|
|
jsr vset ; put VERA's address
|
||
|
|
ldx #>$0000
|
||
|
|
lda VERA::DATA0 ; read VERA port zero
|
||
|
|
plp
|
||
|
|
rts
|