ZXNet эхоконференция «code.zx»

Привет, Alexandr!

В Понедельник, 19 Hоября 2001, в 00:54:01,
Alexandr Khavzin -> Eugene Palenock.

AK>>> Возникла проблема с драйвером дисковода.
AK>>> В Скорпе надо устанавливать переменные #5CC8-#5CCB,
EP>> Зачем их устанавливать ? Они сами устанавливаются.
EP>> Используй функции 1 и 18 через call 3d13h
AK> С этим тоже не всё ладно:
AK> при работе 18-й функции бейсик область не смещается, а
AK> просто затирается 8-м сектором
AK> (через драйвер, который #3d13:)

Кривой драйвер.
Давай его сюда. Изнасилуем.;)

AK> Обошел это используя процедуры ПЗУ 48 для сдвига
AK> бейсик области.

Борьба со следствием, а лучше убить причину...

AK> Hо ведь ТР-ДОС сама должна это делать.

При вызове п/п #18 через #3д13?
Должна говоришь? И много кто тебе должен? ;)))
Посмотри хоть доки на тыр-дос...

;#18/#3д13 - 1029
;ll1021 - Загрузка в буфер сектора 8 дорожки 0.
; (23820) - установлено.

call 10570 ;создание буфера, если его нет.
ld de,8 ;дорожка 0, сектор 8.
jr 1010 ;загрузка сектора в буфер.

;ll1029 - Hастройка на диск.

call 1021 ;чтение в буфер сектора 8 дорожки 0.
ld a,(24076) ;взяли байт-индификатор типа диска.
cp 16 ;тр-дос?
jr z,1045 ;да - установка переменной дисковода.
ld hl,10722 ;адрес сообщения "DISC ERROR"
rst 24 ;печать сообщения.
jr 960 ;завершение - выход.

;23820 - флаг наличия буфера: 0 - есть, иначе - нет.

Вывод: при вызове #18/#3д13, переменная в (23820) должна быть
установленна не в 0.

У тебя "... затирается 8-м секторм..." - значит при вызове
#18/#3д13 в переменной (23820) находится _почему-то_ 0, хотя
буфера нету...

Для _цепочки_ #01/3д13: #18/#3д13
смотри вызов #01/#3д13... что она(п/п) там делает с (23820)...

;#01/#3д13 - 15819
;ll15819 -

╒═════════════════< Begin file: tr-dasm .WRD >═════════════════╕
────────────────────────────────────────────────────────────────
Адрес 15816. Выбор дисковода, определенного по умолчанию. Вход:
можно установить время перемещения головки и режим дисковода
согласно описанию команды #01. Выход: эти переменные могут быть
изменены согласно этому описанию. Используется также с адресов:
15819 - выбор дисковода. Hомер задайте в рег. A, остальное как и
для предыдущей подпрограммы.
15869 - задержка в 725779 тактов.
15871 - задержка любой нужной длительности. В рег. A установите
число, определяющее длительность задержки.

15816 LD A,(23833) ;берем номер дисковода по умолчанию
15819 LD (23798),A ;установка номера выбранного дисковода
LD HL,23830 ;выбор дисковода
LD C,A
LD A,60
OR C
OUT (255),A
LD (HL),A
CALL 15880 ;берем время перемещения головки дисковода
AND 128 ;бит 7 выключен ?
JR Z,15866 ;если да, то инициализацию не проводим
CALL 15789 ;проверка наличия диска в дисководе
CALL 15894 ;определение времени перемещения головки
CALL 15889 ;берем тип дисковода
CP 255 ;в этой переменной 255 ?
JR Z,15866 ;если да, то не определяем его
PUSH HL ;сохраняем адрес переменной с типом дисковода
CALL 8138 ;определение количества дорожек дисковода
POP HL ;восстановление адреса переменной типа
CP 80 ;установка этой переменной
LD A,0
JR NZ,15865
LD A,128
15865 LD (HL),A

Внимание, ошибка!!! Hе проверяется количество сторон дисковода и
предполагается, что он односторонний.

15866 CALL 7734 ;проверка индексной области диска
15869 LD A,0 ;задержка в 725779 тактов
15871 LD C,255
15873 DEC C
JR NZ,15873
DEC A
JR NZ,15871
RET ;возврат
────────────────────────────────────────────────────────────────
╘═════════════════< End file: tr-dasm .WRD >═══════════════════╛

AK> Проблема в драйвере?

Да.

AK>>> иначе не работает инициализация дисководов (через
AK>>> драйвер).
EP>> Через какой драйвер ?
AK> Тот самый, см. выше.

Где? Где сам драйвер..?
Или так и будем гадать на кофейной гуще, почему у тебя там
#3д13 глючит... ;)))


Приятных коNNектов, Alexandr.

Приветствую тебя, Mihail

Как-то Вторник 20 Ноябрь 2001 в 19:08:45 мылил
Mihail Zharov к Alexandr Khavzin на тему Scorp + #3D13 = ?

EP>>> Используй функции 1 и 18 через call 3d13h
AK>> С этим тоже не всё ладно:
AK>> при работе 18-й функции бейсик область не смещается, а
AK>> просто затирается 8-м сектором
AK>> (через драйвер, который #3d13:)

MZ> Кривой драйвер.
MZ> Давай его сюда. Изнасилуем.;)
Даю.

[скип]

MZ> ;23820 - флаг наличия буфера: 0 - есть, иначе - нет.

MZ> Вывод: при вызове #18/#3д13, переменная в (23820) должна
MZ> быть установленна не в 0.

MZ> У тебя "... затирается 8-м секторм..." - значит при вызове
MZ> #18/#3д13 в переменной (23820) находится _почему-то_ 0,
MZ> хотя буфера нету...
У меня оно установлено в #ff. Hо драйверу пофиг.
По идее можно изменить адрес буфера сектора но ТР-ДОС устанавливает его сама.

MZ> Для _цепочки_ #01/3д13: #18/#3д13
MZ> смотри вызов #01/#3д13... что она(п/п) там делает с
MZ> (23820)...
У меня на входе #FF и на выходе #FF.

MZ> Где? Где сам драйвер..?
MZ> Или так и будем гадать на кофейной гуще, почему у тебя там
MZ> #3д13 глючит... ;)))

═══════════════════════════ 3d13 .C ════════════════════════

DOSER

;вход: C-код операции (5/6)
; HL,DE,B-параметры
;выход: (23823),A,BC-код ошибки

DI

LD (23836),SP
LD (STK+2),SP;сохранили SP

CALL #3D13 ;в TR-DOS
STK DI ;выход из драйвера
LD SP,0
LD BC,(23823)
LD B,0 ;в BC,A-код ошибки
LD A,C
RET ;выход

PDE DW0
PHL DW0

;программа перехвата ошибок TR-DOS

OBR_ERR LD (PDE),DE
LD (PHL),HL
LD E,A
LD A,(23823)
AND A
JP NZ,NODSK ;нет диска
LD A,E
POP DE
LD HL,8020
AND A
SBC HL,DE
JR Z,PRBREAK ;проверка BREAK
LD HL,#028E
AND A
SBC HL,DE
JR Z,OPRKEY ;опрашивается клава
LD HL,16
AND A
SBC HL,DE
JR Z,PRRST16 ;что-то печатается
TODOS LD DE,(PDE)
LD HL,(PHL)
RET ;возврат в TR-DOS

PRBREAK CALL 8020 ;программа опроса
;"BREAK". выход
;scf-не нажата
JP C,TODOS
LD A,12
ERR LD (23823),A
JP STK
NODSK LD A,6
JR ERR

BYTE DB0 ;в случае DISK ERROR
;в нем "D",READ ONLY
;-в нем "R"

FLAG DB0 ;если<>0,то уже была
;ошибка

;программа проверки ошибки
;при вызове 15635 с C=5/6 может печататься
;только "DISK ERROR" или "READ ONLY" (мы
;уже перехватили "NO DISK". Определяем
;ошибку по печатаемому байту: "D" - DISK
;ERROR, "R" - READ ONLY.

PRRST16 LD A,(FLAG)
AND A
JP NZ,TODOS
CP "D"
JR Z,DISKERR
CP "R"
JR Z,READONL
JP TODOS
DISKERR LD (BYTE),A
DERR LD A,255
LD (FLAG),A
JP TODOS
READONL LD (BYTE),A
JR DERR

;ПРОГРАММА ОПРОСА КЛАВИАТУРЫ
;запрос возникает после печати сообщений
;DISK ERROR,READ ONLY(RETRY,ABORT,IGNORE)
;мы уже знаем, какая ошибка (из BYTE),
;поэтому печатаем сообщение и опрашиваем
;клавиатуру. Адрес программы печати и
;опроса берется из переменной (ADRES).
;Можете изменить ее (на выходе в A должен
;быть код: R-RETRY,A-ABORT,I-IGNORE.


OPRKEY LD HL,(DOSKEYS)
LD DE,OPRK1
PUSH DE
JP (HL)
OPRK1 CP "A" ;ответ "ABORT" ?
JR Z,ABORT ;если да,то переход
POP DE
POP DE ;восстанавливаем стек
LD HL,4199 ;адрес в ПЗУ TR-DOS
PUSH HL
JP 15663
ABORT LD A,7 ;код ошибки

JR DERR
DOSKEYS DOS_ERR


══════════════════════════════════════════════════════════════

будем копать?

Alexandr

[ZX]