version 1.99, 2001/06/16 22:53:36
|
version 1.100, 2001/07/10 20:47:09
|
Line 944 Variable user-vars 0 user-vars !
|
Line 944 Variable user-vars 0 user-vars !
|
: target>bitmask-size ( u1 -- u2 ) |
: target>bitmask-size ( u1 -- u2 ) |
1- tcell>bit rshift 1+ ; |
1- tcell>bit rshift 1+ ; |
|
|
: allocatetarget ( size --- adr ) |
: allocatetarget ( size -- adr ) |
dup allocate ABORT" CROSS: No memory for target" |
dup allocate ABORT" CROSS: No memory for target" |
swap over swap erase ; |
swap over swap erase ; |
|
|
Line 1050 T has? rom H
|
Line 1050 T has? rom H
|
' dictionary ALIAS rom-dictionary |
' dictionary ALIAS rom-dictionary |
|
|
|
|
: setup-target ( -- ) \G initialize targets memory space |
: setup-target ( -- ) \G initialize target's 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<> |
Line 1087 T has? rom H
|
Line 1087 T has? rom H
|
ELSE r> drop THEN |
ELSE r> drop THEN |
REPEAT drop ; |
REPEAT drop ; |
|
|
\ MakeKernal 22feb99jaw |
\ MakeKernel 22feb99jaw |
|
|
: makekernel ( targetsize -- targetsize ) |
: makekernel ( targetsize -- targetsize ) |
dup dictionary >rlen ! setup-target ; |
dup dictionary >rlen ! setup-target ; |