mirror of
https://github.com/forth-ev/VolksForth.git
synced 2025-01-05 03:29:36 +00:00
Merge pull request #1 from forth-ev/master
Sync from main repo master branch
This commit is contained in:
commit
2a435af187
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
|
BIN
archive/PDF/VolksForth-MSDOS-Anleitung.pdf
Normal file
BIN
archive/PDF/VolksForth-MSDOS-Anleitung.pdf
Normal file
Binary file not shown.
BIN
archive/PDF/VolksForth-MSDOS-Source.pdf
Normal file
BIN
archive/PDF/VolksForth-MSDOS-Source.pdf
Normal file
Binary file not shown.
BIN
archive/PDF/VolksForth-Menue.pdf
Normal file
BIN
archive/PDF/VolksForth-Menue.pdf
Normal file
Binary file not shown.
BIN
archive/PDF/VolksForth-UF38-3.pdf
Normal file
BIN
archive/PDF/VolksForth-UF38-3.pdf
Normal file
Binary file not shown.
BIN
archive/PDF/VolksForth-UF38-4.pdf
Normal file
BIN
archive/PDF/VolksForth-UF38-4.pdf
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user