frederik
/
oscar64
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

basic version detection and and implement bsplot for PET

This commit is contained in:
Arne Schmitz 2025-03-11 16:56:06 +01:00
parent e6bc6371c9
commit c22a67f95f
1 changed files with 96 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
include/conio.c
View File

@ -131,6 +131,97 @@ __asm bsinit
lda #147
jmp $ffd2
}
#elif defined(__CBMPET__)
#define bsout 0xffd2
#define bsin 0xffe4
char detect_basic()
{
static const char basicV4[] = p"*** commodore basic 4.0 ***";
static const char basicV2[] = p"### commodore basic ###";
static const char basicV1[] = p"*** commodore basic ***";
static const char editor[] = {0x4C,0x4B,0xE0,0x4C,0xA7,0xE0,0x4C,0x16,0xE1};
if( memcmp( (const void*)0xdea4, basicV4, 27 ) == 0 ) {
if( memcmp( (const void*)0xe000, editor, 8 ) == 0)
return 48;
else
return 44;
} else if( memcmp( (const void*)0xe180, basicV1, 23 ) == 1 ) {
return 1;
} else if( memcmp( (const void*)0xe1c4, basicV2, 23 ) == 1 ) {
return 2;
} else {
printf("unknown basic rom!\n");
}
return 0;
}
static char basic_version = 0;
char get_basic_version()
{
if(basic_version == 0)
basic_version = detect_basic();
return basic_version;
}
void petplot(char cx, char cy)
{
switch( get_basic_version() )
{
case 48:
__asm
{
/* BASIC4 80-col */
ldx cx
ldx cy
stx $e2
sty $e0
jsr 0xe05f
}
break;
case 44:
__asm
{
/* BASIC4 40-col */
ldx cx
ldx cy
stx $c6
sty $d8
jsr 0xe07f
}
break;
case 2:
__asm
{
/* BASIC2 */
ldx cx
ldx cy
stx $c6
sty $d8
jsr 0xe25d
}
break;
default:
__asm
{
/* BASIC1 */
ldx cx
ldx cy
stx $e2
sty $f5
jsr 0xe5db
}
break;
}
}
__asm bsinit
{
/* no equivalent on PET */
}
#define bsget 0xffcf
#else
#define bsout 0xffd2
#define bsin 0xffe4
@ -341,6 +432,9 @@ void textcursor(bool show)
void gotoxy(char cx, char cy)
{
#ifdef __CBMPET__
petplot(cx, cy);
#else
__asm
{
ldx cy
@ -348,6 +442,7 @@ void gotoxy(char cx, char cy)
clc
jsr bsplot
}
#endif
}
void textcolor(char c)