У зонова ещё вдобавок с головой проблем не было, в отличие от... :D
Вид для печати
У зонова ещё вдобавок с головой проблем не было, в отличие от... :D
Ну, кого это волнует? Компы были - были, хорошие - более-менее, а что там с головой так то пох...Цитата:
Сообщение от Электрик
Кста Зонов мегатерпеливый чувак - на каком-то инлайте (есть аудиозаписи) мегатерпеливо объяснял бухому рст7 и ещё кому-то, как у него плмка в гмхе работает, а те то ли спьяну тупили, то ли пытались над Зоновым издеваться (опять же спьяну)... Я бы не вытерпел - послал бы нах таких придурков...
Да, помню распечатка была в ламержи или в какой подобной шняге. :) Там кстати Зонов сам непонятно объяснял - типа схема зашита в ПЗУ, но это _НЕ_ альтера или что-то подобное, просто ПЗУ... От чего RST7 собственно и тупил.
Вот пример 8-цветного бордюрного эффекта в верхней части экрана для виртуального скорпиона (на реальном не проверял). Хочется упомянуть об одной особенности при создании мультиколор и бордюрных эффектов. Если число тактов за прерывание не равно 69888, то изображение будет скакать. И еще, если необходимо точно совместить бордюрную картинку и экран необходимо настроить INT точно на начало прерывания, например как это делалось в ZX-Ревю 96 4-5
Древнючий исход мультиколорной спирали. Тормозной декранчинг, ничего не переделывал, оставил как есть. Есть еще и полноэкранная версия, но там перерасчет медленный очень
Код:MACRO WAIT ;374
LD B,33 ;7,5
DJNZ $ ;13,5*Q-5,5
NOP ;8
NOP ; E=455,5
ENDM
RAD EQU 37
ORG 24576
CALL CALCTAB
CALL CALCUS
LD HL,16384
LD DE,16385
LD BC,4095
LD (HL),15
LDIR
LD HL,PLAY
LD (#FBFF),HL
LD A,251
LD I,A
IM 2
EI
LD HL,DATA
LD DE,BUFFER
LD BC,1536
LDIR
CYCL
HALT
CALL RECALC
LD HL,(PREW+1)
LD A,#FB
IN A,(254)
RRA
JR C,W1
LD A,H
OR L
JR Z,W1
DEC HL
W1 LD A,#FD
IN A,(254)
RRA
JR C,W2
INC HL
W2 LD (PREW+1),HL
LD A,(FINE+1)
LD B,A
LD A,#DF
IN A,(254)
RRA
LD C,A
JR C,L1
LD A,B
INC A
JR Z,L1
LD B,A
L1 RR C
JR C,L2
LD A,B
AND A
JR Z,L2
DEC B
L2 LD A,B
LD (FINE+1),A
LD A,191
IN A,(254)
RRA
JR C,CYCL
IM 1
EI
RET
PLAY PUSH AF,BC,DE,HL
EXX
EX AF,AF'
PUSH AF,BC,DE,HL,IX,IY
ZADA CALL TASK
POP IY,IX,HL,DE,BC,AF
EXX
EX AF,AF'
POP HL,DE,BC,AF
EI
RET
TASK
PREW LD HL,665
INC HL
DEL DEC HL
LD A,H
OR L
JR NZ,DEL
FINE LD A,0
INC A
DEL1 DEC A
JR NZ,DEL1
LD IX,BUFFER
PUTMLT1 ;IX-SOURCE
ADR1=22528
LD (STAKA+1),SP
DUP 16
DUP 2
LD SP,IX
POP HL,DE,BC,AF
EXX
EX AF,AF'
POP HL,DE,BC,AF
LD SP,ADR1+16
PUSH AF,BC,DE,HL
EXX
EX AF,AF'
PUSH AF,BC,DE,HL
LD DE,16
ADD IX,DE
LD SP,IX
POP HL,DE,BC,AF
EXX
EX AF,AF'
POP HL,DE,BC,AF
LD SP,ADR1+32
PUSH AF,BC,DE,HL
EXX
EX AF,AF'
PUSH AF,BC,DE,HL
LD DE,16
ADD IX,DE
WAIT
EDUP
ADR1=ADR1+32
EDUP
STAKA LD SP,0
RET
CALCTAB LD HL,RECTAB
RETY LD A,L
SUB 8
AND 56
LD E,A
LD A,L
DEC A
AND 7
OR E
LD (HL),A
INC L
JR NZ,RETY
RET
CALCUS LD B,RAD
LD C,0
ICY PUSH BC
PUSH BC
LD A,RAD
SUB B
LD (ORO+1),A
LD (ARA+1),A
LD L,A
LD A,C
CALL LSINA
SUB 16
NEG
LD L,A
PUSH HL
ARA LD L,0
LD A,C
ADD A,64
CALL LSINA
ADD A,32
LD E,A
POP HL
POP BC
LD A,C
ORO ADD A,0
AND 28
RRA
RRA
LD C,A
CALL PLOT
POP BC
INC C
JR NZ,ICY
DJNZ ICY
RET
RECALC LD DE,BUFFER
LD HL,RECTAB
LD BC,1024
REC LD A,(DE)
LD L,A
LDI
JP PE,REC
RET
PLOT LD A,L ;L-Y
CP 32 ;E-X
RET NC ;C-COLOR
LD A,E
CP 64
RET NC
LD H,0
DUP 5
ADD HL,HL
EDUP
LD B,56
RR E
JR C,ORE
LD B,7
AND A
RL C
RL C
RL C
ORE LD D,'DATA
ADD HL,DE
LD A,(HL)
AND B
OR C
LD (HL),A
RET
LSINA ;A=L*SIN A
LD D,'SINUS
LD E,A
LD A,(DE)
AND A
JP M,NEGE
BIT 7,L
JR Z,ALPOS
EX AF,AF'
LD A,L
NEG
LD L,A
EX AF,AF'
JR NEGRES
ALPOS CALL MULS
ADD HL,HL
LD A,H
RET
NEGE NEG
BIT 7,L
JR Z,NEGRES
EX AF,AF'
LD A,L
NEG
LD L,A
EX AF,AF'
JR ALPOS
NEGRES CALL MULS
ADD HL,HL
LD A,H
NEG
RET
MULS ;HL=L*A
LD DE,0
LD H,E
CWERT DUP 8
RRA
JR NC,$+5
EX DE,HL
ADD HL,DE
EX DE,HL
ADD HL,HL
EDUP
EX DE,HL
RET
MULT LD HL,0 ;HL=DE*A
EX DE,HL
JR CWERT
DIV XOR A ;BC=HL/DE HL- остаток
LD B,A
LD C,A
SUBU SBC HL,DE
JR C,ZI
INC BC
JR SUBU
DIVIS XOR A ;A=HL/DE HL- остаток
SUBU1 SBC HL,DE
JR C,ZI
INC A
JR SUBU1
ZI ADD HL,DE
RET
DIVI ;C=A/B A-остаток
INC B
DEC B
RET Z
LD C,0
AND A
SUBU2 SUB B
JR C,ZU
INC C
JR SUBU2
ZU ADD A,B
RET
ORG '($-1)+1*256
SINUS INCBIN "SINUS
BUFFER DEFS 1536
DATA DEFS 1536
RECTAB DEFS 255
ORG 24576
Не, плохо. У меня тогда складывалось ощущение, что Зонов созревал на то, чтобы скрестить gmx со Скорпом не на соплях, а на единой плате, выкинув лишнее и оставив слоты. Была бы прикольная компактная плата без соплей и с выбором схемы.Цитата:
Сообщение от Titus
Чем именно кай может сравниться? Не вспоминается мне что-то для кая теневик, ппзу и вагон плат...Цитата:
Сообщение от lvd
E'97 - Зонов, rst#7 и kan0.Цитата:
Сообщение от lvd
rst, как я подозреваю, помимо того, что был пьян, скорп тогда видел, наверное, только мой (плата sc-12, желтая, с кучей мгтф-а), на котором сатис-2 финально собирал. Поэтому, наверное, и не врубался какая еще зеленая плата, какой еще гмх... ;-)