Path: utzoo!attcan!uunet!lll-winken!claris!krazy
From: krazy@claris.com (Jeff Erickson)
Newsgroups: comp.sys.apple
Subject: Re: Border color
Message-ID: <9100@claris.com>
Date: 18 Mar 89 10:13:00 GMT
References: <8903171623.aa16204@SMOKE.BRL.MIL>
Organization: Claris Corporation, Mountain View CA
Lines: 26

From by DANFUZZ@BROWNVM.BITNET (Dan Bornstein):
> On the IIgs, the border color is stored in the LOW-NIBBLE of $C034. When
> you set it you should be sure not to disturb the top nibble; do something
> like this (assuming native-mode)
> 
> LDA $C034
> AND #$FFF0
> ORA #$000x     <---- x is the color # you want
> STA $C034
> 
Uh, almost.  You need to be careful about the data bank register.  If, for
example, it was set to 2, and you executed that code, you'd modify 2/C034.

Here's the code I use:
	lda >$e0c034
	and #$fff0
	ora #$000?
	sta >$e0c034

This will work under the standard GS desktop environment.  Any other 
environment is your own problem.
-- 
Jeff Erickson     \  Internet: krazy@claris.com          AppleLink: Erickson4
Claris Corporation \      UUCP: {ames,apple,portal,sun,voder}!claris!krazy
415/960-2693        \________________________________________________________
____________________/        "I'm so heppy I'm mizzabil!" -- Krazy Kat