Merge pull request #1 from forth-ev/master

Sync from main repo master branch
2023-12-03 13:51:36 +01:00 · 2023-12-03 13:51:36 +01:00 · 2a435af187
parent 1a336935eb a9a1c79ae0
commit 2a435af187
6 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
--- a/archive/PDF/VolksForth-MSDOS-Anleitung.pdf
+++ b/archive/PDF/VolksForth-MSDOS-Anleitung.pdf
--- a/archive/PDF/VolksForth-MSDOS-Source.pdf
+++ b/archive/PDF/VolksForth-MSDOS-Source.pdf
--- a/archive/PDF/VolksForth-Menue.pdf
+++ b/archive/PDF/VolksForth-Menue.pdf
--- a/archive/PDF/VolksForth-UF38-3.pdf
+++ b/archive/PDF/VolksForth-UF38-3.pdf
--- a/archive/PDF/VolksForth-UF38-4.pdf
+++ b/archive/PDF/VolksForth-UF38-4.pdf