mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-26 02:49:18 +00:00
apply refactor tool to desktop.s
This commit is contained in:
Joshua Bell
parent
fb0c2f1cfd
commit
471838a72c
@ -3810,10 +3810,7 @@ LBDE1: sub16 event_params_xcoord, portmap::viewloc::xcoord, event_params_xcoo
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
.proc LBE08
|
.proc LBE08
|
||||||
lda #$00
|
copy16 #$0800, LBE37
|
||||||
sta LBE37
|
|
||||||
lda #$08
|
|
||||||
sta LBE38
|
|
||||||
lda LBFC9
|
lda LBFC9
|
||||||
jsr LBF10
|
jsr LBF10
|
||||||
lda LBFCB
|
lda LBFCB
|
||||||
@ -8475,8 +8472,7 @@ L54CA: lda cached_window_icon_list,y
|
|||||||
sta $1800
|
sta $1800
|
||||||
lda #$00
|
lda #$00
|
||||||
sta L544A
|
sta L544A
|
||||||
lda #$FF
|
ldax #$03FF
|
||||||
ldx #$03
|
|
||||||
L54EA: sta L5444,x
|
L54EA: sta L5444,x
|
||||||
dex
|
dex
|
||||||
bpl L54EA
|
bpl L54EA
|
||||||
@ -8530,8 +8526,7 @@ L5547: inx
|
|||||||
ldx L5449
|
ldx L5449
|
||||||
tya
|
tya
|
||||||
sta $1801,x
|
sta $1801,x
|
||||||
lda #$FF
|
ldax #$03FF
|
||||||
ldx #$03
|
|
||||||
L5565: sta L5444,x
|
L5565: sta L5444,x
|
||||||
dex
|
dex
|
||||||
bpl L5565
|
bpl L5565
|
||||||
@ -10314,8 +10309,7 @@ L650D: .word 0
|
|||||||
tay
|
tay
|
||||||
sub16 L7B63, L7B5F, L6602
|
sub16 L7B63, L7B5F, L6602
|
||||||
sub16 L6602, L6600, L6602
|
sub16 L6602, L6600, L6602
|
||||||
lsr L6603
|
lsr16 L6602
|
||||||
ror L6602
|
|
||||||
ldx L6602
|
ldx L6602
|
||||||
sub16 grafport2::cliprect::x1, L7B5F, L6602
|
sub16 grafport2::cliprect::x1, L7B5F, L6602
|
||||||
bpl L65D0
|
bpl L65D0
|
||||||
@ -10326,8 +10320,7 @@ L65D0: cmp16 grafport2::cliprect::x2, L7B63
|
|||||||
tya
|
tya
|
||||||
jmp L65EE
|
jmp L65EE
|
||||||
|
|
||||||
L65E2: lsr L6603
|
L65E2: lsr16 L6602
|
||||||
ror L6602
|
|
||||||
lda L6602
|
lda L6602
|
||||||
L65EB: jsr L62BC
|
L65EB: jsr L62BC
|
||||||
L65EE: sta event_params+1
|
L65EE: sta event_params+1
|
||||||
@ -10355,10 +10348,8 @@ L6603: .byte 0
|
|||||||
tay
|
tay
|
||||||
sub16 L7B65, L7B61, L66A0
|
sub16 L7B65, L7B61, L66A0
|
||||||
sub16_8 L66A0, L669F, L66A0
|
sub16_8 L66A0, L669F, L66A0
|
||||||
lsr L66A1
|
lsr16 L66A0
|
||||||
ror L66A0
|
lsr16 L66A0
|
||||||
lsr L66A1
|
|
||||||
ror L66A0
|
|
||||||
ldx L66A0
|
ldx L66A0
|
||||||
sub16 grafport2::cliprect::y1, L7B61, L66A0
|
sub16 grafport2::cliprect::y1, L7B61, L66A0
|
||||||
bpl L6669
|
bpl L6669
|
||||||
@ -12172,12 +12163,9 @@ L76BB: bit L7634
|
|||||||
ldax L7B63
|
ldax L7B63
|
||||||
jmp L7710
|
jmp L7710
|
||||||
|
|
||||||
L7705: lda #$AA
|
L7705: addr_jump L7710, $00AA
|
||||||
ldx #$00
|
|
||||||
jmp L7710
|
|
||||||
|
|
||||||
L770C: lda #$C2
|
L770C: ldax #$01C2
|
||||||
ldx #$01
|
|
||||||
L7710: ldy #$20
|
L7710: ldy #$20
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
txa
|
txa
|
||||||
@ -12190,9 +12178,7 @@ L7710: ldy #$20
|
|||||||
ldax L7B65
|
ldax L7B65
|
||||||
jmp L7744
|
jmp L7744
|
||||||
|
|
||||||
L7739: lda #$32
|
L7739: addr_jump L7744, $0032
|
||||||
ldx #$00
|
|
||||||
jmp L7744
|
|
||||||
|
|
||||||
L7740: ldax #$6C
|
L7740: ldax #$6C
|
||||||
L7744: ldy #$22
|
L7744: ldy #$22
|
||||||
@ -12645,8 +12631,7 @@ L7B6F: sta L7B63,x
|
|||||||
bpl L7BCB
|
bpl L7BCB
|
||||||
lda cached_window_icon_count
|
lda cached_window_icon_count
|
||||||
bne L7BA1
|
bne L7BA1
|
||||||
L7B96: lda #$00
|
L7B96: ldax #$0300
|
||||||
ldx #$03
|
|
||||||
L7B9A: sta L7B5F,x
|
L7B9A: sta L7B5F,x
|
||||||
dex
|
dex
|
||||||
bpl L7B9A
|
bpl L7B9A
|
||||||
@ -12890,8 +12875,7 @@ L7E0C: lda LCBANK1
|
|||||||
|
|
||||||
L7E20: lda LCBANK2
|
L7E20: lda LCBANK2
|
||||||
lda LCBANK2
|
lda LCBANK2
|
||||||
lda #$5A
|
ldax #$0F5A
|
||||||
ldx #$0F
|
|
||||||
L7E2A: sta $0808,x
|
L7E2A: sta $0808,x
|
||||||
dex
|
dex
|
||||||
bpl L7E2A
|
bpl L7E2A
|
||||||
@ -12947,8 +12931,7 @@ L7E90: inc $0805
|
|||||||
lda ($06),y
|
lda ($06),y
|
||||||
ora #$80
|
ora #$80
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
lda #$5A
|
ldax #$0F5A
|
||||||
ldx #$0F
|
|
||||||
L7EA8: sta $0808,x
|
L7EA8: sta $0808,x
|
||||||
dex
|
dex
|
||||||
bpl L7EA8
|
bpl L7EA8
|
||||||
@ -13974,10 +13957,7 @@ L8736: lda ($06),y
|
|||||||
stx LDFC5
|
stx LDFC5
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L8745: lda #$04
|
L8745: copy16 #$2004, LDFC5
|
||||||
sta LDFC5
|
|
||||||
lda #$20
|
|
||||||
sta LDFC6
|
|
||||||
lda #$24
|
lda #$24
|
||||||
sta LDFC7
|
sta LDFC7
|
||||||
lda L877F
|
lda L877F
|
||||||
@ -15042,10 +15022,7 @@ L8F27: jmp L8FB8 ; cmd_get_size
|
|||||||
jsr L993E
|
jsr L993E
|
||||||
jsr LA271
|
jsr LA271
|
||||||
jsr L9968
|
jsr L9968
|
||||||
L8F3F: lda #$FF
|
L8F3F: copy16 #$00FF, LE05B
|
||||||
sta LE05B
|
|
||||||
lda #$00
|
|
||||||
sta LE05C
|
|
||||||
jsr L9A0D
|
jsr L9A0D
|
||||||
jsr L917F
|
jsr L917F
|
||||||
L8F4F: jsr L91E8
|
L8F4F: jsr L91E8
|
||||||
@ -16389,10 +16366,7 @@ L99FE: jmp LA39F
|
|||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
.proc L9A01
|
.proc L9A01
|
||||||
lda #$80
|
copy16 #$0080, LE05B
|
||||||
sta LE05B
|
|
||||||
lda #$00
|
|
||||||
sta LE05C
|
|
||||||
beq L9A0F
|
beq L9A0F
|
||||||
L9A0D: lda #$FF
|
L9A0D: lda #$FF
|
||||||
L9A0F: sta L9B31
|
L9A0F: sta L9B31
|
||||||
@ -18898,10 +18872,7 @@ LB2CA: lda ($08),y
|
|||||||
jsr draw_filename_prompt
|
jsr draw_filename_prompt
|
||||||
rts
|
rts
|
||||||
|
|
||||||
LB2ED: lda #$00
|
LB2ED: copy16 #$8000, LD8E7
|
||||||
sta LD8E7
|
|
||||||
lda #$80
|
|
||||||
sta LD8E8
|
|
||||||
lda winfoF
|
lda winfoF
|
||||||
jsr set_port_from_window_id
|
jsr set_port_from_window_id
|
||||||
LB2FD: jsr prompt_input_loop
|
LB2FD: jsr prompt_input_loop
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user