(c) Командин И.Г., г.Калуга Предлагаю свою программку. Это спрайтовый скроллер с воз- можностью использования спрайтов высотой от 1 до 8 знакомест и шириной от 1 до 31 знакоместа. 140. ;(C) ZX-MANIACS ;SPECIAL FOR INFORCOM 3;KALUGA'1996 ORG 40000 DX EQU 4 DY EQU 4 CALL INIT CALL SCROLL RET INIT LD HL,BUFF LD DE,BUFF+1 LD BC,DX*DY*8-1 LD (HL),0 LDIR LD HL,TEXT LD (TEXTP),HL LD HL,41000 LD (FONT),HL XOR A LD (COL),A RET SCROLL LD A,(COL) OR A JR Z,LDCOL DEC A LD (COL),A JR NEXT LDCOL CALL LDIRB LD A,DX*8 LD (COL),A NEXT LD HL,#481F ;! LD DE,BUFF+DX-1 LD B,DY LOOP PUSH BC PUSH HL LD B,8 LOOP1 PUSH BC PUSH HL EX DE,HL AND A LD B,DX LOOP3 RL (HL) DEC HL DJNZ LOOP3 EX DE,HL LD B,32 ;!! LOOP2 RL (HL) DEC HL DJNZ LOOP2 POP HL LD B,DX*2 LOOP4 INC DE DJNZ LOOP4 POP BC INC H DJNZ LOOP1 POP HL LD BC,32 ADD HL,BC POP BC DJNZ LOOP RET LDIRB LD HL,(TEXTP) LD A,(HL) OR A JR NZ,NEXTA LD HL,TEXT LD (TEXTP),HL LD A,32 ;!!! JR NEXTB NEXTA INC HL LD (TEXTP),HL NEXTB SUB 32 LD H,A LD C,DX*DY LD L,0 LD B,L LD A,8 L1 ADD HL,HL JR NC,L2 ADD HL,BC L2 DEC A JR NZ,L1 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,(FONT) ADD HL,DE LD DE,BUFF LD BC,DX*DY*8 LDIR RET COL DEFB DX*8 TEXTP DEFW TEXT FONT DEFW 41000 BUFF DEFS DX*DY*8 TEXT DEFM " MEGA SPRITE" DEFM " SCROLL IS" DEFM " WRITTEN BY" DEFM " KOMANDIN ILYA" DEFM " (ZX-MANIACS)" 3 DEFM ",KALUGA'1996" DEFB 0 2 Ну а теперь некоторые аннота- ции к этой программе. 1. Как основа для программы использовалась бегущая строка Сергея Каминского (ZX РЕВЮ N3' 1995, стр.43-45). 2. Также в программе исполь- зуется процедура MUL_3 Алексея Жильцова (ZX РЕВЮ N3'1995, стр. 35-36). 3. Хотя размеры спрайтов в процедуре и могут быть очень большими, я бы не советовал ис- пользовать спрайты больше, чем 6x6 знакомест. Во-первых, сим- вольный набор для таких спрай- тов занимает больше 27 килобайт, а во-вторых, быстродействие-то у программы не мгновенное. Если Вы работаете из Бейсика, то Вам придется отказаться от привычно- го PAUSE 1 уже при спрайтах больше чем 3x3 знакоместа. Впро- чем, в машинном коде, к счастью, Вы сможете использовать HALT да- же при довольно больших спрай- тах. 4. При набивании программы Вы должны использовать ассемблер, воспринимающий математическую операцию "умножить", или же Вам придется пересчитывать некото- рые числа вручную, что, согласи- тесь, не очень удобно. 5. Как создавать спрайтовый набор для скроллера - это уже Ваша забота, но я бы советовал использовать программу Юрия Але- хина (ZX РЕВЮ 1'95, стр.45). В принципе, ее можно с легкостью переделать для спрайтов любого размера. 6. В конец текстого сообще- ния, записанного начиная с мет- ки TEXT, программа автоматичес- ки записывает еще один пробел. Это не чудачество автора, а не- обходимость, но, если Вы хотите, чтобы выдавался не пробел, а ка- кой-либо иной символ, занесите его код в аккумулятор в строке, помеченной тремя восклицательны- ми значками. 7. Теперь настало время рас- сказать, как изменять данные скроллера. Размеры спрайта по горизонтали и по вертикали за- даются в переменных DX и DY, соответственно, в самом начале программы. Адрес байта в эк- ранной области, соответствующего правому верхнему углу окна выво- да скроллера, задается в строке с одним восклицательным знаком, а длина окна - с двумя. Внима- ние!!! Следите за тем, чтобы ок- но вывода бегущей строки не вы- ходило за пределы одной трети экрана, иначе будут глюки! 8. Запускается скроллер ана- логично программе Сергея Камин- ского - см. 1-й пункт. С уважением, ZX-MANIACS. * * * (c) Командин И.Г., г.Калуга Предлагаю процедуру проявле- ния экрана горизонтальными ли- ниями. Предлагаю полный и уп- рощенный вариант процедуры, хотя качество последнего мне, честно говоря, не нравится. 140. ;(C) ZX-MANIACS ;SPECIAL FOR INFORCOM ; ORG 40000 ENT BUFF EQU 41000 LD HL,TABL LD DE,TABL+1 LD BC,191 LD (HL),0 LDIR LD B,192 LD HL,14000 ;* LOOP PUSH BC LOOP1 PUSH HL LD A,(HL) CP 192 JR NC,CONT LD HL,TABL LD D,0 LD E,A ADD HL,DE LD B,A LD A,(HL) OR A JR NZ,CONT INC A LD (HL),A LD A,B LD C,0 CALL 8880 LD D,H LD E,L LD BC,BUFF-16384 ADD HL,BC LD BC,32 LDIR HALT POP HL POP BC DEC HL DJNZ LOOP LD HL,BUFF+6144 LD DE,22528 LD BC,768 LDIR RET CONT POP HL DEC HL JR LOOP1 TABL DEFS 192 ──────────────────────────────── ORG 40000 LD BC,400 LD HL,14000 ;* LOOP PUSH BC LOOP1 PUSH HL LD A,(HL) CP 192 JR NC,CONT LD C,0 CALL 8880 LD D,H LD E,L LD BC,BUFF-16384 ADD HL,BC LD BC,32 LDIR HALT POP HL POP BC DEC HL DEC BC LD A,B OR C JR NZ,LOOP LD HL,BUFF LD DE,16384 LD BC,6912 LDIR RET CONT POP HL DEC HL JR LOOP1 BUFF EQU 41000 2 В строках, помеченных звездо- чкой, задается адрес в ПЗУ, ис- пользуемом как генератор случай- ных чисел. Изменяя этот адрес, Вы сможете получить разные пос- ледовательности вывода картинки. Следующая процедура как бы складывает картинку из отдельных линий, падающих сверху. 140. ;(C) ZX-MANIACS ;SPECIAL FOR INFORCOM ; ORG 40000 BUFF EQU 41000 LD A,191 LD BC,49152 LOOP PUSH BC PUSH AF CALL 8880 LD DE,BUFF-16384 ADD HL,DE POP AF PUSH AF INC A LD B,A XOR A LOOP1 PUSH BC PUSH AF PUSH HL CALL 8880 EX DE,HL POP HL PUSH HL LD BC,32 LDIR POP HL ;* POP AF PUSH AF 140. PUSH HL DEC A CALL 8880 LD D,H LD E,L INC DE LD (HL),0 LD BC,31 LDIR LD B,250 PAUSE NOP NOP DJNZ PAUSE ;** POP HL POP AF INC A POP BC DJNZ LOOP1 POP AF DEC A POP BC DJNZ LOOP LD HL,BUFF+6144 LD DE,22528 LD BC,768 LDIR RET 2 Скорость падения линий можно менять, изменяя число в строке перед меткой PAUSE. При ма- ленькой задержке изображение у меня начинало заметно дрожать. В принципе, я склонен отнести все это к чудачествам моего ком- пьютера (у меня, например, очень сильно дрожит экран в LASER SQUAD), но кто знает... Если стереть все строки, начиная со строки, помеченной звездочкой, и вплоть до строки с двумя звез- дочками (включительно), то полу- чится самая короткая из ког- да-либо предлагавшихся программ "наливания" экрана. Следующая программа проявляет экран довольно замороченным об- разом, поэтому я даже не буду пытаться описывать ее действие словами. Могу лишь посоветовать поизменять число в строке со звездочкой и посмотреть, что выйдет (попробуйте поставить ту- да, например, число 190). 140. ;(C) ZX-MANIACS ; ORG 40000 BUFF EQU 41000 LD B,192 LD HL,#4000 LD DE,22497 LOOP PUSH BC PUSH HL PUSH DE LD A,255 ;* LD B,16 LOOP1 LD (HL),A INC HL INC HL LD (DE),A INC DE INC DE DJNZ LOOP1 POP DE CALL UP POP HL CALL DOWN POP BC HALT DJNZ LOOP LD HL,#4001 LD DE,22496 LD B,192 LOOP2 PUSH BC PUSH HL PUSH DE LD B,16 LOOP3 PUSH BC LD BC,BUFF-16384 ADD HL,BC LD A,(HL) SBC HL,BC LD (HL),A INC HL INC HL EX DE,HL ADD HL,BC LD A,(HL) SBC HL,BC LD (HL),A EX DE,HL INC DE INC DE POP BC DJNZ LOOP3 POP DE CALL UP POP HL CALL DOWN POP BC HALT DJNZ LOOP2 LD HL,BUFF+6144 LD DE,22528 LD BC,768 LDIR RET DOWN INC H LD A,H AND 7 RET NZ LD A,L ADD A,32 LD L,A RET C LD A,H SUB 8 LD H,A RET UP DEC D LD A,D AND 7 CP 7 RET NZ LD A,E SUB 32 LD E,A RET C LD A,D ADD A,8 LD D,A RET 2 * * *