2019-10-24 05:15:42 -04:00
|
|
|
;
|
2019-12-25 10:56:32 -05:00
|
|
|
; 2019-12-22, Greg King
|
2019-10-24 05:15:42 -04:00
|
|
|
;
|
|
|
|
; unsigned char fastcall vpeek (unsigned long addr);
|
|
|
|
; /* Get a byte from a location in VERA's internal address space. */
|
|
|
|
;
|
|
|
|
|
|
|
|
.export _vpeek
|
|
|
|
|
2019-12-25 10:56:32 -05:00
|
|
|
.import vaddr0
|
2019-10-24 05:15:42 -04:00
|
|
|
.include "cx16.inc"
|
|
|
|
|
|
|
|
|
2019-12-25 10:56:32 -05:00
|
|
|
_vpeek: jsr vaddr0 ; put VERA's address
|
2019-10-24 05:15:42 -04:00
|
|
|
ldx #>$0000
|
|
|
|
lda VERA::DATA0 ; read VERA port zero
|
|
|
|
rts
|