diff options
| author | B. Watson <urchlay@slackware.uk> | 2025-11-28 00:38:24 -0500 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2025-11-28 00:38:24 -0500 |
| commit | 772312762986a7ec36262069a28ad3d4dde30559 (patch) | |
| tree | 4b825dc642cb6eb9a060e54bf8d69288fbee4904 | |
| parent | cedd4bada6e88daa0c527380e6dc22f52685f197 (diff) | |
| download | unalf-772312762986a7ec36262069a28ad3d4dde30559.tar.gz | |
Project has been renamed, use https://slackware.uk/~urchlay/repos/alftools
| -rw-r--r-- | .gitignore | 40 | ||||
| -rw-r--r-- | BUILD.txt | 59 | ||||
| -rw-r--r-- | LICENSE.txt | 15 | ||||
| -rw-r--r-- | Makefile | 8 | ||||
| -rw-r--r-- | README.txt | 95 | ||||
| -rw-r--r-- | TODO.txt | 12 | ||||
| -rw-r--r-- | disasm/Makefile | 3 | ||||
| -rw-r--r-- | disasm/unalf14.com | bin | 3683 -> 0 bytes | |||
| -rw-r--r-- | disasm/unalf14.notes.txt | 248 | ||||
| -rw-r--r-- | disasm/unalf14.osequates | 15 | ||||
| -rw-r--r-- | disasm/unalf14.raw | bin | 3691 -> 0 bytes | |||
| -rw-r--r-- | disasm/unalf14.raw.info | 221 | ||||
| -rw-r--r-- | disasm/unalf14.s | 1932 | ||||
| -rw-r--r-- | doc/Arcinfo | 124 | ||||
| -rw-r--r-- | doc/DZ.COM | bin | 3683 -> 0 bytes | |||
| -rw-r--r-- | doc/LZ.COM | bin | 3310 -> 0 bytes | |||
| -rw-r--r-- | doc/LZDZ.zip | bin | 52115 -> 0 bytes | |||
| -rw-r--r-- | doc/alf14.atr | bin | 92176 -> 0 bytes | |||
| -rw-r--r-- | doc/alf14_doc.txt | 266 | ||||
| -rw-r--r-- | doc/fileformat.txt | 80 | ||||
| -rw-r--r-- | doc/interview.txt | 166 | ||||
| -rw-r--r-- | doc/review.txt | 44 | ||||
| -rw-r--r-- | examples/aprog.alf | bin | 25728 -> 0 bytes | |||
| -rw-r--r-- | examples/atutor.alf | bin | 37888 -> 0 bytes | |||
| -rw-r--r-- | examples/bbsmio.alf | bin | 4096 -> 0 bytes | |||
| -rw-r--r-- | examples/examples.txt | 22 | ||||
| -rw-r--r-- | examples/gotcha.alf | bin | 78208 -> 0 bytes | |||
| -rw-r--r-- | examples/infocom1.alf | bin | 66160 -> 0 bytes | |||
| -rw-r--r-- | examples/infocom2.alf | bin | 69295 -> 0 bytes | |||
| -rw-r--r-- | examples/mtosv3.alf | bin | 20253 -> 0 bytes | |||
| -rw-r--r-- | f65/Makefile | 10 | ||||
| -rw-r--r-- | f65/README | 32 | ||||
| -rwxr-xr-x | f65/asm2fake65.pl | 72 | ||||
| -rw-r--r-- | f65/f65.c | 68 | ||||
| -rw-r--r-- | f65/f65.h | 129 | ||||
| -rw-r--r-- | magic/MAGIC.txt | 45 | ||||
| -rw-r--r-- | magic/alf | 25 | ||||
| -rw-r--r-- | src/Makefile | 150 | ||||
| -rw-r--r-- | src/README_Windows.txt.in | 17 | ||||
| -rw-r--r-- | src/addrs.h | 86 | ||||
| -rw-r--r-- | src/alf.1 | 214 | ||||
| -rw-r--r-- | src/alf.c | 441 | ||||
| -rw-r--r-- | src/alf.rst | 186 | ||||
| -rw-r--r-- | src/alfsum.1 | 107 | ||||
| -rw-r--r-- | src/alfsum.c | 54 | ||||
| -rw-r--r-- | src/alfsum.rst | 85 | ||||
| -rw-r--r-- | src/alfusage.c | 11 | ||||
| -rw-r--r-- | src/asmcode.c | 650 | ||||
| -rw-r--r-- | src/extract.c | 197 | ||||
| -rw-r--r-- | src/glob.c | 115 | ||||
| -rw-r--r-- | src/io.c | 163 | ||||
| -rw-r--r-- | src/listalf.c | 125 | ||||
| -rw-r--r-- | src/manftr.rst | 8 | ||||
| -rw-r--r-- | src/mkusage.pl | 19 | ||||
| -rw-r--r-- | src/opts.c | 78 | ||||
| -rw-r--r-- | src/self.c | 13 | ||||
| -rw-r--r-- | src/self.h | 3 | ||||
| -rw-r--r-- | src/unalf.1 | 412 | ||||
| -rw-r--r-- | src/unalf.c | 79 | ||||
| -rw-r--r-- | src/unalf.h | 93 | ||||
| -rw-r--r-- | src/unalf.rst | 358 | ||||
| -rw-r--r-- | src/usage.c | 19 | ||||
| -rw-r--r-- | src/ver.rst | 1 | ||||
| -rwxr-xr-x | testing/alfls | 240 |
64 files changed, 0 insertions, 7655 deletions
diff --git a/.gitignore b/.gitignore deleted file mode 100644 index 84920d3..0000000 --- a/.gitignore +++ /dev/null @@ -1,40 +0,0 @@ -testing/*.ALF* -testing/*.TXT* -testing/*.png -testing/*.zip -testing/*.arc -testing/Makefile -testing/alf -testing/unalf -testing/wip.txt -testing/atari800.cfg -.makepp/ -*-*-win64.zip -*~ -*.o -src/alf -src/unalf -src/alfsum -a.* -b.* -x.* -y.* -a -b -x -y -1 -2 -3 -4 -1.* -2.* -3.* -4.* -foo -foo.* -bar -bar.* -baz -baz.* -core diff --git a/BUILD.txt b/BUILD.txt deleted file mode 100644 index 27f8ff3..0000000 --- a/BUILD.txt +++ /dev/null @@ -1,59 +0,0 @@ -Build dependencies: - -- A Linux, BSD, or POSIX-like shell and environment. Mac OSX should - work, and so should Cygwin or MSYS on Windows. - -- A C compiler. The default is your system's "cc"; override the Makefile's - CC variable if you need to (see "Variables" section below). - -- Perl 5.x. Pretty much any version will do. - -- rst2man. Only needed for regenerating the man pages. - -- make. This can be GNU, BSD, makepp, or probably any other standard-ish - make (anyone still using Solaris?). - -The build deps aren't required at runtime. The executables only use -the standard C library (e.g. libc.so.6 on Linux), and can be statically -linked if you want (try 'LDFLAGS="-static"'). - -Building: - -If you're experienced at building software from source, src/Makefile -should be self-explanatory. - -If you're not experienced, you can start by extracting the source: - - tar xvf unalf-<ver>.tar.gz # replace <ver> with the actual version! - -Next, compile the software: - - make - -If you're on Slackware: - - sudo make install # or, as root, just 'make install' - -This will install the binaries, man pages, and docs in locations -appropriate for Slackware Linux (since that's what the author uses). - -If you're on a Debian or Ubuntu derivative, use: - - sudo make install MANDIR=/usr/share/man DOCDIR=/usr/share/doc/unalf - -If you're on some other OS (Red Hat, *BSD, OSX, etc), ask someone -who actually uses that OS if you're not sure where things should be -installed to. - -If you prefer /usr/local: - - sudo make install PREFIX=/usr/local MANDIR=/usr/local/share/man DOCDIR=/usr/local/share/doc/unalf - -Variables: - -You can set variables on the make command line. Example: - - make CC=clang COPT=-Os # use a different compiler, optimize for size - -See the top of src/Makefile for details on what variables exist and what -they're used for (not going to duplicate the list here). diff --git a/LICENSE.txt b/LICENSE.txt deleted file mode 100644 index 9344088..0000000 --- a/LICENSE.txt +++ /dev/null @@ -1,15 +0,0 @@ -unalf is licensed under the WTFPL: - - DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE - Version 2, December 2004 - - Copyright (C) 2004 Sam Hocevar <sam@hocevar.net> - - Everyone is permitted to copy and distribute verbatim or modified - copies of this license document, and changing it is allowed as long - as the name is changed. - - DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. You just DO WHAT THE FUCK YOU WANT TO. diff --git a/Makefile b/Makefile deleted file mode 100644 index 3172981..0000000 --- a/Makefile +++ /dev/null @@ -1,8 +0,0 @@ -all: - $(MAKE) -C src $(MAKEFLAGS) - -clean: - $(MAKE) -C src $(MAKEFLAGS) clean - -install: - $(MAKE) -C src $(MAKEFLAGS) install diff --git a/README.txt b/README.txt deleted file mode 100644 index ad66a20..0000000 --- a/README.txt +++ /dev/null @@ -1,95 +0,0 @@ -unalf is a compressor and decompressor for the ALF file format, as -used on the Atari 8-bit computers in the late 1980s. - -The latest unalf source is avaailable at: - - https://slackware.uk/~urchlay/repos/unalf - -The latest Windows binary release is available at: - - https://slackware.uk/~urchlay/unalf4win/unalf-0.2.0-win64.zip - -The ultimate goal of this project is to reimplement the ALF -compression and decompression algorithms on modern systems aka -Linux and anything else that's POSIX-ish. It's also intended to -be a repository of information about the ALF archiver (and UNALF -dearchiver). - -Currently, the compressor (alf) and the decompressor (unalf) are -working, though not widely tested. Possibly I should change the name -of this project from "unalf" to something like "alf-tools", now that -it has a compressor, too. - -The original LZ.COM/DZ.COM (aka ALF/UNALF) programs for the Atari were -written by Alfred. - -This project is by B. Watson (urchlay@slackware.uk). - -The rest of this file is a list of the contents of the git repository -or distribution tar/zip file. - -Included in both the source and binary distributions: - -- README.txt - you're reading it now. - -- TODO.txt - plans for the future. - -- doc/Arcinfo - describes the format of ARC compressed files. The ALF - file structure is almost identical to ARC's. This file was taken from - the arc-5.21q source. - -- doc/DZ.COM - the Atari executable of the ALF extractor (aka UNALF). - This and LZ.COM are the same files as the ones inside the .atr image. - -- doc/LZ.COM - the Atari executable of the ALF archiver (aka ALF). - -- doc/alf14.atr - bootable DOS 2.0S disk image, with LZ.COM (aka ALF), - DZ.COM (aka UNALF), and the documentation. This is not the original - distribution disk: there never was one. Alfred distributed these - files as an ARC archive on his BBS. - -- doc/alf14_doc.txt - the documentation for LZ.COM and DZ.COM, extracted - from the disk image and converted from ATASCII to standard ASCII. - -- doc/fileformat.txt - documents how the ALF file format differs from ARC. - -- doc/interview.txt - an email interview with Alfred, author of AlfCrunch - for the Atari 8-bit. - -- doc/review.txt - a review of the original ALFCrunch, from an Atari - magazine. - -- examples/* - ALF files found in the wild. - -Included in the source distribution only: - -- BUILD.txt - directions for compiling unalf. - -- src/ - the source. - -- doc/LZDZ.zip - 6502 assembly source for LZ.COM and DZ.COM, by Alfred. - This isn't the original source (which was for Mac/65), it's been - split into multiple files and ported to the Six Forks assembler. - -- f65/ - "fake 6502" porting layer. Not for the faint of heart. The - unalf algorithm was ported from a disassembly of the 6502 code, - using a perl script to convert the 6502 mnemonics to C macros. - This means I was able to port the code without fully understanding - how it works... - -- testing/alfls - a Perl script that lists the contents of an ALF - archive. Run it with --help for more information. If you're - packaging unalf for a distribution, there's no need to include this - script in the package: I wrote it for testing purposes only. You can - use "unalf -l" to list .alf files, so this is redundant. - -- magic/ - "magic" that allows the file(1) command to identify ALF - archive files. See magic/MAGIG.txt for details. - -Included in the binary distribution only: - -- README_Windows.txt. - -- alf.exe, unalf.exe, and alfsum.exe - the Windows executables. - -- alf.html, unalf.html, alfsum.html - the man pages, converted to HTML. diff --git a/TODO.txt b/TODO.txt deleted file mode 100644 index e34e1d5..0000000 --- a/TODO.txt +++ /dev/null @@ -1,12 +0,0 @@ -- fuzz unalf and unalf with afl++ or similar. - -- clean up alf, try to make it faster. - -- figure out why unalf craps out when extracting files of 15MB - but works fine for 14MB. when this happens, there's no error, - but the extracted file is like 7KB (and has the correct data - for the first 7KB of the file). this could be a bug in either - alf or unalf. I'll have to try it with LZ/DZ in an emulator - (with 'turbo speed' on, or else it'll take days). - -- write a formal spec of the alf compression stream format? diff --git a/disasm/Makefile b/disasm/Makefile deleted file mode 100644 index a7ec9e7..0000000 --- a/disasm/Makefile +++ /dev/null @@ -1,3 +0,0 @@ - -all: - da65 -i unalf14.raw.info diff --git a/disasm/unalf14.com b/disasm/unalf14.com Binary files differdeleted file mode 100644 index 7a91ef0..0000000 --- a/disasm/unalf14.com +++ /dev/null diff --git a/disasm/unalf14.notes.txt b/disasm/unalf14.notes.txt deleted file mode 100644 index 92fd218..0000000 --- a/disasm/unalf14.notes.txt +++ /dev/null @@ -1,248 +0,0 @@ -uunalf was *not* written in C. no C compiler for the 6502 emits such -tight code, especially not the ones that were available in 1988. This -explains why it outperforms arc (which actually was in C) while having -a smaller executable size. - -unalf14.com is a standard Atari segmented executable. For disassembly -purposes, I converted it to a single chunk of raw object code: - -ataricom -n -m 1-2 unalf14.com unalf14.raw - -IOCB usage: - -#0 is E: as usual. -#1 is the input file(s). -#2 is K: (not sure if it's actually used). -#3 is the output file. - -When the program exits (print_msg_complete), it checks the byte at -$0700 (BOOTRG). If it's equal to $53 (ASCII S, for SpartaDOS), it -exits via an RTS. Otherwise it exits via JMP (DOSVEC), which reloads -the DOS menu on DOS 2 and compatibles. - -Bugs: - -ALF14.COM won't actually compress any files at all, when run from -the DOS on the disk image I keep finding in archives. The DOS is -"XDOS". Whatever I try to compress, I always end up with a 0-byte -output file. It works better in DOS 2.0S, but "*.TXT" doesn't catch -all the files it should, either. - -Trying to compress a file with the one-letter name D causes a an error -and the program exits. D:D works OK. - -Compressed files: ------------------------------------------------------------------------ -original data: -ff ff ff ff 00 ff ff ff ff 01 ff ff ff ff 02 -in binary: -00000000: 11111111 11111111 11111111 11111111 00000000 11111111 ...... -00000006: 11111111 11111111 11111111 00000001 11111111 11111111 ...... -0000000c: 11111111 11111111 00000010 - -compressed form: -10000000 00111111 11100000 01001111 11110000 00000100 00001101 11111110 00000001 10000011 00000000 10100000 00100000 - ------------------------------------------------------------------------ -orig in hex: - aa aa aa aa 00 aa aa aa aa 01 aa aa aa aa 02 - -orig in bin: - 0: 10101010 - 1: 10101010 - 2: 10101010 - 3: 10101010 - 4: 00000000 - 5: 10101010 - 6: 10101010 - 7: 10101010 - 8: 10101010 - 9: 00000001 -10: 10101010 -11: 10101010 -12: 10101010 -13: 10101010 -14: 00000010 - -compressed: - 10000000 00101010 10100000 01001010 10100000 00000100 00001101 01010100 00000001 10000011 00000000 10100000 00100000 -in groups of 9 bits: - 1 00000000 0 10101010 1 00000010 0 10101010 0 00000000 1 00000011 0 10101010 0 00000001 1 00000110 0 00000010 1 00000001 0 0000 - - 0: 1 00000000 ; 0 start - 1: 0 10101010 ; literal $aa - 2: 1 00000010 ; 2: $aa $aa - 3: 0 10101010 ; literal $aa - 4: 0 00000000 ; literal $00 - 5: 1 00000011 ; 3: $aa $aa $aa - 6: 0 10101010 ; literal $aa - 7: 0 00000001 ; literal $01 - 8: 1 00000110 ; 6: $aa $aa $aa $aa - 9: 0 00000010 ; literal $02 - 10: 1 00000001 ; 1 end - ------------------------------------------------------------------------ -orig (sam.txt): -00000000: 49 20 61 6d 20 53 61 6d 0a 0a 53 61 6d 20 49 20 I am Sam..Sam I -00000010: 61 6d 0a 0a 54 68 61 74 20 53 61 6d 2d 49 2d 61 am..That Sam-I-a -00000020: 6d 21 0a 54 68 61 74 20 53 61 6d 2d 49 2d 61 6d m!.That Sam-I-am -00000030: 21 0a 49 20 64 6f 20 6e 6f 74 20 6c 69 6b 65 0a !.I do not like. -00000040: 74 68 61 74 20 53 61 6d 2d 49 2d 61 6d 21 0a 0a that Sam-I-am!.. -00000050: 44 6f 20 79 6f 75 20 6c 69 6b 65 20 67 72 65 65 Do you like gree -00000060: 6e 20 65 67 67 73 20 61 6e 64 20 68 61 6d 3f 0a n eggs and ham?. -00000070: 0a 49 20 64 6f 20 6e 6f 74 20 6c 69 6b 65 20 74 .I do not like t -00000080: 68 65 6d 2c 20 53 61 6d 2d 49 2d 61 6d 2e 0a 49 hem, Sam-I-am..I -00000090: 20 64 6f 20 6e 6f 74 20 6c 69 6b 65 20 67 72 65 do not like gre -000000a0: 65 6e 20 65 67 67 73 20 61 6e 64 20 68 61 6d 2e en eggs and ham. -000000b0: 0a . - -Name Length Stowage SF Size now Date Time CRC -============ ======== ======== ==== ======== ========= ====== ==== -SAM.TXT 177 ALF 28% 128 8 Dec 82 12:24a 3690 - 0: 1 00000000 ; 0 start - 1: 0 01001001 ; literal $49 I - 2: 0 00100000 ; literal $20 - 3: 0 01100001 ; literal $61 a - 4: 0 01101101 ; literal $6d m - 5: 0 00100000 ; literal $20 - 6: 0 01010011 ; literal $53 S - 7: 1 00000100 ; 4 (?) - 8: 0 00001010 ; literal $0a - 9: 0 00001010 ; literal $0a - 10: 1 00000111 ; 7 (?) - 11: 1 00000101 ; 5 (?) - 12: 1 00000010 ; 2 (?) - 13: 1 00001000 ; 8 (?) - 14: 0 00001010 ; literal $0a - 15: 0 01010100 ; literal $54 T - 16: 0 01101000 ; literal $68 h - 17: 0 01100001 ; literal $61 a - 18: 0 01110100 ; literal $74 t - 19: 1 00000110 ; 6 (?) - 20: 1 00000100 ; 4 (?) - 21: 0 00101101 ; literal $2d - - 22: 0 01001001 ; literal $49 I - 23: 0 00101101 ; literal $2d - - 24: 1 00000100 ; 4 (?) - 25: 0 00100001 ; literal $21 ! - 26: 1 00001111 ; 15 (?) - 27: 1 00010001 ; 17 (?) - 28: 1 00010011 ; 19 (?) - 29: 1 00001011 ; 11 (?) - 30: 1 00010110 ; 22 (?) - 31: 1 00011000 ; 24 (?) - 32: 0 01101101 ; literal $6d m - 33: 1 00011010 ; 26 (?) - 34: 1 00000010 ; 2 (?) - 35: 0 01100100 ; literal $64 d - 36: 0 01101111 ; literal $6f o - 37: 0 00100000 ; literal $20 - 38: 0 01101110 ; literal $6e n - 39: 0 01101111 ; literal $6f o - 40: 1 00010011 ; 19 (?) - 41: 0 01101100 ; literal $6c l - 42: 0 01101001 ; literal $69 i - 43: 0 01101011 ; literal $6b k - 44: 0 01100101 ; literal $65 e - 45: 0 00001010 ; literal $0a - 46: 0 01110100 ; literal $74 t - 47: 1 00011100 ; 28 (?) - 48: 1 00010100 ; 20 (?) - 49: 0 01101101 ; literal $6d m - 50: 1 00011111 ; 31 (?) - 51: 1 00011001 ; 25 (?) - 52: 1 00001001 ; 9 (?) - 53: 0 01000100 ; literal $44 D - 54: 1 00100101 ; 37 (?) - 55: 0 01111001 ; literal $79 y - 56: 0 01101111 ; literal $6f o - 57: 0 01110101 ; literal $75 u - 58: 0 00100000 ; literal $20 - 59: 1 00101010 ; 42 (?) - 60: 1 00101100 ; 44 (?) - 61: 0 00100000 ; literal $20 - 62: 0 01100111 ; literal $67 g - 63: 0 01110010 ; literal $72 r - 64: 0 01100101 ; literal $65 e - 65: 0 01100101 ; literal $65 e - 66: 0 01101110 ; literal $6e n - 67: 0 00100000 ; literal $20 - 68: 0 01100101 ; literal $65 e - 69: 0 01100111 ; literal $67 g - 70: 0 01100111 ; literal $67 g - 71: 0 01110011 ; literal $73 s - 72: 1 00000011 ; 3 (?) - 73: 0 01101110 ; literal $6e n - 74: 0 01100100 ; literal $64 d - 75: 0 00100000 ; literal $20 - 76: 1 00010001 ; 17 (?) - 77: 0 01101101 ; literal $6d m - 78: 0 00111111 ; literal $3f ? - 79: 1 00001001 ; 9 (?) - 80: 1 00100011 ; 35 (?) - 81: 1 00100101 ; 37 (?) - 82: 1 00100111 ; 39 (?) - 83: 1 00101001 ; 41 (?) - 84: 1 00101011 ; 43 (?) - 85: 0 01100101 ; literal $65 e - 86: 0 00100000 ; literal $20 - 87: 1 00101111 ; 47 (?) - 88: 0 01100101 ; literal $65 e - 89: 0 01101101 ; literal $6d m - 90: 0 00101100 ; literal $2c , - 91: 1 00110001 ; 49 (?) - 92: 1 00110011 ; 51 (?) - 93: 0 01101101 ; literal $6d m - 94: 0 00101110 ; literal $2e . - 95: 0 00001010 ; literal $0a - 96: 1 01010001 ; 81 (?) - 97: 1 00100110 ; 38 (?) - 98: 1 00101000 ; 40 (?) - 99: 1 00111011 ; 59 (?) -100: 1 01010101 ; 85 (?) -101: 1 00111110 ; 62 (?) -102: 1 01000000 ; 64 (?) -103: 1 01000010 ; 66 (?) -104: 1 01000100 ; 68 (?) -105: 1 01000110 ; 70 (?) -106: 1 01001000 ; 72 (?) -107: 0 01100001 ; literal $61 a -108: 1 01001010 ; 74 (?) -109: 1 01001100 ; 76 (?) -110: 1 00000100 ; 4 (?) -111: 1 01011111 ; 95 (?) -112: 1 00000001 ; 1 end -junk: 0000000 - ==== ======== ==== ======== -Total 1 177 99% 128 - ------------------------------------------------------------------------ -orig: ABCDEFABBCCDDEEFABCABCDABCDEBCDBCDEBCDEF - - 0: 1 00000000 ; 0 start - 1: 0 01000001 ; literal $41 A - 2: 0 01000010 ; literal $42 B - 3: 0 01000011 ; literal $43 C - 4: 0 01000100 ; literal $44 D - 5: 0 01000101 ; literal $45 E - 6: 0 01000110 ; literal $46 F - 7: 1 00000010 ; 2 AB - 8: 1 00000011 ; 3 BC - 9: 1 00000100 ; 4 CD - 10: 1 00000101 ; 5 DE - 11: 1 00000110 ; 6 EF - 12: 1 00000010 ; 2 AB - 13: 0 01000011 ; literal $43 C - 14: 1 00001101 ; 13 ABC - 15: 0 01000100 ; literal $44 D - 16: 1 00001111 ; 15 ABCD - 17: 0 01000101 ; literal $45 E - 18: 1 00000011 ; 3 BC - 19: 0 01000100 ; literal $44 D - 20: 1 00010011 ; 19 BCD? - 21: 1 00010010 ; 18 EB? - 22: 1 00000100 ; 4 CD - 23: 1 00000110 ; 6 EF - 24: 1 00000001 ; 1 end -junk: 0000000 - diff --git a/disasm/unalf14.osequates b/disasm/unalf14.osequates deleted file mode 100644 index 79b2b77..0000000 --- a/disasm/unalf14.osequates +++ /dev/null @@ -1,15 +0,0 @@ -DOSVEC_lo := $000A ; 10 PROGRAM RUN VECTOR -DOSVEC_hi := $000B -SDMCTL := $022F ; 559 DMACTL SHADOW -SHFLOC := $02BE ; 702 -MEMTOP_lo := $02E5 ; 741 END OF FREE RAM -MEMTOP_hi := $02E6 -ICCOM := $0342 ; 834 ; Command byte (see C_* constants) (set by user) -ICBAL := $0344 ; 836 ; Buffer address, LSB (set by user) -ICBAH := $0345 ; 837 ; Buffer address, MSB (set by user) -ICBLL := $0348 ; 840 ; Buffer length, LSB (set by user) -ICBLH := $0349 ; 841 ; Buffer length, MSB (set by user) -ICAX1 := $034A ; 842 ; AUX1 byte (2nd param in BASIC OPEN) (set by user) -ICAX2 := $034B ; 843 ; AUX2 byte (4rd param in BASIC OPEN) (set by user) -BOOTRG := $0700 ; 1792 PROGRAM AREA -CIOV := $E456 ; 58454 ; Main CIO entry point! diff --git a/disasm/unalf14.raw b/disasm/unalf14.raw Binary files differdeleted file mode 100644 index 7ef8395..0000000 --- a/disasm/unalf14.raw +++ /dev/null diff --git a/disasm/unalf14.raw.info b/disasm/unalf14.raw.info deleted file mode 100644 index eef7c80..0000000 --- a/disasm/unalf14.raw.info +++ /dev/null @@ -1,221 +0,0 @@ -global { - outputname "unalf14.s"; - inputname "unalf14.raw"; - startaddr $7173; - cpu "6502"; - comments 3; - commentcolumn 32; -}; -asminc { file "unalf14.osequates"; }; - -label { name "zp_b0"; addr $b0; }; -label { name "zp_b1"; addr $b1; }; -label { name "acc16_l"; addr $b2; }; -label { name "acc16_h"; addr $b3; }; -label { name "zp_b4"; addr $b4; }; -label { name "zp_b5"; addr $b5; }; -label { name "stackptr_l"; addr $b6; }; -label { name "stackptr_h"; addr $b7; }; -label { name "zp_b8"; addr $b8; }; -label { name "zp_b9"; addr $b9; }; -label { name "outbuf_ptr_l"; addr $ba; }; -label { name "outbuf_ptr_h"; addr $bb; }; -label { name "zp_bc"; addr $bc; }; -label { name "zp_bd"; addr $bd; }; -label { name "zp_be"; addr $be; }; -label { name "zp_bf"; addr $bf; }; - -range { type bytetable; start $7173; end $71b7; }; -range { type texttable; start $71b8; end $7359; }; -range { type texttable; start $7c32; end $7ca7; }; -range { type texttable; start $7f1d; end $7f3c; }; -range { type bytetable; start $7a79; end $7a83; }; -range { type texttable; start $7a84; end $7a8a; }; -range { type texttable; start $7925; end $7943; }; -range { type texttable; start $7d82; end $7d85; }; -range { type bytetable; start $7e38; end $7e4d; }; -range { type bytetable; start $7fca; end $7fdd; }; -range { type texttable; start $7e07; end $7e0b; }; - -label { name "copy_cli_arg"; comment "copy sparta cli arg to linbuf, append EOL ($9b)"; addr $7c11; }; -label { name "cca_loop"; addr $7c16; }; -label { name "cca_append_eol"; addr $7c29; }; -label { name "have_infile"; comment "either a filename was passed as an argument (sparta), or enterd at the prompt"; addr $7386; }; -label { name "have_outdir"; comment "either a dir was passed as an argument (sparta), or enterd at the prompt"; addr $73ee; }; -label { name "get_cli_arg"; comment "spartados only; returns with C clear if there's an arg, or set if not"; addr $7bce; }; -label { name "sparta_exit"; addr $73b9; }; -label { name "shift_counter"; addr $71ac; }; -label { name "init_counters"; addr $780c; }; -label { name "out_ptr_hi_ok"; addr $7841; }; -label { name "out_len_hi_ok"; addr $7849; }; -label { name "outbuf_not_full"; addr $7898; }; -label { name "push_acc16"; comment "push 2 byte 'register' to software stack"; addr $78f6; }; -label { name "pop_acc16"; comment "pop 2 byte 'register' from software stack"; addr $7944; }; -label { name "store_outbyte"; comment "save decrunched byte in outbuf, update checksum, write outbuf if full"; addr $7826; }; -label { name "setup_io_bufs"; addr $7978; }; -label { name "cleanup_and_exit"; addr $787f; }; -label { name "init_outbuf"; addr $7886; }; -label { name "alf_header"; comment "arc/alf signature, $1a"; addr $718d; }; -label { name "alf_hdr_sig"; comment "alf signature, $0f"; addr $718e; }; -label { name "alf_hdr_filename"; comment "null-terminated compressed filename, 13 bytes"; addr $718f; }; -label { name "alf_hdr_compsize0"; comment "compressed size, 4 bytes, LSB first"; addr $719c; }; -label { name "alf_hdr_compsize1"; addr $719d; }; -label { name "alf_hdr_compsize2"; addr $719e; }; -label { name "alf_hdr_compsize3"; comment "always 0, archived file never >= 16MB"; addr $719f; }; -label { name "alf_hdr_date0"; comment "2 bytes, MS-DOS date format (see Arcinfo)"; addr $71a0; }; -label { name "alf_hdr_date1"; addr $71a1; }; -label { name "alf_hdr_time0"; comment "2 bytes, MS-DOS time format (see Arcinfo)"; addr $71a2; }; -label { name "alf_hdr_time1"; addr $71a3; }; -label { name "alf_hdr_cksum_l"; comment "CRC stored in file header"; addr $71a4; }; -label { name "alf_hdr_cksum_h"; addr $71a5; }; -label { name "alf_hdr_origsize0"; comment "uncompressed size, 4 bytes, LSB first"; addr $71a6; }; -label { name "alf_hdr_origsize1"; addr $71a7; }; -label { name "alf_hdr_origsize2"; addr $71a8; }; -label { name "alf_hdr_origsize3"; comment "last byte in alf header"; addr $71a9; }; - -label { name "output_dir"; addr $7050; }; -label { name "copy_outdir"; addr $740d; }; -label { name "cod_loop"; addr $7410; }; - -label { name "cksum_ok"; addr $75da; }; -label { name "uncrunch_blk"; addr $75db; }; -label { name "alfext"; addr $7e07; }; -label { name "entrypoint"; addr $7fc7; }; -label { name "startup"; addr $735a; }; -label { name "open_read"; comment "X = IOCB<<4, A=<buf, Y=>buf"; addr $7b76; }; -label { name "open_write"; addr $7b7b; }; -label { name "open_update"; comment "not used?"; addr $7b80; }; -label { name "open_append"; comment "not used?"; addr $7b85; }; -label { name "open_dir"; addr $7b8a; }; -label { name "finish_open"; comment "#$03 in A = CIO OPEN command"; addr $7b8d; }; -label { name "close_iocb"; addr $7b48; }; -label { name "putchar"; comment "print character in A, saves A/X/Y regs"; addr $7a9f; }; -label { name "stardotstar"; comment "filespec for directory"; addr $7d82; }; -label { name "exit"; addr $739a; }; -label { name "printstr"; comment "X = LSB, Y = MSB of string. SELF MODIFYING!"; addr $7a8b; }; -label { name "printstr_done"; addr $7a9e; }; -label { name "printstr_loop"; comment "$B9 = LDA abs,y"; addr $7a93; }; -label { name "printstr_op_lo"; comment "gets modified"; addr $7a94; }; -label { name "printstr_op_hi"; comment "gets modified"; addr $7a95; }; -label { name "msg_skipping"; addr $7f1d; }; -label { name "emsg_locate"; addr $7f28; }; -label { name "pskp_loop"; addr $7f08; }; -label { name "pskp_done"; addr $7f13; }; -label { name "check_arc_sig"; comment "first byte of header is $1A, just like ARC"; addr $748c; }; -label { name "check_alf_sig"; comment "2nd byte of header (compression type) is $0F"; addr $749d; }; - -label { name "readblock"; addr $7acf; }; -label { name "writeblock"; addr $7ad3; }; -label { name "do_block_io"; addr $7ad5; }; -label { name "save_SDMCTL"; addr $7173; }; -label { name "MEMLO_hi"; addr $02e8; }; - -label { name "buf_adr_l"; addr $7a7b; }; -label { name "buf_adr_h"; addr $7a7c; }; -label { name "buf_len_l"; addr $7a7d; }; -label { name "buf_len_h"; addr $7a7e; }; -label { name "save_x"; addr $7a81; }; -label { name "save_y"; addr $7a82; }; -label { name "save_a"; addr $7a83; }; -label { name "toupper"; addr $7b51; }; -label { name "le_z"; addr $7b56; }; -label { name "ge_a"; addr $7b5b; }; -label { name "open_kdev"; addr $7bb4; }; -label { name "close_kdev"; addr $7bc3; }; -label { name "getc0"; comment "read 1 byte from E: (IOCB0)"; addr $7b06; }; -label { name "getcx"; addr $7b08; }; -label { name "getline"; comment "read a line of input from E:"; addr $7b19; }; -label { name "nextchar"; addr $7b1e; }; -label { name "do_backspace"; addr $7b40; }; -label { name "getline_done"; addr $7b39; }; -label { name "linbuf_idx"; addr $7a79; }; -label { name "linbuf"; addr $7120; }; -label { name "ucase_linbuf"; addr $7b5e; }; -label { name "ucase_linbuf_loop"; addr $7b69; }; -label { name "ucase_linbuf_done"; addr $7b75; }; -label { name "disable_screen"; addr $7432; }; -label { name "open_input"; addr $743b; }; -label { name "disable_screen_flag"; addr $71b3; }; -label { name "read_alf_header"; comment "29 ($1D) bytes, read into alf_header"; addr $7450; }; - -label { name "copy_filename"; addr $73c4; }; -label { name "copy_filename_loop"; addr $73d0; }; -label { name "ensure_d_prefix"; addr $7dcf; }; -label { name "ensure_suffix"; addr $7e0c; }; -label { name "input_file"; addr $7000; }; -label { name "lday_input_file"; comment "lda #<input_file ; ldy #>input_file"; addr $743d; }; -label { name "open_fileadr_l"; addr $7a7f; }; -label { name "open_fileadr_h"; addr $7a80; }; -label { name "kdev"; addr $7a84; }; -label { name "p3dev"; comment "unused?"; addr $7a87; }; -label { name "lday_kdev"; comment "lda #<kdev ; ldy #>kdev"; addr $7bbb; }; -label { name "outfile_l"; addr $70a0; }; -label { name "outfile_h"; addr $70a1; }; -label { name "open_outfile"; comment "lda #<outfile ; ldy #>outfile"; addr $750d; }; -label { name "uncrunch_file"; addr $754e; }; -label { name "next_header"; addr $7546; }; -label { name "cksum_l"; comment "calculated"; addr $717f; }; -label { name "cksum_h"; addr $7180; }; -label { name "write_output"; addr $79c0; }; -label { name "have_output"; addr $79c9; }; -label { name "outbuf_adr_l"; addr $7187; }; -label { name "outbuf_adr_h"; addr $7188; }; -label { name "outbuf_len_l"; addr $71b1; }; -label { name "outbuf_len_h"; addr $71b2; }; -label { name "inbuf_adr_l"; addr $7185; }; -label { name "inbuf_adr_h"; addr $7186; }; -label { name "inbuf_len_l"; addr $7183; }; -label { name "inbuf_len_h"; addr $7184; }; - -# text strings: -label { name "msg_banner"; addr $71b8; }; -label { name "prompt_infile"; addr $71dd; }; -label { name "prompt_outdir"; addr $71f2; }; -label { name "msg_complete"; addr $7206; }; -label { name "msg_uncrunching"; addr $721b; }; -label { name "prompt_screen_off"; addr $7229; }; -label { name "emsg_not_alf"; addr $7241; }; -label { name "emsg_outdir_too_long"; addr $7259; }; -label { name "emsg_outdir_invalid"; addr $7277; }; -label { name "emsg_open_input"; addr $7294; }; -label { name "emsg_eof_extra"; addr $72ae; }; -label { name "emsg_write_output"; addr $72d5; }; -label { name "emsg_read_input"; addr $72f0; }; -label { name "emsg_input_overrun"; addr $730a; }; -label { name "emsg_checksum"; addr $7320; }; -label { name "emsg_memlo"; addr $7338; }; -label { name "emsg_stk_overrun"; addr $7925; }; -label { name "emsg_stk_underrun"; addr $7934; }; - -label { name "emsg_read_main_dir"; addr $7c32; }; -label { name "emsg_credir_failed"; addr $7c50; }; -label { name "emsg_outpath_build"; addr $7c72; }; -label { name "msg_credir_issued"; addr $7c8f; }; - -# code that prints text strings: -label { name "print_emsg_locate"; comment "ldx #<emsg_locate : ldy #>emsg_locate"; addr $7f9f; }; -label { name "print_msg_skipping"; comment "ldx #<msg_skipping : ldy #>msg_skipping"; addr $7eff; }; -label { name "print_emsg_outpath_build"; comment "ldx #<emsg_outpath_build : ldy #>emsg_outpath_build"; addr $7cca; }; -label { name "print_emsg_read_main_dir"; comment "ldx #<emsg_read_main_dir : ldy #>emsg_read_main_dir"; addr $7cd4; }; -label { name "print_msg_credir_issued"; comment "ldx #<msg_credir_issued : ldy #>msg_credir_issued"; addr $7d2d; }; -label { name "print_emsg_credir_failed"; comment "ldx #<emsg_credir_failed : ldy #>emsg_credir_failed"; addr $7d61; }; - -label { name "print_msg_banner"; comment "ldx #<msg_banner : ldy #>msg_banner"; addr $736a; }; -label { name "print_prompt_infile"; comment "ldx #<prompt_infile : ldy #>prompt_infile"; addr $738b; }; -label { name "print_msg_complete"; comment "ldx #<msg_complete : ldy #>msg_complete"; addr $739d; }; -label { name "print_emsg_memlo"; comment "ldx #<emsg_memlo : ldy #>emsg_memlo"; addr $73ba; }; -label { name "print_prompt_outdir"; comment "ldx #<prompt_outdir : ldy #>prompt_outdir"; addr $73e4; }; -label { name "print_emsg_outdir_invalid2"; comment "ldx #<emsg_outdir_invalid : ldy #>emsg_outdir_invalid"; addr $7403; }; -label { name "print_prompt_screen_off"; comment "ldx #<prompt_screen_off : ldy #>prompt_screen_off"; addr $741e; }; -label { name "print_emsg_open_input"; comment "ldx #<emsg_open_input : ldy #>emsg_open_input"; addr $7446; }; -label { name "print_emsg_eof_extra"; comment "ldx #<emsg_eof_extra : ldy #>emsg_eof_extra"; addr $7482; }; -label { name "print_emsg_not_alf"; comment "ldx #<emsg_not_alf : ldy #>emsg_not_alf"; addr $7493; }; -label { name "print_emsg_outdir_too_long"; comment "ldx #<emsg_outdir_too_long : ldy #>emsg_outdir_too_long"; addr $74bd; }; -label { name "print_emsg_outdir_invalid"; comment "ldx #<emsg_outdir_invalid : ldy #>emsg_outdir_invalid"; addr $74d5; }; -label { name "print_emsg_write_output"; comment "ldx #<emsg_write_output : ldy #>emsg_write_output"; addr $7518; }; -label { name "print_msg_uncrunching"; comment "ldx #<msg_uncrunching : ldy #>msg_uncrunching"; addr $7522; }; -label { name "print_filename"; comment "ldx #<outfile ; ldy #>outfile"; addr $7529; }; -label { name "print_emsg_checksum"; comment "ldx #<emsg_checksum : ldy #>emsg_checksum"; addr $75d3; }; -label { name "print_emsg_write_output_2"; comment "ldx #<emsg_checksum : ldy #>emsg_checksum"; addr $7878; }; -label { name "print_emsg_stk_overrun"; comment "ldx #<emsg_stk_overrun : ldy #>emsg_stk_overrun"; addr $7912; }; -label { name "print_emsg_stk_underrun"; comment "ldx #<emsg_stk_underrun : ldy #>emsg_stk_underrun"; addr $7962; }; diff --git a/disasm/unalf14.s b/disasm/unalf14.s deleted file mode 100644 index ecf8147..0000000 --- a/disasm/unalf14.s +++ /dev/null @@ -1,1932 +0,0 @@ -; da65 V2.19 - N/A -; Created: 2025-11-04 02:06:02 -; Input file: unalf14.raw -; Page: 1 - - - .setcpu "6502" - -; ---------------------------------------------------------------------------- -DOSVEC_lo := $000A ; 10 PROGRAM RUN VECTOR -DOSVEC_hi := $000B -zp_b0 := $00B0 -zp_b1 := $00B1 -acc16_l := $00B2 -acc16_h := $00B3 -zp_b4 := $00B4 -zp_b5 := $00B5 -stackptr_l := $00B6 -stackptr_h := $00B7 -zp_b8 := $00B8 -zp_b9 := $00B9 -outbuf_ptr_l := $00BA -outbuf_ptr_h := $00BB -zp_bc := $00BC -zp_bd := $00BD -zp_be := $00BE -zp_bf := $00BF -SDMCTL := $022F ; 559 DMACTL SHADOW -SHFLOC := $02BE ; 702 -MEMTOP_lo := $02E5 ; 741 END OF FREE RAM -MEMTOP_hi := $02E6 -MEMLO_hi := $02E8 -ICCOM := $0342 ; 834 ; Command byte (see C_* constants) (set by user) -ICBAL := $0344 ; 836 ; Buffer address, LSB (set by user) -ICBAH := $0345 ; 837 ; Buffer address, MSB (set by user) -ICBLL := $0348 ; 840 ; Buffer length, LSB (set by user) -ICBLH := $0349 ; 841 ; Buffer length, MSB (set by user) -ICAX1 := $034A ; 842 ; AUX1 byte (2nd param in BASIC OPEN) (set by user) -ICAX2 := $034B ; 843 ; AUX2 byte (4rd param in BASIC OPEN) (set by user) -BOOTRG := $0700 ; 1792 PROGRAM AREA -input_file := $7000 -output_dir := $7050 -outfile_l := $70A0 -outfile_h := $70A1 -linbuf := $7120 -CIOV := $E456 ; 58454 ; Main CIO entry point! -; ---------------------------------------------------------------------------- -save_SDMCTL: - .byte $00 ; 7173 00 -L7174: .byte $00 ; 7174 00 -L7175: .byte $00 ; 7175 00 -L7176: .byte $00 ; 7176 00 -L7177: .byte $00 ; 7177 00 -L7178: .byte $00 ; 7178 00 -L7179: .byte $00 ; 7179 00 -L717A: .byte $00 ; 717A 00 -L717B: .byte $00 ; 717B 00 -L717C: .byte $00 ; 717C 00 -L717D: .byte $00 ; 717D 00 -L717E: .byte $00 ; 717E 00 -; calculated -cksum_l:.byte $00 ; 717F 00 -cksum_h:.byte $00 ; 7180 00 -L7181: .byte $00 ; 7181 00 -L7182: .byte $30 ; 7182 30 -inbuf_len_l: - .byte $00 ; 7183 00 -inbuf_len_h: - .byte $00 ; 7184 00 -inbuf_adr_l: - .byte $00 ; 7185 00 -inbuf_adr_h: - .byte $00 ; 7186 00 -outbuf_adr_l: - .byte $00 ; 7187 00 -outbuf_adr_h: - .byte $00 ; 7188 00 -L7189: .byte $00 ; 7189 00 -L718A: .byte $00 ; 718A 00 -L718B: .byte $00 ; 718B 00 -L718C: .byte $00 ; 718C 00 -; arc/alf signature, $1a -alf_header: - .byte $00 ; 718D 00 -; alf signature, $0f -alf_hdr_sig: - .byte $00 ; 718E 00 -; null-terminated compressed filename, 13 bytes -alf_hdr_filename: - .byte $20,$20,$20,$20,$20,$20,$20,$20; 718F 20 20 20 20 20 20 20 20 - .byte $20,$20,$20,$20,$20; 7197 20 20 20 20 20 -; compressed size, 4 bytes, LSB first -alf_hdr_compsize0: - .byte $00 ; 719C 00 -alf_hdr_compsize1: - .byte $00 ; 719D 00 -alf_hdr_compsize2: - .byte $00 ; 719E 00 -; always 0, archived file never >= 16MB -alf_hdr_compsize3: - .byte $00 ; 719F 00 -; 2 bytes, MS-DOS date format (see Arcinfo) -alf_hdr_date0: - .byte $00 ; 71A0 00 -alf_hdr_date1: - .byte $00 ; 71A1 00 -; 2 bytes, MS-DOS time format (see Arcinfo) -alf_hdr_time0: - .byte $00 ; 71A2 00 -alf_hdr_time1: - .byte $00 ; 71A3 00 -; CRC stored in file header -alf_hdr_cksum_l: - .byte $00 ; 71A4 00 -alf_hdr_cksum_h: - .byte $00 ; 71A5 00 -; uncompressed size, 4 bytes, LSB first -alf_hdr_origsize0: - .byte $00 ; 71A6 00 -alf_hdr_origsize1: - .byte $00 ; 71A7 00 -alf_hdr_origsize2: - .byte $00 ; 71A8 00 -; last byte in alf header -alf_hdr_origsize3: - .byte $00 ; 71A9 00 -L71AA: .byte $00 ; 71AA 00 -L71AB: .byte $00 ; 71AB 00 -shift_counter: - .byte $09 ; 71AC 09 -L71AD: .byte $00 ; 71AD 00 -L71AE: .byte $02 ; 71AE 02 -L71AF: .byte $00 ; 71AF 00 -L71B0: .byte $00 ; 71B0 00 -outbuf_len_l: - .byte $00 ; 71B1 00 -outbuf_len_h: - .byte $00 ; 71B2 00 -disable_screen_flag: - .byte $00 ; 71B3 00 -L71B4: .byte $00 ; 71B4 00 -L71B5: .byte $00 ; 71B5 00 -L71B6: .byte $00 ; 71B6 00 -L71B7: .byte $00 ; 71B7 00 -; ---------------------------------------------------------------------------- -msg_banner: - .byte "}V1.4 ALFUNCRUNCH 07/10"; 71B8 7D 56 31 2E 34 20 20 20 - ; 71C0 20 20 41 4C 46 55 4E 43 - ; 71C8 52 55 4E 43 48 20 20 20 - ; 71D0 20 20 30 37 2F 31 30 - .byte "/88" ; 71D7 2F 38 38 - .byte $9B,$9B,$00 ; 71DA 9B 9B 00 -prompt_infile: - .byte "File to decompress:"; 71DD 46 69 6C 65 20 74 6F 20 - ; 71E5 64 65 63 6F 6D 70 72 65 - ; 71ED 73 73 3A - .byte $9B,$00 ; 71F0 9B 00 -prompt_outdir: - .byte "Output Directory: "; 71F2 4F 75 74 70 75 74 20 44 - ; 71FA 69 72 65 63 74 6F 72 79 - ; 7202 3A 20 - .byte $9B,$00 ; 7204 9B 00 -msg_complete: - .byte "Processing complete"; 7206 50 72 6F 63 65 73 73 69 - ; 720E 6E 67 20 63 6F 6D 70 6C - ; 7216 65 74 65 - .byte $9B,$00 ; 7219 9B 00 -msg_uncrunching: - .byte "Uncrunching: "; 721B 55 6E 63 72 75 6E 63 68 - ; 7223 69 6E 67 3A 20 - .byte $00 ; 7228 00 -prompt_screen_off: - .byte "Screen off for speed ? "; 7229 53 63 72 65 65 6E 20 6F - ; 7231 66 66 20 66 6F 72 20 73 - ; 7239 70 65 65 64 20 3F 20 - .byte $00 ; 7240 00 -emsg_not_alf: - .byte "Not an AlfCrunch file!"; 7241 4E 6F 74 20 61 6E 20 41 - ; 7249 6C 66 43 72 75 6E 63 68 - ; 7251 20 66 69 6C 65 21 - .byte $9B,$00 ; 7257 9B 00 -emsg_outdir_too_long: - .byte "Output Directory Is Too Long"; 7259 4F 75 74 70 75 74 20 44 - ; 7261 69 72 65 63 74 6F 72 79 - ; 7269 20 49 73 20 54 6F 6F 20 - ; 7271 4C 6F 6E 67 - .byte $9B,$00 ; 7275 9B 00 -emsg_outdir_invalid: - .byte "Output Directory Is Invalid"; 7277 4F 75 74 70 75 74 20 44 - ; 727F 69 72 65 63 74 6F 72 79 - ; 7287 20 49 73 20 49 6E 76 61 - ; 728F 6C 69 64 - .byte $9B,$00 ; 7292 9B 00 -emsg_open_input: - .byte "Error Opening Input File"; 7294 45 72 72 6F 72 20 4F 70 - ; 729C 65 6E 69 6E 67 20 49 6E - ; 72A4 70 75 74 20 46 69 6C 65 - .byte $9B,$00 ; 72AC 9B 00 -emsg_eof_extra: - .byte "Extra bytes at EOF. Don't add t"; 72AE 45 78 74 72 61 20 62 79 - ; 72B6 74 65 73 20 61 74 20 45 - ; 72BE 4F 46 2E 20 44 6F 6E 27 - ; 72C6 74 20 61 64 64 20 74 - .byte "o file" ; 72CD 6F 20 66 69 6C 65 - .byte $9B,$00 ; 72D3 9B 00 -emsg_write_output: - .byte "Error writing output file"; 72D5 45 72 72 6F 72 20 77 72 - ; 72DD 69 74 69 6E 67 20 6F 75 - ; 72E5 74 70 75 74 20 66 69 6C - ; 72ED 65 - .byte $9B,$00 ; 72EE 9B 00 -emsg_read_input: - .byte "Error reading input file"; 72F0 45 72 72 6F 72 20 72 65 - ; 72F8 61 64 69 6E 67 20 69 6E - ; 7300 70 75 74 20 66 69 6C 65 - .byte $9B,$00 ; 7308 9B 00 -emsg_input_overrun: - .byte "Input buffer overrun"; 730A 49 6E 70 75 74 20 62 75 - ; 7312 66 66 65 72 20 6F 76 65 - ; 731A 72 72 75 6E - .byte $9B,$00 ; 731E 9B 00 -emsg_checksum: - .byte "File checksum in error"; 7320 46 69 6C 65 20 63 68 65 - ; 7328 63 6B 73 75 6D 20 69 6E - ; 7330 20 65 72 72 6F 72 - .byte $9B,$00 ; 7336 9B 00 -emsg_memlo: - .byte "Error, memlo must be under $300"; 7338 45 72 72 6F 72 2C 20 6D - ; 7340 65 6D 6C 6F 20 6D 75 73 - ; 7348 74 20 62 65 20 75 6E 64 - ; 7350 65 72 20 24 33 30 30 - .byte "0" ; 7357 30 - .byte $9B,$00 ; 7358 9B 00 -; ---------------------------------------------------------------------------- -startup:jsr open_kdev ; 735A 20 B4 7B - lda SDMCTL ; 735D AD 2F 02 - sta save_SDMCTL ; 7360 8D 73 71 - lda MEMLO_hi ; 7363 AD E8 02 - cmp #$30 ; 7366 C9 30 - bcs print_emsg_memlo; 7368 B0 50 -; ldx #<msg_banner : ldy #>msg_banner -print_msg_banner: - ldx #$B8 ; 736A A2 B8 - ldy #$71 ; 736C A0 71 - jsr printstr ; 736E 20 8B 7A - lda #$40 ; 7371 A9 40 - sta SHFLOC ; 7373 8D BE 02 - jsr get_cli_arg ; 7376 20 CE 7B - bcs have_infile ; 7379 B0 0B - jsr copy_cli_arg ; 737B 20 11 7C - lda #$01 ; 737E A9 01 - sta disable_screen_flag; 7380 8D B3 71 - jmp L7395 ; 7383 4C 95 73 - -; ---------------------------------------------------------------------------- -; either a filename was passed as an argument (sparta), or enterd at the prompt -have_infile: - lda #$9B ; 7386 A9 9B - jsr putchar ; 7388 20 9F 7A -; ldx #<prompt_infile : ldy #>prompt_infile -print_prompt_infile: - ldx #$DD ; 738B A2 DD - ldy #$71 ; 738D A0 71 - jsr printstr ; 738F 20 8B 7A - jsr getline ; 7392 20 19 7B -L7395: lda linbuf_idx ; 7395 AD 79 7A - bne copy_filename ; 7398 D0 2A -exit: jsr close_kdev ; 739A 20 C3 7B -; ldx #<msg_complete : ldy #>msg_complete -print_msg_complete: - ldx #$06 ; 739D A2 06 - ldy #$72 ; 739F A0 72 - jsr printstr ; 73A1 20 8B 7A - lda save_SDMCTL ; 73A4 AD 73 71 - sta SDMCTL ; 73A7 8D 2F 02 - ldx #$30 ; 73AA A2 30 - jsr close_iocb ; 73AC 20 48 7B - lda BOOTRG ; 73AF AD 00 07 - cmp #$53 ; 73B2 C9 53 - beq sparta_exit ; 73B4 F0 03 - jmp (DOSVEC_lo) ; 73B6 6C 0A 00 - -; ---------------------------------------------------------------------------- -sparta_exit: - rts ; 73B9 60 - -; ---------------------------------------------------------------------------- -; ldx #<emsg_memlo : ldy #>emsg_memlo -print_emsg_memlo: - ldx #$38 ; 73BA A2 38 - ldy #$73 ; 73BC A0 73 - jsr printstr ; 73BE 20 8B 7A - jmp exit ; 73C1 4C 9A 73 - -; ---------------------------------------------------------------------------- -copy_filename: - jsr ucase_linbuf ; 73C4 20 5E 7B - jsr ensure_d_prefix; 73C7 20 CF 7D - jsr ensure_suffix ; 73CA 20 0C 7E - ldx linbuf_idx ; 73CD AE 79 7A -copy_filename_loop: - lda linbuf,x ; 73D0 BD 20 71 - sta input_file,x ; 73D3 9D 00 70 - dex ; 73D6 CA - bpl copy_filename_loop; 73D7 10 F7 - jsr get_cli_arg ; 73D9 20 CE 7B - bcs print_prompt_outdir; 73DC B0 06 - jsr copy_cli_arg ; 73DE 20 11 7C - jmp have_outdir ; 73E1 4C EE 73 - -; ---------------------------------------------------------------------------- -; ldx #<prompt_outdir : ldy #>prompt_outdir -print_prompt_outdir: - ldx #$F2 ; 73E4 A2 F2 - ldy #$71 ; 73E6 A0 71 - jsr printstr ; 73E8 20 8B 7A - jsr getline ; 73EB 20 19 7B -; either a dir was passed as an argument (sparta), or enterd at the prompt -have_outdir: - lda linbuf_idx ; 73EE AD 79 7A - beq exit ; 73F1 F0 A7 - lda #$00 ; 73F3 A9 00 - sta L7174 ; 73F5 8D 74 71 - jsr ucase_linbuf ; 73F8 20 5E 7B - jsr ensure_d_prefix; 73FB 20 CF 7D - jsr L7D86 ; 73FE 20 86 7D - bcc copy_outdir ; 7401 90 0A -; ldx #<emsg_outdir_invalid : ldy #>emsg_outdir_invalid -print_emsg_outdir_invalid2: - ldx #$77 ; 7403 A2 77 - ldy #$72 ; 7405 A0 72 - jsr printstr ; 7407 20 8B 7A - jmp exit ; 740A 4C 9A 73 - -; ---------------------------------------------------------------------------- -copy_outdir: - ldx linbuf_idx ; 740D AE 79 7A -cod_loop: - lda linbuf,x ; 7410 BD 20 71 - sta output_dir,x ; 7413 9D 50 70 - dex ; 7416 CA - bpl cod_loop ; 7417 10 F7 - ldx disable_screen_flag; 7419 AE B3 71 - bne disable_screen ; 741C D0 14 -; ldx #<prompt_screen_off : ldy #>prompt_screen_off -print_prompt_screen_off: - ldx #$29 ; 741E A2 29 - ldy #$72 ; 7420 A0 72 - jsr printstr ; 7422 20 8B 7A - jsr getline ; 7425 20 19 7B - lda linbuf ; 7428 AD 20 71 - jsr toupper ; 742B 20 51 7B - cmp #$59 ; 742E C9 59 - bne open_input ; 7430 D0 09 -disable_screen: - ldx #$00 ; 7432 A2 00 - sta SDMCTL ; 7434 8D 2F 02 - inx ; 7437 E8 - stx disable_screen_flag; 7438 8E B3 71 -open_input: - ldx #$10 ; 743B A2 10 -; lda #<input_file ; ldy #>input_file -lday_input_file: - lda #$00 ; 743D A9 00 - ldy #$70 ; 743F A0 70 - jsr open_read ; 7441 20 76 7B - bpl read_alf_header; 7444 10 0A -; ldx #<emsg_open_input : ldy #>emsg_open_input -print_emsg_open_input: - ldx #$94 ; 7446 A2 94 - ldy #$72 ; 7448 A0 72 - jsr printstr ; 744A 20 8B 7A - jmp exit ; 744D 4C 9A 73 - -; ---------------------------------------------------------------------------- -; 29 ($1D) bytes, read into alf_header -read_alf_header: - lda #$8D ; 7450 A9 8D - sta buf_adr_l ; 7452 8D 7B 7A - lda #$71 ; 7455 A9 71 - sta buf_adr_h ; 7457 8D 7C 7A - lda #$1D ; 745A A9 1D - sta buf_len_l ; 745C 8D 7D 7A - lda #$00 ; 745F A9 00 - sta buf_len_h ; 7461 8D 7E 7A - ldx #$10 ; 7464 A2 10 - jsr readblock ; 7466 20 CF 7A - bpl check_arc_sig ; 7469 10 21 - cpy #$88 ; 746B C0 88 - bne print_emsg_open_input; 746D D0 D7 - lda buf_len_h ; 746F AD 7E 7A - bne check_arc_sig ; 7472 D0 18 - lda buf_len_l ; 7474 AD 7D 7A - beq L7489 ; 7477 F0 10 - cmp #$1D ; 7479 C9 1D - bcs check_arc_sig ; 747B B0 0F - lda L71B4 ; 747D AD B4 71 - beq print_emsg_open_input; 7480 F0 C4 -; ldx #<emsg_eof_extra : ldy #>emsg_eof_extra -print_emsg_eof_extra: - ldx #$AE ; 7482 A2 AE - ldy #$72 ; 7484 A0 72 - jsr printstr ; 7486 20 8B 7A -L7489: jmp exit ; 7489 4C 9A 73 - -; ---------------------------------------------------------------------------- -; first byte of header is $1A, just like ARC -check_arc_sig: - lda alf_header ; 748C AD 8D 71 - cmp #$1A ; 748F C9 1A - beq check_alf_sig ; 7491 F0 0A -; ldx #<emsg_not_alf : ldy #>emsg_not_alf -print_emsg_not_alf: - ldx #$41 ; 7493 A2 41 - ldy #$72 ; 7495 A0 72 - jsr printstr ; 7497 20 8B 7A - jmp exit ; 749A 4C 9A 73 - -; ---------------------------------------------------------------------------- -; 2nd byte of header (compression type) is $0F -check_alf_sig: - lda alf_hdr_sig ; 749D AD 8E 71 - cmp #$0F ; 74A0 C9 0F - bne print_emsg_not_alf; 74A2 D0 EF - lda L7174 ; 74A4 AD 74 71 - bne L74B1 ; 74A7 D0 08 - jsr L7CA9 ; 74A9 20 A9 7C - lda #$01 ; 74AC A9 01 - sta L7174 ; 74AE 8D 74 71 -L74B1: ldx #$00 ; 74B1 A2 00 -L74B3: lda output_dir,x ; 74B3 BD 50 70 - cmp #$9B ; 74B6 C9 9B - beq L74C7 ; 74B8 F0 0D - inx ; 74BA E8 - bpl L74B3 ; 74BB 10 F6 -; ldx #<emsg_outdir_too_long : ldy #>emsg_outdir_too_long -print_emsg_outdir_too_long: - ldx #$59 ; 74BD A2 59 - ldy #$72 ; 74BF A0 72 - jsr printstr ; 74C1 20 8B 7A - jmp exit ; 74C4 4C 9A 73 - -; ---------------------------------------------------------------------------- -L74C7: lda output_dir,x ; 74C7 BD 50 70 - cmp #$3E ; 74CA C9 3E - beq L74DF ; 74CC F0 11 - cmp #$3A ; 74CE C9 3A - beq L74DF ; 74D0 F0 0D - dex ; 74D2 CA - bpl L74C7 ; 74D3 10 F2 -; ldx #<emsg_outdir_invalid : ldy #>emsg_outdir_invalid -print_emsg_outdir_invalid: - ldx #$77 ; 74D5 A2 77 - ldy #$72 ; 74D7 A0 72 - jsr printstr ; 74D9 20 8B 7A - jmp exit ; 74DC 4C 9A 73 - -; ---------------------------------------------------------------------------- -L74DF: txa ; 74DF 8A - tay ; 74E0 A8 -L74E1: lda output_dir,x ; 74E1 BD 50 70 - sta outfile_l,x ; 74E4 9D A0 70 - dex ; 74E7 CA - bpl L74E1 ; 74E8 10 F7 - iny ; 74EA C8 - ldx #$00 ; 74EB A2 00 -L74ED: lda alf_hdr_filename,x; 74ED BD 8F 71 - sta outfile_l,y ; 74F0 99 A0 70 - beq L74FB ; 74F3 F0 06 - inx ; 74F5 E8 - iny ; 74F6 C8 - bpl L74ED ; 74F7 10 F4 - bmi print_emsg_not_alf; 74F9 30 98 -L74FB: lda #$9B ; 74FB A9 9B - sta outfile_l,y ; 74FD 99 A0 70 - lda #$00 ; 7500 A9 00 - sta outfile_h,y ; 7502 99 A1 70 - jsr L7EE4 ; 7505 20 E4 7E - bcc open_outfile ; 7508 90 03 - jmp read_alf_header; 750A 4C 50 74 - -; ---------------------------------------------------------------------------- -; lda #<outfile ; ldy #>outfile -open_outfile: - ldx #$30 ; 750D A2 30 - lda #$A0 ; 750F A9 A0 - ldy #$70 ; 7511 A0 70 - jsr open_write ; 7513 20 7B 7B - bpl print_msg_uncrunching; 7516 10 0A -; ldx #<emsg_write_output : ldy #>emsg_write_output -print_emsg_write_output: - ldx #$D5 ; 7518 A2 D5 - ldy #$72 ; 751A A0 72 - jsr printstr ; 751C 20 8B 7A - jmp exit ; 751F 4C 9A 73 - -; ---------------------------------------------------------------------------- -; ldx #<msg_uncrunching : ldy #>msg_uncrunching -print_msg_uncrunching: - ldx #$1B ; 7522 A2 1B - ldy #$72 ; 7524 A0 72 - jsr printstr ; 7526 20 8B 7A -; ldx #<outfile ; ldy #>outfile -print_filename: - ldx #$A0 ; 7529 A2 A0 - ldy #$70 ; 752B A0 70 - jsr printstr ; 752D 20 8B 7A - lda #$01 ; 7530 A9 01 - sta L71B4 ; 7532 8D B4 71 - lda alf_hdr_compsize0; 7535 AD 9C 71 - ora alf_hdr_compsize1; 7538 0D 9D 71 - ora alf_hdr_compsize2; 753B 0D 9E 71 - ora alf_hdr_compsize3; 753E 0D 9F 71 - beq next_header ; 7541 F0 03 - jsr uncrunch_file ; 7543 20 4E 75 -next_header: - ldx #$30 ; 7546 A2 30 - jsr close_iocb ; 7548 20 48 7B - jmp read_alf_header; 754B 4C 50 74 - -; ---------------------------------------------------------------------------- -uncrunch_file: - lda #$00 ; 754E A9 00 - sta L71AF ; 7550 8D AF 71 - sta L71B0 ; 7553 8D B0 71 - sta outbuf_len_l ; 7556 8D B1 71 - sta outbuf_len_h ; 7559 8D B2 71 - sta L71B6 ; 755C 8D B6 71 - sta L71B7 ; 755F 8D B7 71 - sta L718C ; 7562 8D 8C 71 - sta cksum_l ; 7565 8D 7F 71 - sta cksum_h ; 7568 8D 80 71 - lda #$09 ; 756B A9 09 - sta shift_counter ; 756D 8D AC 71 - lda #$00 ; 7570 A9 00 - sta L71AD ; 7572 8D AD 71 - lda #$02 ; 7575 A9 02 - sta L71AE ; 7577 8D AE 71 - lda #$00 ; 757A A9 00 - sta stackptr_l ; 757C 85 B6 - lda #$60 ; 757E A9 60 - sta stackptr_h ; 7580 85 B7 - jsr setup_io_bufs ; 7582 20 78 79 - ldx #$10 ; 7585 A2 10 - lda inbuf_adr_l ; 7587 AD 85 71 - sta buf_adr_l ; 758A 8D 7B 7A - lda inbuf_adr_h ; 758D AD 86 71 - sta buf_adr_h ; 7590 8D 7C 7A - lda inbuf_len_l ; 7593 AD 83 71 - sta buf_len_l ; 7596 8D 7D 7A - lda inbuf_len_h ; 7599 AD 84 71 - sta buf_len_h ; 759C 8D 7E 7A - jsr L7A19 ; 759F 20 19 7A - sty L718C ; 75A2 8C 8C 71 - jsr L79E7 ; 75A5 20 E7 79 - lda buf_len_l ; 75A8 AD 7D 7A - ora buf_len_h ; 75AB 0D 7E 7A - bne L75B1 ; 75AE D0 01 - rts ; 75B0 60 - -; ---------------------------------------------------------------------------- -L75B1: jsr L76D0 ; 75B1 20 D0 76 - lda acc16_h ; 75B4 A5 B3 - cmp #$01 ; 75B6 C9 01 - bne uncrunch_blk ; 75B8 D0 21 - lda acc16_l ; 75BA A5 B2 - cmp #$01 ; 75BC C9 01 - bne uncrunch_blk ; 75BE D0 1B - jsr write_output ; 75C0 20 C0 79 - lda alf_hdr_cksum_l; 75C3 AD A4 71 - cmp cksum_l ; 75C6 CD 7F 71 - bne print_emsg_checksum; 75C9 D0 08 - lda alf_hdr_cksum_h; 75CB AD A5 71 - cmp cksum_h ; 75CE CD 80 71 - beq cksum_ok ; 75D1 F0 07 -; ldx #<emsg_checksum : ldy #>emsg_checksum -print_emsg_checksum: - ldx #$20 ; 75D3 A2 20 - ldy #$73 ; 75D5 A0 73 - jsr printstr ; 75D7 20 8B 7A -cksum_ok: - rts ; 75DA 60 - -; ---------------------------------------------------------------------------- -uncrunch_blk: - lda acc16_l ; 75DB A5 B2 - cmp #$00 ; 75DD C9 00 - bne L760B ; 75DF D0 2A - lda acc16_h ; 75E1 A5 B3 - cmp #$01 ; 75E3 C9 01 - bne L760B ; 75E5 D0 24 - jsr init_counters ; 75E7 20 0C 78 - jsr L76D0 ; 75EA 20 D0 76 - lda acc16_l ; 75ED A5 B2 - sta L717D ; 75EF 8D 7D 71 - sta L7179 ; 75F2 8D 79 71 - lda acc16_h ; 75F5 A5 B3 - sta L717E ; 75F7 8D 7E 71 - sta L717A ; 75FA 8D 7A 71 - lda acc16_l ; 75FD A5 B2 - sta L7177 ; 75FF 8D 77 71 - sta L7178 ; 7602 8D 78 71 - jsr store_outbyte ; 7605 20 26 78 - jmp L75B1 ; 7608 4C B1 75 - -; ---------------------------------------------------------------------------- -L760B: lda acc16_l ; 760B A5 B2 - sta L717D ; 760D 8D 7D 71 - sta L7175 ; 7610 8D 75 71 - lda acc16_h ; 7613 A5 B3 - sta L717E ; 7615 8D 7E 71 - sta L7176 ; 7618 8D 76 71 - lda acc16_h ; 761B A5 B3 - cmp L717C ; 761D CD 7C 71 - bcc L7641 ; 7620 90 1F - lda acc16_l ; 7622 A5 B2 - cmp L717B ; 7624 CD 7B 71 - bcc L7641 ; 7627 90 18 - lda L7179 ; 7629 AD 79 71 - sta acc16_l ; 762C 85 B2 - sta L717D ; 762E 8D 7D 71 - lda L717A ; 7631 AD 7A 71 - sta acc16_h ; 7634 85 B3 - sta L717E ; 7636 8D 7E 71 - lda L7178 ; 7639 AD 78 71 - sta acc16_l ; 763C 85 B2 - jsr push_acc16 ; 763E 20 F6 78 -L7641: lda L717E ; 7641 AD 7E 71 - beq L7670 ; 7644 F0 2A - lda L717D ; 7646 AD 7D 71 - sta zp_b4 ; 7649 85 B4 - lda L717E ; 764B AD 7E 71 - sta zp_b5 ; 764E 85 B5 - jsr L7899 ; 7650 20 99 78 - ldy #$02 ; 7653 A0 02 - lda (zp_b0),y ; 7655 B1 B0 - sta acc16_l ; 7657 85 B2 - jsr push_acc16 ; 7659 20 F6 78 - ldy #$00 ; 765C A0 00 - lda (zp_b0),y ; 765E B1 B0 - sta acc16_l ; 7660 85 B2 - sta L717D ; 7662 8D 7D 71 - iny ; 7665 C8 - lda (zp_b0),y ; 7666 B1 B0 - sta acc16_h ; 7668 85 B3 - sta L717E ; 766A 8D 7E 71 - jmp L7641 ; 766D 4C 41 76 - -; ---------------------------------------------------------------------------- -L7670: lda L717D ; 7670 AD 7D 71 - sta acc16_l ; 7673 85 B2 - sta L7178 ; 7675 8D 78 71 - sta L7177 ; 7678 8D 77 71 - lda L717E ; 767B AD 7E 71 - sta acc16_h ; 767E 85 B3 - jsr push_acc16 ; 7680 20 F6 78 -L7683: lda L71AF ; 7683 AD AF 71 - ora L71B0 ; 7686 0D B0 71 - beq L7694 ; 7689 F0 09 - jsr pop_acc16 ; 768B 20 44 79 - jsr store_outbyte ; 768E 20 26 78 - jmp L7683 ; 7691 4C 83 76 - -; ---------------------------------------------------------------------------- -L7694: jsr L78C2 ; 7694 20 C2 78 - lda L7175 ; 7697 AD 75 71 - sta acc16_l ; 769A 85 B2 - sta L7179 ; 769C 8D 79 71 - lda L7176 ; 769F AD 76 71 - sta acc16_h ; 76A2 85 B3 - sta L717A ; 76A4 8D 7A 71 - lda L717B ; 76A7 AD 7B 71 - sta zp_b4 ; 76AA 85 B4 - lda L717C ; 76AC AD 7C 71 - sta zp_b5 ; 76AF 85 B5 - cmp L71AE ; 76B1 CD AE 71 - bcc L76CD ; 76B4 90 17 - lda zp_b4 ; 76B6 A5 B4 - cmp L71AD ; 76B8 CD AD 71 - bcc L76CD ; 76BB 90 10 - lda shift_counter ; 76BD AD AC 71 - cmp #$0C ; 76C0 C9 0C - beq L76CD ; 76C2 F0 09 - inc shift_counter ; 76C4 EE AC 71 - asl L71AD ; 76C7 0E AD 71 - rol L71AE ; 76CA 2E AE 71 -L76CD: jmp L75B1 ; 76CD 4C B1 75 - -; ---------------------------------------------------------------------------- -L76D0: lda L71B6 ; 76D0 AD B6 71 - sta zp_b8 ; 76D3 85 B8 - lda L71B7 ; 76D5 AD B7 71 - sta zp_b9 ; 76D8 85 B9 - ldx #$02 ; 76DA A2 02 -L76DC: lsr zp_b9 ; 76DC 46 B9 - ror zp_b8 ; 76DE 66 B8 - dex ; 76E0 CA - bpl L76DC ; 76E1 10 F9 - lda zp_b8 ; 76E3 A5 B8 - sta L71AA ; 76E5 8D AA 71 - lda zp_b9 ; 76E8 A5 B9 - sta L71AB ; 76EA 8D AB 71 - lda inbuf_len_l ; 76ED AD 83 71 - sec ; 76F0 38 - sbc zp_b8 ; 76F1 E5 B8 - sta zp_bc ; 76F3 85 BC - lda inbuf_len_h ; 76F5 AD 84 71 - sbc zp_b9 ; 76F8 E5 B9 - sta zp_bd ; 76FA 85 BD - lda zp_bd ; 76FC A5 BD - bne L770F ; 76FE D0 0F - lda zp_bc ; 7700 A5 BC - cmp #$03 ; 7702 C9 03 - bcs L770F ; 7704 B0 09 - ldx L718C ; 7706 AE 8C 71 - bpl L771C ; 7709 10 11 - cmp #$02 ; 770B C9 02 - bcc L7712 ; 770D 90 03 -L770F: jmp L779B ; 770F 4C 9B 77 - -; ---------------------------------------------------------------------------- -L7712: ldx #$0A ; 7712 A2 0A - ldy #$0A ; 7714 A0 0A - jsr printstr ; 7716 20 8B 7A - jmp cleanup_and_exit; 7719 4C 7F 78 - -; ---------------------------------------------------------------------------- -L771C: tay ; 771C A8 - dey ; 771D 88 - ldx inbuf_adr_l ; 771E AE 85 71 - stx zp_be ; 7721 86 BE - ldx inbuf_adr_h ; 7723 AE 86 71 - stx zp_bf ; 7726 86 BF - lda inbuf_adr_l ; 7728 AD 85 71 - clc ; 772B 18 - adc zp_b8 ; 772C 65 B8 - sta zp_b8 ; 772E 85 B8 - lda inbuf_adr_h ; 7730 AD 86 71 - adc zp_b9 ; 7733 65 B9 - sta zp_b9 ; 7735 85 B9 -L7737: lda (zp_b8),y ; 7737 B1 B8 - sta (zp_be),y ; 7739 91 BE - dey ; 773B 88 - bpl L7737 ; 773C 10 F9 - lda inbuf_len_l ; 773E AD 83 71 - sec ; 7741 38 - sbc zp_bc ; 7742 E5 BC - sta buf_len_l ; 7744 8D 7D 7A - lda inbuf_len_h ; 7747 AD 84 71 - sbc #$00 ; 774A E9 00 - sta buf_len_h ; 774C 8D 7E 7A - lda inbuf_adr_l ; 774F AD 85 71 - clc ; 7752 18 - adc zp_bc ; 7753 65 BC - sta buf_adr_l ; 7755 8D 7B 7A - lda inbuf_adr_h ; 7758 AD 86 71 - adc #$00 ; 775B 69 00 - sta buf_adr_h ; 775D 8D 7C 7A - ldx #$10 ; 7760 A2 10 - jsr L7A19 ; 7762 20 19 7A - sty L718C ; 7765 8C 8C 71 - bpl L7771 ; 7768 10 07 - cpy #$88 ; 776A C0 88 - beq L7771 ; 776C F0 03 - jmp cleanup_and_exit; 776E 4C 7F 78 - -; ---------------------------------------------------------------------------- -L7771: jsr L79E7 ; 7771 20 E7 79 - lda L71AA ; 7774 AD AA 71 - sta zp_b8 ; 7777 85 B8 - lda L71AB ; 7779 AD AB 71 - sta zp_b9 ; 777C 85 B9 - ldx #$02 ; 777E A2 02 -L7780: asl zp_b8 ; 7780 06 B8 - rol zp_b9 ; 7782 26 B9 - dex ; 7784 CA - bpl L7780 ; 7785 10 F9 - lda L71B6 ; 7787 AD B6 71 - sec ; 778A 38 - sbc zp_b8 ; 778B E5 B8 - sta L71B6 ; 778D 8D B6 71 - lda L71B7 ; 7790 AD B7 71 - sbc zp_b9 ; 7793 E5 B9 - sta L71B7 ; 7795 8D B7 71 - jmp L76D0 ; 7798 4C D0 76 - -; ---------------------------------------------------------------------------- -L779B: lda zp_b8 ; 779B A5 B8 - sta zp_bc ; 779D 85 BC - clc ; 779F 18 - adc inbuf_adr_l ; 77A0 6D 85 71 - sta zp_b8 ; 77A3 85 B8 - lda zp_b9 ; 77A5 A5 B9 - sta zp_bd ; 77A7 85 BD - adc inbuf_adr_h ; 77A9 6D 86 71 - sta zp_b9 ; 77AC 85 B9 - ldy #$00 ; 77AE A0 00 - lda L71B6 ; 77B0 AD B6 71 - and #$07 ; 77B3 29 07 - bne L77E1 ; 77B5 D0 2A - lda (zp_b8),y ; 77B7 B1 B8 - sta acc16_h ; 77B9 85 B3 - iny ; 77BB C8 - lda (zp_b8),y ; 77BC B1 B8 - sta acc16_l ; 77BE 85 B2 -L77C0: lda #$0F ; 77C0 A9 0F - sec ; 77C2 38 - sbc shift_counter ; 77C3 ED AC 71 - tax ; 77C6 AA -L77C7: lsr acc16_h ; 77C7 46 B3 - ror acc16_l ; 77C9 66 B2 - dex ; 77CB CA - bpl L77C7 ; 77CC 10 F9 - lda shift_counter ; 77CE AD AC 71 - clc ; 77D1 18 - adc L71B6 ; 77D2 6D B6 71 - sta L71B6 ; 77D5 8D B6 71 - lda #$00 ; 77D8 A9 00 - adc L71B7 ; 77DA 6D B7 71 - sta L71B7 ; 77DD 8D B7 71 - rts ; 77E0 60 - -; ---------------------------------------------------------------------------- -L77E1: ldx #$02 ; 77E1 A2 02 -L77E3: lda (zp_b8),y ; 77E3 B1 B8 - sta L7189,x ; 77E5 9D 89 71 - iny ; 77E8 C8 - dex ; 77E9 CA - bpl L77E3 ; 77EA 10 F7 - lda L71B6 ; 77EC AD B6 71 - and #$07 ; 77EF 29 07 - tax ; 77F1 AA - dex ; 77F2 CA -L77F3: asl L7189 ; 77F3 0E 89 71 - rol L718A ; 77F6 2E 8A 71 - rol L718B ; 77F9 2E 8B 71 - dex ; 77FC CA - bpl L77F3 ; 77FD 10 F4 - lda L718A ; 77FF AD 8A 71 - sta acc16_l ; 7802 85 B2 - lda L718B ; 7804 AD 8B 71 - sta acc16_h ; 7807 85 B3 - jmp L77C0 ; 7809 4C C0 77 - -; ---------------------------------------------------------------------------- -init_counters: - lda #$09 ; 780C A9 09 - sta shift_counter ; 780E 8D AC 71 - lda #$00 ; 7811 A9 00 - sta L71AD ; 7813 8D AD 71 - lda #$02 ; 7816 A9 02 - sta L71AE ; 7818 8D AE 71 - lda #$02 ; 781B A9 02 - sta L717B ; 781D 8D 7B 71 - lda #$01 ; 7820 A9 01 - sta L717C ; 7822 8D 7C 71 - rts ; 7825 60 - -; ---------------------------------------------------------------------------- -; save decrunched byte in outbuf, update checksum, write outbuf if full -store_outbyte: - ldy #$00 ; 7826 A0 00 - lda acc16_l ; 7828 A5 B2 - sta (outbuf_ptr_l),y; 782A 91 BA - clc ; 782C 18 - adc cksum_l ; 782D 6D 7F 71 - sta cksum_l ; 7830 8D 7F 71 - lda #$00 ; 7833 A9 00 - adc cksum_h ; 7835 6D 80 71 - sta cksum_h ; 7838 8D 80 71 - inc outbuf_ptr_l ; 783B E6 BA - bne out_ptr_hi_ok ; 783D D0 02 - inc outbuf_ptr_h ; 783F E6 BB -out_ptr_hi_ok: - inc outbuf_len_l ; 7841 EE B1 71 - bne out_len_hi_ok ; 7844 D0 03 - inc outbuf_len_h ; 7846 EE B2 71 -out_len_hi_ok: - lda outbuf_len_h ; 7849 AD B2 71 - cmp inbuf_len_h ; 784C CD 84 71 - bcc outbuf_not_full; 784F 90 47 - lda outbuf_len_l ; 7851 AD B1 71 - cmp inbuf_len_l ; 7854 CD 83 71 - bcc outbuf_not_full; 7857 90 3F - lda outbuf_adr_l ; 7859 AD 87 71 - sta buf_adr_l ; 785C 8D 7B 7A - lda outbuf_adr_h ; 785F AD 88 71 - sta buf_adr_h ; 7862 8D 7C 7A - lda outbuf_len_l ; 7865 AD B1 71 - sta buf_len_l ; 7868 8D 7D 7A - lda outbuf_len_h ; 786B AD B2 71 - sta buf_len_h ; 786E 8D 7E 7A - ldx #$30 ; 7871 A2 30 - jsr writeblock ; 7873 20 D3 7A - bpl init_outbuf ; 7876 10 0E -; ldx #<emsg_checksum : ldy #>emsg_checksum -print_emsg_write_output_2: - ldx #$D5 ; 7878 A2 D5 - ldy #$72 ; 787A A0 72 - jsr printstr ; 787C 20 8B 7A -cleanup_and_exit: - pla ; 787F 68 - pla ; 7880 68 - pla ; 7881 68 - pla ; 7882 68 - jmp exit ; 7883 4C 9A 73 - -; ---------------------------------------------------------------------------- -init_outbuf: - lda outbuf_adr_l ; 7886 AD 87 71 - sta outbuf_ptr_l ; 7889 85 BA - lda outbuf_adr_h ; 788B AD 88 71 - sta outbuf_ptr_h ; 788E 85 BB - lda #$00 ; 7890 A9 00 - sta outbuf_len_l ; 7892 8D B1 71 - sta outbuf_len_h ; 7895 8D B2 71 -outbuf_not_full: - rts ; 7898 60 - -; ---------------------------------------------------------------------------- -L7899: lda zp_b4 ; 7899 A5 B4 - sta zp_b0 ; 789B 85 B0 - lda zp_b5 ; 789D A5 B5 - sta zp_b1 ; 789F 85 B1 - asl zp_b0 ; 78A1 06 B0 - rol zp_b1 ; 78A3 26 B1 - lda zp_b0 ; 78A5 A5 B0 - clc ; 78A7 18 - adc zp_b4 ; 78A8 65 B4 - sta zp_b0 ; 78AA 85 B0 - lda zp_b1 ; 78AC A5 B1 - adc zp_b5 ; 78AE 65 B5 - sta zp_b1 ; 78B0 85 B1 - lda zp_b0 ; 78B2 A5 B0 - clc ; 78B4 18 - adc L7181 ; 78B5 6D 81 71 - sta zp_b0 ; 78B8 85 B0 - lda zp_b1 ; 78BA A5 B1 - adc L7182 ; 78BC 6D 82 71 - sta zp_b1 ; 78BF 85 B1 - rts ; 78C1 60 - -; ---------------------------------------------------------------------------- -L78C2: lda L717B ; 78C2 AD 7B 71 - sta zp_b4 ; 78C5 85 B4 - lda L717C ; 78C7 AD 7C 71 - sta zp_b5 ; 78CA 85 B5 - jsr L7899 ; 78CC 20 99 78 - lda L7177 ; 78CF AD 77 71 - sta acc16_l ; 78D2 85 B2 - ldy #$02 ; 78D4 A0 02 - sta (zp_b0),y ; 78D6 91 B0 - lda L7179 ; 78D8 AD 79 71 - sta acc16_l ; 78DB 85 B2 - lda L717A ; 78DD AD 7A 71 - sta acc16_h ; 78E0 85 B3 - ldy #$00 ; 78E2 A0 00 - lda acc16_l ; 78E4 A5 B2 - sta (zp_b0),y ; 78E6 91 B0 - iny ; 78E8 C8 - lda acc16_h ; 78E9 A5 B3 - sta (zp_b0),y ; 78EB 91 B0 - inc L717B ; 78ED EE 7B 71 - bne L78F5 ; 78F0 D0 03 - inc L717C ; 78F2 EE 7C 71 -L78F5: rts ; 78F5 60 - -; ---------------------------------------------------------------------------- -; push 2 byte 'register' to software stack -push_acc16: - ldy #$00 ; 78F6 A0 00 - lda acc16_l ; 78F8 A5 B2 - sta (stackptr_l),y ; 78FA 91 B6 - iny ; 78FC C8 - lda acc16_h ; 78FD A5 B3 - sta (stackptr_l),y ; 78FF 91 B6 - lda stackptr_l ; 7901 A5 B6 - clc ; 7903 18 - adc #$02 ; 7904 69 02 - sta stackptr_l ; 7906 85 B6 - bcc L790C ; 7908 90 02 - inc stackptr_h ; 790A E6 B7 -L790C: lda stackptr_h ; 790C A5 B7 - cmp #$70 ; 790E C9 70 - bcc L791C ; 7910 90 0A -; ldx #<emsg_stk_overrun : ldy #>emsg_stk_overrun -print_emsg_stk_overrun: - ldx #$25 ; 7912 A2 25 - ldy #$79 ; 7914 A0 79 - jsr printstr ; 7916 20 8B 7A - jmp cleanup_and_exit; 7919 4C 7F 78 - -; ---------------------------------------------------------------------------- -L791C: inc L71AF ; 791C EE AF 71 - bne L7924 ; 791F D0 03 - inc L71B0 ; 7921 EE B0 71 -L7924: rts ; 7924 60 - -; ---------------------------------------------------------------------------- -emsg_stk_overrun: - .byte "STACK OVERRUN"; 7925 53 54 41 43 4B 20 4F 56 - ; 792D 45 52 52 55 4E - .byte $9B,$00 ; 7932 9B 00 -emsg_stk_underrun: - .byte "STACK UNDERRUN"; 7934 53 54 41 43 4B 20 55 4E - ; 793C 44 45 52 52 55 4E - .byte $9B,$00 ; 7942 9B 00 -; ---------------------------------------------------------------------------- -; pop 2 byte 'register' from software stack -pop_acc16: - lda stackptr_l ; 7944 A5 B6 - sec ; 7946 38 - sbc #$02 ; 7947 E9 02 - sta stackptr_l ; 7949 85 B6 - lda stackptr_h ; 794B A5 B7 - sbc #$00 ; 794D E9 00 - sta stackptr_h ; 794F 85 B7 - ldy #$00 ; 7951 A0 00 - lda (stackptr_l),y ; 7953 B1 B6 - sta acc16_l ; 7955 85 B2 - iny ; 7957 C8 - lda (stackptr_l),y ; 7958 B1 B6 - sta acc16_h ; 795A 85 B3 - lda stackptr_h ; 795C A5 B7 - cmp #$60 ; 795E C9 60 - bcs L796C ; 7960 B0 0A -; ldx #<emsg_stk_underrun : ldy #>emsg_stk_underrun -print_emsg_stk_underrun: - ldx #$34 ; 7962 A2 34 - ldy #$79 ; 7964 A0 79 - jsr printstr ; 7966 20 8B 7A - jmp cleanup_and_exit; 7969 4C 7F 78 - -; ---------------------------------------------------------------------------- -L796C: lda L71AF ; 796C AD AF 71 - bne L7974 ; 796F D0 03 - dec L71B0 ; 7971 CE B0 71 -L7974: dec L71AF ; 7974 CE AF 71 - rts ; 7977 60 - -; ---------------------------------------------------------------------------- -setup_io_bufs: - lda MEMTOP_lo ; 7978 AD E5 02 - sec ; 797B 38 - sbc #$DC ; 797C E9 DC - sta inbuf_len_l ; 797E 8D 83 71 - lda MEMTOP_hi ; 7981 AD E6 02 - sbc #$7F ; 7984 E9 7F - sta inbuf_len_h ; 7986 8D 84 71 - lsr inbuf_len_h ; 7989 4E 84 71 - ror inbuf_len_l ; 798C 6E 83 71 - lda inbuf_len_h ; 798F AD 84 71 - cmp #$1F ; 7992 C9 1F - bcc L79A0 ; 7994 90 0A - lda #$00 ; 7996 A9 00 - sta inbuf_len_l ; 7998 8D 83 71 - lda #$1F ; 799B A9 1F - sta inbuf_len_h ; 799D 8D 84 71 -L79A0: lda #$DC ; 79A0 A9 DC - sta inbuf_adr_l ; 79A2 8D 85 71 - lda #$7F ; 79A5 A9 7F - sta inbuf_adr_h ; 79A7 8D 86 71 - lda #$DC ; 79AA A9 DC - clc ; 79AC 18 - adc inbuf_len_l ; 79AD 6D 83 71 - sta outbuf_adr_l ; 79B0 8D 87 71 - sta outbuf_ptr_l ; 79B3 85 BA - lda #$7F ; 79B5 A9 7F - adc inbuf_len_h ; 79B7 6D 84 71 - sta outbuf_adr_h ; 79BA 8D 88 71 - sta outbuf_ptr_h ; 79BD 85 BB - rts ; 79BF 60 - -; ---------------------------------------------------------------------------- -write_output: - lda outbuf_len_l ; 79C0 AD B1 71 - ora outbuf_len_h ; 79C3 0D B2 71 - bne have_output ; 79C6 D0 01 - rts ; 79C8 60 - -; ---------------------------------------------------------------------------- -have_output: - lda outbuf_adr_l ; 79C9 AD 87 71 - sta buf_adr_l ; 79CC 8D 7B 7A - lda outbuf_adr_h ; 79CF AD 88 71 - sta buf_adr_h ; 79D2 8D 7C 7A - lda outbuf_len_l ; 79D5 AD B1 71 - sta buf_len_l ; 79D8 8D 7D 7A - lda outbuf_len_h ; 79DB AD B2 71 - sta buf_len_h ; 79DE 8D 7E 7A - ldx #$30 ; 79E1 A2 30 - jsr writeblock ; 79E3 20 D3 7A - rts ; 79E6 60 - -; ---------------------------------------------------------------------------- -L79E7: lda buf_adr_l ; 79E7 AD 7B 7A - clc ; 79EA 18 - adc buf_len_l ; 79EB 6D 7D 7A - sta zp_be ; 79EE 85 BE - lda buf_adr_h ; 79F0 AD 7C 7A - adc buf_len_h ; 79F3 6D 7E 7A - sta zp_bf ; 79F6 85 BF - ldx #$02 ; 79F8 A2 02 - bne L7A0A ; 79FA D0 0E -L79FC: ldy #$00 ; 79FC A0 00 - tya ; 79FE 98 - sta (zp_be),y ; 79FF 91 BE - inc zp_be ; 7A01 E6 BE - bne L7A07 ; 7A03 D0 02 - inc zp_bf ; 7A05 E6 BF -L7A07: dex ; 7A07 CA - bmi L7A18 ; 7A08 30 0E -L7A0A: lda zp_bf ; 7A0A A5 BF - cmp outbuf_adr_h ; 7A0C CD 88 71 - bcc L79FC ; 7A0F 90 EB - lda zp_be ; 7A11 A5 BE - cmp outbuf_adr_l ; 7A13 CD 87 71 - bcc L79FC ; 7A16 90 E4 -L7A18: rts ; 7A18 60 - -; ---------------------------------------------------------------------------- -L7A19: lda alf_hdr_compsize2; 7A19 AD 9E 71 - ora alf_hdr_compsize3; 7A1C 0D 9F 71 - beq L7A28 ; 7A1F F0 07 -L7A21: jsr readblock ; 7A21 20 CF 7A - jsr L7A5D ; 7A24 20 5D 7A - rts ; 7A27 60 - -; ---------------------------------------------------------------------------- -L7A28: lda alf_hdr_compsize1; 7A28 AD 9D 71 - cmp buf_len_h ; 7A2B CD 7E 7A - bcc L7A40 ; 7A2E 90 10 - beq L7A34 ; 7A30 F0 02 - bcs L7A21 ; 7A32 B0 ED -L7A34: lda alf_hdr_compsize0; 7A34 AD 9C 71 - cmp buf_len_l ; 7A37 CD 7D 7A - bcc L7A40 ; 7A3A 90 04 - beq L7A40 ; 7A3C F0 02 - bcs L7A21 ; 7A3E B0 E1 -L7A40: lda alf_hdr_compsize0; 7A40 AD 9C 71 - sta buf_len_l ; 7A43 8D 7D 7A - lda alf_hdr_compsize1; 7A46 AD 9D 71 - sta buf_len_h ; 7A49 8D 7E 7A - lda buf_len_l ; 7A4C AD 7D 7A - ora buf_len_h ; 7A4F 0D 7E 7A - beq L7A57 ; 7A52 F0 03 - jsr readblock ; 7A54 20 CF 7A -L7A57: ldy #$88 ; 7A57 A0 88 - jsr L7A5D ; 7A59 20 5D 7A - rts ; 7A5C 60 - -; ---------------------------------------------------------------------------- -L7A5D: lda alf_hdr_compsize0; 7A5D AD 9C 71 - sec ; 7A60 38 - sbc buf_len_l ; 7A61 ED 7D 7A - sta alf_hdr_compsize0; 7A64 8D 9C 71 - lda alf_hdr_compsize1; 7A67 AD 9D 71 - sbc buf_len_h ; 7A6A ED 7E 7A - sta alf_hdr_compsize1; 7A6D 8D 9D 71 - lda alf_hdr_compsize2; 7A70 AD 9E 71 - sbc #$00 ; 7A73 E9 00 - sta alf_hdr_compsize2; 7A75 8D 9E 71 - rts ; 7A78 60 - -; ---------------------------------------------------------------------------- -linbuf_idx: - .byte $00,$00 ; 7A79 00 00 -buf_adr_l: - .byte $00 ; 7A7B 00 -buf_adr_h: - .byte $00 ; 7A7C 00 -buf_len_l: - .byte $00 ; 7A7D 00 -buf_len_h: - .byte $00 ; 7A7E 00 -open_fileadr_l: - .byte $00 ; 7A7F 00 -open_fileadr_h: - .byte $00 ; 7A80 00 -save_x: .byte $00 ; 7A81 00 -save_y: .byte $00 ; 7A82 00 -save_a: .byte $00 ; 7A83 00 -; ---------------------------------------------------------------------------- -kdev: .byte "K:" ; 7A84 4B 3A - .byte $9B ; 7A86 9B -; unused? -p3dev: .byte "P3:" ; 7A87 50 33 3A - .byte $9B ; 7A8A 9B -; ---------------------------------------------------------------------------- -; X = LSB, Y = MSB of string. SELF MODIFYING! -printstr: - stx printstr_op_lo ; 7A8B 8E 94 7A - sty printstr_op_hi ; 7A8E 8C 95 7A - ldy #$00 ; 7A91 A0 00 -; $B9 = LDA abs,y -printstr_loop: - .byte $B9 ; 7A93 B9 -; gets modified -printstr_op_lo: - .byte $93 ; 7A94 93 -; gets modified -printstr_op_hi: - .byte $7A ; 7A95 7A - beq printstr_done ; 7A96 F0 06 - jsr putchar ; 7A98 20 9F 7A - iny ; 7A9B C8 - bne printstr_loop ; 7A9C D0 F5 -printstr_done: - rts ; 7A9E 60 - -; ---------------------------------------------------------------------------- -; print character in A, saves A/X/Y regs -putchar:stx save_x ; 7A9F 8E 81 7A - sty save_y ; 7AA2 8C 82 7A - sta save_a ; 7AA5 8D 83 7A - ldx #$00 ; 7AA8 A2 00 - lda #$0B ; 7AAA A9 0B - sta ICCOM,x ; 7AAC 9D 42 03 - lda #$00 ; 7AAF A9 00 - sta ICBLL,x ; 7AB1 9D 48 03 - sta ICBLH,x ; 7AB4 9D 49 03 - lda save_a ; 7AB7 AD 83 7A - jsr CIOV ; 7ABA 20 56 E4 - lda save_a ; 7ABD AD 83 7A - ldx save_x ; 7AC0 AE 81 7A - ldy save_y ; 7AC3 AC 82 7A - rts ; 7AC6 60 - -; ---------------------------------------------------------------------------- - lda #$05 ; 7AC7 A9 05 - bne do_block_io ; 7AC9 D0 0A - lda #$09 ; 7ACB A9 09 - bne do_block_io ; 7ACD D0 06 -readblock: - lda #$07 ; 7ACF A9 07 - bne do_block_io ; 7AD1 D0 02 -writeblock: - lda #$0B ; 7AD3 A9 0B -do_block_io: - sta ICCOM,x ; 7AD5 9D 42 03 - lda buf_adr_l ; 7AD8 AD 7B 7A - sta ICBAL,x ; 7ADB 9D 44 03 - lda buf_adr_h ; 7ADE AD 7C 7A - sta ICBAH,x ; 7AE1 9D 45 03 - lda buf_len_l ; 7AE4 AD 7D 7A - sta ICBLL,x ; 7AE7 9D 48 03 - lda buf_len_h ; 7AEA AD 7E 7A - sta ICBLH,x ; 7AED 9D 49 03 - jsr CIOV ; 7AF0 20 56 E4 - php ; 7AF3 08 - lda ICBLL,x ; 7AF4 BD 48 03 - sta buf_len_l ; 7AF7 8D 7D 7A - lda ICBLH,x ; 7AFA BD 49 03 - sta buf_len_h ; 7AFD 8D 7E 7A - plp ; 7B00 28 - rts ; 7B01 60 - -; ---------------------------------------------------------------------------- - ldx #$20 ; 7B02 A2 20 - bne getcx ; 7B04 D0 02 -; read 1 byte from E: (IOCB0) -getc0: ldx #$00 ; 7B06 A2 00 -getcx: lda #$07 ; 7B08 A9 07 - sta ICCOM,x ; 7B0A 9D 42 03 - lda #$00 ; 7B0D A9 00 - sta ICBLL,x ; 7B0F 9D 48 03 - sta ICBLH,x ; 7B12 9D 49 03 - jsr CIOV ; 7B15 20 56 E4 - rts ; 7B18 60 - -; ---------------------------------------------------------------------------- -; read a line of input from E: -getline:lda #$00 ; 7B19 A9 00 - sta linbuf_idx ; 7B1B 8D 79 7A -nextchar: - jsr getc0 ; 7B1E 20 06 7B - cmp #$7E ; 7B21 C9 7E - beq do_backspace ; 7B23 F0 1B - cmp #$9B ; 7B25 C9 9B - beq getline_done ; 7B27 F0 10 - ldy linbuf_idx ; 7B29 AC 79 7A - cpy #$4E ; 7B2C C0 4E - bcs nextchar ; 7B2E B0 EE - sta linbuf,y ; 7B30 99 20 71 - inc linbuf_idx ; 7B33 EE 79 7A - jmp nextchar ; 7B36 4C 1E 7B - -; ---------------------------------------------------------------------------- -getline_done: - ldy linbuf_idx ; 7B39 AC 79 7A - sta linbuf,y ; 7B3C 99 20 71 - rts ; 7B3F 60 - -; ---------------------------------------------------------------------------- -do_backspace: - dec linbuf_idx ; 7B40 CE 79 7A - lda #$7E ; 7B43 A9 7E - jmp nextchar ; 7B45 4C 1E 7B - -; ---------------------------------------------------------------------------- -close_iocb: - lda #$0C ; 7B48 A9 0C - sta ICCOM,x ; 7B4A 9D 42 03 - jsr CIOV ; 7B4D 20 56 E4 - rts ; 7B50 60 - -; ---------------------------------------------------------------------------- -toupper:cmp #$7B ; 7B51 C9 7B - bcc le_z ; 7B53 90 01 - rts ; 7B55 60 - -; ---------------------------------------------------------------------------- -le_z: cmp #$61 ; 7B56 C9 61 - bcs ge_a ; 7B58 B0 01 - rts ; 7B5A 60 - -; ---------------------------------------------------------------------------- -ge_a: sbc #$20 ; 7B5B E9 20 - rts ; 7B5D 60 - -; ---------------------------------------------------------------------------- -ucase_linbuf: - ldy linbuf_idx ; 7B5E AC 79 7A - beq ucase_linbuf_done; 7B61 F0 12 - dey ; 7B63 88 - tya ; 7B64 98 - cmp #$52 ; 7B65 C9 52 - bcs ucase_linbuf_done; 7B67 B0 0C -ucase_linbuf_loop: - lda linbuf,y ; 7B69 B9 20 71 - jsr toupper ; 7B6C 20 51 7B - sta linbuf,y ; 7B6F 99 20 71 - dey ; 7B72 88 - bpl ucase_linbuf_loop; 7B73 10 F4 -ucase_linbuf_done: - rts ; 7B75 60 - -; ---------------------------------------------------------------------------- -; X = IOCB<<4, A=<buf, Y=>buf -open_read: - pha ; 7B76 48 - lda #$04 ; 7B77 A9 04 - bne finish_open ; 7B79 D0 12 -open_write: - pha ; 7B7B 48 - lda #$08 ; 7B7C A9 08 - bne finish_open ; 7B7E D0 0D -; not used? -open_update: - pha ; 7B80 48 - lda #$0C ; 7B81 A9 0C - bne finish_open ; 7B83 D0 08 -; not used? -open_append: - pha ; 7B85 48 - lda #$09 ; 7B86 A9 09 - bne finish_open ; 7B88 D0 03 -open_dir: - pha ; 7B8A 48 - lda #$06 ; 7B8B A9 06 -; #$03 in A = CIO OPEN command -finish_open: - sta open_fileadr_l ; 7B8D 8D 7F 7A - sty open_fileadr_h ; 7B90 8C 80 7A - jsr close_iocb ; 7B93 20 48 7B - lda #$03 ; 7B96 A9 03 - sta ICCOM,x ; 7B98 9D 42 03 - lda open_fileadr_l ; 7B9B AD 7F 7A - sta ICAX1,x ; 7B9E 9D 4A 03 - lda open_fileadr_h ; 7BA1 AD 80 7A - sta ICBAH,x ; 7BA4 9D 45 03 - pla ; 7BA7 68 - sta ICBAL,x ; 7BA8 9D 44 03 - lda #$00 ; 7BAB A9 00 - sta ICAX2,x ; 7BAD 9D 4B 03 - jsr CIOV ; 7BB0 20 56 E4 - rts ; 7BB3 60 - -; ---------------------------------------------------------------------------- -open_kdev: - ldx #$10 ; 7BB4 A2 10 - jsr close_iocb ; 7BB6 20 48 7B - ldx #$20 ; 7BB9 A2 20 -; lda #<kdev ; ldy #>kdev -lday_kdev: - lda #$84 ; 7BBB A9 84 - ldy #$7A ; 7BBD A0 7A - jsr open_read ; 7BBF 20 76 7B - rts ; 7BC2 60 - -; ---------------------------------------------------------------------------- -close_kdev: - ldx #$10 ; 7BC3 A2 10 - jsr close_iocb ; 7BC5 20 48 7B - ldx #$20 ; 7BC8 A2 20 - jsr close_iocb ; 7BCA 20 48 7B - rts ; 7BCD 60 - -; ---------------------------------------------------------------------------- -; spartados only; returns with C clear if there's an arg, or set if not -get_cli_arg: - lda DOSVEC_lo ; 7BCE A5 0A - clc ; 7BD0 18 - adc #$3F ; 7BD1 69 3F - sta zp_be ; 7BD3 85 BE - lda DOSVEC_hi ; 7BD5 A5 0B - adc #$00 ; 7BD7 69 00 - sta zp_bf ; 7BD9 85 BF - lda BOOTRG ; 7BDB AD 00 07 - cmp #$53 ; 7BDE C9 53 - bne L7BF9 ; 7BE0 D0 17 - lda L7CA8 ; 7BE2 AD A8 7C - beq L7BF9 ; 7BE5 F0 12 - ldy L71B5 ; 7BE7 AC B5 71 -L7BEA: lda (zp_be),y ; 7BEA B1 BE - cmp #$9B ; 7BEC C9 9B - beq L7BF9 ; 7BEE F0 09 - cmp #$20 ; 7BF0 C9 20 - beq L7BFB ; 7BF2 F0 07 - iny ; 7BF4 C8 - cpy #$40 ; 7BF5 C0 40 - bcc L7BEA ; 7BF7 90 F1 -L7BF9: sec ; 7BF9 38 - rts ; 7BFA 60 - -; ---------------------------------------------------------------------------- -L7BFB: lda (zp_be),y ; 7BFB B1 BE - cmp #$9B ; 7BFD C9 9B - beq L7BF9 ; 7BFF F0 F8 - cmp #$20 ; 7C01 C9 20 - bne L7C0C ; 7C03 D0 07 - iny ; 7C05 C8 - cpy #$40 ; 7C06 C0 40 - bcc L7BFB ; 7C08 90 F1 - bcs L7BF9 ; 7C0A B0 ED -L7C0C: sty L71B5 ; 7C0C 8C B5 71 - clc ; 7C0F 18 - rts ; 7C10 60 - -; ---------------------------------------------------------------------------- -; copy sparta cli arg to linbuf, append EOL ($9b) -copy_cli_arg: - ldx #$00 ; 7C11 A2 00 - ldy L71B5 ; 7C13 AC B5 71 -cca_loop: - lda (zp_be),y ; 7C16 B1 BE - sta linbuf,x ; 7C18 9D 20 71 - cmp #$9B ; 7C1B C9 9B - beq cca_append_eol ; 7C1D F0 0A - cmp #$20 ; 7C1F C9 20 - beq cca_append_eol ; 7C21 F0 06 - inx ; 7C23 E8 - iny ; 7C24 C8 - cpy #$40 ; 7C25 C0 40 - bcc cca_loop ; 7C27 90 ED -cca_append_eol: - lda #$9B ; 7C29 A9 9B - sta linbuf,x ; 7C2B 9D 20 71 - stx linbuf_idx ; 7C2E 8E 79 7A - rts ; 7C31 60 - -; ---------------------------------------------------------------------------- -emsg_read_main_dir: - .byte "Error reading main directory"; 7C32 45 72 72 6F 72 20 72 65 - ; 7C3A 61 64 69 6E 67 20 6D 61 - ; 7C42 69 6E 20 64 69 72 65 63 - ; 7C4A 74 6F 72 79 - .byte $9B,$00 ; 7C4E 9B 00 -emsg_credir_failed: - .byte "CREDIR failed for the above pat"; 7C50 43 52 45 44 49 52 20 66 - ; 7C58 61 69 6C 65 64 20 66 6F - ; 7C60 72 20 74 68 65 20 61 62 - ; 7C68 6F 76 65 20 70 61 74 - .byte "h" ; 7C6F 68 - .byte $9B,$00 ; 7C70 9B 00 -emsg_outpath_build: - .byte "Output path cannot be built"; 7C72 4F 75 74 70 75 74 20 70 - ; 7C7A 61 74 68 20 63 61 6E 6E - ; 7C82 6F 74 20 62 65 20 62 75 - ; 7C8A 69 6C 74 - .byte $9B,$00 ; 7C8D 9B 00 -msg_credir_issued: - .byte "CREDIR issued for:"; 7C8F 43 52 45 44 49 52 20 69 - ; 7C97 73 73 75 65 64 20 66 6F - ; 7C9F 72 3A - .byte $9B,$00 ; 7CA1 9B 00 -L7CA3: .byte "*.*" ; 7CA3 2A 2E 2A - .byte $9B ; 7CA6 9B -L7CA7: .byte $00 ; 7CA7 00 -; ---------------------------------------------------------------------------- -L7CA8: .byte $01 ; 7CA8 01 -L7CA9: lda #$00 ; 7CA9 A9 00 - sta L7CA7 ; 7CAB 8D A7 7C - sta L7CA8 ; 7CAE 8D A8 7C - jmp L7D6B ; 7CB1 4C 6B 7D - -; ---------------------------------------------------------------------------- -L7CB4: ldx L7CA7 ; 7CB4 AE A7 7C -L7CB7: lda output_dir,x ; 7CB7 BD 50 70 - cmp #$3E ; 7CBA C9 3E - beq L7CE0 ; 7CBC F0 22 - cmp #$9B ; 7CBE C9 9B - beq L7CC5 ; 7CC0 F0 03 - inx ; 7CC2 E8 - bpl L7CB7 ; 7CC3 10 F2 -L7CC5: lda L7CA7 ; 7CC5 AD A7 7C - beq print_emsg_read_main_dir; 7CC8 F0 0A -; ldx #<emsg_outpath_build : ldy #>emsg_outpath_build -print_emsg_outpath_build: - ldx #$72 ; 7CCA A2 72 - ldy #$7C ; 7CCC A0 7C - jsr printstr ; 7CCE 20 8B 7A - jmp L7CDB ; 7CD1 4C DB 7C - -; ---------------------------------------------------------------------------- -; ldx #<emsg_read_main_dir : ldy #>emsg_read_main_dir -print_emsg_read_main_dir: - ldx #$32 ; 7CD4 A2 32 - ldy #$7C ; 7CD6 A0 7C - jsr printstr ; 7CD8 20 8B 7A -L7CDB: pla ; 7CDB 68 - pla ; 7CDC 68 - jmp exit ; 7CDD 4C 9A 73 - -; ---------------------------------------------------------------------------- -L7CE0: stx L7CA7 ; 7CE0 8E A7 7C -L7CE3: lda output_dir,x ; 7CE3 BD 50 70 - sta outfile_l,x ; 7CE6 9D A0 70 - dex ; 7CE9 CA - bpl L7CE3 ; 7CEA 10 F7 - ldx L7CA7 ; 7CEC AE A7 7C - inx ; 7CEF E8 - stx L7CA7 ; 7CF0 8E A7 7C - ldy #$00 ; 7CF3 A0 00 -L7CF5: lda L7CA3,y ; 7CF5 B9 A3 7C - sta outfile_l,x ; 7CF8 9D A0 70 - inx ; 7CFB E8 - iny ; 7CFC C8 - cpy #$04 ; 7CFD C0 04 - bcc L7CF5 ; 7CFF 90 F4 - ldx #$40 ; 7D01 A2 40 - lda #$A0 ; 7D03 A9 A0 - ldy #$70 ; 7D05 A0 70 - jsr open_dir ; 7D07 20 8A 7B - php ; 7D0A 08 - ldx #$40 ; 7D0B A2 40 - jsr close_iocb ; 7D0D 20 48 7B - plp ; 7D10 28 - bmi L7D16 ; 7D11 30 03 - jmp L7D6B ; 7D13 4C 6B 7D - -; ---------------------------------------------------------------------------- -L7D16: ldx L7CA7 ; 7D16 AE A7 7C - dex ; 7D19 CA - dex ; 7D1A CA - lda output_dir,x ; 7D1B BD 50 70 - cmp #$3A ; 7D1E C9 3A - beq print_emsg_read_main_dir; 7D20 F0 B2 - inx ; 7D22 E8 - lda #$9B ; 7D23 A9 9B - sta outfile_l,x ; 7D25 9D A0 70 - lda #$00 ; 7D28 A9 00 - sta outfile_h,x ; 7D2A 9D A1 70 -; ldx #<msg_credir_issued : ldy #>msg_credir_issued -print_msg_credir_issued: - ldx #$8F ; 7D2D A2 8F - ldy #$7C ; 7D2F A0 7C - jsr printstr ; 7D31 20 8B 7A - ldx #$A0 ; 7D34 A2 A0 - ldy #$70 ; 7D36 A0 70 - jsr printstr ; 7D38 20 8B 7A - ldx #$40 ; 7D3B A2 40 - lda #$2A ; 7D3D A9 2A - sta ICCOM,x ; 7D3F 9D 42 03 - lda #$A0 ; 7D42 A9 A0 - sta ICBAL,x ; 7D44 9D 44 03 - lda #$70 ; 7D47 A9 70 - sta ICBAH,x ; 7D49 9D 45 03 - lda #$80 ; 7D4C A9 80 - sta ICBLL,x ; 7D4E 9D 48 03 - lda #$00 ; 7D51 A9 00 - sta ICBLH,x ; 7D53 9D 49 03 - sta ICAX1,x ; 7D56 9D 4A 03 - sta ICAX2,x ; 7D59 9D 4B 03 - jsr CIOV ; 7D5C 20 56 E4 - bpl L7D6B ; 7D5F 10 0A -; ldx #<emsg_credir_failed : ldy #>emsg_credir_failed -print_emsg_credir_failed: - ldx #$50 ; 7D61 A2 50 - ldy #$7C ; 7D63 A0 7C - jsr printstr ; 7D65 20 8B 7A - jmp L7CDB ; 7D68 4C DB 7C - -; ---------------------------------------------------------------------------- -L7D6B: ldx #$40 ; 7D6B A2 40 - lda #$50 ; 7D6D A9 50 - ldy #$70 ; 7D6F A0 70 - jsr open_dir ; 7D71 20 8A 7B - php ; 7D74 08 - ldx #$40 ; 7D75 A2 40 - jsr close_iocb ; 7D77 20 48 7B - plp ; 7D7A 28 - bmi L7D7F ; 7D7B 30 02 - clc ; 7D7D 18 - rts ; 7D7E 60 - -; ---------------------------------------------------------------------------- -L7D7F: jmp L7CB4 ; 7D7F 4C B4 7C - -; ---------------------------------------------------------------------------- -; filespec for directory -stardotstar: - .byte "*.*" ; 7D82 2A 2E 2A - .byte $9B ; 7D85 9B -; ---------------------------------------------------------------------------- -L7D86: jsr L7DBF ; 7D86 20 BF 7D - bcc L7D8C ; 7D89 90 01 - rts ; 7D8B 60 - -; ---------------------------------------------------------------------------- -L7D8C: dex ; 7D8C CA -L7D8D: lda linbuf,x ; 7D8D BD 20 71 - cmp #$3E ; 7D90 C9 3E - beq L7D9D ; 7D92 F0 09 - cmp #$3A ; 7D94 C9 3A - beq L7D9D ; 7D96 F0 05 - dex ; 7D98 CA - bpl L7D8D ; 7D99 10 F2 - sec ; 7D9B 38 - rts ; 7D9C 60 - -; ---------------------------------------------------------------------------- -L7D9D: ldy #$00 ; 7D9D A0 00 - inx ; 7D9F E8 - lda linbuf,x ; 7DA0 BD 20 71 - cmp #$9B ; 7DA3 C9 9B - beq L7DAD ; 7DA5 F0 06 - cmp #$20 ; 7DA7 C9 20 - beq L7DAD ; 7DA9 F0 02 - clc ; 7DAB 18 - rts ; 7DAC 60 - -; ---------------------------------------------------------------------------- -L7DAD: lda stardotstar,y ; 7DAD B9 82 7D - sta linbuf,x ; 7DB0 9D 20 71 - inx ; 7DB3 E8 - iny ; 7DB4 C8 - cpy #$04 ; 7DB5 C0 04 - bcc L7DAD ; 7DB7 90 F4 - dex ; 7DB9 CA - stx linbuf_idx ; 7DBA 8E 79 7A - clc ; 7DBD 18 - rts ; 7DBE 60 - -; ---------------------------------------------------------------------------- -L7DBF: ldx #$00 ; 7DBF A2 00 -L7DC1: lda linbuf,x ; 7DC1 BD 20 71 - cmp #$9B ; 7DC4 C9 9B - beq L7DCD ; 7DC6 F0 05 - inx ; 7DC8 E8 - bpl L7DC1 ; 7DC9 10 F6 - sec ; 7DCB 38 - rts ; 7DCC 60 - -; ---------------------------------------------------------------------------- -L7DCD: clc ; 7DCD 18 - rts ; 7DCE 60 - -; ---------------------------------------------------------------------------- -ensure_d_prefix: - lda linbuf ; 7DCF AD 20 71 - cmp #$44 ; 7DD2 C9 44 - bne L7DE2 ; 7DD4 D0 0C - lda #$3A ; 7DD6 A9 3A - cmp $7121 ; 7DD8 CD 21 71 - beq L7E06 ; 7DDB F0 29 - cmp $7122 ; 7DDD CD 22 71 - beq L7E06 ; 7DE0 F0 24 -L7DE2: lda linbuf_idx ; 7DE2 AD 79 7A - tax ; 7DE5 AA - clc ; 7DE6 18 - adc #$03 ; 7DE7 69 03 - sta linbuf_idx ; 7DE9 8D 79 7A - tay ; 7DEC A8 -L7DED: lda linbuf,x ; 7DED BD 20 71 - sta linbuf,y ; 7DF0 99 20 71 - dey ; 7DF3 88 - dex ; 7DF4 CA - bpl L7DED ; 7DF5 10 F6 - lda #$44 ; 7DF7 A9 44 - ldx #$31 ; 7DF9 A2 31 - ldy #$3A ; 7DFB A0 3A - sta linbuf ; 7DFD 8D 20 71 - stx $7121 ; 7E00 8E 21 71 - sty $7122 ; 7E03 8C 22 71 -L7E06: rts ; 7E06 60 - -; ---------------------------------------------------------------------------- -alfext: .byte ".ALF" ; 7E07 2E 41 4C 46 - .byte $9B ; 7E0B 9B -; ---------------------------------------------------------------------------- -ensure_suffix: - ldx linbuf_idx ; 7E0C AE 79 7A - ldy #$00 ; 7E0F A0 00 -L7E11: lda linbuf,x ; 7E11 BD 20 71 - cmp #$2E ; 7E14 C9 2E - beq L7E21 ; 7E16 F0 09 - iny ; 7E18 C8 - dex ; 7E19 CA - bpl L7E11 ; 7E1A 10 F5 - ldx linbuf_idx ; 7E1C AE 79 7A - bne L7E25 ; 7E1F D0 04 -L7E21: cpy #$00 ; 7E21 C0 00 - bne L7E37 ; 7E23 D0 12 -L7E25: ldy #$00 ; 7E25 A0 00 -L7E27: lda alfext,y ; 7E27 B9 07 7E - sta linbuf,x ; 7E2A 9D 20 71 - inx ; 7E2D E8 - iny ; 7E2E C8 - cpy #$05 ; 7E2F C0 05 - bcc L7E27 ; 7E31 90 F4 - dex ; 7E33 CA - stx linbuf_idx ; 7E34 8E 79 7A -L7E37: rts ; 7E37 60 - -; ---------------------------------------------------------------------------- -L7E38: .byte $00,$00,$00,$00,$00,$00,$00,$00; 7E38 00 00 00 00 00 00 00 00 - .byte $00,$00,$00 ; 7E40 00 00 00 -L7E43: .byte $00,$00,$00,$00,$00,$00,$00,$00; 7E43 00 00 00 00 00 00 00 00 - .byte $00,$00,$00 ; 7E4B 00 00 00 -; ---------------------------------------------------------------------------- -L7E4E: lda #$20 ; 7E4E A9 20 - ldx #$0A ; 7E50 A2 0A -L7E52: sta L7E38,x ; 7E52 9D 38 7E - sta L7E43,x ; 7E55 9D 43 7E - dex ; 7E58 CA - bpl L7E52 ; 7E59 10 F7 - ldx #$00 ; 7E5B A2 00 - ldy #$00 ; 7E5D A0 00 -L7E5F: lda alf_hdr_filename,x; 7E5F BD 8F 71 - beq L7E75 ; 7E62 F0 11 - cmp #$2E ; 7E64 C9 2E - bne L7E6C ; 7E66 D0 04 - ldy #$07 ; 7E68 A0 07 - bne L7E6F ; 7E6A D0 03 -L7E6C: sta L7E38,y ; 7E6C 99 38 7E -L7E6F: inx ; 7E6F E8 - iny ; 7E70 C8 - cpy #$0B ; 7E71 C0 0B - bcc L7E5F ; 7E73 90 EA -L7E75: rts ; 7E75 60 - -; ---------------------------------------------------------------------------- -L7E76: ldx #$00 ; 7E76 A2 00 -L7E78: lda output_dir,x ; 7E78 BD 50 70 - cmp #$9B ; 7E7B C9 9B - beq L7E82 ; 7E7D F0 03 - inx ; 7E7F E8 - bne L7E78 ; 7E80 D0 F6 -L7E82: lda output_dir,x ; 7E82 BD 50 70 - cmp #$3E ; 7E85 C9 3E - beq L7E90 ; 7E87 F0 07 - cmp #$3A ; 7E89 C9 3A - beq L7E90 ; 7E8B F0 03 - dex ; 7E8D CA - bpl L7E82 ; 7E8E 10 F2 -L7E90: ldy #$00 ; 7E90 A0 00 - inx ; 7E92 E8 -L7E93: lda output_dir,x ; 7E93 BD 50 70 - cmp #$2A ; 7E96 C9 2A - bne L7EB3 ; 7E98 D0 19 - lda #$3F ; 7E9A A9 3F -L7E9C: sta L7E43,y ; 7E9C 99 43 7E - iny ; 7E9F C8 - cpy #$08 ; 7EA0 C0 08 - bcc L7E9C ; 7EA2 90 F8 - inx ; 7EA4 E8 -L7EA5: lda output_dir,x ; 7EA5 BD 50 70 - cmp #$2E ; 7EA8 C9 2E - beq L7EC1 ; 7EAA F0 15 - cmp #$9B ; 7EAC C9 9B - beq L7EC0 ; 7EAE F0 10 - inx ; 7EB0 E8 - bne L7EA5 ; 7EB1 D0 F2 -L7EB3: cmp #$2E ; 7EB3 C9 2E - beq L7EC1 ; 7EB5 F0 0A - sta L7E43,y ; 7EB7 99 43 7E - inx ; 7EBA E8 - iny ; 7EBB C8 - cpy #$08 ; 7EBC C0 08 - bcc L7E93 ; 7EBE 90 D3 -L7EC0: rts ; 7EC0 60 - -; ---------------------------------------------------------------------------- -L7EC1: inx ; 7EC1 E8 - ldy #$08 ; 7EC2 A0 08 -L7EC4: lda output_dir,x ; 7EC4 BD 50 70 - cmp #$9B ; 7EC7 C9 9B - beq L7EC0 ; 7EC9 F0 F5 - cmp #$2A ; 7ECB C9 2A - bne L7EDA ; 7ECD D0 0B - lda #$3F ; 7ECF A9 3F -L7ED1: sta L7E43,y ; 7ED1 99 43 7E - iny ; 7ED4 C8 - cpy #$0B ; 7ED5 C0 0B - bcc L7ED1 ; 7ED7 90 F8 - rts ; 7ED9 60 - -; ---------------------------------------------------------------------------- -L7EDA: sta L7E43,y ; 7EDA 99 43 7E - inx ; 7EDD E8 - iny ; 7EDE C8 - cpy #$0B ; 7EDF C0 0B - bcc L7EC4 ; 7EE1 90 E1 - rts ; 7EE3 60 - -; ---------------------------------------------------------------------------- -L7EE4: jsr L7E4E ; 7EE4 20 4E 7E - jsr L7E76 ; 7EE7 20 76 7E - ldx #$00 ; 7EEA A2 00 -L7EEC: lda L7E43,x ; 7EEC BD 43 7E - cmp #$3F ; 7EEF C9 3F - beq L7EF8 ; 7EF1 F0 05 - cmp L7E38,x ; 7EF3 DD 38 7E - bne print_msg_skipping; 7EF6 D0 07 -L7EF8: inx ; 7EF8 E8 - cpx #$0B ; 7EF9 E0 0B - bcc L7EEC ; 7EFB 90 EF - clc ; 7EFD 18 - rts ; 7EFE 60 - -; ---------------------------------------------------------------------------- -; ldx #<msg_skipping : ldy #>msg_skipping -print_msg_skipping: - ldx #$1D ; 7EFF A2 1D - ldy #$7F ; 7F01 A0 7F - jsr printstr ; 7F03 20 8B 7A - ldx #$00 ; 7F06 A2 00 -pskp_loop: - lda alf_hdr_filename,x; 7F08 BD 8F 71 - beq pskp_done ; 7F0B F0 06 - jsr putchar ; 7F0D 20 9F 7A - inx ; 7F10 E8 - bpl pskp_loop ; 7F11 10 F5 -pskp_done: - lda #$9B ; 7F13 A9 9B - jsr putchar ; 7F15 20 9F 7A - jsr L7F3D ; 7F18 20 3D 7F - sec ; 7F1B 38 - rts ; 7F1C 60 - -; ---------------------------------------------------------------------------- -msg_skipping: - .byte "Skipping: " ; 7F1D 53 6B 69 70 70 69 6E 67 - ; 7F25 3A 20 - .byte $00 ; 7F27 00 -emsg_locate: - .byte "Error During Locate"; 7F28 45 72 72 6F 72 20 44 75 - ; 7F30 72 69 6E 67 20 4C 6F 63 - ; 7F38 61 74 65 - .byte $9B,$00 ; 7F3B 9B 00 -; ---------------------------------------------------------------------------- -L7F3D: lda #$DC ; 7F3D A9 DC - sta buf_adr_l ; 7F3F 8D 7B 7A - lda #$7F ; 7F42 A9 7F - sta buf_adr_h ; 7F44 8D 7C 7A - lda MEMTOP_lo ; 7F47 AD E5 02 - sec ; 7F4A 38 - sbc #$DC ; 7F4B E9 DC - sta inbuf_len_l ; 7F4D 8D 83 71 - lda MEMTOP_hi ; 7F50 AD E6 02 - sbc #$7F ; 7F53 E9 7F - sta inbuf_len_h ; 7F55 8D 84 71 -L7F58: lda alf_hdr_compsize0; 7F58 AD 9C 71 - ora alf_hdr_compsize1; 7F5B 0D 9D 71 - ora alf_hdr_compsize2; 7F5E 0D 9E 71 - bne L7F64 ; 7F61 D0 01 - rts ; 7F63 60 - -; ---------------------------------------------------------------------------- -L7F64: lda alf_hdr_compsize2; 7F64 AD 9E 71 - bne L7F8C ; 7F67 D0 23 - lda inbuf_len_h ; 7F69 AD 84 71 - cmp alf_hdr_compsize1; 7F6C CD 9D 71 - bcc L7F8C ; 7F6F 90 1B - beq L7F75 ; 7F71 F0 02 - bcs L7F7D ; 7F73 B0 08 -L7F75: lda inbuf_len_l ; 7F75 AD 83 71 - cmp alf_hdr_compsize0; 7F78 CD 9C 71 - bcc L7F8C ; 7F7B 90 0F -L7F7D: lda alf_hdr_compsize0; 7F7D AD 9C 71 - sta buf_len_l ; 7F80 8D 7D 7A - lda alf_hdr_compsize1; 7F83 AD 9D 71 - sta buf_len_h ; 7F86 8D 7E 7A - jmp L7F98 ; 7F89 4C 98 7F - -; ---------------------------------------------------------------------------- -L7F8C: lda inbuf_len_l ; 7F8C AD 83 71 - sta buf_len_l ; 7F8F 8D 7D 7A - lda inbuf_len_h ; 7F92 AD 84 71 - sta buf_len_h ; 7F95 8D 7E 7A -L7F98: ldx #$10 ; 7F98 A2 10 - jsr readblock ; 7F9A 20 CF 7A - bpl L7FA9 ; 7F9D 10 0A -; ldx #<emsg_locate : ldy #>emsg_locate -print_emsg_locate: - ldx #$28 ; 7F9F A2 28 - ldy #$7F ; 7FA1 A0 7F - jsr printstr ; 7FA3 20 8B 7A - jmp cleanup_and_exit; 7FA6 4C 7F 78 - -; ---------------------------------------------------------------------------- -L7FA9: lda alf_hdr_compsize0; 7FA9 AD 9C 71 - sec ; 7FAC 38 - sbc buf_len_l ; 7FAD ED 7D 7A - sta alf_hdr_compsize0; 7FB0 8D 9C 71 - lda alf_hdr_compsize1; 7FB3 AD 9D 71 - sbc buf_len_h ; 7FB6 ED 7E 7A - sta alf_hdr_compsize1; 7FB9 8D 9D 71 - lda alf_hdr_compsize2; 7FBC AD 9E 71 - sbc #$00 ; 7FBF E9 00 - sta alf_hdr_compsize2; 7FC1 8D 9E 71 - jmp L7F58 ; 7FC4 4C 58 7F - -; ---------------------------------------------------------------------------- -entrypoint: - jmp startup ; 7FC7 4C 5A 73 - -; ---------------------------------------------------------------------------- - .byte $4C,$4E,$75,$4C,$00,$00,$20,$71; 7FCA 4C 4E 75 4C 00 00 20 71 - .byte $00,$70,$A0,$70,$50,$70,$00,$00; 7FD2 00 70 A0 70 50 70 00 00 - .byte $01,$04,$C7,$7F; 7FDA 01 04 C7 7F diff --git a/doc/Arcinfo b/doc/Arcinfo deleted file mode 100644 index 6c9d500..0000000 --- a/doc/Arcinfo +++ /dev/null @@ -1,124 +0,0 @@ - -ARC-FILE.INF, created by Keith Petersen, W8SDZ, 21-Sep-86, extracted -from UNARC.INF by Robert A. Freed. - -From: Robert A. Freed -Subject: Technical Information for ARC files -Date: June 24, 1986 - -Note: In the following discussion, UNARC refers to my CP/M-80 program -for extracting files from MSDOS ARCs. The definitions of the ARC file -format are based on MSDOS ARC512.EXE. - -ARCHIVE FILE FORMAT -------------------- - -Component files are stored sequentially within an archive. Each entry -is preceded by a 29-byte header, which contains the directory -information. There is no wasted space between entries. (This is in -contrast to the centralized directory used by Novosielski libraries. -Although random access to subfiles within an archive can be noticeably -slower than with libraries, archives do have the advantage of not -requiring pre-allocation of directory space.) - -Archive entries are normally maintained in sorted name order. The -format of the 29-byte archive header is as follows: - -Byte 1: 1A Hex. - This marks the start of an archive header. If this byte is not found - when expected, UNARC will scan forward in the file (up to 64K bytes) - in an attempt to find it (followed by a valid compression version). - If a valid header is found in this manner, a warning message is - issued and archive file processing continues. Otherwise, the file is - assumed to be an invalid archive and processing is aborted. (This is - compatible with MS-DOS ARC version 5.12). Note that a special - exception is made at the beginning of an archive file, to accomodate - "self-unpacking" archives (see below). - -Byte 2: Compression version, as follows: - - 0 = end of file marker (remaining bytes not present) - 1 = unpacked (obsolete) - 2 = unpacked - 3 = packed - 4 = squeezed (after packing) - 5 = crunched (obsolete) - 6 = crunched (after packing) (obsolete) - 7 = crunched (after packing, using faster hash algorithm) (obsolete) - 8 = crunched (after packing, using dynamic LZW variations) - -Bytes 3-15: ASCII file name, nul-terminated. - -(All of the following numeric values are stored low-byte first.) - -Bytes 16-19: Compressed file size in bytes. - -Bytes 20-21: File date, in 16-bit MS-DOS format: - Bits 15:9 = year - 1980 - Bits 8:5 = month of year - Bits 4:0 = day of month - (All zero means no date.) - -Bytes 22-23: File time, in 16-bit MS-DOS format: - Bits 15:11 = hour (24-hour clock) - Bits 10:5 = minute - Bits 4:0 = second/2 (not displayed by UNARC) - -Bytes 24-25: Cyclic redundancy check (CRC) value (see below). - -Bytes 26-29: Original (uncompressed) file length in bytes. - (This field is not present for version 1 entries, byte 2 = 1. - I.e., in this case the header is only 25 bytes long. Because - version 1 files are uncompressed, the value normally found in - this field may be obtained from bytes 16-19.) - - -SELF-UNPACKING ARCHIVES ------------------------ - -A "self-unpacking" archive is one which can be renamed to a .COM file -and executed as a program. An example of such a file is the MS-DOS -program ARC512.COM, which is a standard archive file preceded by a -three-byte jump instruction. The first entry in this file is a simple -"bootstrap" program in uncompressed form, which loads the subfile -ARC.EXE (also uncompressed) into memory and passes control to it. In -anticipation of a similar scheme for future distribution of UNARC, the -program permits up to three bytes to precede the first header in an -archive file (with no error message). - - -CRC COMPUTATION ---------------- - -Archive files use a 16-bit cyclic redundancy check (CRC) for error -control. The particular CRC polynomial used is x^16 + x^15 + x^2 + 1, -which is commonly known as "CRC-16" and is used in many data -transmission protocols (e.g. DEC DDCMP and IBM BSC), as well as by -most floppy disk controllers. Note that this differs from the CCITT -polynomial (x^16 + x^12 + x^5 + 1), which is used by the XMODEM-CRC -protocol and the public domain CHEK program (although these do not -adhere strictly to the CCITT standard). The MS-DOS ARC program does -perform a mathematically sound and accurate CRC calculation. (We -mention this because it contrasts with some unfortunately popular -public domain programs we have witnessed, which from time immemorial -have based their calculation on an obscure magazine article which -contained a typographical error!) - -Additional note (while we are on the subject of CRC's): The validity -of using a 16-bit CRC for checking an entire file is somewhat -questionable. Many people quote the statistics related to these -functions (e.g. "all two-bit errors, all single burst errors of 16 or -fewer bits, 99.997% of all single 17-bit burst errors, etc."), without -realizing that these claims are valid only if the total number of bits -checked is less than 32767 (which is why they are used in small-packet -data transmission protocols). I.e., for file sizes in excess of about -4K bytes, a 16-bit CRC is not really as good as what is often claimed. -This is not to say that it is bad, but there are more reliable methods -available (e.g. the 32-bit AUTODIN-II polynomial). (End of lecture!) - - Bob Freed - 62 Miller Road - Newton Centre, MA 02159 - Telephone (617) 332-3533 - - diff --git a/doc/DZ.COM b/doc/DZ.COM Binary files differdeleted file mode 100644 index 7a91ef0..0000000 --- a/doc/DZ.COM +++ /dev/null diff --git a/doc/LZ.COM b/doc/LZ.COM Binary files differdeleted file mode 100644 index 40f7f11..0000000 --- a/doc/LZ.COM +++ /dev/null diff --git a/doc/LZDZ.zip b/doc/LZDZ.zip Binary files differdeleted file mode 100644 index be3d6bc..0000000 --- a/doc/LZDZ.zip +++ /dev/null diff --git a/doc/alf14.atr b/doc/alf14.atr Binary files differdeleted file mode 100644 index 1801fc9..0000000 --- a/doc/alf14.atr +++ /dev/null diff --git a/doc/alf14_doc.txt b/doc/alf14_doc.txt deleted file mode 100644 index 832f59d..0000000 --- a/doc/alf14_doc.txt +++ /dev/null @@ -1,266 +0,0 @@ - AlfCrunch Documentation Revised 7/10/88 - ----------------------- - - AlfCrunch is an implementation of the Lempel-Ziv compression - algorithm. Although it produces files that have the same structure as - those produced by the Arc program, the two are not compatible. Arc - cannot uncrunch AlfCrunch files, nor can AlfUnCrunch unarc normal Arc - files. - - The current version of the LZ/DZ files is 1.4. Versions 1.1 through 1.3 - are compatible, but not with 1.0. If you have 1.0, you should discard it - and use 1.4. The reason for this is that 1.0 used the same header as - normal Arc crunch. Because of possible confusion over this, the header - used by AlfCrunch was changed. Since 1.0 had very limited distribution, - this situation should not often arise. For those who wish to be able to - detect the AlfCrunch format, the first two bytes of the file will always - be $1A $0F. - - This version fixes an annoying bug in both v1.2 and 1.3. If you had a -subdirectory entry amongst the filenames you were crunching, LZ would -stop at the subdir entry. Also the stack errors will now cause a proper -exit to Dos rather than re-execution. - - Enhancements to v1.4 are the addition of time/date support. If you -are running under Sparta 3.2, LZ will store the Sparta date/time from each -file into the header. DZ does not use this information, it's just there to -provide a reference point. - - When running either LZ.COM or DZ.COM, Memlo must be under $3000. This - should not normally be a problem unless you have a lot of handlers -installed. - A cartridge may be present, as it only affects the size of the buffer - available to AlfCrunch. Maximum speed will be achieved without a - cartridge being present. - - A final note - ------------ - - Well I think this is about as far as AlfCrunch is going to get for now. I -don't really believe there are any more features to add without modifying the -command line parameters. So this version (1.4) will be the last for -some time to come. Except for bug fixes (few if any I hope) the 1.x line will -not change. I hope to add command line parameters similar to ARC and maybe -add the ARC compression methods to finally resolve the compatibility issue. - - Alfred - Programmer's Aid BBS - (416) 465-4182 - - Running AlfCrunch - ----------------- - - To crunch files, load LZ.COM. The title will be displayed, along - with the version which should be 1.4. You will then be prompted for - the output filename. This may be up to 80 characters long, - including subdirectory names. - - If the output file already exists, it is checked to see if it is an -AlfCrunch file. If the first header is correct, then the new files will be -appended to it. If the header is wrong the program will print an error -message and exit to Dos. If the file is shorter than the header length -(29 bytes), then it is simply opened for normal output, which erases it. - - Next you will be prompted for the input filemask. This is what will - be used to select the files. This may also be up to 80 characters long, - including any subdirectory names. Wildcards are allowed. If selecting - all files, the mask must end in *.* . - - Finally, you have the option of turning the screen off. Selecting - this option will speed up the program by 15-20%. Once selected, you will - not again be prompted for this option. If you do not elect to turn the - screen off, the program will continue to present this prompt until it is - selected. - - The program will then select files using the mask and compress them, - displaying the filenames as it progresses. When it has finished, it will - prompt you for additional input filemasks. You may either enter another - mask or simply press return to exit back to Dos. - - LZ and SpartaDos 3.2 - -------------------- - - If you are using SpartaDos 3.2, you may invoke LZ.COM and specify - the output file and input filemask on the command line. The format is: - - [Dn:]LZ Dn:[path>]filename[.ext] [Dn:[path>]filename[.ext] ] - - The square brackets denote optional parameters which may be omitted. - The first filename is the output file. The second is the input - filemask. If you do not specify the input filemask, the program will - prompt you for it. The program will automatically turn the screen off. - When it is finished it will prompt you for more input filemasks. - - To invoke LZ as part of a batch file, the format is almost identical. - The lines in the batch file would be: - - [Dn:]LZ Dn:[path>]filename[.ext] [Dn:[path>]filename[.ext] ] - Dn:[path>]filename[.ext] <- Additional - Dn:[path>]filename[.ext] input masks - - The program will read each input filemask, compress the files - selected and continue until all the input masks have been used. You will - then be prompted for more input masks. If this is part of a larger batch - file, leave a single return after the last input mask to force LZ to - return control back to the batch file. Example: - - [Dn:]LZ Dn:[path>]filename[.ext] [Dn:[path>]filename[.ext] ] - Dn:[path>]filename[.ext] - Dn:[path>]filename[.ext] - (single return here) - [Dn:]LZ Dn:[path>]filename[.ext] [Dn:[path>]filename[.ext] ] - Dn:[path>]filename[.ext] - Dn:[path>]filename[.ext] - (single return here) - - At the end of this, you will be left at the Dos prompt. Because of - the way i/o redirection is handled, an alternative form is available: - - [Dn:]LZ - Dn:[path>]filename[.ext] <- The output file - Dn:[path>]filename[.ext] <- The input filemask - Y <- Turn the screen off - Dn:[path>]filename[.ext] <- Additional - Dn:[path>]filename[.ext] <- input filemasks - (single return here) - - Notice that the Y was only supplied once. When LZ is run in this - manner, it behaves exactly as if you were pressing the keys yourself. If - you turn the screen off, then you need only enter the Y once. If you - said N, then you would need an N after every input filemask until you - said Y. Example: - - [Dn:]LZ - Dn:[path>]filename[.ext] <- The output file - Dn:[path>]filename[.ext] <- The input filemask - N <- Leave the screen on - Dn:[path>]filename[.ext] <- Additional mask - N <- Leave the screen on - Dn:[path>]filename[.ext] <- Additional mask - Y <- Screen off now - Dn:[path>]filename[.ext] <- Additional masks, but no Y - Dn:[path>]filename[.ext] <- is necessary - (single return here) - - Getting Them Back - ----------------- - - To extract the files from an Alfcrunch file, load DZ.COM The title - will be displayed, along with the version number. - - The first prompt is for the name of the file to uncrunch. This - filename may be up to 80 characters long, including subdirectory names. - Wildcards are not allowed. - - The next prompt is the output directory. This is the directory where - the files will be placed when extracted from the crunch file. If the - directory does not exist, an attempt will be made to create the - directory. This may involve creating a number of subdirectories to get - to the last one, so care should exercised with this feature. If - errors occur during the directory build stage, an error message will be - displayed, and the program will return to DOS. You may specify a wildcard to -only extract certain files or use '*.*' to extract them all. *.* is the default. - - Auto directory creation is only available under SpartaDos. Under - any other Dos, if you specify a subdirectory, you will probably get -a single file with the name of the first pathname. - - Assuming all is well, you again have the option of turning the screen - off while files are being extracted. - - The program will then extract each file and place it in the output - directory specified. If any errors occur, an error message is printed - and the program returns to Dos. When all files have been extracted, you - will be prompted for another input file. You may enter another filename - or press Return to exit to Dos. - - The situation may arise where the crunch file has been corrupted. - This may occur due to errors during download, or failure of the disk on - which the file resides. There are several error messages which are - associated with bit errors. - - Msg: Not An AlfCrunch File! - --------------------------- - If this message is issued before any files were extracted, then - either the first two bytes of the file are corrupt, or else the file was - not created by AlfCrunch. If the message is issued after several files - were extracted, then the file has been damaged somewhere in the last - file extracted. You may also get the message which is described next. - - Msg: File Checksum In Error - --------------------------- - DZ has detected that the checksum calculated for the filename just - extracted does not agree with the checksum in the header block. Either - the header block has been damaged or more likely, the file itself has - been corrupted. If the file is a text file, it may be partially correct. - Object file types should be discarded, as it must be assumed they are - corrupt. - - Msg: Stack Overrun - ------------------ - This is an internal DZ error. The file being processed has been - corrupted, and DZ has exhausted all free memory in attempting to extract - the data. The output file produced is incomplete, corrupt, and should be - discarded. - - Msg: Extra Bytes At Eof, Don't Add To File - ------------------------------------------ - This means that the file has extra data at the end which is not valid. -This may arise from downloading where the last block is padded. Do not add -new files to it with LZ as you will not be able to get them back when you run -DZ again. You will get the 'Not An AlfCrunch File!' message at that time. - - DZ and SpartaDos 3.2 - -------------------- - If you are using SpartaDos 3.2, you may invoke DZ.COM and specify - the input file and output directory on the command line. The format is: - - [Dn:]DZ Dn:[path>]filename[.ext] [Dn:[path>][*.*] - - The square brackets denote optional parameters which may be omiited - if you wish. The first filename is the file to be processed. The second - filename is the directory in which the output files are to be placed. - Remember, if any of the directories in the output path do not exist, an - attempt will be made to create them. Remember, you can use a wildcard to -limit the files or take the default -which is '*.*'. - - The program will automatically turn the screen off, and extract - the files. If any errors occur, the appropriate error message will - be printed and control will return to Dos. - - When DZ is finished with the current input file, it will again prompt - you for another input file. You may continue uncrunching files, or - simply press return to exit back to Dos. - - As part of a batch file, the form for DZ is almost identical to the - LZ form. Accordingly, only brief examples will be shown: - - [Dn:]DZ Dn:[path>]filename[.ext] [Dn:[path>][*.*] - Dn:[path>]filename[.ext] <- Second input file - Dn:[path>][*.*] <- Second output path - Dn:[path>]filename[.ext] <- Third input file - Dn:[path>][*.*] <- Third output path - (single return) <- Return to Dos - - The second format is: - - [Dn:]DZ Dn:[path>]filename[.ext] <- First input file - Dn:[path>][*.*] <- First output path - Dn:[path>]filename[.ext] <- Second input file - Dn:[path>][*.*] <- Second output path - Dn:[path>]filename[.ext] <- Third input file - Dn:[path>][*.*] <- Third output path - (single return) <- Return to Dos - - The third format is: - - [Dn:]DZ - Dn:[path>]filename[.ext] <- First input file - Dn:[path>][*.*] <- First output path - Y <- Screen off - Dn:[path>]filename[.ext] <- Second input file - Dn:[path>][*.*] <- Second output path - Dn:[path>]filename[.ext] <- Third input file - Dn:[path>][*.*] <- Third output path - (single return) <- Exit to Dos diff --git a/doc/fileformat.txt b/doc/fileformat.txt deleted file mode 100644 index 7d87000..0000000 --- a/doc/fileformat.txt +++ /dev/null @@ -1,80 +0,0 @@ -ALF Archive Structure ---------------------- - -An ALF archive is laid out almost exactly like an ARC archive that -only uses compression types 2 or greater: A 29-byte header for each -file, followed by the compressed data, followed by either EOF or the -next file's header. - -See the file Arcinfo for the original ARC file format. For ALF files, -"Byte 2: Compression version" will always be $0F. - -Header structure: - -Offset | Length | Description --------+--------+------------------------------------------------------ -0 | 2 | ALF signature bytes: $1A $0F -2 | 13 | Filename (null-terminated) -15 | 4 | 32-bit compressed size (little-endian) -19 | 2 | File date in MS-DOS format (same as ARC) -21 | 2 | File time in MS-DOS format (same as ARC) -23 | 2 | Checksum (simple additivie, *not* a CRC) -25 | 4 | 32-bit original size (little-endian) --------+--------+------------------------------------------------------ - -The compressed data for the file starts at offset 29. - -The differences are: - -- ALF files use $0F for the 'compression type' (offset 1), whereas - ARC files use compression types 1 through 8. - -- ALF always uses the 29-byte header; ARC uses 29-byte headers for - compression types >= 2, but only 25 bytes for type 1 (stored). - -- The actual compressed data is incompatible with any of the - compression types supported by ARC. Although ALF uses an - implementation of Lempel-Zev, it's not the same implementation - as any of the ones that ARC uses. - -- For ARC, the last file's compressed data is followed by a 0 byte - (in place of the $1A header), to signal "end of archive". For - ALF, there's no data after the last byte of the last compressed - file. - -- Because ALF doesn't use a 0 byte to signal end-of-archive, it's - possible to append two ALF archives together; the result is also - a valid ALF archive... unless there's "junk at EOF" on the first - file. - -- ARC uses CRC-16 for its checksums; ALF just adds the bytes together - and uses the low 16 bits of the result as the checksum. - -- Not really a file format difference, but the dates stored inside - ALF files might be wrong or gibberish, if they were created on - an Atari DOS other than SpartaDOS (or, on SpartaDOS, but without - the R-Time 8 cartridge). - -- ARC and ALF are both limited to 12 character filenames, with a - null terminator. With ALF, any remaining bytes in the field after - the null will be set to $20 (ASCII spaces, *not* more nulls). - -- Atari filenames with no extensions (e.g. "FOO") are stored with - a trailing period (e.g. "FOO.") in the ALF header. Upon extraction, - Atari DOSes will remove the period, so the file will be called - "FOO" again. I'm not sure whether the ARC for the Atari shares this - behaviour, but ARC on MS-DOS or Linux doesn't do this. - -- ALF files are never embedded inside a self-extracting executable, - so the first file's header always starts at the first byte of - the file. - -- ARC and ALF both store the compressed and uncompressed file lengths - as 32-bit unsigned integers... but the Atari can't deal with really - large files. From examining the disassembled code of UNALF14.COM, - it looks like the highest byte isn't even looked at, meaning the - maximum size for a single file is 16MB. I have actually tested the - Atari ALF and UNALF programs with an emulator (and emulated hard - drive) with a file of 200KB in size, and it worked fine. - -Author: B. Watson (urchlay@slackware.uk) diff --git a/doc/interview.txt b/doc/interview.txt deleted file mode 100644 index e7d375e..0000000 --- a/doc/interview.txt +++ /dev/null @@ -1,166 +0,0 @@ -An email interview with Alfred, author of AlfCrunch for the -Atari 8-bit. - -Date: Thu, 20 Nov 2025 12:35:25 -0500 -From: Alfred -To: B. Watson <urchlay@slackware.uk> -Subject: Re: UnAlf - -On 2025-11-20 12:37 a.m., B. Watson wrote: - -> 1. Was AlfCrunch public domain, shareware, or...? - -1. AlfCrunch was public domain, although I never did distribute the -source code, and as I recall nobody ever asked me for it. The programmer -at ICD, Mike Gustafson did the same as you. He disassembled the DZ and -added it to their SpartaDos X along with all the ARC routines so they -could handle almost anything. Bob Puff at CSS did the same, so he could -add it to his SuperUnArc. He phoned me one night to say his code was -faster than mine at decompressing an AlfCrunch file. We had a good laugh -about it. - -> 2. Do you have any old disks (or disk images), or paper -> notes, anything that you used or referred to while developing -> AlfCrunch? Source would be awesome (if you still have it and are -> willing to share it). Even just the original distribution disk would -> be good to have. - -2. I didn't distribute it on disk that I can recall, it was either the -two files posted on my bbs, or perhaps they were Arc'd, I just don't -recall now. Probably Arc'd because there was a doc file with it. - -I've attached the source code for LZ/DZ. This isn't the original which -was done with Mac/65, it's broken up to use the Six Forks assembler -which I had just started using for a bit around then. - -> 3. Why not ARC compatible compression? You said you ported a PC -> program you had the source to... was it just not a matter of having -> the source for ARC? Or did you decide to go for speed rather than -> compatibility? - -3. I didn't have any source code for ARC and I didn't know what the -various compression algorithms were. I vaguely knew about Huffman from -work as one of the big software programs used it, but I had no idea how -it was implemented. I read the LZW paper but I didn't really understand -it then. Everyone hated Walden's ARC because it was so slow and it was -bugged, but it was all there was. One day somewhere I ran across some -guy's implementation of LZW for the pc, and I thought to try porting it -because it had to be faster than ARC. It was in assembler, so I could -kind of understand it. I'd seen some of the ARC source but the C code -was just gibberish to me. It's why my version is so clunky because I was -doing like you, just porting each x86 instruction to its sort of 6502 -variant. I couldn't make changes to the code because I didn't understand -what it was doing back then. - - After I released the first version someone called me and said their -Arcviewer didn't work on .alf files, so I quick fixed the header to be -Arc compatible to the extent you could see what the files were, and -that's the 1.4 version. So if you run across a 1.2, it's the same except -for the header. I don't think hardly anyone saw 1.2 except for some -local people because I released 1.4 so fast. - -> 4. Did you ever work on AlfCrunch after the 1.4 release? You mention a -> couple of possibilities for the next version in your doc file. Did any -> of that ever materialize (even if unreleased)? - -4. I did some work on a LZ 2.0 but I guess I quit on it, I only have -some source for the LZ part. I must have thought 1.4 was good enough and -moved on to something else. - -> 5. Are you OK with me redistributing the decompression code from UnAlf -> under the WTFPL license? -> -> 6. Are you OK with me including your AtariAge handle in my unalf -> documentation (man page)? - -5 & 6. Sure you can distribute whatever you like and mention me in it. -It's not like there's many people around who would remember me, heh. - -LZW is fairly straightforward (now, lol) but it can be a bit hard to get -the idea from just reading code. The way it works is a single token is -output that represents a string, hopefully a really long one like: - -token = $122= "went to the store and bought" string associated with that -token. However I think tokens start as 9 bit values, so you actually -output 9 bits, not just the 8. - -So on the compress side, you start with a table of, I think, 8 bit -tokens, where the value is 0-$FF, which are every possible input value. -If were only doing say ASCII text, you could cut it down to maybe 100 -tokens, not sure how many non-printables there are like SOL etc. - -Anyway, you start reading in bytes of data. You check a byte against the -table and if you don't find it, you add the next token value which would -be $100 and save that byte to that token's entry. Now that can't happen -with the first token, because it has to be one of the starting 256 -bytes. If you find the token, then you remember it and continue by -reading the next character. Now you're checking the table to see if -there's a token for 1st+2nd, which there isn't. So you create a new -token, $100, and add the 2 byte string as its value, and you output the -token for the first byte. Now the third byte probably doesn't match the -first byte, so it'll be the same process. Since there's no string of -3rd+4th, you'll output the token for the third byte, and add a new token -that represents those two bytes. Now with a good matching data file, -like text, you'll probably see 1st+2nd again. So when it sees that first -byte value, it says ok, I have a token for that, so it keeps reading, -and it sees the second byte and it goes, I have a token for 1+2 too, so -then it reads the third byte and now it goes, ok, I don't have a token -for 1+2+3, so it outputs the token for 1+2 and creates a new token and -stores the string 1+2+3 as it's value. - So this process just goes on until you run out of data. With a good -match you'll get longer and longer runs of bytes that match earlier -strings, so you can get to the point where one token is the same as 40 -characters. That's why LZW is so good. However you run into trouble with -something like a GIF or JPG because they're all different, you don't get -runs of bytes. Especially not in JPG because it's already stripped out -all the runs, which is why JPG files are so small. - -The decompress is similar, it just works backwards. You start with the -same 256 byte table. You read the first token, and it matches, so you -output the value (the token is the character initially). Since it -matched, what you would normally do is take the string that you output -just before this and concatenate the first letter of this string to the -last output string and add it to the table as a new token value. Since -there is no previous string when you read the first byte, you do -nothing. So even if you didn't know what the starting table was, you -could rebuild it here, because all the initial tokens will be <$100 -because they didn't match anything longer in the beginning of the -compression, so eventually you will reconstruct the 256 entry table. You -short-circuit that part by starting with the known table. - -So starting with the second token, you end up creating a bunch of second -level entries, which are the initial table value+something. As long as -the next token is in the table, you just keep going outputting strings -and adding new tokens. Now what happens if you get a token that isn't in -the table. This where the math becomes magic, I don't really understand -the theory, but it works. You know it had to have just been created by -the compressor. So the string that this new token represents has to at -least start with the last token to which some new character was added. -So you take the last string output and concatenate it's first character -to itself. So if the last string was the value "ABCD" you create new -token in the table and add "ABCDA" as it's value, and you output the -string "ABCDA". And so on. - -Now you start with 9 bit tokens I think. At some point on the compress -side, and on the decompress, when you code to add a new token, it's -going to take more than 9 bits, you up the bitsize to 10, which also -changes the highest token value you can have, which I think is what the -MAXCDE value represents. Because of the limited memory, I think I send -the clear code at the end of filling a 12 bit table, and start over with -9. Fortunately on the Atari you don't have giant files, so it doesn't -reset too often. - - There are a couple of special tokens, Clear which when you see it you -clear the table, and the End token which tells you that it's the last -token of the data. - -A lot of the code in LZ/DZ is the bit twiddling to concatenate the -varying bitsize tokens in memory. I can't do that sort of math in my -head, so it's a lot brute force shifting bits left and right to align a -new token to the last one in memory. The other thing I didn't understand -is I don't think the code actually stores every full string, maybe it -does, but at the time I thought the guy was using some scheme whereby he -was only storing one character with each new token and it somehow was -chained to the previous string. - -That's about all I can tell you about it. diff --git a/doc/review.txt b/doc/review.txt deleted file mode 100644 index f56e4c3..0000000 --- a/doc/review.txt +++ /dev/null @@ -1,44 +0,0 @@ -The following review was published in the Atari H.A.C.K. magazine, -in the August 1988 issue (Volume II, Issue IIX) [1]: - ---------------------------------------------------------------------- -Those of us who are experienced telecommunicators are quite familiar -with the ARC family of disk file compression programs. The most -widely used of the 8-bit versions of the ARC program has been, -and remains to be, ARC version 1.2 (the archiver) and ARCX version -1.2 (the dearchiver). Two very excellent programs written in C by -Ralph Walden of the Atari Computer Enthusiasts of Eugene, aka ACE. -Almost every BBS worth its salt uses this program to compress its -files not only to make them take up less space, but also to save time -on file transfers. A smaller program simply takes less time to send -or receive. Of course, since the file is compressed, or archived, it -isn't runnable until it's dearced with the ARCX program. - -ARC and ARCX are great programs but they have their small problems. -They are slow and sometimes show unexplainable CRC errors when -dearcing. This frustrates and detracts from what is otherwise a great -program. There was none better, that is, until now. - -ALFCRUNCH is here. Despite its cute name it has nothing to do with -the furry wise guy from the planet Melmac. ALFCRUNCH consists of two -programs, LZ.COM, the archiver, and DZ.COM, the dearchiver. Files are -manipulated the same way as the ARC programs do it but they are not -compatible. The LZ program compresses programs slightly more than does -ARC.COM, or anywhere from a few percent to almost 70%, all depending -on file type and save method used. The DZ program works as claimed- -there isn't much to say except that it works. All of this sounds good -but so what? Why change for a few percent? - -The reason to change is speed. ALF programs are at least 10 times -faster than the ARC programs. Sometimes they are even quicker! -Programs which may have taken several minutes to process are done -in seconds with ALF. In fact the first time I tried ALF I thought it -didn't work... but it does! Reason enough to change? Not yet? Well, -ALF is free. Get it from your club PD library or download it from -SLOWPOKE! [2] ---------------------------------------------------------------------- - -[1] The full issue of HACK can be found here: - https://archive.org/details/AtariHACKNewsAugust1988 - -[2] SLOWPOKE was an Atari BBS in the Salem/Portland, Oregon area. diff --git a/examples/aprog.alf b/examples/aprog.alf Binary files differdeleted file mode 100644 index 253565e..0000000 --- a/examples/aprog.alf +++ /dev/null diff --git a/examples/atutor.alf b/examples/atutor.alf Binary files differdeleted file mode 100644 index d9aad92..0000000 --- a/examples/atutor.alf +++ /dev/null diff --git a/examples/bbsmio.alf b/examples/bbsmio.alf Binary files differdeleted file mode 100644 index a05a2f7..0000000 --- a/examples/bbsmio.alf +++ /dev/null diff --git a/examples/examples.txt b/examples/examples.txt deleted file mode 100644 index a576d37..0000000 --- a/examples/examples.txt +++ /dev/null @@ -1,22 +0,0 @@ -These .alf archives all came from the Holmes Archive, CD 2. - -Atari Archives/Dos/: - mtosv3.alf - -Atari Archives/Telecomm/PRO_BBS/: - bbsmio.alf [*] - gotcha.alf - -Atari Archives/Text/: - infocom1.alf - infocom2.alf - -Programming/Misc/: - aprog.alf [*] - -Programming/Action!/: - atutor.alf [*] - -Files marked with [*] have garbage appended to them. These are -^Z ($1A) bytes, probably put there by a dumb BBS file transfer -program or a dumb OS (CP/M? MS-DOS 1.0?). diff --git a/examples/gotcha.alf b/examples/gotcha.alf Binary files differdeleted file mode 100644 index eb40399..0000000 --- a/examples/gotcha.alf +++ /dev/null diff --git a/examples/infocom1.alf b/examples/infocom1.alf Binary files differdeleted file mode 100644 index 3e9c37f..0000000 --- a/examples/infocom1.alf +++ /dev/null diff --git a/examples/infocom2.alf b/examples/infocom2.alf Binary files differdeleted file mode 100644 index f48072e..0000000 --- a/examples/infocom2.alf +++ /dev/null diff --git a/examples/mtosv3.alf b/examples/mtosv3.alf Binary files differdeleted file mode 100644 index 5e36988..0000000 --- a/examples/mtosv3.alf +++ /dev/null diff --git a/f65/Makefile b/f65/Makefile deleted file mode 100644 index 91adf06..0000000 --- a/f65/Makefile +++ /dev/null @@ -1,10 +0,0 @@ -CFLAGS=-Wall - -all: test - -f65.o: f65.c f65.h - -f65test: f65.o f65test.c - -test: f65test - ./f65test diff --git a/f65/README b/f65/README deleted file mode 100644 index 0f7d0a3..0000000 --- a/f65/README +++ /dev/null @@ -1,32 +0,0 @@ -f65 - "fake 6502" porting layer - -This is a set of C macros that implements most of the 6502 assembly -language instructions, plus a perl script to convert 6502 assembly -source to C code that calls the macros. You can use it to assist in -porting 6502 assembly routines to C, using either the original asm -source, or a disassembly created with da65. - -What's implemented: 64K of memory. The A/X/Y/S registers. The carry, -zero, and negative flags. Most arithmetic and logic instructions. The -stack. Conditional branches and absolute jumps are implemented as C -goto's. JSR is implemented as a real C function call, and RTS is a -real C return. Labels in the assembly source become C labels (aka goto -targets). Equates in the asm source become C variables. - -What's not implemented: The D flag, and decimal mode in general. The -V flag, and branches based on it. The I and B flags. Interrupts -and the RTI instruction. The Program Counter (though branches, JMP, -JSR, and RTS are implemented without it). ROM routines (including -I/O). Indirect JMP. The "CPU bug" that causes e.g. 'LDA ($FF),y' to -take its high byte from $00 rather than $100. (zeropage, x) addressing -mode. - -I wrote this specifically to port the decompression algorithm from -UnAlf 1.4. Instructions not used by UnAlf probably aren't implemented, -or if they are, they're untested. - -The perl script doesn't magically convert a whole 6502 program to C -source. You'll have to figure out which parts of the 6502 program are -subroutines, and put them in their own C functions. Any data (.byte, -.word, etc) won't be in the C program. Anything that does I/O must be -rewritten in C. diff --git a/f65/asm2fake65.pl b/f65/asm2fake65.pl deleted file mode 100755 index 78031a7..0000000 --- a/f65/asm2fake65.pl +++ /dev/null @@ -1,72 +0,0 @@ -#!/usr/bin/perl -w - -LINE: while(<>) { - chomp; - - next if /^\s*$/; - next if /^\s+\.byte/; - next if /^\s+\.setcpu/; - next if /^\s+;/; - - # join lone label: with next line - if(/^[a-zA-Z0-9_]+:\s*$/) { - $_ .= <>; - redo LINE; - } - - # comment-only lines: - if(/^;\s+(.*)/) { - print "/* $1 */\n"; - next; - } - - if(s/(^[a-zA-Z0-9_]+):?//) { - my $label = $1; - if(/:=\s*\$([0-9A-F]{4})/) { - print "u16 $label = 0x$1;\n"; - next; - } elsif(/\.byte/) { - /; ([0-9A-F]{4})\s/; - print "u16 $label = 0x$1;\n"; - next; - } else { - print "$label:\n"; - } - } - - s/\s+;.*//; - s/^\s*([a-z]{3})\s*//; - my $mnem = $1; - s/\s*$//; - my $operand = $_; - my $arg = ""; - - print "\t"; - - if(!$operand) { - $mnem .= "_a" if $mnem =~ /asl|lsr|rol|ror/; - print $mnem . "();\n"; - next; - } - - $operand =~ s,\$,0x,; - $operand =~ s,;.*,,; - - #print "mnem '$mnem', operand '$operand'\n"; - if($operand =~ /#(.*)/) { - print $mnem . "_i(" . $1 . ");\n"; - next; - } - - if($operand =~ /\(([^)]+)\),y/) { - print $mnem . "_ind_y(" . $1 . ");\n"; - next; - } - - if($operand =~ /(.+),([xy])/) { - print $mnem . "_abs_" . $2 . "(" . $1 . ");\n"; - next; - } - - print $mnem . "(" . $operand . ");\n"; -} diff --git a/f65/f65.c b/f65/f65.c deleted file mode 100644 index 952eac3..0000000 --- a/f65/f65.c +++ /dev/null @@ -1,68 +0,0 @@ -/* fake 6502. a perl script converts this: - - ldy #10 -loop: - lda blah,y - sta (p1),y - dey - bpl loop - -to something like: - ldy_i(10) -loop: - lda_absy(blah) - sta_zpy(p1) - dey(); - bpl(loop); - -where e.g. - - #define ldy_i(x) Y=x; ZF=!Y; NF=Y&0x80; - - #define lda_absy(x) A=mem[x+y]; ZF=!A; NF=A&0x80; - - #define sta_zpy(x) mem[(mem[x] | mem[x+1] << 8) + y] = A; - - #define dey() Y--; ZF=!Y; NF=Y&0x80; - - #define bpl(x) if(!NF) goto x - -...and the 'loop:' is a real C line label. - -we don't worry about the V flag since unalf doesn't use it. - -This isn't emulation exactly, and it isn't dynamic recompilation because -it's static. "Static recompilation" maybe? - -*/ - -#include "f65.h" - -u8 A, X, Y, S = 0xff, tmp; /* tmp is result for cmp/cpx/cpy */ -u8 mem[1 << 16]; /* 64K */ -u8 *stack = mem + 0x100; /* page 1 */ - -u8 CF, ZF, NF; /* flags should really be a bitfield, *shrug* */ - -unsigned int wtmp; - -void dump_state(void) { - fprintf(stderr, - "A = $%02x X = $%02x Y = $%02x S = $%02x | " - "CF = %d ZF=%d NF=%d\n", - A, X, Y, S, (CF ? 1 : 0), (ZF ? 1 : 0), (NF ? 1 : 0)); -} - -void dump_mem(int start, int end) { - int count = 0; - while(start <= end) { - if(count % 16 == 0) { - if(count) fputc('\n', stderr); - fprintf(stderr, "%04x:", start); - } - fprintf(stderr, " %02x", mem[start]); - count++; - start++; - } - fputc('\n', stderr); -} diff --git a/f65/f65.h b/f65/f65.h deleted file mode 100644 index 2d5a66a..0000000 --- a/f65/f65.h +++ /dev/null @@ -1,129 +0,0 @@ -#include <stdio.h> - -#define u8 unsigned char -#define u16 unsigned short - -extern u8 A, X, Y, S, tmp; /* tmp is result for cmp/cpx/cpy */ -extern u8 mem[1 << 16]; /* 64K */ -extern u8 *stack; /* page 1 */ - -extern unsigned int wtmp; /* wide temporary for adc/sbc */ - -extern u8 CF, ZF, NF; /* flags should really be a bitfield, *shrug* */ - -extern void dump_state(void); -extern void dump_mem(int start, int end); - -#define dump_zp() dump_mem(0, 0xff); -#define dump_stack() dump_mem(0x100, 0x1ff); -#define dump_page(x) dump_mem(x * 0x100, x * 0x100 + 0x1ff); - -#define _ind_y(x) mem[Y + (mem[x] | (mem[x+1] << 8))] - -#define setnz(x) ZF=!x; NF=(x&0x80)!=0; - -#define pha() stack[S--] = A; -#define pla() A = stack[++S]; setnz(A); -#define php() stack[S--] = (NF<<7 | ZF<<1 | CF); -#define plp() tmp = stack[++S]; NF=(tmp&0x80)!=0 ; ZF=(tmp&0x02)!=0; CF=tmp&0x01; - -#define lda_i(x) A=x; setnz(A); -#define ldy_i(x) Y=x; setnz(Y); -#define ldx_i(x) X=x; setnz(X); -#define lda(x) A=mem[x]; setnz(A); -#define ldx(x) X=mem[x]; setnz(X); -#define ldy(x) Y=mem[x]; setnz(Y); -#define lda_abs_x(x) A=mem[x+X]; setnz(A); -#define lda_abs_y(x) A=mem[x+Y]; setnz(A); -#define lda_ind_y(x) A=_ind_y(x); setnz(A); - -#define sta(x) mem[x] = A; -#define sta_abs_x(x) mem[x + X] = A; -#define sta_abs_y(x) mem[x + Y] = A; -#define sta_ind_y(x) _ind_y(x) = A; - -#define stx(x) mem[x] = X; -#define sty(x) mem[x] = Y; - -#define sec() CF=1; -#define clc() CF=0; - -#define tax() X=A; setnz(X); -#define tay() Y=A; setnz(Y); -#define txa() A=X; setnz(A); -#define tya() A=Y; setnz(A); -#define txs() S=X; setnz(S); -/* note: tsx doesn't affect flags */ -#define tsx() X=S; - -#define _ror(x) tmp=x&1; x>>=1; x|=(CF<<7); CF=tmp; setnz(x); -#define _rol(x) tmp=(x&0x80)!=0; x<<=1; x|=CF; CF=tmp; setnz(x); - -#define ror_a() _ror(A); -#define rol_a() _rol(A); -#define ror(x) _ror(mem[x]); -#define rol(x) _rol(mem[x]); - -#define _lsr(x) CF=x&1; x>>=1; setnz(x); -#define _asl(x) CF=(x&0x80)!=0; x<<=1; setnz(x); - -#define lsr_a() _lsr(A); -#define asl_a() _asl(A); -#define lsr(x) _lsr(mem[x]); -#define asl(x) _asl(mem[x]); - -#define inx() X++; setnz(X); -#define iny() Y++; setnz(Y); -#define dex() X--; setnz(X); -#define dey() Y--; setnz(Y); - -#define inc(x) mem[x]++; setnz(mem[x]); -#define dec(x) mem[x]--; setnz(mem[x]); - -#define jsr(x) x(); -#define rts() return; - -#define jmp(x) goto x; -#define bne(x) if(!ZF) goto x; -#define beq(x) if(ZF) goto x; -#define bcc(x) if(!CF) goto x; -#define bcs(x) if(CF) goto x; -#define bpl(x) if(!NF) goto x; -#define bmi(x) if(NF) goto x; - -#define ora_i(x) A|=x; setnz(A); -#define ora(x) A|=mem[x]; setnz(A); - -#define and_i(x) A&=x; setnz(A); -#define and(x) A&=mem[x]; setnz(A); -#define and_abx_x(x) A&=mem[x+X]; setnz(A); -#define and_abs_y(x) A&=mem[x+Y]; setnz(A); -#define and_ind_y(x) A&=_ind_y(x); setnz(A); - -#define eor_i(x) A^=x; setnz(A); -#define eor(x) A^=mem[x]; setnz(A); - -#define adc_i(x) wtmp=A+x+CF; A=wtmp&0xff; CF=(wtmp&0x100)!=0; setnz(A); -#define adc(x) adc_i(mem[x]); -#define adc_abs_x(x) adc_i(mem[x+X]); -#define adc_abs_y(x) adc_i(mem[x+Y]); -#define adc_ind_y(x) adc_i(_ind_y(x)); - -/* TODO: actually check this logic! */ -#define _sub(dst,orig,c,operand) wtmp=orig+(operand^0xff)+c; dst=wtmp&0xff; CF=(wtmp&0x100)!=0; setnz(dst); - -#define sbc_i(x) _sub(A,A,CF,x) -#define sbc(x) _sub(A,A,CF,mem[x]) -#define cmp_i(x) _sub(tmp,A,1,x) -#define cpy_i(x) _sub(tmp,Y,1,x) -#define cpx_i(x) _sub(tmp,X,1,x) -#define cmp(x) cmp_i(mem[x]) -#define cmp_abs_x(x) cmp_i(mem[x+X]) -#define cpy(x) cpy_i(mem[x]) -#define cpx(x) cpx_i(mem[x]) - -#define nop() {} - -/* this should produce a compile error instead */ -// #define brk() nop() - diff --git a/magic/MAGIC.txt b/magic/MAGIC.txt deleted file mode 100644 index 9e04bb1..0000000 --- a/magic/MAGIC.txt +++ /dev/null @@ -1,45 +0,0 @@ -This directory contains "magic" for the file(1) command. It doesn't -get installed by 'make install' because every OS seems to handle file -magic differently. - -At some point, the ALF magic will be added to file(1). Try this: - - file examples/aprog.alf - -If the result looks like this: - - examples/aprog.alf: Atari 8-bit AlfCrunch data, first filename APROG10.001 - -...then your file command already knows about ALF files, and you can stop -reading now. - -If you get something similar to this: - - examples/aprog.alf: data - -...then you can add ALF support by copying the file magic/alf to your -magic directory (usually this is /etc/file/magic) and recompiling the -magic database (this is done differently on different OSes). - -For Slackware Linux, the commands would be: - - cp magic/alf /etc/file/magic - /etc/file/recompile_magic.mgc.sh - -On other OSes that have a /etc/file/magic directory, You could also -try replacing the 2nd command with: - - cd /etc/file - file --compile - -The above commands must be run as root. You can prefix them with -"sudo" if your user is set up for sudo access. - -After recompiling the file magic database, the file command will -identify ALF archives correctly, as in the first example above. - -If you're creating a distro package of unalf, install magic/alf -to wherever your OS keeps its magic files, and recompile the magic -database in your package system's post-install hook. If there's -also a post-uninstall hook, you probably should recompile the magic -again there. diff --git a/magic/alf b/magic/alf deleted file mode 100644 index 4517d0d..0000000 --- a/magic/alf +++ /dev/null @@ -1,25 +0,0 @@ -### AlfCrunch -# Author: B. Watson (urchlay@slackware.uk) -# -# Reference: -# https://slackware.uk/~urchlay/repos/unalf/plain/doc/fileformat.txt -# -# This is very similar to ARC (see Magdir/archive), but doesn't -# overlap with it. The . in the filename is always present, even -# if there's no extender after it. -# -# Offsets 18 and 28 are the high bytes of the 32-bit original and -# compressed sizes. These will always be 0, since Atari files are -# never >16MB in size (and since the UNALF dearchiver can't handle -# them anyway). -# -# magicbits=53.7 -# -0 uleshort 0x0f1a ->18 ubyte 0x00 ->>28 ubyte 0x00 ->>>2 regex/13 [A-Z][A-Z0-9@_]{0,7}\.[A-Z0-9@_]{0,3} ->>>>&0 ubyte 0 ->>>>>2 string x Atari 8-bit AlfCrunch data, first filename %s -!:mime application/x-atari-8bit-alfcrunch -!:ext alf diff --git a/src/Makefile b/src/Makefile deleted file mode 100644 index da19876..0000000 --- a/src/Makefile +++ /dev/null @@ -1,150 +0,0 @@ -# Makefile for alftools, by B. Watson. WTFPL. -# Tested with GNU make, BSD make, makepp, and Schily's dmake. - -### Override these variables as needed. Don't override CFLAGS; use -# COPT instead. - -# C compiler to use. PATH is searched unless you give an absolute path. -CC=cc - -# C compiler options (flags): -COPT=-O3 - -# Path to the GNU or BSD 'install' program. -INSTALL=install - -# Path to the rst2man command. Only needed if modifying/rebuilding the -# man pages and/or windows HTML docs. -RST2MAN=rst2man - -# These only affect the 'install' target (they don't get compiled -# into the binary). - -PREFIX=/usr -MANDIR=$(PREFIX)/man -MAN1DIR=$(MANDIR)/man1 -BINDIR=$(PREFIX)/bin -DOCDIR=$(PREFIX)/doc/$(PROJ)-$(VERSION) -DESTDIR= -INSTALL_DATA=$(INSTALL) -m0644 -INSTALL_PROGRAM=$(INSTALL) -m0755 -GZIP=gzip -9 -GZIP_MAN=yes -STRIP=yes - -# -### No user-serviceable parts below. - -PROJ=alftools -VERSION=0.2.0 - -CFLAGS=-DVERSION='"$(VERSION)"' -Wall -I../f65 $(COPT) - -BINS=alf alfsum unalf -MANS=alf.1 alfsum.1 unalf.1 - -UNALF_OBJS=unalf.o io.o listalf.o extract.o f65.o glob.o opts.o usage.o self.o asmcode.o -ALFSUM_OBJS=alfsum.o self.o -ALF_OBJS=alf.o self.o alfusage.o - -.PHONY: all clean install crosswin windows windows-upload realclean - -all: $(BINS) $(MANS) - -# unalf and alfsum need explicit rules for BSD make compatibility. -# without them, bmake tries to run "cc -o unalf unalf.c" which ain't -# gonna ever work. -unalf: $(UNALF_OBJS) - $(CC) $(LDFLAGS) -o $@ $(UNALF_OBJS) - -alfsum: $(ALFSUM_OBJS) - $(CC) $(LDFLAGS) -o $@ $(ALFSUM_OBJS) - -alf: $(ALF_OBJS) - $(CC) $(LDFLAGS) -o $@ $(ALF_OBJS) - -usage.o: usage.c - -alfusage.o: usage.c - -f65.o: ../f65/f65.c ../f65/f65.h - $(CC) $(CFLAGS) -c -o f65.o ../f65/f65.c - -usage.c: mkusage.pl unalf.rst - perl mkusage.pl unalf.rst > usage.c - -alfusage.c: mkusage.pl alf.rst - perl mkusage.pl alf.rst > alfusage.c - -unalf.o: unalf.c unalf.h ../f65/f65.h - -glob.o: glob.c unalf.h - -opts.o: opts.c unalf.h - -io.o: io.c unalf.h addrs.h ../f65/f65.h - -listalf.o: listalf.c addrs.h unalf.h ../f65/f65.h - -extract.o: extract.c addrs.h unalf.h ../f65/f65.h - -ver.rst: - echo '.. |version| replace:: $(VERSION)' > ver.rst - -unalf.1: unalf.rst ver.rst manftr.rst - $(RST2MAN) unalf.rst > unalf.1 - -alfsum.1: alfsum.rst ver.rst manftr.rst - $(RST2MAN) alfsum.rst > alfsum.1 - -alf.1: alf.rst ver.rst manftr.rst - $(RST2MAN) alf.rst > alf.1 - -clean: - rm -rf *.o $(BINS) *.exe wintmp \ - alf.html unalf.html alfsum.html *.aarch64.elf *.com.dbg - -# these are generated files, but they *are* checked into git. -realclean: clean - rm -f unalf.1 alfsum.1 usage.c alfusage.c - -install: all - [ "$(STRIP)" = "yes" ] && strip alf unalf alfsum || true - mkdir -p $(DESTDIR)$(BINDIR) $(DESTDIR)$(MAN1DIR) $(DESTDIR)$(DOCDIR) - $(INSTALL_DATA) alf.1 $(DESTDIR)$(MAN1DIR) - $(INSTALL_DATA) unalf.1 $(DESTDIR)$(MAN1DIR) - $(INSTALL_DATA) alfsum.1 $(DESTDIR)$(MAN1DIR) - [ "$(GZIP_MAN)" = "yes" ] && $(GZIP) $(DESTDIR)$(MAN1DIR)/alf.1 || true - [ "$(GZIP_MAN)" = "yes" ] && $(GZIP) $(DESTDIR)$(MAN1DIR)/unalf.1 || true - [ "$(GZIP_MAN)" = "yes" ] && $(GZIP) $(DESTDIR)$(MAN1DIR)/alfsum.1 || true - $(INSTALL_PROGRAM) alf $(DESTDIR)$(BINDIR) - $(INSTALL_PROGRAM) unalf $(DESTDIR)$(BINDIR) - $(INSTALL_PROGRAM) alfsum $(DESTDIR)$(BINDIR) - cp -r ../README.txt ../LICENSE.txt ../TODO.txt ../doc ../examples $(DESTDIR)$(DOCDIR) - -crosswin: clean - $(MAKE) CC=~/x-tools/x86_64-w64-mingw32/bin/x86_64-w64-mingw32-gcc - -html: alfsum.html unalf.html alf.html - -alf.html: alf.rst - rst2html alf.rst > alf.html - -alfsum.html: alfsum.rst - rst2html alfsum.rst > alfsum.html - -unalf.html: unalf.rst - rst2html unalf.rst > unalf.html - -windows: crosswin html - rm -rf wintmp ../$(PROJ)-$(VERSION)-win64.zip - mkdir -p wintmp/{doc,examples} - cp alf.exe unalf.exe alfsum.exe wintmp - cd .. ; for i in README.txt TODO.txt doc/*.txt doc/Arcinfo examples/*.txt; do perl -pe 's,\n,\r\n,;' $$i > src/wintmp/$$i; done - perl -p -e 's,\n,\r\n,;' -e 's,\@VERSION\@,$(VERSION),g;' README_Windows.txt.in > wintmp/README_Windows.txt - cp ../examples/*.alf wintmp/examples - cp alfsum.html unalf.html alf.html wintmp - cd wintmp ; zip -r ../../$(PROJ)-$(VERSION)-win64.zip * - -windows-upload: windows - scp ../$(PROJ)-$(VERSION)-win64.zip sluk:public_html/html/$(PROJ)4win/ diff --git a/src/README_Windows.txt.in b/src/README_Windows.txt.in deleted file mode 100644 index 338a495..0000000 --- a/src/README_Windows.txt.in +++ /dev/null @@ -1,17 +0,0 @@ -This is the Windows binary release of alftools-@VERSION@. - -See README.txt, unalf.html, and alfsum.html for full documentation. - -This is a command-line program. Just double-clicking on the .exe won't -do anything useful. You should copy unalf.exe and alfsum.exe to some -directory that's in your PATH, or else run them from the directory you -extracted them to, using the command prompt (CMD.EXE). - -The binaries (alf.exe, unalf.exe, alfsum.exe) were built with a cross -gcc compiler on a Linux system. They should run on any recent 64-bit -Windows OS. The author doesn't actually use Windows, so if you run -into problems, please let me know. - -I can be reached by email at: - -urchlay@slackware.uk diff --git a/src/addrs.h b/src/addrs.h deleted file mode 100644 index 47e0e32..0000000 --- a/src/addrs.h +++ /dev/null @@ -1,86 +0,0 @@ - -#define buf_adr_l 0x7A7B -#define buf_adr_h 0x7A7C -#define buf_len_l 0x7A7D -#define buf_len_h 0x7A7E -#define zp_b0 0x00B0 -#define zp_b1 0x00B1 -#define acc16_l 0x00B2 -#define acc16_h 0x00B3 -#define zp_b4 0x00B4 -#define zp_b5 0x00B5 -#define stackptr_l 0x00B6 -#define stackptr_h 0x00B7 -#define zp_b8 0x00B8 -#define zp_b9 0x00B9 -#define outbuf_ptr_l 0x00BA -#define outbuf_ptr_h 0x00BB -#define zp_bc 0x00BC -#define zp_bd 0x00BD -#define zp_be 0x00BE -#define zp_bf 0x00BF -#define MEMTOP 0x02E5 -#define MEMTOP_lo 0x02E5 -#define MEMTOP_hi 0x02E6 -#define MEMLO 0x02E7 -#define MEMLO_hi 0x02E8 -#define input_file 0x7000 -#define output_dir 0x7050 -#define outfile_l 0x70A0 -#define outfile_h 0x70A1 -#define linbuf 0x7120 -#define L7174 0x7174 -#define L7175 0x7175 -#define L7176 0x7176 -#define L7177 0x7177 -#define L7178 0x7178 -#define L7179 0x7179 -#define L717A 0x717A -#define L717B 0x717B -#define L717C 0x717C -#define L717D 0x717D -#define L717E 0x717E -#define cksum_l 0x717F -#define cksum_h 0x7180 -#define L7181 0x7181 -#define L7182 0x7182 -#define inbuf_len_l 0x7183 -#define inbuf_len_h 0x7184 -#define inbuf_adr_l 0x7185 -#define inbuf_adr_h 0x7186 -#define outbuf_adr_l 0x7187 -#define outbuf_adr_h 0x7188 -#define L7189 0x7189 -#define L718A 0x718A -#define L718B 0x718B -#define L718C 0x718C -#define alf_header 0x718D -#define alf_hdr_sig 0x718E -#define alf_hdr_filename 0x718F -#define alf_hdr_compsize0 0x719C -#define alf_hdr_compsize1 0x719D -#define alf_hdr_compsize2 0x719E -#define alf_hdr_compsize3 0x719F -#define alf_hdr_date0 0x71A0 -#define alf_hdr_date1 0x71A1 -#define alf_hdr_time0 0x71A2 -#define alf_hdr_time1 0x71A3 -#define alf_hdr_cksum_l 0x71A4 -#define alf_hdr_cksum_h 0x71A5 -#define alf_hdr_origsize0 0x71A6 -#define alf_hdr_origsize1 0x71A7 -#define alf_hdr_origsize2 0x71A8 -#define alf_hdr_origsize3 0x71A9 -#define L71AA 0x71AA -#define L71AB 0x71AB -#define shift_counter 0x71AC -#define L71AD 0x71AD -#define L71AE 0x71AE -#define L71AF 0x71AF -#define L71B0 0x71B0 -#define outbuf_len_l 0x71B1 -#define outbuf_len_h 0x71B2 -#define L71B4 0x71B4 -#define L71B5 0x71B5 -#define L71B6 0x71B6 -#define L71B7 0x71B7 diff --git a/src/alf.1 b/src/alf.1 deleted file mode 100644 index f2efb38..0000000 --- a/src/alf.1 +++ /dev/null @@ -1,214 +0,0 @@ -.\" Man page generated from reStructuredText. -. -. -.nr rst2man-indent-level 0 -. -.de1 rstReportMargin -\\$1 \\n[an-margin] -level \\n[rst2man-indent-level] -level margin: \\n[rst2man-indent\\n[rst2man-indent-level]] -- -\\n[rst2man-indent0] -\\n[rst2man-indent1] -\\n[rst2man-indent2] -.. -.de1 INDENT -.\" .rstReportMargin pre: -. RS \\$1 -. nr rst2man-indent\\n[rst2man-indent-level] \\n[an-margin] -. nr rst2man-indent-level +1 -.\" .rstReportMargin post: -.. -.de UNINDENT -. RE -.\" indent \\n[an-margin] -.\" old: \\n[rst2man-indent\\n[rst2man-indent-level]] -.nr rst2man-indent-level -1 -.\" new: \\n[rst2man-indent\\n[rst2man-indent-level]] -.in \\n[rst2man-indent\\n[rst2man-indent-level]]u -.. -.TH "ALF" 1 "2025-11-27" "0.2.0" "Urchlay's Atari 8-bit Tools" -.SH NAME -alf \- create Atari 8-bit ALF archives -.\" RST source for alf(1) man page. Convert with: -. -.\" rst2man.py alf.rst > alf.1 -. -.SH SYNOPSIS -.sp -alf [\fB\-\-help\fP] | [\fB\-a\fP | \fB\-o\fP ] [\fB\-t[dgz]\fP] \fIalf\-file\fP \fIfile\fP [\fIfile\fP ...] -.SH DESCRIPTION -.sp -\fBalf\fP creates \fIALF\fP archives. -.sp -\fIALF\fP is a compressed archive format similar to \fBarc\fP(1), though -not compatible with it. It was used on the Atari 8\-bit platform -beginning in the late 1980s. The Atari executables are \fBLZ.COM\fP -for the compressor and \fBDZ.COM\fP for the decompressor. \fBalf\fP is a -rewrite of \fBLZ.COM\fP for modern operating systems, with added features. -.sp -By default, the \fIalf\-file\fP is created, and the \fIfile\fPs are compressed -and added to it. If \fIalf\-file\fP already existed, it is backed up by adding -a \fB~\fP to the filename. -.sp -The \fBALF\fP file format only supports uppercase "8.3" filenames -(Atari DOS or MS\-DOS style), and does not support subdirectories. The -filenames you give will be stored in the \fBALF\fP file uppercased -and truncated to fit the 8.3 scheme. This could result in duplicate -filenames in the archive, if you\(aqre not careful. -.SH OPTIONS -.INDENT 0.0 -.TP -.B \-a -Append to \fIalf\-file\fP\&. The files are added to the end of the archive. Be -careful not to add a file with the same name as as existing member of -the archive. If \fIalf\-file\fP doesn\(aqt exist, it will be created. No backup -is made with \fB\-a\fP\&. -.UNINDENT -.\" append to alf file. -. -.INDENT 0.0 -.TP -.B \-A -Convert line endings and tabs from ASCII to ATASCII in all input -files. This will corrupt any executables or non\-text data files, -so use with caution. There is no way to autodetect text files, -unlike \fBunalf\fP\&. -.UNINDENT -.\" convert EOLs and tabs in all input files. -. -.INDENT 0.0 -.TP -.B \-h\fP,\fB \-\-help -Show built\-in help message. -.UNINDENT -.\" show this help message. -. -.INDENT 0.0 -.TP -.B \-o -Overwrite \fIalf\-file\fP if it exists; do not make a \fB~\fP backup. -.UNINDENT -.\" overwrite alf file if exists (do not create file~ backup). -. -.INDENT 0.0 -.TP -.B \fB\-td\fP -Use default \fBLZ.COM\fP timestamps (8 Dec 82 12:24). -.UNINDENT -.\" use default LZ.COM timestamps. -. -.INDENT 0.0 -.TP -.B \fB\-tu\fP -Use UTC for timestamps (default is local timezone). -.UNINDENT -.\" use UTC timestamps. -. -.INDENT 0.0 -.TP -.B \fB\-tz\fP -Use zero for timestamps (0 ??? 80 12:00a). -.UNINDENT -.\" use zero timestamps. -. -.INDENT 0.0 -.TP -.B \-V\fP,\fB \-\-version -Show \fBunalf\fP version number and exit. -.UNINDENT -.\" show version number. -. -.\" ENDOPTS -. -.SH EXIT STATUS -.INDENT 0.0 -.TP -.B 0 -Success. -.TP -.B 1 -Fatal error (I/O or bad command\-line arguments). -.UNINDENT -.SH NOTES -.SS Compatibility -.sp -This \fBalf\fP is \fIintended\fP to be 100% compatible with the original -Atari \fBLZ.COM\fP aka \fBALF.COM\fP, with the following differences: -.INDENT 0.0 -.IP \(bu 2 -There is no interactive mode. The file to create and the files to add -must be given as command\-line arguments. -.IP \(bu 2 -\fBLZ.COM\fP always appends to a file that already exists. This \fBalf\fP -overwrites (making a backup) by default, and can append with the \fB\-a\fP -option. -.IP \(bu 2 -Turning the screen off for speed makes no sense on modern operating -systems, so there\(aqs no option for that. -.UNINDENT -.sp -Note that \fBalf\fP is a complete reverse\-engineered rewrite in C, \fInot\fP -a port of the original 6502 code as \fBunalf\fP is. It\(aqs still being -tested, and may still contain bugs. -.SS File Size Limits -.sp -\fBalf\fP (and \fBLZ.COM\fP) have a 16MB file size limit. \fBuanlf\fP -actually can\(aqt handle files above about 15MB, if you compress one with -\fBalf\fP\&. Real Atari 8\-bit files are never this large anyway, so it\(aqs -a pathological case. A real Atari would take hours or even days to -compress/decompress such files, and you\(aqd have to have a hard disk and -a DOS capable of handling multi\-megabyte files... -.sp -It\(aqs also impossible to compress empty (0\-byte) files. \fBalf\fP will -skip them, if any are found. -.SS Performance -.sp -Performance is \fIhorrible\fP\&. This shouldn\(aqt be a real problem on -modern multi\-GHz CPU, especially since most Atari 8\-bit files are -small (usually under 64KB). Interestingly, it\(aqs not O(n^2), it scales -linearly, O(1): Compressing a 1.3MB text file takes 0.7 seconds on the -author\(aqs (rather modest) Intel i7 workstation, and a file 10x as large -takes approximately 10x as long (7 seconds). A 50KB file is almost -instantaneous, 0.05 seconds, which is more typical of the files you\(aqd -actually use this with. -.SS Timestamps -.sp -The date/time stamps stored in the archive are the \fBmtime\fPs of -the files (which is the same time \fBls\fP(1) shows, by default), and -your local timezone is assumed. Only a 2\-digit year is displayed by -\fBunalf\fP, but the year stored in the \fIALF\fP file doesn\(aqt have a Y2K -problem. It does, however, have a Y2108 problem... -.SH COPYRIGHT -.sp -The original AlfCrunch (\fBDZ.COM\fP and \fBLZ.COM\fP) for the Atari 8\-bit -was released into the Public Domain. \fBalf\fP contains no code from -AlfCrunch. -.sp -\fBalf\fP is released under the WTPFL: Do WTF you want with this. -.SH AUTHOR -.sp -The original AlfCrunch for the Atari 8\-bit was written by Alfred, who -can be reached via the AtariAge.com forums with the username "Alfred". -.sp -This \fBalf\fP was written by B. Watson <\fI\%urchlay@slackware.uk\fP>. -.SH SEE ALSO -.sp -\fBunalf\fP(1), \fBalfls\fP(1) -.sp -The git repository for \fBunalf\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/unalf\fP -.UNINDENT -.UNINDENT -.sp -Other Atari\-related projects by the author, including \fBbw\-atari8\-tools\fP -and \fBunmac65\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/\fP -.UNINDENT -.UNINDENT -.\" Generated by docutils manpage writer. -. diff --git a/src/alf.c b/src/alf.c deleted file mode 100644 index fb79fcf..0000000 --- a/src/alf.c +++ /dev/null @@ -1,441 +0,0 @@ -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <ctype.h> -#include <unistd.h> -#include <limits.h> -#include <sys/stat.h> -#include <time.h> - -#include "self.h" - -#ifndef u8 -#define u8 unsigned char -#define u16 unsigned short -#endif - -#define INITIAL_BITS 9 -#define MAX_BITS 12 -#define MAX_TOKENS (1 << MAX_BITS) -#define TOK_RESET 256 -#define TOK_END 257 -#define INIT_TOKEN 258 /* 256 = reset dict, 257 = token_bits++ */ - -#define MAX_INPUT_SIZE (1 << 24) - -u8 input_buf[MAX_INPUT_SIZE]; -u8 output_buf[MAX_INPUT_SIZE]; -u8 byte_tokens[256]; -unsigned int input_len, output_len, out_bitpos; - -int opt_append = 0; -int opt_overwrite = 0; -int opt_zerotime = 0; -int opt_alftime = 0; -int opt_gmtime = 0; -int opt_txtconv = 0; - -struct stat in_file_stat; - -typedef struct s_token { - u8 *start; - u16 length; -} token_t; - -token_t tokentab[MAX_TOKENS]; - -FILE *out_file, *in_file; -const char *out_filename, *in_filename; -int token_bits; -int max_token; -int curr_token; -long hdr_compsize_pos; -int in_pos; - -void init_table(void) { - int i; - - memset(tokentab, 0, sizeof(tokentab)); - - token_bits = INITIAL_BITS; - max_token = 1 << INITIAL_BITS; - curr_token = INIT_TOKEN; - - for(i = 0; i < 256; i++) { - byte_tokens[i] = (u8)i; - tokentab[i].start = &byte_tokens[i]; - tokentab[i].length = 1; - } -} - -void store_quad(int pos, unsigned long data) { - int i; - - for(i = 0; i < 4; i++) { - output_buf[pos++] = data & 0xff; - data >>= 8; - } -} - -void store_cksum(void) { - int i; - u16 cksum = 0; - - for(i = 0; i < input_len; i++) - cksum += input_buf[i]; - - output_buf[23] = cksum & 0xff; - output_buf[24] = cksum >> 8; -} - -/* examples: - foo => FOO. - toolongfile => TOOLONGF. (really should be TOOLONGF.ILE) - regular.txt => REGULAR.TXT - too.many.dots => TOO.MAN - */ -void atarify_filename(char *result) { - int i; - char name[9] = { 0 }, ext[4] = { 0 }, *p; - - p = strrchr(in_filename, '/'); - if(p) - p++; - else - p = (char *)in_filename; - - strncpy(name, p, 8); - for(i = 0; i < 8; i++) { - if(!name[i]) break; - if(name[i] == '.') { - name[i] = '\0'; - break; - } - } - - strcpy(result, name); - strcat(result, "."); - - p = strchr(in_filename, '.'); - if(p) { - p++; - strncpy(ext, p, 3); - for(p = ext; *p; p++) - if(*p == '.') *p = 0; - strcat(result, ext); - } - - for(p = result; *p; p++) - *p = toupper(*p); -} - -/* see Arcinfo for the gory details. */ -unsigned long get_msdos_date_time(void) { - time_t t = in_file_stat.st_mtime; - struct tm *tm; - int msdos_year; - u16 ms_date, ms_time; - - if(opt_gmtime) - tm = gmtime(&t); - else - tm = localtime(&t); - - msdos_year = tm->tm_year + 1900 - 1980; - - ms_date = tm->tm_mday | (tm->tm_mon << 5) | (msdos_year << 9); - ms_time = (tm->tm_min << 5) | (tm->tm_hour << 11); - return ms_date | (ms_time << 16); -} - -void create_header(void) { - char hdr_filename[13]; - unsigned long time; - - atarify_filename(hdr_filename); - printf("Crunching %s\n", hdr_filename); - - if(opt_alftime) - time = 0x03130588; - else if(opt_zerotime) - time = 0; - else - time = get_msdos_date_time(); - - output_buf[0] = 0x1a; - output_buf[1] = 0x0f; - memset(&output_buf[3], 0x20, 13); - strncat((char *)&output_buf[2], hdr_filename, 13); - output_buf[14] = 0x00; - store_quad(15, 0); /* compressed size, fill in later */ - store_quad(19, time); - store_cksum(); - store_quad(25, input_len); - output_len = 29; -} - -void update_header(void) { - store_quad(15, output_len - 29); -} - -void open_input(const char *filename) { - in_filename = filename; - if(!(in_file = fopen(in_filename, "rb"))) { - perror(in_filename); - exit(1); - } -} - -void inc_output_len(void) { - if(++output_len == MAX_INPUT_SIZE) { - fprintf(stderr, "%s: fatal: compressed file would be >16MB.\n", self); - exit(1); - } -} - -void append_bit(int bit) { - output_buf[output_len] |= (bit << (7 - out_bitpos)); - out_bitpos++; - if(out_bitpos == 8) { - out_bitpos = 0; - inc_output_len(); - } -} - -void store_token(int tok) { - int mask; - - for(mask = 1 << (token_bits - 1); mask; mask >>= 1) { - append_bit(tok & mask ? 1 : 0); - } -} - -/* match_token() is a brute-force search, which is why alf is so slow. - I'll do something smarter at some point. - search backwards, the tokens are stored with longer ones later - in the list. */ -int match_token(int pos) { - int i, len, maxlen; - token_t *t; - u8 *p, *q; - - maxlen = input_len - pos; - - for(i = curr_token - 1; i >= INIT_TOKEN; i--) { - t = &tokentab[i]; - - /* don't search past the end of the input */ - if(t->length > maxlen) continue; - - /* if the first char doesn't match, don't bother with memcmp. - this is a 5x speedup (!) */ - if(input_buf[pos] != *(t->start)) continue; - - /* this is where alf spends most of its time. - using memcmp is noticeably slower than the code below. */ - /* - if(memcmp(&input_buf[pos], t->start, t->length) == 0) - return i; - */ - - /* inline memcmp replacement of sorts. I don't think it's really - faster than memcmp(), it only seems that way because there's - no function call overhead. ~20% speedup. */ - len = t->length; - p = &input_buf[pos]; - q = t->start; - while(len) { - if(*p != *q) break; - p++; q++; - len--; - } - if(!len) return i; - } - - /* hard-coded single character tokens map to their values, no need - to search. */ - return input_buf[pos]; -} - -void make_token(int start, int end) { - /* if the token table is full, reset it. basically start over like - we would with a new file. */ - if(curr_token == max_token) { - if(token_bits == MAX_BITS) { - store_token(TOK_RESET); /* stored at the *old* token size! */ - token_bits = INITIAL_BITS; - init_table(); - return; /* since we're starting over, *don't* make a token */ - } else { - token_bits++; - } - max_token = 1 << token_bits; - } - tokentab[curr_token].start = &input_buf[start]; - tokentab[curr_token].length = end - start + 1; - curr_token++; -} - -void crunch(void) { - int new_pos; - in_pos = 0; - int token; - - out_bitpos = 0; - - store_token(TOK_RESET); - - while(in_pos < input_len) { - token = match_token(in_pos); - store_token(token); - new_pos = in_pos + tokentab[token].length; - // printf(" in_pos %d, new_pos %d\n", in_pos, new_pos); - if(new_pos < input_len) - make_token(in_pos, new_pos); - in_pos = new_pos; - } - - store_token(TOK_END); - if(out_bitpos) inc_output_len(); - update_header(); -} - -void make_backup(void) { - char bak[PATH_MAX + 2]; - strncpy(bak, out_filename, PATH_MAX); - strcat(bak, "~"); - rename(out_filename, bak); -} - -void convert_eols(void) { - int i; - - for(i = 0; i < input_len; i++) { - if(input_buf[i] == '\n') - input_buf[i] = 0x9b; - else if(input_buf[i] == '\t') - input_buf[i] = 0x7f; - } -} - -void crunch_file(const char *filename) { - init_table(); - - open_input(filename); - - /* read in entire input, couldn't do it this way on the Atari */ - input_len = fread(input_buf, 1, MAX_INPUT_SIZE - 1, in_file); - - if(!feof(in_file)) { - fprintf(stderr, "%s: %s: this file is too large; only compressing the first 16MB.\n", self, filename); - } - - if(!input_len) { - fprintf(stderr, "%s: %s: can't compress a 0-byte (empty) file, skipping.\n", self, filename); - return; - } - - if(opt_txtconv) - convert_eols(); - - output_len = 0; - fstat(fileno(in_file), &in_file_stat); /* for timestamp */ - fclose(in_file); - - memset(output_buf, 0, sizeof(output_buf)); - - create_header(); - - /* crunches the entire input to memory! */ - crunch(); - - /* don't open the output file until crunch() has succeeded once. - this avoids leaving 0-byte turds */ - if(!out_file) { - if(!opt_overwrite) make_backup(); - out_file = fopen(out_filename, opt_append ? "ab" : "wb"); - if(!out_file) { - fprintf(stderr, "%s: fatal: ", self); - perror(out_filename); - exit(1); - } - } - - fwrite(output_buf, 1, output_len, out_file); -} - -void usage(void) { - extern char *usage_msg[]; - char **line; - - puts("alf (ALF compressor) v" VERSION " by B. Watson, WTFPL."); - printf("Usage: %s [-a|-o] archive.alf file [file ...]\n", self); - puts("Options:"); - - for(line = usage_msg; *line; line++) - puts(*line); - - exit(0); -} - -int main(int argc, char **argv) { - int opt; - - set_self(argv[0]); - - if(argc < 2 || !strcmp(argv[1], "--help") || !strcmp(argv[1], "-h")) { - usage(); - } - - if(!strcmp(argv[1], "--version")) { - puts(VERSION); - exit(0); - } - - /* don't let getopt() print error message for us. */ - opterr = 0; - - while((opt = getopt(argc, argv, "aAt:oV")) != -1) { - switch(opt) { - case 'A': opt_txtconv = 1; break; - case 'a': opt_append = 1; opt_overwrite = 1; break; - case 'o': opt_overwrite = 1; opt_append = 0; break; - case 't': opt_zerotime = opt_alftime = opt_gmtime = 0; - switch(*optarg) { - case 'z': opt_zerotime = 1; break; - case 'd': opt_alftime = 1; break; - case 'u': opt_gmtime = 1; break; - default: - fprintf(stderr, "%s: fatal: invalid -t suboption '-%c' (try -h or --help)\n", self, *optarg); - exit(1); - } - break; - case 'V': puts(VERSION); exit(0); break; - default: - fprintf(stderr, "%s: fatal: invalid option '-%c' (try -h or --help)\n", self, optopt); - exit(1); - } - } - - if(optind >= argc) { - fprintf(stderr, "%s: fatal: missing alf file argument (try -h or --help)\n", self); - exit(1); - } - - out_filename = argv[optind]; - - optind++; - - if(optind >= argc) { - fprintf(stderr, "%s: fatal: no filenames (nothing to compress) (try -h or --help)\n", self); - exit(1); - } - - while(optind < argc) { - crunch_file(argv[optind++]); - } - - if(out_file) fclose(out_file); - - exit(0); -} diff --git a/src/alf.rst b/src/alf.rst deleted file mode 100644 index 3110180..0000000 --- a/src/alf.rst +++ /dev/null @@ -1,186 +0,0 @@ -.. RST source for alf(1) man page. Convert with: -.. rst2man.py alf.rst > alf.1 - -.. include:: ver.rst - -.. |date| date:: - -=== -alf -=== - -------------------------------- -create Atari 8-bit ALF archives -------------------------------- - -:Manual section: 1 -:Manual group: Urchlay's Atari 8-bit Tools -:Date: |date| -:Version: |version| - -SYNOPSIS -======== - -alf [**--help**] | [**-a** | **-o** ] [**-t[dgz]**] *alf-file* *file* [*file* ...] - -DESCRIPTION -=========== - -**alf** creates *ALF* archives. - -*ALF* is a compressed archive format similar to **arc**\(1), though -not compatible with it. It was used on the Atari 8-bit platform -beginning in the late 1980s. The Atari executables are **LZ.COM** -for the compressor and **DZ.COM** for the decompressor. **alf** is a -rewrite of **LZ.COM** for modern operating systems, with added features. - -By default, the *alf-file* is created, and the *file*\s are compressed -and added to it. If *alf-file* already existed, it is backed up by adding -a **~** to the filename. - -The **ALF** file format only supports uppercase "8.3" filenames -(Atari DOS or MS-DOS style), and does not support subdirectories. The -filenames you give will be stored in the **ALF** file uppercased -and truncated to fit the 8.3 scheme. This could result in duplicate -filenames in the archive, if you're not careful. - -OPTIONS -======= - --a - Append to *alf-file*. The files are added to the end of the archive. Be - careful not to add a file with the same name as as existing member of - the archive. If *alf-file* doesn't exist, it will be created. No backup - is made with **-a**. - -.. append to alf file. - --A - Convert line endings and tabs from ASCII to ATASCII in all input - files. This will corrupt any executables or non-text data files, - so use with caution. There is no way to autodetect text files, - unlike **unalf**. - -.. convert EOLs and tabs in all input files. - --h, --help - Show built-in help message. - -.. show this help message. - --o - Overwrite *alf-file* if it exists; do not make a **~** backup. - -.. overwrite alf file if exists (do not create file~ backup). - -**-td** - Use default **LZ.COM** timestamps (8 Dec 82 12:24). - -.. use default LZ.COM timestamps. - -**-tu** - Use UTC for timestamps (default is local timezone). - -.. use UTC timestamps. - -**-tz** - Use zero for timestamps (0 ??? 80 12:00a). - -.. use zero timestamps. - --V, --version - Show **unalf** version number and exit. - -.. show version number. - -.. ENDOPTS - -EXIT STATUS -=========== - -0 - Success. - -1 - Fatal error (I/O or bad command-line arguments). - -NOTES -===== - -Compatibility -------------- - -This **alf** is *intended* to be 100% compatible with the original -Atari **LZ.COM** aka **ALF.COM**, with the following differences: - -- There is no interactive mode. The file to create and the files to add - must be given as command-line arguments. - -- **LZ.COM** always appends to a file that already exists. This **alf** - overwrites (making a backup) by default, and can append with the **-a** - option. - -- Turning the screen off for speed makes no sense on modern operating - systems, so there's no option for that. - -Note that **alf** is a complete reverse-engineered rewrite in C, *not* -a port of the original 6502 code as **unalf** is. It's still being -tested, and may still contain bugs. - -File Size Limits ----------------- - -**alf** (and **LZ.COM**) have a 16MB file size limit. **uanlf** -actually can't handle files above about 15MB, if you compress one with -**alf**. Real Atari 8-bit files are never this large anyway, so it's -a pathological case. A real Atari would take hours or even days to -compress/decompress such files, and you'd have to have a hard disk and -a DOS capable of handling multi-megabyte files... - -It's also impossible to compress empty (0-byte) files. **alf** will -skip them, if any are found. - -Performance ------------ - -Performance is *horrible*. This shouldn't be a real problem on -modern multi-GHz CPU, especially since most Atari 8-bit files are -small (usually under 64KB). Interestingly, it's not O(n^2), it scales -linearly, O(1): Compressing a 1.3MB text file takes 0.7 seconds on the -author's (rather modest) Intel i7 workstation, and a file 10x as large -takes approximately 10x as long (7 seconds). A 50KB file is almost -instantaneous, 0.05 seconds, which is more typical of the files you'd -actually use this with. - -Timestamps ----------- - -The date/time stamps stored in the archive are the **mtime**\s of -the files (which is the same time **ls**\(1) shows, by default), and -your local timezone is assumed. Only a 2-digit year is displayed by -**unalf**, but the year stored in the *ALF* file doesn't have a Y2K -problem. It does, however, have a Y2108 problem... - -COPYRIGHT -========= - -The original AlfCrunch (**DZ.COM** and **LZ.COM**) for the Atari 8-bit -was released into the Public Domain. **alf** contains no code from -AlfCrunch. - -**alf** is released under the WTPFL: Do WTF you want with this. - -AUTHOR -====== - -The original AlfCrunch for the Atari 8-bit was written by Alfred, who -can be reached via the AtariAge.com forums with the username "Alfred". - -This **alf** was written by B. Watson <urchlay@slackware.uk>. - -SEE ALSO -======== - -**unalf**\(1), **alfls**\(1) - -.. include:: manftr.rst diff --git a/src/alfsum.1 b/src/alfsum.1 deleted file mode 100644 index 6b4ea04..0000000 --- a/src/alfsum.1 +++ /dev/null @@ -1,107 +0,0 @@ -.\" Man page generated from reStructuredText. -. -. -.nr rst2man-indent-level 0 -. -.de1 rstReportMargin -\\$1 \\n[an-margin] -level \\n[rst2man-indent-level] -level margin: \\n[rst2man-indent\\n[rst2man-indent-level]] -- -\\n[rst2man-indent0] -\\n[rst2man-indent1] -\\n[rst2man-indent2] -.. -.de1 INDENT -.\" .rstReportMargin pre: -. RS \\$1 -. nr rst2man-indent\\n[rst2man-indent-level] \\n[an-margin] -. nr rst2man-indent-level +1 -.\" .rstReportMargin post: -.. -.de UNINDENT -. RE -.\" indent \\n[an-margin] -.\" old: \\n[rst2man-indent\\n[rst2man-indent-level]] -.nr rst2man-indent-level -1 -.\" new: \\n[rst2man-indent\\n[rst2man-indent-level]] -.in \\n[rst2man-indent\\n[rst2man-indent-level]]u -.. -.TH "ALFSUM" 1 "2025-11-26" "0.2.0" "Urchlay's Atari 8-bit Tools" -.SH NAME -alfsum \- calculate ALF checksums -.\" RST source for alfsum(1) man page. Convert with: -. -.\" rst2man.py alfsum.rst > alfsum.1 -. -.SH SYNOPSIS -.sp -alfsum \fBfile\fP [\fBfile\fP ...] | [\fB\-\-help\fP | \fB\-h\fP] | [\fB\-\-version\fP | \fB\-V\fP] -.SH DESCRIPTION -.sp -\fBalfsum\fP calculates the checksums used by the \fBALF\fP compression -utility on the Atari 8\-bit platform. -.sp -To read from standard input, use \fB\-\fP as a filename. -.sp -Output lines have a tab separating the checksum and filename, for ease -of scripting (e.g. with \fBcut\fP(1) or \fBawk\fP(1)). -.sp -\fBalfsum\fP\(aqs primary use is to check files extracted from \fBALF\fP -archives against the checksums stored in the archive. The \fBunalf\fP -program already does this, but \fBalfsum\fP is a separate (much simpler) -program. It serves as a second opinion, in case you suspect a bug in -\fBunalf\fP\&. -.SH OPTIONS -.INDENT 0.0 -.TP -.B \-h\fP,\fB \-\-help -Show built\-in help message. -.TP -.B \-V\fP,\fB \-\-version -Show \fBalfsum\fP version number and exit. -.UNINDENT -.SH NOTES -.sp -The checksum algorithm is very simple: all the bytes in the file are -added together, and the low 16 bits of the result are the checksum. -.SH EXIT STATUS -.INDENT 0.0 -.TP -.B 0 -Success. -.TP -.B 1 to 254 -File I/O error count. If there are more than 254 I/O errors, 254 is returned. -.TP -.B 255 -Error in command\-line arguments: no filenames given. -.UNINDENT -.SH COPYRIGHT -.sp -\fBalfsum\fP is released under the WTPFL: Do WTF you want with this. -.SH AUTHORS -.INDENT 0.0 -.IP B. 3 -Watson <\fI\%urchlay@slackware.uk\fP> -.UNINDENT -.SH SEE ALSO -.sp -\fBalf\fP(1), \fBunalf\fP(1) -.sp -The git repository for \fBunalf\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/unalf\fP -.UNINDENT -.UNINDENT -.sp -Other Atari\-related projects by the author, including \fBbw\-atari8\-tools\fP -and \fBunmac65\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/\fP -.UNINDENT -.UNINDENT -.\" Generated by docutils manpage writer. -. diff --git a/src/alfsum.c b/src/alfsum.c deleted file mode 100644 index 2456e60..0000000 --- a/src/alfsum.c +++ /dev/null @@ -1,54 +0,0 @@ -#include "unalf.h" - -/* 20251104 bkw: implement the simple checksum used by ALF. - Dumbest possible algo: all the bytes are added together and - the bottom 16 bits of the result is the checksum. */ - -void alfsum(const char *file, FILE *f) { - int c; - unsigned long sum = 0; - - while((c = fgetc(f)) != EOF) - sum += c; - - printf("%04x\t%s\n", (unsigned int)(sum & 0xffff), file); -} - -int main(int argc, char **argv) { - int errs = 0; - char *file; - FILE *f; - - set_self(argv[0]); - - if(argc < 2 || !strcmp(argv[1], "--help") || !strcmp(argv[1], "-h")) { - printf("alfsum v" VERSION " by B. Watson. WTFPL.\n" - "Usage: %s filename [filename(s) ...]\n" - "\t(use - to read from standard input)\n", - self); - return (argc < 2) ? -1 : 0; - } - - if(!strcmp(argv[1], "-V") || !strcmp(argv[1], "--version")) { - puts(VERSION); - exit(0); - } - - while((file = *++argv)) { - if(argv[0][0] == '-' && !argv[0][1]) { - if(isatty(0)) - fprintf(stderr, "%s: reading from stdin...\n", self); - f = stdin; - file = " (stdin)"; - } else if(!(f = fopen(file, "rb"))) { - fprintf(stderr, "%s: ", self); - perror(file); - errs++; - continue; - } - alfsum(file, f); - fclose(f); - } - - return errs > 254 ? 254 : errs; -} diff --git a/src/alfsum.rst b/src/alfsum.rst deleted file mode 100644 index d613626..0000000 --- a/src/alfsum.rst +++ /dev/null @@ -1,85 +0,0 @@ -.. RST source for alfsum(1) man page. Convert with: -.. rst2man.py alfsum.rst > alfsum.1 - -.. include:: ver.rst - -.. |date| date:: - -====== -alfsum -====== - ------------------------ -calculate ALF checksums ------------------------ - -:Manual section: 1 -:Manual group: Urchlay's Atari 8-bit Tools -:Date: |date| -:Version: |version| - -SYNOPSIS -======== - -alfsum **file** [**file** ...] | [**--help** | **-h**] | [**--version** | **-V**] - -DESCRIPTION -=========== - -**alfsum** calculates the checksums used by the **ALF** compression -utility on the Atari 8-bit platform. - -To read from standard input, use **-** as a filename. - -Output lines have a tab separating the checksum and filename, for ease -of scripting (e.g. with **cut**\(1) or **awk**\(1)). - -**alfsum**'s primary use is to check files extracted from **ALF** -archives against the checksums stored in the archive. The **unalf** -program already does this, but **alfsum** is a separate (much simpler) -program. It serves as a second opinion, in case you suspect a bug in -**unalf**. - -OPTIONS -======= - --h, --help - Show built-in help message. - --V, --version - Show **alfsum** version number and exit. - -NOTES -===== - -The checksum algorithm is very simple: all the bytes in the file are -added together, and the low 16 bits of the result are the checksum. - -EXIT STATUS -=========== - -0 - Success. - -1 to 254 - File I/O error count. If there are more than 254 I/O errors, 254 is returned. - -255 - Error in command-line arguments: no filenames given. - -COPYRIGHT -========= - -**alfsum** is released under the WTPFL: Do WTF you want with this. - -AUTHORS -======= - -B. Watson <urchlay@slackware.uk> - -SEE ALSO -======== - -**alf**\(1), **unalf**\(1) - -.. include:: manftr.rst diff --git a/src/alfusage.c b/src/alfusage.c deleted file mode 100644 index 98eb6f2..0000000 --- a/src/alfusage.c +++ /dev/null @@ -1,11 +0,0 @@ -const char *usage_msg[] = { - " -a: append to alf file.", - " -A: convert EOLs and tabs in all input files.", - " -h: show this help message.", - " -o: overwrite alf file if exists (do not create file~ backup).", - " -td: use default LZ.COM timestamps.", - " -tu: use UTC timestamps.", - " -tz: use zero timestamps.", - " -V: show version number.", - (const char*)0 -}; diff --git a/src/asmcode.c b/src/asmcode.c deleted file mode 100644 index 831ba1c..0000000 --- a/src/asmcode.c +++ /dev/null @@ -1,650 +0,0 @@ -#include "unalf.h" -#include "addrs.h" - -extern void chksum_err(void); -extern void truncated_err(void); -extern void stack_underrun(void); -extern void stack_overrun(void); - -void uncrunch_file(void) { - lda_i(0x00); - sta(L71AF); - sta(L71B0); - sta(outbuf_len_l); - sta(outbuf_len_h); - sta(L71B6); - sta(L71B7); - sta(L718C); - sta(cksum_l); - sta(cksum_h); - lda_i(0x09); - sta(shift_counter); - lda_i(0x00); - sta(L71AD); - lda_i(0x02); - sta(L71AE); - lda_i(0x00); - sta(stackptr_l); - lda_i(0x60); - sta(stackptr_h); - jsr(setup_io_bufs); - ldx_i(0x10); - lda(inbuf_adr_l); - sta(buf_adr_l); - lda(inbuf_adr_h); - sta(buf_adr_h); - lda(inbuf_len_l); - sta(buf_len_l); - lda(inbuf_len_h); - sta(buf_len_h); - jsr(L7A19); - sty(L718C); - jsr(L79E7); - lda(buf_len_l); - ora(buf_len_h); - bne(L75B1); - rts(); - -L75B1: - jsr(L76D0); - lda(acc16_h); - cmp_i(0x01); - bne(uncrunch_blk); - lda(acc16_l); - cmp_i(0x01); - bne(uncrunch_blk); - jsr(write_output); - lda(alf_hdr_cksum_l); - cmp(cksum_l); - bne(print_emsg_checksum); - lda(alf_hdr_cksum_h); - cmp(cksum_h); - beq(cksum_ok); -print_emsg_checksum: - chksum_err(); /* does not exit */ -cksum_ok: - rts(); - -uncrunch_blk: - lda(acc16_l); - cmp_i(0x00); - bne(L760B); - lda(acc16_h); - cmp_i(0x01); - bne(L760B); - jsr(init_counters); - jsr(L76D0); - lda(acc16_l); - sta(L717D); - sta(L7179); - lda(acc16_h); - sta(L717E); - sta(L717A); - lda(acc16_l); - sta(L7177); - sta(L7178); - jsr(store_outbyte); - jmp(L75B1); - -L760B: - lda(acc16_l); - sta(L717D); - sta(L7175); - lda(acc16_h); - sta(L717E); - sta(L7176); - lda(acc16_h); - cmp(L717C); - bcc(L7641); - lda(acc16_l); - cmp(L717B); - bcc(L7641); - lda(L7179); - sta(acc16_l); - sta(L717D); - lda(L717A); - sta(acc16_h); - sta(L717E); - lda(L7178); - sta(acc16_l); - jsr(push_acc16); - -L7641: - lda(L717E); - beq(L7670); - lda(L717D); - sta(zp_b4); - lda(L717E); - sta(zp_b5); - jsr(L7899); - ldy_i(0x02); - lda_ind_y(zp_b0); - sta(acc16_l); - jsr(push_acc16); - ldy_i(0x00); - lda_ind_y(zp_b0); - sta(acc16_l); - sta(L717D); - iny(); - lda_ind_y(zp_b0); - sta(acc16_h); - sta(L717E); - jmp(L7641); - -L7670: - lda(L717D); - sta(acc16_l); - sta(L7178); - sta(L7177); - lda(L717E); - sta(acc16_h); - jsr(push_acc16); -L7683: - lda(L71AF); - ora(L71B0); - beq(L7694); - jsr(pop_acc16); - jsr(store_outbyte); - jmp(L7683); - -L7694: - jsr(L78C2); - lda(L7175); - sta(acc16_l); - sta(L7179); - lda(L7176); - sta(acc16_h); - sta(L717A); - lda(L717B); - sta(zp_b4); - lda(L717C); - sta(zp_b5); - cmp(L71AE); - bcc(L76CD); - lda(zp_b4); - cmp(L71AD); - bcc(L76CD); - lda(shift_counter); - cmp_i(0x0C); - beq(L76CD); - inc(shift_counter); - asl(L71AD); - rol(L71AE); -L76CD: - jmp(L75B1); -} - -void L76D0(void) { -L76D0: - lda(L71B6); - sta(zp_b8); - lda(L71B7); - sta(zp_b9); - ldx_i(0x02); -L76DC: - lsr(zp_b9); - ror(zp_b8); - dex(); - bpl(L76DC); - lda(zp_b8); - sta(L71AA); - lda(zp_b9); - sta(L71AB); - lda(inbuf_len_l); - sec(); - sbc(zp_b8); - sta(zp_bc); - lda(inbuf_len_h); - sbc(zp_b9); - sta(zp_bd); - lda(zp_bd); - bne(L770F); - lda(zp_bc); - cmp_i(0x03); - bcs(L770F); - ldx(L718C); - bpl(L771C); - cmp_i(0x02); - bcc(L7712); -L770F: - jmp(L779B); -/* ---------------------------------------------------------------------------- */ -L7712: - truncated_err(); /* exits! */ -/* ---------------------------------------------------------------------------- */ -L771C: - tay(); - dey(); - ldx(inbuf_adr_l); - stx(zp_be); - ldx(inbuf_adr_h); - stx(zp_bf); - lda(inbuf_adr_l); - clc(); - adc(zp_b8); - sta(zp_b8); - lda(inbuf_adr_h); - adc(zp_b9); - sta(zp_b9); -L7737: - lda_ind_y(zp_b8); - sta_ind_y(zp_be); - dey(); - bpl(L7737); - lda(inbuf_len_l); - sec(); - sbc(zp_bc); - sta(buf_len_l); - lda(inbuf_len_h); - sbc_i(0x00); - sta(buf_len_h); - lda(inbuf_adr_l); - clc(); - adc(zp_bc); - sta(buf_adr_l); - lda(inbuf_adr_h); - adc_i(0x00); - sta(buf_adr_h); - ldx_i(0x10); - jsr(L7A19); - sty(L718C); - bpl(L7771); - cpy_i(0x88); - beq(L7771); - // jmp(cleanup_and_exit); - exit(0); -/* ---------------------------------------------------------------------------- */ -L7771: - jsr(L79E7); - lda(L71AA); - sta(zp_b8); - lda(L71AB); - sta(zp_b9); - ldx_i(0x02); -L7780: - asl(zp_b8); - rol(zp_b9); - dex(); - bpl(L7780); - lda(L71B6); - sec(); - sbc(zp_b8); - sta(L71B6); - lda(L71B7); - sbc(zp_b9); - sta(L71B7); - jmp(L76D0); -/* ---------------------------------------------------------------------------- */ -L779B: - lda(zp_b8); - sta(zp_bc); - clc(); - adc(inbuf_adr_l); - sta(zp_b8); - lda(zp_b9); - sta(zp_bd); - adc(inbuf_adr_h); - sta(zp_b9); - ldy_i(0x00); - lda(L71B6); - and_i(0x07); - bne(L77E1); - lda_ind_y(zp_b8); - sta(acc16_h); - iny(); - lda_ind_y(zp_b8); - sta(acc16_l); -L77C0: - lda_i(0x0F); - sec(); - sbc(shift_counter); - tax(); -L77C7: - lsr(acc16_h); - ror(acc16_l); - dex(); - bpl(L77C7); - lda(shift_counter); - clc(); - adc(L71B6); - sta(L71B6); - lda_i(0x00); - adc(L71B7); - sta(L71B7); - rts(); - -/* ---------------------------------------------------------------------------- */ -L77E1: - ldx_i(0x02); -L77E3: - lda_ind_y(zp_b8); - sta_abs_x(L7189); - iny(); - dex(); - bpl(L77E3); - lda(L71B6); - and_i(0x07); - tax(); - dex(); -L77F3: - asl(L7189); - rol(L718A); - rol(L718B); - dex(); - bpl(L77F3); - lda(L718A); - sta(acc16_l); - lda(L718B); - sta(acc16_h); - jmp(L77C0); -} - -void L7A19(void) { - lda(alf_hdr_compsize2); - ora(alf_hdr_compsize3); - beq(L7A28); -L7A21: - jsr(readblock); - Y = 1; /* CIO would set this */ - jsr(L7A5D); - rts(); -L7A28: - lda(alf_hdr_compsize1); - cmp(buf_len_h); - bcc(L7A40); - beq(L7A34); - bcs(L7A21); -L7A34: - lda(alf_hdr_compsize0); - cmp(buf_len_l); - bcc(L7A40); - beq(L7A40); - bcs(L7A21); -L7A40: - lda(alf_hdr_compsize0); - sta(buf_len_l); - lda(alf_hdr_compsize1); - sta(buf_len_h); - lda(buf_len_l); - ora(buf_len_h); - beq(L7A57); - jsr(readblock); - Y = 1; /* CIO would set this */ -L7A57: - ldy_i(0x88); - jsr(L7A5D); - rts(); -} - -void L7A5D(void) { - lda(alf_hdr_compsize0); - sec(); - sbc(buf_len_l); - sta(alf_hdr_compsize0); - lda(alf_hdr_compsize1); - sbc(buf_len_h); - sta(alf_hdr_compsize1); - lda(alf_hdr_compsize2); - sbc_i(0x00); - sta(alf_hdr_compsize2); - rts(); -} - -void setup_io_bufs(void) { - lda(MEMTOP_lo); - sec(); - sbc_i(0xDC); - sta(inbuf_len_l); - lda(MEMTOP_hi); - sbc_i(0x7F); - sta(inbuf_len_h); - lsr(inbuf_len_h); - ror(inbuf_len_l); - lda(inbuf_len_h); - cmp_i(0x1F); - bcc(L79A0); - lda_i(0x00); - sta(inbuf_len_l); - lda_i(0x1F); - sta(inbuf_len_h); -L79A0: - lda_i(0xDC); - sta(inbuf_adr_l); - lda_i(0x7F); - sta(inbuf_adr_h); - lda_i(0xDC); - clc(); - adc(inbuf_len_l); - sta(outbuf_adr_l); - sta(outbuf_ptr_l); - lda_i(0x7F); - adc(inbuf_len_h); - sta(outbuf_adr_h); - sta(outbuf_ptr_h); - rts(); -} - -void init_counters(void) { - lda_i(0x09); - sta(shift_counter); - lda_i(0x00); - sta(L71AD); - lda_i(0x02); - sta(L71AE); - lda_i(0x02); - sta(L717B); - lda_i(0x01); - sta(L717C); - rts(); -} - -/* save decrunched byte in outbuf, update checksum, write outbuf if full */ -void store_outbyte(void) { - ldy_i(0x00); - lda(acc16_l); - sta_ind_y(outbuf_ptr_l); - clc(); - adc(cksum_l); - sta(cksum_l); - lda_i(0x00); - adc(cksum_h); - sta(cksum_h); - inc(outbuf_ptr_l); - bne(out_ptr_hi_ok); - inc(outbuf_ptr_h); -out_ptr_hi_ok: - inc(outbuf_len_l); - bne(out_len_hi_ok); - inc(outbuf_len_h); -out_len_hi_ok: - lda(outbuf_len_h); - cmp(inbuf_len_h); - bcc(outbuf_not_full); - lda(outbuf_len_l); - cmp(inbuf_len_l); - bcc(outbuf_not_full); - lda(outbuf_adr_l); - sta(buf_adr_l); - lda(outbuf_adr_h); - sta(buf_adr_h); - lda(outbuf_len_l); - sta(buf_len_l); - lda(outbuf_len_h); - sta(buf_len_h); - ldx_i(0x30); - jsr(writeblock); - bpl(init_outbuf); /* writeblock() never sets N flag, so always branch */ - chksum_err(); /* does not exit */ -/* ---------------------------------------------------------------------------- */ -init_outbuf: - lda(outbuf_adr_l); - sta(outbuf_ptr_l); - lda(outbuf_adr_h); - sta(outbuf_ptr_h); - lda_i(0x00); - sta(outbuf_len_l); - sta(outbuf_len_h); -outbuf_not_full: - rts(); -} - - -/* ---------------------------------------------------------------------------- */ -/* push 2 byte 'register' to software stack */ -void push_acc16(void) { - ldy_i(0x00); - lda(acc16_l); - sta_ind_y(stackptr_l); - iny(); - lda(acc16_h); - sta_ind_y(stackptr_l); - lda(stackptr_l); - clc(); - adc_i(0x02); - sta(stackptr_l); - bcc(L790C); - inc(stackptr_h); -L790C: - lda(stackptr_h); - cmp_i(0x70); - bcc(L791C); - stack_overrun(); /* exits! */ -/* ---------------------------------------------------------------------------- */ -L791C: - inc(L71AF); - bne(L7924); - inc(L71B0); -L7924: - rts(); -} - -void pop_acc16(void) { -/* pop 2 byte 'register' from software stack */ - lda(stackptr_l); - sec(); - sbc_i(0x02); - sta(stackptr_l); - lda(stackptr_h); - sbc_i(0x00); - sta(stackptr_h); - ldy_i(0x00); - lda_ind_y(stackptr_l); - sta(acc16_l); - iny(); - lda_ind_y(stackptr_l); - sta(acc16_h); - lda(stackptr_h); - cmp_i(0x60); - bcs(L796C); - stack_underrun(); /* exits! */ -/* ---------------------------------------------------------------------------- */ -L796C: - lda(L71AF); - bne(L7974); - dec(L71B0); -L7974: - dec(L71AF); - rts(); -} - -void L79E7(void) { - lda(buf_adr_l); - clc(); - adc(buf_len_l); - sta(zp_be); - lda(buf_adr_h); - adc(buf_len_h); - sta(zp_bf); - ldx_i(0x02); - bne(L7A0A); -L79FC: - ldy_i(0x00); - tya(); - sta_ind_y(zp_be); - inc(zp_be); - bne(L7A07); - inc(zp_bf); -L7A07: - dex(); - bmi(L7A18); -L7A0A: - lda(zp_bf); - cmp(outbuf_adr_h); - bcc(L79FC); - lda(zp_be); - cmp(outbuf_adr_l); - bcc(L79FC); -L7A18: - rts(); -} - -void L7899(void) { - lda(zp_b4); - sta(zp_b0); - lda(zp_b5); - sta(zp_b1); - asl(zp_b0); - rol(zp_b1); - lda(zp_b0); - clc(); - adc(zp_b4); - sta(zp_b0); - lda(zp_b1); - adc(zp_b5); - sta(zp_b1); - lda(zp_b0); - clc(); - adc(L7181); - sta(zp_b0); - lda(zp_b1); - adc(L7182); - sta(zp_b1); - rts(); -} - -void L78C2(void) { - lda(L717B); - sta(zp_b4); - lda(L717C); - sta(zp_b5); - jsr(L7899); - lda(L7177); - sta(acc16_l); - ldy_i(0x02); - sta_ind_y(zp_b0); - lda(L7179); - sta(acc16_l); - lda(L717A); - sta(acc16_h); - ldy_i(0x00); - lda(acc16_l); - sta_ind_y(zp_b0); - iny(); - lda(acc16_h); - sta_ind_y(zp_b0); - inc(L717B); - bne(L78F5); - inc(L717C); -L78F5: - rts(); -} - -void write_output(void) { - lda(outbuf_len_l); - ora(outbuf_len_h); - bne(have_output); - rts(); -/* ---------------------------------------------------------------------------- */ -have_output: - lda(outbuf_adr_l); - sta(buf_adr_l); - lda(outbuf_adr_h); - sta(buf_adr_h); - lda(outbuf_len_l); - sta(buf_len_l); - lda(outbuf_len_h); - sta(buf_len_h); - ldx_i(0x30); - jsr(writeblock); - rts(); -} diff --git a/src/extract.c b/src/extract.c deleted file mode 100644 index 305cd4a..0000000 --- a/src/extract.c +++ /dev/null @@ -1,197 +0,0 @@ -#include "unalf.h" -#include "addrs.h" - -int bad_checksum, bad_checksum_count = 0; -int new_file = 0; -unsigned int bytes_written = 0; -char *out_filename; - -void dpoke(int addr, u16 value) { - mem[addr] = value & 0xff; - mem[addr + 1] = value >> 8; -} - -u16 dpeek(int addr) { - return mem[addr] | (mem[addr + 1] << 8); -} - -static void bad_atari_filename(const char *msg) { - char fn[50] = ""; - char xbuf[5]; - int i; - u8 c; - - for(i = 0; (c = (u8)out_filename[i]) && i < 12; i++) { - if(c < ' ' || c > '|') { - /* not printable, insert a hex escape */ - sprintf(xbuf, "$%02X", c); - strcat(fn, xbuf); - } else { - strncat(fn, (char *)&c, 1); - } - } - - fprintf(stderr, "%s: bad Atari filename \"%s\": %s\n", self, fn, msg); -} - -/* note to self: it's tempting to use isalpha(), isprint(), etc - from ctype.h... but those are locale-aware. we want ASCII-only - versions. */ -static void sanity_check_filename(void) { - u8 c; - unsigned int i, bad = 0, dots = 0, uscore = 0; - - c = out_filename[0]; - if(!c) { - bad_atari_filename("empty! corrupt ALF file?"); - return; - } else if(c < 'A' || c > 'Z') { - bad_atari_filename("does not begin with A-Z"); - } - - for(i = 0; (c = out_filename[i]) && i < 12; i++) { - if(c >= 'A' && c <= 'Z') - continue; - if(c >= '0' && c <= '9') - continue; - if(c == '_') { - uscore++; - continue; - } - if(c == '.') { - dots++; - continue; - } - bad++; - } - - if(!dots) { - bad_atari_filename("no \".\""); - } else if(dots > 1) { - bad_atari_filename("more than one \".\""); - } - - if(bad) - bad_atari_filename("invalid characters. corrupt ALF file?"); - else if(uscore) - fprintf(stderr, "%s: filename has underscore, OK on Sparta/MyDOS, not Atari DOS 2.x\n", self); -} - -void fix_filename(void) { - char *p; - - if(!out_filename) return; - - if(strlen(out_filename) > 12) { - fprintf(stderr, "%s: filename in ALF header not null-terminated, fixing.\n", self); - out_filename[12] = '\0'; - } - - sanity_check_filename(); - - if(opts.lowercase) { - for(p = out_filename; *p; p++) - *p = tolower(*p); - } - - if(!opts.keepdot) { - for(p = out_filename; *p; p++) - if(p[0] == '.' && !p[1]) - *p = '\0'; - } -} - -void make_backup(void) { - /* up to 12-char FILENAME.EXT, plus a ~, plus null terminator = 14 */ - char backup[14]; - - strncpy(backup, out_filename, 13); - strncat(backup, "~", 13); - - /* silently ignore errors! */ - rename(out_filename, backup); -} - -void extract_alf(void) { - /* get ready to call fake 6502 stuff. set up memory like the Atari. */ - dpoke(MEMTOP, 0xbc1f); - - while(read_alf_header()) { - out_filename = (char *)(mem + alf_hdr_filename); - - fix_filename(); - - if(!file_wanted(out_filename)) { - if(fseek(in_file, getquad(alf_hdr_compsize0), SEEK_CUR) != 0) { - fprintf(stderr, "%s: fatal: seek failed on input!\n", self); - exit(1); - } - out_filename = 0; - continue; - } - - if(!opts.quiet) { - printf("%s %s\n", opts.testonly ? "Testing" : "Uncrunching", out_filename); - } - - if(opts.extract_to_stdout) { - out_file = stdout; - } else { - char *realname = out_filename; - - if(opts.testonly) { - out_filename = "/dev/null"; - } else if(!opts.overwrite) { - make_backup(); - } - - if(!(out_file = fopen(out_filename, "wb"))) { - fprintf(stderr, "%s: fatal: ", self); - perror(out_filename); - exit(1); - } - - out_filename = realname; - } - - bad_checksum = bytes_written = 0; - new_file = 1; - uncrunch_file(); - if(bad_checksum) bad_checksum_count++; - if(bytes_written != getquad(alf_hdr_origsize0)) - fprintf(stderr, "%s: %s should be %u bytes, but extracted to %u.\n", - self, out_filename, getquad(alf_hdr_origsize0), bytes_written); - - if(!opts.extract_to_stdout) fclose(out_file); - out_filename = 0; - } - - if(opts.testonly && !opts.quiet) { - if(bad_checksum_count) - printf("%d file%s with bad checksum!\n", - bad_checksum_count, - bad_checksum_count == 1 ? "" : "s"); - else - printf("All files OK.\n"); - } -} - -void chksum_err(void) { - bad_checksum = 1; - fprintf(stderr, "%s: checksum error on %s\n", self, out_filename); -} - -void truncated_err(void){ - fprintf(stderr, "%s: fatal: compressed data is truncated, EOF before end marker\n", self); - exit(1); -} - -void stack_underrun(void){ - fprintf(stderr, "%s: fatal: stack underrun\n", self); - exit(1); -} - -void stack_overrun(void){ - fprintf(stderr, "%s: fatal: stack overrun\n", self); - exit(1); -} diff --git a/src/glob.c b/src/glob.c deleted file mode 100644 index c816964..0000000 --- a/src/glob.c +++ /dev/null @@ -1,115 +0,0 @@ -#include "unalf.h" - -/* this is an Atari DOS or MS-DOS style match: "*.*" matches everything, - even files with no extension (no dot). "*" by itself matches only - files with no extension, as does "*." - matching is case-insensitive. */ - -static void split_filename(const char *fname, char *name, const char **ext) { - int i; - - for(i = 0; i < 8; i++) { - if(fname[i] == '.' || fname[i] == '\0') - break; - name[i] = fname[i]; - } - name[i] = '\0'; - - *ext = strchr(fname, '.'); - if(*ext) { - (*ext)++; - if(!**ext) *ext = 0; - } - - // fprintf(stderr, "split %s into: '%s' and '%s'\n", - // fname, name, (*ext ? *ext : "<none>")); -} - -static int match_part(const char *pat, const char *arg) { - char p; - - if(arg && arg[0] == '\0') arg = 0; - - if(!pat) { - if(arg) - return 0; - else - return 1; - } - - while((p = toupper(*pat++))) { - // fprintf(stderr, "p == %c\n", p); - switch(p) { - case '*': return 1; - case '?': - if(!arg || *arg == '\0') - return 0; - arg++; - break; - default: - if(!arg || toupper(*arg) != p) - return 0; - arg++; - break; - } - } - - return *arg ? 0 : 1; -} - -int globmatch(const char *pat, const char *arg) { - char npat[9], name[9]; - const char *epat = 0, *ext = 0; - - split_filename(pat, npat, &epat); - split_filename(arg, name, &ext); - - return match_part(npat, name) && match_part(epat, ext); -} - -int file_wanted(const char *filename) { - int i; - char **ig; - - /* if excluded, always return false */ - for(i = 0; i < exclude_count; i++) { - if(globmatch(exclude_globs[i], filename)) - return 0; - } - - /* if no include globs, always match (as though *.* were given) */ - if(!*include_globs) - return 1; - - ig = (char **)include_globs; - while(*ig) { - if(globmatch(*ig, filename)) - return 1; - ig++; - } - - return 0; -} - -/* for testing: */ -#if 0 -int main(int argc, char **argv) { - int matched; - const char *pattern; - - if(argc < 3) { - fprintf(stderr, "usage: %s <glob-pattern> <filename> ...\n", argv[0]); - return 1; - } - - pattern = argv[1]; - argv++; - - while(*++argv) { - matched = globmatch(pattern, *argv); - printf("%s %s %s\n", *argv, matched ? "matches" : "DOES NOT match", pattern); - } - - return 0; -} -#endif diff --git a/src/io.c b/src/io.c deleted file mode 100644 index 53bc0dd..0000000 --- a/src/io.c +++ /dev/null @@ -1,163 +0,0 @@ -#include "unalf.h" -#include "addrs.h" - -static int headers_read = 0; -static int convert_eols = 0; - -static void die_arc(void) { - fprintf(stderr, "%s: fatal: this is an ARC file, not ALF\n", self); - exit(1); -} - -static void die_not_alf(void) { - fprintf(stderr, "%s: fatal: not an ALF file\n", self); - exit(1); -} - -/* truncating the file by name could be a race condition, but I don't - think it's going to be a real-world problem for anyone. */ -static void eof_junk(long pos) { - fprintf(stderr, "%s: junk at EOF (%s)\n", self, opts.fixjunk ? "removing" : "ignoring"); - if(opts.fixjunk) { - if(truncate(in_filename, pos) < 0) { - fprintf(stderr, "%s: could not remove junk: ", self); - perror(in_filename); - } - } -} - -static void check_hdr_size(const char *name, unsigned long size) { - const char *desc; - - /* fits on a double-density disk? */ - if(size < 184320) - return; - - /* >= 16MB files are impossible because the decrunch algorithm - ignores the high byte of the 4-byte length. */ - if(size >= 16777216L) - desc = "impossibly large (>=16MB)"; - /* >1MB files are possible (e.g. with a hard drive on SpartaDOS X) - but exceedingly rare in the Atari world. */ - else if(size > 1048576L) - desc = "suspiciously large (>1MB)"; - else - desc = "too large for a floppy disk (>180KB)"; - - fprintf(stderr, "%s: header #%d %s size is %s.\n", - self, headers_read, name, desc); -} - -static void sanity_check_header(void) { - check_hdr_size("original", getquad(alf_hdr_origsize0)); - check_hdr_size("compressed", getquad(alf_hdr_compsize0)); -} - -/* return 1 if a header is read, 0 if not */ -int read_alf_header(void) { - u8 h1, h2; - int bytes; - long read_pos; - - read_pos = ftell(in_file); - - bytes = fread(mem + alf_header, 1, 29, in_file); - - if(!bytes) { - if(headers_read) - return 0; - else - die_not_alf(); - } else if(bytes < 29) { - if(headers_read) { - eof_junk(read_pos); - return 0; - } else { - die_not_alf(); - } - } - - h1 = mem[alf_header]; - h2 = mem[alf_hdr_sig]; - - if(h1 == 0x1a) { - if(h2 < 0x0f) die_arc(); - if(h2 == 0x0f) { - headers_read++; - sanity_check_header(); - return 1; /* signature matches */ - } - } - - if(headers_read) - eof_junk(read_pos); - else - die_not_alf(); - - return 0; -} - -/* read buf_len_l/h bytes into buf_adr_l/h, then store the number - of bytes actually read in buf_len_l/h. TODO: what about EOF? */ -void readblock(void) { - int bytes, len, bufadr; - u8 *buf; - - bufadr = dpeek(buf_adr_l); - buf = mem + bufadr; - len = dpeek(buf_len_l); - - // fprintf(stderr, "readblock, bufadr = $%04x, len = $%04x\n", bufadr, len); - - bytes = fread(buf, 1, len, in_file); - dpoke(buf_len_l, bytes); -} - -static int is_printable(u8 c) { - return (c == 0x9b || (c >= ' ' && c <= 124)); -} - -static int is_text_file(u8 *buf) { - return is_printable(buf[0]) && is_printable(buf[1]); -} - -/* mirror of readblock(), plus EOL conversion if needed. With -a, - a file is considered text if its first 2 bytes are printable ATASCII, - including EOLs. With -aa, all files are converted. */ -void writeblock(void) { - int i, bytes, len, bufadr; - u8 *buf; - - bufadr = dpeek(buf_adr_l); - buf = mem + bufadr; - len = dpeek(buf_len_l); - - if(new_file) { - if(opts.txtconv > 1) { - convert_eols = 1; - } else if(opts.txtconv == 1 && len > 1) { - convert_eols = is_text_file(buf); - } else { - convert_eols = 0; - } - } - new_file = 0; - - if(convert_eols) { - for(i = 0; i < len; i++) { - if(buf[i] == 0x9b) buf[i] = '\n'; - if(buf[i] == 0x7f) buf[i] = '\t'; - } - } - - // fprintf(stderr, "writeblock, bufadr = $%04x, len = $%04x\n", bufadr, len); - - bytes = fwrite(buf, 1, len, out_file); - if(bytes < 0) { - fprintf(stderr, "%s: fatal: ", self); - perror("write failed"); /* TODO: out_filename */ - exit(1); - } - bytes_written += bytes; - dpoke(buf_len_l, bytes); -} diff --git a/src/listalf.c b/src/listalf.c deleted file mode 100644 index 8082d11..0000000 --- a/src/listalf.c +++ /dev/null @@ -1,125 +0,0 @@ -#include "unalf.h" -#include "addrs.h" - -static const char *monthnames[] = { - "???", - "Jan", "Feb", "Mar", "Apr", - "May", "Jun", "Jul", "Aug", - "Sep", "Oct", "Nov", "Dec", - "???", "???", "???", -}; - -u16 getword(int offs) { - return mem[offs] | (mem[offs + 1] << 8); -} - -unsigned int getquad(int offs) { - return getword(offs) | ((getword(offs + 2) << 16)); -} - -/* see Arcinfo for details */ -void format_msdos_time(char *buf) { - u16 t, hour, min; - char ampm; - - t = getword(alf_hdr_time0); - - /* don't bother with seconds (arc doesn't print them either) */ - hour = t >> 11; - min = (t >> 5) & 0x3f; - - /* midnight is 12:00a (unlike arc, which uses 0:00a). noon - is 12:00p (same as arc). could just use a 24h clock like - unzip does, but AM/PM are more intuitive to me. */ - ampm = (hour > 11 ? 'p' : 'a'); - hour %= 12; - - /* midnight and noon print as 12, not 0 */ - if(hour == 0) hour = 12; - - snprintf(buf, 7, "%2d:%02d%c", hour, min, ampm); -} - -/* see Arcinfo for details */ -void format_msdos_date(char *buf) { - u16 d, year, month, day; - - d = getword(alf_hdr_date0); - - /* year actually ranges 1980 to 2107... */ - year = (d >> 9) + 1980; - year %= 100; /* ...but only print last 2 digits */ - - /* valid months range 1 to 12. values 0, 13, 14, 15 are possible - but invalid (print as ???) */ - month = (d >> 5) & 0x0f; - - /* valid day range is 1 to 31. 0 is invalid, print as-is. */ - day = d & 0x1f; - - snprintf(buf, 10, "%2d %3s %02d", day, monthnames[month], year); -} - -/* small files may be "compressed" larger than the original, so this - has to return a signed type. */ -static int comp_percent(unsigned int orig, unsigned int comp) { - if(orig == 0) return 0; /* no division by zero please */ - return 100 - (int)((float)comp / (float)orig * 100.0); -} - -/* output similar to "arc v", except we omit the compression type column - since there's only one type. also, don't call the checksum a CRC, it - isn't. */ -void list_alf(void) { - unsigned int c = 0, orig_size, comp_size, total_osize = 0, total_csize = 0; - char buf[100]; - extern char *out_filename; - - if(opts.verbose_list) { - puts("Name Length Size now Comp Date Time CkSum"); - puts("============ ======== ======== ==== ========= ====== ====="); - } - - while(read_alf_header()) { - c++; - orig_size = getquad(alf_hdr_origsize0); - comp_size = getquad(alf_hdr_compsize0); - out_filename = (char *)(mem + alf_hdr_filename); - - if(!opts.verbose_list) - fix_filename(); - - total_osize += orig_size; - total_csize += comp_size; - - if(opts.verbose_list) { - printf("%-12s ", out_filename); - printf("%8d ", orig_size); - printf("%8d ", comp_size); - printf("%3d%% ", comp_percent(orig_size, comp_size)); - format_msdos_date(buf); - printf("%9s ", buf); - format_msdos_time(buf); - printf("%6s ", buf); - printf(" %04x", getword(alf_hdr_cksum_l)); - putchar('\n'); - } else { - if(file_wanted(out_filename)) - printf("%s\n", out_filename); - } - - if(fseek(in_file, comp_size, SEEK_CUR) != 0) { - fprintf(stderr, "%s: fatal: seek failed on input!\n", self); - exit(1); - } - } - - if(opts.verbose_list) { - fputs(" ==== ======== ======== ====\nTotal ", stdout); - printf("%4d ", c); - printf("%8d ", total_osize); - printf("%8d ", total_csize); - printf("%3d%% ", comp_percent(total_osize, total_csize)); - putchar('\n'); - } -} diff --git a/src/manftr.rst b/src/manftr.rst deleted file mode 100644 index bb4c7ff..0000000 --- a/src/manftr.rst +++ /dev/null @@ -1,8 +0,0 @@ -The git repository for **unalf**: - - https://slackware.uk/~urchlay/repos/unalf - -Other Atari-related projects by the author, including **bw-atari8-tools** -and **unmac65**: - - https://slackware.uk/~urchlay/repos/ diff --git a/src/mkusage.pl b/src/mkusage.pl deleted file mode 100644 index 1c6a1bf..0000000 --- a/src/mkusage.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -w - -print "const char *usage_msg[] = {\n"; - -while(<>) { - chomp; - next if /^---/; - last if /^\.\. ENFOPTS/; - if(/^(?:\*\*)?(-[-a-zA-Z\d]+)/) { - $opt = $1; - next; - } - if($opt && (/^\.\. (.*)$/)) { - print "\t\" $opt: $1\",\n"; - undef $opt; - } -} - -print "\t(const char*)0\n};\n"; diff --git a/src/opts.c b/src/opts.c deleted file mode 100644 index 416163c..0000000 --- a/src/opts.c +++ /dev/null @@ -1,78 +0,0 @@ -#include "unalf.h" - -#define OPTIONS "aefklLopqtvVd:x:" - -/* uncomment to test exclude/include glob lists */ -// #define DEBUG_GLOBS - -static void add_exclude(const char *glob) { - if(exclude_count == MAX_EXCLUDES) - return; - exclude_globs[exclude_count++] = glob; -} - -#ifdef DEBUG_GLOBS -static void show_globs(void) { - int i; - - printf("Include globs:\n"); - while(*include_globs) - printf(" + %s\n", *include_globs++); - printf("Exclude globs:\n"); - for(i = 0; i < exclude_count; i++) - printf(" - %s\n", exclude_globs[i]); - exit(0); -} -#endif - -void parse_opts(int argc, char * const *argv) { - int opt; - char **ig; - - /* don't let getopt() print error message for us. */ - opterr = 0; - - while((opt = getopt(argc, argv, OPTIONS)) != -1) { - switch(opt) { - case 'a': opts.txtconv++; break; - case 'e': opts.listonly = opts.testonly = 0; break; - case 'k': opts.keepdot++; break; - case 'f': opts.fixjunk++; opts.testonly = 1; opts.listonly = 0; opts.quiet = 1; break; - case 'l': opts.listonly++; opts.testonly = 0; break; - case 'L': opts.lowercase++; break; - case 'o': opts.overwrite++; break; - case 'p': opts.extract_to_stdout++; opts.quiet++; break; - case 'q': opts.quiet++; break; - case 't': opts.testonly++; opts.listonly = 0; break; - case 'v': opts.listonly = 1; opts.testonly = 0; opts.verbose_list++; break; - case 'V': puts(VERSION); exit(0); break; - case 'd': opts.outdir = optarg; break; - case 'x': add_exclude(optarg); break; - default: - fprintf(stderr, "%s: fatal: invalid option '-%c' (try -h or --help)\n", self, optopt); - exit(1); - } - } - - if(optind >= argc) { - fprintf(stderr, "%s: fatal: missing alf file argument (try -h or --help)\n", self); - exit(1); - } - - in_filename = argv[optind]; - if(optind < argc) - include_globs = &argv[optind + 1]; /* might be null, that's OK */ - - ig = (char **)include_globs; - while(*ig) { - if(globmatch("*.alf", *ig)) { - fprintf(stderr, "%s: ALF files don't normally contain other ALF files, are you trying to extract/list multiple ALF files at once?\n", self); - break; - } - ig++; - } - -#ifdef DEBUG_GLOBS - show_globs(); -#endif -} diff --git a/src/self.c b/src/self.c deleted file mode 100644 index 298608a..0000000 --- a/src/self.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "unalf.h" - -char *self; - -void set_self(char *argv0) { - char *p; - - self = argv0; - p = strrchr(self, '/'); - if(!p) p = strrchr(self, '\\'); // windows exe needs this - if(p) self = p + 1; -} - diff --git a/src/self.h b/src/self.h deleted file mode 100644 index aba1de2..0000000 --- a/src/self.h +++ /dev/null @@ -1,3 +0,0 @@ -/* self.c */ -extern char *self; -void set_self(char *argv0); diff --git a/src/unalf.1 b/src/unalf.1 deleted file mode 100644 index 3343162..0000000 --- a/src/unalf.1 +++ /dev/null @@ -1,412 +0,0 @@ -.\" Man page generated from reStructuredText. -. -. -.nr rst2man-indent-level 0 -. -.de1 rstReportMargin -\\$1 \\n[an-margin] -level \\n[rst2man-indent-level] -level margin: \\n[rst2man-indent\\n[rst2man-indent-level]] -- -\\n[rst2man-indent0] -\\n[rst2man-indent1] -\\n[rst2man-indent2] -.. -.de1 INDENT -.\" .rstReportMargin pre: -. RS \\$1 -. nr rst2man-indent\\n[rst2man-indent-level] \\n[an-margin] -. nr rst2man-indent-level +1 -.\" .rstReportMargin post: -.. -.de UNINDENT -. RE -.\" indent \\n[an-margin] -.\" old: \\n[rst2man-indent\\n[rst2man-indent-level]] -.nr rst2man-indent-level -1 -.\" new: \\n[rst2man-indent\\n[rst2man-indent-level]] -.in \\n[rst2man-indent\\n[rst2man-indent-level]]u -.. -.TH "UNALF" 1 "2025-11-28" "0.2.0" "Urchlay's Atari 8-bit Tools" -.SH NAME -unalf \- extract Atari 8-bit ALF archives -.\" RST source for unalf(1) man page. Convert with: -. -.\" rst2man.py unalf.rst > unalf.1 -. -.SH SYNOPSIS -.sp -unalf [\fB\-\-help\fP] [\fB\-aehtklLopqtv\fP] [\fB\-d\fP \fIdir\fP] [\fB\-x\fP \fIwildcard\fP] \fIalf\-file\fP [\fIwildcard\fP ...] -.SH DESCRIPTION -.sp -\fBunalf\fP lists, extracts, or tests the contents of an \fIALF\fP archive. -.sp -\fIALF\fP is a compressed archive format similar to \fBarc\fP(1), though -not compatible with it. It was used on the Atari 8\-bit platform -beginning in the late 1980s. The Atari executables are \fBLZ.COM\fP -for the compressor and \fBDZ.COM\fP for the decompressor. \fBunalf\fP is a -port of \fBDZ.COM\fP for modern operating systems, with added features. -.sp -Extracted files are written to the current directory by -default. Existing files are backed up by default (by adding a \fB~\fP -suffix to the filename). -.sp -If one or more \fIwildcard\fP arguments are provided, files will only be -listed or extracted if they match one of the wildcards. See \fBWILDCARDS\fP -below for details. -.sp -Only one \fIalf\-file\fP argument is allowed. It\(aqs impossible to process -multiple ALF files per run of \fBunalf\fP\&. If you need bulk extraction, -use e.g. a \fBfor\fP loop in a shell script. -.sp -\fBunalf\fP can\(aqt read an ALF file on standard input; \fIalf\-file\fP must be -a real file. -.SH OPTIONS -.INDENT 0.0 -.TP -.B \-a -Convert text file line endings and tabs from ATASCII to ASCII. Text -files are detected by looking at the first 2 bytes of the extracted -file. If both are printable ASCII (including ATASCII EOL, aka \fB$9B\fP), the -file is considered text. -.sp -Note that \fIonly\fP line\-endings and tabs are converted. Other ATASCII -characters are left alone. If you need anything more in\-depth, use -\fBa8cat\fP(1). -.UNINDENT -.\" convert EOLs and tabs in text files. -. -.INDENT 0.0 -.TP -.B \fB\-aa\fP -Convert line endings and tabs in \fIall\fP extracted files. This will -corrupt any executables or non\-text data files, so use with caution. -.UNINDENT -.\" convert EOLs and tabs in ALL files. -. -.INDENT 0.0 -.TP -.BI \-d \ output\-dir -Write extracted files to this directory, which will be created if it -does not exist. The default is the current directory. -.UNINDENT -.\" set output directory (created if needed). -. -.INDENT 0.0 -.TP -.B \-e -Extract files. This is actually a no\-op, as extraction is the -default action. -.UNINDENT -.\" extract files (redundant; this is the default action). -. -.INDENT 0.0 -.TP -.B \-f -Fix (remove) junk at EOF. This option truncates the \fIalf\-file\fP\&. -It is the only \fBunalf\fP option that writes to the input file. No -backup is made. -.UNINDENT -.\" fix (remove) junk at EOF. -. -.INDENT 0.0 -.TP -.B \-h\fP,\fB \-\-help -Show built\-in help message. -.UNINDENT -.\" show this help message. -. -.INDENT 0.0 -.TP -.B \-k -Keep trailing periods. In most (all?) ALF files, filenames that have no -extension are stored with a trailing period, e.g. \(aq\fBFOO\fP\(aq would -be stored as \(aq\fBFOO.\fP\(aq. On the Atari, the extracted file would be -named \(aq\fBFOO\fP\(aq, so \fBunalf\fP does the same by default. With \fB\-k\fP, -the file will be named \(aq\fBFOO.\fP\(aq. -.UNINDENT -.\" keep trailing periods (dots) in filenames. -. -.INDENT 0.0 -.TP -.B \-l -List filenames in archive, one per line, but do not extract. Use -\fB\-v\fP for more information (file size, etc). Obeys \fIwildcards\fP and -the \fB\-x\fP, \fB\-L\fP, \fB\-k\fP options. -.UNINDENT -.\" list files in archive (filenames only). -. -.INDENT 0.0 -.TP -.B \-L -Lowercase filenames. Example: \fBFOO.TXT\fP will extract to \fBfoo.txt\fP\&. -.UNINDENT -.\" use lowercase filenames. -. -.INDENT 0.0 -.TP -.B \-o -Overwrite files, if they already exist. The default is to rename -existing files, adding a \fB~\fP suffix. Note that renaming \fBfile\fP -to \fBfile~\fP \fIwill\fP overwrite \fBfile~\fP if it already exists. -.UNINDENT -.\" overwrite files (do not create file~ backups). -. -.INDENT 0.0 -.TP -.B \-p -Extract to standard output. All the files that get extracted will be -printed to stdout with no delimiters, so this is most useful when -only extracting one file. \fB\-q\fP is automatically enabled by this option. -.sp -\fIWarning:\fP No checking is done to see whether stdout is a terminal. -Printing binary files to a terminal is a good way to make a mess. -Even text files with the EOLs translated can still contain ATASCII -formatting/graphics codes that can confuse your terminal. You have -been warned. -.UNINDENT -.\" extract to stdout (enables -q). -. -.INDENT 0.0 -.TP -.B \-q -Quiet extraction or testing: do not print "Uncrunching \fIfile\fP" -or "Testing \fIfile\fP" messages. Errors and warnings will still be -printed. This is the default when \fB\-p\fP is used. This option -doesn\(aqt do anything when used with \fB\-l\fP or \fB\-v\fP\&. -.UNINDENT -.\" quiet: don't print filenames during extraction/testing. -. -.INDENT 0.0 -.TP -.B \-t -Test archive. Same as extraction, except the files are not written -anywhere. -.UNINDENT -.\" test archive. -. -.INDENT 0.0 -.TP -.B \-v -Verbose listing of archive contents, with compressed and original -sizes, compression ration, date/time stamps, and checksum. The -output format is similar to that of \fBarc \-v\fP, minus the \fIStowage\fP -column, since \fIALF\fP doesn\(aqt support multiple compression types. The -date and time are displayed, but in most .alf files these are the -default values of "8 Jan 82 12:24a". -.sp -Unlike \fB\-l\fP, the \fB\-v\fP listing shows the filenames exactly as -stored in the archive (ignores \fB\-L\fP, enables \fB\-k\fP), and always -shows all the files (ignores \fIwildcards\fP and \fB\-x\fP). -.UNINDENT -.\" verbose listing of archive contents. -. -.INDENT 0.0 -.TP -.B \-V\fP,\fB \-\-version -Show \fBunalf\fP version number and exit. -.UNINDENT -.\" show version number. -. -.INDENT 0.0 -.TP -.BI \-x \ wildcard -Exclude (do not list or extract) files matching \fIwildcard\fP\&. See -\fBWILDCARDS\fP below. This option can be given multiple times -to exclude multiple patterns. -.UNINDENT -.\" exclude <wildcard>. may be given multiple times. -. -.\" ENDOPTS -. -.SH WILDCARDS -.sp -Wildcard (aka glob) matching works like it does on the Atari: \fI*.*\fP -matches any filename (whether or not it has an extension), and \fI*\fP -or \fI*.\fP only match filenames with no extension. -.sp -A \fI*\fP matches any number of characters (including zero). A \fI?\fP -matches a single character. All other characters match themselves, so -a wildcard with no \fI*\fP or \fI?\fP must match exactly. -.sp -Like the Atari, anything in the name or extension following a \fI*\fP is -ignored: \fBFOO*BAR.TXT\fP is equivalent to \fBFOO*.TXT\fP, and -\fBFOO.T*T\fP is equivalent to \fBFOO.T*\fP\&. \fBFOO*TXT\fP is -equivalent to \fBFOO*\fP, and \fIwill not\fP match the file \fBFOO.TXT\fP\&. -.sp -Unlike the Atari, matching is case\-insensitive. -.sp -To avoid your shell trying to expand the wildcards, always quote them! -Example: -.INDENT 0.0 -.INDENT 3.5 -.sp -.nf -.ft C -unalf filename.alf \(aq*.txt\(aq -.ft P -.fi -.UNINDENT -.UNINDENT -.SH EXIT STATUS -.INDENT 0.0 -.TP -.B 0 -Success. -.TP -.B 1 -Fatal error (I/O or bad command\-line arguments, stack under/overrun). -.TP -.B 2 -Processing completed OK, but at least one file in the archive -has a bad checksum. -.UNINDENT -.SH DIAGNOSTICS -.sp -Besides the standard error messages such as "no such file or directory": -.SS Fatal errors -.sp -\fBunalf\fP will exit with status 1 immediately after these errors: -.INDENT 0.0 -.TP -.B \fBfatal: this is an ARC file, not ALF\fP -Self\-explanatory. Use the \fBarc\fP(1) utility for this file. -.TP -.B \fBfatal: not an ALF file\fP -Self\-explanatory. Either the file is too small (less than 29 bytes) -or its first two bytes don\(aqt match the \fIALF\fP signature \fB0x1a\fP \fB0x0f\fP\&. -.TP -.B \fBfatal: stack underrun/overrun\fP -Generally means the archive is corrupt. Valid ALF files should never -cause these errors. -.TP -.B \fBfatal: compressed data is truncated, EOF before end marker\fP -Self\-explanatory. The ALF file ends before the compressed data does. -.UNINDENT -.SS Warnings -.sp -\fBunalf\fP will continue after these messages occur. -.INDENT 0.0 -.TP -.B \fBjunk at EOF (ignoring)\fP -Mostly harmless: does \fInot\fP imply data corruption. -.sp -Usually this is caused by the .alf file being stored on a CP/M disk -at some time, or by a dumb file transfer protocol. Either way, the -file gets padded to the block size of the filesystem or protocol. -Usually, the padding characters are \fB0x1a\fP, aka ASCII control\-Z. -.sp -This message means you can\(aqt append to the ALF file with \fBalf \-a\fP -or \fBLZ.COM\fP\&. You can, however, use \fBunalf \-f\fP to remove the junk. -.TP -.B \fBchecksum error on\fP \fI<file>\fP -The archive is corrupt. If \fI<file>\fP is a text file, it may be -partially readable. If it\(aqs an executable or other binary file, it\(aqs -probably unrecoverable. \fBunalf\fP will try to extract the rest of -the archive, but will exit with status 2 when it\(aqs done. -.sp -If you have an ALF file that does this, try it with the Atari -\fBDZ.COM\fP and see if it has the same problem. If it doesn\(aqt, -you\(aqve found a bug in \fBunalf\fP, please send me the .alf file via -email (see \fBAUTHOR\fP, below). Actually, I\(aqd be interested to see -the .alf file even if it doesn\(aqt work on the Atari either. -.TP -.B \fI<file>\fP \fBshould be\fP \fI<size>\fP \fBbytes, but extracted to\fP \fI<size>\fP -The archive is corrupt. If this happens on the last (or only) file, it -probably means the ALF file was truncated. You\(aqll almost certainly -get a checksum error for \fI<file>\fP, too. -.TP -.B \fBbad Atari filename\fP \fI<filename>\fP \fI<reason>\fP -The filename stored in the ALF header doesn\(aqt follow the rules for -Atari DOS filenames. \fI<reason>\fP will be something like "doesn\(aqt start -with A\-Z" or "invalid character". The filename will be printed with -any unprintable characters as hex values (e.g. \fB$01\fP). -.TP -.B \fBheader #<n> (compressed|original) size is...\fP -Followed by "impossibly large", "suspiciously large", or "too large -to fit on a floppy disk". May indicate a corrupt archive, or someone -really might have created an ALF file with files this big... though -"impossibly large" means >=16MB. \fBunalf\fP can\(aqt extract a file -that big. -.TP -.B \fBfilename has underscore, OK on Sparta/MyDOS, not Atari DOS 2.x\fP -Not an actual problem, unless you try to extract this ALF file on -an Atari running Atari DOS 2.0/2.5, or any other DOS that doesn\(aqt -allow underscores in filenames. -.TP -.B \fBALF files don\(aqt normally contain other ALF files, are you trying to extract/list multiple ALF files at once?\fP -You gave a \fIwildcard\fP argument that ends with \fI\&.alf\fP\&. This is OK if -your \fIALF\fP file actually contains another \fIALF\fP file, but that would -be a pathological case. Most likely, you\(aqre trying to extract multiple -\fIALF\fP files with one command, which doesn\(aqt work. Use one \fBunalf\fP -command per file. -.UNINDENT -.SH NOTES -.sp -This \fBunalf\fP is 100% compatible with the original Atari \fBDZ.COM\fP -aka \fBUNALF.COM\fP, with the following differences: -.INDENT 0.0 -.IP \(bu 2 -There is no interactive mode. The file to extract must be given as -a command\-line argument, and the output directory must be given -with the \fB\-d\fP option. -.IP \(bu 2 -This \fBunalf\fP is capable of listing or testing the contents of an archive -without extracting it, plus other handy features such as extracting -to standard output and text file EOL conversion. -.IP \(bu 2 -Turning the screen off for speed makes no sense on modern operating -systems, so there\(aqs no option for that. -.UNINDENT -.sp -Neither this \fBunalf\fP nor \fBDZ.COM\fP actually use the dates/times -stored in the archive. Extracted files will have their timestamps set -to the current date/time. -.sp -A note about the Atari filenames: \fBDZ.COM\fP is sometimes found on -old disk images as \fBUNALF.COM\fP, and \fBLZ.COM\fP is sometimes called -\fBALF.COM\fP or \fBALFER.COM\fP\&. I\(aqve used the original names partly -out of respect for the original author, and partly to avoid confusion -between my \fBunalf\fP and the Atari one. -.SH BUGS -.sp -A minor one: \fBunalf\fP can\(aqt correctly extract files larger than about -15MB. This could be a problem in \fBalf\fP (though the archives look -OK to me), or it could be a bug I introduced when porting \fBunalf\fP, -or it could be a bug in the original \fBDZ.COM\fP\&. Files this large are -a pathological case for \fIALF\fP, anyway, since nobody ever used them on -the Atari 8\-bit. -.SH COPYRIGHT -.sp -The original AlfCrunch (\fBDZ.COM\fP and \fBLZ.COM\fP) for the Atari -8\-bit was released into the Public Domain. Portions of the \fBDZ.COM\fP -code are included in \fBunalf\fP, converted from 6502 instructions to -C macros. -.sp -\fBunalf\fP is released under the WTPFL: Do WTF you want with this. -.SH AUTHOR -.sp -The original AlfCrunch for the Atari 8\-bit was written by Alfred, who -can be reached via the AtariAge.com forums with the username "Alfred". -.sp -This \fBunalf\fP was written by B. Watson <\fI\%urchlay@slackware.uk\fP>. -.SH SEE ALSO -.sp -\fBalf\fP(1), \fBalfls\fP(1) -.sp -The git repository for \fBunalf\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/unalf\fP -.UNINDENT -.UNINDENT -.sp -Other Atari\-related projects by the author, including \fBbw\-atari8\-tools\fP -and \fBunmac65\fP: -.INDENT 0.0 -.INDENT 3.5 -\fI\%https://slackware.uk/~urchlay/repos/\fP -.UNINDENT -.UNINDENT -.\" Generated by docutils manpage writer. -. diff --git a/src/unalf.c b/src/unalf.c deleted file mode 100644 index 545a5c2..0000000 --- a/src/unalf.c +++ /dev/null @@ -1,79 +0,0 @@ -#include "unalf.h" - -FILE *in_file, *out_file; -char *in_filename; -opts_t opts; -const char *exclude_globs[MAX_EXCLUDES]; -int exclude_count; -char * const *include_globs; -static void create_outdir(void); - -/* like "mkdir -p" (no error if dir already exists), - followed by "cd" (which will error if the existing - "directory" turns out to be a file or broken symlink */ -static void create_outdir(void) { - int r; - - r = -#if defined(__MINGW32__) || defined(__MINGW64__) - mkdir(opts.outdir); -#else - mkdir(opts.outdir, 0777); -#endif - if(r < 0 && errno != EEXIST) { - fprintf(stderr, "%s: fatal: ", self); - perror(opts.outdir); - exit(1); - } - - if(chdir(opts.outdir) < 0) { - fprintf(stderr, "%s: fatal: ", self); - perror(opts.outdir); - exit(1); - } -} - -void usage(void) { - extern char *usage_msg[]; - char **line; - - puts("unalf (ALF extractor) v" VERSION " by B. Watson. WTFPL."); - printf("Usage: %s -[options] <file> [wildcard ...]\n", self); - puts("Options:"); - puts(" wildcards: extract only matching files."); - - for(line = usage_msg; *line; line++) - puts(*line); - - exit(0); -} - -int main(int argc, char **argv) { - set_self(argv[0]); - - if(argc < 2 || !strcmp(argv[1], "--help") || !strcmp(argv[1], "-h")) usage(); - - if(!strcmp(argv[1], "--version")) { - puts(VERSION); - exit(0); - } - - parse_opts(argc, argv); - - if(!(in_file = fopen(in_filename, "rb"))) { - fprintf(stderr, "%s: fatal: ", self); - perror(in_filename); - exit(1); - } - - if(opts.outdir) create_outdir(); - - if(opts.listonly) - list_alf(); - else - extract_alf(); - - fclose(in_file); - - exit(bad_checksum_count ? 2 : 0); -} diff --git a/src/unalf.h b/src/unalf.h deleted file mode 100644 index 743282d..0000000 --- a/src/unalf.h +++ /dev/null @@ -1,93 +0,0 @@ -#include <stdio.h> -#include <unistd.h> -#include <stdlib.h> -#include <string.h> -#include <errno.h> -#include <ctype.h> -#include <sys/stat.h> -#include <f65.h> -#include "self.h" - -#ifndef VERSION -#define VERSION "???" -#warning "VERSION not defined, defaulting to \"???\"" -#endif - -#ifndef u8 -#define u8 unsigned char -#define u16 unsigned short -#endif - -/* asmcode.c (converted from asm) */ -void uncrunch_file(void); -void setup_io_bufs(void); -void L7A19(void); -void L79E7(void); -void L76D0(void); -void write_output(void); -void init_counters(void); -void store_outbyte(void); -void push_acc16(void); -void L7899(void); -void pop_acc16(void); -void L78C2(void); -void L7A19(void); -void L79E7(void); -void writeblock(void); -void L7A5D(void); - -/* glob.c */ -int globmatch(const char *pat, const char *arg); -int file_wanted(const char *filename); - -/* io.c - asm rewritten in C */ -int read_alf_header(void); -void readblock(void); -void writeblock(void); -void write_output(void); - -/* io.c - just C */ -void open_output(void); - -/* listalf.c */ -void list_alf(void); -unsigned int getquad(int offs); - -/* extract.c */ -extern int bad_checksum_count; -extern int new_file; -extern unsigned int bytes_written; -void extract_alf(void); -void dpoke(int addr, u16 value); -u16 dpeek(int addr); -void fix_filename(void); - -/* opts.c */ -void parse_opts(int argc, char * const *argv); - -/* unalf.c */ -extern char *self; -extern FILE *out_file; -extern FILE *in_file; -extern char *in_filename; - -typedef struct { - int txtconv; - int testonly; - int keepdot; - int listonly; - int lowercase; - const char *outdir; - int overwrite; - int extract_to_stdout; - int quiet; - int verbose_list; - int fixjunk; -} opts_t; - -#define MAX_EXCLUDES 256 - -extern opts_t opts; -extern const char *exclude_globs[MAX_EXCLUDES]; -extern char * const *include_globs; -extern int exclude_count; diff --git a/src/unalf.rst b/src/unalf.rst deleted file mode 100644 index e94fc21..0000000 --- a/src/unalf.rst +++ /dev/null @@ -1,358 +0,0 @@ -.. RST source for unalf(1) man page. Convert with: -.. rst2man.py unalf.rst > unalf.1 - -.. include:: ver.rst - -.. |date| date:: - -===== -unalf -===== - --------------------------------- -extract Atari 8-bit ALF archives --------------------------------- - -:Manual section: 1 -:Manual group: Urchlay's Atari 8-bit Tools -:Date: |date| -:Version: |version| - -SYNOPSIS -======== - -unalf [**--help**] [**-aehtklLopqtv**] [**-d** *dir*] [**-x** *wildcard*] *alf-file* [*wildcard* ...] - -DESCRIPTION -=========== - -**unalf** lists, extracts, or tests the contents of an *ALF* archive. - -*ALF* is a compressed archive format similar to **arc**\(1), though -not compatible with it. It was used on the Atari 8-bit platform -beginning in the late 1980s. The Atari executables are **LZ.COM** -for the compressor and **DZ.COM** for the decompressor. **unalf** is a -port of **DZ.COM** for modern operating systems, with added features. - -Extracted files are written to the current directory by -default. Existing files are backed up by default (by adding a **~** -suffix to the filename). - -If one or more *wildcard* arguments are provided, files will only be -listed or extracted if they match one of the wildcards. See **WILDCARDS** -below for details. - -Only one *alf-file* argument is allowed. It's impossible to process -multiple ALF files per run of **unalf**. If you need bulk extraction, -use e.g. a **for** loop in a shell script. - -**unalf** can't read an ALF file on standard input; *alf-file* must be -a real file. - -OPTIONS -======= - --a - Convert text file line endings and tabs from ATASCII to ASCII. Text - files are detected by looking at the first 2 bytes of the extracted - file. If both are printable ASCII (including ATASCII EOL, aka **$9B**), the - file is considered text. - - Note that *only* line-endings and tabs are converted. Other ATASCII - characters are left alone. If you need anything more in-depth, use - **a8cat**\(1). - -.. convert EOLs and tabs in text files. - -**-aa** - Convert line endings and tabs in *all* extracted files. This will - corrupt any executables or non-text data files, so use with caution. - -.. convert EOLs and tabs in ALL files. - --d output-dir - Write extracted files to this directory, which will be created if it - does not exist. The default is the current directory. - -.. set output directory (created if needed). - --e - Extract files. This is actually a no-op, as extraction is the - default action. - -.. extract files (redundant; this is the default action). - --f - Fix (remove) junk at EOF. This option truncates the *alf-file*. - It is the only **unalf** option that writes to the input file. No - backup is made. - -.. fix (remove) junk at EOF. - --h, --help - Show built-in help message. - -.. show this help message. - --k - Keep trailing periods. In most (all?) ALF files, filenames that have no - extension are stored with a trailing period, e.g. '**FOO**' would - be stored as '**FOO.**'. On the Atari, the extracted file would be - named '**FOO**', so **unalf** does the same by default. With **-k**, - the file will be named '**FOO.**'. - -.. keep trailing periods (dots) in filenames. - --l - List filenames in archive, one per line, but do not extract. Use - **-v** for more information (file size, etc). Obeys *wildcards* and - the **-x**, **-L**, **-k** options. - -.. list files in archive (filenames only). - --L - Lowercase filenames. Example: **FOO.TXT** will extract to **foo.txt**. - -.. use lowercase filenames. - --o - Overwrite files, if they already exist. The default is to rename - existing files, adding a **~** suffix. Note that renaming **file** - to **file~** *will* overwrite **file~** if it already exists. - -.. overwrite files (do not create file~ backups). - --p - Extract to standard output. All the files that get extracted will be - printed to stdout with no delimiters, so this is most useful when - only extracting one file. **-q** is automatically enabled by this option. - - *Warning:* No checking is done to see whether stdout is a terminal. - Printing binary files to a terminal is a good way to make a mess. - Even text files with the EOLs translated can still contain ATASCII - formatting/graphics codes that can confuse your terminal. You have - been warned. - -.. extract to stdout (enables -q). - --q - Quiet extraction or testing: do not print "Uncrunching *file*" - or "Testing *file*" messages. Errors and warnings will still be - printed. This is the default when **-p** is used. This option - doesn't do anything when used with **-l** or **-v**. - -.. quiet: don't print filenames during extraction/testing. - --t - Test archive. Same as extraction, except the files are not written - anywhere. - -.. test archive. - --v - Verbose listing of archive contents, with compressed and original - sizes, compression ration, date/time stamps, and checksum. The - output format is similar to that of **arc -v**, minus the *Stowage* - column, since *ALF* doesn't support multiple compression types. The - date and time are displayed, but in most .alf files these are the - default values of "8 Jan 82 12:24a". - - Unlike **-l**, the **-v** listing shows the filenames exactly as - stored in the archive (ignores **-L**, enables **-k**), and always - shows all the files (ignores *wildcards* and **-x**). - -.. verbose listing of archive contents. - --V, --version - Show **unalf** version number and exit. - -.. show version number. - --x wildcard - Exclude (do not list or extract) files matching *wildcard*. See - **WILDCARDS** below. This option can be given multiple times - to exclude multiple patterns. - -.. exclude <wildcard>. may be given multiple times. - -.. ENDOPTS - -WILDCARDS -========= - -Wildcard (aka glob) matching works like it does on the Atari: *\*.\** -matches any filename (whether or not it has an extension), and *\** -or *\*.* only match filenames with no extension. - -A *\** matches any number of characters (including zero). A *?* -matches a single character. All other characters match themselves, so -a wildcard with no *\** or *?* must match exactly. - -Like the Atari, anything in the name or extension following a *\** is -ignored: **FOO\*BAR.TXT** is equivalent to **FOO\*.TXT**, and -**FOO.T\*T** is equivalent to **FOO.T\***. **FOO\*TXT** is -equivalent to **FOO\***, and *will not* match the file **FOO.TXT**. - -Unlike the Atari, matching is case-insensitive. - -To avoid your shell trying to expand the wildcards, always quote them! -Example:: - - unalf filename.alf '*.txt' - -EXIT STATUS -=========== - -0 - Success. - -1 - Fatal error (I/O or bad command-line arguments, stack under/overrun). - -2 - Processing completed OK, but at least one file in the archive - has a bad checksum. - -DIAGNOSTICS -=========== - -Besides the standard error messages such as "no such file or directory": - -Fatal errors ------------- - -**unalf** will exit with status 1 immediately after these errors: - -**fatal: this is an ARC file, not ALF** - Self-explanatory. Use the **arc**\(1) utility for this file. - -**fatal: not an ALF file** - Self-explanatory. Either the file is too small (less than 29 bytes) - or its first two bytes don't match the *ALF* signature **0x1a** **0x0f**\. - -**fatal: stack underrun/overrun** - Generally means the archive is corrupt. Valid ALF files should never - cause these errors. - -**fatal: compressed data is truncated, EOF before end marker** - Self-explanatory. The ALF file ends before the compressed data does. - -Warnings --------- - -**unalf** will continue after these messages occur. - -**junk at EOF (ignoring)** - Mostly harmless: does *not* imply data corruption. - - Usually this is caused by the .alf file being stored on a CP/M disk - at some time, or by a dumb file transfer protocol. Either way, the - file gets padded to the block size of the filesystem or protocol. - Usually, the padding characters are **0x1a**, aka ASCII control-Z. - - This message means you can't append to the ALF file with **alf -a** - or **LZ.COM**. You can, however, use **unalf -f** to remove the junk. - -**checksum error on** *<file>* - The archive is corrupt. If *<file>* is a text file, it may be - partially readable. If it's an executable or other binary file, it's - probably unrecoverable. **unalf** will try to extract the rest of - the archive, but will exit with status 2 when it's done. - - If you have an ALF file that does this, try it with the Atari - **DZ.COM** and see if it has the same problem. If it doesn't, - you've found a bug in **unalf**, please send me the .alf file via - email (see **AUTHOR**, below). Actually, I'd be interested to see - the .alf file even if it doesn't work on the Atari either. - -*<file>* **should be** *<size>* **bytes, but extracted to** *<size>* - The archive is corrupt. If this happens on the last (or only) file, it - probably means the ALF file was truncated. You'll almost certainly - get a checksum error for *<file>*, too. - -**bad Atari filename** *<filename>* *<reason>* - The filename stored in the ALF header doesn't follow the rules for - Atari DOS filenames. *<reason>* will be something like "doesn't start - with A-Z" or "invalid character". The filename will be printed with - any unprintable characters as hex values (e.g. **$01**). - -**header #<n> (compressed|original) size is...** - Followed by "impossibly large", "suspiciously large", or "too large - to fit on a floppy disk". May indicate a corrupt archive, or someone - really might have created an ALF file with files this big... though - "impossibly large" means >=16MB. **unalf** can't extract a file - that big. - -**filename has underscore, OK on Sparta/MyDOS, not Atari DOS 2.x** - Not an actual problem, unless you try to extract this ALF file on - an Atari running Atari DOS 2.0/2.5, or any other DOS that doesn't - allow underscores in filenames. - -**ALF files don't normally contain other ALF files, are you trying to extract/list multiple ALF files at once?** - You gave a *wildcard* argument that ends with *.alf*. This is OK if - your *ALF* file actually contains another *ALF* file, but that would - be a pathological case. Most likely, you're trying to extract multiple - *ALF* files with one command, which doesn't work. Use one **unalf** - command per file. - -NOTES -===== - -This **unalf** is 100% compatible with the original Atari **DZ.COM** -aka **UNALF.COM**, with the following differences: - -- There is no interactive mode. The file to extract must be given as - a command-line argument, and the output directory must be given - with the **-d** option. - -- This **unalf** is capable of listing or testing the contents of an archive - without extracting it, plus other handy features such as extracting - to standard output and text file EOL conversion. - -- Turning the screen off for speed makes no sense on modern operating - systems, so there's no option for that. - -Neither this **unalf** nor **DZ.COM** actually use the dates/times -stored in the archive. Extracted files will have their timestamps set -to the current date/time. - -A note about the Atari filenames: **DZ.COM** is sometimes found on -old disk images as **UNALF.COM**, and **LZ.COM** is sometimes called -**ALF.COM** or **ALFER.COM**. I've used the original names partly -out of respect for the original author, and partly to avoid confusion -between my **unalf** and the Atari one. - -BUGS -==== - -A minor one: **unalf** can't correctly extract files larger than about -15MB. This could be a problem in **alf** (though the archives look -OK to me), or it could be a bug I introduced when porting **unalf**, -or it could be a bug in the original **DZ.COM**. Files this large are -a pathological case for *ALF*, anyway, since nobody ever used them on -the Atari 8-bit. - -COPYRIGHT -========= - -The original AlfCrunch (**DZ.COM** and **LZ.COM**) for the Atari -8-bit was released into the Public Domain. Portions of the **DZ.COM** -code are included in **unalf**, converted from 6502 instructions to -C macros. - -**unalf** is released under the WTPFL: Do WTF you want with this. - -AUTHOR -====== - -The original AlfCrunch for the Atari 8-bit was written by Alfred, who -can be reached via the AtariAge.com forums with the username "Alfred". - -This **unalf** was written by B. Watson <urchlay@slackware.uk>. - -SEE ALSO -======== - -**alf**\(1), **alfls**\(1) - -.. include:: manftr.rst diff --git a/src/usage.c b/src/usage.c deleted file mode 100644 index 7615d2e..0000000 --- a/src/usage.c +++ /dev/null @@ -1,19 +0,0 @@ -const char *usage_msg[] = { - " -a: convert EOLs and tabs in text files.", - " -aa: convert EOLs and tabs in ALL files.", - " -d: set output directory (created if needed).", - " -e: extract files (redundant; this is the default action).", - " -f: fix (remove) junk at EOF.", - " -h: show this help message.", - " -k: keep trailing periods (dots) in filenames.", - " -l: list files in archive (filenames only).", - " -L: use lowercase filenames.", - " -o: overwrite files (do not create file~ backups).", - " -p: extract to stdout (enables -q).", - " -q: quiet: don't print filenames during extraction/testing.", - " -t: test archive.", - " -v: verbose listing of archive contents.", - " -V: show version number.", - " -x: exclude <wildcard>. may be given multiple times.", - (const char*)0 -}; diff --git a/src/ver.rst b/src/ver.rst deleted file mode 100644 index 2c33076..0000000 --- a/src/ver.rst +++ /dev/null @@ -1 +0,0 @@ -.. |version| replace:: 0.2.0 diff --git a/testing/alfls b/testing/alfls deleted file mode 100755 index 4b3d867..0000000 --- a/testing/alfls +++ /dev/null @@ -1,240 +0,0 @@ -#!/usr/bin/perl -w - -# Note: when/if I ever manage to reimplement the ALF decompressor in -# C, this script will serve as the prototype for the unalf tool, which -# will of course be in C also... - -use bytes; - -sub chrat { - my $offs = shift; - return substr($data, $offs, 1); -} - -sub wordat { - my $offs = shift; - return ord(chrat($offs)) | (ord(chrat($offs + 1)) << 8); -} - -sub longat { - my $offs = shift; - return wordat($offs) | (wordat($offs + 2) << 16); -} - -sub header_ok { - my $pos = shift || 0; - - return 0 unless chrat($pos) eq chr(0x1a); - - my $c = ord(chrat($pos + 1 )); - - if($c >= 2 && $c <= 9) { - warn "$SELF: this is an ARC archive (not ALF).\n" unless $arc_warn; - $arc_warn++; - return 1; - } elsif($c == 0x0f) { - return 1; - } - - return 0; -} - -@monthnames = qw/??? Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ??? ??? ???/; - -# see Arcinfo... -sub extract_date { - my $pos = shift; - my $date = wordat($pos); - - my $year = ($date >> 9) + 1980; - $year %= 100; # only ever print last 2 digits - - my $month = ($date >> 5) & 0x0f; - $month = $monthnames[$month]; - - my $day = $date & 0x1f; - - my $res = sprintf("%2d %3s %2d", $day, $month, $year); - return $res; -} - -sub extract_time { - my $pos = shift; - my $time = wordat($pos); - - my $hour = $time >> 11; - my $min = ($time >> 5) & 0x3f; - # don't bother with sec, we don't display them. - - # special case: "arc v" displays 00:00 as 12:00p. - if($hour == 0 && $min == 0) { - $hour = 24; - } - - my $ampm = ($hour > 11 ? 'p' : 'a'); - $hour %= 12; - $hour = 12 if $hour == 0; - - my $res = sprintf("%2d:%02d%s", $hour, $min, $ampm); - return $res; -} - -sub list_file { - # each file header is 29 bytes. - - # bytes 0-1 are 0x1a (ARCMARK) and 0x0f (ALF compression type) - - # bytes 2-14 are filename, though the Atari max filename len - # is 12 (e.g. FOOBARXX.EXT). - - # bytes 15-18 are 4-byte compressed length (LSB first). - # bytes 17-18 should always be 0, I don't think alfcrunch - # can handle a file >64K. even if it can, byte 18 should still - # always be 0, because *surely* it can't handle a file that's - # >16M. for that matter, most Atari DOSes can't handle a hard - # drive partition >16M... - - # bytes 19-22 are date/time stamp, hopefully the same as ARC. - - # bytes 23-24 are the checksum CRC-16 (?) checksum. - - # bytes 25-28 are the 4-byte uncompressed length (LSB first). - # bytes 27-28 should always be 0 (as above). - - # the 29-byte header is followed by the compressed data, whose length - # matches the compressed length in bytes 15-18. - - # a lot of the files in the the Holmes archive have filler bytes at - # the end, put there by ancient dumb file transfer protocols, or - # dumb DOSes (doesn't CP/M do this?). - - if(!header_ok($pos)) { - warn "$SELF: Junk at EOF (probably harmless).\n"; - $pos += (1 << 31); # ludicrous size, makes main loop exit. - return; - } - - # read the filename until we hit a null byte, or a space, or - # the max length. all the .alf files I have, do have a null byte - # terminator for the filename... followed by spaces to fill up the - # rest of the 13-byte field. - my $filename = ""; - for(my $i = 2; $i < 15; $i++) { - my $b = chrat($pos + $i); - last if ord($b) == 0 || $b eq ' '; - $filename .= $b; - } - - my $clen = longat($pos + 15); - my $ulen = longat($pos + 25); - my $crc = wordat($pos + 23); - my $date = extract_date($pos + 19); - my $time = extract_time($pos + 21); - my $pct = 100 - int($clen / $ulen * 100); - - printf("%-12s ", $filename); - printf("%8d ", $ulen); - if(chrat($pos + 1) eq chr(0x0f)) { - print(" ALF "); - } else { - print(" ARC "); - } - printf("%3d%% ", $pct); - printf("%8d ", $clen); - printf("%9s ", $date); - printf("%6s ", $time); - printf("%04x\n", $crc); - - if($ENV{DUMP}) { - my $bits; - for(my $i = 0; $i < $clen; $i++) { - $bits .= sprintf("%08b", ord(chrat($pos + 29 + $i))); - } - my $count = 0; - while($bits =~ s/^([01]{9})//) { - my $ctlbit = substr($1, 0, 1); - my $byte = substr($1, 1); - my $val = eval "0b$byte"; - my $hex = sprintf('$%02x', $val); - printf("%3d: ", $count++); - print "$ctlbit $byte ; "; - if($ctlbit eq '0') { - print "literal $hex"; - if($val > 32 && $val < 127) { - print " " . chr($val); - } - } else { - my $name = "(?)"; - if($val == 0) { - $name = "start"; - } elsif($val == 1) { - $name = "end"; - } - print "$val $name"; - } - print "\n"; - } - print "junk: $bits\n" if length($bits); - } - - $total_clen += $clen; - $total_ulen += $ulen; - $file_count++; - - $pos += ($clen + 29); -} - -# main() - -$total_clen = $total_ulen = $file_count = 0; - -($SELF = $0) =~ s,.*/,,; - -if(@ARGV != 1) { - die "$SELF requires exactly one ALF file as an argument.\n"; -} elsif($ARGV[0] =~ /--?h(elp)?/) { - print <<EOF; -$SELF - list contents of an ALF (or ARC) archive file. - -Usage: $SELF <archive> - -For each file in the ALF or ARC archive, displays the filename, -compressed and uncompressed sizes, compression amount, date/time, -and CRC. After all files are listed, the total sizes and compression -are shown. - -The output is intended to look like that of "arc v", except the -Stowage column only ever says "ALF" or "ARC" (doesn't show e.g. -"Squashed", "Crunched", etc for ARC files). - -Exit status is 0 on success, non-zero on failure. -EOF - exit 0; -} - -undef $/; - -$data = <>; - -#warn "read " . length($data) . " bytes\n"; -die("$SELF: Not an alfcrunch file.\n") unless header_ok(); - -print <<EOF; -Name Length Stowage SF Size now Date Time CRC -============ ======== ======== ==== ======== ========= ====== ==== -EOF - -$pos = 0; -while($pos < length($data)) { - list_file(); -} - -print " ==== ======== ==== ========\nTotal "; -printf("%4d ", $file_count); -printf("%8d", $total_ulen); -print ' ' x 12; -printf("%3d%% ", 99); -printf("%8d\n", $total_clen); - - -exit 0; |