stacks.txt


\ stacks 00.3.28 3:09 pm NAB
 
: stack ( size "name" -- ) 
  create 
  cells  dup  here cell+  dup , 
  + ,  allot ; 
 
: push ( item stack -- ) 
  1 cells over +!  @ ! ; 
 
: pop ( stack -- item ) 
  dup @ @  -1 cells rot +! ;

\ Example:
 
\ 10 stack mystack
\ 23 mystack push
\ 42 mystack push
\ mystack pop . -> 42
\ mystack pop . -> 23


  HTMLized by Forth2HTML