| \ Variable tudp 0 tudp ! |
\ Variable tudp 0 tudp ! |
| |
|
| : u, ( n -- udp ) |
: u, ( n -- udp ) |
| current-region >r user-region activate |
current-region >r user-region activate .regions |
| X here swap X , tup@ - |
X here swap X , tup@ - .regions |
| r> activate ; |
r> activate ; |
| |
|
| : au, ( n -- udp ) |
: au, ( n -- udp ) |
| magic 7 + c! |
magic 7 + c! |
| |
|
| : save-cross ( "image-name" "binary-name" -- ) |
: save-cross ( "image-name" "binary-name" -- ) |
| s" ec" X $has? IF .regions THEN |
.regions \ s" ec" X $has? IF .regions THEN |
| bl parse ." Saving to " 2dup type cr |
bl parse ." Saving to " 2dup type cr |
| w/o bin create-file throw >r |
w/o bin create-file throw >r |
| s" header" X $has? IF |
s" header" X $has? IF |
