<p>
<tt/conio/ - simple console input-output is available for command line applications.
This implementation assumes that one character does fit in 8x8 cell, so output with
-default BSW font, which is has 9 points, might be a bit messy.
-<tt/cputs/ does output characters with fixed width, for proportional spacing use
-<tt/cpputs/ but this function does not update cursor. There is no color support in
+default BSW font, which is has 9 points, might be a bit messy. There is no color support in
GEOS 2.0 so color functions are disabled. Both 40 and 80 column modes are supported
and automatically detected.
<p>
<sect2>Character and string output
-<sect3>cpputs
-<p>
-<tt/cpputsxy (char x, char y, char *myString)/
-<p>
-<tt/cpputs (char *myString)/
-<p>
-Actually this is a part of <tt/conio/, but this function is non-standard. It is
-a variation of <tt/cputs/ that outputs the string with proportional spacing, not
-fixed like <tt/cputs/.
-
<sect3>PutChar
<p>
<tt/void PutChar (char character, char y, unsigned x)/
#include <geos/gstruct.h>
#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);
+++ /dev/null
-;
-; 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