version 1.33, 2000/11/13 22:10:30
|
version 1.34, 2001/01/28 17:39:33
|
Line 99 DEFER nlcount ' noop IS nlcount
|
Line 99 DEFER nlcount ' noop IS nlcount
|
IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
THEN ; |
THEN ; |
|
|
DEFER .string |
DEFER .string ( c-addr u n -- ) |
|
|
[IFDEF] Green |
[IFDEF] Green |
VARIABLE Colors Colors on |
VARIABLE Colors Colors on |
Line 488 c-extender !
|
Line 488 c-extender !
|
THEN ; |
THEN ; |
|
|
: analyse ( a-addr1 -- a-addr2 ) |
: analyse ( a-addr1 -- a-addr2 ) |
Branches @ IF BranchTo? THEN |
Branches @ IF BranchTo? THEN |
dup cell+ swap @ |
dup cell+ swap @ |
dup >r DoTable r> swap IF drop EXIT THEN |
dup >r DoTable r> swap IF drop EXIT THEN |
Display? |
Display? |
IF look 0= IF drop dup 1 cells - @ ." <" 0 .r ." >" |
IF |
|
look 0= IF |
|
drop dup 1 cells - @ ." <" 0 .r ." >" |
ELSE |
ELSE |
dup cell+ count dup immediate-mask and |
dup cell+ @ immediate-mask and |
IF bl cemit ." POSTPONE " THEN |
IF |
31 and rot wordinfo .string THEN bl cemit |
bl cemit ." POSTPONE " |
ELSE drop |
THEN |
THEN ; |
dup name>string rot wordinfo .string |
|
THEN |
|
bl cemit |
|
ELSE |
|
drop |
|
THEN ; |
|
|
: c-init |
: c-init |
0 YPos ! 0 XPos ! |
0 YPos ! 0 XPos ! |