version 1.21, 1995/02/02 18:13:02
|
version 1.22, 1995/02/06 18:14:30
|
Line 39 decimal
|
Line 39 decimal
|
VARIABLE GhostNames |
VARIABLE GhostNames |
0 GhostNames ! |
0 GhostNames ! |
: GhostName ( -- addr ) |
: GhostName ( -- addr ) |
here GhostNames @ , GhostNames ! here 0 , |
here GhostNames @ , GhostNames ! here 0 , |
bl word count |
bl word count |
\ 2dup type space |
\ 2dup type space |
dup c, here over chars allot swap move align ; |
string, cfalign ; |
|
|
hex |
hex |
|
|
Line 172 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
Line 172 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
|
|
: align+ ( taddr -- rest ) |
: align+ ( taddr -- rest ) |
cell tuck 1- and - [ cell 1- ] Literal and ; |
cell tuck 1- and - [ cell 1- ] Literal and ; |
|
: cfalign+ ( taddr -- rest ) |
|
\ see kernal.fs:cfaligned |
|
float tuck 1- and - [ float 1- ] Literal and ; |
|
|
>TARGET |
>TARGET |
: aligned ( taddr -- ta-addr ) dup align+ + ; |
: aligned ( taddr -- ta-addr ) dup align+ + ; |
\ assumes cell alignment granularity (as GNU C) |
\ assumes cell alignment granularity (as GNU C) |
|
|
|
: cfaligned ( taddr1 -- taddr2 ) |
|
\ see kernal.fs |
|
dup cfalign+ + ; |
|
|
>CROSS |
>CROSS |
: >image ( taddr -- absaddr ) image @ + ; |
: >image ( taddr -- absaddr ) image @ + ; |
>TARGET |
>TARGET |
Line 195 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
Line 202 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
: , ( w -- ) T here H cell T allot ! H ; |
: , ( w -- ) T here H cell T allot ! H ; |
: c, ( char -- ) T here 1 allot c! H ; |
: c, ( char -- ) T here 1 allot c! H ; |
: align ( -- ) T here H align+ 0 ?DO bl T c, H LOOP ; |
: align ( -- ) T here H align+ 0 ?DO bl T c, H LOOP ; |
|
: cfalign ( -- ) |
|
T here H cfalign+ 0 ?DO bl T c, H LOOP ; |
|
|
: A! dup relon T ! H ; |
: A! dup relon T ! H ; |
: A, ( w -- ) T here H relon T , H ; |
: A, ( w -- ) T here H relon T , H ; |
Line 344 VARIABLE ^imm
|
Line 353 VARIABLE ^imm
|
|
|
: string, ( addr count -- ) |
: string, ( addr count -- ) |
dup T c, H bounds DO I c@ T c, H LOOP ; |
dup T c, H bounds DO I c@ T c, H LOOP ; |
: name, ( "name" -- ) bl word count string, T align H ; |
: name, ( "name" -- ) bl word count string, T cfalign H ; |
: view, ( -- ) ( dummy ) ; |
: view, ( -- ) ( dummy ) ; |
|
|
VARIABLE CreateFlag CreateFlag off |
VARIABLE CreateFlag CreateFlag off |