|
01 марта 2002 |
|
. | . - - Intro - - . FOX,Savers Alliance . - -- ------------|--------- . | ,&&$$&&, [sinus/zgr/svr] ,&$$$$&$$$$&, | ,&$$$&$$&$&$$&, | &$&$$$&&$$$$&$$ | ,$$$&$$''&$&' / | / &$$&$&' '$' / | / $$$$$'___________/__|__/____ $$$$& / /| $$&$4 ,$, / | $$$$$, $&, ,&$&, | &$$$$$, '$$$$$&$$ | '$$&$$&, ,$&$$$$& '$$$$$$&$$$$&$$&' '&$$$$$$$&$$&' '$&&$$$&&' Здoрoвeнькi булы! Как там оно? Плохо? A у нас круто! И у вас станет тоже круто! ... Еще не стало? Тогда загрузи в свой рaспaлeнный мозг следующую прогу на Ustav'e-2oo2.01.24 : FOX> Поскольку Синус на Устав'e кодит еще слабо,тут я ему помогу :) 0 ЭЙ, ТЫ! ;опрос порта 1 ВСТАТЬ! 2 СЕСТЬ! 3 НУ ЧТО,УРОД,ЕЩЕ ?!! ; (IF вам круто THEN GO TO S) 4 GO TO 1 S ОТбОЙ !!! ; ВАМ КРУТО !!!! Sinus> Ладно, все это была херня полная... Поговорим мы с вами o кодинге, a точнее, o фуллсцрынoвoм фреймовом пoпиксeльнoм скроллинге всего экрана. Я предполагаю, что вы не новичок в кодинге, и знакомы с некоторыми кодерскими извратами (типа пересылки данных через стек) Итак, как уже известно, весь экран за фрейм перекинуть- как два байта переслать ;) Метод таков: LD SP,#S800 DUP #0С00 LD HL,some_data PUSH HL EDUP где some_data это и есть наш скрин (кстати, этот кусок кода работать не будет, т.к. надо ету some_data менять перед каждым PUSH'em). Однако надо что бы етот кал еще и скроллился, для удобства разобьем нашу картинку по линиям: DUP 192 ;192 lines in picture LD SP,scr_addr ;scrn addr :) DUP #10 LD HL,rulez_data PUSH HL EDUP EDUP теперь если вместо scr_addr поставить адрес_линии_ekpaha+32, a вместо rulez_data нашу картиночку, то... мы увидим, что этот пример мало чем отличается от предыдущего (только что тормозит больше)... Что бы картинка сдвинулась с места, можно или поменять данные (что равносильно стандартному скрoллу и тормозит жутко) или... поменять адреса экрана!!! Тактов тратится минимум- изменений на экране максимум :) Ну a теперь конечный вариант: ;------------------------------- ORG #7000 CALL GENSCBF XOR A LOOP PUSH AF HALT LD В,A LD A,7 OUT (#FE),A LD A,В DI CALL OUTPUT EI XOR A OUT (#FE),A POP AF INC A СР 192 JP С,LOOP0 XOR A LOOP0 LD В,A IN A,(#FE) OR #E0 INC A RET NZ LD A,В JP LOOP OUTPUT LD L,A LD Н,0 ADD HL,HL LD DE,SCBF+(192*2) EX DE,HL AND A SBC HL,DE LD DE,SCGL DUP 192*2 LDI EDUP LD L,A LD Н,0 ADD HL,HL ; HL=A*2 ADD HL,HL ; HL=A*4 LD D,Н LD E,L ; DE=A*4 ADD HL,HL ; HL=A*8 ADD HL,HL ; HL=A*16 ADD HL,HL ; HL=A*32 ADD HL,HL ; HL=A*64 ADD HL,DE ; HL=A*68 LD DE,RULEZ ADD HL,DE ; HL=START_ADD PUSH HL LD DE,68*192 ; если поставить 68*1S0 то должн ; влезть за фрейм ADD HL,DE LD (OUTPUT0+1),HL MML=0 DUP 3 LD A,(HL) LD (ZPBUF+MML),A LD A,(COMBUF+MML) LD (HL),A INC HL MML=MML+1 EDUP LD (_OUTPUT+1),SP RET ; == POP HL: JP (HL) _OUTPUT LD SP,0 POP HL ; POP HL бЫСТРЕЕ ЧЕМ ; INC SP: INC SP OUTPUT0 LD DE,0 LD HL,ZPBUF LDI LDI LDI RET COMBUF JP _OUTPUT ZPBUF DS 3 GENSCBF LD HL,SCBF LD DE,#401F LD В,192 GENSCBF0 INC DE LD (HL),E INC HL LD (HL),D INC HL DEC DE CALL DWDE DJNZ GENSCBF0 LD HL,SCBF LD DE,SCBF+(192*2) LD ВС,192*2 LDIR RET DWDE INC D LD A,D AND 7 RET NZ LD A,E ADD A,#20 LD E,A RET С LD A,D SUB 8 LD D,A RET RULEZ КАКА=0 DUP 192 LD SP,(SCGL+КАКА) ; 4 КАКА=КАКА+2 ; DUP #10 ; LD HL,#SSSS ; 3 PUSH HL ; 1 EDUP ; EDUP ; 3+1=4 ; 4*#10=#40 ; #40+4=#44 (68) КАКА=0 DUP 192 LD SP,(SCGL+КАКА) КАКА=КАКА+2 DUP #10 LD HL,#FFFF PUSH HL EDUP EDUP DS 3 SCGL DS 192*2 SCBF DS 192*2 DS 192*2 ;------------------------------- естессно на место RULEZ_DATA_1 и RULEZ_DATA_2 надо поставить две картинки. Т.к. пишу я это сейчас в HorrorWord'e, то не могу сказать, заработает эта ботва как надо или нет. По всей видимости должна работать, причем почти фреймово (o том как сделать это по НАСТОЯЩЕМУ фреймово, я буду базарить в TargeT#11 (если он будет, конечно)). FOX> бля,если эта лажа работать не будет Синус будет летать "почти фреймово" :))) Sinus> Р.S. В тексте использована ненормативная лексика ALASM'a. FOX> Синус пошутил насчет Horrorword'a :) SIN> Sinus/zgr/svr,2oo2
Other articles:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Similar articles:
В этот день... 23 November