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]




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

Похожие статьи:

В этот день...   7 декабря