[Coco] Lower case 6847 Q

[coco at yourdvd.net]

Here is the allram program from Robert Gault's website. After running
this the below program that i previously sent will turn on true
lowercase on your coco 2:
10  REM ROMRAM
20  LI=80
30  FOR M=&H7000 TO &H7016 STEP10:SUM=0
40  FOR I=0TO9:READA$:VA=VAL("&H"+A$):SUM=SUM+VA:POKE M+I,VA:NEXT
42  READ CHK:IFSUM<CHK THEN PRINT"ERROR IN LINE"LI:END
50  LI=LI+10:NEXT
60  EXEC &H7000
70  END
80  DATA 1A, 50, 8E, 80, 0 , B7, FF, DE, EC, 84, 1404
90  DATA B7, FF, DF, ED, 81, 8C, E0, 0 , 26, F1, 1670
100 DATA 1C, AF, 39, 00, 00, 00, 00, 00, 00, 00, 260

Use the above only for the Coco 1 or 2!

I'VE JUST TESTED ALL THIS WITH THE M.E.S.S. COCO2B EMULATION -ROB
> -------- Original Message --------
> Subject: Re: [Coco] Lower case 6847 Q
> From: coco at yourdvd.net
> Date: Wed, April 25, 2007 12:48 pm
> To: CoCoList for Color Computer Enthusiasts <coco at maltedmedia.com>
> 
> In assembly, I use the following to activate true lowercase:
> 	LDD	#$8A10
> 	STD	$95C8
> 	LDA	$FF22
> 	ORA	#$10
>  	STA	$FF22
> The first two instructions patch BASIC. The last three turn on true
> lowercase.
> 
> This assumes the computer is in all-ram (64k) mode.
> 
> in BASIC:
> 10 REM RUN ROMRAM OR SIMILAR PROGRAM TO PUT YOUR COMPUTER IN ALLRAM MODE
> BEFORE RUNNING THIS.
> 20 POKE &H95C8,&H8A
> 30 POKE &H95C9,&H10
> 40 A=PEEK(&HFF22)
> 50 A=A OR &H10
> 60 POKE &HFF22,A
> 70 PRINT "am i lowercase?"
> 
> ----
> -rob
> 
> 
> 
> > -------- Original Message --------
> > Subject: [Coco] Lower case 6847 Q
> > From: Phill Harvey-Smith <afra at aurigae.demon.co.uk>
> > Date: Wed, April 25, 2007 11:44 am
> > To: CoCoList for Color Computer Enthusiasts <coco at maltedmedia.com>
> > 
> > Hi,
> > 
> > I've just bought another CoCo2 off ebay, to potentially use as a donor 
> > case for my CoCo3 board which is caseless, and I suspect that the 6847 
> > is one of the ones with the lower case chars, though it has some weird 
> > part no (internal motorola one).
> > 
> > How can I go about testing that this is the case ? Is there a poke or 
> > short m/l routine that I can use to test this. Anyway I have decided
> to 
> > keep this machine intact and use one of the others as the donor :)
> > 
> > Cheers.
> > 
> > Phill.
> > 
> > -- 
> > Phill Harvey-Smith, Programmer, Hardware hacker, and general
> eccentric !
> > 
> > "You can twist perceptions, but reality won't budge" -- Rush.
> > 
> > --
> > Coco mailing list
> > Coco at maltedmedia.com
> > http://five.pairlist.net/mailman/listinfo/coco
> 
> 
> --
> Coco mailing list
> Coco at maltedmedia.com
> http://five.pairlist.net/mailman/listinfo/coco