Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-26 12:29:28 +00:00
Code Issues Projects Releases Wiki Activity

disasm: more case adjustment procs

Browse Source
This commit is contained in:
Joshua Bell 2018-12-15 09:42:53 -08:00
parent b2cf01f0c9
commit 0a2525b700
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
desktop/ovl2.s
View File

@ -101,7 +101,7 @@ L0942: lda winfo_alert_dialog
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
axy_call desktop_main::draw_dialog_label, 1, desktop_aux::str_erasing
addr_call L1900, path_buf1
addr_call upcase_string, path_buf1
ldxy #path_buf1
lda L09D7
jsr L1307
@ -219,7 +219,7 @@ L0AD1: lda winfo_alert_dialog
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
axy_call desktop_main::draw_dialog_label, 1, desktop_aux::str_erasing
addr_call L1900, path_buf1
addr_call upcase_string, path_buf1
jsr desktop_main::set_cursor_watch
ldxy #path_buf1
lda L0B46
@ -1361,22 +1361,24 @@ L14E5: .byte $00,$00,$00,$00,$00,$00,$00,$00
;;; ============================================================
L1900: stx $06+1
sta $06
.proc upcase_string
ptr := $06
stx ptr+1
sta ptr
ldy #0
lda ($06),y
lda (ptr),y
tay
L1909: lda ($06),y
loop: lda (ptr),y
cmp #'a'
bcc L1917
bcc :+
cmp #'z'+1
bcs L1917
bcs :+
and #CASE_MASK
sta ($06),y
L1917: dey
bpl L1909
sta (ptr),y
: dey
bpl loop
rts
.endproc
L191B: sta ALTZPOFF
lda ROMIN2