Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-09-29 16:54:56 +00:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/disasm'

Browse Source
This commit is contained in:
Joshua Bell 2018-12-15 12:08:34 -08:00
commit e6a69ea587
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::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
axy_call desktop_main::draw_dialog_label, 1, desktop_aux::str_erasing 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 ldxy #path_buf1
lda L09D7 lda L09D7
jsr L1307 jsr L1307
@ -219,7 +219,7 @@ L0AD1: lda winfo_alert_dialog
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
axy_call desktop_main::draw_dialog_label, 1, desktop_aux::str_erasing 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 jsr desktop_main::set_cursor_watch
ldxy #path_buf1 ldxy #path_buf1
lda L0B46 lda L0B46
@ -1361,22 +1361,24 @@ L14E5: .byte $00,$00,$00,$00,$00,$00,$00,$00
;;; ============================================================ ;;; ============================================================
.proc upcase_string
L1900: stx $06+1 ptr := $06
sta $06 stx ptr+1
sta ptr
ldy #0 ldy #0
lda ($06),y lda (ptr),y
tay tay
L1909: lda ($06),y loop: lda (ptr),y
cmp #'a' cmp #'a'
bcc L1917 bcc :+
cmp #'z'+1 cmp #'z'+1
bcs L1917 bcs :+
and #CASE_MASK and #CASE_MASK
sta ($06),y sta (ptr),y
L1917: dey : dey
bpl L1909 bpl loop
rts rts
.endproc
L191B: sta ALTZPOFF L191B: sta ALTZPOFF
lda ROMIN2 lda ROMIN2