1 \ Constants and Variables
9 H +! ( adds n to H, after this the old value of H is still on the stack )
14 1 CELLS ALLOT ( allocate 1 cell of memory, push the pointer to this memory )
22 : TO IMMEDIATE ( n -- )
23 BL WORD ( get the name of the value )
24 FIND DROP ( look it up in the dictionary )
25 >BODY ( get a pointer to the first data field (the 'LIT') )
26 STATE @ IF ( compiling? )
27 ['] LIT , ( compile LIT )
28 , ( compile the address of the value )
30 ELSE ( immediate mode )
31 ! ( update it straightaway )
35 ( x +TO VAL adds x to VAL )
37 BL WORD ( get the name of the value )
38 FIND DROP ( look it up in the dictionary )
39 >BODY ( get a pointer to the first data field (the 'LIT') )
40 STATE @ IF ( compiling? )
41 ['] LIT , ( compile LIT )
42 , ( compile the address of the value )
43 ['] +! , ( compile +! )
44 ELSE ( immediate mode )
45 +! ( update it straightaway )
49 ( Fill u ints, starting at a, with the value b )