6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Update from Oliver Schmidt: Includes gotox/gotoy which were missing before.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3447 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-04-01 09:59:53 +00:00
parent 08808c0ec9
commit 35aafe8b44
8 changed files with 147 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/apple2/Makefile
View File

@ -59,6 +59,8 @@ OBJS= _scrsize.o \
dosdetect.o \
get_ostype.o \
getenv.o \
gotoxy.o \
gotoy.o \
joy_stddrv.o \
kbhit.o \
mainargs.o \

15
libsrc/apple2/cputc.s
View File

@ -9,10 +9,8 @@
.constructor initconio
.endif
.export _cputcxy, _cputc
.export _gotoxy, cputdirect
.export newline, putchar
.import popa, VTABZ
.export cputdirect, newline, putchar
.import popa, _gotoxy, VTABZ
.include "apple2.inc"
@ -93,12 +91,3 @@ put: ldy CH
.endif
col40: sta (BASL),Y
rts
_gotoxy:
clc
adc WNDTOP
sta CV ; Store Y
jsr VTABZ
jsr popa ; Get X
sta CH ; Store X
rts

23
libsrc/apple2/gotoxy.s Normal file
View File

@ -0,0 +1,23 @@
;
; Ullrich von Bassewitz, 06.08.1998
;
; void __fastcall__ gotoxy (unsigned char x, unsigned char y);
; void __fastcall__ gotox (unsigned char x);
;
.export _gotoxy, _gotox
.import popa, VTABZ
.include "apple2.inc"
_gotoxy:
clc
adc WNDTOP
sta CV ; Store Y
jsr VTABZ
jsr popa ; Get X
_gotox:
sta CH ; Store X
rts

19
libsrc/apple2/gotoy.s Normal file
View File

@ -0,0 +1,19 @@
;
; Ullrich von Bassewitz, 06.08.1998
;
; void __fastcall__ gotoy (unsigned char y);
;
.export _gotoy
.import VTABZ
.include "apple2.inc"
_gotoy:
clc
adc WNDTOP
sta CV ; Store Y
jmp VTABZ

2
libsrc/apple2enh/Makefile
View File

@ -59,6 +59,8 @@ OBJS= _scrsize.o \
dosdetect.o \
get_ostype.o \
getenv.o \
gotoxy.o \
gotoy.o \
joy_stddrv.o \
kbhit.o \
mainargs.o \