Assembly language SetRGB4 help needed

Article View: comp.sys.amiga.tech

Article #11227

Back to comp.sys.amiga.tech Previous Next

#11227

From: Steve Crooks
Date: Sun, 29 Jan 1989 05:26

24 lines
1170 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.
--
--Steve Crooks			...uunet!ingr!crooks!crooks    (UUCP)
				crooks!crooks@ingr.com         (Internet)

Technical Details

Message-ID: <3702@ingr.com>

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!amdahl!uunet!ingr!crooks

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!amdahl!uunet!ingr!crooks
From: crooks@ingr.com (Steve Crooks)
Newsgroups: comp.sys.amiga.tech
Subject: Assembly language SetRGB4 help needed
Message-ID: <3702@ingr.com>
Date: 29 Jan 89 05:26:19 GMT
Organization: Intergraph Corp. Huntsville, Al
Lines: 24