ZXNet эхоконференция «zxnet.soft»

Здравствуй, All!

Я вот тут подумал...
Почему исдос малопопулярен в народе? Вероятно потому, что малопонятен. Гхм.
Прислали мне тут нетмылом драйвер для дискет высокой плотности. Эта штуковина
реально позволяет создавать и использовать устройства размером в 1600 Кб на
обычных HD дискетах. ВГ93 это позволяет. Дискета iS-DOS при обычной DD
плотности вмещает 3200 блоков. После простой доработки до HD и использовании
поддерживающего ее софта - уже 6400 блоков. Сделано в 1999 году, автор - всем
известный Ruiner AKA Олег Григорьев, модератор CODE.ZX.

Сложно привыкать к непонятному. Значит надо в эту непонятность принести кусочек
чего-то родного и понятного. Сабж, вобщем.

Стартовый адрес sts51.com - 24000. Летит следом.

Hормального выхода в исдос оттуда нет! Поддержки файловой системы исдоса тоже
нет. Мне лениво. Просто к оригинальным файлам STS 5.1 тупо приклеен исдосный
загрузчик. Я начал было рыться в поисках процедур, отвечающих за выход в
ASM/Basic/DOS, да забросил. Как-то там запутано все. Hадо будет -
ищите/сообщайте эти адреса, я сделаю по нормальному. Если что-то непонятно с
исдосными функциями - пишите, помогу всегда.

Для возврата в исдос надо сделать JP #5DE5, там выходилка лежит. Она ждет
отпуска всех кнопок и выходит в оболочку с очисткой стека.

* Оригинал написан в ZX.SPECTRUM
* также послано в REAL.SPECCY
* также послано в KHARKOV.SPECTRUM
* также послано в SPB.SPECCY
* также послано в ZXNET.SOFT

Hа всякий случай вот тут исходник загрузчика.

ORG 24000
LD HL, FILE1 ;имя
LD D,#FB ;ст. байт адреса
LD A,#16 ;страница
CALL LOAD
RET C
LD HL, FILE2
LD D,#DB
LD A,#17
CALL LOAD
RET C

DI
LD HL,END
PUSH HL
LD BC,#7FFD
LD A,#17
OUT (C),A
JP #DB00 ;запуск STS
END
LD A,#10 ;а это выходилка в исдос
LD BC,#7FFD
OUT (C),A
EI
LD C,8
RST 16
XOR A
LD A,#F4
LD C,#84
JP 16
LOAD
LD (PAGE+1),A
LD A,D
LD (ADDR+1),A
LD C, #34
RST 16
RET C
EXX
LD DE, 14
ADD HL, DE
LD A, (HL)
OR A
INC HL
LD B, (HL) ;длина файла в блоках
JR Z, $+3
INC B
LD E, D
LOOP
PUSH BC
LD HL, BUFF
LD BC, #012B
RST 16
POP BC
RET C
PUSH HL
LD A, E
EXX
POP HL
ADDR ADD A, #C0
LD D, A
PAGE LD A, #16
LD BC, #7FFD
DI
OUT (C), A
LD BC, #100
LD E, C
LDIR
LD BC, #7FFD
LD A, #10
OUT (C), A
EI
EXX
INC E
DJNZ LOOP
RET

FILE1 DEFM "sts#16 cod"
FILE2 DEFM "sts#17 cod"
BUFF DEFS #100

WBR, Jason.

/*e-mail: jason2000(собака страшная)yandex.ru ICQ: 62235830*/

/np:/ *Death - Symbolic - Symbolic* [paused]