Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-01-24 06:30:22 +00:00
Code Issues Projects Releases Wiki Activity

Sort Directory DA disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-12-05 19:46:29 -08:00
parent e82df4d29e
commit 8ce498d048
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
desk.acc/sort.directory.s
View File

@ -330,28 +330,31 @@ L0AAF: .byte 0
lda on_line_buffer lda on_line_buffer
and #$0F and #$0F
sta on_line_buffer sta on_line_buffer
ldy #0 ldy #0
L0ABA: iny loop: iny
lda on_line_buffer,y lda on_line_buffer,y
and #CHAR_MASK and #CHAR_MASK
cmp #'a' cmp #'a'
bcc L0AC6 bcc :+
and #CASE_MASK ; make upper-case and #CASE_MASK ; make upper-case
L0AC6: cmp path_buf+1,y : cmp path_buf+1,y
bne L0AE5 bne fail
cpy on_line_buffer cpy on_line_buffer
bne L0ABA bne loop
lda on_line_buffer lda on_line_buffer
clc clc
adc #$01 adc #$01
cmp path_buf cmp path_buf
beq L0AE2 beq success
lda path_buf+2,y lda path_buf+2,y
cmp #'/' cmp #'/'
bne L0AE5 bne fail
L0AE2: return #$00 success:
return #$00
L0AE5: return #$FF fail: return #$FF
.endproc .endproc
;;; ============================================================ ;;; ============================================================
@ -361,16 +364,16 @@ L0AE5: return #$FF
sta L0B15 sta L0B15
jsr L0B40 jsr L0B40
jsr L0B16 jsr L0B16
L0AF3: copy16 $06, $08 loop: copy16 $06, $08
jsr L0B16 jsr L0B16
bcs L0B0F bcs done
jsr compare_file_entries jsr compare_file_entries
bcc L0AF3 bcc loop
jsr swap_entries jsr swap_entries
lda #$FF lda #$FF
sta L0B15 sta L0B15
bne L0AF3 bne loop
L0B0F: lda L0B15 done: lda L0B15
bne L0AE8 bne L0AE8
rts rts