p4_ascii_
p4_bounds_
p4_c_reset_
p4_c_set_
p4_c_toggle_
p4_control_
p4_dash_rot_
p4_defer_
p4_defer_RT_
p4_four_dup_
p4_lower
p4_lower_
p4_noop_
p4_number_question_
p4_off_
p4_on_
p4_perform_
p4_place_
p4_question_leave_
p4_r_p_fetch_
p4_r_p_store_
p4_s_p_store_
p4_scan_
p4_skip_
p4_three_dup_
p4_to_execute_
p4_upc_
p4_upper
p4_upper_
p4_vocs_
p4_header
p4_ascii_ :
ASCII word ( -- val )
CHAR
[CHAR]
simulate: : ASCII [COMPILE] [CHAR] STATE @ IF [COMPILE] LITERAL THEN ;
reference: ../src/lpf83.c:0280
p4_bounds_ :
BOUNDS ( a b -- b+a a )
simulate: : BOUNDS OVER + SWAP ;
reference: ../src/lpf83.c:0040
p4_c_reset_ :
CRESET ( n addr -- )
simulate: : CRESET TUCK @ SWAP NOT AND SWAP ! ;
reference: ../src/lpf83.c:0132
p4_c_set_ :
CSET ( n addr -- )
simulate: : CSET TUCK @ SWAP OR SWAP ! ;
reference: ../src/lpf83.c:0121
p4_c_toggle_ :
CTOGGLE ( n addr -- )
simulate: : CTOGGLE TUCK @ SWAP XOR SWAP ! ;
reference: ../src/lpf83.c:0143
p4_control_ :
CONTROL word ( -- val )
ASCII
simulate: : CONTROL [COMPILE] [CHAR] [CHAR] @ - STATE @ IF [COMPILE] LITERAL THEN ;
reference: ../src/lpf83.c:0306
p4_dash_rot_ :
-ROT ( a b c -- c a b )
ROT
reference: ../src/lpf83.c:0107
p4_defer_ :
DEFER word ( -- )
simulate: : DEFER CREATE 0, DOES> ( the ((DEFER)) runtime ) @ ?DUP IF EXECUTE THEN ;declare as
"DEFER deferword"
"['] executionword TO deferword"
reference: ../src/lpf83.c:0386
p4_defer_RT_ :
((DEFER)) ( -- )
DEFER
reference: ../src/lpf83.c:0370
p4_four_dup_ :
4DUP ( a b c d -- a b c d a b c d )
simulate: : 4DUP 4 PICK 4 PICK 4 PICK 4 PICK ;
reference: ../src/lpf83.c:0183
p4_lower
reference: ../src/lpf83.c:0220
p4_lower_ :
LOWER ( addr cnt -- )
simulate: : LOWER 0 DO DUP I + DUP C@ >R _tolower SWAP C! LOOP DROP ;
reference: ../src/lpf83.c:0218
p4_noop_ :
NOOP ( -- )
reference: ../src/lpf83.c:0074
p4_number_question_ :
NUMBER? ( addr -- d flag )
INTERPRET
example: BL WORD HERE NUMBER? 0= IF ." not a number " THEN .
reference: ../src/lpf83.c:0336
p4_off_ :
OFF ( addr -- )
simulate: : OFF FALSE SWAP ! ;
reference: ../src/lpf83.c:0153
p4_on_ :
ON ( addr -- )
: ON TRUE SWAP ! ;
reference: ../src/lpf83.c:0162
p4_perform_ :
PERFORM ( addr -- ? )
simulate: : PERFORM @ EXECUTE
reference: ../src/lpf83.c:0052
p4_place_ :
PLACE ( addr1 len addr2 -- )
simulate: : PLACE 2DUP C! 1+ SWAP CMOVE ;
reference: ../src/lpf83.c:0265
p4_question_leave_ :
?LEAVE ( cond -- )
reference: ../src/lpf83.c:0060
p4_r_p_fetch_ :
RP@ ( -- addr )
example: : R@ RP@ @ ;
reference: ../src/lpf83.c:0083
p4_r_p_store_ :
RP! ( addr -- )
RP@
reference: ../src/lpf83.c:0091
p4_s_p_store_ :
SP! ( ... addr -- )
SP@
reference: ../src/lpf83.c:0099
p4_scan_ :
SCAN ( addr cnt c -- addr' cnt' )
simulate: : SCAN >R BEGIN DUP OVER C@ R@ = 0= OR WHILE 1- SWAP 1- SWAP REPEAT R> DROP ;
reference: ../src/lpf83.c:0248
p4_skip_ :
SKIP ( addr cnt c -- addr' cnt' )
simulate: : SKIP >R BEGIN DUP OVER C@ R@ = OR WHILE 1- SWAP 1- SWAP REPEAT R> DROP ;
reference: ../src/lpf83.c:0230
p4_three_dup_ :
3DUP ( a b c -- a b c a b c )
simulate: : 3DUP 3 PICK 3 PICK 3 PICK ;
reference: ../src/lpf83.c:0171
p4_to_execute_ :
>EXECUTE ( xt -- ? )
EXECUTE
simulate: : >EXECUTE ?DUP IF EXECUTE THEN ;
reference: ../src/lpf83.c:0397
p4_upc_ :
UPC ( c1 -- c2 )
: UPC >R _toupper ;
reference: ../src/lpf83.c:0196
p4_upper
reference: ../src/toolkit.c:0334
p4_upper_ :
UPPER ( addr cnt -- )
simulate: : UPPER 0 DO DUP I + DUP C@ UPC SWAP C! LOOP DROP ;
reference: ../src/lpf83.c:0206
p4_vocs_ :
VOCS ( -- )
simulate: : VOCS VOC-LINK @ BEGIN DUP WHILE DUP BODY> >NAME .NAME ->VOC-LINK @ REPEAT DROP ;
reference: ../src/lpf83.c:0356
p4_header
reference: ../src/lpf83.c:0388