Fixed a bug, splitted the where.s module into wherex.s and wherey.s
git-svn-id: svn://svn.cc65.org/cc65/trunk@2415 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
676e8ff513
commit
a7acdf7072
3 changed files with 26 additions and 9 deletions
|
@ -47,7 +47,8 @@ OBJS= _scrsize.o \
|
||||||
revers.o \
|
revers.o \
|
||||||
systime.o \
|
systime.o \
|
||||||
sysuname.o \
|
sysuname.o \
|
||||||
where.o \
|
wherex.o \
|
||||||
|
wherey.o \
|
||||||
write.o
|
write.o
|
||||||
|
|
||||||
#--------------------------------------------------------------------------
|
#--------------------------------------------------------------------------
|
||||||
|
|
17
libsrc/apple2/wherex.s
Normal file
17
libsrc/apple2/wherex.s
Normal file
|
@ -0,0 +1,17 @@
|
||||||
|
|
||||||
|
;; Keivn Ruland
|
||||||
|
;;
|
||||||
|
;; unsigned char wherex( void );
|
||||||
|
|
||||||
|
.export _wherex
|
||||||
|
|
||||||
|
.include "apple2.inc"
|
||||||
|
|
||||||
|
.proc _wherex
|
||||||
|
|
||||||
|
lda CH
|
||||||
|
ldx #0
|
||||||
|
rts
|
||||||
|
|
||||||
|
.endproc
|
||||||
|
|
|
@ -1,18 +1,17 @@
|
||||||
|
|
||||||
;; Keivn Ruland
|
;; Keivn Ruland
|
||||||
;;
|
;;
|
||||||
;; unsigned char wherex( void );
|
|
||||||
;; unsigned char wherey( void );
|
;; unsigned char wherey( void );
|
||||||
|
|
||||||
.export _wherex, _wherey
|
.export _wherey
|
||||||
|
|
||||||
.include "apple2.inc"
|
.include "apple2.inc"
|
||||||
|
|
||||||
_wherex:
|
.proc _wherey
|
||||||
lda CH
|
|
||||||
|
lda CV
|
||||||
|
ldx #0
|
||||||
rts
|
rts
|
||||||
|
|
||||||
_wherey:
|
.endproc
|
||||||
lda CV
|
|
||||||
rts
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue