ZXNet эхоконференция «code.zx»
тема: He-he-he... Only ZX makes it possible...
от: Oleg Grigoriev
кому: All
дата: 25 May 1999
Пусть враги твои, 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. Хотел было ещё раз поругать мОА, но передумал. Смысл?
от: Dmitry Lomov
кому: Oleg Grigoriev
дата: 28 May 1999
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]
|