Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +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
and #$0F
sta on_line_buffer
ldy #0
L0ABA: iny
loop: iny
lda on_line_buffer,y
and #CHAR_MASK
cmp #'a'
bcc L0AC6
bcc :+
and #CASE_MASK ; make upper-case
L0AC6: cmp path_buf+1,y
bne L0AE5
: cmp path_buf+1,y
bne fail
cpy on_line_buffer
bne L0ABA
bne loop
lda on_line_buffer
clc
adc #$01
cmp path_buf
beq L0AE2
beq success
lda path_buf+2,y
cmp #'/'
bne L0AE5
L0AE2: return #$00
bne fail
success:
return #$00
L0AE5: return #$FF
fail: return #$FF
.endproc
;;; ============================================================
@ -361,16 +364,16 @@ L0AE5: return #$FF
sta L0B15
jsr L0B40
jsr L0B16
L0AF3: copy16 $06, $08
loop: copy16 $06, $08
jsr L0B16
bcs L0B0F
bcs done
jsr compare_file_entries
bcc L0AF3
bcc loop
jsr swap_entries
lda #$FF
sta L0B15
bne L0AF3
L0B0F: lda L0B15
bne loop
done: lda L0B15
bne L0AE8
rts