Программирование - процедура определения наличия диска в дисководе.

__________________________________________

(C) SKL-KEEPER
__________________________________________

   Начиная  с  Jemmini commander'а (как же
давно это было!), в очень многих boot'ах и
          коммандерах  стала   применяться
          процедура   определения  наличия
          диска в дисководе. Да  ведь  как
          удобно-то! В былые времена у ме-
          ня были случаи, когда по  собст-
          венной невнимательности или  за-
          парке гробил диски и  программы,
          а все потому, что не  удосужился
          при смене диска перечитать ката-
лог:-( Помню, с каким восторгом  воспринял
я появление в своей коллекции Perfect Com-
mander'а V.1.53 и какое удовольствие полу-
чал от такой рутинной работы, как  копиро-
вание на одном дисководе: знай себе, меняй
диски,программа сама за тебя все остальное
сделает!
   Все было прекрасно, пока я не обзавелся
"Scorpion'ом ZS-256 TURBO"  с ПрофПЗУ и не
поставил  на  него  трехдюймовый дисковод,
который, вскоре, стал  для меня  основным.
Да оно и понятно: пятидюймовых дискет сей-
час уже не сыщешь, жизнь заставила перехо-
дить на "трехдюймовки".
   И вот тут начались неприятности. Оказы-
вается, то,что прекрасно работает на флоп-
поводе 5,25", плохо или совсем не работает
на 3,5". Как известно, в Скорпионах с Проф
ПЗУ при включении  компьютера  в  сеть  по
умолчанию устанавливается режим turbo. А в
этом  режиме  на трехдюймовых дисководах в
подавляющем  большинстве boot'ов и комман-
деров наличие диска не определяется!!!:-(
   Тут  есть  еще  один  нюанс: защищен ли
диск от записи. Если  защищен, большинство
программ или, вообще, не реагируют на сме-
ну диска, или, что еще хуже, "дергают", т.
е. на долю секунды  появляется изображение
заставки или панели, затем пропадает, дис-
ковод опять читает, и все повторяется сно-
ва.
   Обидно, что во многих замечательных bo-
ot'ах  и коммандерах процедура определения
наличия  диска в дисководе работает некор-
ректно! Даже  в  моем  любимом "командире"
REAL  COMMANDER v1.8, самом  безглючном  и
удобном, на  мой  взгляд! Хотя я не совсем
прав в данном случае: наличие диска в этой
программе  определяется, но со второго ра-
за, т.е. вставил  диск, вынул, опять вста-
вил, тогда только срабатывает...
   Я занимался  разработкой удобного  сис-
темного boot'а, и очень мне  хотелось сде-
лать  в  нем еще и автоопределение наличия
диска. Т.к. я кодер пока начинающий,доста-
точного опыта у меня нет, решил попытаться
"вытащить"  эту  процедуру  из  какой-либо
программы,где она хорошо работает. Идеаль-
но, на мой взгляд, наличие диска определя-
ется  в  Best Viewer'е И.Рощина. Несколько
часов  потратил  на "копание" в программе,
но так и не смог ее оттуда достать:-( Вни-
мательно почитал статью И.Рощина в "ZX-Rе-
вю" N:5-6 за 1997 год с названием "TR-DOS.
Как не допустить ошибки", попробовал  вос-
пользоваться опубликованной там процедурой
и опять "облом": на трехдюймовом дисководе
в режиме turbo наличие диска не  определя-
ется. Но  ведь  в  своем  Best Viewer'е он
применил ту же программу, во  всяком  слу-
чае, куски ее я там находил, когда  "пере-
капывал" оригинал. Утаил что-то, что ли?:)
И почтового адреса его нет, что б написать
ему и посоветоваться...
   В  общем, эту затею я отложил, а взялся
за boot, разработанный RED LIMITED. И хотя
он  тоже  не  совсем  корректно  определял
наличие  диска  в  3-дюймовом  дисководе в
режиме turbo,я его немного доработал, и он
стал работать нормально. Спросите, как до-
работал? А почитайте мою статью в  DEJA VU
#09 в разделе "кодинг". Принцип  тот же. И
что интересно, работает!..
   Итак, я написал небольшую программу для
демонстрации этой процедуры. При ее запус-
ке она пишет "DISK PRESENT", стоит Вам вы-
тащить  диск  из  флопповода,  он начинает
вращаться, и  появляется  надпись  "INSERT
DISK  FOR REREADING". Нажатие ENTER приве-
дет  к выходу из программы, поэтому можете
запускать  ее  прямо из ассемблера. Но не-
достаток  у  этой процедуры все же есть, а
именно тот самый нюанс, о котором  я напи-
сал  выше:-( Но, тем  не  менее, программа
работоспособна, и  я  рискну предложить ее
Вам  для  использования  в своих boot'ах и
commander'ах. Я думаю, если  уж Вы делаете
такие вещи, Вам не составит труда из пред-
ложенной  демонстрационной программы выта-
щить то, что Вам нужно?
   Надеюсь, ребята из RED LIMITED не будут
против того, что я решил предать огласке и
всеобщему вниманию их процедуру... В любом
случае, я буду рад письму от них, на кото-
рое  отвечу  непременно. Мой  адрес  можно
найти в разделе "Реклама" этого журнала.
   Комментарии  в  тексте  программы мини-
мальны, т.к. я не слишком хорошо в них ра-
зобрался,что б комментировать, что для че-
го... Итак:

;Процедура определения наличия диска
;в дисководе из boot'а RED LIMITED,
;вытащенная by SKL-KEEPER aka Колесников
;Сергей в декабре 1999 года.

        ORG 30000
        LD HL,#4000     ;Очистка экрана
        LD DE,#4001
        LD BC,#1800
        LD (HL),L
        LDIR
        LD A,#05        ;BORDER 5
        OUT (#FE),A
        LD (HL),#28
        LD BC,#02FF
        LDIR
        LD A,2
        CALL #1601
        LD DE,TXT_1     ;Печать надписи
        LD BC,26        ;DISK PRESENT
        CALL #203C
        LD DE,#A500
        LD HL,#4000
        LD BC,#1B00
        LDIR
LAB_1   CALL LAB11
LAB_2   EI
LAB_3   RES 5,(IY+#01)
LAB_4   CALL LAB16
        CP #00
        JP NZ,LAB_1
        LD A,(#C900)
        AND A
        JR Z,LAB_2
        HALT
        BIT 5,(IY+#01)
        JR Z,LAB_4
        LD A,(IY+#CE)
        CP #0D          ;Это ENTER?
        RET Z           ;если да,выход.
        JR LAB_3

LAB_5   LD DE,#1E75
        LD A,#3F
        LD I,A
        IM 1
LAB_6   PUSH DE
LAB_7   NOP
        NOP
        NOP
        JP #3D2F

LAB_8   LD IX,#2FC1
LAB_9   PUSH IX
        JR LAB_7

LAB10   LD A,#08
        LD C,#1F
        LD DE,#2A53
        JR LAB_6

LAB11   LD HL,#0000
        LD (#C900),HL
        LD (#C901),HL
        LD (#5CF4),HL
        LD HL,#C9F1
        LD (#5CC2),HL
        CALL LAB15
LAB12   LD A,#00
        AND A
        JR NZ,LAB13
        LD A,2
        CALL #1601      ;Печать надписи
        LD DE,TXT_2     ;INSERT DISK FOR
        LD BC,32        ;REREADING.
        CALL #203C
LAB13   LD HL,#C000
        LD B,#09
        CALL LAB_5
        CALL LAB15
        CALL LAB16
LAB14   LD A,C
        LD (#C900),A
        RET

LAB15   LD HL,#BFFF
        LD DE,#5AFF
        LD BC,#1B00
        LDDR
        RET

LAB16   LD A,#C3
        LD (#5CC2),A
        LD HL,LAB17
        LD (#5CC3),HL
        CALL LAB_8
        CALL LAB10
        LD (LAB17+1),SP
        LD DE,#0000
        LD IX,#2740
        CALL LAB_9
LAB17   LD SP,#0000
        LD DE,#1FF3
        CALL LAB_6
        LD DE,#1FEB
        CALL LAB_6
        CALL LAB_8
        LD A,#C9
        LD (#5CC2),A
        LD A,(#5CCD)
        AND #40
        RET

TXT_1   DEFB 16,0,17,5,22,0,4
        DEFB "       DISK PRESENT"
TXT_2   DEFB 22,0,4,16,0,17,5
        DEFB "INSERT DISK FOR"
        DEFB " REREADING"
------------------------------------------

И в заключении:
---------------

   Информация для тех, у кого есть принтер
и кто  пользуется  IS-DOS'овским  LOTUS'ом
для печати текстов художественными шрифта-
ми. Если  Вас не устраивает начертание ка-
ких-то отдельных букв шрифта,отгрузите его
на TR-DOS'овский диск и, с помощью какого-
-нибудь редактора спрайтов, исправьте нуж-
ные Вам буквы. Исправленный фонт перепиши-
те опять на IS-DOS'овский диск и печатайте
на здоровье! Лично  я пользуюсь FILES DUMP
EDITOR V1.3,который когда-то распространял
Инфорком. В принципе, никто не мешает  Вам
создавать и свои собственные  шрифты. Поле
для деятельности обширное! Попробуйте и не
пожалеете!
------------------------------------------