Need assembly SetRGB4 help

Article View: comp.sys.amiga.tech

Article #11375

Back to comp.sys.amiga.tech Previous Next

#11375

From: Steve Crooks
Date: Tue, 07 Feb 1989 15:22

29 lines
1322 bytes

Help!  The following code should change the Workbench screen's block pen
to white.  It doesn't work.  It doesn't change any of the colors at all. 
It has no effect.  It's driving me crazy.  Would someone please tell me
what I'm doing wrong? The CALL and PRINT macros are, I hope, obvious in
their function. 

	CALL	Forbid,_SysBase
	move.l	WBScreen,a5
	move.l	sc_Title(a5),a4
	PRINT	_stderr,a4		;prints "Workbench Screen"
	moveq.l	#15,d1			;load colors to make it white
	moveq.l	#15,d2
	moveq.l	#15,d3
	lea	sc_ViewPort(a5),a0	;get the viewport
	moveq.l	#0,d0
	move.b	sc_BlockPen(a5),d0	;use the block pen
	CALL	SetRGB4,_GfxBase	;this does nothing!!!!!!!!
	CALL	Permit,_SysBase
	rts

Any help would be *greatly* appreciated.

ps - I tried to post this once before, but I think our feed got munged at
the same time.  Either this didn't go out, I missed the replies, or there
weren't any replies.  Regardless, I'm trying again.
--
--Steve Crooks			...uunet!ingr!crooks!crooks    (UUCP)
				crooks!crooks@ingr.com         (Internet)

Technical Details

Message-ID: <3806@ingr.com>

Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!ingr!crooks

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!ingr!crooks
From: crooks@ingr.com (Steve Crooks)
Newsgroups: comp.sys.amiga.tech
Subject: Need assembly SetRGB4 help
Message-ID: <3806@ingr.com>
Date: 7 Feb 89 15:22:27 GMT
Organization: Intergraph Corp. Huntsville, Al
Lines: 29