From b66a60fdfdc51a6a967650dcf08e4b8ae64c0c28 Mon Sep 17 00:00:00 2001
From: Carsten Strotmann <cas@MacMiniM2.local>
Date: Sun, 10 Sep 2023 14:58:34 +0200
Subject: [PATCH] Atari 8bit "savesys" source added

---
 6502/Atari8bit/3.81.4/savesys.fth | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 6502/Atari8bit/3.81.4/savesys.fth

diff --git a/6502/Atari8bit/3.81.4/savesys.fth b/6502/Atari8bit/3.81.4/savesys.fth
new file mode 100644
index 0000000..62a1c22
--- /dev/null
+++ 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