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>
31 lines
838 B
C
31 lines
838 B
C
/*
|
|
* sleep — block for N seconds using the 50 Hz frame interrupt.
|
|
*
|
|
* Sprinter ISR fires 50 times per second. `halt` parks the CPU until
|
|
* the next IRQ, so 50 halts = ~1 second of wall clock. This is the
|
|
* same trick solid-c uses in IO.ASM:285.
|
|
*
|
|
* Note: requires interrupts to be enabled (they are by default — ESTEX
|
|
* sets up IM 1 with the frame ISR before our program runs).
|
|
*/
|
|
|
|
#include <unistd.h>
|
|
|
|
void sleep(unsigned int seconds) __naked
|
|
{
|
|
(void)seconds;
|
|
__asm
|
|
inter:
|
|
;; HL = seconds on entry (SDCC single int arg).
|
|
ld a, h
|
|
or a, l
|
|
ret Z ; sleep(0) — return immediately
|
|
ld b, #50 ; 50 halts per second (50 Hz interrupt)
|
|
inner:
|
|
halt
|
|
djnz inner
|
|
dec hl
|
|
jr inter
|
|
__endasm;
|
|
}
|