Buzz #17 10 апреля 1999

Программирование

DOS PRO - Самые быстрые процедуры работы с диском: чтение/запись секторов без контроля и с контролем ошибок, чтение секторов с контролем на исправность чтения, чтение/запись секторов с контролем в прерываниях, зажигание/гашение лампочки дисковода, раскручивание и торможение диска, сброс ВГ13, позиционирование на 0 трек, защита от Magic Button, гашение лампочки дисковода, проверка какой текущий, контроль наличия диска в дисководе.

■--------------------------------------------------------------■
(C) 1998 FASTeR/TNL (FAST M UP!!!)
(P) 1998 TNL insys!
(C T) ULYANOVSK!

(!) ПРИ ИСПОЛЬЗОВАНИИ В СВОИХ ПРОГРАММАХ ССЫЛКА НА АВТОРА ОБЯЗА-
    ТЕЛЬНА!!! И ВАМ НА ДУШЕ СПОКОЙНО И МНЕ ПРИЯТНО ;) !!!    (!)

  (8422) 37-68-85 (АЛЕКСАНДР) ЗВОНИТЬ ЖЕЛАТЕЛЬНО ДО 23.00 МСК!

  <<<<<     E-MAIL: FASTER_TNL@DARKSTAR.ILXQ.ML.OVG      >>>>>
■--------------------------------------------------------------■

                           ПРИВЕТИК!!!
                                                FAST M UP!!!

    Я,  FASTER/TNL  представляю  Вашему  вниманию  самые быстрые
процедуры  работы  с диском   на  сегодняшний день!!! Очень даже
возможно,  что  и  это  еще  не предел! Поэтому, если кто-нибудь
напишет более быструю  какую-либо из процедур, пусть обязательно
свяжется  со  мной!  Процедуры я особо комментировать не стал (и
так  все  понятно  :), только там, где счел нужным. Надеюсь, они
Вам  пригодятся  (и не один раз!) в ваших программах, тем более,
что они быстры  и работают  также в TURBO режиме (коим свойством
обладают  далеко  не  все  процедуры!!).  Если  у  Вас возникнут
вопросы,  то  звоните! Я человек общительный и с удовольствием с
Вами пообщаюсь на любую тему!!! ;)

Итак, великолепная 15-шка... ;)

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
 ═ -               ·∙° FASTeR'S COLLECTION! °∙·             - ═
==═════════════════════════════════════════════════════════════=

■--------------------------------------------------------------■

(!)  При написании процедур наивысшим приоритетом была скорость,
     а не объем!!!

     При работе процедур используются регистры только одного на-
     бора (в данном случае, основного!): A,HL,IX,IY,BC,DE.

     Стек "напрягается" только по нужде!

     Перед  вызовом  процедур  (кроме  той, которая  работает  в
     IM 2), следует  запрещать  прерывания (что, в  принципе, не
     является правилом)!

(!!) Перед тем, как будут представлены процедуры, я хочу сказать
     вот о чем:

     1. При обращении к ПЗУ TR-DOS используется точка входа:
     #3D30! Это не есть правило... (Говорят есть  компы, которые
     не  переваривают  сей  прием! Правда  мне  такие никогда не
     встречались!!!)

     2. При чтении #1F применяется алгоритм (CooL!),  предложен-
     ный ANDREW MOA! Мне приходилось встречаться также, с  вари-
     ацией этого алгоритма (by Иван Рощин!). Ну что я могу  ска-
     зать??? За всю мою практику, при использовании алгоритма by
     MOA, мне не доводилось сталкиваться с ситуацией, когда  АЛ-
     ГОРИТМ РАБОТАЕТ НЕПРАВИЛЬНО! Так-то!!!

(!)  PROцедуры  работают на  любых версиях  TR-DOS (5.03 и выше,
     при  условии, что в  них  не  внесены какие-нибудь "хищные"
     изменения)!!!    

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟   ■■■ PROCEDURE_1:TURBO_READ_WITHOUT_ERRORS_CONTROLING! ■■■  ╟
==═════════════════════════════════════════════════════════════=

;ЧТЕНИЕ (ЗАПИСЬ) СЕКТОРА(ОВ) БЕЗ КОНТРОЛЯ ОШИБОК, (САМАЯ БЫСТРАЯ
;ПРОЦЕДУРА)!!!
;(!) 100% ГАРАНТИЯ ПРАВИЛЬНОСТИ СЧИТЫВАНИЯ, ТОЛЬКО В TURBO MODE!
;(!) 50%-В NORMAL MODE! ПОЭТОМУ НЕ СТОИТ ОСОБО УВЛЕКАТЬСЯ P_1, А
;ТОЧНЕЕ ВОВСЕ  НЕ  УВЛЕКАТЬСЯ. И  ВООБЩЕ ЭТОТ LOADER БЫЛ НАПИСАН
;ИСКЛЮЧИТЕЛЬНО ПОД ВЛИЯНИЕМ И ВПЕЧАТЛЕНИЕМ ОТ ТУРБЫ!!!

;STACK USE: BY 8 BYTES.

        DI                      ;ОЧЕНЬ ПОЛЕЗНАЯ КОМАНДА :)

        LD      IX,АДРЕС_ЗАГРУЗКИ
        LD      DE,ТРЕК/СЕКТОР  ;(#5CF4)
        LD      B,КОЛИЧЕСТВО_ЗАГРУЖАЕМЫХ_СЕКТОРОВ

;ДАННАЯ ПРОЦЕДУРКА НАСТРАИВАЕТ LOAD(SAVE)ER НА ТЕКУЩИЙ ДИСКОВОД!
;(ВЫЗЫВАЕТСЯ ТОЛЬКО ОДИН РАЗ, В САМОМ НАЧАЛЕ!)

        LD      A,(#5CF6)      ;В А-НОМЕР ДИСКОВОДА. 0-A, 1-B...
        OR      #2C
        LD      (DRV+1),A
        SET     4,A
        LD      (DRV+5),A

        LD      (TR_SEC),DE
        CALL    LOAD_           ;NO COMMENTS ;)

        RET                     ;TOO ;)

■--------------------------------------------------------------■

LOAD_   LD      DE,(TR_SEC)
LOAD    LD      A,D             ;TRACK/2
        SRL     A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3        ;НОМЕР СТОРОНЫ.
        CALL    DOS1            ;OUT (#FF),A
        LD      A,#18           ;ПОЗИЦИОНИРОВАНИЕ.
        CALL    DOS2
        LD      HL,#3EF5        ;ОЖИДАНИЕ ВЫПОЛНЕНИЯ ПОЗИЦИОНИ-
        CALL    DOS1            ;РОВАНИЯ.
N_SEC   XOR     A               ;ВСЕ СЕКТОРА СЧИТАНЫ???
        OR      B
        LD      (TR_SEC),DE
        RET     Z               ;ВЫХОД ЕСЛИ ОПЕРАЦИЯ ЗАКОНЧЕНА!
        LD      A,E
        INC     A               ;НОМЕР СЕКТОРА.
        LD      C,#5F
        CALL    DOS
        LD      A,#80           ;КОМАНДА ЧТЕНИЯ СЕКТОРА!
        CALL    DOS2            ;#A0-КОМАНДА ЗАПИСИ СЕКТОРА!
        LD      C,#7F
        LD      IY,#3FE5        ;#3FCA-ПРИ ЗАПИСИ!
        PUSH    IX
        POP     HL
*       PUSH    BC
        CALL    DOS3            ;ВЫПОЛНЕНИЕ КОМАНДЫ...
*       POP     BC
        INC     HX              ;УВЕЛИЧИВАЕМ АДРЕС ЗАГРУЗКИ!
        DEC     B               ;МИНУС ОДИН СЕКТОР!
        INC     E               ;СЛЕДУЮЩИЙ СЕКТОР!
        BIT     4,E             ;ВСЕ СЕКТОРА???
        JP      Z,N_SEC         ;СЛЕДУЮЩИЙ СЕКТОР...
        LD      E,0             ;ОБНУЛЯЕМ СЕКТОР!
        INC     D               ;СЛЕДУЮЩИЙ ТРЕК...
        JP      LOAD            ;ВСЕ ЗАНОВО...

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30           ;(#3D2F)-SHIT 4EVER!!!

DOS2    LD      IY,#2FC3        ;OUT (#1F),A
DOS3    PUSH    IY
        JP      #3D30           ;(#3D2F)-SHIT 4EVER!!!

TR_SEC  DEFW    0               ;СОХРАНЯЕМ ТРЕК И СЕКТОР!

■--------------------------------------------------------------■

;ВТОРОЙ ВАРИАНТ ПРОЦЕДУРЫ. БОЛЕЕ БЫСТРЫЙ, НО ИСПОЛЬЗУЮЩИЙ ДОПОЛ-
;НИТЕЛЬНО: HL',BC',DE',IY-не используется!

;STACK USE: BY 8 BYTES.

LOAD_   LD      DE,(TR_SEC)
LOAD    LD      A,D
        SRL     A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3
        CALL    DOS1
        LD      A,#18
        LD      HL,#2FC3
        CALL    DOS1
        LD      HL,#3EF5
        CALL    DOS1
N_SEC   XOR     A
        OR      B
        LD      (TR_SEC),DE
        RET     Z
        LD      A,E
        INC     A
        LD      C,#5F
        CALL    DOS
        PUSH    IX
        EXX
        LD      A,#80
        LD      HL,#2FC3
        CALL    DOS1
        LD      C,#7F
        LD      DE,#3FE5
        POP     HL
        CALL    DOS2
        EXX
        INC     HX
        DEC     B
        INC     E
        BIT     4,E
        JP      Z,N_SEC
        LD      E,0
        INC     D
        JP      LOAD

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30           ;RULEZ 4EVER!!!

DOS2    PUSH    DE
        JP      #3D30

TR_SEC  DEFW    0

■--------------------------------------------------------------■
* - Команды помеченные звездочкой служат  для того, чтобы LOADER
    нормально  работал в NORMAL MODE. Если их убрать, то  LOADER
    будет работать только в TURBO MODE!!!

(!) Этот LOADER не зависнет и не сбросится в  случае возникнове-
    ния ошибки, а будет читать до тех пор пока не опупеет!!! ;)
    Правда после этого, никто не даст гарантию работоспособности
    загруженной программы! ;)
■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟    ■■■ PROCEDURE_2:TURBO_READ_WITH_ERRORS_CONTROLING! ■■■    ╟
==═════════════════════════════════════════════════════════════=

;ЧТЕНИЕ (ЗАПИСЬ) СЕКТОРА(ОВ) С КОНТРОЛЕМ ОШИБОК!
;ИДЕАЛЬНЫЙ LOADER (SAVER) ДЛЯ ИГРУШЕК/СИСТЕМОК!

;STACK USE: BY 10 BYTES.

LOAD1_  LD      DE,(TR_SEC)
LOAD    LD      A,D
        SRL     A
        LD      (TRACK+1),A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3
        CALL    DOS1
        LD      A,#18
        CALL    DOS2
N_SEC   XOR     A
        OR      B
        LD      (TR_SEC),DE
        RET     Z
ERROR   LD      A,E
        INC     A
        LD      C,#5F
        CALL    DOS
        LD      A,#80
        CALL    DOS2
        LD      C,#7F
        LD      IY,#3FE5
        PUSH    IX
        POP     HL
        PUSH    BC
        CALL    DOS3

;АЛГОРИТМ ЧТЕНИЯ #1F BY ANDREW MOA!

        XOR     A
        LD      HL,#1E3A        ;OUT (#3F),A
        CALL    DOS1
        LD      A,#0A
        LD      C,#5F
        CALL    DOS
        PUSH    DE
        LD      D,#01
        LD      HL,#3F33
        CALL    DOS1

        LD      A,B             ;РЕЗУЛЬТАТ ЧТЕНИЯ В РЕГИСТРЕ 'B'
        AND     #7F             ;ЗДЕСЬ МОЖЕТЕ ДЕЙСТВОВАТЬ НА ВА-
        POP     DE              ;ШЕ УСМОТРЕНИЕ!
        POP     BC
TRACK   LD      A,0
        LD      HL,#1E3A
        CALL    DOS1
        JR      NZ,ERROR       ;ЕСЛИ ОШИБКА ЧТЕНИЯ, ТО ПОВТОР...

        INC     HX
        DEC     B
        INC     E
        BIT     4,E
        JP      Z,N_SEC
        LD      E,0
        INC     D
        JP      LOAD

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30

DOS2    LD      IY,#2FC3        ;OUT (#1F),A
DOS3    PUSH    IY
        JP      #3D30

TR_SEC  DEFW    0

■--------------------------------------------------------------■

;ВТОРОЙ ВАРИАНТ ПРОЦЕДУРЫ. БОЛЕЕ БЫСТРЫЙ, НО ИСПОЛЬЗУЮЩИЙ ДОПОЛ-
;НИТЕЛЬНО: HL',BC',DE',IY-не используется!

;STACK USE: BY 8 BYTES.

LOAD1_  LD      DE,(TR_SEC)
LOAD    LD      A,D
        SRL     A
        LD      (TRACK+1),A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3
        CALL    DOS1
        LD      A,#18
        LD      HL,#2FC3
        CALL    DOS1
N_SEC   XOR     A
        OR      B
        LD      (TR_SEC),DE
        RET     Z
ERROR   LD      A,E
        INC     A
        LD      C,#5F
        CALL    DOS
        PUSH    IX
        EXX
        LD      A,#80
        LD      DE,#2FC3
        CALL    DOS3
        LD      C,#7F
        LD      DE,#3FE5
        POP     HL
        CALL    DOS3

;АЛГОРИТМ ЧТЕНИЯ #1F BY ANDREW MOA!

        XOR     A
        CALL    DOS2
        LD      A,#0A
        LD      C,#5F
        CALL    DOS
        LD      D,#01
        LD      HL,#3F33
        CALL    DOS1

        LD      A,B
        AND     #7F
TRACK   LD      A,0
        CALL    DOS2
        EXX
        JR      NZ,ERROR

        INC     HX
        DEC     B
        INC     E
        BIT     4,E
        JP      Z,N_SEC
        LD      E,0
        INC     D
        JP      LOAD

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30

DOS2    LD      DE,#1E3A        ;OUT (#3F),A
DOS3    PUSH    DE
        JP      #3D30

TR_SEC  DEFW    0

■--------------------------------------------------------------■


==═════════════════════════════════════════════════════════════=
╟    ■■■ PROCEDURE_3:TURBO_READ_WITH_ERROR_CONTROLING! ■■■     ╟
==═════════════════════════════════════════════════════════════=

;ЧТЕНИЕ СЕКТОРА(ОВ) С КОНТРОЛЕМ НА ПРАВИЛЬНОСТЬ ЧТЕНИЯ!
;ДЛЯ ВОЗМОЖНОСТИ ИСПОЛЬЗОВАНИЯ  ЭТОЙ ПРОЦЕДУРЫ ДЛЯ ЗАПИСИ, МОЖНО
;ЛЕГКО АНАЛОГИЧНО ПЕРЕПИСАТЬ ПРОЦЕДУРУ!
;ИДЕАЛЬНЫЙ LOADER ДЛЯ ЗАГРУЗЧИКА К ИГРУШКАМ/СИСТЕМКАМ!

;STACK USE: BY 14 BYTES.

LOAD_   LD      DE,(TR_SEC)
LOAD    LD      A,D
        SRL     A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3
        CALL    DOS1
        LD      A,#18
        LD      HL,#2FC3
        CALL    DOS1
N_SEC   XOR     A
        OR      B
        LD      (TR_SEC),DE
        RET     Z
ERROR   LD      A,E
        INC     A
        LD      C,#5F
        CALL    DOS
        PUSH    BC
        PUSH    DE
        LD      DE,#20AA
        LD      B,1
        PUSH    IX
        POP     HL
        LD      C,#7F
        CALL    DOS2
        POP     DE
        XOR     A
        OR      B
        POP     BC
        JP      Z,ERROR
        INC     HX
        DEC     B
        INC     E
        BIT     4,E
        JP      Z,N_SEC
        LD      E,0
        INC     D
        JP      LOAD 

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30

DOS2    PUSH    DE
        LD      IY,#2090
        PUSH    IY
        JP      #3D30

TR_SEC  DEFW    0

■--------------------------------------------------------------■

;ВТОРОЙ ВАРИАНТ ПРОЦЕДУРЫ. БОЛЕЕ БЫСТРЫЙ, НО ИСПОЛЬЗУЮЩИЙ ДОПОЛ-
;НИТЕЛЬНО: HL',BC',DE',IY',IY-не используется!

;STACK USE: BY 10 BYTES.

LOAD_   LD      DE,(TR_SEC)
LOAD    LD      A,D
        SRL     A
        LD      C,#7F
        CALL    DOS
DRV     LD      A,#2C
        JR      C,SIDE
        LD      A,#3C
SIDE    LD      HL,#1FF3
        CALL    DOS1
        LD      A,#18
        LD      HL,#2FC3
        CALL    DOS1
N_SEC   XOR     A
        OR      B
        LD      (TR_SEC),DE
        RET     Z
ERROR   LD      A,E
        INC     A
        LD      C,#5F
        CALL    DOS
        PUSH    IX
        EXX
        LD      DE,#20AA
        LD      B,1
        LD      C,#7F
        POP     HL
        CALL    DOS2
        XOR     A
        OR      B
        EXX
        JP      Z,ERROR
        INC     HX
        DEC     B
        INC     E
        BIT     4,E
        JP      Z,N_SEC
        LD      E,0
        INC     D
        JP      LOAD

DOS     LD      HL,#2A53        ;OUT (C),A
DOS1    PUSH    HL
        JP      #3D30

DOS2    PUSH    DE
        LD      IY,#2090
        PUSH    IY
        JP      #3D30

TR_SEC  DEFW    0

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟      ■■■ PROCEDURE_4:TURBO_READ_WITH_INTERRUPT_MODE! ■■■     ╟
==═════════════════════════════════════════════════════════════=

;ЧТЕНИЕ (ЗАПИСЬ) СЕКТОРА(ОВ) В ПРЕРЫВАНИЯХ! РАЗУМЕЕТСЯ С КОНТРО-
;ЛЕМ ОШИБОК!

;STACK USE: BY 24 BYTES.

        DI
        LD      HL,INT
        LD      (#FEFF),HL
        LD      A,#FE
        LD      I,A
        IM      2 

        EI
        LD      IX,ADDRESS
        LD      DE,(#5CF4)
        LD      (TR_SEC),DE
        LD      B,KOL_SEC

        CALL    LOAD1_

        LD      IY,#5C3A        ;ЧИСТО ДЛЯ ВЫХОДА В BASIC ;8)
        LD      A,#3F           ;ПОЭТОМУ МОЖНО УБРАТЬ ВСЮ ЭТУ
        LD      I,A             ;ЧУШЬ ОТСЕДОВА!!!
        IM      1
        EI
        RET

INT     DI                      ;EI
        PUSH    HL              ;СОХРАНЯЕМ ТОЛЬКО ТЕ РЕГИСТРЫ,
        PUSH    DE              ;КОТОРЫЕ ПОРТЯТСЯ!
        PUSH    BC
        PUSH    IX
        ..........              ;А ЗДЕСЬ ВАШ РАЗУМНЫЙ БЕСПРЕДЕЛ!
        XOR     A               ;ЭТА КОМАНДА ОБЯЗАТЕЛЬНА!!!
        POP     IX
        POP     BC
        POP     DE
        POP     HL
        EI
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=

(!) ПЕРЕД ВЫЗОВОМ НИЖЕ ПЕРЕЧИСЛЕННЫХ ПРОЦЕДУР (КРОМЕ 7-Й И 9-Й!)
    НЕОБХОДИМО НАСТРОИТЬСЯ НА ТЕКУЩИЙ ДИСКОВОД:

        LD      A,(#5CF6)      ;В А-НОМЕР ДИСКОВОДА. 0-А, 1-B...
        OR      #2C
        LD      HL,#1FF3       ;OUT (#FF),A
        CALL    DOS
        RET 

==═════════════════════════════════════════════════════════════=
╟                  ■■■ PROCEDURE_5:LIGHT_ON ■■■                ╟
==═════════════════════════════════════════════════════════════=

;ЗАЖИГАНИЕ ЛАМПОЧКИ ДИСКОВОДА/РАСКРУЧИВАНИЕ ДИСКА!

;STACK USE: BY 4 BYTES.

        LD      C,#7F           ;ЗНАЧЕНИЕ 'А'-БЕРЕТСЯ ОТ БАЛДЫ!
        LD      HL,#2A53        ;OUT (C),A
        CALL    DOS
        LD      HL,#1E3A        ;OUT (#3F),A
        CALL    DOS
        LD      A,#18
        LD      HL,#2FC3        ;OUT (#1F),A
DOS     PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟              ■■■ PROCEDURE_6:LIGHT_ON_FOREVER ■■■            ╟
==═════════════════════════════════════════════════════════════=

;РАСКРУЧИВАНИЕ  ДИСКОВОДА   (ЗАЖИГАНИЕ  ЛАМПОЧКИ), КОТОРЫЙ БУДЕТ
;КРУТИТЬСЯ, КРУТИТЬСЯ, КРУТИТЬСЯ... ;)

;STACK USE: BY 4 BYTES.

        LD      A,#24           ;ДЛЯ ДИСКОВОДА 'А'
        LD      HL,#1FF3        ;OUT (#FF),A
        CALL    DOS
        LD      C,#7F           ;ПОХОЖЕ НА ПРЕДЫДУЩЕЕ!
        LD      HL,#2A53        ;OUT (C),A
        CALL    DOS
        LD      HL,#1E3A        ;OUT (#3F),A
        CALL    DOS
        LD      A,#18
        LD      HL,#2FC3        ;OUT (#1F),A
DOS     PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟                  ■■■ PROCEDURE_7:LIGHT_OFF ■■■               ╟
==═════════════════════════════════════════════════════════════=

;ГАШЕНИЕ ЛАМПОЧКИ ДИСКОВОДА/ТОРМОЖЕНИЕ ДИСКОВОДА!

;STACK USE: BY 2 BYTES.

        XOR     A
        LD      HL,#2FC3        ;OUT (#1F),A
        PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■


==═════════════════════════════════════════════════════════════=
╟                 ■■■ PROCEDURE_8:RESET_WG ■■■                 ╟
==═════════════════════════════════════════════════════════════=

;СБРОС WG93/ПОЗИЦИОНИРОВАНИЕ НА 0 ТРЕК!

;STACK USE: BY 2 BYTES.

        LD      A,#08
        LD      HL,#2FC3        ;OUT (#1F),A
        PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟                  ■■■ PROCEDURE_9:FUCK_WG ■■■                 ╟
==═════════════════════════════════════════════════════════════=

;НЕКОЕ ПОДОБИЕ ЗАЩИТЫ ОТ MAGIC BUTTON/ГАШЕНИЕ ЛАМПОЧКИ ДИСКОВОДА

;STACK USE: BY 2 BYTES.

        XOR     A
        LD      HL,#1FF3        ;OUT (#FF),A
        PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟         ■■■ PROCEDURE_10:CHECK_3.5"_OR_5.25"_??? ■■■         ╟
==═════════════════════════════════════════════════════════════=

;ПРОЦЕДУРА ПРОВЕРЯЕТ, КАКОЙ  ДИСКОВОД ТЕКУЩИЙ: 3.5" ИЛИ 5.25"???
;ДИСК ОБЯЗАТЕЛЬНО ДОЛЖЕН ПРИСУТСТВОВАТЬ В ДИСКОВОДЕ И НЕ  ДОЛЖЕН
;ВРАЩАТЬСЯ!

;STACK USE: BY 28 BYTES.

        LD      A,#08
        LD      HL,#2FC3        ;OUT (#1F),A
        CALL    DOS
        LD      HL,#3EF5
        CALL    DOS
        LD      IY,2200         ;ЗАДЕРЖКА... (4 TURBO 2)!
        CALL    IN_1F
        AND     #02
        LD      HX,A
AGAIN   CALL    IN_1F
        AND     #02
        OR      HX
        RET     NZ              ;USE 3.5" DRIVE!
        DEC     IY
        LD      A,LY
        OR      HY
        JP      NZ,AGAIN
        RET                     ;USE 5.25" DRIVE!

;АЛГОРИТМ ЧТЕНИЯ #1F BY ANDREW MOA!

IN_1F   XOR     A
        LD      HL,#1E3A
        CALL    DOS
        LD      A,#0A
        LD      C,#5F
        LD      HL,#2A53
        CALL    DOS
        LD      D,#01
        LD      HL,#3F33
        CALL    DOS
        LD      A,B
        RET 

DOS     PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟    ■■■ PROCEDURE_11:DISK_CONTROLER_4_SYSTEMZ_OR_GAMEZ ■■■    ╟
==═════════════════════════════════════════════════════════════=

;ДАННАЯ ПРОЦЕДУРА КОНТРОЛИРУЕТ НАЛИЧИЕ ДИСКА В ДИСКОВОДЕ!
;ЭТА ПРОЦЕДУРА ПРЕДНАЗНАЧЕНА СПЕЦИАЛЬНО  ДЛЯ СИСТЕМНЫХ ИЛИ ИГРО-
;ВЫХ ПРОГРАММ!
;(!) НЕ КАТИТ ДЛЯ BOOT'ОВ И Т.П. ПРОГРАММ!

;STACK USE: BY 6 BYTES.

        LD      A,#08
        LD      HL,#2FC3        ;OUT (#1F),A
        CALL    DOS
        LD      HL,#3EF5
        CALL    DOS
        LD      IY,5500         ;ЗАДЕРЖКА... (4	TURBO 2)!
        CALL    IN_1F
        BIT     1,B
        LD      HX,B
AGAIN   CALL    IN_1F
        BIT     1,B
        LD      A,B
        OR      HX
        RET     NZ              ;DISK PRESENT!
        DEC     IY
        LD      A,LY
        OR      HY
        JP      NZ,AGAIN
        RET                     ;DISK NOT PRESENT!

;АЛГОРИТМ ЧТЕНИЯ #1F BY ANDREW MOA!

IN_1F   XOR     A
        LD      HL,#1E3A
        CALL    DOS
        LD      A,#0A
        LD      C,#5F
        LD      HL,#2A53
        CALL    DOS
        LD      D,#01
        LD      HL,#3F33
        CALL    DOS
        RET

DOS     PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
╟   ■■■ PROCEDURE_12:DISK_CONTROLER_4_BOOTZ_OR_COMMANDERZ ■■■  ╟
==═════════════════════════════════════════════════════════════=

;ДАННАЯ ПРОЦЕДУРА КОНТРОЛИРУЕТ НАЛИЧИЕ ДИСКА В ДИСКОВОДЕ!
;ЭТА ПРОЦЕДУРА ПРЕДНАЗНАЧЕНА  СПЕЦИАЛЬНО 4 BOOT'ОВ, COMMANDER'ОВ
;И Т.П. ПРОГРАММ!
;(!) НЕ КАТИТ ДЛЯ ДИСКЕТ ЗАЩИЩЕННЫХ ОТ ЗАПИСИ! ПОЭТОМУ Я РЕКОМЕ-
;НДУЮ  ИСПОЛЬЗОВАТЬ  ЕЕ СОВМЕСТНО С  PROCEDURE_11, КАК УКАЗАНО В
;ЛИСТИНГЕ  ПРОЦЕДУРЫ!!! (СМЫСЛ  В  СЛЕДУЮЩЕМ: ЕСЛИ ВСТАВИТЬ ДИСК
;ЗАЩИЩЕННЫЙ ОТ ЗАПИСИ, ТО ПРОГРАММА ЗАСЧИТАЕТ ЕГО КАК ОТСУТСТВУ-
;ЮЩИЙ, ПОЭТОМУ ОТПРАВИВ  ЕЕ НА PROCEDURE_11, СИТУАЦИЯ БУДЕТ ПРИ-
;ВЕДЕНА В ПОРЯДОК!!!

;STACK USE: BY 20 BYTES.

BEGIN   CALL    CHECK
        BIT     6,B
        JR      NZ,NO_DISK
        LD      A,1             ;DISK PRESENT!
        OUT     (#FE),A
AGAIN   XOR     A
        IN      A,(#FE)
        CPL
        AND     #1F
        RET     NZ              ;ОПРОС КЛАВИАТУРЫ...
        CALL    CHECK
        BIT     6,B
        JR      Z,AGAIN
NO_DISK XOR     A               ;DISK NOT PRESENT!
        OUT     (#FE),A
;       CALL    PROCEDURE_11    ;СМ. ВЫШЕ!!!
        JR      BEGIN

CHECK   LD      A,#08
        CALL    DOS
        LD      HL,#3EF5
        CALL    DOS1

;АЛГОРИТМ ЧТЕНИЯ #1F BY ANDREW MOA!

        XOR     A
        LD      HL,#1E3A
        CALL    DOS1
        LD      A,#0A
        LD      C,#5F
        LD      HL,#2A53
        CALL    DOS1
        LD      D,#01
        LD      HL,#3F33
        CALL    DOS1

        XOR     A
        CALL    DOS
        LD      A,#D0
        CALL    DOS
        EI
        HALT                    ;ФРЕЙМ ОТДЫХАЕМ...
        RET

DOS     LD      HL,#2FC3        ;OUT (#1F),A
DOS1    PUSH    HL
        JP      #3D30

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=

P.S. Ну вот, в принципе, и все! Мне  остается сказать, что  тест
     всех процедур я проводил в следующей конфигурации:
     SCORPION ZS 256 TURBO++
     NORMAL MODE/TURBO MODE/TURBO WG93/3.5"/5.25"/TR-DOS 5.03sc.

     Все процедуры были написаны мной в течение 1998 года в луч-
     шем, на мой  взгляд, (за  исключением  отсутствия  двоичной
     системы и невозможности выгрузки  обьектного кода), ассемб-
     лере - ALASM 4.1 BY ALEM (VERY THANX!)

     HAIL 2 ALL OUR (TNL insys) FRIENDZ!!! BYE! C YE L8ER...
     ...& SPECIAL HELLO (FROM ME!) 2 MAX PETROV!!!

==═════════════════════════════════════════════════════════════=

■--------------------------------------------------------------■

==═════════════════════════════════════════════════════════════=
 ═ -  LAST EDITION ON 01.11.98 ULYANOVSK RUSSIA TNL INSYS!  - ═
==═════════════════════════════════════════════════════════════=