mirror of
https://github.com/mi57730/a2d.git
synced 2024-09-04 06:29:36 +00:00
DeskTop Seg 1: window widget params
This commit is contained in:
parent
d8f5c6a5a5
commit
5c24d5d114
@ -4147,6 +4147,9 @@ L6747:
|
|||||||
|
|
||||||
L6750: .byte $F9
|
L6750: .byte $F9
|
||||||
L6751: .byte $66
|
L6751: .byte $66
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L6752: .byte $00
|
L6752: .byte $00
|
||||||
L6753: .byte $00
|
L6753: .byte $00
|
||||||
L6754: .byte $00
|
L6754: .byte $00
|
||||||
@ -4179,10 +4182,14 @@ L67F2: cmp L6752
|
|||||||
L67FC: sec
|
L67FC: sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L67FE: .byte $AD,$52,$67,$CD,$53,$67,$F0,$F6
|
L67FE: lda L6752
|
||||||
.byte $C9,$80,$D0,$04,$A9,$00
|
cmp L6753
|
||||||
|
beq L67FC
|
||||||
|
cmp #$80
|
||||||
|
bne L680E
|
||||||
|
lda #0
|
||||||
bcs L6811
|
bcs L6811
|
||||||
clc
|
L680E: clc
|
||||||
adc #$04
|
adc #$04
|
||||||
L6811: clc
|
L6811: clc
|
||||||
rts
|
rts
|
||||||
@ -5073,19 +5080,20 @@ L6EAA: ldx L6BDA
|
|||||||
|
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
L6ECD:
|
.proc L6ECD
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L6ECF: lda L0082,x
|
loop: lda L0082,x
|
||||||
sta L6856,x
|
sta L6856,x
|
||||||
dex
|
dex
|
||||||
bpl L6ECF
|
bpl loop
|
||||||
lda L5F40
|
lda L5F40
|
||||||
sta L0082
|
sta L0082
|
||||||
lda L5F41
|
lda L5F41
|
||||||
sta L0083
|
sta L0083
|
||||||
ldy #$00
|
ldy #$00
|
||||||
lda (L0082),y
|
lda (L0082),y
|
||||||
bmi L6F02
|
bmi :+
|
||||||
|
|
||||||
lda #$02
|
lda #$02
|
||||||
sta L681D
|
sta L681D
|
||||||
lda #$09
|
lda #$09
|
||||||
@ -5096,8 +5104,9 @@ L6ECF: lda L0082,x
|
|||||||
sta L6820
|
sta L6820
|
||||||
lda #$1E
|
lda #$1E
|
||||||
sta L6821
|
sta L6821
|
||||||
bne L6F1B
|
bne end
|
||||||
L6F02: lda #$02
|
|
||||||
|
: lda #$02
|
||||||
sta L681D
|
sta L681D
|
||||||
lda #$10
|
lda #$10
|
||||||
sta L681E
|
sta L681E
|
||||||
@ -5107,7 +5116,8 @@ L6F02: lda #$02
|
|||||||
sta L6820
|
sta L6820
|
||||||
lda #$33
|
lda #$33
|
||||||
sta L6821
|
sta L6821
|
||||||
L6F1B: rts
|
end: rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
@ -5127,18 +5137,42 @@ L6F30: lda #$FB
|
|||||||
sta $BF
|
sta $BF
|
||||||
jmp L68DF
|
jmp L68DF
|
||||||
|
|
||||||
L6F39: .byte $00,$00
|
.proc up_scroll_params
|
||||||
L6F3B: .byte $00,$00,$13,$0A,$61,$6F
|
.byte $00,$00
|
||||||
L6F41: .byte $00,$00
|
incr: .byte $00,$00
|
||||||
L6F43: .byte $00
|
.byte $13,$0A
|
||||||
L6F44: .byte $00,$13,$0A,$82,$6F
|
.addr up_scroll_bitmap
|
||||||
L6F49: .byte $00,$00,$00,$00,$14,$09,$A3,$6F
|
.endproc
|
||||||
L6F51: .byte $00
|
|
||||||
L6F52: .byte $00,$00,$00,$12,$09,$C1,$6F
|
|
||||||
|
|
||||||
L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
.proc down_scroll_params
|
||||||
|
.byte $00,$00
|
||||||
|
unk1: .byte $00
|
||||||
|
unk2: .byte $00
|
||||||
|
.byte $13,$0A
|
||||||
|
.addr down_scroll_bitmap
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.proc left_scroll_params
|
||||||
|
.byte $00,$00,$00,$00
|
||||||
|
.byte $14,$09
|
||||||
|
.addr left_scroll_bitmap
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.proc right_scroll_params
|
||||||
|
.byte $00
|
||||||
|
.byte $00,$00,$00
|
||||||
|
.byte $12,$09
|
||||||
|
.addr right_scroll_bitmap
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.proc resize_box_params
|
||||||
|
.byte $00,$00,$00,$00
|
||||||
|
.byte $14,$0A
|
||||||
|
.addr resize_box_bitmap
|
||||||
|
.endproc
|
||||||
|
|
||||||
;; Up Scroll
|
;; Up Scroll
|
||||||
|
up_scroll_bitmap:
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte px(%0000000),px(%0001100),px(%0000000)
|
.byte px(%0000000),px(%0001100),px(%0000000)
|
||||||
.byte px(%0000000),px(%0110011),px(%0000000)
|
.byte px(%0000000),px(%0110011),px(%0000000)
|
||||||
@ -5152,6 +5186,7 @@ L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
|||||||
.byte px(%0111111),px(%1111111),px(%1111111)
|
.byte px(%0111111),px(%1111111),px(%1111111)
|
||||||
|
|
||||||
;; Down Scroll
|
;; Down Scroll
|
||||||
|
down_scroll_bitmap:
|
||||||
.byte px(%0111111),px(%1111111),px(%1111111)
|
.byte px(%0111111),px(%1111111),px(%1111111)
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte px(%0000001),px(%1111111),px(%1100000)
|
.byte px(%0000001),px(%1111111),px(%1100000)
|
||||||
@ -5165,6 +5200,7 @@ L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
|||||||
.byte px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
||||||
|
|
||||||
;; Left Scroll
|
;; Left Scroll
|
||||||
|
left_scroll_bitmap:
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte px(%0000000),px(%0001100),px(%0000001)
|
.byte px(%0000000),px(%0001100),px(%0000001)
|
||||||
.byte px(%0000000),px(%0111100),px(%0000001)
|
.byte px(%0000000),px(%0111100),px(%0000001)
|
||||||
@ -5177,6 +5213,7 @@ L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
|||||||
.byte px(%0000000),px(%0001100),px(%0000001)
|
.byte px(%0000000),px(%0001100),px(%0000001)
|
||||||
|
|
||||||
;; Right Scroll
|
;; Right Scroll
|
||||||
|
right_scroll_bitmap:
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte px(%1000000),px(%0011000),px(%0000000)
|
.byte px(%1000000),px(%0011000),px(%0000000)
|
||||||
.byte px(%1000000),px(%0011110),px(%0000000)
|
.byte px(%1000000),px(%0011110),px(%0000000)
|
||||||
@ -5188,9 +5225,10 @@ L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
|||||||
.byte px(%1000000),px(%0011110),px(%0000000)
|
.byte px(%1000000),px(%0011110),px(%0000000)
|
||||||
.byte px(%1000000),px(%0011000),px(%0000000)
|
.byte px(%1000000),px(%0011000),px(%0000000)
|
||||||
|
|
||||||
.byte 0
|
L6FDF: .byte 0
|
||||||
|
|
||||||
;; Resize Box
|
;; Resize Box
|
||||||
|
resize_box_bitmap:
|
||||||
.byte px(%1111111),px(%1111111),px(%1111111)
|
.byte px(%1111111),px(%1111111),px(%1111111)
|
||||||
.byte px(%1000000),px(%0000000),px(%0000001)
|
.byte px(%1000000),px(%0000000),px(%0000001)
|
||||||
.byte px(%1001111),px(%1111110),px(%0000001)
|
.byte px(%1001111),px(%1111110),px(%0000001)
|
||||||
@ -5203,24 +5241,36 @@ L6F59: .byte $00,$00,$00,$00,$14,$0A,$E0,$6F
|
|||||||
.byte px(%1000000),px(%0000000),px(%0000001)
|
.byte px(%1000000),px(%0000000),px(%0000001)
|
||||||
.byte px(%1111111),px(%1111111),px(%1111111)
|
.byte px(%1111111),px(%1111111),px(%1111111)
|
||||||
|
|
||||||
L7001: .byte $39
|
L7001:
|
||||||
L7002: .byte $6F
|
L7002:=*+1
|
||||||
L7003: .byte $41
|
.addr up_scroll_params
|
||||||
L7004: .byte $6F
|
|
||||||
L7005: .byte $49
|
L7003:
|
||||||
L7006: .byte $6F
|
L7004:=*+1
|
||||||
L7007: .byte $51
|
.addr down_scroll_params
|
||||||
L7008: .byte $6F
|
|
||||||
L7009: .byte $59
|
L7005:
|
||||||
L700A: .byte $6F
|
L7006:=*+1
|
||||||
|
.addr left_scroll_params
|
||||||
|
|
||||||
|
L7007:
|
||||||
|
L7008:=*+1
|
||||||
|
.addr right_scroll_params
|
||||||
|
|
||||||
|
L7009:
|
||||||
|
L700A:=*+1
|
||||||
|
.addr resize_box_params
|
||||||
|
|
||||||
L700B: .byte $00
|
L700B: .byte $00
|
||||||
L700C: .byte $00
|
L700C: .byte $00
|
||||||
L700D: .byte $00
|
L700D: .byte $00
|
||||||
L700E: .byte $00
|
L700E: .byte $00
|
||||||
L700F: .byte $00
|
L700F: .byte $00
|
||||||
L7010: .byte $00
|
L7010: .byte $00
|
||||||
|
|
||||||
L7011: .byte $D3
|
L7011: .byte $D3
|
||||||
L7012: .byte $6F
|
L7012: .byte $6F
|
||||||
|
|
||||||
L7013: lda L7011
|
L7013: lda L7011
|
||||||
sta $A7
|
sta $A7
|
||||||
lda L7012
|
lda L7012
|
||||||
@ -5463,7 +5513,16 @@ L71E3: rts
|
|||||||
L71E4: .byte $01
|
L71E4: .byte $01
|
||||||
stripes_pattern:
|
stripes_pattern:
|
||||||
stripes_pattern_alt := *+1
|
stripes_pattern_alt := *+1
|
||||||
.byte $FF,$00,$FF,$00,$FF,$00,$FF,$00,$FF
|
.byte %11111111
|
||||||
|
.byte %00000000
|
||||||
|
.byte %11111111
|
||||||
|
.byte %00000000
|
||||||
|
.byte %11111111
|
||||||
|
.byte %00000000
|
||||||
|
.byte %11111111
|
||||||
|
.byte %00000000
|
||||||
|
.byte %11111111
|
||||||
|
|
||||||
L71EE: jsr L7157
|
L71EE: jsr L7157
|
||||||
lda $C9
|
lda $C9
|
||||||
and #$01
|
and #$01
|
||||||
@ -5577,11 +5636,11 @@ L72C9: jsr L703E
|
|||||||
jsr L7104
|
jsr L7104
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L72D5: lda L00C7,x
|
L72D5: lda L00C7,x
|
||||||
sta L6F39,x
|
sta up_scroll_params,x
|
||||||
sta L6F41,x
|
sta down_scroll_params,x
|
||||||
dex
|
dex
|
||||||
bpl L72D5
|
bpl L72D5
|
||||||
inc L6F3B
|
inc up_scroll_params::incr
|
||||||
lda $CD
|
lda $CD
|
||||||
ldx $CE
|
ldx $CE
|
||||||
sec
|
sec
|
||||||
@ -5601,8 +5660,8 @@ L72F8: pla
|
|||||||
dex
|
dex
|
||||||
L72FF: pha
|
L72FF: pha
|
||||||
L7300: pla
|
L7300: pla
|
||||||
sta L6F43
|
sta down_scroll_params::unk1
|
||||||
stx L6F44
|
stx down_scroll_params::unk2
|
||||||
lda L7003
|
lda L7003
|
||||||
ldx L7004
|
ldx L7004
|
||||||
jsr L791C
|
jsr L791C
|
||||||
@ -5614,8 +5673,8 @@ L7319: bit $AF
|
|||||||
jsr L7129
|
jsr L7129
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L7322: lda L00C7,x
|
L7322: lda L00C7,x
|
||||||
sta L6F49,x
|
sta left_scroll_params,x
|
||||||
sta L6F51,x
|
sta right_scroll_params,x
|
||||||
dex
|
dex
|
||||||
bpl L7322
|
bpl L7322
|
||||||
lda $CB
|
lda $CB
|
||||||
@ -5637,8 +5696,8 @@ L7342: pla
|
|||||||
dex
|
dex
|
||||||
L7349: pha
|
L7349: pha
|
||||||
L734A: pla
|
L734A: pla
|
||||||
sta L6F51
|
sta right_scroll_params
|
||||||
stx L6F52
|
stx right_scroll_params+1
|
||||||
lda L7007
|
lda L7007
|
||||||
ldx L7008
|
ldx L7008
|
||||||
jsr L791C
|
jsr L791C
|
||||||
@ -5676,7 +5735,7 @@ L738E: lda $AC
|
|||||||
|
|
||||||
L73A6: ldx #$03
|
L73A6: ldx #$03
|
||||||
L73A8: lda L00C7,x
|
L73A8: lda L00C7,x
|
||||||
sta L6F59,x
|
sta resize_box_params,x
|
||||||
dex
|
dex
|
||||||
bpl L73A8
|
bpl L73A8
|
||||||
lda #$04
|
lda #$04
|
||||||
|
Loading…
Reference in New Issue
Block a user