mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-11-17 12:08:54 +00:00
Scrolling is working.
Added new functions insertup() and insertdown() to add new lines at the cursor position while scrolling the remainer screen up or down.
This commit is contained in:
parent
8ff65de74c
commit
ea09a0383c
@ -1439,3 +1439,61 @@ lda {z1}
|
||||
sta {z1}+1
|
||||
lda #0
|
||||
sta {z1}
|
||||
//FRAGMENT vbuz1=vbuz2_minus_2
|
||||
lda {z2}
|
||||
sec
|
||||
sbc #2
|
||||
sta {z1}
|
||||
//FRAGMENT vbuxx=vbuz1_minus_2
|
||||
ldx {z1}
|
||||
dex
|
||||
dex
|
||||
//FRAGMENT vbuyy=vbuz1_minus_2
|
||||
ldy {z1}
|
||||
dey
|
||||
dey
|
||||
//FRAGMENT vbuz1_lt_vbuaa_then_la1
|
||||
cmp {z1}
|
||||
beq !+
|
||||
bcs {la1}
|
||||
!:
|
||||
//FRAGMENT vbuz1_lt_vbuxx_then_la1
|
||||
cpx {z1}
|
||||
beq !+
|
||||
bcs {la1}
|
||||
!:
|
||||
//FRAGMENT vbuz1_lt_vbuyy_then_la1
|
||||
cpy {z1}
|
||||
beq !+
|
||||
bcs {la1}
|
||||
!:
|
||||
//FRAGMENT vbuaa=vbuz1_minus_2
|
||||
lda {z1}
|
||||
sec
|
||||
sbc #2
|
||||
//FRAGMENT vbuz1=vbuz2_minus_vbuc1
|
||||
lda {z2}
|
||||
sec
|
||||
sbc #{c1}
|
||||
sta {z1}
|
||||
//FRAGMENT vbuaa=vbuz1_minus_vbuc1
|
||||
lda {z1}
|
||||
sec
|
||||
sbc #{c1}
|
||||
//FRAGMENT vbuxx=vbuz1_minus_vbuc1
|
||||
lda {z1}
|
||||
sec
|
||||
sbc #{c1}
|
||||
tax
|
||||
//FRAGMENT vbuyy=vbuz1_minus_vbuc1
|
||||
lda {z1}
|
||||
sec
|
||||
sbc #{c1}
|
||||
tay
|
||||
//FRAGMENT vbuxx=_dec_vbuxx
|
||||
dex
|
||||
//FRAGMENT vbuyy_gt_0_then_la1
|
||||
cpy #0
|
||||
bne {la1}
|
||||
//FRAGMENT vbuyy=_dec_vbuyy
|
||||
dey
|
||||
|
@ -8,22 +8,22 @@
|
||||
void clrscr(void);
|
||||
|
||||
// Set the cursor to the specified position
|
||||
void gotoxy(unsigned char x, unsigned char y);
|
||||
void gotoxy(unsigned byte x, unsigned byte y);
|
||||
|
||||
// Return the X position of the cursor
|
||||
unsigned char wherex(void);
|
||||
unsigned byte wherex(void);
|
||||
|
||||
// Return the Y position of the cursor
|
||||
unsigned char wherey(void);
|
||||
unsigned byte wherey(void);
|
||||
|
||||
// Return the current screen size.
|
||||
void screensize(unsigned char* x, unsigned char* y);
|
||||
void screensize(unsigned byte* x, unsigned byte* y);
|
||||
|
||||
// Return the current screen size X width.
|
||||
char screensizex();
|
||||
unsigned byte screensizex();
|
||||
|
||||
// Return the current screen size Y height.
|
||||
char screensizey();
|
||||
unsigned byte screensizey();
|
||||
|
||||
// Output one character at the current cursor position. Scroll the screen if needed.
|
||||
void cputc(char c);
|
||||
@ -33,33 +33,33 @@ void cputln();
|
||||
|
||||
// Move cursor and output one character
|
||||
// Same as "gotoxy (x, y); cputc (c);"
|
||||
void cputcxy(unsigned char x, unsigned char y, char c);
|
||||
void cputcxy(unsigned byte x, unsigned byte y, char c);
|
||||
|
||||
// Output a NUL-terminated string at the current cursor position
|
||||
void cputs(const char* s);
|
||||
|
||||
// Move cursor and output a NUL-terminated string
|
||||
// Same as "gotoxy (x, y); puts (s);"
|
||||
void cputsxy(unsigned char x, unsigned char y, const char* s);
|
||||
void cputsxy(unsigned byte x, unsigned byte y, const char* s);
|
||||
|
||||
// Set the color for text output. The old color setting is returned.
|
||||
unsigned char textcolor(unsigned char color);
|
||||
unsigned byte textcolor(unsigned byte color);
|
||||
|
||||
// Set the color for the background. The old color setting is returned.
|
||||
unsigned char bgcolor(unsigned char color);
|
||||
unsigned byte bgcolor(unsigned byte color);
|
||||
|
||||
// Set the color for the border. The old color setting is returned.
|
||||
unsigned char bordercolor(unsigned char color);
|
||||
unsigned byte bordercolor(unsigned byte color);
|
||||
|
||||
// Return true if there's a key waiting, return false if not
|
||||
unsigned char kbhit (void);
|
||||
unsigned byte kbhit (void);
|
||||
|
||||
// If onoff is 1, a cursor is displayed when waiting for keyboard input.
|
||||
// If onoff is 0, the cursor is hidden when waiting for keyboard input.
|
||||
// The function returns the old cursor setting.
|
||||
unsigned char cursor(unsigned char onoff);
|
||||
unsigned byte cursor(unsigned byte onoff);
|
||||
|
||||
// If onoff is 1, scrolling is enabled when outputting past the end of the screen
|
||||
// If onoff is 0, scrolling is disabled and the cursor instead moves to (0,0)
|
||||
// The function returns the old scroll setting.
|
||||
unsigned char scroll(unsigned char onoff);
|
||||
unsigned byte scroll(unsigned byte onoff);
|
@ -73,17 +73,17 @@ __ma unsigned byte conio_cursor_x = 0;
|
||||
// The current cursor y-position
|
||||
__ma unsigned byte conio_cursor_y = 0;
|
||||
// The current text cursor line start
|
||||
__ma char *conio_line_text = CONIO_SCREEN_TEXT;
|
||||
__ma unsigned byte *conio_line_text = CONIO_SCREEN_TEXT;
|
||||
// The current color cursor line start
|
||||
__ma char *conio_line_color = CONIO_SCREEN_COLORS;
|
||||
__ma unsigned byte *conio_line_color = CONIO_SCREEN_COLORS;
|
||||
// The current text color
|
||||
__ma char conio_textcolor = CONIO_TEXTCOLOR_DEFAULT;
|
||||
__ma char conio_backcolor = CONIO_BACKCOLOR_DEFAULT; // only for text 16 color mode;
|
||||
__ma unsigned byte conio_textcolor = CONIO_TEXTCOLOR_DEFAULT;
|
||||
__ma unsigned byte conio_backcolor = CONIO_BACKCOLOR_DEFAULT; // only for text 16 color mode;
|
||||
// Is a cursor whown when waiting for input (0: no, other: yes)
|
||||
__ma char conio_display_cursor = 0;
|
||||
__ma unsigned byte conio_display_cursor = 0;
|
||||
// Is scrolling enabled when outputting beyond the end of the screen (1: yes, 0: no).
|
||||
// If disabled the cursor just moves back to (0,0) instead
|
||||
__ma char conio_scroll_enable = 1;
|
||||
__ma unsigned byte conio_scroll_enable = 1;
|
||||
// Variable holding the screen width;
|
||||
__ma unsigned byte conio_screen_width = 0;
|
||||
// Variable holding the screen height;
|
||||
@ -123,18 +123,18 @@ void clrscr(void) {
|
||||
}
|
||||
|
||||
// Set the cursor to the specified position
|
||||
void gotoxy(unsigned char x, unsigned char y) {
|
||||
void gotoxy(unsigned byte x, unsigned byte y) {
|
||||
if(y>CONIO_HEIGHT) y = 0;
|
||||
if(x>=CONIO_WIDTH) x = 0;
|
||||
conio_cursor_x = x;
|
||||
conio_cursor_y = y;
|
||||
unsigned int line_offset = (unsigned int)y*256;
|
||||
unsigned int line_offset = (unsigned int)y << 8;
|
||||
conio_line_text = CONIO_SCREEN_TEXT + line_offset;
|
||||
conio_line_color = CONIO_SCREEN_COLORS + line_offset;
|
||||
}
|
||||
|
||||
// Return the current screen size.
|
||||
void screensize(unsigned char* x, unsigned char* y) {
|
||||
void screensize(unsigned byte* x, unsigned byte* y) {
|
||||
// VERA returns in VERA_DC_HSCALE the value of 128 when 80 columns is used in text mode,
|
||||
// and the value of 64 when 40 columns is used in text mode.
|
||||
// Basically, 40 columns mode in the VERA is a double scan mode.
|
||||
@ -143,27 +143,27 @@ void screensize(unsigned char* x, unsigned char* y) {
|
||||
char hscale = (*VERA_DC_HSCALE) >> 7;
|
||||
*x = 40 << hscale;
|
||||
char vscale = (*VERA_DC_VSCALE) >> 7;
|
||||
*y = 40 << vscale;
|
||||
*y = 30 << vscale;
|
||||
//printf("%u, %u\n", *x, *y);
|
||||
}
|
||||
|
||||
// Return the current screen size X width.
|
||||
inline char screensizex() {
|
||||
inline unsigned byte screensizex() {
|
||||
return conio_screen_width;
|
||||
}
|
||||
|
||||
// Return the current screen size Y height.
|
||||
inline char screensizey() {
|
||||
inline unsigned byte screensizey() {
|
||||
return conio_screen_height;
|
||||
}
|
||||
|
||||
// Return the X position of the cursor
|
||||
inline unsigned char wherex(void) {
|
||||
inline unsigned byte wherex(void) {
|
||||
return conio_cursor_x;
|
||||
}
|
||||
|
||||
// Return the Y position of the cursor
|
||||
inline unsigned char wherey(void) {
|
||||
inline unsigned byte wherey(void) {
|
||||
return conio_cursor_y;
|
||||
}
|
||||
|
||||
@ -243,7 +243,7 @@ void insertup() {
|
||||
|
||||
// Scroll the entire screen if the cursor is beyond the last line
|
||||
void cscroll() {
|
||||
if(conio_cursor_y==CONIO_HEIGHT) {
|
||||
if(conio_cursor_y>=CONIO_HEIGHT) {
|
||||
if(conio_scroll_enable) {
|
||||
insertup();
|
||||
gotoxy( 0, CONIO_HEIGHT-1);
|
||||
@ -263,27 +263,27 @@ void cputs(const char* s) {
|
||||
|
||||
// Move cursor and output one character
|
||||
// Same as "gotoxy (x, y); cputc (c);"
|
||||
void cputcxy(unsigned char x, unsigned char y, char c) {
|
||||
void cputcxy(unsigned byte x, unsigned byte y, char c) {
|
||||
gotoxy(x, y);
|
||||
cputc(c);
|
||||
}
|
||||
|
||||
// Move cursor and output a NUL-terminated string
|
||||
// Same as "gotoxy (x, y); puts (s);"
|
||||
void cputsxy(unsigned char x, unsigned char y, const char* s) {
|
||||
void cputsxy(unsigned byte x, unsigned byte y, const char* s) {
|
||||
gotoxy(x, y);
|
||||
cputs(s);
|
||||
}
|
||||
|
||||
// Set the color for text output. The old color setting is returned.
|
||||
unsigned char textcolor(unsigned char color) {
|
||||
unsigned byte textcolor(unsigned byte color) {
|
||||
char old = conio_textcolor;
|
||||
conio_textcolor = color;
|
||||
return old;
|
||||
}
|
||||
|
||||
// Set the color for back output. The old color setting is returned.
|
||||
unsigned char backcolor(unsigned char color) {
|
||||
unsigned byte backcolor(unsigned byte color) {
|
||||
char old = conio_backcolor;
|
||||
conio_backcolor = color;
|
||||
return old;
|
||||
@ -292,7 +292,7 @@ unsigned char backcolor(unsigned char color) {
|
||||
// If onoff is 1, a cursor is displayed when waiting for keyboard input.
|
||||
// If onoff is 0, the cursor is hidden when waiting for keyboard input.
|
||||
// The function returns the old cursor setting.
|
||||
unsigned char cursor(unsigned char onoff) {
|
||||
unsigned byte cursor(unsigned byte onoff) {
|
||||
char old = conio_display_cursor;
|
||||
conio_display_cursor = onoff;
|
||||
return old;
|
||||
@ -301,7 +301,7 @@ unsigned char cursor(unsigned char onoff) {
|
||||
// If onoff is 1, scrolling is enabled when outputting past the end of the screen
|
||||
// If onoff is 0, scrolling is disabled and the cursor instead moves to (0,0)
|
||||
// The function returns the old scroll setting.
|
||||
unsigned char scroll(unsigned char onoff) {
|
||||
unsigned byte scroll(unsigned byte onoff) {
|
||||
char old = conio_scroll_enable;
|
||||
conio_scroll_enable = onoff;
|
||||
return old;
|
||||
|
Loading…
Reference in New Issue
Block a user