BL_
_paren_DOES_to__
_paren_paren_ABORT_quote__
_paren_paren_CONSTANT__
_paren_paren_C_quote__
_paren_paren_DOES_to__
_paren_paren_DO__
_paren_paren_ELSE__
_paren_paren_IF__
_paren_paren_LIT__
_paren_paren_LOOP__
_paren_paren_MARKER__
_paren_paren_OF__
_paren_paren_POSTPONE__
_paren_paren_Q_DO__
_paren_paren_S_quote__
_paren_paren_TO__
_paren_paren_VALUE__
_paren_paren_VAR__
_paren_paren_colon__
_paren_paren_dot_quote__
_paren_paren_plus_LOOP__
_paren_paren_semicolon__
p4_Q_do_
p4_Q_do_execution_
p4_Q_dup_
p4_abort_
p4_abort_quote_
p4_abort_quote_execution_
p4_abs_
p4_accept_
p4_again_
p4_align_
p4_aligned_
p4_allot_
p4_and_
p4_backslash_
p4_begin_
p4_bracket_char_
p4_bracket_compile_
p4_bracket_tick_
p4_c_comma_
p4_c_fetch_
p4_c_quote_
p4_c_quote_execution_
p4_c_store_
p4_case_
p4_cell_plus_
p4_cells_
p4_char_
p4_char_plus_
p4_chars_
p4_colon_
p4_colon_RT_
p4_colon_noname_
p4_comma_
p4_compile_comma_
p4_constant_
p4_constant_RT_
p4_convert_
p4_count_
p4_cr_
p4_create_
p4_create_RT_
p4_decimal_
p4_depth_
p4_do_
p4_do_execution_
p4_does_
p4_does_defined_RT_
p4_does_execution_
p4_dot_
p4_dot_paren_
p4_dot_quote_
p4_dot_quote_execution_
p4_dot_r_
p4_drop_
p4_dup_
p4_else_
p4_emit_
p4_endcase_
p4_endof_
p4_environment_dump_
p4_environment_query_
p4_equals_
p4_erase_
p4_evaluate
p4_evaluate_
p4_execute_
p4_exit
p4_exit_
p4_expect
p4_expect_
p4_f_m_slash_mod_
p4_fetch_
p4_fill_
p4_find_
p4_greater_than_
p4_here_
p4_hex_
p4_hold
p4_hold_
p4_i_
p4_if_
p4_immediate_
p4_invert_
p4_j_
p4_key_
p4_l_shift_
p4_leave_
p4_left_bracket_
p4_less_sh_
p4_less_than_
p4_literal_
p4_literal_execution_
p4_loop_
p4_loop_execution_
p4_m_star_
p4_marker_
p4_marker_RT_
p4_max_
p4_min_
p4_minus_
p4_mod_
p4_move_
p4_negate_
p4_nip_
p4_not_equals_
p4_of_
p4_of_execution_
p4_one_minus_
p4_one_plus_
p4_or_
p4_over_
p4_pad_
p4_paren_
p4_parse
p4_parse_
p4_pick_
p4_plus_
p4_plus_loop_
p4_plus_loop_execution_
p4_plus_store_
p4_postpone_
p4_quit_
p4_quote_
p4_r_fetch_
p4_r_from_
p4_r_shift_
p4_recurse_
p4_refill
p4_refill_
p4_repeat_
p4_restore_input_
p4_right_bracket_
p4_roll_
p4_rot_
p4_s_m_slash_rem_
p4_s_quote_
p4_s_to_d_
p4_save_input_
p4_semicolon_
p4_semicolon_execution_
p4_sh_
p4_sh_greater_
p4_sh_s_
p4_sign_
p4_slash_
p4_slash_mod_
p4_source
p4_source_
p4_space_
p4_spaces
p4_spaces_
p4_star_
p4_star_slash_
p4_star_slash_mod_
p4_store_
p4_swap_
p4_then_
p4_tick
p4_tick_
p4_to_
p4_to_body_
p4_to_execution_
p4_to_number
p4_to_number_
p4_to_r_
p4_tuck_
p4_two_drop_
p4_two_dup_
p4_two_fetch_
p4_two_over_
p4_two_r_fetch_
p4_two_r_from_
p4_two_slash_
p4_two_star_
p4_two_store_
p4_two_swap_
p4_two_to_r_
p4_type
p4_type_
p4_u_dot_
p4_u_dot_r_
p4_u_greater_than_
p4_u_less_than_
p4_u_m_slash_mod_
p4_u_m_star_
p4_unloop_
p4_until_
p4_unused_
p4_value_
p4_value_RT_
p4_variable_
p4_while_
p4_within_
p4_word_
p4_xor_
p4_zero_equal_
p4_zero_greater_
p4_zero_less_
p4_zero_not_equals_
p4_alloc_parse_openstring
p4_parse_openstring_into
BL_ :
BL
reference: ../src/core.c:2579
_paren_DOES_to__ :
(DOES>) ( -- pfa )
DOES>
reference: ../src/core.c:0961
_paren_paren_ABORT_quote__ :
((ABORT")) ( -- )
ABORT"
reference: ../src/core.c:0652
_paren_paren_CONSTANT__ :
((CONSTANT)) ( -- )
CONSTANT
reference: ../src/core.c:0833
_paren_paren_C_quote__ :
((C")) ( -- bstring )
C"
reference: ../src/core.c:2120
_paren_paren_DOES_to__ :
((DOES>)) ( -- pfa )
reference: ../src/core.c:0951
_paren_paren_DO__ :
((DO)) ( end start -- )
DO
reference: ../src/core.c:0923
_paren_paren_ELSE__ :
((ELSE)) ( -- )
ELSE
BRANCH
reference: ../src/core.c:1012
_paren_paren_IF__ :
((IF)) ( -- )
IF
?BRANCH
reference: ../src/core.c:1306
_paren_paren_LIT__ :
((LIT)) ( -- value )
LITERAL
reference: ../src/core.c:1383
_paren_paren_LOOP__ :
((LOOP)) ( -- )
LOOP
reference: ../src/core.c:1410
_paren_paren_MARKER__ :
((MARKER))
MARKER
reference: ../src/core.c:2251
_paren_paren_OF__ :
((OF))
OF
reference: ../src/core.c:2279
_paren_paren_POSTPONE__ :
((POSTPONE)) ( -- )
POSTPONE
reference: ../src/core.c:1520
_paren_paren_Q_DO__ :
((?DO)) ( a b -- )
?DO
reference: ../src/core.c:2082
_paren_paren_S_quote__ :
((S")) ( -- string-address string-length )
S"
reference: ../src/core.c:1649
_paren_paren_TO__ :
((TO)) ( value -- )
TO
reference: ../src/core.c:2402
_paren_paren_VALUE__ :
((VALUE)) ( -- value )
VALUE
reference: ../src/core.c:2489
_paren_paren_VAR__ :
((VAR)) ( -- pfa )
CREATE
VARIABLE
reference: ../src/core.c:0880
_paren_paren_colon__ :
((:)) ( -- )
:
reference: ../src/core.c:0486
_paren_paren_dot_quote__ :
((.")) _skip_string_ ( -- )
."
reference: ../src/core.c:0307
_paren_paren_plus_LOOP__ :
((+LOOP)) ( increment -- )
+LOOP
reference: ../src/core.c:0250
_paren_paren_semicolon__ :
((;)) ( -- )
;
;AND
EXIT
reference: ../src/core.c:0512
p4_Q_do_ :
?DO .. LOOP ( end start -- )
DO
reference: ../src/core.c:2096
p4_Q_do_execution_ :
((?DO)) ( a b -- )
?DO
reference: ../src/core.c:2083
p4_Q_dup_ :
?DUP ( value -- value|[nothing] )
DROP
example: : XX BEGIN ?DUP WHILE DUP . 2/ REPEAT ; instead of : XX BEGIN DUP WHILE DUP . 2/ REPEAT DROP ;
reference: ../src/core.c:0628
p4_abort_ :
ABORT ( -- ) no-return
reference: ../src/core.c:0645
p4_abort_quote_ :
ABORT" what" ( -- ) no-return
ABORT
reference: ../src/core.c:0666
p4_abort_quote_execution_ :
((ABORT")) ( -- )
ABORT"
reference: ../src/core.c:0653
p4_abs_ :
ABS ( value -- value' )
reference: ../src/core.c:0677
p4_accept_ :
ACCEPT ( a n -- n' )
reference: ../src/core.c:0688
p4_again_ :
AGAIN ( -- )
BEGIN
WHILE
reference: ../src/core.c:2109
p4_align_ :
ALIGN ( -- )
ALIGNED
reference: ../src/core.c:0698
p4_aligned_ :
ALIGNED ( addr -- addr' )
CELLS
ALIGN
reference: ../src/core.c:0710
p4_allot_ :
ALLOT ( count -- )
CREATE
VARIABLE
VALUE
CELLS
reference: ../src/core.c:0723
p4_and_ :
AND ( val mask -- val' )
reference: ../src/core.c:0732
p4_backslash_ :
\ comment ( -- )
reference: ../src/core.c:2535
p4_begin_ :
BEGIN ( -- ) compie-time: ( -- cs-marker )
WHILE
REPEAT
reference: ../src/core.c:0741
p4_bracket_char_ :
[CHAR] charword ( -- char )
CHAR
ASCII
reference: ../src/core.c:1935
p4_bracket_compile_ :
[COMPILE] word ( -- )
IF
COMPILE
POSTPONE
reference: ../src/core.c:2524
p4_bracket_tick_ :
['] name ( -- ) immediate
'
'>
POSTPONE
reference: ../src/core.c:1921
p4_c_comma_ :
C, ( value -- )
,
reference: ../src/core.c:0762
p4_c_fetch_ :
C@ ( addr -- value )
@
reference: ../src/core.c:0770
p4_c_quote_ :
C" string" ( -- bstring )
POCKET
S"
"
reference: ../src/core.c:2133
p4_c_quote_execution_ :
((C")) ( -- bstring )
C"
reference: ../src/core.c:2121
p4_c_store_ :
C! ( value address -- )
!
reference: ../src/core.c:0752
p4_case_ :
CASE ( comp-value -- comp-value )
ENDCASE
OF
reference: ../src/core.c:2158
p4_cell_plus_ :
CELL+ ( value -- value' )
CELLS
reference: ../src/core.c:0779
p4_cells_ :
CELLS ( value -- value' )
ALLOT
reference: ../src/core.c:0789
p4_char_ :
CHAR a ( -- value )
reference: ../src/core.c:0798
p4_char_plus_ :
CHAR+ ( value -- value' )
CHARS
reference: ../src/core.c:0815
p4_chars_ :
CHARS ( value -- value' )
ALLOT
reference: ../src/core.c:0826
p4_colon_ :
: name ( -- )
;
EXIT
reference: ../src/core.c:0499
p4_colon_RT_ :
((:)) ( -- )
:
reference: ../src/core.c:0487
p4_colon_noname_ :
:NONAME ( -- cs.value )
CREATE
;
reference: ../src/core.c:2061
p4_comma_ :
, ( val -- )
simulate: : , DP 1 CELLS DP +! ! ;
reference: ../src/core.c:0282
p4_compile_comma_ :
COMPILE, ( xt -- )
,
COMPILE
[COMPILE]
POSTPONE
:NONAME
reference: ../src/core.c:2175
p4_constant_ :
CONSTANT name ( value -- )
CREATE
((CONSTANT))
VALUE
reference: ../src/core.c:0847
p4_constant_RT_ :
((CONSTANT)) ( -- )
CONSTANT
reference: ../src/core.c:0834
p4_convert_ :
CONVERT ( a b -- a b )
>NUMBER
reference: ../src/core.c:2183
p4_count_ :
COUNT ( counted-string -- string-pointer string-length )
TYPE
reference: ../src/core.c:0856
p4_cr_ :
CR ( -- )
reference: ../src/core.c:0870
p4_create_ :
CREATE name ( -- )
((VAR))
DOES>
reference: ../src/core.c:0894
p4_create_RT_ :
((VAR)) ( -- pfa )
CREATE
VARIABLE
reference: ../src/core.c:0881
p4_decimal_ :
DECIMAL ( -- )
BASE
simulate: : DECIMAL 10 BASE ! ;
reference: ../src/core.c:0904
p4_depth_ :
DEPTH ( -- value )
SP@
CELLS
reference: ../src/core.c:0913
p4_do_ :
DO .. LOOP ( end start -- )
>R
LOOP
+LOOP
LEAVE
I
reference: ../src/core.c:0940
p4_do_execution_ :
((DO)) ( end start -- )
DO
reference: ../src/core.c:0924
p4_does_ :
DOES> ( -- pfa )
CREATE
(DOES>)
DOES>
reference: ../src/core.c:0981
p4_does_defined_RT_ :
((DOES>)) ( -- pfa )
reference: ../src/core.c:0952
p4_does_execution_ :
(DOES>) ( -- pfa )
DOES>
reference: ../src/core.c:0962
p4_dot_ :
. ( val -- )
BASE
reference: ../src/core.c:0299
p4_dot_paren_ :
.( message) ( -- )
."
reference: ../src/core.c:1964
p4_dot_quote_ :
." string" ( -- )
reference: ../src/core.c:0319
p4_dot_quote_execution_ :
((.")) _skip_string_ ( -- )
."
reference: ../src/core.c:0308
p4_dot_r_ :
.R ( val prec -- )
reference: ../src/core.c:1993
p4_drop_ :
DROP ( a -- )
DUP
reference: ../src/core.c:0993
p4_dup_ :
DUP ( a -- a a )
=
DROP
reference: ../src/core.c:1003
p4_else_ :
ELSE ( -- )
((ELSE))
BRANCH
THEN
IF
reference: ../src/core.c:1023
p4_emit_ :
EMIT ( char -- )
reference: ../src/core.c:1037
p4_endcase_ :
ENDCASE ( comp-value -- )
CASE
OF
ENDOF
ENDCASE
ENDOF
ENDCASE
reference: ../src/core.c:2196
p4_endof_ :
ENDOF ( -- )
OF
ENDCASE
CASE
reference: ../src/core.c:2212
p4_environment_dump_ :
( -- )
LOADED
reference: ../src/core.c:1047
p4_environment_query_ :
( string[str/len] -- false | prop true )
reference: ../src/core.c:1111
p4_equals_ :
= ( a b -- cond )
reference: ../src/core.c:0562
p4_erase_
reference: ../src/core.c:2224
p4_evaluate
reference: ../src/p4ed.c:1066
p4_evaluate_ :
EVALUATE ( str-ptr str-len -- )
INTERPRET
SOURCE
reference: ../src/core.c:1200
p4_execute_ :
EXECUTE ( xt -- )
>EXECUTE
simulate: : EXECUTE >R EXIT ;
reference: ../src/core.c:1215
p4_exit
reference: ../src/toolkit.c:0273
p4_exit_ :
EXIT ( -- )
:
;
reference: ../src/core.c:1225
p4_expect
reference: ../src/misc.c:0825
p4_expect_ :
EXPECT ( str-adr str-len -- )
WORD
PARSE
QUERY
in => SPAN - this word is superceded by => ACCEPT
reference: ../src/core.c:2235
p4_f_m_slash_mod_ :
( n1.n1 n2 -- m n )
reference: ../src/core.c:1271
p4_fetch_ :
@ ( addr -- value )
reference: ../src/core.c:0637
p4_fill_ :
FILL ( mem-addr mem-length char -- )
reference: ../src/core.c:1239
p4_find_ :
FIND ( bstring -- cfa|bstring -1|0|1 )
reference: ../src/core.c:1253
p4_greater_than_ :
> ( a b -- cond )
reference: ../src/core.c:0571
p4_here_ :
HERE ( -- dp-value )
WORD
simulate: : HERE DP @ ;
reference: ../src/core.c:1282
p4_hex_ :
HEX ( -- )
BASE
simulate: : HEX 16 BASE ! ;
reference: ../src/core.c:2244
p4_hold
reference: ../src/double.c:0102
p4_hold_ :
HOLD ( char -- )
reference: ../src/core.c:1291
p4_i_ :
I ( -- value )
DO
LOOP
reference: ../src/core.c:1299
p4_if_ :
IF .. THEN ( value -- )
IF
ELSE
THEN
reference: ../src/core.c:1321
p4_immediate_ :
IMMEDIATE ( -- )
LATEST
CREATE
reference: ../src/core.c:1332
p4_invert_ :
INVERT ( value -- value' )
NEGATE
reference: ../src/core.c:1344
p4_j_ :
J ( -- value )
DO
LOOP
I
K
reference: ../src/core.c:1355
p4_key_ :
KEY ( -- char )
reference: ../src/core.c:1364
p4_l_shift_ :
LSHIFT ( value shift-val -- value' )
reference: ../src/core.c:1436
p4_leave_ :
LEAVE ( -- )
DO
LOOP
LOOP
reference: ../src/core.c:1374
p4_left_bracket_ :
[ ( -- )
,
LITERAL
]
reference: ../src/core.c:1910
p4_less_sh_ :
<# ( -- )
HOLD
PRINTF
reference: ../src/core.c:0554
p4_less_than_ :
< ( a b -- cond )
reference: ../src/core.c:0543
p4_literal_ :
LITERAL ( value -- )
: DCELLS [ 2 CELLS ] LITERAL * ; ( will save a multiplication at runtime)
reference: ../src/core.c:1397
p4_literal_execution_ :
((LIT)) ( -- value )
LITERAL
reference: ../src/core.c:1384
p4_loop_ :
LOOP ( -- )
DO
((LOOP))
reference: ../src/core.c:1424
p4_loop_execution_ :
((LOOP)) ( -- )
LOOP
reference: ../src/core.c:1411
p4_m_star_ :
M* ( a b -- m,m )
reference: ../src/core.c:1445
p4_marker_ :
MARKER name
FORGET
reference: ../src/core.c:2262
p4_marker_RT_ :
((MARKER))
MARKER
reference: ../src/core.c:2252
p4_max_ :
MAX ( a b -- c )
reference: ../src/core.c:1453
p4_min_ :
MIN ( a b -- c )
reference: ../src/core.c:1463
p4_minus_ :
- ( a b -- a-b )
reference: ../src/core.c:0290
p4_mod_ :
MOD ( a b -- c )
reference: ../src/core.c:1473
p4_move_ :
MOVE ( from to length -- )
reference: ../src/core.c:1483
p4_negate_ :
NEGATE ( value -- value' )
simulate: : NEGATE -1 * ;
reference: ../src/core.c:1493
p4_nip_ :
NIP ( a b -- b )
TUCK
simulate: : NIP SWAP DROP ;
reference: ../src/core.c:2271
p4_not_equals_
reference: ../src/core.c:2074
p4_of_ :
OF .. ENDOF ( comp-value case-value -- comp-value )
CASE
ENDOF
ENDCASE
reference: ../src/core.c:2294
p4_of_execution_ :
((OF))
OF
reference: ../src/core.c:2280
p4_one_minus_ :
1- ( val -- val-1 )
simulate: : 1- 1 - ;
reference: ../src/core.c:0388
p4_one_plus_ :
1+ ( val -- val+1 )
simulate: : 1+ 1 + ;
reference: ../src/core.c:0378
p4_or_ :
OR ( a b -- ab )
AND
reference: ../src/core.c:1502
p4_over_ :
OVER ( a b -- a b a )
TUCK
reference: ../src/core.c:1512
p4_pad_ :
PAD ( -- addr )
reference: ../src/core.c:2307
p4_paren_ :
( comment) ( -- )
reference: ../src/core.c:0177
p4_parse
reference: ../src/misc.c:1232
p4_parse_ :
PARSE ( buffer-start buffer-count delim-char -- )
reference: ../src/core.c:2318
p4_pick_ :
PICK ( n -- value )
0 PICK -> DUP 1 PICK -> OVER
reference: ../src/core.c:2346
p4_plus_ :
+ ( a b -- a+b )
reference: ../src/core.c:0231
p4_plus_loop_ :
+LOOP ( increment -- )
((+LOOP))
DO
LOOP
reference: ../src/core.c:0268
p4_plus_loop_execution_ :
((+LOOP)) ( increment -- )
+LOOP
reference: ../src/core.c:0251
p4_plus_store_ :
+! ( val addr -- )
simulate: : +! TUCK @ + SWAP ! ;
reference: ../src/core.c:0242
p4_postpone_ :
POSTPONE word ( -- )
POSTPONE
COMPILE
[COMPILE]
reference: ../src/core.c:1536
p4_quit_ :
QUIT ( -- ) no-return
QUERY
EVALUATE
INTERPRET
THROW
reference: ../src/core.c:1558
p4_quote_ :
" string" ( -- bstring ) or sometimes ( -- string-ptr string-count )
S"
C"
reference: ../src/core.c:2559
p4_r_fetch_ :
R@ ( -- value )
>R
LOCALS|
>R
R>
reference: ../src/core.c:1582
p4_r_from_ :
R> ( -- value )
>R
R@
LOCALS|
reference: ../src/core.c:1571
p4_r_shift_ :
RSHIFT ( value shift-val -- value' )
reference: ../src/core.c:1641
p4_recurse_ :
RECURSE ( ? -- ? )
RECURSE
traditionally the following code had been in use: : GREAT-WORD [ UNSMUDGE ] DUP . 1- ?DUP IF GREAT-WORD THEN ; now use : GREAT-WORD DUP . 1- ?DUP IF RECURSE THEN ;
reference: ../src/core.c:1599
p4_refill
reference: ../src/unix.c:0894
p4_refill_ :
REFILL ( -- flag )
SOURCE
>IN
EVALUATE
reference: ../src/core.c:2359
p4_repeat_ :
REPEAT ( -- )
BEGIN
reference: ../src/core.c:1611
p4_restore_input_ :
RESTORE-INPUT ( xn ... x1 -- )
SAVE-INPUT
reference: ../src/core.c:2367
p4_right_bracket_ :
] ( -- )
[
,
LITERAL
reference: ../src/core.c:1949
p4_roll_ :
ROLL ( xn xm ... x1 n -- xm ... x1 xn )
ROT
2 ROLL -> ROT
reference: ../src/core.c:2380
p4_rot_ :
ROT ( a b c -- b c a )
-ROT
LOCALS|
VAR
reference: ../src/core.c:1628
p4_s_m_slash_rem_ :
( a.a b -- c d )
/MOD
FM/MOD
UM/MOD
SM/REM
reference: ../src/core.c:1718
p4_s_quote_ :
S" string" ( -- string-address string-length)
C"
"
reference: ../src/core.c:1667
p4_s_to_d_ :
S>D ( a -- a,a' )
reference: ../src/core.c:1699
p4_save_input_ :
SAVE-INPUT ( -- xn .. x1 )
RESTORE-INPUT
reference: ../src/core.c:2394
p4_semicolon_ :
; ( -- )
((;))
EXIT
:
:NONAME
reference: ../src/core.c:0523
p4_semicolon_execution_ :
((;)) ( -- )
;
;AND
EXIT
reference: ../src/core.c:0513
p4_sh_ :
# ( n.n -- n.n' )
HOLD
PRINTF
BASE
<#
#>
reference: ../src/core.c:0129
p4_sh_greater_ :
#> ( n.n -- str-addr str-len )
HOLD
PRINTF
reference: ../src/core.c:0140
p4_sh_s_ :
#S ( n.n -- n.n ) f
HOLD
PRINTF
#
<#
#>
reference: ../src/core.c:0153
p4_sign_ :
SIGN ( a -- )
HOLD
reference: ../src/core.c:1709
p4_slash_ :
/ ( a b -- a/b )
reference: ../src/core.c:0337
p4_slash_mod_ :
/MOD ( a b -- m n )
reference: ../src/core.c:0348
p4_source
reference: ../src/core.c:1739
p4_source_ :
SOURCE ( -- buffer IN-offset )
REFILL
REFILL
reference: ../src/core.c:1734
p4_space_ :
SPACE ( -- )
SPACES
simulate: : SPACE BL EMIT ;
reference: ../src/core.c:1749
p4_spaces
reference: ../src/misc.c:0215
p4_spaces_ :
SPACES ( n -- )
SPACE
reference: ../src/core.c:1759
p4_star_ :
* ( a b -- a*b )
reference: ../src/core.c:0197
p4_star_slash_ :
*\/ ( a b c -- a*b/c )
*
/
reference: ../src/core.c:0209
p4_star_slash_mod_ :
*\/MOD ( a b c -- m n )
*
/MOD
reference: ../src/core.c:0222
p4_store_ :
! ( val addr -- )
reference: ../src/core.c:0116
p4_swap_ :
SWAP ( a b -- b a )
reference: ../src/core.c:1767
p4_then_ :
THEN ( -- )
IF
ELSE
reference: ../src/core.c:1778
p4_tick
reference: ../src/yours.c:0758
p4_tick_ :
' name ( -- xt )
[']
'>
reference: ../src/core.c:0168
p4_to_ :
TO name ( value -- )
VALUE
LOCALS|
reference: ../src/core.c:2413
p4_to_body_ :
>BODY ( addr -- addr' )
reference: ../src/core.c:0583
p4_to_execution_ :
((TO)) ( value -- )
TO
reference: ../src/core.c:2403
p4_to_number
reference: ../src/core.c:0595
p4_to_number_ :
>NUMBER ( a,a str-adr str-len -- a,a' str-adr' str-len)
BASE
reference: ../src/core.c:0592
p4_to_r_ :
>R ( value -- )
DO
WHILE
R>
R@
>R
reference: ../src/core.c:0610
p4_tuck_ :
TUCK ( a b -- b a b )
OVER
NIP
simulate: : TUCK SWAP OVER ;
reference: ../src/core.c:2450
p4_two_drop_ :
2DROP ( a b -- )
reference: ../src/core.c:0437
p4_two_dup_ :
2DUP ( a,a -- a,a a,a )
simulate: : 2DUP OVER OVER ; ( wrong would be : 2DUP DUP DUP ; !!)
reference: ../src/core.c:0448
p4_two_fetch_ :
2@ ( addr -- a,a )
reference: ../src/core.c:0427
p4_two_over_ :
2OVER ( a,a b,b -- a,a b,b a,a )
OVER
2DUP
simulate: : 2OVER SP@ 2 CELLS + 2@ ;
reference: ../src/core.c:0460
p4_two_r_fetch_ :
2R@ ( -- a,a )
2>R
R@
reference: ../src/core.c:2047
p4_two_r_from_ :
2R> ( -- a,a )
R>
2>R
reference: ../src/core.c:2036
p4_two_slash_ :
2/ ( a -- a/2 )
simulate: : 2/ 2 / ; ( canonic) : 2/ 1 RSHIFT ; ( usual)
reference: ../src/core.c:0419
p4_two_star_ :
2* ( a -- a*2 )
simulate: : 2* 2 * ; ( canonic) : 2* 1 LSHIFT ; ( usual)
reference: ../src/core.c:0408
p4_two_store_ :
2! ( a,a addr -- )
reference: ../src/core.c:0396
p4_two_swap_ :
2SWAP ( a,a b,b -- b,b a,a )
SWAP
2DUP
simulate: : 2SWAP LOCALS| B1 B2 A1 A2 | B2 B1 A2 A1 ;
reference: ../src/core.c:0472
p4_two_to_r_ :
2>R ( a,a -- )
>R
reference: ../src/core.c:2025
p4_type
reference: ../src/p4ed.c:0250
p4_type_ :
TYPE ( string-pointer string-length -- )
COUNT
EMIT
reference: ../src/core.c:1789
p4_u_dot_ :
U. ( value )
reference: ../src/core.c:1797
p4_u_dot_r_ :
U.R ( value prec -- )
.R
reference: ../src/core.c:2462
p4_u_greater_than_ :
U> ( a b -- ab )
>
reference: ../src/core.c:2472
p4_u_less_than_ :
U< ( a b -- cond )
<
reference: ../src/core.c:1806
p4_u_m_slash_mod_ :
UM/MOD ( a b -- c,c )
/MOD
SM/REM
reference: ../src/core.c:1823
p4_u_m_star_ :
UM* ( a b -- c,c )
reference: ../src/core.c:1815
p4_unloop_ :
UNLOOP ( -- )
DO
LOOP
EXIT
reference: ../src/core.c:1835
p4_until_ :
UNTIL ( cond -- )
BEGIN
WHILE
reference: ../src/core.c:1843
p4_unused_ :
UNUSED ( -- val )
HERE
reference: ../src/core.c:2482
p4_value_ :
VALUE name ( value -- )
CREATE
VARIABLE
CONSTANT
LOCALS|
VAR
reference: ../src/core.c:2501
p4_value_RT_ :
((VALUE)) ( -- value )
VALUE
reference: ../src/core.c:2490
p4_variable_ :
VARIABLE name ( -- )
CREATE
@
!
reference: ../src/core.c:1858
p4_while_ :
WHILE ( cond -- )
BEGIN
WHILE
REPEAT
REPEAT
BEGIN
WHILE
REPEAT
UNTIL
BEGIN
UNTIL
reference: ../src/core.c:1872
p4_within_ :
WITHIN ( a b c -- cond )
reference: ../src/core.c:2512
p4_word_ :
WORD ( delimiter-char -- )
SOURCE
>IN
HERE
PARSE
reference: ../src/core.c:1889
p4_xor_ :
XOR ( a b -- ab )
reference: ../src/core.c:1898
p4_zero_equal_ :
0= ( val -- cond )
simulate: : 0= 0 = ;
reference: ../src/core.c:0368
p4_zero_greater_ :
0> ( value -- cond )
simulate: : 0> 0 > ;
reference: ../src/core.c:2017
p4_zero_less_ :
0< ( val -- cond )
simulate: : 0< 0 < ;
reference: ../src/core.c:0358
p4_zero_not_equals_ :
0<> ( value -- cond )
AND
XOR
IF
WHILE
reference: ../src/core.c:2008
p4_alloc_parse_openstring
reference: ../src/core.c:2141
p4_parse_openstring_into :
these two can replace old p4th's F_(alloc_parsed_string) in words like S" and C"; It still needs some polish. E.g. There are no controls or Byte-definitions in here. The words S" and C" don't decompile correctly, since debug doesn't know about this routine yet, /and/ it works only in compilation mode so far (a lot to do though)
reference: ../src/core.c:0054