Atari 8bit "savesys" source added

2023-09-10 14:58:34 +02:00 · 2023-09-10 14:58:34 +02:00 · b66a60fdfd
parent 631e4e2c2a
commit b66a60fdfd
1 changed files with 18 additions and 0 deletions
--- a/6502/Atari8bit/3.81.4/savesys.fth
+++ b/6502/Atari8bit/3.81.4/savesys.fth
@ -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