[Coco] Portal-9 to compile HLA source to 6809/CoCo!

[jdaggett at gate.net]

Roger

Looks a bit like the constructs of ADA. Which VHDL is based on.

james

On 28 Nov 2004 at 21:25, Roger Taylor wrote:

Date sent:      	Sun, 28 Nov 2004 21:25:33 -0600
To:             	coco at maltedmedia.com
From:           	Roger Taylor <rtaylor at bayou.com>
Subject:        	[Coco] Portal-9 to compile HLA source to 
6809/CoCo!
Send reply to:  	CoCoList for Color Computer Enthusiasts 
<coco at maltedmedia.com>
	<mailto:coco-
request at maltedmedia.com?subject=unsubscribe>
	<mailto:coco-
request at maltedmedia.com?subject=subscribe>

> Here's some of the very simple (out of hundreds of code structures and
> statements) to give you an idea:
> 
> 
> static
>          grape:  word:=  2; // initialized to what we want (2)
>          peach:  int16; // uninitialized
>          banana: uns8;
>          pear:   byte;
>          count:  dword;  // 32-bit value (6309 can access 32 bits at
>          once) apple:  dword:= 5; orange: dword; msg1:   string:=     
>            "this is a static HLA string"; zstring:        char[128];
> 
> const
>          coco:=  3;
>          cpu:=   6309;
>          ram:=   1024*128; // 128k
> 
> readonly
>          msg:    string:=        "this is a read-only string";
> 
> procedure printmsg(themsg: string);
> begin printmsg;
>          stdout.put(themsg, nl);
> end printmsg
> 
> for(mov(0, count); count<10; inc(count)) do
>          stdout.put("we're at ", count, nl);
> endfor;
> 
> if(theflag=true) then
> elseif(someothervar=value) then
> endif;
> 
> 
> 
> More later...!
> 
> 
> -- 
> Roger Taylor