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>
29 lines
1.0 KiB
C
29 lines
1.0 KiB
C
/*
|
||
* sysenv — снять всё окружение в буфер вызывающего.
|
||
* ESTEX ENVIRON ($46, subfn 0): HL = буфер; на выходе буфер заполнен
|
||
* ASCIIZ-строками "NAME=value" подряд, конец — дополнительный NUL:
|
||
* "PATH=...\0SOLID=H\0\0"
|
||
* Буфер должен вмещать всё окружение. Возвращает buf или -1 + errno.
|
||
*/
|
||
|
||
#include <stdint.h>
|
||
#include <sprinter.h>
|
||
|
||
char *sysenv(char *buf) __naked
|
||
{
|
||
(void)buf;
|
||
__asm
|
||
push ix
|
||
push hl ; спрятать указатель (= возврат)
|
||
ld bc, #0x0046 ; ESTEX ENVIRON; subfn 0 = sysenv
|
||
rst #0x10
|
||
pop de ; DE = указатель буфера
|
||
pop ix
|
||
ret nc ; успех: DE уже держит buf
|
||
;; CF=1 → A = код ошибки ESTEX.
|
||
call __errno_set
|
||
ld de, #-1
|
||
ret
|
||
__endasm;
|
||
}
|