fix c65 lib, remove includes from cbm generic lib
This commit is contained in:
28
libsrc/c65/cpeekrevers.s
Normal file
28
libsrc/c65/cpeekrevers.s
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
;
|
||||||
|
; 2016-02-28, Groepaz
|
||||||
|
; 2017-06-15, Greg King
|
||||||
|
;
|
||||||
|
; unsigned char cpeekrevers (void);
|
||||||
|
;
|
||||||
|
|
||||||
|
.include "c65.inc"
|
||||||
|
|
||||||
|
.export _cpeekrevers
|
||||||
|
.importzp ptr1
|
||||||
|
|
||||||
|
_cpeekrevers:
|
||||||
|
lda SCREEN_PTR + 1
|
||||||
|
clc
|
||||||
|
adc #>$0800
|
||||||
|
sta ptr1 + 1
|
||||||
|
lda SCREEN_PTR
|
||||||
|
sta ptr1
|
||||||
|
|
||||||
|
ldy CURS_X
|
||||||
|
lda (ptr1),y ; get screen code
|
||||||
|
and #$80 ; get reverse bit
|
||||||
|
asl a
|
||||||
|
tax ; ldx #>$0000
|
||||||
|
rol a ; return boolean value
|
||||||
|
|
||||||
|
rts
|
||||||
@@ -13,7 +13,6 @@
|
|||||||
|
|
||||||
.include "c65.inc"
|
.include "c65.inc"
|
||||||
|
|
||||||
|
|
||||||
_cputcxy:
|
_cputcxy:
|
||||||
pha ; Save C
|
pha ; Save C
|
||||||
jsr gotoxy ; Set cursor, drop x and y
|
jsr gotoxy ; Set cursor, drop x and y
|
||||||
|
|||||||
@@ -22,10 +22,6 @@
|
|||||||
.include "pet.inc"
|
.include "pet.inc"
|
||||||
.elseif .def(__VIC20__)
|
.elseif .def(__VIC20__)
|
||||||
.include "vic20.inc"
|
.include "vic20.inc"
|
||||||
.elseif .def(__C65__)
|
|
||||||
.include "c65.inc"
|
|
||||||
.elseif .def(__MEGA65__)
|
|
||||||
.include "mega65.inc"
|
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user