Важная информация

User Tag List

Страница 1 из 3 123 ПоследняяПоследняя
Показано с 1 по 10 из 22

Тема: Инициализация мультиколора 8х1

  1. #1
    Guru Аватар для newart
    Регистрация
    19.01.2005
    Адрес
    Санкт-Петербург
    Сообщений
    10,947
    Благодарностей: 1520
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Инициализация мультиколора 8х1

    Есть у кого-нибудь процедурка?

    Под пентагон/реал 128к.

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2
    Veteran Аватар для drbars
    Регистрация
    01.03.2005
    Адрес
    Новосибирск
    Сообщений
    1,531
    Благодарностей: 656
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Полноэкранный возможен только 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 в 13:55.
    ZX Spectrum +2 / DataGear / DivIDE 2k14
    ZX Evolution rev.C
    ZX Spectrum NEXT

  4. #3
    Master Аватар для GM BIT
    Регистрация
    27.11.2008
    Адрес
    Красноярск
    Сообщений
    747
    Благодарностей: 230
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Код:
    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

  5. #4
    Guru Аватар для newart
    Регистрация
    19.01.2005
    Адрес
    Санкт-Петербург
    Сообщений
    10,947
    Благодарностей: 1520
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    У меня 144 пикселя.

    ---------- Post added at 16:00 ---------- Previous post was at 15:59 ----------

    GM BIT, прокоментируй, что это куда и как встявлять?

  6. Этот пользователь поблагодарил newart за это полезное сообщение:
    Kakos_nonos (15.03.2013)

  7. #5
    Master Аватар для GM BIT
    Регистрация
    27.11.2008
    Адрес
    Красноярск
    Сообщений
    747
    Благодарностей: 230
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Запускаешь вначале, а потом кодишь кратно четырем и с одинаковым количеством тактов в каждом прерывании, вроде бы так

    Работоспособность не проверял, но эту програмку много раз приводили на форуме
    Последний раз редактировалось GM BIT; 15.03.2013 в 15:17.

  8. #6
    Guru Аватар для newart
    Регистрация
    19.01.2005
    Адрес
    Санкт-Петербург
    Сообщений
    10,947
    Благодарностей: 1520
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Зачем она трогает IM2 при этом не делая табличку прерваний?

  9. #7
    Master Аватар для GM BIT
    Регистрация
    27.11.2008
    Адрес
    Красноярск
    Сообщений
    747
    Благодарностей: 230
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    По смылу понятно только, что там выправляется первоначальная задержка
    После последнего JR исправляешь IMER
    на свой мультиколор LD HL,MULTICOLOR: LD (#BEFF),HL
    и от im 2 будет работать твоя прога

    ---------- Post added at 15:22 ---------- Previous post was at 15:21 ----------

    Цитата Сообщение от newart Посмотреть сообщение
    Зачем она трогает IM2 при этом не делая табличку прерваний?
    Это для упрощения, без таблички

  10. #8
    Guru
    Регистрация
    03.01.2006
    Адрес
    Рязань
    Сообщений
    2,935
    Благодарностей: 1071
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от drbars Посмотреть сообщение
    Полноэкранный возможен только 8х2.
    Как хорошо, то мой MCX viewer этого не знает

  11. Этот пользователь поблагодарил alone за это полезное сообщение:
    GriV (25.03.2013)

  12. #9
    Guru Аватар для newart
    Регистрация
    19.01.2005
    Адрес
    Санкт-Петербург
    Сообщений
    10,947
    Благодарностей: 1520
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    alone, ты лучше скажи - процедура выше - адекватна?

  13. #10
    Guru
    Регистрация
    03.01.2006
    Адрес
    Рязань
    Сообщений
    2,935
    Благодарностей: 1071
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    если она в ирисе работает, то адекватна.

Страница 1 из 3 123 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 0
    Последнее: 30.11.2009, 15:02
  2. Инициализация TR-DOS
    от valker в разделе Программирование
    Ответов: 3
    Последнее: 23.03.2007, 14:26
  3. HELP! Автонастройка мультиколора...
    от rasmer в разделе Программирование
    Ответов: 10
    Последнее: 06.06.2005, 23:54
  4. Инициализация системы
    от breeze в разделе Программирование
    Ответов: 13
    Последнее: 24.03.2005, 10:03

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •