libc: Solid-C совместимость (П3) + rename/isatty (П4); scanf-семейство
- <dos.h>: getdate/gettime/setdate/settime (структуры Turbo-C, обёртки над getdatetime), getdisk/setdisk (ESTEX $02/$01), absread/abswrite (BIOS $55/$56, rst 8 — номера найдены в solid-c DOS.ASM; сектор 0 = boot логического диска) - scanf/fscanf/sscanf: своё C-ядро _scanf_core (%d %u %x %o %c %s, модификатор l, ширина, подавление '*', %%); в SDCC z80 scanf нет, asm solid-c не портируем из-за чужого ABI; 22 хост-теста ядра - хвост П2: fdopen/freopen/fclosall/fgetpos/fsetpos поверх таблицы FILE; парсер режима и выдача слота вынесены в _file_mode/_file_slot - rename() — ESTEX RENAME $10; isatty(fd) = fd <= 0 (tty только псевдо-fd 0/-1/-2: из CLI DSS манипуляторы идут с 1 — verified, fd 1 не резерв, под Flex Navigator его держит навигатор) - errno.h: Solid-C имена ошибок (EZERO/EINVFNC/ENOFILE/...) как алиасы - <sprinter_solid.h> — зонтичный заголовок для портирования; ltell/_setargv в sprinter_compat.h; div/ldiv — из SDCC (проверено) - tests/solidt — smoke всех П3/П4 API, зелёный в MAME (вкл. absread boot-сектора с сигнатурой 55AA) Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,46 @@
|
||||
/*
|
||||
* absread — абсолютное чтение секторов логического диска через
|
||||
* BIOS $55 (rst 8): A=диск, HL:IX=32-битный номер сектора (HL=старшие,
|
||||
* у нас всегда 0), DE=буфер, B=число секторов. Нумерация с 0 от
|
||||
* начала ЛОГИЧЕСКОГО диска (0 = boot-сектор, с 1 — первая FAT).
|
||||
* При ошибке errno=EREAD (как у Solid-C), возврат -1.
|
||||
* Буфер — в #4000-#BFFF (требование BIOS).
|
||||
*/
|
||||
|
||||
#include <dos.h>
|
||||
#include <errno.h>
|
||||
|
||||
static uint8_t abs_disk;
|
||||
static uint8_t abs_cnt;
|
||||
static uint16_t abs_sect;
|
||||
static uint16_t abs_buf;
|
||||
static int8_t abs_rc;
|
||||
|
||||
int absread(uint8_t disk, uint16_t nsect, uint8_t count, void *buffer)
|
||||
{
|
||||
abs_disk = disk;
|
||||
abs_sect = nsect;
|
||||
abs_cnt = count;
|
||||
abs_buf = (uint16_t)buffer;
|
||||
|
||||
__asm
|
||||
push ix
|
||||
ld ix, (_abs_sect) ; IX = младшие 16 бит номера сектора
|
||||
ld hl, #0 ; HL = старшие 16 бит (всегда 0)
|
||||
ld de, (_abs_buf) ; DE = буфер
|
||||
ld a, (_abs_cnt)
|
||||
ld b, a ; B = число секторов
|
||||
ld a, (_abs_disk) ; A = диск
|
||||
ld c, #0x55 ; BIOS READ (сектора)
|
||||
rst #0x08
|
||||
pop ix
|
||||
ld a, #0
|
||||
jr nc, _absr_done
|
||||
ld a, #25 ; EREAD (код Solid-C)
|
||||
call __errno_set
|
||||
ld a, #0xFF
|
||||
_absr_done:
|
||||
ld (_abs_rc), a
|
||||
__endasm;
|
||||
return abs_rc;
|
||||
}
|
||||
@@ -0,0 +1,45 @@
|
||||
/*
|
||||
* abswrite — абсолютная запись секторов логического диска через
|
||||
* BIOS $56 (rst 8); регистры и нумерация — как у absread ($55).
|
||||
* При ошибке errno=EWRITE (как у Solid-C), возврат -1.
|
||||
* ОСТОРОЖНО: пишет мимо файловой системы — можно разрушить FAT.
|
||||
*/
|
||||
|
||||
#include <dos.h>
|
||||
#include <errno.h>
|
||||
|
||||
static uint8_t absw_disk;
|
||||
static uint8_t absw_cnt;
|
||||
static uint16_t absw_sect;
|
||||
static uint16_t absw_buf;
|
||||
static int8_t absw_rc;
|
||||
|
||||
int abswrite(uint8_t disk, uint16_t nsect, uint8_t count,
|
||||
const void *buffer)
|
||||
{
|
||||
absw_disk = disk;
|
||||
absw_sect = nsect;
|
||||
absw_cnt = count;
|
||||
absw_buf = (uint16_t)buffer;
|
||||
|
||||
__asm
|
||||
push ix
|
||||
ld ix, (_absw_sect) ; IX = младшие 16 бит номера сектора
|
||||
ld hl, #0 ; HL = старшие 16 бит (всегда 0)
|
||||
ld de, (_absw_buf) ; DE = буфер
|
||||
ld a, (_absw_cnt)
|
||||
ld b, a ; B = число секторов
|
||||
ld a, (_absw_disk) ; A = диск
|
||||
ld c, #0x56 ; BIOS WRITE (сектора)
|
||||
rst #0x08
|
||||
pop ix
|
||||
ld a, #0
|
||||
jr nc, _absw_done
|
||||
ld a, #26 ; EWRITE (код Solid-C)
|
||||
call __errno_set
|
||||
ld a, #0xFF
|
||||
_absw_done:
|
||||
ld (_absw_rc), a
|
||||
__endasm;
|
||||
return absw_rc;
|
||||
}
|
||||
@@ -0,0 +1,18 @@
|
||||
/*
|
||||
* getdisk — номер текущего диска (0=A, 1=B, ...) через ESTEX
|
||||
* CURDISK ($02). Ошибок не возвращает.
|
||||
*/
|
||||
|
||||
#include <dos.h>
|
||||
|
||||
uint8_t getdisk(void) __naked
|
||||
{
|
||||
__asm
|
||||
push ix
|
||||
ld c, #0x02 ; ESTEX CURDISK
|
||||
rst #0x10
|
||||
pop ix
|
||||
;; uint8_t возвращается в A — номер диска уже там.
|
||||
ret
|
||||
__endasm;
|
||||
}
|
||||
@@ -0,0 +1,16 @@
|
||||
/*
|
||||
* isatty — 1, если fd указывает на консоль, 0 — на файл.
|
||||
*
|
||||
* Консольные псевдо-fd наших stdin/stdout/stderr: 0, -1, -2
|
||||
* (см. libc/file/std_streams.c). Все положительные fd — файловые
|
||||
* манипуляторы DSS: из командной строки DSS нумерация начинается
|
||||
* с 1, под Flex Navigator — с 2 (fd 1 держит сам навигатор), т.е.
|
||||
* fd == 1 может быть обычным файлом.
|
||||
*/
|
||||
|
||||
#include <unistd.h>
|
||||
|
||||
int isatty(int fd)
|
||||
{
|
||||
return fd <= 0;
|
||||
}
|
||||
@@ -0,0 +1,26 @@
|
||||
/*
|
||||
* rename — переименовать файл через ESTEX RENAME ($10).
|
||||
* HL = старое имя (ASCIIZ), DE = новое имя; CF=err с кодом в A.
|
||||
* Возвращает 0 или -1 + errno.
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
int rename(const char *oldpath, const char *newpath) __naked
|
||||
{
|
||||
(void)oldpath; (void)newpath;
|
||||
__asm
|
||||
;; __sdcccall(1): oldpath в HL, newpath в DE — как ждёт ESTEX.
|
||||
push ix
|
||||
ld c, #0x10 ; ESTEX RENAME
|
||||
rst #0x10
|
||||
pop ix
|
||||
jr c, _rename_err
|
||||
ld de, #0
|
||||
ret
|
||||
_rename_err:
|
||||
call __errno_set
|
||||
ld de, #-1
|
||||
ret
|
||||
__endasm;
|
||||
}
|
||||
@@ -0,0 +1,28 @@
|
||||
/*
|
||||
* setdisk — сменить текущий диск (0=A, 1=B, ...) через ESTEX
|
||||
* CHDISK ($01). Возвращает число дисков в системе (из A) или
|
||||
* -1 + errno при ошибке (EINVDRV, если диска нет).
|
||||
*/
|
||||
|
||||
#include <dos.h>
|
||||
#include <errno.h>
|
||||
|
||||
int setdisk(uint8_t drive) __naked
|
||||
{
|
||||
(void)drive;
|
||||
__asm
|
||||
;; __sdcccall(1): uint8_t-аргумент уже в A.
|
||||
push ix
|
||||
ld c, #0x01 ; ESTEX CHDISK
|
||||
rst #0x10
|
||||
pop ix
|
||||
jr c, _setdisk_err
|
||||
ld e, a ; A = число дисков
|
||||
ld d, #0
|
||||
ret
|
||||
_setdisk_err:
|
||||
call __errno_set
|
||||
ld de, #-1
|
||||
ret
|
||||
__endasm;
|
||||
}
|
||||
Reference in New Issue
Block a user