Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-25 10:30:50 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop disasm: string un-padding

Browse Source
This commit is contained in:
Joshua Bell 2018-12-02 12:54:24 -08:00
parent 265b8bff62
commit 1ea7fe51c3
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
desktop/desktop_main.s
View File

@ -9770,7 +9770,7 @@ L942F: lda #$03
tax
pla
jsr JT_SIZE_STRING
jsr L9549
jsr remove_leading_spaces
ldx #$00
L9456: lda text_buffer2::data-1,x
cmp #$42
@ -9792,7 +9792,7 @@ L9472: lda selected_window_index
L9480: ldax get_file_info_params5::blocks_used
L9486: jsr JT_SIZE_STRING
jsr L9549
jsr remove_leading_spaces
ldx $220
ldy #$00
L9491: lda text_buffer2::data,y
@ -9855,25 +9855,33 @@ L953A: PASCAL_STRING " VOL"
yax_call launch_dialog, index_get_info_dialog, L92E3
rts
.endproc
.endproc
L92F5 := do_get_info::L92F5
L9549: ldx #$00
L954B: lda text_buffer2::data,x
cmp #$20
bne L9555
;;; ============================================================
.proc remove_leading_spaces
;; Count leading spaces
ldx #0
: lda text_buffer2::data,x
cmp #' '
bne counted
inx
bne L954B
L9555: ldy #$00
bne :-
;; Shift string down
counted:
ldy #0
dex
L9558: lda text_buffer2::data,x
: lda text_buffer2::data,x
sta text_buffer2::data,y
iny
inx
cpx text_buffer2::length
bne L9558
bne :-
sty text_buffer2::length
rts
.endproc
L92F5 := do_get_info::L92F5
;;; ============================================================