diff options
Diffstat (limited to 'disasm')
| -rw-r--r-- | disasm/Makefile | 3 | ||||
| -rw-r--r-- | disasm/unalf14.com | bin | 0 -> 3683 bytes | |||
| -rw-r--r-- | disasm/unalf14.notes.txt | 248 | ||||
| -rw-r--r-- | disasm/unalf14.osequates | 15 | ||||
| -rw-r--r-- | disasm/unalf14.raw | bin | 0 -> 3691 bytes | |||
| -rw-r--r-- | disasm/unalf14.raw.info | 221 | ||||
| -rw-r--r-- | disasm/unalf14.s | 1932 |
7 files changed, 2419 insertions, 0 deletions
diff --git a/disasm/Makefile b/disasm/Makefile new file mode 100644 index 0000000..a7ec9e7 --- /dev/null +++ b/disasm/Makefile @@ -0,0 +1,3 @@ + +all: + da65 -i unalf14.raw.info diff --git a/disasm/unalf14.com b/disasm/unalf14.com Binary files differnew file mode 100644 index 0000000..7a91ef0 --- /dev/null +++ b/disasm/unalf14.com diff --git a/disasm/unalf14.notes.txt b/disasm/unalf14.notes.txt new file mode 100644 index 0000000..92fd218 --- /dev/null +++ b/disasm/unalf14.notes.txt @@ -0,0 +1,248 @@ +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 new file mode 100644 index 0000000..79b2b77 --- /dev/null +++ b/disasm/unalf14.osequates @@ -0,0 +1,15 @@ +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 differnew file mode 100644 index 0000000..7ef8395 --- /dev/null +++ b/disasm/unalf14.raw diff --git a/disasm/unalf14.raw.info b/disasm/unalf14.raw.info new file mode 100644 index 0000000..eef7c80 --- /dev/null +++ b/disasm/unalf14.raw.info @@ -0,0 +1,221 @@ +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 new file mode 100644 index 0000000..ecf8147 --- /dev/null +++ b/disasm/unalf14.s @@ -0,0 +1,1932 @@ +; 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 |