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

[newart]

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

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

[Advertiser]

[drbars]

Полноэкранный возможен только 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:

[GM BIT]

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

[newart]

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

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

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

[GM BIT]

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

Работоспособность не проверял, но эту програмку много раз приводили на форуме

[newart]

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

[GM BIT]

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

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

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

Это для упрощения, без таблички

[alone]

Полноэкранный возможен только 8х2.

Как хорошо, то мой MCX viewer этого не знает

[newart]

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

[alone]

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