Есть у кого-нибудь процедурка?
Под пентагон/реал 128к.
Есть у кого-нибудь процедурка?
Под пентагон/реал 128к.
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Полноэкранный возможен только 8х2. см. исходники IRIS'а.. часть Color movie
Код:CODE_INS1: LD B,24 INS_L PUSH BC CALL SETLINE CALL SETLINE CALL SETLINE CALL SETLINE LD BC,32 LD HL,(TO+1) ADD HL,BC LD (TO+1),HL LD HL,(TO2+1) ADD HL,BC LD (TO2+1),HL POP BC DJNZ INS_L RET SETLINE LD HL,SAMPLE1 MEMPC LD DE,COLORCODE LD BC,EOS1-SAMPLE1 LD A,(PAGE+1) XOR 10 LD (PAGE+1),A AND 8 JR NZ,$+5 DEC BC DEC BC DEC BC LDIR LD (MEMPC+1),DE RET SAMPLE1 LD SP,0 POP HL POP DE POP AF POP IX EX AF,AF' EXX POP HL POP DE POP BC POP AF TO LD SP,#D810 PUSH AF PUSH BC PUSH DE PUSH HL EXX EX AF,AF' PUSH IX PUSH AF PUSH DE PUSH HL LD SP,0 POP HL POP DE POP AF POP IX EX AF,AF' EXX POP HL POP DE POP BC POP AF TO2 LD SP,#D820 PUSH AF PUSH BC PUSH DE PUSH HL EXX EX AF,AF' PUSH IX PUSH AF PUSH DE PUSH HL PAGE: LD A,#1D OUT (C),A LD HL,#FFFF EOS1: ;---------------------------- CODE_INS2: LD DE,INSCODE LD B,48 CDI2 PUSH BC LD HL,SAMPLE2 LD BC,EOS2-SAMPLE2 LDIR LD HL,SAMPLE2+1 LD B,4 NX_ADD LD A,(HL) ADD A,123 LD (HL),A INC HL JR NC,$+3 INC (HL) INC HL INC HL INC HL DJNZ NX_ADD POP BC DJNZ CDI2 RET SAMPLE2 LD (COLORCODE+1),HL ADD HL,BC LD (COLORCODE+#1D),HL ADD HL,BC LD (COLORCODE+#3D),HL ADD HL,BC LD (COLORCODE+#59),HL ADD HL,BC EOS2:
Последний раз редактировалось drbars; 15.03.2013 в 14:55.
Код:one_int LD BC,#6FF DI LD HL,IMER LD (#BEFF),HL LD A,#BE LD I,A IM 2 BACK XOR A LD HL,LOOP EI LOOP DEC A JP (HL) IMER POP HL LD E,(HL) RL E RLA LD E,D LD D,A SUB E SUB C SBC A,A OR 4 DEC B AND B JR NZ,BACK
У меня 144 пикселя.
---------- Post added at 16:00 ---------- Previous post was at 15:59 ----------
GM BIT, прокоментируй, что это куда и как встявлять?
Запускаешь вначале, а потом кодишь кратно четырем и с одинаковым количеством тактов в каждом прерывании, вроде бы так
Работоспособность не проверял, но эту програмку много раз приводили на форуме
Последний раз редактировалось GM BIT; 15.03.2013 в 16:17.
Зачем она трогает IM2 при этом не делая табличку прерваний?
По смылу понятно только, что там выправляется первоначальная задержка
После последнего JR исправляешь IMER
на свой мультиколор LD HL,MULTICOLOR: LD (#BEFF),HL
и от im 2 будет работать твоя прога
---------- Post added at 15:22 ---------- Previous post was at 15:21 ----------
Это для упрощения, без таблички
alone, ты лучше скажи - процедура выше - адекватна?
если она в ирисе работает, то адекватна.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)