mirror of
https://github.com/mi57730/a2d.git
synced 2025-02-20 02:29:11 +00:00
DeskTop seg 1: WIP tidying param blocks
This commit is contained in:
Joshua Bell
parent
e83eac8f9b
commit
1ffd982735
@ -2797,8 +2797,10 @@ L5F1C: .byte $80
|
|||||||
L5F1D: .byte $00
|
L5F1D: .byte $00
|
||||||
L5F1E: .byte $00,$00,$00,$00,$00,$20,$80,$00
|
L5F1E: .byte $00,$00,$00,$00,$00,$20,$80,$00
|
||||||
.byte $00,$00,$00,$00,$2F,$02,$BF,$00
|
.byte $00,$00,$00,$00,$2F,$02,$BF,$00
|
||||||
|
|
||||||
white_pattern:
|
white_pattern:
|
||||||
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
|
||||||
.byte $FF,$00,$00,$00,$00,$00,$01,$01
|
.byte $FF,$00,$00,$00,$00,$00,$01,$01
|
||||||
.byte $00,$00
|
.byte $00,$00
|
||||||
L5F40: .byte $00
|
L5F40: .byte $00
|
||||||
@ -2812,9 +2814,12 @@ L5F66: .byte $42,$5F,$00,$00,$00,$00,$00,$00
|
|||||||
L5F72: .res 128, 0
|
L5F72: .res 128, 0
|
||||||
L5FF2: .byte $00
|
L5FF2: .byte $00
|
||||||
L5FF3: .byte $FF
|
L5FF3: .byte $FF
|
||||||
set_pos_params: .byte $00
|
|
||||||
L5FF5: .byte $00
|
.proc set_pos_params
|
||||||
L5FF6: .byte $00,$00
|
xcoord: .word 0
|
||||||
|
ycoord: .word 0
|
||||||
|
.endproc
|
||||||
|
|
||||||
L5FF8: .byte $00
|
L5FF8: .byte $00
|
||||||
L5FF9: .byte $00
|
L5FF9: .byte $00
|
||||||
L5FFA: .byte $00
|
L5FFA: .byte $00
|
||||||
@ -2886,18 +2891,18 @@ L60A8: lda L5FF3
|
|||||||
L60B2: lda #$00
|
L60B2: lda #$00
|
||||||
sta L5FF3
|
sta L5FF3
|
||||||
sta L5FF2
|
sta L5FF2
|
||||||
lda L5FF6
|
lda set_pos_params::ycoord
|
||||||
clc
|
clc
|
||||||
sbc L6003
|
sbc L6003
|
||||||
sta $84
|
sta $84
|
||||||
clc
|
clc
|
||||||
adc #$0C
|
adc #$0C
|
||||||
sta $85
|
sta $85
|
||||||
lda set_pos_params
|
lda set_pos_params::xcoord
|
||||||
sec
|
sec
|
||||||
sbc L6002
|
sbc L6002
|
||||||
tax
|
tax
|
||||||
lda L5FF5
|
lda set_pos_params::xcoord+1
|
||||||
sbc #$00
|
sbc #$00
|
||||||
bpl L60E1
|
bpl L60E1
|
||||||
txa
|
txa
|
||||||
@ -3115,7 +3120,7 @@ L6265: bit L6339
|
|||||||
bpl L6263
|
bpl L6263
|
||||||
lda #$02
|
lda #$02
|
||||||
sta L6264
|
sta L6264
|
||||||
L627C: ldx #$02
|
L627C: ldx #2
|
||||||
L627E: lda L5FF8,x
|
L627E: lda L5FF8,x
|
||||||
cmp set_pos_params,x
|
cmp set_pos_params,x
|
||||||
bne L628B
|
bne L628B
|
||||||
@ -3123,7 +3128,7 @@ L627E: lda L5FF8,x
|
|||||||
bpl L627E
|
bpl L627E
|
||||||
bmi L629F
|
bmi L629F
|
||||||
L628B: jsr L61C6
|
L628B: jsr L61C6
|
||||||
ldx #$02
|
ldx #2
|
||||||
stx L5FF2
|
stx L5FF2
|
||||||
L6293: lda L5FF8,x
|
L6293: lda L5FF8,x
|
||||||
sta set_pos_params,x
|
sta set_pos_params,x
|
||||||
@ -3264,6 +3269,7 @@ L6469: .byte $02
|
|||||||
L646A: .byte 0
|
L646A: .byte 0
|
||||||
sed
|
sed
|
||||||
.byte $66
|
.byte $66
|
||||||
|
|
||||||
dealloc_interrupt_params:
|
dealloc_interrupt_params:
|
||||||
.byte 1
|
.byte 1
|
||||||
L646E: .byte 0
|
L646E: .byte 0
|
||||||
@ -3422,8 +3428,13 @@ L6588 := * + 2
|
|||||||
|
|
||||||
L6592: .byte $00,$00,$0D,$00,$00,$20,$80,$00
|
L6592: .byte $00,$00,$0D,$00,$00,$20,$80,$00
|
||||||
|
|
||||||
fill_rect_params:
|
.proc fill_rect_params
|
||||||
.byte $00,$00,$00,$00,$2F,$02,$BF,$00
|
left: .word 0
|
||||||
|
top: .word 0
|
||||||
|
right: .word 559
|
||||||
|
bottom: .word 191
|
||||||
|
.endproc
|
||||||
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
|
||||||
checkerboard_pattern:
|
checkerboard_pattern:
|
||||||
@ -3692,12 +3703,21 @@ L6821: .byte $1E
|
|||||||
L6822: .byte $00
|
L6822: .byte $00
|
||||||
L6823: .byte $00
|
L6823: .byte $00
|
||||||
L6824: .byte $00
|
L6824: .byte $00
|
||||||
test_box_params:
|
|
||||||
.byte $FF,$FF,$FF,$FF,$30,$02,$0C,$00
|
|
||||||
|
|
||||||
fill_rect_params2:
|
.proc test_box_params
|
||||||
.byte $00,$00,$00,$00
|
left: .word $ffff
|
||||||
L6831: .byte $00,$00,$0B,$00
|
top: .word $ffff
|
||||||
|
right: .word $230
|
||||||
|
bottom: .word $C
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.proc fill_rect_params2
|
||||||
|
left: .word 0
|
||||||
|
top: .word 0
|
||||||
|
width: .word 0
|
||||||
|
height: .word 11
|
||||||
|
.endproc
|
||||||
|
|
||||||
L6835: .byte $00
|
L6835: .byte $00
|
||||||
L6836: .byte $00
|
L6836: .byte $00
|
||||||
test_box_params2: .byte $00,$00
|
test_box_params2: .byte $00,$00
|
||||||
@ -4021,8 +4041,8 @@ L6A9D: jsr L6878
|
|||||||
cmp L00C7
|
cmp L00C7
|
||||||
bne L6ACF
|
bne L6ACF
|
||||||
beq L6AD9
|
beq L6AD9
|
||||||
L6AAE: lda set_pos_params
|
L6AAE: lda set_pos_params::xcoord
|
||||||
ldx L5FF5
|
ldx set_pos_params::xcoord+1
|
||||||
cpx $B8
|
cpx $B8
|
||||||
bcc L6ACF
|
bcc L6ACF
|
||||||
bne L6ABE
|
bne L6ABE
|
||||||
@ -4057,7 +4077,7 @@ L6ADE: jsr L68BE
|
|||||||
bne L6B16
|
bne L6B16
|
||||||
beq L6B1C
|
beq L6B1C
|
||||||
L6AF0: lda L6847,x
|
L6AF0: lda L6847,x
|
||||||
cmp L5FF6
|
cmp set_pos_params::ycoord
|
||||||
bcs L6B1C
|
bcs L6B1C
|
||||||
bcc L6B16
|
bcc L6B16
|
||||||
L6AFA: lda $C9
|
L6AFA: lda $C9
|
||||||
@ -4092,9 +4112,9 @@ L6B29: jsr L653C
|
|||||||
|
|
||||||
L6B35: ldx #$01
|
L6B35: ldx #$01
|
||||||
L6B37: lda $B7,x
|
L6B37: lda $B7,x
|
||||||
sta fill_rect_params2,x
|
sta fill_rect_params2::left,x
|
||||||
lda $B9,x
|
lda $B9,x
|
||||||
sta L6831,x
|
sta fill_rect_params2::width,x
|
||||||
lda $BB,x
|
lda $BB,x
|
||||||
sta test_box_params2,x
|
sta test_box_params2,x
|
||||||
sta fill_rect_params4,x
|
sta fill_rect_params4,x
|
||||||
@ -5510,7 +5530,7 @@ L774B: lda ($A9),y
|
|||||||
cpy #$0B
|
cpy #$0B
|
||||||
bne L774B
|
bne L774B
|
||||||
ldx #$00
|
ldx #$00
|
||||||
stx L8351
|
stx set_input_params_unk
|
||||||
bit L76A7
|
bit L76A7
|
||||||
bmi L777D
|
bmi L777D
|
||||||
L775F: lda $B7,x
|
L775F: lda $B7,x
|
||||||
@ -5605,7 +5625,7 @@ L77F4: sta L769F,x
|
|||||||
bpl L77E4
|
bpl L77E4
|
||||||
cpy #$04
|
cpy #$04
|
||||||
bne L7814
|
bne L7814
|
||||||
lda L8351
|
lda set_input_params_unk
|
||||||
L7814: rts
|
L7814: rts
|
||||||
|
|
||||||
jsr L7074
|
jsr L7074
|
||||||
@ -5643,10 +5663,10 @@ L7854: lda L00C7,x
|
|||||||
jsr L50A9
|
jsr L50A9
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L7860: lda $92,x
|
L7860: lda $92,x
|
||||||
sta fill_rect_params5,x
|
sta set_box_params_box,x
|
||||||
sta set_box_params,x
|
sta set_box_params,x
|
||||||
lda $96,x
|
lda $96,x
|
||||||
sta L78DD,x
|
sta set_box_params_size,x
|
||||||
dex
|
dex
|
||||||
bpl L7860
|
bpl L7860
|
||||||
rts
|
rts
|
||||||
@ -5659,7 +5679,7 @@ L7872: sta L7010
|
|||||||
lda #$00
|
lda #$00
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
A2D_CALL A2D_SET_PATTERN, checkerboard_pattern
|
A2D_CALL A2D_SET_PATTERN, checkerboard_pattern
|
||||||
A2D_CALL A2D_FILL_RECT, fill_rect_params5
|
A2D_CALL A2D_FILL_RECT, set_box_params_box
|
||||||
jsr L6553
|
jsr L6553
|
||||||
jsr L7013
|
jsr L7013
|
||||||
beq L78CA
|
beq L78CA
|
||||||
@ -5691,11 +5711,20 @@ L78CA: rts
|
|||||||
L78CB: .byte $08,$00
|
L78CB: .byte $08,$00
|
||||||
L78CD: .byte $0C,$00
|
L78CD: .byte $0C,$00
|
||||||
L78CF: .byte $0D,$00
|
L78CF: .byte $0D,$00
|
||||||
set_box_params:
|
|
||||||
.byte $00,$00,$0D,$00,$00,$20,$80,$00
|
.proc set_box_params
|
||||||
fill_rect_params5:
|
left: .word 0
|
||||||
.byte $00,$00,$00,$00
|
top: .word $D
|
||||||
L78DD: .byte $00,$00,$00,$00
|
addr: .addr A2D_SCREEN_ADDR
|
||||||
|
stride: .word A2D_SCREEN_STRIDE
|
||||||
|
hoffset:.word 0
|
||||||
|
voffset:.word 0
|
||||||
|
width: .word 0
|
||||||
|
height: .word 0
|
||||||
|
.endproc
|
||||||
|
set_box_params_size := set_box_params::width
|
||||||
|
set_box_params_box := set_box_params::hoffset ; Re-used since h/voff are 0
|
||||||
|
|
||||||
jsr L7074
|
jsr L7074
|
||||||
ldx #$02
|
ldx #$02
|
||||||
L78E6: lda L0083,x
|
L78E6: lda L0083,x
|
||||||
@ -6423,7 +6452,7 @@ L7EAD: jsr L7F30
|
|||||||
|
|
||||||
L7ECD: lda #$00
|
L7ECD: lda #$00
|
||||||
sta L7D81
|
sta L7D81
|
||||||
sta L8351
|
sta set_input_params_unk
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L7ED6: lda $C062
|
L7ED6: lda $C062
|
||||||
@ -6435,7 +6464,7 @@ L7ED6: lda $C062
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L7EE2: jsr L7ED6
|
L7EE2: jsr L7ED6
|
||||||
sta L8350
|
sta set_input_params_modifiers
|
||||||
L7EE8: clc
|
L7EE8: clc
|
||||||
lda $C000
|
lda $C000
|
||||||
bpl L7EF4
|
bpl L7EF4
|
||||||
@ -6706,7 +6735,7 @@ L8105: jsr L8110
|
|||||||
L810F: rts
|
L810F: rts
|
||||||
|
|
||||||
L8110: sta $C9
|
L8110: sta $C9
|
||||||
lda L8350
|
lda set_input_params_modifiers
|
||||||
and #$03
|
and #$03
|
||||||
sta $CA
|
sta $CA
|
||||||
lda L6BD9
|
lda L6BD9
|
||||||
@ -6884,17 +6913,17 @@ L827A: cmp #$0D
|
|||||||
jmp L7EAD
|
jmp L7EAD
|
||||||
|
|
||||||
L8281: pha
|
L8281: pha
|
||||||
lda L8350
|
lda set_input_params_modifiers
|
||||||
beq L828C
|
beq L828C
|
||||||
ora #$80
|
ora #$80
|
||||||
sta L8350
|
sta set_input_params_modifiers
|
||||||
L828C: pla
|
L828C: pla
|
||||||
ldx #$C0
|
ldx #$C0
|
||||||
stx L5FFC
|
stx L5FFC
|
||||||
L8292: cmp #$0B
|
L8292: cmp #$0B
|
||||||
bne L82A2
|
bne L82A2
|
||||||
lda #$F8
|
lda #$F8
|
||||||
bit L8350
|
bit set_input_params_modifiers
|
||||||
bpl L829F
|
bpl L829F
|
||||||
lda #$D0
|
lda #$D0
|
||||||
L829F: jmp L823D
|
L829F: jmp L823D
|
||||||
@ -6902,7 +6931,7 @@ L829F: jmp L823D
|
|||||||
L82A2: cmp #$0A
|
L82A2: cmp #$0A
|
||||||
bne L82B2
|
bne L82B2
|
||||||
lda #$08
|
lda #$08
|
||||||
bit L8350
|
bit set_input_params_modifiers
|
||||||
bpl L82AF
|
bpl L82AF
|
||||||
lda #$30
|
lda #$30
|
||||||
L82AF: jmp L823D
|
L82AF: jmp L823D
|
||||||
@ -6913,7 +6942,7 @@ L82B2: cmp #$15
|
|||||||
bcc L82EA
|
bcc L82EA
|
||||||
clc
|
clc
|
||||||
lda #$08
|
lda #$08
|
||||||
bit L8350
|
bit set_input_params_modifiers
|
||||||
bpl L82C5
|
bpl L82C5
|
||||||
lda #$40
|
lda #$40
|
||||||
L82C5: adc L7D75
|
L82C5: adc L7D75
|
||||||
@ -6938,7 +6967,7 @@ L82ED: cmp #$08
|
|||||||
jsr L8352
|
jsr L8352
|
||||||
bcc L831A
|
bcc L831A
|
||||||
lda L7D75
|
lda L7D75
|
||||||
bit L8350
|
bit set_input_params_modifiers
|
||||||
bpl L8303
|
bpl L8303
|
||||||
sbc #$40
|
sbc #$40
|
||||||
jmp L8305
|
jmp L8305
|
||||||
@ -6954,13 +6983,13 @@ L8305: sta L7D75
|
|||||||
sta L7D76
|
sta L7D76
|
||||||
L831A: jmp L7E98
|
L831A: jmp L7E98
|
||||||
|
|
||||||
L831D: sta L834F
|
L831D: sta set_input_params_key
|
||||||
ldx #$23
|
ldx #$23
|
||||||
L8322: lda $A7,x
|
L8322: lda $A7,x
|
||||||
sta $0600,x
|
sta $0600,x
|
||||||
dex
|
dex
|
||||||
bpl L8322
|
bpl L8322
|
||||||
lda L834F
|
lda set_input_params_key
|
||||||
jsr L8110
|
jsr L8110
|
||||||
php
|
php
|
||||||
ldx #$23
|
ldx #$23
|
||||||
@ -6979,11 +7008,17 @@ L8346: rts
|
|||||||
L8347: A2D_CALL A2D_SET_INPUT, set_input_params
|
L8347: A2D_CALL A2D_SET_INPUT, set_input_params
|
||||||
rts
|
rts
|
||||||
|
|
||||||
set_input_params:
|
.proc set_input_params ; 1 byte shorter than normal, since KEY
|
||||||
.byte $03
|
state: .byte A2D_INPUT_KEY
|
||||||
L834F: .byte 0
|
key: .byte 0
|
||||||
L8350: .byte 0
|
modifiers:
|
||||||
L8351: .byte 0
|
.byte 0
|
||||||
|
unk: .byte 0
|
||||||
|
.endproc
|
||||||
|
set_input_params_key := set_input_params::key
|
||||||
|
set_input_params_modifiers := set_input_params::modifiers
|
||||||
|
set_input_params_unk := set_input_params::unk
|
||||||
|
|
||||||
L8352: lda L7D74
|
L8352: lda L7D74
|
||||||
cmp #$04
|
cmp #$04
|
||||||
beq L8368
|
beq L8368
|
||||||
@ -7000,7 +7035,7 @@ L836A: jsr L70B7
|
|||||||
lda $CC
|
lda $CC
|
||||||
bne L8380
|
bne L8380
|
||||||
lda #$09
|
lda #$09
|
||||||
bit L8350
|
bit set_input_params_modifiers
|
||||||
bpl L837A
|
bpl L837A
|
||||||
lda #$41
|
lda #$41
|
||||||
L837A: cmp $CB
|
L837A: cmp $CB
|
||||||
@ -7008,7 +7043,7 @@ L837A: cmp $CB
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L8380: inc L8351
|
L8380: inc set_input_params_unk
|
||||||
clc
|
clc
|
||||||
lda #$08
|
lda #$08
|
||||||
.byte $2C
|
.byte $2C
|
||||||
@ -7046,7 +7081,7 @@ L83B5: jsr L70B7
|
|||||||
sbc $C8
|
sbc $C8
|
||||||
beq L83C6
|
beq L83C6
|
||||||
ldx #$FF
|
ldx #$FF
|
||||||
L83C6: bit L8350
|
L83C6: bit set_input_params_modifiers
|
||||||
bpl L83D1
|
bpl L83D1
|
||||||
cpx #$64
|
cpx #$64
|
||||||
bcc L83D7
|
bcc L83D7
|
||||||
@ -7068,7 +7103,7 @@ L83E2: sec
|
|||||||
L83E8: sta L769B
|
L83E8: sta L769B
|
||||||
bcs L83F0
|
bcs L83F0
|
||||||
dec L769C
|
dec L769C
|
||||||
L83F0: inc L8351
|
L83F0: inc set_input_params_unk
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -7778,11 +7813,20 @@ L8E2E: .byte $00,$00,$00
|
|||||||
L8E31: .byte $00
|
L8E31: .byte $00
|
||||||
L8E32: .byte $00
|
L8E32: .byte $00
|
||||||
L8E33: .byte $00,$00
|
L8E33: .byte $00,$00
|
||||||
draw_bitmap_params: .byte $00,$00,$00,$00
|
|
||||||
L8E39: .byte $00
|
.proc draw_bitmap_params
|
||||||
L8E3A: .byte $00
|
left: .word 0
|
||||||
L8E3B: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
top: .word 0
|
||||||
|
addr: .addr 0
|
||||||
|
stride: .byte 0
|
||||||
|
.byte 0 ; ???
|
||||||
|
hoff: .word 0
|
||||||
|
voff: .word 0
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.byte $00,$00
|
||||||
L8E43: .byte $00,$00
|
L8E43: .byte $00,$00
|
||||||
|
|
||||||
fill_rect_params6: .byte $00
|
fill_rect_params6: .byte $00
|
||||||
L8E46: .byte $00,$00,$00
|
L8E46: .byte $00,$00,$00
|
||||||
L8E49: .byte $00
|
L8E49: .byte $00
|
||||||
@ -9481,12 +9525,12 @@ LA12E: lda draw_bitmap_params2,x
|
|||||||
dex
|
dex
|
||||||
bpl LA12E
|
bpl LA12E
|
||||||
ldy L8E43
|
ldy L8E43
|
||||||
LA13A: lda L8E3B
|
LA13A: lda draw_bitmap_params::stride
|
||||||
clc
|
clc
|
||||||
adc L8E39
|
adc draw_bitmap_params::addr
|
||||||
sta L8E39
|
sta draw_bitmap_params::addr
|
||||||
bcc LA149
|
bcc LA149
|
||||||
inc L8E3A
|
inc draw_bitmap_params::addr+1
|
||||||
LA149: dey
|
LA149: dey
|
||||||
bpl LA13A
|
bpl LA13A
|
||||||
rts
|
rts
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user