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

* Message from gate SpbZxNet<=>FidoNet. Hа днях, 21 июня 97, в 04:16, Aleksandr Majorov писал к Denis Parinov: Рад приветствотать тебя, Aleksandr! AM>>> Список всех рестартов дам позжее... DP>> Када? AM> скоро-скоро... AM> ТОка пожалеешь ты об этом... Ж8-( ) Уже пожалел!!! AM> --------------- отсюдава --------------- [skip] LD L,A LD H,0 ; Считаем ADD HL,HL ; начальный ADD HL,HL ; адрес(смещение) ADD HL,HL ; на рамдиске ADD HL,HL EX AF,AF' ADD A,L JP NC,L000 INC H L000 LD L,A AM> -------------- досюдава ---------------- AM> зЫ-зЫ! AM> Глюк-с: насколько я понял ты номер сектора AM> [E] прибавляешь к амладш. байту дресу? AM> Дык размер сека - 256 байт = #0100 Hу я так и знал, что в моем творении кто нить запутается :( в HL мы имеем смещение в секторах см. ниже, а не в байтах. AM> Далее: подсчетом такого типа мы теряем AM> на рам-диске 7 секторов! 1792 байта!!! AM> (tkr0, sec 9...15)!!! Hу яж спрашивал - обычный диск или свой формат. AM> А теперь по существу: AM> как раз основные 128К трогать низзя, т.е. AM> рам-диск под себя берет верхнюю пямять => AM> отпадает необходимость в табличке страниц. Хе-хе, как-же не трогать, а как в нее грузить то? Hу ладно повторим: FIRST_B EQU 8 ; RAMdisk начинается с ; логического банка 8 POINT1 RET ; Резерв для винта NOP NOP POINT2 LD A,E ; Точка входа. EX AF,AF' LD A,D ; Берём трек 'D' PUSH HL EXX LD L,A ; Считаем LD H,0 ; сколько ADD HL,HL ; это будет ADD HL,HL ; в секторах ADD HL,HL ; ADD HL,HL ; EX AF,AF' ADD A,L ; прибавляем JP NC,L000 ; секторы из 'E' INC H ; в HL имеем смещение L000 LD L,A ; _в секторах_ ; LD DE,7 ; AND A ; SBC HL,DE ; где-то здесь надо отнят 7 секторов ; если дорожка не нулевая, чтоб память ; съэкономить ;) EXX LD A,C ; запоминаем команду EX AF,AF' ; читать/писать LD A,B LD C,#10 ; делаем ADD A,E ; E + B = Всего секторов L001 CCF SUB C ; отнимаем дорожку JP C,L002 ; если дорожки закончились! INC D ; иначе продалжаем. JP L001 L002 ADD A,C LD E,A ; кладем в 'E' EXX LD BC,#0040 ; считаем LD A,FIRST_B ; банк NBANK SBC HL,BC ; - #40 секторов (банк) JP C,BANK_OK INC A JP NBANK BANK_OK ADD HL,BC LD (FROMRAM+1),A ;читать из полученого банка LD A,(IY+5) ; банк в который AND #07 LD (TORAM+1),A ; производить чтение/запись LD H,L ; в HL смещение в секторах LD L,0 ; в пределах одного банка LD DE,#C000 ; умножаем на 256 прибавляем ADD HL,DE ; адрес начала банка EX AF,AF' ; в HL имеем адрес на RAMе OR A ; Что была за команда? JP Z,NOSAVE ; чтение. EX (SP),HL ; нет запись. LD A,(FROMRAM+1) LD (TORAM+1),A ; меняем параметры LD A,(IY+5) ; наоборот AND #07 LD (FROMRAM+1),A NOSAVE EXX LD A,B EXX LOADING EX AF,AF' CALL FROMRAM ; Source bank LD DE,BUF LD BC,#0100 LDIR BIT 7,H ; это был последн. CALL Z,INCFROM ; сектор в банке EX (SP),HL EX DE,HL CALL TORAM ; Destination bank LD HL,BUF LD BC,#0100 LDIR EX DE,HL BIT 7,H CALL Z,INCTO EX (SP),HL EX AF,AF' DEC A JP NZ,LOADING LD BC,#1FFD ; Off расширенную память XOR A OUT (C),A LD A,(IY+5) OR #10 LD B,#7F OUT (C),A EXX POP HL RET INCTO LD A,(TORAM+1) INC A LD (TORAM+1),A SET 7,H SET 6,H RET TORAM LD A,#00 PUSH HL PUSH BC LD B,0 LD C,A LD HL,RAMS ADD HL,BC LD BC,#1FFD LD A,(HL) LD L,A RLCA AND #10 OUT (C),A LD A,L LD B,#7F AND #07 OR #10 OUT (C),A POP BC POP HL RET INCFROM LD A,(FROMRAM+1) INC A LD (FROMRAM+1),A SET 7,H SET 6,H RET FROMRAM LD A,#00 PUSH HL PUSH BC LD B,0 LD C,A LD HL,RAMS ADD HL,BC LD BC,#1FFD LD A,(HL) LD L,A RLCA AND #10 OUT (C),A LD B,#7F LD A,L AND #07 OR #10 OUT (C),A POP BC POP HL RET RAMS DB #00,#01,#03,#04,#05,#06,#07 ;128K memory DB #0F,#0E,#0D,#0C,#0B,#0A,#09,#08 ;перевернутый RAMdisk ; а насчет таблицы, имхо лучше с ней ; тогда можно RAMdisk конфигурировать ; чтоб тень не затирал! BUF DS 256,0 ; секторный буфер Прог сделал на Scorpion, но _не проверял_! Спринтер вот с отладчиком подружу тада другое дело будет. P.S. Кста, а если в компе процессор 14 или 28 MHz, как MMDешку подружить? Тормаза чтоль ставить :(? Hеохото! AM> А я ...этот, как меня там?.... А! AM> Aleksandr (*MAS*) С уважением, Denis. -+- ZX WORD 2.5+ + Origin: SpbZxNet.org (812/08.16)