Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-20 02:29:11 +00:00
Code Issues Projects Releases Wiki Activity

tidying

Browse Source
This commit is contained in:
Joshua Bell 2018-02-25 13:47:06 -08:00
parent b7476c6b81
commit 7c0e47922a
7 changed files with 84 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/ovl1.s
View File

@ -120,7 +120,7 @@ start: lda #$80
php php
sei sei
sta ALTZPOFF sta ALTZPOFF
lda $C082 lda ROMIN2
jsr MLI jsr MLI
call: .byte 0 call: .byte 0
params: .addr 0 params: .addr 0

25
desktop/ovl2.s
View File

@ -111,13 +111,12 @@ L0902: jsr prompt_input_loop
L090C: lda $D57D L090C: lda $D57D
jsr set_port_from_window_id jsr set_port_from_window_id
L0912: MGTK_RELAY_CALL MGTK::SetPenMode, $D200 MGTK_RELAY_CALL MGTK::SetPenMode, $D200
ldy #$11 ldy #$11
L091D: ldax #$AE6E ldax #$AE6E
jsr MGTK_RELAY jsr MGTK_RELAY
L0924: ldax #$B2C6 ldax #$B2C6
ldy #$01 ldy #$01
L092B := * + 1
jsr draw_dialog_label jsr draw_dialog_label
lda L09D7 lda L09D7
jsr L12C1 jsr L12C1
@ -125,24 +124,19 @@ L092B := * + 1
bne L0942 bne L0942
jsr set_cursor_watch jsr set_cursor_watch
lda L09D7 lda L09D7
L093F := * + 2
jsr L126F jsr L126F
bcs L099B bcs L099B
L0942: lda $D57D L0942: lda $D57D
jsr set_port_from_window_id jsr set_port_from_window_id
ldy #$07 ldy #$07
lda #$00 lda #$00
L094D := * + 1
ldx #$D2 ldx #$D2
L0950 := * + 2
jsr MGTK_RELAY jsr MGTK_RELAY
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
axy_call draw_dialog_label, $01, $B373 axy_call draw_dialog_label, $01, $B373
addr_call L1900, $D443 addr_call L1900, $D443
ldx #$43 ldx #$43
L096D := * + 1
ldy #$D4 ldy #$D4
L096F := * + 1
lda L09D7 lda L09D7
jsr L1307 jsr L1307
pha pha
@ -160,7 +154,6 @@ L0980: cmp #$2B
L098C: jsr L191B L098C: jsr L191B
ldax #$B388 ldax #$B388
L0994 := * + 1
ldy #$06 ldy #$06
jsr draw_dialog_label jsr draw_dialog_label
jmp L09B8 jmp L09B8
@ -177,7 +170,6 @@ L099B: pha
L09AC: jsr L191B L09AC: jsr L191B
axy_call draw_dialog_label, $06, $B2DE axy_call draw_dialog_label, $06, $B2DE
L09B8: jsr prompt_input_loop L09B8: jsr prompt_input_loop
L09BC := * + 1
bmi L09B8 bmi L09B8
bne L09C2 bne L09C2
jmp L090C jmp L090C
@ -199,7 +191,7 @@ L09D9: lda #$00
jsr set_port_from_window_id jsr set_port_from_window_id
addr_call draw_dialog_title, $B319 addr_call draw_dialog_title, $B319
ldax #$B32A ldax #$B32A
L09F2: ldy #$01 ldy #$01
jsr draw_dialog_label jsr draw_dialog_label
jsr L0D31 jsr L0D31
lda #$FF lda #$FF
@ -241,7 +233,7 @@ L0A74: jsr bell
L0A7A: lda $D443 L0A7A: lda $D443
beq L0A74 beq L0A74
L0A7F: cmp #$10 cmp #$10
bcs L0A74 bcs L0A74
jsr set_cursor_pointer jsr set_cursor_pointer
lda $D57D lda $D57D
@ -372,9 +364,8 @@ L0BE6: MGTK_RELAY_CALL MGTK::SetPenMode, $D202
MGTK_RELAY_CALL MGTK::PaintRect, $AE20 MGTK_RELAY_CALL MGTK::PaintRect, $AE20
ldy #$11 ldy #$11
ldax #$AE20 ldax #$AE20
L0C00 := * + 2
jsr MGTK_RELAY jsr MGTK_RELAY
L0C01: lda #$00 lda #$00
L0C03: rts L0C03: rts
L0C04: sta L0C1E L0C04: sta L0C1E
@ -391,7 +382,6 @@ L0C0F: lda L0C1E
L0C1E: .byte 0 L0C1E: .byte 0
L0C1F: .byte 0 L0C1F: .byte 0
L0C20: ldy #$27 L0C20: ldy #$27
L0C23 := * + 1
sty $D888 sty $D888
ldy #$00 ldy #$00
sty $D889 sty $D889
@ -469,7 +459,6 @@ L0CF6: return #$FF
lda $D887 lda $D887
clc clc
adc #$01 adc #$01
L0D00 := * + 1
cmp $D890 cmp $D890
bcc L0D06 bcc L0D06
lda #$00 lda #$00
@ -1611,7 +1600,7 @@ L1917: dey
rts rts
L191B: sta ALTZPOFF L191B: sta ALTZPOFF
lda $C082 lda ROMIN2
jsr BELL1 jsr BELL1
sta ALTZPON sta ALTZPON
lda LCBANK1 lda LCBANK1

22
desktop/ovl3.s
View File

@ -592,7 +592,7 @@ L953F: MGTK_RELAY_CALL MGTK::GetEvent, $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D6F8 MGTK_RELAY_CALL MGTK::InRect, $D6F8
cmp #$80 cmp #MGTK::inrect_inside
beq L957C beq L957C
lda L95BF lda L95BF
beq L9584 beq L9584
@ -630,7 +630,7 @@ L95C5: MGTK_RELAY_CALL MGTK::GetEvent, $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D700 MGTK_RELAY_CALL MGTK::InRect, $D700
cmp #$80 cmp #MGTK::inrect_inside
beq L9602 beq L9602
lda L9645 lda L9645
beq L960A beq L960A
@ -688,7 +688,7 @@ L9683: lda $D665
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D6F8 MGTK_RELAY_CALL MGTK::InRect, $D6F8
cmp #$80 cmp #MGTK::inrect_inside
bne L96C8 bne L96C8
MGTK_RELAY_CALL MGTK::SetPenMode, $D202 MGTK_RELAY_CALL MGTK::SetPenMode, $D202
MGTK_RELAY_CALL MGTK::PaintRect, $D6F8 MGTK_RELAY_CALL MGTK::PaintRect, $D6F8
@ -698,7 +698,7 @@ L9683: lda $D665
L96C7: rts L96C7: rts
L96C8: MGTK_RELAY_CALL MGTK::InRect, $D700 L96C8: MGTK_RELAY_CALL MGTK::InRect, $D700
cmp #$80 cmp #MGTK::inrect_inside
bne L96EF bne L96EF
MGTK_RELAY_CALL MGTK::SetPenMode, $D202 MGTK_RELAY_CALL MGTK::SetPenMode, $D202
MGTK_RELAY_CALL MGTK::PaintRect, $D700 MGTK_RELAY_CALL MGTK::PaintRect, $D700
@ -1524,11 +1524,10 @@ L9DC9: sty L9DDD
php php
sei sei
sta ALTZPOFF sta ALTZPOFF
sta $C082 sta ROMIN2
jsr MLI jsr MLI
L9DDD: .byte 0 L9DDD: .byte 0
L9DDE: .byte 0 L9DDE: .addr 0
L9DDF: .byte 0
sta ALTZPON sta ALTZPON
tax tax
lda LCBANK1 lda LCBANK1
@ -1555,8 +1554,7 @@ L9E05: stax L9E1B
ldx $D3EE ldx $D3EE
L9E17: lda $D3EE,x L9E17: lda $D3EE,x
.byte $9D .byte $9D
L9E1B: .byte $34 L9E1B: .addr $1234
L9E1C: .byte $12
dex dex
bpl L9E17 bpl L9E17
sta ALTZPON sta ALTZPON
@ -1571,8 +1569,7 @@ L9E2A: stax L9E40
ldx $D3AD ldx $D3AD
L9E3C: lda $D3AD,x L9E3C: lda $D3AD,x
.byte $9D .byte $9D
L9E40: .byte $34 L9E40: .addr $1234
L9E41: .byte $12
dex dex
bpl L9E3C bpl L9E3C
sta ALTZPON sta ALTZPON
@ -1581,8 +1578,7 @@ L9E41: .byte $12
rts rts
asl a asl a
L9E50: .byte 0 L9E50: .word 0
L9E51: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0

91
desktop/ovl4.s
View File

@ -123,11 +123,11 @@ L5151: lda $D5B7
bit L51AE bit L51AE
bmi L5183 bmi L5183
MGTK_RELAY_CALL MGTK::InRect, $DA9E MGTK_RELAY_CALL MGTK::InRect, $DA9E
cmp #$80 cmp #MGTK::inrect_inside
bne L5196 bne L5196
beq L5190 beq L5190
L5183: MGTK_RELAY_CALL MGTK::InRect, $DAAA L5183: MGTK_RELAY_CALL MGTK::InRect, $DAAA
cmp #$80 cmp #MGTK::inrect_inside
bne L5196 bne L5196
L5190: jsr L55E0 L5190: jsr L55E0
jmp L5199 jmp L5199
@ -163,7 +163,7 @@ L51D2: lda $D5B7
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9E0 MGTK_RELAY_CALL MGTK::InRect, $D9E0
cmp #$80 cmp #MGTK::inrect_inside
beq L5200 beq L5200
jmp L5239 jmp L5239
@ -188,7 +188,7 @@ L5216: lda $D5B7
jmp L5308 jmp L5308
L5239: MGTK_RELAY_CALL MGTK::InRect, $D9F0 L5239: MGTK_RELAY_CALL MGTK::InRect, $D9F0
cmp #$80 cmp #MGTK::inrect_inside
beq L5249 beq L5249
jmp L526B jmp L526B
@ -202,7 +202,7 @@ L5249: bit L5105
L5268: jmp L5308 L5268: jmp L5308
L526B: MGTK_RELAY_CALL MGTK::InRect, $D9D0 L526B: MGTK_RELAY_CALL MGTK::InRect, $D9D0
cmp #$80 cmp #MGTK::inrect_inside
beq L527B beq L527B
jmp L529D jmp L529D
@ -216,7 +216,7 @@ L527B: bit L5105
L529A: jmp L5308 L529A: jmp L5308
L529D: MGTK_RELAY_CALL MGTK::InRect, $D9D8 L529D: MGTK_RELAY_CALL MGTK::InRect, $D9D8
cmp #$80 cmp #MGTK::inrect_inside
beq L52AD beq L52AD
jmp L52CD jmp L52CD
@ -229,7 +229,7 @@ L52AD: MGTK_RELAY_CALL MGTK::SetPenMode, $D202
L52CA: jmp L5308 L52CA: jmp L5308
L52CD: MGTK_RELAY_CALL MGTK::InRect, $D9E8 L52CD: MGTK_RELAY_CALL MGTK::InRect, $D9E8
cmp #$80 cmp #MGTK::inrect_inside
beq L52DD beq L52DD
jmp L52FA jmp L52FA
@ -271,13 +271,7 @@ L5340: rts
L5341: lda $D5F1 L5341: lda $D5F1
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
lda $D20F add16 $D20F, $D60F, $D20F
clc
adc $D60F
sta $D20F
lda $D210
adc $D610
sta $D210
lsr16 $D20F lsr16 $D20F
lsr16 $D20F lsr16 $D20F
lsr16 $D20F lsr16 $D20F
@ -633,14 +627,14 @@ L56F6: lda #$00
sta L577B sta L577B
L56FB: MGTK_RELAY_CALL MGTK::GetEvent, $D208 L56FB: MGTK_RELAY_CALL MGTK::GetEvent, $D208
lda $D208 lda $D208
cmp #$02 cmp #MGTK::event_kind_button_up
beq L575E beq L575E
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9D8 MGTK_RELAY_CALL MGTK::InRect, $D9D8
cmp #$80 cmp #MGTK::inrect_inside
beq L5738 beq L5738
lda L577B lda L577B
beq L5740 beq L5740
@ -671,14 +665,14 @@ L577C: lda #$00
sta L5801 sta L5801
L5781: MGTK_RELAY_CALL MGTK::GetEvent, $D208 L5781: MGTK_RELAY_CALL MGTK::GetEvent, $D208
lda $D208 lda $D208
cmp #$02 cmp #MGTK::event_kind_button_up
beq L57E4 beq L57E4
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9D0 MGTK_RELAY_CALL MGTK::InRect, $D9D0
cmp #$80 cmp #MGTK::inrect_inside
beq L57BE beq L57BE
lda L5801 lda L5801
beq L57C6 beq L57C6
@ -709,14 +703,14 @@ L5802: lda #$00
sta L5887 sta L5887
L5807: MGTK_RELAY_CALL MGTK::GetEvent, $D208 L5807: MGTK_RELAY_CALL MGTK::GetEvent, $D208
lda $D208 lda $D208
cmp #$02 cmp #MGTK::event_kind_button_up
beq L586A beq L586A
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9E8 MGTK_RELAY_CALL MGTK::InRect, $D9E8
cmp #$80 cmp #MGTK::inrect_inside
beq L5844 beq L5844
lda L5887 lda L5887
beq L584C beq L584C
@ -747,14 +741,14 @@ L5888: lda #$00
sta L590D sta L590D
L588D: MGTK_RELAY_CALL MGTK::GetEvent, $D208 L588D: MGTK_RELAY_CALL MGTK::GetEvent, $D208
lda $D208 lda $D208
cmp #$02 cmp #MGTK::event_kind_button_up
beq L58F0 beq L58F0
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9E0 MGTK_RELAY_CALL MGTK::InRect, $D9E0
cmp #$80 cmp #MGTK::inrect_inside
beq L58CA beq L58CA
lda L590D lda L590D
beq L58D2 beq L58D2
@ -785,14 +779,14 @@ L590E: lda #$00
sta L5993 sta L5993
L5913: MGTK_RELAY_CALL MGTK::GetEvent, $D208 L5913: MGTK_RELAY_CALL MGTK::GetEvent, $D208
lda $D208 lda $D208
cmp #$02 cmp #MGTK::event_kind_button_up
beq L5976 beq L5976
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $D9F0 MGTK_RELAY_CALL MGTK::InRect, $D9F0
cmp #$80 cmp #MGTK::inrect_inside
beq L5950 beq L5950
lda L5993 lda L5993
beq L5958 beq L5958
@ -827,8 +821,7 @@ L5994: sty L59A8
lda ROMIN2 lda ROMIN2
jsr MLI jsr MLI
L59A8: .byte 0 L59A8: .byte 0
L59A9: .byte 0 L59A9: .addr 0
L59AA: .byte 0
sta ALTZPON sta ALTZPON
tax tax
lda LCBANK1 lda LCBANK1
@ -2083,12 +2076,12 @@ L66C9: addr_call L5DED, $D484
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $DA9E MGTK_RELAY_CALL MGTK::InRect, $DA9E
cmp #$80 cmp #MGTK::inrect_inside
beq L6719 beq L6719
bit L5104 bit L5104
bpl L6718 bpl L6718
MGTK_RELAY_CALL MGTK::InRect, $DAAA MGTK_RELAY_CALL MGTK::InRect, $DAAA
cmp #$80 cmp #MGTK::inrect_inside
bne L6718 bne L6718
jmp L6D1E jmp L6D1E
@ -2115,13 +2108,7 @@ L672F: jsr L6E45
lda $D484 lda $D484
sta $08 sta $08
L6751: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L6751: MGTK_RELAY_CALL MGTK::TextWidth, $0006
lda $09 add16 $09, L684D, $09
clc
adc L684D
sta $09
lda $0A
adc L684E
sta $0A
lda $09 lda $09
cmp $D20D cmp $D20D
lda $0A lda $0A
@ -2171,13 +2158,7 @@ L67C4: copy16 #$D402, $06
lda $D402 lda $D402
sta $08 sta $08
L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $0006
lda $09 add16 $09, $DAA6, $09
clc
adc $DAA6
sta $09
lda $0A
adc $DAA7
sta $0A
lda $09 lda $09
cmp $D20D cmp $D20D
lda $0A lda $0A
@ -2225,8 +2206,7 @@ L6846: jsr L6D27
jsr L6EA3 jsr L6EA3
rts rts
L684D: .byte 0 L684D: .word 0
L684E: .byte 0
lda $D5B7 lda $D5B7
sta $D208 sta $D208
MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208 MGTK_RELAY_CALL MGTK::ScreenToWindow, $D208
@ -2234,12 +2214,12 @@ L684E: .byte 0
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $D20D MGTK_RELAY_CALL MGTK::MoveTo, $D20D
MGTK_RELAY_CALL MGTK::InRect, $DAAA MGTK_RELAY_CALL MGTK::InRect, $DAAA
cmp #$80 cmp #MGTK::inrect_inside
beq L6890 beq L6890
bit L5104 bit L5104
bpl L688F bpl L688F
MGTK_RELAY_CALL MGTK::InRect, $DA9E MGTK_RELAY_CALL MGTK::InRect, $DA9E
cmp #$80 cmp #MGTK::inrect_inside
bne L688F bne L688F
jmp L6D21 jmp L6D21
@ -2266,13 +2246,7 @@ L68A6: jsr L6E72
lda $D484 lda $D484
sta $08 sta $08
L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $0006
lda $09 add16 $09, L69C4, $09
clc
adc L69C4
sta $09
lda $0A
adc L69C5
sta $0A
lda $09 lda $09
cmp $D20D cmp $D20D
lda $0A lda $0A
@ -2322,13 +2296,7 @@ L693B: copy16 #$D443, $06
lda $D443 lda $D443
sta $08 sta $08
L6948: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L6948: MGTK_RELAY_CALL MGTK::TextWidth, $0006
lda $09 add16 $09, $DAB2, $09
clc
adc $DAB2
sta $09
lda $0A
adc $DAB3
sta $0A
lda $09 lda $09
cmp $D20D cmp $D20D
lda $0A lda $0A
@ -2376,8 +2344,7 @@ L69BD: jsr L6D27
jsr L6E9F jsr L6E9F
rts rts
L69C4: .byte 0 L69C4: .word 0
L69C5: .byte 0
sta L6A17 sta L6A17
lda $D402 lda $D402
clc clc

5
desktop/ovl5.s
View File

@ -219,8 +219,7 @@ L7198: addr_call L647C, path_buf1
lda #0 lda #0
sta $D8EC sta $D8EC
jsr L55BA jsr L55BA
copy16 #path_buf0, $6
L71C0: copy16 #path_buf0, $6
copy16 #path_buf1, $8 copy16 #path_buf1, $8
ldx $50AA ldx $50AA
txs txs
@ -244,7 +243,7 @@ L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
L71F9: lda #1 L71F9: lda #1
sta path_buf2 sta path_buf2
lda #' ' lda #' '
L7200: sta $D485 sta $D485
jsr L6D27 jsr L6D27
ldx L709B ldx L709B
L7209: lda L709B+1,x L7209: lda L709B+1,x

10
desktop/ovl7.s
View File

@ -334,27 +334,27 @@ L73A9: .byte 0
L73AA: .byte 0 L73AA: .byte 0
MGTK_RELAY_CALL MGTK::InRect, $D966 MGTK_RELAY_CALL MGTK::InRect, $D966
cmp #$80 cmp #MGTK::inrect_inside
bne L73BB bne L73BB
jmp L73FE jmp L73FE
L73BB: MGTK_RELAY_CALL MGTK::InRect, $D96E L73BB: MGTK_RELAY_CALL MGTK::InRect, $D96E
cmp #$80 cmp #MGTK::inrect_inside
bne L73CB bne L73CB
jmp L7413 jmp L7413
L73CB: MGTK_RELAY_CALL MGTK::InRect, $D976 L73CB: MGTK_RELAY_CALL MGTK::InRect, $D976
cmp #$80 cmp #MGTK::inrect_inside
bne L73DB bne L73DB
jmp L7428 jmp L7428
L73DB: MGTK_RELAY_CALL MGTK::InRect, $D97E L73DB: MGTK_RELAY_CALL MGTK::InRect, $D97E
cmp #$80 cmp #MGTK::inrect_inside
bne L73EB bne L73EB
jmp L743D jmp L743D
L73EB: MGTK_RELAY_CALL MGTK::InRect, $D986 L73EB: MGTK_RELAY_CALL MGTK::InRect, $D986
cmp #$80 cmp #MGTK::inrect_inside
bne L73FB bne L73FB
jmp L7452 jmp L7452

31
res/refactor.pl
View File

@ -154,6 +154,32 @@ $text =~ s/
(hex(substr($3,1)) + 1 == hex(substr($6,1))) (hex(substr($3,1)) + 1 == hex(substr($6,1)))
? "add16 $1, #\$$5$2, $3" : $&/egx; ? "add16 $1, #\$$5$2, $3" : $&/egx;
$text =~ s/
\b lda \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ clc \n
\s+ adc \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sta \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ lda \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ adc \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sta \s+ ([L\$][0-9A-F]{2,4}) \b
/(hex(substr($1,1)) + 1 == hex(substr($4,1))) &&
(hex(substr($2,1)) + 1 == hex(substr($5,1))) &&
(hex(substr($3,1)) + 1 == hex(substr($6,1)))
? "add16 $1, $2, $3" : $&/egx;
$text =~ s/
\b lda \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sec \n
\s+ sbc \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sta \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ lda \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sbc \s+ ([L\$][0-9A-F]{2,4}) \n
\s+ sta \s+ ([L\$][0-9A-F]{2,4}) \b
/(hex(substr($1,1)) + 1 == hex(substr($4,1))) &&
(hex(substr($2,1)) + 1 == hex(substr($5,1))) &&
(hex(substr($3,1)) + 1 == hex(substr($6,1)))
? "sub16 $1, $2, $3" : $&/egx;
$text =~ s/ $text =~ s/
\b lda \s+ ( (?: [L\$][0-9A-F]{2,4} ) | (?: \#\$[0-9A-F]{2} ) ) \n \b lda \s+ ( (?: [L\$][0-9A-F]{2,4} ) | (?: \#\$[0-9A-F]{2} ) ) \n
\s+ rts \b \s+ rts \b
@ -163,4 +189,9 @@ $text =~ s/
\b brk \b \b brk \b
/.byte 0/gx; /.byte 0/gx;
$text =~ s/
\b ( MGTK_RELAY_CALL \s+ MGTK::InRect, .* \n
\s+ ) cmp \s+ \#\$80 \b
/$1cmp #MGTK::inrect_inside/gx;
print $text; print $text;