version 1.71, 1999/02/22 18:27:22
|
version 1.72, 1999/02/22 19:05:45
|
Line 377 Variable bit$
|
Line 377 Variable bit$
|
Variable headers-named 0 headers-named ! |
Variable headers-named 0 headers-named ! |
Variable user-vars 0 user-vars ! |
Variable user-vars 0 user-vars ! |
|
|
\ Memory initialisation 05dec92py |
|
|
|
[IFDEF] Memory \ Memory is a bigFORTH feature |
|
also Memory |
|
: initmem ( var len -- ) |
|
2dup swap handle! >r @ r> erase ; |
|
toss |
|
[ELSE] |
|
: initmem ( var len -- ) |
|
tuck allocate abort" CROSS: No memory for target" |
|
( len var adr ) dup rot ! |
|
( len adr ) swap erase ; |
|
[THEN] |
|
|
|
\ MakeKernal 12dec92py |
|
|
|
: makekernel ( targetsize -- targetsize ) |
|
bit$ over 1- tcell>bit rshift 1+ initmem |
|
image over initmem ; |
|
|
|
>MINIMAL |
|
: makekernel makekernel ; |
|
>CROSS |
|
|
|
: target>bitmask-size ( u1 -- u2 ) |
: target>bitmask-size ( u1 -- u2 ) |
1- tcell>bit rshift 1+ ; |
1- tcell>bit rshift 1+ ; |
|
|
Line 408 Variable user-vars 0 user-vars !
|
Line 384 Variable user-vars 0 user-vars !
|
dup allocate ABORT" CROSS: No memory for target" |
dup allocate ABORT" CROSS: No memory for target" |
swap over swap erase ; |
swap over swap erase ; |
|
|
|
|
|
|
\ \ memregion.fs |
\ \ memregion.fs |
|
|
|
|
Line 515 T has? rom H
|
Line 489 T has? rom H
|
: setup-target ( -- ) \G initialize targets memory space |
: setup-target ( -- ) \G initialize targets memory space |
s" rom" T $has? H |
s" rom" T $has? H |
IF \ check for ram and rom... |
IF \ check for ram and rom... |
address-space area nip 0<> |
\ address-space area nip 0<> |
ram-dictionary area nip 0<> |
ram-dictionary area nip 0<> |
rom-dictionary area nip 0<> |
rom-dictionary area nip 0<> |
and and 0= |
and 0= |
ABORT" CROSS: define address-space, rom- , ram-dictionary, with rom-support!" |
ABORT" CROSS: define address-space, rom- , ram-dictionary, with rom-support!" |
THEN |
THEN |
address-space area nip |
address-space area nip |
Line 543 T has? rom H
|
Line 517 T has? rom H
|
r@ >rmem ! |
r@ >rmem ! |
|
|
target>bitmask-size allocatetarget |
target>bitmask-size allocatetarget |
dup |
dup bit$ ! |
bit$ ! |
|
r> >rbm ! |
r> >rbm ! |
|
|
ELSE r> drop THEN |
ELSE r> drop THEN |
REPEAT ; |
REPEAT drop ; |
|
|
|
\ MakeKernal 22feb99jaw |
|
|
|
: makekernel ( targetsize -- targetsize ) |
|
dup dictionary >rlen ! setup-target ; |
|
|
|
>MINIMAL |
|
: makekernel makekernel ; |
|
>CROSS |
|
|
\ \ switched tdp for rom support 03jun97jaw |
\ \ switched tdp for rom support 03jun97jaw |
|
|