mirror of
https://github.com/mi57730/a2d.git
synced 2024-06-30 23:30:32 +00:00
more keyboard-based commands
This commit is contained in:
Joshua Bell
parent
0efca40378
commit
0abb5960ca
|
|
@ -5376,7 +5376,12 @@ LDD9E: .byte 0
|
||||||
;; each entry is 27 bytes long
|
;; each entry is 27 bytes long
|
||||||
;; .byte ??
|
;; .byte ??
|
||||||
;; .byte ??
|
;; .byte ??
|
||||||
;; .byte type/icon (bits 4,5,6 clear = directory)
|
;; .byte type/icon (bits 4,5,6 are type)
|
||||||
|
;; $00 = directory
|
||||||
|
;; $10 = system
|
||||||
|
;; $20 = binary
|
||||||
|
;; $30 = basic
|
||||||
|
;; $50 = text, generic
|
||||||
;; .word iconx (pixels)
|
;; .word iconx (pixels)
|
||||||
;; .word icony (pixels)
|
;; .word icony (pixels)
|
||||||
;; .byte ??
|
;; .byte ??
|
||||||
|
|
@ -6482,40 +6487,38 @@ offset_table:
|
||||||
|
|
||||||
flag: .byte $00
|
flag: .byte $00
|
||||||
|
|
||||||
|
;; Handle accelerator keys
|
||||||
menu_dispatch:
|
menu_dispatch:
|
||||||
lda input_params+2
|
lda input_params_modifiers
|
||||||
bne L4362
|
bne :+ ; either OA or CA ?
|
||||||
jmp L4394
|
jmp menu_accelerators ; nope
|
||||||
|
: cmp #3 ; both OA + CA ?
|
||||||
L4362: cmp #3
|
bne :+ ; nope
|
||||||
bne L4367
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L4367: lda input_params+1
|
;; Non-menu keys
|
||||||
ora #$20
|
: lda input_params_key
|
||||||
cmp #$68
|
ora #$20 ; force to lower-case
|
||||||
bne L4373
|
cmp #'h' ; OA-H (Highlight Icon)
|
||||||
jmp L5441
|
bne :+
|
||||||
|
jmp cmd_higlight
|
||||||
|
: bit flag
|
||||||
|
bpl menu_accelerators
|
||||||
|
cmp #'w' ; OA-W (Activate Window)
|
||||||
|
bne :+
|
||||||
|
jmp cmd_activate
|
||||||
|
: cmp #'g' ; OA-G (Resize)
|
||||||
|
bne :+
|
||||||
|
jmp cmd_resize
|
||||||
|
: cmp #'m' ; OA-M (Move)
|
||||||
|
bne :+
|
||||||
|
jmp cmd_move
|
||||||
|
: cmp #'x' ; OA-X (Scroll)
|
||||||
|
bne menu_accelerators
|
||||||
|
jmp cmd_scroll
|
||||||
|
|
||||||
L4373: bit flag
|
menu_accelerators:
|
||||||
bpl L4394
|
lda input_params+1
|
||||||
cmp #$77
|
|
||||||
bne L437F
|
|
||||||
jmp L5702
|
|
||||||
|
|
||||||
L437F: cmp #$67
|
|
||||||
bne L4386
|
|
||||||
jmp L578E
|
|
||||||
|
|
||||||
L4386: cmp #$6D
|
|
||||||
bne L438D
|
|
||||||
jmp L579A
|
|
||||||
|
|
||||||
L438D: cmp #$78
|
|
||||||
bne L4394
|
|
||||||
jmp L57A6
|
|
||||||
|
|
||||||
L4394: lda input_params+1
|
|
||||||
sta $E25C
|
sta $E25C
|
||||||
lda input_params+2
|
lda input_params+2
|
||||||
beq L43A1
|
beq L43A1
|
||||||
|
|
@ -6589,23 +6592,20 @@ L4428: pha
|
||||||
jmp L4459
|
jmp L4459
|
||||||
|
|
||||||
L4435: pla
|
L4435: pla
|
||||||
cmp #$02
|
cmp #A2D_ELEM_CLIENT
|
||||||
bne L4443
|
bne :+
|
||||||
jsr detect_double_click
|
jsr detect_double_click
|
||||||
sta $D2AA
|
sta $D2AA
|
||||||
jmp L5B1C
|
jmp handle_client_click
|
||||||
|
: cmp #A2D_ELEM_TITLE
|
||||||
L4443: cmp #$03
|
bne :+
|
||||||
bne L444A
|
jmp handle_title_click
|
||||||
jmp L60DB
|
: cmp #A2D_ELEM_RESIZE
|
||||||
|
bne :+
|
||||||
L444A: cmp #$04
|
jmp handle_resize_click
|
||||||
bne L4451
|
: cmp #A2D_ELEM_CLOSE
|
||||||
jmp L619B
|
|
||||||
|
|
||||||
L4451: cmp #$05
|
|
||||||
bne L4458
|
bne L4458
|
||||||
jmp L61CA
|
jmp handle_close_click
|
||||||
|
|
||||||
L4458: rts
|
L4458: rts
|
||||||
|
|
||||||
|
|
@ -8565,15 +8565,17 @@ L5433: cmp LEC26,x
|
||||||
bpl L5433
|
bpl L5433
|
||||||
lda #$FF
|
lda #$FF
|
||||||
rts
|
rts
|
||||||
.endproc
|
|
||||||
|
|
||||||
;;; ==================================================
|
|
||||||
|
|
||||||
L543E: inx
|
L543E: inx
|
||||||
txa
|
txa
|
||||||
rts
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
L5441: jmp L544D
|
;;; ==================================================
|
||||||
|
;;; Handle keyboard-based icon selection ("highlighting")
|
||||||
|
|
||||||
|
.proc cmd_higlight
|
||||||
|
jmp L544D
|
||||||
|
|
||||||
L5444: .byte 0
|
L5444: .byte 0
|
||||||
L5445: .byte 0
|
L5445: .byte 0
|
||||||
|
|
@ -8585,7 +8587,8 @@ L544A: .byte 0
|
||||||
.byte 0
|
.byte 0
|
||||||
.byte 0
|
.byte 0
|
||||||
|
|
||||||
L544D: lda #$00
|
L544D:
|
||||||
|
lda #$00
|
||||||
sta $1800
|
sta $1800
|
||||||
lda $EC25
|
lda $EC25
|
||||||
bne L545A
|
bne L545A
|
||||||
|
|
@ -8696,7 +8699,7 @@ L5532: lda $1801,x
|
||||||
sta L5448
|
sta L5448
|
||||||
ldy #$03
|
ldy #$03
|
||||||
L553D: lda ($06),y
|
L553D: lda ($06),y
|
||||||
sta L5441,y
|
sta L5444-3,y
|
||||||
iny
|
iny
|
||||||
cpy #$07
|
cpy #$07
|
||||||
bne L553D
|
bne L553D
|
||||||
|
|
@ -8817,6 +8820,7 @@ L564A: DESKTOP_RELAY_CALL $0B, LE22F
|
||||||
jsr L8893
|
jsr L8893
|
||||||
jsr reset_state2
|
jsr reset_state2
|
||||||
L5661: rts
|
L5661: rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
|
|
@ -8888,7 +8892,11 @@ L56F9: sta query_state_params2::id
|
||||||
jsr L4505
|
jsr L4505
|
||||||
jmp L6E8E
|
jmp L6E8E
|
||||||
|
|
||||||
L5702: lda desktop_winid
|
;;; ==================================================
|
||||||
|
;;; Handle keyboard-based window activation
|
||||||
|
|
||||||
|
.proc cmd_activate
|
||||||
|
lda desktop_winid
|
||||||
bne L5708
|
bne L5708
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
@ -8958,56 +8966,80 @@ L578B: rts
|
||||||
|
|
||||||
L578C: .byte 0
|
L578C: .byte 0
|
||||||
L578D: .byte 0
|
L578D: .byte 0
|
||||||
L578E: A2D_RELAY_CALL $22 ; ???
|
|
||||||
jmp L619B
|
|
||||||
|
|
||||||
L579A: A2D_RELAY_CALL $22 ; ???
|
.endproc
|
||||||
jmp L60DB
|
|
||||||
|
|
||||||
L57A6: jsr L5803
|
;;; ==================================================
|
||||||
L57A9: jsr get_input
|
;;;Initiate keyboard-based resizing
|
||||||
|
|
||||||
|
.proc cmd_resize
|
||||||
|
A2D_RELAY_CALL $22 ; ???
|
||||||
|
jmp handle_resize_click
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
;;; Initiate keyboard-based window moving
|
||||||
|
|
||||||
|
.proc cmd_move
|
||||||
|
A2D_RELAY_CALL $22 ; ???
|
||||||
|
jmp handle_title_click
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
;;; Keyboard-based scrolling of window contents
|
||||||
|
|
||||||
|
.proc cmd_scroll
|
||||||
|
jsr L5803
|
||||||
|
loop: jsr get_input
|
||||||
lda input_params_state
|
lda input_params_state
|
||||||
cmp #A2D_INPUT_DOWN
|
cmp #A2D_INPUT_DOWN
|
||||||
beq L57C2
|
beq done
|
||||||
cmp #A2D_INPUT_KEY
|
cmp #A2D_INPUT_KEY
|
||||||
bne L57A9
|
bne loop
|
||||||
lda input_params_key
|
lda input_params_key
|
||||||
cmp #KEY_RETURN
|
cmp #KEY_RETURN
|
||||||
beq L57C2
|
beq done
|
||||||
cmp #KEY_ESCAPE
|
cmp #KEY_ESCAPE
|
||||||
bne L57CB
|
bne :+
|
||||||
L57C2: lda #$00
|
|
||||||
|
done: lda #$00
|
||||||
sta bufnum
|
sta bufnum
|
||||||
jsr DESKTOP_COPY_TO_BUF
|
jsr DESKTOP_COPY_TO_BUF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L57CB: bit L585D
|
;; Horizontal ok?
|
||||||
bmi L57D3
|
: bit L585D
|
||||||
jmp L57E7
|
bmi :+
|
||||||
|
jmp vertical
|
||||||
|
|
||||||
L57D3: cmp #$15
|
: cmp #KEY_RIGHT
|
||||||
bne L57DD
|
bne :+
|
||||||
jsr L582F
|
jsr L582F
|
||||||
jmp L57A9
|
jmp loop
|
||||||
|
|
||||||
L57DD: cmp #$08
|
: cmp #KEY_LEFT
|
||||||
bne L57E7
|
bne vertical
|
||||||
jsr L583C
|
jsr L583C
|
||||||
jmp L57A9
|
jmp loop
|
||||||
|
|
||||||
L57E7: bit L585E
|
;; Vertical ok?
|
||||||
bmi L57EF
|
vertical:
|
||||||
jmp L57A9
|
bit L585E
|
||||||
|
bmi :+
|
||||||
|
jmp loop
|
||||||
|
|
||||||
L57EF: cmp #$0A
|
: cmp #KEY_DOWN
|
||||||
bne L57F9
|
bne :+
|
||||||
jsr L5846
|
jsr L5846
|
||||||
jmp L57A9
|
jmp loop
|
||||||
|
|
||||||
L57F9: cmp #$0B
|
: cmp #KEY_UP
|
||||||
bne L57A9
|
bne loop
|
||||||
jsr L5853
|
jsr L5853
|
||||||
jmp L57A9
|
jmp loop
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L5803: lda desktop_winid
|
L5803: lda desktop_winid
|
||||||
sta bufnum
|
sta bufnum
|
||||||
|
|
@ -9054,6 +9086,7 @@ L585F: .byte 0
|
||||||
L5860: .byte 0
|
L5860: .byte 0
|
||||||
L5861: .byte 0
|
L5861: .byte 0
|
||||||
L5862: .byte 0
|
L5862: .byte 0
|
||||||
|
|
||||||
L5863: stx L587D
|
L5863: stx L587D
|
||||||
cmp L587D
|
cmp L587D
|
||||||
beq L587C
|
beq L587C
|
||||||
|
|
@ -9390,7 +9423,8 @@ L5AD0: .byte 0
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
L5B1B: .byte 0
|
L5B1B: .byte 0
|
||||||
L5B1C: lda desktop_winid
|
handle_client_click:
|
||||||
|
lda desktop_winid
|
||||||
sta bufnum
|
sta bufnum
|
||||||
jsr DESKTOP_COPY_TO_BUF
|
jsr DESKTOP_COPY_TO_BUF
|
||||||
ldx desktop_winid
|
ldx desktop_winid
|
||||||
|
|
@ -9697,18 +9731,19 @@ L5DFC: lda L5CD9 ; after a double-click (on file or folder)
|
||||||
jsr file_address_lookup
|
jsr file_address_lookup
|
||||||
sta $06
|
sta $06
|
||||||
stx $06+1
|
stx $06+1
|
||||||
ldy #$02
|
ldy #2 ; byte type icon offset
|
||||||
lda ($06),y
|
lda ($06),y
|
||||||
and #$70
|
and #$70 ; bits 4-6
|
||||||
cmp #$10
|
cmp #$10 ; $10 = system
|
||||||
beq L5E28
|
beq L5E28
|
||||||
cmp #$20
|
cmp #$20 ; $20 = binary
|
||||||
beq L5E28
|
beq L5E28
|
||||||
cmp #$30
|
cmp #$30 ; $30 = basic
|
||||||
beq L5E28
|
beq L5E28
|
||||||
cmp #$00
|
cmp #$00 ; $00 = directory
|
||||||
bne L5E27
|
bne L5E27
|
||||||
lda L5CD9
|
|
||||||
|
lda L5CD9 ; handle directory
|
||||||
jsr L6A8A
|
jsr L6A8A
|
||||||
bmi L5E27
|
bmi L5E27
|
||||||
jmp L5DEC
|
jmp L5DEC
|
||||||
|
|
@ -9996,7 +10031,8 @@ L60D4: .byte 0
|
||||||
L60D5: jsr push_zp_addrs
|
L60D5: jsr push_zp_addrs
|
||||||
jmp L8921
|
jmp L8921
|
||||||
|
|
||||||
L60DB: jmp L60DE
|
handle_title_click:
|
||||||
|
jmp L60DE
|
||||||
|
|
||||||
L60DE: lda desktop_winid
|
L60DE: lda desktop_winid
|
||||||
sta input_params
|
sta input_params
|
||||||
|
|
@ -10085,7 +10121,9 @@ L6197: .byte 0
|
||||||
L6198: .byte 0
|
L6198: .byte 0
|
||||||
L6199: .byte 0
|
L6199: .byte 0
|
||||||
L619A: .byte 0
|
L619A: .byte 0
|
||||||
L619B: lda desktop_winid
|
|
||||||
|
handle_resize_click:
|
||||||
|
lda desktop_winid
|
||||||
sta input_params
|
sta input_params
|
||||||
A2D_RELAY_CALL A2D_DRAG_RESIZE, input_params
|
A2D_RELAY_CALL A2D_DRAG_RESIZE, input_params
|
||||||
jsr redraw_windows_and_desktop
|
jsr redraw_windows_and_desktop
|
||||||
|
|
@ -10100,7 +10138,8 @@ L619B: lda desktop_winid
|
||||||
jsr DESKTOP_COPY_TO_BUF
|
jsr DESKTOP_COPY_TO_BUF
|
||||||
jmp reset_state2
|
jmp reset_state2
|
||||||
|
|
||||||
L61CA: lda desktop_winid
|
handle_close_click:
|
||||||
|
lda desktop_winid
|
||||||
A2D_RELAY_CALL A2D_CLOSE_CLICK, $D2A8
|
A2D_RELAY_CALL A2D_CLOSE_CLICK, $D2A8
|
||||||
lda $D2A8
|
lda $D2A8
|
||||||
bne L61DC
|
bne L61DC
|
||||||
|
|
@ -17963,7 +18002,7 @@ LA579: A2D_RELAY_CALL A2D_GET_INPUT, input_params
|
||||||
bne LA58C
|
bne LA58C
|
||||||
jmp LA5EE
|
jmp LA5EE
|
||||||
|
|
||||||
LA58C: cmp #$03
|
LA58C: cmp #A2D_INPUT_KEY
|
||||||
bne LA593
|
bne LA593
|
||||||
jmp LA6FD
|
jmp LA6FD
|
||||||
|
|
||||||
|
|
@ -18092,16 +18131,16 @@ LA6F7: jsr LB9B8
|
||||||
lda #$FF
|
lda #$FF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
LA6FD: lda input_params_xcoord+1
|
LA6FD: lda input_params_modifiers
|
||||||
cmp #$2
|
cmp #$2 ; closed-apple
|
||||||
bne LA71A
|
bne LA71A
|
||||||
lda input_params_xcoord
|
lda input_params_key
|
||||||
and #$7F
|
and #$7F
|
||||||
cmp #$08
|
cmp #KEY_LEFT
|
||||||
bne LA710
|
bne LA710
|
||||||
jmp LA815
|
jmp LA815
|
||||||
|
|
||||||
LA710: cmp #$15
|
LA710: cmp #KEY_RIGHT
|
||||||
bne LA717
|
bne LA717
|
||||||
jmp LA820
|
jmp LA820
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user