Atari 8bit "savesys" source added

This commit is contained in:
Carsten Strotmann 2023-09-10 14:58:34 +02:00
parent 631e4e2c2a
commit b66a60fdfd

View 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