Update from Oliver Schmidt: Includes gotox/gotoy which were missing before.
git-svn-id: svn://svn.cc65.org/cc65/trunk@3447 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -59,6 +59,8 @@ OBJS= _scrsize.o \
|
|||||||
dosdetect.o \
|
dosdetect.o \
|
||||||
get_ostype.o \
|
get_ostype.o \
|
||||||
getenv.o \
|
getenv.o \
|
||||||
|
gotoxy.o \
|
||||||
|
gotoy.o \
|
||||||
joy_stddrv.o \
|
joy_stddrv.o \
|
||||||
kbhit.o \
|
kbhit.o \
|
||||||
mainargs.o \
|
mainargs.o \
|
||||||
|
|||||||
@@ -9,10 +9,8 @@
|
|||||||
.constructor initconio
|
.constructor initconio
|
||||||
.endif
|
.endif
|
||||||
.export _cputcxy, _cputc
|
.export _cputcxy, _cputc
|
||||||
.export _gotoxy, cputdirect
|
.export cputdirect, newline, putchar
|
||||||
.export newline, putchar
|
.import popa, _gotoxy, VTABZ
|
||||||
|
|
||||||
.import popa, VTABZ
|
|
||||||
|
|
||||||
.include "apple2.inc"
|
.include "apple2.inc"
|
||||||
|
|
||||||
@@ -93,12 +91,3 @@ put: ldy CH
|
|||||||
.endif
|
.endif
|
||||||
col40: sta (BASL),Y
|
col40: sta (BASL),Y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
_gotoxy:
|
|
||||||
clc
|
|
||||||
adc WNDTOP
|
|
||||||
sta CV ; Store Y
|
|
||||||
jsr VTABZ
|
|
||||||
jsr popa ; Get X
|
|
||||||
sta CH ; Store X
|
|
||||||
rts
|
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
;
|
;
|
||||||
; Oliver Schmidt, 31.03.2005
|
; Oliver Schmidt, 31.03.2005
|
||||||
;
|
;
|
||||||
; sectnum_t __fastcall__ dio_query_sectcount(dhandle_t handle);
|
; sectnum_t __fastcall__ dio_query_sectcount (dhandle_t handle);
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _dio_query_sectcount
|
.export _dio_query_sectcount
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
;
|
;
|
||||||
; Oliver Schmidt, 31.03.2005
|
; Oliver Schmidt, 31.03.2005
|
||||||
;
|
;
|
||||||
; sectsize_t __fastcall__ dio_query_sectsize(dhandle_t handle);
|
; sectsize_t __fastcall__ dio_query_sectsize (dhandle_t handle);
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _dio_query_sectsize
|
.export _dio_query_sectsize
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
;
|
;
|
||||||
; Oliver Schmidt, 04.01.2005
|
; Oliver Schmidt, 04.01.2005
|
||||||
;
|
;
|
||||||
; unsigned char get_ostype(void)
|
; unsigned char get_ostype (void)
|
||||||
;
|
;
|
||||||
|
|
||||||
.constructor initostype
|
.constructor initostype
|
||||||
|
|||||||
23
libsrc/apple2/gotoxy.s
Normal file
23
libsrc/apple2/gotoxy.s
Normal 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
19
libsrc/apple2/gotoy.s
Normal 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
|
||||||
|
|
||||||
|
|
||||||
@@ -59,6 +59,8 @@ OBJS= _scrsize.o \
|
|||||||
dosdetect.o \
|
dosdetect.o \
|
||||||
get_ostype.o \
|
get_ostype.o \
|
||||||
getenv.o \
|
getenv.o \
|
||||||
|
gotoxy.o \
|
||||||
|
gotoy.o \
|
||||||
joy_stddrv.o \
|
joy_stddrv.o \
|
||||||
kbhit.o \
|
kbhit.o \
|
||||||
mainargs.o \
|
mainargs.o \
|
||||||
|
|||||||
Reference in New Issue
Block a user