snark13
4a081501d8
- bios/conio/env/errno/gfx/io/mem/mouse/stdio/stdlib/string/sys/time/ video разложены по модулям: общие статики и helpers — в internal _-модулях (_conio.h/_mouse.h/_gfx.h/_palette.h/_atexit.h/_time.h) - lib/Makefile: LIBC_C = wildcard libc/*/*.c — гранулярность файлов = гранулярность DCE линкера - эффект _CODE: gfx_text 6986→2568 Б, gfx_mous −1745, gfx_demo/d16 −542; ранее timedir −3270, ls −3098, stattest −2995 - комментарии оставшихся модулей переведены на русский; puts: убран мёртвый pchars; videomode_raw разложен на get/set - docs/libc-split-asm-cases.md — правила asm-связок между модулями; docs/libc-roadmap.md — план этапа - восстановлен examples/mdview/SAMPLE.MD (нужен make floppy) Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
31 lines
1.1 KiB
C
31 lines
1.1 KiB
C
/*
|
||
* sleep — заблокироваться на N секунд по кадровому прерыванию 50 Гц.
|
||
*
|
||
* ISR Sprinter срабатывает 50 раз в секунду. `halt` паркует CPU до
|
||
* следующего IRQ, так что 50 halt'ов = ~1 секунда стенного времени.
|
||
* Тот же трюк, что у solid-c в IO.ASM:285.
|
||
*
|
||
* Замечание: требует включённых прерываний (по умолчанию включены —
|
||
* ESTEX настраивает IM 1 с кадровым ISR до запуска нашей программы).
|
||
*/
|
||
|
||
#include <unistd.h>
|
||
|
||
void sleep(unsigned int seconds) __naked
|
||
{
|
||
(void)seconds;
|
||
__asm
|
||
inter:
|
||
;; HL = seconds на входе (единственный int-аргумент SDCC).
|
||
ld a, h
|
||
or a, l
|
||
ret Z ; sleep(0) — вернуться сразу
|
||
ld b, #50 ; 50 halt-ов на секунду (50 Гц)
|
||
inner:
|
||
halt
|
||
djnz inner
|
||
dec hl
|
||
jr inter
|
||
__endasm;
|
||
}
|