mirror of
https://github.com/piotr-wiszowaty/foco65.git
synced 2025-03-09 07:31:14 +00:00
Update readme
This commit is contained in:
parent
a6fb96c3af
commit
47bf9b658d
229
README.md
229
README.md
@ -1,8 +1,175 @@
|
|||||||
foco65
|
foco65
|
||||||
======
|
======
|
||||||
|
|
||||||
Forth cross-compiler targeting 6502 processors. It needs a 6502
|
Forth cross-compiler targeting 6502 processors. Outputs [xasm](https://github.com/pfusik/xasm)
|
||||||
cross-assembler (e.g. [xasm](https://github.com/pfusik/xasm)) as a backend.
|
compatible assembly source code containing Forth runtime and compiled user
|
||||||
|
program.
|
||||||
|
|
||||||
|
Runtime
|
||||||
|
-------
|
||||||
|
|
||||||
|
Generated Forth runtime is 16-bit indirect-threaded.
|
||||||
|
|
||||||
|
Parameter stack is full-descending and addressed by `X` register. Address and
|
||||||
|
size of the parameter stack are by default $600 and 256 respectively and are
|
||||||
|
user-configurable.
|
||||||
|
|
||||||
|
Hardware stack is used as return stack.
|
||||||
|
|
||||||
|
The runtime uses 12 bytes on zero page: 2-byte instruction pointer `ip` and
|
||||||
|
5 2-byte work registers: `w`, `z`, `cntr`, `tmp`, `tmp2` which may be used
|
||||||
|
in user-defined words (note than on every word entry these registers' contents
|
||||||
|
are undefined).
|
||||||
|
|
||||||
|
On entry runtime initializes instruction pointer and enters user-defined word
|
||||||
|
`main` which is supposed to never exit (i.e. contain an infinite loop).
|
||||||
|
|
||||||
|
Generated Source Code
|
||||||
|
---------------------
|
||||||
|
|
||||||
|
Generated assembly source code for words/data/code blocks is logically grouped
|
||||||
|
into _sections_. Default order of sections is: `init`, `boot`, `data`, `text`.
|
||||||
|
|
||||||
|
Sections:
|
||||||
|
* `init` - top of the output, typically contains user-provided assembly code
|
||||||
|
block with `org` directive
|
||||||
|
* `boot` - forth runtime
|
||||||
|
* `data` - user data
|
||||||
|
* `text` - core words and user program
|
||||||
|
|
||||||
|
User-defined data is output into the most recently declared data section (with
|
||||||
|
`[data-section]` word), everything else is output into the most recently
|
||||||
|
declared text section (with `[text-section]` word).
|
||||||
|
|
||||||
|
Syntax
|
||||||
|
------
|
||||||
|
|
||||||
|
### Identifiers
|
||||||
|
|
||||||
|
Identifiers are case sensitive.
|
||||||
|
|
||||||
|
Constant and data identifiers consist of alphanumeric characters, '\_'s, '-'s
|
||||||
|
and '?'s and must start with a letter, '\_', '-' or '?'. In generated assembly
|
||||||
|
labels every '-' is replaced by '\_' and every '?' is replaced by '\_is\_'.
|
||||||
|
|
||||||
|
Word identifiers consist of printable ASCII characters. Word identifiers
|
||||||
|
consisting only of alphanumeric characters, '\_'s, '-'s, '?'s and starting with
|
||||||
|
a letter, '\_', '-' or a '?' are translated automatically to valid assembly
|
||||||
|
labels. Other word identifiers require user-defined label specification (see
|
||||||
|
below).
|
||||||
|
|
||||||
|
Section identifiers consist of printable ASCII characters.
|
||||||
|
|
||||||
|
### Comments
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
<pre><code>
|
||||||
|
\ this is a one-line comment
|
||||||
|
( this is a multi-line
|
||||||
|
comment)
|
||||||
|
</code></pre>
|
||||||
|
|
||||||
|
### Numbers
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
<pre><code>
|
||||||
|
123 \ decimal number
|
||||||
|
$BA98 \ hexadecimal number
|
||||||
|
</code></pre>
|
||||||
|
|
||||||
|
### Word definitions
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
`:` _name_ *[* `[label]` _asm-label_ *]* _words_ `;`
|
||||||
|
or:
|
||||||
|
`:` _name_
|
||||||
|
*[* `[label]` _asm-label_ *]*
|
||||||
|
`[code]`
|
||||||
|
; inline-assembly
|
||||||
|
`[end-code]` `;`
|
||||||
|
|
||||||
|
Examples:
|
||||||
|
<pre><code>
|
||||||
|
: foo begin end-flag until ;
|
||||||
|
</code></pre>
|
||||||
|
<pre><code>
|
||||||
|
: bar
|
||||||
|
[code]
|
||||||
|
lda #1
|
||||||
|
sta $D5E8
|
||||||
|
jmp next
|
||||||
|
[end-code] ;
|
||||||
|
</code></pre>
|
||||||
|
<pre><code>
|
||||||
|
: +7 ( n1 -- n2 )
|
||||||
|
[label] plus_7
|
||||||
|
7 + ;
|
||||||
|
</code></pre>
|
||||||
|
|
||||||
|
### Data declarations
|
||||||
|
|
||||||
|
One-cell variable:
|
||||||
|
`variable` _name_
|
||||||
|
|
||||||
|
Two-cell variable:
|
||||||
|
`2variable` _name_
|
||||||
|
|
||||||
|
Assembly label at current program counter:
|
||||||
|
`create` _name_
|
||||||
|
|
||||||
|
Compile a one-cell value:
|
||||||
|
_value_ `,`
|
||||||
|
|
||||||
|
Compile a one-byte value:
|
||||||
|
_value_ `c,`
|
||||||
|
|
||||||
|
Allocate a byte-array:
|
||||||
|
_length_ `allot`
|
||||||
|
|
||||||
|
Allocate Atari XL/XE Antic counted string:
|
||||||
|
`,'` _text_`'`
|
||||||
|
|
||||||
|
Allocate ASCII counted string:
|
||||||
|
`,"` _text_`"`
|
||||||
|
|
||||||
|
Allocate Atari XL/XE Antic string:
|
||||||
|
`'` _text_`'`
|
||||||
|
|
||||||
|
Allocate counted ASCII string:
|
||||||
|
`"` _text_`"`
|
||||||
|
|
||||||
|
### Constants
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
_value_ `constant` _name_
|
||||||
|
|
||||||
|
Example:
|
||||||
|
<pre><code>
|
||||||
|
$230 constant dladr
|
||||||
|
</code></pre>
|
||||||
|
|
||||||
|
### Inline assembly blocks
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
`[code]`
|
||||||
|
_; assembly code_
|
||||||
|
`[end-code]`
|
||||||
|
|
||||||
|
### Compiler directives
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
`[text-section]` _name_
|
||||||
|
or:
|
||||||
|
`[data-section]` _name_
|
||||||
|
|
||||||
|
Words
|
||||||
|
-----
|
||||||
|
|
||||||
|
`:` `@` `0=` `1-` `1+` `2/` `2*` `2@` `2!` `and` `c!` `c@` `cmove` `count` `d-` `d+` `d=` `do` `drop` `dup` `i` `j` `loop`
|
||||||
|
`+loop` `lshift` `<=` `<` `>=` `>` `-` `+` `or` `over` `rshift` `rsp` `sp` `swap` `unloop` `u<` `u>` `while` `<>`
|
||||||
|
`=` `!` `[` `]` `[code]` `[end-code]` `cell` `cells` `not` `[text-section]` `[data-section]`
|
||||||
|
`variable` `2variable` `constant` `create` `,` `c,` `,'` `'` `,"` `"` `allot`
|
||||||
|
`lit` `\` `(` `recursive` `[label]` `*` `/` `u*`
|
||||||
|
|
||||||
Usage
|
Usage
|
||||||
-----
|
-----
|
||||||
@ -16,7 +183,7 @@ OPTIONS:
|
|||||||
-h display help
|
-h display help
|
||||||
-p ADDR,--pstack-bottom=ADDR parameter stack bottom address
|
-p ADDR,--pstack-bottom=ADDR parameter stack bottom address
|
||||||
-s SECTS,--sections=SECTS specify comma separated list of sections
|
-s SECTS,--sections=SECTS specify comma separated list of sections
|
||||||
default: init,boot,data,code
|
default: init,boot,data,text
|
||||||
-S INT,--pstack-SIZE=INT parameter stack size
|
-S INT,--pstack-SIZE=INT parameter stack size
|
||||||
|
|
||||||
Example:
|
Example:
|
||||||
@ -25,53 +192,28 @@ Example:
|
|||||||
$ foco65 foo.forth > foo.asx
|
$ foco65 foo.forth > foo.asx
|
||||||
```
|
```
|
||||||
|
|
||||||
Words
|
|
||||||
-----
|
|
||||||
|
|
||||||
`:` `@` `0=` `1-` `1+` `2/` `2*` `2@` `2!` `and` `c!` `c@` `cmove` `count` `d-` `d+` `d=` `do` `drop` `dup` `i` `j` `loop`
|
|
||||||
`+loop` `lshift` `<=` `<` `>=` `>` `-` `+` `or` `over` `rshift` `rsp` `sp` `swap` `unloop` `u<` `u>` `while` `<>`
|
|
||||||
`=` `!` `[` `]` `[code]` `[end-code]` `cell` `cells` `not` `[section]` `variable` `2variable`
|
|
||||||
`constant` `create` `,` `c,` `,'` `'` `,"` `"` `allot` `lit` `\` `(` `recursive` `[label]` `*` `/`
|
|
||||||
|
|
||||||
Internals
|
|
||||||
---------
|
|
||||||
|
|
||||||
Type: indirect-threaded.
|
|
||||||
|
|
||||||
Cell size is 16 bits.
|
|
||||||
|
|
||||||
Parameter stack pointer is kept in register `X`.
|
|
||||||
Parameter stack pointer is decremented before write (stack push) and
|
|
||||||
incremented after read (stack pop).
|
|
||||||
|
|
||||||
Hardware stack (page $01) is used as return stack.
|
|
||||||
|
|
||||||
Instruction pointer and other work registers are kept in
|
|
||||||
page zero occupying total of 12 bytes.
|
|
||||||
|
|
||||||
After initializing interpreter internal state user-defined word
|
|
||||||
`main` is executed.
|
|
||||||
|
|
||||||
Generated code is placed into sections which are output in the
|
|
||||||
order: `init`, `boot`, `data`, `code` or other - specified by the user.
|
|
||||||
|
|
||||||
Examples
|
Examples
|
||||||
--------
|
--------
|
||||||
|
|
||||||
Atari XL/XE executable skeleton. Uses xasm a a backend.
|
Typical Atari XL/XE executable program structure.
|
||||||
|
|
||||||
<pre><code>
|
<pre><code>
|
||||||
[section] init
|
[text-section] init
|
||||||
|
|
||||||
[code]
|
[code]
|
||||||
org $2000
|
org $2000
|
||||||
[end-code]
|
[end-code]
|
||||||
|
|
||||||
[section] code
|
\ constant definitions
|
||||||
|
\ data declarations
|
||||||
|
\ word definitions
|
||||||
|
|
||||||
|
[text-section] text
|
||||||
|
|
||||||
: main
|
: main
|
||||||
|
\ user program initialization
|
||||||
begin
|
begin
|
||||||
...
|
\ user program main loop
|
||||||
again ;
|
again ;
|
||||||
|
|
||||||
[code]
|
[code]
|
||||||
@ -79,17 +221,16 @@ Atari XL/XE executable skeleton. Uses xasm a a backend.
|
|||||||
[end-code]
|
[end-code]
|
||||||
</code></pre>
|
</code></pre>
|
||||||
|
|
||||||
Atari XL/XE example: display character table as 16x16 array.
|
Atari XL/XE example: display character table.
|
||||||
Uses xasm as a backend.
|
|
||||||
|
|
||||||
<pre><code>
|
<pre><code>
|
||||||
[section] init
|
[text-section] init
|
||||||
|
|
||||||
[code]
|
[code]
|
||||||
org $3000
|
org $3000
|
||||||
[end-code]
|
[end-code]
|
||||||
|
|
||||||
[section] code
|
[text-section] text
|
||||||
|
|
||||||
$230 constant dladr
|
$230 constant dladr
|
||||||
|
|
||||||
@ -141,6 +282,7 @@ on the parameter stack.
|
|||||||
dex
|
dex
|
||||||
sta pstack,x
|
sta pstack,x
|
||||||
jmp next
|
jmp next
|
||||||
|
|
||||||
do_gc
|
do_gc
|
||||||
lda $E425
|
lda $E425
|
||||||
pha
|
pha
|
||||||
@ -156,11 +298,8 @@ being a valid assembler label.
|
|||||||
<pre><code>
|
<pre><code>
|
||||||
create array 16 cells allot
|
create array 16 cells allot
|
||||||
|
|
||||||
|
\ increase cell at given address
|
||||||
: ++ ( addr -- )
|
: ++ ( addr -- )
|
||||||
[label] plus_plus
|
[label] plus_plus
|
||||||
dup @ 1+ swap ! ;
|
dup @ 1+ swap ! ;
|
||||||
...
|
|
||||||
array ++
|
|
||||||
array 1 cell + ++
|
|
||||||
...
|
|
||||||
</code></pre>
|
</code></pre>
|
||||||
|
Loading…
x
Reference in New Issue
Block a user