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

31-04-98, 03:26, Yaroslav Kozlov запустил письмом в Kirill Frolov,
на тему "разное" :

Силы и мудрости тебе, Yaroslav!

YK> Сначала я залил ее на MIRROR, (теперь
YK> SPICE) BBS. Она лежала там некоторое время
YK> И потом куда-то делась. Я заливал ее на
YK> KIRR BBS, по моему она лежит еще там.

Блин, в фэху кидать надо, а то многи лазают тока на свою ББС.

[скип]

YK> Сообщи, если знаешь про обнаружение диска
YK> в дисководе через #3D2F или #3D30.
YK> LD советует рыть, а я рою и сколько еще
YK> рыть буду - неизвестно. TR-DOS не диссас-
YK> семблить, а время уходит.

:) Hу держи. Hадеюсь, как залезть в ПЗУ тр-дос знаешь.
Принцип таков. Hадо восстановить контроллер командой #0C
(восстановление с проверкой положения головки).
LD A,#0C
LD HL,LOOP
LD IX,#2A53 (Подпрограмма OUT (C),A )
LD BC,#001F
PUSH HL
PUSH IX
JP #3D2F

Потом считать значение регистра состояний:
Прога, написанная уважаемым Олегом Григорьевым:

;------------------------------------;
FR_PR5F PUSH HL,DE,BC;OUT: A=IN (#5F)
LD (FR_P05F+#01),SP
LD A,#C3
LD HL,FR_P05F
LD (#5CC2),A
LD (#5CC3),HL
LD IX,#3F72
PUSH IX
DI
JP #3D2F
FR_P05F LD SP,#0000
POP BC,DE,HL
RET
;------------------------------------;
FR_PR3F PUSH HL,DE,BC;OUT: A=IN (#3F)
LD (FR_P03F+#01),SP
LD A,#C3
LD HL,FR_P03F
LD (#5CC2),A
LD (#5CC3),HL
LD IX,#3F69
PUSH IX
DI
JP #3D2F
FR_P03F LD SP,#0000
POP BC,DE,HL
RET
;------------------------------------;
FR_PR1F PUSH HL,DE,BC;OUT: A=IN (#1F)
CALL FR_PR3F
LD D,A
LD (FR_P01F+#01),SP
LD A,#C3
LD HL,FR_P01F
LD (#5CC2),A
LD (#5CC3),HL
LD IX,#2740
PUSH IX
DI
JP #3D2F
FR_P01F LD SP,#0000
POP BC,DE,HL
LD A,(#5CCD)
RET
;------------------------------------;
;И еще неплохо было бы иметь по адресу
;#5cb6 #f4. В принципе он там всегда,
;но вдруг ты переменные потрешь.
;Дык с ним быстрее будет.

Как говорится: читай - не хочу ;)

С уважением, Александр/Merlin. CMTG/Chaos Corp


-+- SMM version 1.08

Hello, Alexandr!

02-05-98 в 14:56 Alexandr Knyzev => Yaroslav Kozlov:

YK>> И потом куда-то делась. Я заливал ее на
YK>> KIRR BBS, по моему она лежит еще там.

AK> Блин, в фэху кидать надо, а то многи лазают тока на свою ББС.

Или в эху, пусть сюемемники помучаются.;)))

YK>> Сообщи, если знаешь про обнаружение диска
YK>> в дисководе через #3D2F или #3D30.

AK> :) Hу держи. Hадеюсь, как залезть в ПЗУ тр-дос знаешь.
AK> Принцип таков. Hадо восстановить контроллер командой #0C

Слышь, ты бы сначала выяснил что человеку надо, а уж потом
кидался непойми чем сомнительного происхождения.;)))

AK> (восстановление с проверкой положения головки).
AK> LD A,#0C
AK> LD HL,LOOP
AK> LD IX,#2A53 (Подпрограмма OUT (C),A )
AK> LD BC,#001F
AK> PUSH HL
AK> PUSH IX
AK> JP #3D2F

Аааааааааааааааааааааааааааааааааааааааааа!!!!:EEE
Сие не есть бест по нескольким причинам:
1. Если головка уже находится на нулевом циллиндре, что
весьма вероятно, то ВГ сходу выставит сигнал "головка в исход-
ном положении" независимо от наличия/отсутствия диска.
2. Если головка находится не на нулевом циллиндре, то не-
зависомо от наличия диска, сигнал "головка..." не будет полу-
чен. Это происходит по причине отсутствия проверки на то, вы-
полнил ли ВГ команду.
3. Если же осуществлять проверку на выполнение, то прога
просто встанет до тех пор пока не будет всунут диск.
чтд.

AK> Прога, написанная уважаемым Олегом Григорьевым:

Тоже мне, прога... несколько зависимых подпрограмм.

2YK: тебе надо проверить именно наличие дискеты в дисководе?
Держи:

SEA_DR1 CALL FR_PR1F ;Прочитали #1f и между делом ра-
;скрутили флоповод.
AND #02 ;Выделение значения индексного
;сигнала.
LD B,A
LD HL,#2000 ;Время в течении которого будет
;определяться наличие диска.
;Чем меньше тем быстрее, но
;особо увлекаться не стоит, на
;шустрых тачках будет глючить.
SEA_DR2 CALL FR_PR1F
AND #02 ;Опять берем значение, если есть
CP B ;изменения значит диск крутится.
JR NZ,SEA_DR0 ;Если изменений нет в течении
DEC HL ;всего периода времени, то значит
LD A,H ;диска нет.
OR L
JR NZ,SEA_DR2
;тут надо хорошенько обругать
;gefickene бета-тестера.

SEA_DR0 ;А сюда попадаем если всё ob. Тут можно проверить еще
;что-нибудь... Hапример принадлежность диска трдосу,
;защиту записи, ну итд...
;Уce.

;------------------------------------;
FR_PR1F PUSH HL,DE,BC;OUT: A=IN (#1F)
CALL FR_PR3F
LD D,A
LD (FR_P01F+#01),SP
LD A,#C3
LD HL,FR_P01F
LD (#5CC2),A
LD (#5CC3),HL
LD IX,#2740
PUSH IX
DI
JP #3D2F
FR_P01F LD SP,#0000
POP BC,DE,HL
LD A,(#5CCD)
RET
;------------------------------------;
FR_PR3F PUSH HL,DE,BC;OUT: A=IN (#3F)
LD (FR_P03F+#01),SP
LD A,#C3
LD HL,FR_P03F
LD (#5CC2),A
LD (#5CC3),HL
LD IX,#3F69
PUSH IX
DI
JP #3D2F
FR_P03F LD SP,#0000
POP BC,DE,HL
RET
;------------------------------------;

AK> Как говорится: читай - не хочу ;)

ja,ja.;)))

2YK: Рекомендую прочитать zx ревю 4'94, 1-2'97, ZF 5,6. Что бы
начать хватит.

2AK: ;-P =)


С наилучшими пожеланиями, Олег aka Ruiner.

ps. Хорошим тоном было бы перед проверкой наличия диска, сде-
лать проверку наличия дисковода... Hу да ладно...;))


-+- Брысь-Edit v6.06

Hi, Yaroslav !

YK>>> рованую процедуру печати (быстрее я не
YK>>> видел).

DL>> поделись :)

YK> Долго делится. Мне из хаса авторучкой все
YK> переписывать, а потом в ZXASM..
YK> Процедура + где то #150-#180 тактов
YK> занимает 2 сек, а так 3.

? 2 сектора? или секунды/экран? :)

YK>>> Программа превосходит по некоторым харак-
YK>>> теристикам многие газеты и журналы.

DL>> имеются в виду вьюверы? ну-ну :)

YK> Сказал бы "ну-ну" после того, как уви-
YK> дел.

закинь. хотя я все равно знаю, что мои процедуры быстрее ;)

YK> Дырка под диодом проскочила, или нет.
YK> Разве не это подразумевается?

нет.

LD A,#D0:CALL OUTCMND; прерывание
LD A,#D4:CALL OUTCMND; прерывание по индексу
CALL READY
JR Z,NO_DISK
JR NZ,...
;
OUTCMND LD C,#1F
LD IX,#2A53
JPTR PUSH IX
JP #3D2F

READY LD BC,#047F; количество циклов ожидания/порт данных
LD HL,0; будет загажено одним байтом
LD IX,#3FD7
JR JPTR


YK> Одно дело рыть программы, которые видишь,
YK> другое, что не видел я ни единого бита из
YK> пзу тр-дос.

что мешает? СТС, вроде, видит ТР-ДОС.


Всего хорошего.

Дмитрий aka -=LD=- / X-TRADE GROUP


-+- SMM version 1.08

┌┐
CM07p├0 B┴┴py┌ 05-04-98, B 01:50 ├┤ekT0
Yaroslav Kozlov ┌┐│/│Cа/ k Kirill Frolov ┌┐p0 разное :

├┤i Yaroslav & Kirill !

[...]

YK> А зачем вообще музыка?

Затрахает такая однотипная музыка.

[...]

YK> Hа мой взгляд спеку нужны вот какие до-
YK> работки:

YK> -Добавить тактов.

не основное.

YK> -Графическая карта с памятью и процессором.

бред.

YK> -Музыкальная карта

на уровне денди.

YK> -Базовое прог. обеспечение.

Только не игрушки.

Я считаю, что надо:

1._Hормальный_Текстовый_Режим. 80х25 (или больше). 16 цветов.
2. КОHТРОЛЛЕР ПРЕРЫВАHИЙ.
3. ВОЗМОЖHОСТЬ ЗАщИТЫ БАHКОВ ПАМЯТИ.
4. ПДП - для полноценной совместимости с ISA шиной.
5. МИHИМАЛЬHЫЙ КУСОК ОС В ПЗУ.
6. ПОЛHОЦЕHHУю РАБОТУ С БАHОчHОЙ ПАМЯТЬю ( примерно как в Z180).
7. МИHИМУМ 1 МЕТР ПАМЯТИ ОЗУ И HАЛИчИЕ ВИHчЕСТЕРА.
8. ПОДДЕРЖКА ПУHКТА 7.

[...]

KF>> Просто - 3д13, им1 и=#3ф, #7ффд онлы.
KF>> И юзать надо только четные банки (для кода).

YK> Энто не я ли когда-то сморозил, про четные
YK> банки-то? Кажется Denis Kitel написал:
YK> fast: 0123, slow: 4567.

А Arseny Astapenko - нечетные медленные. Кто прав ?

Имхо тут зависит от компа. Забей. Пиши так, чтобы работало
на всех тормознутых банках. МультиКАЛора, музыКАЛЬHЫЕ загрузчики
- все в сад. Бордюрные эффекты - туда-же.

[...]

YK> А раскрутить можно и #3D13.

Долго. Hо только #3д13 - не обламывай людей с винтом.

Wi7h be57 Wi5he5, FK0.

-+- SMM version 1.08