Return to mach.fs CVS log

Up to [gforth] / gforth / arch / r8c

Annotation of gforth/arch/r8c/mach.fs, revision 1.7

1.1       pazsan      1: \ Parameter for target systems                         06oct92py
                      2: 
1.6       anton       3: \ Copyright (C) 1995,2003,2006,2007 Free Software Foundation, Inc.
1.1       pazsan      4: 
                      5: \ This file is part of Gforth.
                      6: 
                      7: \ Gforth is free software; you can redistribute it and/or
                      8: \ modify it under the terms of the GNU General Public License
1.7     ! anton       9: \ as published by the Free Software Foundation, either version 3
1.1       pazsan     10: \ of the License, or (at your option) any later version.
                     11: 
                     12: \ This program is distributed in the hope that it will be useful,
                     13: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
                     14: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     15: \ GNU General Public License for more details.
                     16: 
                     17: \ You should have received a copy of the GNU General Public License
1.7     ! anton      18: \ along with this program. If not, see http://www.gnu.org/licenses/.
1.1       pazsan     19: 
                     20:     2 Constant cell
                     21:     1 Constant cell<<
                     22:     4 Constant cell>bit
                     23:     8 Constant bits/char
                     24:     8 Constant bits/byte
                     25:     8 Constant float
                     26:     2 Constant /maxalign
                     27: false Constant bigendian
                     28: ( true=big, false=little )
                     29: 
                     30: \ feature list
                     31: 
                     32: false Constant NIL  \ relocating
                     33: 
                     34: : prims-include  ." Include primitives" cr s" arch/r8c/prim.fs" included ;
                     35: : asm-include    ." Include assembler" cr s" arch/r8c/asm.fs" included ;
                     36: : >boot  ." Setup boot parameters" cr
1.2       pazsan     37:     s" include arch/r8c/errors.fs" evaluate
1.4       pazsan     38:     s" >rom $2000 flash-dp !" evaluate
1.1       pazsan     39:     s" unlock" evaluate
                     40:     s" >rom there >ram ram-start there over -" evaluate
                     41:     s" >rom there swap dup X allot tcmove" evaluate
                     42:     s" lock" evaluate
1.4       pazsan     43:     s" cto ram-mirror" evaluate
                     44:     s" >ram here ram-start - >rom cto ram-size" evaluate
1.1       pazsan     45:     s" $FF $10000 here - tcallot $C000 $FFFC ! $FF00 $FFFE !" evaluate
                     46:     s" ec/shex.fs" included
                     47:     s" 0 cpu-start" evaluate
                     48:     $C000 $4000 s" save-region-shex rom-r8c.mot" evaluate
1.3       pazsan     49:     s" $FFFF $2FFC ! $FFFF $2FFE ! $2FFC 4 save-region-shex data-r8c.mot" evaluate
1.1       pazsan     50:     s" >ram" evaluate
                     51:     $400 s" here over - save-region-shex ram-r8c.mot" evaluate ;
                     52: 
                     53: >ENVIRON
                     54: 
                     55: false SetValue file            \ controls the presence of the
                     56:                                \ file access wordset
                     57: false SetValue OS              \ flag to indicate a operating system
                     58: 
                     59: false SetValue prims           \ true: primitives are c-code
                     60: 
                     61: false SetValue floating                \ floating point wordset is present
                     62: 
                     63: false SetValue glocals         \ gforth locals are present
                     64:                                \ will be loaded
                     65: false SetValue dcomps          \ double number comparisons
                     66: 
                     67: false SetValue hash            \ hashing primitives are loaded/present
                     68: 
                     69: false SetValue xconds          \ used together with glocals,
                     70:                                \ special conditionals supporting gforths'
                     71:                                \ local variables
                     72: false SetValue header          \ save a header information
                     73: 
                     74: true SetValue ec
                     75: true SetValue crlf
                     76: true SetValue ITC
                     77: false SetValue new-input
                     78: false SetValue peephole
                     79: true SetValue abranch       \ enables absolute branches
                     80: 
                     81: true SetValue rom
                     82: true SetValue flash
                     83: 
                     84: true SetValue compiler
                     85: false SetValue primtrace
                     86: true SetValue no-userspace
                     87: 
                     88: \ cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
                     89: 
                     90: 16 KB          SetValue stack-size
                     91: 15 KB 512 +    SetValue fstack-size
                     92: 15 KB          SetValue rstack-size
                     93: 14 KB 512 +    SetValue lstack-size
                     94: 
                     95: $C000 SetValue kernel-start
                     96: 16 KB SetValue kernel-size
                     97: