mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-26 02:49:18 +00:00
DeskTop Seg 1: params
This commit is contained in:
Joshua Bell
parent
4c0dae8c93
commit
ac8356fb48
@ -5793,24 +5793,19 @@ resize_box_bitmap:
|
|||||||
.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:
|
up_scroll_params_addr:
|
||||||
L7002:=*+1
|
|
||||||
.addr up_scroll_params
|
.addr up_scroll_params
|
||||||
|
|
||||||
L7003:
|
down_scroll_params_addr:
|
||||||
L7004:=*+1
|
|
||||||
.addr down_scroll_params
|
.addr down_scroll_params
|
||||||
|
|
||||||
L7005:
|
left_scroll_params_addr:
|
||||||
L7006:=*+1
|
|
||||||
.addr left_scroll_params
|
.addr left_scroll_params
|
||||||
|
|
||||||
L7007:
|
right_scroll_params_addr:
|
||||||
L7008:=*+1
|
|
||||||
.addr right_scroll_params
|
.addr right_scroll_params
|
||||||
|
|
||||||
L7009:
|
resize_box_params_addr:
|
||||||
L700A:=*+1
|
|
||||||
.addr resize_box_params
|
.addr resize_box_params
|
||||||
|
|
||||||
L700B: .byte $00
|
L700B: .byte $00
|
||||||
@ -5820,12 +5815,11 @@ L700E: .byte $00
|
|||||||
L700F: .byte $00
|
L700F: .byte $00
|
||||||
L7010: .byte $00
|
L7010: .byte $00
|
||||||
|
|
||||||
L7011: .byte $D3
|
L7011: .addr $6FD3
|
||||||
L7012: .byte $6F
|
|
||||||
|
|
||||||
L7013: lda L7011
|
L7013: lda L7011
|
||||||
sta $A7
|
sta $A7
|
||||||
lda L7012
|
lda L7011+1
|
||||||
sta $A8
|
sta $A8
|
||||||
lda L700B
|
lda L700B
|
||||||
ldx L700C
|
ldx L700C
|
||||||
@ -5872,6 +5866,7 @@ L7068: lda $AB
|
|||||||
bne L7068
|
bne L7068
|
||||||
L7073: rts
|
L7073: rts
|
||||||
|
|
||||||
|
;; Look up window state by id ???
|
||||||
L7074: jsr L7063
|
L7074: jsr L7063
|
||||||
beq L707A
|
beq L707A
|
||||||
rts
|
rts
|
||||||
@ -6214,11 +6209,11 @@ L72FF: pha
|
|||||||
L7300: pla
|
L7300: pla
|
||||||
sta down_scroll_params::unk1
|
sta down_scroll_params::unk1
|
||||||
stx down_scroll_params::unk2
|
stx down_scroll_params::unk2
|
||||||
lda L7003
|
lda down_scroll_params_addr
|
||||||
ldx L7004
|
ldx down_scroll_params_addr+1
|
||||||
jsr L791C
|
jsr L791C
|
||||||
lda L7001
|
lda up_scroll_params_addr
|
||||||
ldx L7002
|
ldx up_scroll_params_addr+1
|
||||||
jsr L791C
|
jsr L791C
|
||||||
L7319: bit $AF
|
L7319: bit $AF
|
||||||
bpl L7363
|
bpl L7363
|
||||||
@ -6250,11 +6245,11 @@ L7349: pha
|
|||||||
L734A: pla
|
L734A: pla
|
||||||
sta right_scroll_params
|
sta right_scroll_params
|
||||||
stx right_scroll_params+1
|
stx right_scroll_params+1
|
||||||
lda L7007
|
lda right_scroll_params_addr
|
||||||
ldx L7008
|
ldx right_scroll_params_addr+1
|
||||||
jsr L791C
|
jsr L791C
|
||||||
lda L7005
|
lda left_scroll_params_addr
|
||||||
ldx L7006
|
ldx left_scroll_params_addr+1
|
||||||
jsr L791C
|
jsr L791C
|
||||||
L7363: lda #$00
|
L7363: lda #$00
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
@ -6292,8 +6287,8 @@ L73A8: lda $C7,x
|
|||||||
bpl L73A8
|
bpl L73A8
|
||||||
lda #$04
|
lda #$04
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
lda L7009
|
lda resize_box_params_addr
|
||||||
ldx L700A
|
ldx resize_box_params_addr+1
|
||||||
jsr L791C
|
jsr L791C
|
||||||
L73BE: rts
|
L73BE: rts
|
||||||
|
|
||||||
@ -6665,39 +6660,42 @@ L7644: ldy #$00
|
|||||||
|
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
L7649: .byte 0
|
in_close_box: .byte 0
|
||||||
|
|
||||||
CLOSE_CLICK_IMPL:
|
.proc CLOSE_CLICK_IMPL
|
||||||
jsr L7013
|
jsr L7013
|
||||||
beq L7697
|
beq end
|
||||||
jsr L7157
|
jsr L7157
|
||||||
jsr L653F
|
jsr L653F
|
||||||
jsr L6588
|
jsr L6588
|
||||||
lda #$80
|
lda #$80
|
||||||
L765A: sta L7649
|
toggle: sta in_close_box
|
||||||
lda #$02
|
lda #$02
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
jsr HIDE_CURSOR_IMPL
|
jsr HIDE_CURSOR_IMPL
|
||||||
A2D_CALL A2D_FILL_RECT, $C7
|
A2D_CALL A2D_FILL_RECT, $C7
|
||||||
jsr SHOW_CURSOR_IMPL
|
jsr SHOW_CURSOR_IMPL
|
||||||
L766E: jsr L691B
|
loop: jsr L691B
|
||||||
cmp #$02
|
cmp #$02
|
||||||
beq L768B
|
beq L768B
|
||||||
A2D_CALL A2D_SET_POS, set_pos_params
|
A2D_CALL A2D_SET_POS, set_pos_params
|
||||||
jsr L7086
|
jsr L7086
|
||||||
eor L7649
|
eor in_close_box
|
||||||
bpl L766E
|
bpl loop
|
||||||
lda L7649
|
lda in_close_box
|
||||||
eor #$80
|
eor #$80
|
||||||
jmp L765A
|
jmp toggle
|
||||||
|
|
||||||
L768B: jsr L6556
|
L768B: jsr L6556
|
||||||
ldy #$00
|
ldy #$00
|
||||||
lda L7649
|
lda in_close_box
|
||||||
beq L7697
|
beq end
|
||||||
lda #$01
|
lda #$01
|
||||||
L7697: sta (params_addr),y
|
end: sta (params_addr),y
|
||||||
rts
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
.byte $00
|
.byte $00
|
||||||
L769B: .byte $00
|
L769B: .byte $00
|
||||||
@ -6724,6 +6722,7 @@ DRAG_RESIZE_IMPL:
|
|||||||
|
|
||||||
DRAG_WINDOW_IMPL:
|
DRAG_WINDOW_IMPL:
|
||||||
lda #$00
|
lda #$00
|
||||||
|
|
||||||
L76AE: sta L76A7
|
L76AE: sta L76A7
|
||||||
jsr L7ECD
|
jsr L7ECD
|
||||||
ldx #$03
|
ldx #$03
|
||||||
@ -6945,6 +6944,7 @@ L7860: lda $92,x
|
|||||||
bpl L7860
|
bpl L7860
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;; Erases window after destruction
|
||||||
L7871: .byte 0
|
L7871: .byte 0
|
||||||
L7872: sta L7010
|
L7872: sta L7010
|
||||||
lda #$00
|
lda #$00
|
||||||
@ -7968,14 +7968,17 @@ L804D: jsr L7D83
|
|||||||
jmp L7D8E
|
jmp L7D8E
|
||||||
|
|
||||||
L8056: jsr L7EE2
|
L8056: jsr L7EE2
|
||||||
bcs L805C
|
bcs handle_menu_key
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L805C: pha
|
|
||||||
|
;; Keyboard navigation of menu
|
||||||
|
.proc handle_menu_key
|
||||||
|
pha
|
||||||
jsr L8035
|
jsr L8035
|
||||||
pla
|
pla
|
||||||
cmp #KEY_ESCAPE
|
cmp #KEY_ESCAPE
|
||||||
bne L8073
|
bne try_return
|
||||||
lda #0
|
lda #0
|
||||||
sta L7D80
|
sta L7D80
|
||||||
sta L7D7F
|
sta L7D7F
|
||||||
@ -7983,13 +7986,15 @@ L805C: pha
|
|||||||
sta L7D81
|
sta L7D81
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L8073: cmp #KEY_RETURN
|
try_return:
|
||||||
bne L807D
|
cmp #KEY_RETURN
|
||||||
|
bne try_up
|
||||||
jsr L7E8C
|
jsr L7E8C
|
||||||
jmp L7EAD
|
jmp L7EAD
|
||||||
|
|
||||||
L807D: cmp #KEY_UP
|
try_up:
|
||||||
bne L80A3
|
cmp #KEY_UP
|
||||||
|
bne try_down
|
||||||
L8081: dec L7D7B
|
L8081: dec L7D7B
|
||||||
bpl L8091
|
bpl L8091
|
||||||
ldx L7D7A
|
ldx L7D7A
|
||||||
@ -8005,8 +8010,9 @@ L8091: ldx L7D7B
|
|||||||
bne L8081
|
bne L8081
|
||||||
L80A0: jmp L800F
|
L80A0: jmp L800F
|
||||||
|
|
||||||
L80A3: cmp #KEY_DOWN
|
try_down:
|
||||||
bne L80D0
|
cmp #KEY_DOWN
|
||||||
|
bne try_right
|
||||||
L80A7: inc L7D7B
|
L80A7: inc L7D7B
|
||||||
ldx L7D7A
|
ldx L7D7A
|
||||||
jsr L6878
|
jsr L6878
|
||||||
@ -8025,8 +8031,9 @@ L80BE: ldx L7D7B
|
|||||||
bne L80A7
|
bne L80A7
|
||||||
L80CD: jmp L800F
|
L80CD: jmp L800F
|
||||||
|
|
||||||
L80D0: cmp #KEY_RIGHT
|
try_right:
|
||||||
bne L80EB
|
cmp #KEY_RIGHT
|
||||||
|
bne try_left
|
||||||
lda #0
|
lda #0
|
||||||
sta L7D7B
|
sta L7D7B
|
||||||
inc L7D7A
|
inc L7D7A
|
||||||
@ -8037,8 +8044,9 @@ L80D0: cmp #KEY_RIGHT
|
|||||||
sta L7D7A
|
sta L7D7A
|
||||||
L80E8: jmp L800F
|
L80E8: jmp L800F
|
||||||
|
|
||||||
L80EB: cmp #KEY_LEFT
|
try_left:
|
||||||
bne L8105
|
cmp #KEY_LEFT
|
||||||
|
bne nope
|
||||||
lda #0
|
lda #0
|
||||||
sta L7D7B
|
sta L7D7B
|
||||||
dec L7D7A
|
dec L7D7A
|
||||||
@ -8050,11 +8058,12 @@ L80FC: ldx $A8
|
|||||||
stx L7D7A
|
stx L7D7A
|
||||||
jmp L800F
|
jmp L800F
|
||||||
|
|
||||||
L8105: jsr L8110
|
nope: jsr L8110
|
||||||
bcc L810F
|
bcc L810F
|
||||||
lda #$80
|
lda #$80
|
||||||
sta L7D81
|
sta L7D81
|
||||||
L810F: rts
|
L810F: rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
L8110: sta $C9
|
L8110: sta $C9
|
||||||
lda set_input_params_modifiers
|
lda set_input_params_modifiers
|
||||||
@ -12076,74 +12085,68 @@ LAAB8:
|
|||||||
.byte px(%0000000),PX(%1111111),PX(%1111111),PX(%1111111),px(%0000000)
|
.byte px(%0000000),PX(%1111111),PX(%1111111),PX(%1111111),px(%0000000)
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
|
|
||||||
PASCAL_STRING A2D_GLYPH_CAPPLE
|
LAB1C: PASCAL_STRING A2D_GLYPH_CAPPLE
|
||||||
PASCAL_STRING "File"
|
LAB1E: PASCAL_STRING "File"
|
||||||
PASCAL_STRING "View"
|
LAB22: PASCAL_STRING "View"
|
||||||
PASCAL_STRING "Special"
|
LAB28: PASCAL_STRING "Special"
|
||||||
PASCAL_STRING "Startup"
|
LAB30: PASCAL_STRING "Startup"
|
||||||
PASCAL_STRING "Selector"
|
LAB38: PASCAL_STRING "Selector"
|
||||||
|
|
||||||
PASCAL_STRING "New Folder ..."
|
LAB41: PASCAL_STRING "New Folder ..."
|
||||||
PASCAL_STRING "Open"
|
LAB50: PASCAL_STRING "Open"
|
||||||
PASCAL_STRING "Close"
|
LAB55: PASCAL_STRING "Close"
|
||||||
PASCAL_STRING "Close All"
|
LAB5B: PASCAL_STRING "Close All"
|
||||||
PASCAL_STRING "Select All"
|
LAB65: PASCAL_STRING "Select All"
|
||||||
PASCAL_STRING "Copy a File ..."
|
LAB70: PASCAL_STRING "Copy a File ..."
|
||||||
PASCAL_STRING "Delete a File ..."
|
LAB80: PASCAL_STRING "Delete a File ..."
|
||||||
PASCAL_STRING "Eject"
|
LAB92: PASCAL_STRING "Eject"
|
||||||
PASCAL_STRING "Quit"
|
LAB98: PASCAL_STRING "Quit"
|
||||||
|
|
||||||
PASCAL_STRING "By Icon"
|
LAB9D: PASCAL_STRING "By Icon"
|
||||||
PASCAL_STRING "By Name"
|
LABA5: PASCAL_STRING "By Name"
|
||||||
PASCAL_STRING "By Date"
|
LABAD: PASCAL_STRING "By Date"
|
||||||
PASCAL_STRING "By Size"
|
LABB5: PASCAL_STRING "By Size"
|
||||||
PASCAL_STRING "By Type"
|
LABBD: PASCAL_STRING "By Type"
|
||||||
|
|
||||||
PASCAL_STRING "Check Drives"
|
LABC5: PASCAL_STRING "Check Drives"
|
||||||
PASCAL_STRING "Format a Disk ..."
|
LABD2: PASCAL_STRING "Format a Disk ..."
|
||||||
PASCAL_STRING "Erase a Disk ..."
|
LABE4: PASCAL_STRING "Erase a Disk ..."
|
||||||
PASCAL_STRING "Disk Copy ..."
|
LABF5: PASCAL_STRING "Disk Copy ..."
|
||||||
PASCAL_STRING "Lock ..."
|
LAC03: PASCAL_STRING "Lock ..."
|
||||||
PASCAL_STRING "Unlock ..."
|
LAC0C: PASCAL_STRING "Unlock ..."
|
||||||
PASCAL_STRING "Get Info ..."
|
LAC17: PASCAL_STRING "Get Info ..."
|
||||||
PASCAL_STRING "Get Size ..."
|
LAC24: PASCAL_STRING "Get Size ..."
|
||||||
PASCAL_STRING "Rename an Icon ..."
|
LAC31: PASCAL_STRING "Rename an Icon ..."
|
||||||
|
|
||||||
.byte $06,$00,$01,$00,$1C
|
.addr $0006,$0001
|
||||||
.byte $AB,$94,$E5,$00,$00,$00,$00,$00
|
.addr LAB1C,$E594,$0000,$0000,$0000,$0002
|
||||||
.byte $00,$02,$00,$1E,$AB,$8E,$AC,$00
|
.addr LAB1E,$AC8E,$0000,$0000,$0000,$0004,$AB23,$ACDC,$0000,$0000,$0000,$0005
|
||||||
.byte $00,$00,$00,$00,$00,$04,$00,$23
|
.addr LAB28,$AD00,$0000,$0000,$0000,$0008
|
||||||
.byte $AB,$DC,$AC,$00,$00,$00,$00,$00
|
.addr LAB30,$E2D6,$0000,$0000,$0000,$0003
|
||||||
.byte $00,$05,$00,$28,$AB,$00,$AD,$00
|
.addr LAB38,$E4F2,$0000,$0000,$0000,$000C,$0000,$0000,$0001,$6646
|
||||||
.byte $00,$00,$00,$00,$00,$08,$00,$30
|
.addr LAB41,$0040,$0013,$0000,$0001,$6F4F
|
||||||
.byte $AB,$D6,$E2,$00,$00,$00,$00,$00
|
.addr LAB50,$0001,$6343
|
||||||
.byte $00,$03,$00,$38,$AB,$F2,$E4,$00
|
.addr LAB55,$0001,$6242
|
||||||
.byte $00,$00,$00,$00,$00,$0C,$00,$00
|
.addr LAB5B,$0001,$6141
|
||||||
.byte $00,$00,$00,$01,$00,$46,$66,$41
|
.addr LAB65,$0040,$0013,$0000,$0001,$7959
|
||||||
.byte $AB,$40,$00,$13,$00,$00,$00,$01
|
.addr LAB70,$0001,$6444
|
||||||
.byte $00,$4F,$6F,$50,$AB,$01,$00,$43
|
.addr LAB80,$0040,$0013,$0000,$0001,$6545
|
||||||
.byte $63,$55,$AB,$01,$00,$42,$62,$5B
|
.addr LAB92,$0001,$7151
|
||||||
.byte $AB,$01,$00,$41,$61,$65,$AB,$40
|
.addr LAB98,$0005,$0000,$0000,$0001,$6A4A
|
||||||
.byte $00,$13,$00,$00,$00,$01,$00,$59
|
.addr LAB9D,$0001,$6E4E
|
||||||
.byte $79,$70,$AB,$01,$00,$44,$64,$80
|
.addr LABA5,$0001,$7454
|
||||||
.byte $AB,$40,$00,$13,$00,$00,$00,$01
|
.addr LABAD,$0001,$6B4B
|
||||||
.byte $00,$45,$65,$92,$AB,$01,$00,$51
|
.addr LABB5,$0001,$6C4C
|
||||||
.byte $71,$98,$AB,$05,$00,$00,$00,$00
|
.addr LABBD,$000D,$0000,$0000,$0000,$0000
|
||||||
.byte $00,$01,$00,$4A,$6A,$9D,$AB,$01
|
.addr LABC5,$0040,$0013,$0000,$0001,$7353
|
||||||
.byte $00,$4E,$6E,$A5,$AB,$01,$00,$54
|
.addr LABD2,$0001,$7A5A
|
||||||
.byte $74,$AD,$AB,$01,$00,$4B,$6B,$B5
|
.addr LABE4,$0000,$0000
|
||||||
.byte $AB,$01,$00,$4C,$6C,$BD,$AB,$0D
|
.addr LABF5,$0040,$0013,$0000,$0000,$0000
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.addr LAC03,$0000,$0000
|
||||||
.byte $00,$C5,$AB,$40,$00,$13,$00,$00
|
.addr LAC0C,$0040,$0013,$0000,$0001,$6949
|
||||||
.byte $00,$01,$00,$53,$73,$D2,$AB,$01
|
.addr LAC17,$0000,$0000
|
||||||
.byte $00,$5A,$7A,$E4,$AB,$00,$00,$00
|
.addr LAC24,$0040,$0013,$0000,$0000,$0000
|
||||||
.byte $00,$F5,$AB,$40,$00,$13,$00,$00
|
.addr LAC31,$0000,$0000
|
||||||
.byte $00,$00,$00,$00,$00,$03,$AC,$00
|
|
||||||
.byte $00,$00,$00,$0C,$AC,$40,$00,$13
|
|
||||||
.byte $00,$00,$00,$01,$00,$49,$69,$17
|
|
||||||
.byte $AC,$00,$00,$00,$00,$24,$AC,$40
|
|
||||||
.byte $00,$13,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$31,$AC,$00,$00,$00,$00
|
|
||||||
|
|
||||||
.res 168, 0
|
.res 168, 0
|
||||||
|
|
||||||
|
|||||||
@ -1,8 +1,6 @@
|
|||||||
.org $FB00
|
.org $FB00
|
||||||
.setcpu "65C02"
|
.setcpu "65C02"
|
||||||
|
|
||||||
;;; To find: Hard disk, 5.25 floppy, 3.5 floppy, Trash
|
|
||||||
|
|
||||||
.include "../desk.acc/a2d.inc"
|
.include "../desk.acc/a2d.inc"
|
||||||
.include "../inc/prodos.inc"
|
.include "../inc/prodos.inc"
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user