Path: utzoo!attcan!uunet!snorkelwacker!tut.cis.ohio-state.edu!uccba!ucqais!rbatra
From: rbatra@ucqais.uc.edu (pri=2 Rajesh Batra)
Newsgroups: comp.sys.amiga
Subject: Help changing custom screen's palette
Keywords: Assembly, LOADRGB4
Message-ID: <2300@ucqais.uc.edu>
Date: 12 Feb 90 14:12:06 GMT
Distribution: na
Organization: Univ of Cincinnati, College of Business Admin.
Lines: 53


	I am trying to change the colors of a custom screen. But instead
the workbench screen's palette changes, and my custom screen's colors remain 
unchanged. I used the library call LOADRGB4. Would someone
please tell me what I am doing wrong? Here is some of the source:

openscrn= -198
loadrgb4= -192

       move.l intbase,a6
       lea newscreenstructure,a0
       jsr openscrn(a6)       ;The above just opened a custom screen.
       move.l d0,screenhd     ;Saves the screen stucture for later use.
       move.l screenhd,a0
       move.l 44(a0),a0   ;Loads screen's viewport into register a0.
       lea palette,a1     
       moveq #4,d0
       move.l gfxbase,a6
       jsr loadrgb4(a6)  ;And here the workbench colors change!

NewScreenStructure:
 dc.w 0,0 ;screen XY origin relative to View
 dc.w 640,200 ;screen width and height
 dc.w 2 ;screen depth (number of bitplanes)
 dc.b 0,1 ;detail and block pens
 dc.w $8000 ;display modes for this screen v_hires
 dc.w 15 ;screen type custom screen.
 dc.l NULL ;pointer to default screen font
 dc.l NULL ;screen title
 dc.l NULL ;first in list of custom screen gadgets
 dc.l NULL ;pointer to custom BitMap structure

Palette:
 dc.w $0000 ;color #0
 dc.w $0777 ;color #1
 dc.w $000C ;color #2
 dc.w $0F00 ;color #3

       align
screenhd: dc.l 0
gfxbase: dc.l 0
intbase: dc.l 0

----------------
	If you think the error is so obvious that you would rather spare
me the embarrassment please email me the solution to: 

		rbatra@ucqais.uc.edu
	or	rbatra@uceng.uc.edu
	
						Thanks,
				
						Rajesh Batra