snark13
c71e249a4e
First substantive commit: the entire Sprinter C compiler tree on top of
the bare README+gitignore initial commit.
What's in here:
bin/sprinter-cc — driver script invoking SDCC + linker + mkexe
libc/ — Sprinter-specific libc layer over ESTEX/BIOS
(conio, gfx, io, mem, stdio + headers)
runtime/ — crt0 variants (default/small/banked/minimal)
+ heap + bank trampolines
toolchain/ — mkexe (SprintEXE packer, C + tests)
examples/ — 30 demo programs (gfx, file I/O, env, time, …)
lib/Makefile — builds the libc archive (sprinter.lib)
docs/ — converted Sprinter manuals + asm reference samples
third_party/ — solid-c reference compiler dump + sdcc setup script
release_docs/ — packaging / release notes
gitignore overhaul:
• Drop dangerous blanket patterns: *.asm (would hide docs/samples/*.asm)
and *.exe (case-insensitive match was hiding third_party/solid-c/*.EXE
on macOS APFS). Replaced with examples/*/*.{asm,exe,…} and lib/*.lib.
• Restore tracking of toolchain/mkexe/tests/{one,big}.bin — those are
INPUT fixtures, not build outputs.
• Collapse the duplicated SDCC/C/Sdcc sections into one section per
concern (build outputs / vendored / OS-junk).
• Add .sprinter-cc-*/, build/ (catches lib/build/ too), .claude/.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
91 lines
2.4 KiB
C
91 lines
2.4 KiB
C
/*
|
||
* gfx_text_256.c — bitmap-font text rendering for mode 0x81
|
||
* (320×256×256, one byte per pixel).
|
||
*
|
||
* Per glyph row (8 pixels): emit 8 bytes — FG where the source bit is
|
||
* 1, BG where 0. Port_Y is set once per row; the row writer wraps its
|
||
* own DI / W3 save+restore so callers don't need to.
|
||
*/
|
||
|
||
#include <gfx.h>
|
||
#include <stdint.h>
|
||
|
||
extern uint16_t _gfx_addr_base;
|
||
extern const uint8_t *_gfx_font_ptr;
|
||
extern void _gfx_font_ensure(void);
|
||
|
||
/* ---- Scratch shared with the asm row writer ---------------------- */
|
||
static uint8_t txt_y;
|
||
static uint8_t txt_row; /* current glyph-row bit pattern */
|
||
static uint8_t txt_fg;
|
||
static uint8_t txt_bg;
|
||
static uint16_t txt_addr; /* VRAM address for this row */
|
||
|
||
/* Render one 8-pixel row. Self-contained DI / W3 save+restore so a
|
||
* gfx_text() can be called from any context without extra ceremony. */
|
||
static void render_row_256(void) __naked
|
||
{
|
||
__asm
|
||
di
|
||
in a, (#0xE2)
|
||
push af
|
||
ld a, #0x50
|
||
out (#0xE2), a
|
||
ld a, (_txt_y)
|
||
out (#0x89), a
|
||
|
||
ld hl, (_txt_addr)
|
||
ld a, (_txt_fg)
|
||
ld d, a
|
||
ld a, (_txt_bg)
|
||
ld e, a
|
||
ld a, (_txt_row)
|
||
ld b, #8 ; 8 pixels in this row
|
||
rr256_loop:
|
||
rla ; CY = MSB, A <<= 1
|
||
jr nc, rr256_bg
|
||
ld (hl), d ; FG
|
||
jr rr256_next
|
||
rr256_bg:
|
||
ld (hl), e ; BG
|
||
rr256_next:
|
||
inc hl
|
||
djnz rr256_loop
|
||
|
||
pop af
|
||
out (#0xE2), a
|
||
ei
|
||
ret
|
||
__endasm;
|
||
}
|
||
|
||
void gfx_putchar256(int x, int y, char c, uint8_t fg, uint8_t bg)
|
||
{
|
||
_gfx_font_ensure();
|
||
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return;
|
||
|
||
txt_fg = fg;
|
||
txt_bg = bg;
|
||
uint8_t cc = (uint8_t)c;
|
||
uint16_t base = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
||
|
||
for (int r = 0; r < 8; r++) {
|
||
int yy = y + r;
|
||
if ((unsigned)yy >= GFX_HEIGHT) break;
|
||
txt_y = (uint8_t)yy;
|
||
txt_addr = base;
|
||
/* Interleaved layout: row r of char cc lives at font[r*256 + cc]. */
|
||
txt_row = _gfx_font_ptr[r * 256 + cc];
|
||
render_row_256();
|
||
}
|
||
}
|
||
|
||
void gfx_text256(int x, int y, const char *s, uint8_t fg, uint8_t bg)
|
||
{
|
||
for (; *s; s++) {
|
||
if (x >= GFX_WIDTH) break;
|
||
gfx_putchar256(x, y, *s, fg, bg);
|
||
x += 8;
|
||
}
|
||
}
|