From: ol.sc
@@ -317,16 +315,6 @@ This function tests if the given pixel is set and returns Character and string output
-
-
-
-Actually this is a part of PutChar
#endif
-void __fastcall__ cpputs(char *s);
-void __fastcall__ cpputsxy(unsigned x, unsigned y, char *s);
-
void __fastcall__ SetPattern(char newpattern);
void __fastcall__ HorizontalLine(char pattern, char y, unsigned xstart, unsigned xend);
diff --git a/libsrc/geos-common/conio/Makefile b/libsrc/geos-common/conio/Makefile
index 2a8eac50c..106754541 100644
--- a/libsrc/geos-common/conio/Makefile
+++ b/libsrc/geos-common/conio/Makefile
@@ -11,7 +11,6 @@ S_OBJS += _scrsize.o \
chline.o \
clrscr.o \
color.o \
- cpputs.o \
cputc.o \
cursor.o \
cvline.o \
diff --git a/libsrc/geos-common/conio/cpputs.s b/libsrc/geos-common/conio/cpputs.s
deleted file mode 100644
index be81dcf05..000000000
--- a/libsrc/geos-common/conio/cpputs.s
+++ /dev/null
@@ -1,43 +0,0 @@
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 27.10.2001
-; 05.03.2002
-
-; void cpputsxy (unsigned char x, unsigned char y, char* s);
-; void cpputs (char* s);
-
-; same as cputsxy and cputs but faster and use proportional font spacing
-; does not update cursor position
-
- .export _cpputsxy, _cpputs
- .import _gotoxy
- .import popa
- .importzp cursor_x, cursor_y
-
- .include "const.inc"
- .include "geossym.inc"
- .include "jumptab.inc"
-
-_cpputsxy:
- sta r0L ; Save s for later
- stx r0H
- jsr popa ; Get Y
- jsr _gotoxy ; Set cursor, pop x
- jmp L0 ; Same as cputs...
-
-_cpputs:
- sta r0L ; Save s
- stx r0H
-L0: ldy #0
- lda (r0),y
- bne L1 ; Jump if there's something
- rts
-
-L1: lda cursor_x
- sta r11L
- lda cursor_x+1
- sta r11H
- lda cursor_y
- sta r1H
- jmp PutString