6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-22 05:32:28 +00:00
Code Issues Projects Releases Wiki Activity

Add two linked list utility words that are extracted from cc64's profiler.fth.

Browse Source
This commit is contained in:
Philip Zembrod 2024-05-10 22:58:37 +02:00
parent 44a5e83188
commit 627522012b
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
6502/C64/src/lists.fth Normal file
View File

@ -0,0 +1,14 @@
\ utility words for handling linked lists.
\ The first word of each list node contains the link to the next node.
: end-of-list ( list-node -- last-node )
BEGIN dup @ WHILE @ REPEAT ;
: reverse-list ( list-root-var -- )
dup >r @ 0 ( node[0] 0 )
BEGIN over WHILE ( node[i] node[i-1] )
over @ ( node[i] node[i-1] node[i+1] )
>r over ! r> ( node[i] node[i+1] )
swap REPEAT ( 0 node[n] )
r> ! drop ;