OpenScreenTags() with tag SA_Colors32

[dissident]

A general question regarding screens on OS3.x.

When I use OpenScreenTags() with a tag list and the tag SA_Colors32 pointing to my colour table, my colors are not loaded.

I use the correct format:

color_table
  DC.W 2 ;Only 2 colours
  DC.W 0 ;Start at COLOR00
  DC.L $ffffffff ;COLOR00 32 bits red
  DC.L 0 ;COLOR00 32 bits green
  DC.L 0 ;COLOR00 32 bits blue
  DC.L 0 ;COLOR01 32 bits red
  DC.L 0 ;COLOR01 32 bits green
  DC.L 0 ;COLOR01 32 bits blue 
  DC.L 0 ;End of list

Maybe Thomas Richter could enlighten me.

[thomas]

Works perfectly for me.

Show some code.

[dissident]

Originally Posted by thomas

Works perfectly for me.

Show some code.

Here it is:

	lea	rd_custom_screen_colors(pc),a0
	move.w	#rd_custom_screen_colors_number,(a0)+
	moveq	#0,d0
	move.w	d0,(a0)+
	move.l	#$ffffffff,(a0)+
	move.l	d0,(a0)+
	move.l	d0,(a0)+	
	move.l	d0,(a0)+
	move.l	d0,(a0)+
	move.l	d0,(a0)+
	move.l	d0,(a0)

	lea	rd_custom_screen_tag_list(pc),a0
	move.l	#SA_Left,(a0)+
     	moveq	#rd_custom_screen_left,d2
	move.l	d2,(a0)+
	move.l	#SA_Top,(a0)+
     	moveq	#rd_custom_screen_top,d2
	move.l	d2,(a0)+
	move.l	#SA_Width,(a0)+
	moveq	#rd_custom_screen_x_size,d2
	move.l	d2,(a0)+
	move.l	#SA_Height,(a0)+
	moveq	#rd_custom_screen_y_size,d2
	move.l	d2,(a0)+
	move.l	#SA_Depth,(a0)+
	moveq	#rd_custom_screen_depth,d2
	move.l	d2,(a0)+
	move.l	#SA_DisplayID,(a0)+
	move.l	#PAL_MONITOR_ID|LORES_KEY,(a0)+
	move.l	#SA_DetailPen,(a0)+
	moveq	#0,d0
	move.l	d0,(a0)+
	move.l	#SA_BlockPen,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_Title,(a0)+
	lea	rd_custom_screen_name(pc),a1
	move.l	a1,(a0)+
	move.l	#SA_Colors32,(a0)+
	lea	rd_custom_screen_colors(pc),a1
	move.l	a1,(a0)+
	move.l	#SA_Font,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_SysFont,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_Type,(a0)+
	move.l	#CUSTOMSCREEN,(a0)+
	move.l	#SA_Behind,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_Quiet,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_ShowTitle,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_AutoScroll,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_Draggable,(a0)+
	move.l	d0,(a0)+
	move.l	#SA_Interleaved,(a0)+
	move.l	d0,(a0)+
	moveq	#TAG_DONE,d2
	move.l	d2,(a0)

	lea	rd_custom_screen_tag_list(pc),a1
	move.l	sf_color_cache(a3),a0
	move.l	a0,sctl_SA_Colors32+ti_Data(a1)
	sub.l	a0,a0
	CALLINT OpenScreenTagList

Indeed, it works. I found the bug in my coded. I did some changes and forgot to remove the two lines marked bold.

[thomas]

Sometimes you only need to talk about it

[dissident]

Originally Posted by thomas

Sometimes you only need to talk about it

Yes, you are absolutely right.

[grond]

May I ask why you set up your taglist from the code you are executing? I always did something like (not sure about the #palette but the assembler can put the pointer to your palette in place for you, either with or without the #):

taglist: dc.l SA_Depth, 1, SA_Colors32, #palette, TAG_DONE
palette: dc.w 2,0
dc.l -1,0,0,0,0,0
dc.l 0