diff options
Diffstat (limited to 'disasm/unalf14.s')
| -rw-r--r-- | disasm/unalf14.s | 1932 |
1 files changed, 0 insertions, 1932 deletions
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 |