• Odpowiedz

@c64portal, post #1

movea.l 4.w,a6
lea intuitionName(pc),a1
moveq #40,d0
jsr _LVOOpenLibrary(a6)
move.l d0,intuitionBase
beq.s .libError

intuitionBase: dc.l 0
intuitionName: dc.b 'intuition.library',0

movea.l intuitionBase(pc),a6
jsr _LVOCloseWorkBench(a6).
tst.l d0
beq.s .wbCloseError

• Odpowiedz

@Hexmage960, post #2

• Odpowiedz

@c64portal, post #3

Z kolorami (24 bit) to w sumie bym sobie jakoś poradził bo w sumie wiem jak to się robi ale może ktoś ma gotowca, np jakieś makro? procedurkę?

Ja jako programista systemowy znam gotowe rozwiązania do tego celu. Te rozwiązania to skorzystać z copperlisty, którą tworzy system.

Funkcje SetRGB32(), LoadRGB32() i SetRGB32CM() utworzą dla Ciebie odpowiednią copperlistę.

Ponadto będzie to copperlista z kolorami ustawionymi poprawnie niezależnie od tego, czy uruchamiasz swoją produkcję na Amidze 500 OCS, Amidze 600 z ECS czy A1200 z AGA.

Copperlista utworzona przez system znajduje się w polu struktury View->LOFCprList. Jest tam surowa copper-lista oraz rozmiar bufora. Możesz skorzystać z niej jako bazy dla własnej copperlisty. To znaczy rozszerzyć ją po swojemu.

Copper-lista systemowa jest tworzona za pomocą funkcji MakeVPort() i MrgCop(). Pierwsza tworzy pośrednią listę poleceń Coppera, a druga łączy pośrednie listy w całość, gotową do załadowania do rejestru Coppera.

w zasadzie to co nie jest dla mnie jasne to jak wyłączyć tryb RTG, przełączyć się na PAL i moją copperlistę a potem wrócić do RTG

Tutaj nie wiem, ale chyba AGA i RTG pracują niezależnie. Workbench na karcie graficznej pewnie działa oddzielnie, zaś niektóre funkcje graficzne są zmienione. OpenWorkBench() powinien załadować ekran WB z powrotem. Nie mam tu niestety doświadczenia.

Ostatnia aktualizacja: 17.02.2023 23:10:27 przez Hexmage960

• Odpowiedz

@Hexmage960, post #4

• Odpowiedz

@c64portal, post #5

• Odpowiedz

@c64portal, post #5

view = GfxBase->ActiView;
LoadView( NULL );
WaitTOF();
WaitTOF();

SetUpCop( &pic );

custom.dmacon = DMAF_SPRITE;
custom.intena = INTF_VERTB;
custom.cop1lc = (ULONG)cprlist1;
custom.copjmp1 = NULL;

MouseWait();

custom.cop1lc = (ULONG)GfxBase->copinit;
custom.copjmp1 = NULL;
custom.intena = INTF_SETCLR|INTF_VERTB;
custom.dmacon = DMAF_SETCLR|DMAF_SPRITE;

LoadView( view );
WaitTOF();
WaitTOF();

• Odpowiedz

@c64portal, post #5

• Odpowiedz

@asman, post #6

• Odpowiedz

@c64portal, post #9

planes:
		dc.w	bplpt,0,bplpt+2,0
		dc.w	bplpt+4,0,bplpt+6,0
		dc.w	bplpt+8,0,bplpt+10,0
		dc.w	bplpt+12,0,bplpt+14,0

		dc.w	$1007,$fffe

sprites:	dc.w	sprpt,0,sprpt+2,0
		dc.w	sprpt+4,0,sprpt+6,0
		dc.w	sprpt+8,0,sprpt+10,0
		dc.w	sprpt+12,0,sprpt+14,0
		dc.w	sprpt+16,0,sprpt+18,0
		dc.w	sprpt+20,0,sprpt+22,0
		dc.w	sprpt+24,0,sprpt+26,0
		dc.w	sprpt+28,0,sprpt+30,0
		dc.w	$ffff,$fffe

MainGameLoop:
 bsr WaitForFrame
 bsr UpdateSpritePointers
 ;poruszanie hero i enemies, kolizje, boby i inne bzdety.

• Odpowiedz

@asman, post #10

UWORD nyb1 = 0x000;
UWORD nyb2 ;

	for (int j=1; j<9 ; j++){
		for (int i=0; i<32; i++){
			
			nyb2 = 0x000;
			custom->bplcon3 = nyb1 | nyb2;

			UBYTE r = c[k+1 ] >>4 ;			
			UBYTE g = c[k+2 ] >>4 ;
			UBYTE b = c[k+3 ] >>4 ;
			custom->color[i] = r<<8 | g<<4 | b;

			nyb2 = 0x200;
			custom->bplcon3 = nyb1 | nyb2;

			r = c[k+1 ] &0x0f ;
			g = c[k+2 ] &0x0f ;
			b = c[k+3 ] &0x0f ;
			custom->color[i] = r<<8 | g<<4 | b;

			k+=4;
		}
		nyb1 = 0x2000*j;
	}

CCFLAGS = -g -MP -MMD -m68060 -Ofast -nostdlib -Wextra -Wno-unused-function -Wno-volatile-register-var -fomit-frame-pointer -fno-tree-loop-distribution -flto -fwhole-program -fno-exceptions
VASMFLAGS = -m68060 -Felf -opt-fconst -nowarn=62 -dwarf=3 -quiet -x -I. -I$(SDKDIR)

• Odpowiedz

@c64portal, post #11

• Odpowiedz

@Don_Adan, post #12

static APTR GetVBR(void) {
	APTR vbr = 0;
	UWORD getvbr[] = { 0x4e7a, 0x0801, 0x4e73 }; // MOVEC.L VBR,D0 RTE

	if (SysBase->AttnFlags & AFF_68010) 
		vbr = (APTR)Supervisor((ULONG (*)())getvbr);

	return vbr;
}

• Odpowiedz

@c64portal, post #13

• Odpowiedz

@asman, post #14

• Odpowiedz

@c64portal, post #13

• Odpowiedz

@c64portal, post #15

• Odpowiedz

@asman, post #17

__attribute__((section("text")))
__attribute__((aligned(4)))
static const UWORD getvbr[] = {0x4e7a, 0x0801, 0x4e73};

• Odpowiedz

@c64portal, post #18

• Odpowiedz

@asman, post #19

• Odpowiedz

@teh_KaiN, post #20

• Odpowiedz

@c64portal, post #18

GetVBR
	moveq	#0,d0			; default at $0
	move.l	4.w,a6
	btst        #0,296+1(a6)		; 68010+?
	beq.b	is68k			; nope.
	jsr	     SuperState(a6)
        movec vbr,d0
       jsr          UserState(a6)
is68k
 ; VBR in D0

• Odpowiedz

@Don_Adan, post #22

GetVBR
	sub.l       A0,A0			; default at $0
	move.l	4.w,a6
	btst        #0,296+1(a6)		; 68010+?
	beq.b	is68k			; nope.
	jsr	     SuperState(a6)
        movec vbr,A0
       jsr          UserState(a6)
is68k
; VBR in A0

• Odpowiedz

@teh_KaiN, post #20

• Odpowiedz

@Don_Adan, post #24

ULONG asmVBR(void)="\tmovec vbr,d0";

ULONG VbrGet(void)
{
	return asmVBR();
}

• Odpowiedz

@Don_Adan, post #24

• Odpowiedz

@teh_KaiN, post #26

• Odpowiedz

@asman, post #25

• Odpowiedz

@Don_Adan, post #27

void SetInterruptHandler(APTR interrupt) {
	*(volatile APTR*)(((UBYTE*)VBR)+0x6c) = interrupt;
}

• Odpowiedz

@c64portal, post #29

• Odpowiedz