Echo #06
30 июня 2000

Программирование - Структура и организация RamDisk'а в Real Commander'е.

<b>Программирование</b> - Структура и организация RamDisk'а в Real Commander'е.
┌────────────────────────────────────────┐
│   Структура и организация RamDisk'а    │
│          в Real Commander'е            │
└────────────────────────────────────────┘

(C) Pawel/RS

   Начиная с версии 1.8 в Real Commander'е
появилась возможность работы с резидентным
RamDisk'ом, эта  статья предназначена раз-
работчикам  системного софта желающим сде-
лать его поддержку в своих программах. Ram
Disk в RC отличается от имеющегося станда-
рта  по Honey Commander'у большей надежно-
стью  (системная  дорожка хранится в самом
последнем банке) и простотой использования
(нет никаких таблиц банков в системном се-
кторе).
   Формат RamDisk'а ничем не отличается от
обычного TR-DOS. В самом последнем доступ-
ном  банке хранятся первые 4 дорожки, сле-
дующие  4  дорожки  хранятся банком ниже и
т.д.  Для определения наличия в памяти Ram
Disk'а  проверяется  идентификационный код
Tr-Dos  по  адресу #C0E7 последнего банка,
если он равен 16, то RamDisk присутствует.
После этого необходимо определить количес-
тво используемых банков, для этого исполь-
зуются  стандартная  информация  Tr-Dos  о
дискете, по  адресу #C0E1  нужно прочитать
два  байта  параметра первая свободная до-
рожка/сектор. Параметр дорожка умножить на
16 и сложить с параметром сектор. Получен-
ный результат сложить с параметром свобод-
но секторов по адресу #C0E5 и разделить на
64, в результате получаем количество заня-
тых  банков. Ниже приводится процедура для
определения наличия RamDisk'a и количества
используемых под него банков.


TESTRD  LD      A,(PAGE) ;всего банков
        CP      7
        RET     C        ;выход если 128к
        DEC     A
        CALL    ONPAGE   ;выбор посл.банка
        LD      A,(#C8E7)
        CP      16
        RET     NZ   ;выход если не найден
        LD      HL,(#C8E1)
        LD      DE,(#C8E5)
        LD      A,H
        LD      H,0
        ADD     HL,DE
        EX      DE,HL
        CALL    RLENF9
        LD      B,6
        XOR     A
TESTRD2 RR      H
        RR      L
        RRA
        DJNZ    TESTRD2
        AND     A
        RET     NZ
        LD      A,(PAGE)
        SUB     L
        LD      (RPAGE),A
;в RPAGE записываем сколько доступно
;банков с открытым RamDisk'ом
        RET

Умнож. A на 16 и прибавл. DE.
RLENF9  RLCA:RLCA
        RLCA:RLCA
        LD      L,A
        AND     15
        LD      H,A
        LD      A,L
        AND     %11110000
        LD      L,A
        ADD     HL,DE
        RET

   Есть  конечно один нюанс, если в RC ог-
раничить  используемую память 256кб и отк-
рыть резидентный RamDisk, то вышеописанная
процедурка  его не определит, поскольку он
будет начинаться не с последнего банка па-
мяти. В  большинстве  случаев  ограничение
памяти  в RC нужно для аппаратных RamDisk'
ов, пользователи  которых  вряд-ли  станут
использовать программный.

   Теперь  приведу  пример  как в дисковом
драйвере организовать работу с RamDisk'ом.
В  приведенном  примере используется упро-
щенная  обработка ошибок #3D13 без запроса
RIA (Retry, Abort, Ignore), в подобной си-
туаци драйвер просто вернет код ошибки.

TRDOS   DEC     C
        JR      NZ,TRD0
        PUSH    HL
        CP      4
        LD      HL,#3D13
        JR      NZ,TRDS
        PUSH    AF
        LD      A,(PAGE)
        LD      C,A
        LD      A,(RPAGE)
        CP      C
        JR      Z,TRD1 ;ошибка
                       ;RamDisk не открыт
        POP     AF
        LD      C,0
        LD      HL,RW
TRDS    LD      (ERR-2),HL
        POP     HL
TRD0    INC     C
        PUSH    HL
        LD      HL,0
        LD      (23823),HL
        LD      HL,(23613)
        LD      (ERR+1),HL
        LD      HL,ERR
        EX      (SP),HL
        LD      (23613),SP
        EX      AF,AF'
        XOR     A
        LD      (23570),A
        EX      AF,AF'
        JP      15635
ERR     LD      HL,0
        LD      (23613),HL
        LD      A,6
        LD      (23570),A
        LD      A,(23823)
        AND     A
        RET     Z
TRD1    ;выдача сообщения об ошибке
        RET


   Теперь  при  выборе дисковода "E" через
этот драйвер, вместо #3D13 будет подключе-
на  процедура  RW,  обеспечивающая чтение/
запись на RamDisk'е. Следует учесть, что в
вашей  программе  должен храниться в TKARD
номер текущего логического банка.


;RAM DISK: чтение/запись сектора
;HL-адрес, DE-дор/сек, C=5 чт,=6 зап.
RW      DEC     C
        JR      NZ,RW0A
        LD      A,4
        LD      (23798),A
        RET
RW0A    INC     C
RW0     LD      (23796),DE
        LD      A,B
        AND     A
        JR      Z,RW0C
        PUSH    BC
        PUSH    HL
        CALL    RW0S
        EX      DE,HL
        POP     HL
        POP     BC
        AND     A
        JR      NZ,RW0B
        INC     H
        DEC     B
        JR      RW0
RW0C    EI
        RET
RW0B    ;Выдача сообщения
        ;"Дорожка не существует"
        POP     HL
        LD      A,20
        RET

RW0S    LD      A,C
        PUSH    AF
        LD      A,(PAGE)
        DEC     A
        LD      C,A
        LD      A,D
RW1     SUB     4
        JR      C,RW2
        DEC     C
        LD      B,A
        LD      A,(RPAGE)
        DEC     A
        CP      C
        LD      A,B
        JR      NZ,RW1
        POP     AF
        LD      A,20
        RET
RW2     ADD     A,4
        RLCA:RLCA:RLCA:RLCA
        ADD     A,E
        ADD     A,#C0
        LD      E,0
        LD      D,A
        POP     AF
        CP      5
        JP      Z,RDM
        JP      WRM

RW4     LD      HL,(23796)
        INC     L
        LD      A,L
        CP      16
        JR      NZ,RW5
        INC     H
        LD      L,0
RW5     LD      (23796),HL
        XOR     A
        RET

чтение из банка в C по адресу в DE, и
запись в текущий банк по адресу в HL.
RDM     PUSH    HL
        PUSH    DE
        LD      A,C
        CALL    ONPAGE
        POP     HL
        LD      DE,RSCT
        LD      BC,256
        PUSH    DE
        PUSH    BC
        LDIR
        LD      A,(TKARD)
        CALL    ONPAGE
        POP     BC
        POP     HL
        POP     DE
        LDIR
        JP      RW4

чтение из текущего банка по адресу в HL
и запись в банк C по адресу в DE.
WRM     PUSH    DE
        LD      A,C
        LD      DE,RSCT
        LD      BC,256
        PUSH    DE
        PUSH    BC
        LDIR
        CALL    ONPAGE
        POP     BC
        POP     HL
        POP     DE
        LDIR
        LD      A,(TKARD)
        CALL    ONPAGE
        JP      RW4

   Ну  и  для полного комплекта нам теперь
нужен  только  драйвер памяти. Публикуемый
ниже драйвер отличается от опубликованного
в Echo 5 улучшенным  тестом памяти понима-
ющем больше типов расширений. Для тестиро-
вания  конфигурации  компьютера   вызовите
подпрограмму START, она инициализирует пе-
ренные TYPE (тип компьютера) и PAGE (коли-
чество  доступных банков, первый банк - 0,
последний TYPE-1). После тестирования кон-
фигурации  все  что  находится после START
можно  затирать. Теперь вышеописанной про-
цедурой  TESTRD можно определить наличие в
памяти  RamDisk'а. Для  проверки есть ли в
системе  RamDisk  сравнивайте   переменные
PAGE  и RPAGE, если они равны то RamDisk'а
нет, иначе  RPAGE указывает на первый банк
занятый под RamDisk, все банки ниже досту-
пны для использования программой.


выбор логического банка из регистра A
ONPAGE  PUSH    BC
        PUSH    HL
        LD      C,A
        LD      B,0
        LD      HL,TABL_PG
        ADD     HL,BC
        LD      A,(HL)
        POP     HL
        POP     BC
выбор физического банка из регистра A
EX_RAM  DI
        PUSH    HL
        PUSH    AF
        PUSH    BC
        LD      HL,TYPE
        BIT     1,(HL)
        JR      NZ,ZS256
        BIT     2,(HL)
        JR      NZ,PROFI
        BIT     3,(HL)
        JR      NZ,TURBO_2
        BIT     4,(HL)
        JR      NZ,ATM1
        BIT     0,(HL)
        JR      NZ,SPECCY
        BIT     7,(HL)
        JR      NZ,SPECCY
        JR      TDK

TURBO_2 PUSH    AF
        PUSH    IX
        AND     #38
        CPL
        LD      BC,#FFF7
        CALL    OUTC_A
        POP     IX
        POP     AF
        JP      SPECCY

ATM1    LD      BC,#FDFD
        PUSH    AF
        RRCA
        RRCA
        RRCA
        AND     7
        JR      HOME

PROFI   LD      BC,#DFFD
        PUSH    AF
        RRCA
        RRCA
        RRCA
        AND     7
        JR      HOME

ZS256   PUSH    AF
        LD      B,A
        AND     %00001000
        RLCA
        LD      C,A
        LD      A,B
        AND     %00110000
        RLCA
        RLCA
        ADD     A,C
        LD      BC,#1FFD
HOME    OUT     (C),A
        POP     AF

SPECCY  LD      B,A
        AND     24
        RLCA
        RLCA
        RLCA
        LD      C,A
        LD      A,B
        AND     7
        ADD     A,C
        OR      16
        LD      BC,#7FFD
        OUT     (C),A
        NOP
TDK     POP     BC
        POP     AF
        POP     HL
        RET

OUTC_A  LD      IX,10835
        PUSH    IX
        JP      15663


;RSCT - временный 64 байтный буфер для
;таблицы банков, также используется
;драйвером RamDisk'а (256 байт).

RSCT    EQU     23296

LENTABL EQU     62 ;макс.колич.банков
        DB      0
TABL_PG DS      LENTABL+1

TYPE    DB      0 ;тип компьютера
PAGE    DB      0 ;всего доступных банков

переменные RPAGE и TKARD зарезервированы
для Ram Disk'а
RPAGE   DB      0 ;всего доступных банков
                  ;в системе с Ram Disk'ом
TKARD   DB      0 ;Текущий банк


START   CALL    TEST
        LD      A,(8)
        CP      #2A
        JR      Z,START1
        LD      C,8   ;на Scorpion'е уда-
        CALL    DEBUG ;ляется 8-й банк
инициализация переменной Ram Disk'а
START1  LD      A,(PAGE)
        LD      (RPAGE),A
        RET

тестирование конфигурации компьютера
TEST    CALL    TABINIT
        DI
        LD      A,(#08)
        CP      #C3
        JR      NZ,ITURBO
        LD      HL,TYPE
        SET     7,(HL)
ITURBO  LD      HL,(1111)
        LD      BC,#FFF7
        LD      A,%00011111
        CALL    OUTC_A
        LD      DE,(#C000+1111)
        AND     A
        SBC     HL,DE
        LD      BC,#FFF7
        LD      A,255
        CALL    OUTC_A
        JR      NZ,IDFFD
        LD      HL,TYPE
        SET     3,(HL)
        JR      I7FFD
MM_ATM  DB      #DB,#1F,#C9
IDFFD   LD      DE,#0007
        LD      BC,#DFFD
        CALL    TSTB
        JR      NZ,I1FFD
        LD      HL,TYPE
        SET     2,(HL)
        JR      I7FFD
I1FFD   LD      DE,#0010
        LD      B,#1F
        CALL    TSTB
        JR      NZ,IFDFD
        LD      HL,TYPE
        SET     1,(HL)
        JR      I7FFD
IFDFD   LD      B,C
        LD      D,#11
        CALL    TSTB
        JR      NZ,I7FFD
        LD      HL,TYPE
        SET     4,(HL)
I7FFD   LD      B,#7F
        CALL    TSTB
        JR      NZ,SIZED
        LD      HL,TYPE
        SET     0,(HL)
SIZED   CALL    VIRT
        LD      A,(PAGE)
        CP      8
        JR      C,ENDING
        LD      HL,TYPE
        LD      A,(HL)
        DEC     A
        JR      NZ,ENDING
        SET     5,(HL)
ENDING  XOR     A
        CALL    EX_RAM
        EI
        RET

TSTB    LD      IX,#FFFF
        OUT     (C),E
        CALL    TSTB1
        LD      L,(IX)
        LD      (IX),E
        OUT     (C),D
        CALL    TSTB1
        LD      H,(IX)
        LD      (IX),D
        OUT     (C),E
        CALL    TSTB1
        LD      A,(IX)
        CP      E
        LD      (IX),L
        OUT     (C),D
        PUSH    AF
        CALL    TSTB1
        POP     AF
        LD      (IX),H
        RET

TSTB1   LD      A,B
        CP      #7F
        RET     Z
        PUSH    BC
        LD      B,#7F
        LD      A,#10
        OUT     (C),A
        POP     BC
        RET

VIRT    LD      IX,#C000
        LD      HL,RSCT+63
        LD      B,64
V_R11   LD      A,B
        DEC     A
        CALL    EX_RAM
        LD      C,(IX+0)
        LD      (HL),C
        LD      (IX+0),A
        DEC     HL
        DJNZ    V_R11
        PUSH    AF
        LD      A,LENTABL-1
        LD      (PAGE),A
        POP     AF
        LD      DE,TABL_PG
V_R20   LD      A,(DE)
        CP      #FF
        JR      Z,V_R30
        CALL    EX_RAM
        CP      (IX+0)
        JR      Z,V_R22
        PUSH    DE
        LD      HL,TABL_PG+LENTABL
        AND     A
        SBC     HL,DE
        PUSH    HL
        POP     BC
        PUSH    DE
        POP     HL
        INC     HL
        LDIR
        PUSH    HL
        LD      HL,PAGE
        DEC     (HL)
        POP     HL
        POP     DE
        DEC     DE
V_R22   INC     DE
        JR      V_R20
V_R30   LD      B,64
        LD      HL,RSCT
V_R31   LD      A,64
        SUB     B
        CALL    EX_RAM
        LD      A,(HL)
        LD      (IX+0),A
        INC     HL
        DJNZ    V_R31
        RET

DEBUG   PUSH    DE
        POP     HL
NO_PG1  DEC     DE
        LD      A,(DE)
        CP      #FF
        JR      Z,NO_PG2
        CP      C
        JR      NZ,NO_PG1
        SBC     HL,DE
        PUSH    HL
        POP     BC
        PUSH    DE
        POP     HL
        INC     HL
        LDIR
        PUSH    HL
        LD      HL,PAGE
        DEC     (HL)
        POP     HL
        DEC     HL
        DEC     HL
NO_PG2  EX      DE,HL
        RET

инициализациа таблицы банков, исключаются
банки 2,5.
TABINIT LD      HL,TABL_PG-1
        LD      (HL),255
        INC     HL
        XOR     A
TABI1   LD      (HL),A
TABI2   INC     A
        CP      2
        JR      Z,TABI2
        CP      5
        JR      Z,TABI2
        INC     HL
        CP      LENTABL+1
        JR      NZ,TABI1
        LD      (HL),255
        LD      HL,RSCT
        PUSH    HL
        POP     DE
        INC     DE
        LD      BC,63
        LD      (HL),B
        LDIR
        INC     B
        LD      (TYPE),BC
        RET




Другие статьи номера:

Вступление - годичный перерыв в выпуске газеты.

Обзор Warez'a - Extreme's Tracker v2.10, Universal Player v1.2, HYPERION v1.0, Z-Player v3.0 for GS, Quick Screen Viewer, BestView v2.9, Small Hrust Unpacker v2.0, Fm.COP v.3.1, All Disks Copier, Maxs Copier, HD-KIT, Real Commander v1.9, Direct Commander v3.04, E-mage WorkStation v1.0, System test v4.30, Lara Croft Mail Editor, S-Terminal, Storm Turbo Assembler, Sprite Editor, Text Print.

Обзор игр - The Cezar, 8-й Отдел, Clickmania, 4x4 Puzzle, Xixit, Tower Pod.

Железо - программирование звуковой карты для ZX Spectrum: Ultra Sound Card (DMA).

Железо - Схема аналоговой части звуковой карты DMA Ultrasound Card.

Железо - Методика отладки звуковой карты DMA Ultrasound Card.

Железо - Контроллер прямого доступа к памяти звуковой карты DMA Ultrasound Card.

Железо - Доработка контроллера дисковода для подключения 4-х дисководов.

Программирование - Структура и организация RamDisk'а в Real Commander'е.

Письма - письмо от рядового пользователя ZX Spectrum.

Авторы - авторы гызеты.


Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Проходилка - прохождение игры Crime Santa Claus.
Unit - Об объединении краснодарских железячников.
Исповедь - Rombik: Как я начал курить.

В этот день...   21 июня