Path: csiph.com!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: mmphosis <mmphosis@macgui.com>
Newsgroups: comp.sys.apple2
Subject: Re: Hires screen clear
Date: Thu, 22 Oct 2015 06:29:52 +0000 (UTC)
Organization: Mac GUI
Lines: 25
Message-ID: <mmphosis-1445495519@macgui.com>
References: <3bcddc0a-ae8d-43d9-a8cd-9bcbe52e64ce@googlegroups.com> <mmphosis-1445486222@macgui.com> <df26eee6-b720-436b-b44f-d62a30f74e30@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 22 Oct 2015 06:29:52 +0000 (UTC)
Injection-Info: mx02.eternal-september.org; posting-host="ac9e0e4d7dd3957fb97803ee6801bab8"; logging-data="11459"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/1i4V69GkXy5adD6o+El1v"
User-Agent: Mac GUI Usenet
In-Reply-To: <df26eee6-b720-436b-b44f-d62a30f74e30@googlegroups.com>
Cancel-Lock: sha1:sOgOAYcbtFKoXC7ZBbllo4aApgc=
Xref: csiph.com comp.sys.apple2:26041

And, I've heard that Applesoft BASIC is slow! ;)

REM GENERATE CODE $0300 (768)
REM   FOR FAST, BIG, TOP TO BOTTOM
REM   HIRES SCREEN CLEAR ROUTINE
REM   SIZE: $BE (190)
REM   INPUT: PAGE $E6 (230)

REM CLEAR HIRES SCREEN $15E8 (5608)
REM   SIZE: $5A09 (23049) HGR
REM   SPEED: 4 CYCLES PER HIRES BYTE. UNROLLED ALL THE WAY!
REM   INPUTS:
REM     EVEN BYTE $1539 (5609)
REM     ODD BYTE $153B (5611)

HGR : CALL 768: REM GENERATE CODE FOR HGR
POKE5609,0:POKE5611,0:CALL5608:REM BLACK
POKE5609,85:POKE5611,42:CALL5608:REM VOILET
POKE5609,42:POKE5611,85:CALL5608:REM GREEN
POKE5609,213:POKE5611,170:CALL5608:REM BLUE
POKE5609,170:POKE5611,213:CALL5608:REM ORANGE
POKE5609,127:POKE5611,127:CALL5608:REM WHITE
HGR2 : CALL 768 : REM GENERATE CODE FOR HGR2