Skip to content

Instantly share code, notes, and snippets.

@TG9541 TG9541/free.fs
Created Jun 18, 2018

Embed
What would you like to do?
get free memory in the RAM dictionary, and in the variable area
#require PAD
: SP@ ( -- a ) \ push current stack pointer
[ $9093 , \ LDW Y,X
$5A C, \ DECW X
$5A C, \ DECW X
$FF C, ] \ LDW (X),Y
;
: dict.free SP@ PAD - . ;
: var.free $70 @ $72 @ - . ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.