mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-10-31 19:04:43 +00:00
Atari 8bit "savesys" source added
This commit is contained in:
parent
631e4e2c2a
commit
b66a60fdfd
18
6502/Atari8bit/3.81.4/savesys.fth
Normal file
18
6502/Atari8bit/3.81.4/savesys.fth
Normal file
@ -0,0 +1,18 @@
|
||||
: SAVESYSTEM
|
||||
$FFFF $600 !
|
||||
ORIGIN 8 - $602 !
|
||||
HERE $604 !
|
||||
FILE" W/O OPEN-FILE DROP
|
||||
DUP $600 6 ROT
|
||||
WRITE-FILE ( save header ) DROP
|
||||
DUP ORIGIN 8 - HERE
|
||||
ORIGIN 8 - - 1+ ROT
|
||||
WRITE-FILE DROP
|
||||
$02E0 $602 !
|
||||
$02E1 $604 !
|
||||
ORIGIN 8 - $606 !
|
||||
DUP $602 6 ROT
|
||||
WRITE-FILE DROP
|
||||
CLOSE-FILE DROP ;
|
||||
|
||||
' SAVESYSTEM ALIAS SAVE-SYSTEM
|
Loading…
Reference in New Issue
Block a user