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

Remove unneeded mk-tmp-heap from x16tmpheap.fth

Browse Source
This commit is contained in:
Philip Zembrod 2021-02-08 22:07:53 +01:00
parent 832f03b9ea
commit a710214576
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
6502/C64/src/x16tmpheap.fth
View File

@ -19,9 +19,6 @@ User ]tmpheap
\ X16 KERNAL. The banked RAM lives from $a000 to $bfff. \ X16 KERNAL. The banked RAM lives from $a000 to $bfff.
1 $9f61 c! $a000 tmpheap[ ! $c000 dup ]tmpheap ! tmpheap> ! 1 $9f61 c! $a000 tmpheap[ ! $c000 dup ]tmpheap ! tmpheap> !
: mk-tmp-heap ( size -- )
heap dup ]tmpheap ! tmpheap> ! hallot heap tmpheap[ ! ;
: tmp-hallot ( size -- addr ) : tmp-hallot ( size -- addr )
tmpheap> @ swap - tmpheap> @ swap -
dup tmpheap[ @ u< abort" tmp heap overflow" dup tmpheap[ @ u< abort" tmp heap overflow"