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

Hемедленно нажми на RESET, Sergey! 27 Mar 01 11:23, Sergey Selev wrote to All: SS> Hужно описание портов сабжа. Базовый адрес: %xxxxxxxx aaacc11h 21010 <- части адреса x = любой бит a = адресная часть регистра накопителя: a0, a1, a2 c = CSx выбор банка регистров 0/1. h = если (1) то происходит запись/чтение из регистра хранящего старшую половину шины адреса. При записис 16-битных чисел в накопитель необходимо сначала записать старшую половину числа в этот регистр (при этом значения _a_ и _c_ битов не важно), а потом записать в нужный регистр младшую половину. При чтении из накопителя 16-битных чисел после считывания из основного регистра младшей половины можно из этого регистра считать старшую часть числа. Таким образом получается: #xx10 младшая половина регистра данных #xx30 регистр свойств и ошибок.... ..... #xxF0 регистр команд и статуса #xxC8 альтернативный регистр статуса и управления устройством Описание регистров смотри в доке на IDE интерфейс. Вот пример (не тестированный, не работающий, не дописанный и вообще не смотри на него): === Cut === file: nemo_hdd.inc ; nemo-hdd controller ctlr equ 0xff08 ctlr equ 0xff10 has equ ctlr+0xc0 hdc equ ctlr+0xc0 hdr equ cmdr+0x00 her equ cmdr+0x20 ; r hfr equ cmdr+0x20 ; w hsc equ cmdr+0x40 hsn equ cmdr+0x60 hcl equ cmdr+0x80 hch equ cmdr+0xa0 hdh equ cmdr+0xc0 hsr equ cmdr+0xe0 ; r hcr equ cmdr+0xe0 ; w hdrh equ hdr+0x01 === Cut === === Cut === file: nemo_ctl.as include nemo_hdd.inc public idewrr, iderdr public idewrb, iderdb public idedev ; write DE to IDE register BC (get reg. addr. from nemo_hdd.inc etc...) idewrr: inc c out (c), d dec c out (c), e ret ; read IDE register BC to DE iderdr: in e, (c) inc c in d, (c) dec c ret ; read data block (512 bytes) in PIO mode from IDE device to (HL++) iderdb: ld bc, hdr ld a, 64 rdb1: ini inc c ini dec c ini inc c ini dec c ini inc c ini dec c ini inc c ini dec c dec a jr nz, rdb1 ret ; write data block (512 bytes) in PIO mode to IDE device from (HL++) idewrb: ld bc, hdr ld a, 64 wrb1: inc hl inc c outd dec c outi inc hl inc hl inc c outd dec c outi inc hl inc hl inc c outd dec c outi inc hl inc hl inc c outd dec c outi inc hl dec a jr nz, wrb1 ret === Cut === === Cut === file: ide_comm.inc ; hdd commands sbsy equ 0x80 ; status register masks sdrdy equ 0x40 sdf equ 0x20 ssdc equ 0x10 sdrq equ 0x08 scorr equ 0x04 sidx equ 0x02 serr equ 0x01 mdev equ 0x10 ; head/dev register bits mlba equ 0x40 hdiag equ 0x90 ; commands hident equ 0xec hinit equ 0x91 hnop equ 0x00 hrdbuf equ 0xe4 hread equ 0x20 hverify equ 0x40 hrecal equ 0x10 hseek equ 0x70 hfeaut equ 0xef hwrbuf equ 0xe8 hwrsam equ 0xe9 hwrite equ 0x30 hstdby0 equ 0x94 hstdby1 equ 0xe0 hrdmult equ 0xc4 hwrmult equ 0xc5 hrdlong equ 0x22 hwrlong equ 0x32 hsetmul equ 0xc6 === Cut === === Cut === file: ide_comm.as include ide_comm.inc extrn idewrr, iderdr, idewrb, idewrb public idebsy, iderdy, ide_dh, chslba, lbachs ; convert LBA to CHS ; dehl=lba address, de=CylinderSize, c=Sectors ; -> hl=cylinder, d=head, e=sector ; CylinderSize = Heads * Sectors ; CYL=LBA/CylinderSize temp1=LBA%CylinderSize ; HEAD=temp1/Sectors temp2=temp1%Sectors ; SEC=temp2+1 ; lbachs: ; hl=dehl(28bit)/de' hl'=dehl%de' ld hl, 0 exx add hl, hl rl e rl d add hl, hl rl e rl d add hl, hl rl e rl d add hl, hl rl e rl d ; skip 4 bits (32-28) ld b, 28 lbadiv1: add hl, hl rl e rl d exx adc hl, hl sbc hl, de exx jr nc, lbadiv2 exx add hl, de exx dec l ldadic2: inc l djnz lbadiv1 push hl ; store cylinder exx ; hl=temp1 ; hl=hl/c a=hl%c ld b, 16 xor a lbadiv3: add hl, hl rla sbc a, c jr nc, lbadiv4 add a, c dec l lbadiv4: inc l djnz lbadiv3 ld d, l ; head inc a ld e, a ; sector pop hl ; cylinder ret ; convert CHS to LBA ; hl=cylinder, d=head, e=sector, b=Heads, c=Sectors ; -> dehl=lba address ; LBA=(CYL*Heads+HEAD)*Sectors+SEC-1 ; chslba: push de ; store head and sector push bc ; store Sectors ex de, hl ; de=cylinder ld c, b ; c=Heads ; ahl=de*c ld hl, 0 xor a ld b, 8 chsmul1: add hl, hl adc a, a rl c jr nc, chsmul2 add hl, de adc a, 0 chsmul2: djnz chsmul1 pop bc ; c=Sectors pop de ; d=head, e=sector ld b, c ld c, d ld d, b ld b, 0 ; bc=head, d=Sectors, e=sector add hl, bc adc a, 0 ex de, hl ; de=hl exx ld e, a ld hl, 0 ld d, l ; de'=a exx ld c, l ; c=sector ld a, h ; a=Sectors ld hl, 0 ; hl'hl=de'de*a ld b, 8 chsmul3: add hl, hl exx adc hl, hl exx rla jr nc, chsmul4 add hl, de exx adc hl, de exx chsmul4: djnz chsmul3 dec c ; bc=sector-1 add hl, bc push hl exx ex de, hl pop hl rl e rl d ; dehl=hl'hl+bc ret ; set dev/head register (lba/chs mode, device and head) ; a=mode lba=1/chs=0, d=head , e=device ide_dh: or a jr z, idedh1 ld a, mlba idedh1: bit 0, e jr z, idedh2 or mdev idedh2: or d ld e, a ld bc, hdh jp idewrr ; wait while selected ide device is busy ; return a=status reg, cy=1 if timeout idebsy: call itimer ld (bsytm1), hl bsyw: ld bc, has call iderdr ld a, e and sbsy ld a, e ret z ; not busy now push de call itimer ld de, 0 bsytm1 equ $-2 or a sbc hl, de ld de, idetio ; max. timeout or a sbc hl, de pop de jr c, bsyw ld a, e scf ; timeout ret ; wait while selected ide device is not ready ; return a=status reg, cy=1 if timeout iderdy: call itimer ld (rdytm1), hl rdyw: ld bc, hsr call iderdr ld a, e and sdrdy ld a, e ret nz ; ready now push de call itimer ld de, 0 rdytm1 equ $-2 or a sbc hl, de ld de, idetio ; max. timeout or a sbc hl, de pop de jr c, rdyw ld a, e scf ; timeout ret === Cut ===

On Sun 8 Apr 2001, Denis Kitel wrote: DK>>> Попробуй у Hемо спроси. :))) SS>> У него сети нет, насколько я знаю. DK> И не будет никогда, этот г.Nemo почему-то против сетей, и DK> порты винта не желает раскрывать, аргументируя это тем, что DK> люди сразу-же начнут писать свои "левые" проги и драйвера, DK> и начнётся всемирный хаос! :( А ему от этого плохо станет? Кста! Можно поковырять is-dos драйдера и выудить адреса, если кому очень надо. Лично от KAY'ев не жарко не холодно. Бесит только одно: неужели в конце 20 века нельзя было fdd контроллер на плате развести. Да еще и на 2 девайся only! E-mail: zs80@nm.ru ~/ <~ http://www.zx.ru/zs/ ZXNet: 500:8462/1 /_ _> ftp://zx-museum.org.ru/zs/

Приветствую тебя, Sergey Как-то Пятница 20 Апрель 2001 в 17:45:10 мылил Sergey Zotov к Denis Kitel на тему Nemo HDD DK>>>> Попробуй у Hемо спроси. :))) SS>>> У него сети нет, насколько я знаю. DK>> И не будет никогда, этот г.Nemo почему-то против сетей, и DK>> порты винта не желает раскрывать, аргументируя это тем, DK>> что DK>> люди сразу-же начнут писать свои "левые" проги и драйвера, DK>> и начнётся всемирный хаос! :( SZ> А ему от этого плохо станет? SZ> Кста! Можно поковырять is-dos драйдера и выудить адреса, Hезачем фигней страдать - есть адреса: ═══════════════════ порты.tx.C ══════════════════ ================== begin of file "NemoHDD .C" ================== DATL EQU #10 ;10:Младший байт регистра данных DATH EQU DATL+1 ;11:Старший байт регистра данных ERRF EQU DATL+#20 ;31:Рг ошибок SCNT EQU ERRF+#20 ;51:Рг счетчика сектора SNMB EQU SCNT+#20 ;71:Рг н-ра сектора CYLL EQU SNMB+#20 ;91:Рг н-ра цилиндра (младший) CYLH EQU CYLL+#20 ;B1:Рг н-ра цилиндра (старший) SDH EQU CYLH+#20 ;D1:Рг н-ра привода и головки RSTA EQU SDH+#20 ;F1:Рг состояния RCOM EQU RSTA ;F1:Рг команд ASR EQU #C8 ;Alter Stat Rg FDR EQU #C8 ;Fixed disk Rg DIR EQU #E8 ;Dig In Rg SYSR EQU #F8 ;сис рг ================== end of file "NemoHDD.C" ================== . ════════════════════════════════════════════════ SZ> если кому очень надо. Лично от KAY'ев не жарко не холодно. SZ> Бесит только одно: неужели в конце 20 века нельзя было fdd SZ> контроллер на плате развести. Да еще и на 2 девайся only! САЁ:НАРА, ДО:ДЗЕ О-ГЭНКИ-ДЭ, Evgeny Poddubny.

Привет Sergey! 30 Апр 01 01:31, Sergey Zotov -> Stanislav Udin: SU>> Можно было, конечно, но Hемо pасчитывал потом сделать SU>> отдельный контpоллеp HDD+FDD и вставлять в один слот. SU>> Видимо что-то не сpослось y него. SZ> И imho никогда теперь уже не срастется. А страдают юзеры данной SZ> машины. :/ В любом случае два свободных слота в КАЕ - это больше, чем один свободный слот в Скорпионе. SZ>>> Да еще и на 2 девайся only! SU>> А зачем больше? SZ> У меня 2 пятерки и 1 тройка? Большинство имеют только пятерки, вот и SZ> мне надо копировать в 5 на 5, т.к. даже имея винт на него все не SZ> положишь. А тройко я пользуюсь для всязи с pc. У меня Скорп и мне пришлось отказаться от одной пятерки в пользу тройки. Вначале мучался, но затем привык пользоваться только двумя дисководами. SZ> Hа мой желтый Скорп при поможи 2х микросхем было подвешало еще 2 SZ> дисковода к имевшимся 2м. А на KAY так можно сделать? Понятия не имею :) Stanislav