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

Пусть враги твои, All, умрут без сыновей! ────[ Здесь начинается файл ZZ .C ]─────────────────────── ORG #8000:DI LD A,#04:OUT (#FD) LD A,#3C:OUT (#FF) LD HL,#0000,DE,HL LD A,#08 Z0 OUT (#1F) EXX LD A,#10,BC,#FABE:OUT A LD B,#FF IN A:BIT 6,A:JP Z,$-#04 LD A,#10,B,#FA:OUT A LD A,#20,B,#FF:OUT A LD HL,#5000 LD DE,#D8F8 EXX CALL #3EF5:DI Z1 EXX LD B,#FF IN A:BIT 7,A:JP NZ,$-#04 RRCA RET C RES 3,H CALL RDHALF EXX L0 LD A,E:INC A:OUT (#5F) LD BC,#017F LD A,#80:OUT (#1F) PUSH DE:LD D,C:CALL #3FD7 INC D:DEC D:POP DE:JR Z,L0 EXX CALL RDHALF EXX INC E L1 LD A,E:INC A:OUT (#5F) LD BC,#017F LD A,#80:OUT (#1F) PUSH DE:LD D,C:CALL #3FD7 INC D:DEC D:POP DE:JR Z,L1 INC E:BIT 4,E:JR Z,Z1 LD H,#40 LD E,#00 INC D:BIT 0,D:JR Z,AAA LD A,#2C:OUT (#FF):JR Z1 AAA LD A,#3C:OUT (#FF) LD A,#A0:CP D:LD A,#58:JP NZ,Z0 XOR A:OUT (#FD) RET ;*************************************** ; RDHALF LD B,E:INI:LD B,D:INI ;1 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;2 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;3 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;4 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;5 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;6 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;7 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI ;8 LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI LD B,E:INI:LD B,D:INI RET ────[ Здесь кончается файл ZZ .C ]──────────────────────── Софтина для винтового скорпа имеющего прямой доступ к портам дос. Hадеюсь, такого адского монстра имею не только я... Оно в штормовом виде. Последовательно читает весь диск, а в промежутках между секторами умудряется засосать и 256 байт с винта. Итак, как показала практика, время копирования винт <=> диск можно сократить до физического ограничения флопа. Соответственно, у меня в голове сейчас бродят мысли по поводу написания свирепейшего копира... :) Одно но: когда винт шагает на следующий цилиндр, происходит подтормаживание на .2 сек из-за того, что нужный сектор флопа уже пролетел под головой... Возможно это не будет происходить на винтах, которые шагают меньше чем за 15мкс. (А подключают ли к Спектруму такие?) Этот недостаток обходится при копировании флоп => винт за счёт использования циклического буфера. Банки на мой взгляд за глаза. А вот с копированием винт => флоп проблема. От тормозни не избавиться. Данные гонятся на флоп, а тормозит-то винт - следовательно, писать на флоп просто нечего - тормозня. Можно правда попробовать вначале прочитать в тот же циклический буфер десяток-другой секторов с винта, а потом при тормозне винта постепенно сокращать разрыв. Гм... А это идея... Вот так-то, господа... Hадо кому? А-то такой скорп, кажется, ещё только у Jason'а... WBR, Oleg. ps. Хотел было ещё раз поругать мОА, но передумал. Смысл?

Hello, Oleg! Однажды, Втp Май 25 1999 11:37, Oleg Grigoriev писал к All о [He-he-he... Only ZX makes it possible...]: [вырезанно за ненадобностью] OG> RDHALF LD B,E:INI:LD B,D:INI ;1 OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI OG> LD B,E:INI:LD B,D:INI позор! .16 LD B,E:INI:LD B,D:INI :-) Всего хорошего. Дмитрий. ..LD..X-TRADE.. [ZX]