mirror of
https://github.com/mi57730/a2d.git
synced 2024-09-28 09:55:03 +00:00
'solid' apple
This commit is contained in:
parent
9ff3fbb011
commit
2dd9ad0a2b
2
MGTK.md
2
MGTK.md
@ -67,7 +67,7 @@ optional _resize box_ and optional _scroll bars_.
|
|||||||
#### Input Loop
|
#### Input Loop
|
||||||
|
|
||||||
* Call GetEvent.
|
* Call GetEvent.
|
||||||
* If a key, then check modifiers (Open/Closed Apple) and key code, ignore or take action.
|
* If a key, then check modifiers (Open/Solid Apple) and key code, ignore or take action.
|
||||||
* If a click, call FindWindow.
|
* If a click, call FindWindow.
|
||||||
* If target id not the window id, ignore.
|
* If target id not the window id, ignore.
|
||||||
* If target element is desktop or menu then ignore.
|
* If target element is desktop or menu then ignore.
|
||||||
|
@ -148,7 +148,7 @@ GLYPH_UARROW := $0B
|
|||||||
GLYPH_DARROW := $0A
|
GLYPH_DARROW := $0A
|
||||||
GLYPH_RETURN := $0D
|
GLYPH_RETURN := $0D
|
||||||
GLYPH_OAPPLE := $1F
|
GLYPH_OAPPLE := $1F
|
||||||
GLYPH_CAPPLE := $1E
|
GLYPH_SAPPLE := $1E
|
||||||
|
|
||||||
;;; Menu (by default) uses:
|
;;; Menu (by default) uses:
|
||||||
;;; Solid Mod $1E
|
;;; Solid Mod $1E
|
||||||
|
@ -952,7 +952,7 @@ L951D: asl a
|
|||||||
lda L8F15,x
|
lda L8F15,x
|
||||||
sta $06
|
sta $06
|
||||||
lda L8F15+1,x
|
lda L8F15+1,x
|
||||||
sta $07
|
sta $06+1
|
||||||
ldy #$01
|
ldy #$01
|
||||||
lda ($06),y
|
lda ($06),y
|
||||||
bne L9532
|
bne L9532
|
||||||
@ -2478,6 +2478,8 @@ LA318: ldx LA322
|
|||||||
LA322: .byte 0
|
LA322: .byte 0
|
||||||
LA323: .byte 0
|
LA323: .byte 0
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA324: stx LA363
|
LA324: stx LA363
|
||||||
sta LA364
|
sta LA364
|
||||||
ldx #$00
|
ldx #$00
|
||||||
@ -2509,6 +2511,8 @@ LA359: ldx LA363
|
|||||||
LA363: .byte 0
|
LA363: .byte 0
|
||||||
LA364: .byte 0
|
LA364: .byte 0
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA365: pla
|
LA365: pla
|
||||||
sta LA380
|
sta LA380
|
||||||
pla
|
pla
|
||||||
@ -2527,6 +2531,8 @@ LA36F: lda $06,x
|
|||||||
LA380: .byte 0
|
LA380: .byte 0
|
||||||
LA381: .byte 0
|
LA381: .byte 0
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA382: pla
|
LA382: pla
|
||||||
sta LA39B
|
sta LA39B
|
||||||
pla
|
pla
|
||||||
@ -2544,6 +2550,8 @@ LA38C: pla
|
|||||||
LA39B: .byte 0
|
LA39B: .byte 0
|
||||||
LA39C: .byte 0
|
LA39C: .byte 0
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA39D: MGTK_CALL MGTK::InitPort, grafport
|
LA39D: MGTK_CALL MGTK::InitPort, grafport
|
||||||
MGTK_CALL MGTK::SetPort, grafport
|
MGTK_CALL MGTK::SetPort, grafport
|
||||||
jmp LA3B9
|
jmp LA3B9
|
||||||
@ -2586,36 +2594,46 @@ LA3B9: ldy #0
|
|||||||
MGTK_CALL MGTK::GetWinPort, getwinport_params
|
MGTK_CALL MGTK::GetWinPort, getwinport_params
|
||||||
jsr LA4CC
|
jsr LA4CC
|
||||||
jsr LA938
|
jsr LA938
|
||||||
jsr LA41C
|
jsr erase_icon
|
||||||
jmp LA446
|
jmp LA446
|
||||||
|
|
||||||
LA3F4: MGTK_CALL MGTK::InitPort, grafport
|
LA3F4: MGTK_CALL MGTK::InitPort, grafport
|
||||||
jsr LA63F
|
jsr LA63F
|
||||||
LA3FD: jsr LA6A3
|
LA3FD: jsr LA6A3
|
||||||
jsr LA411
|
jsr erase_desktop_icon
|
||||||
lda L9F93
|
lda L9F93
|
||||||
bne LA3FD
|
bne LA3FD
|
||||||
MGTK_CALL MGTK::SetPortBits, grafport
|
MGTK_CALL MGTK::SetPortBits, grafport
|
||||||
jmp LA446
|
jmp LA446
|
||||||
|
|
||||||
LA411: lda #$00
|
;;; ==================================================
|
||||||
|
|
||||||
|
.proc erase_desktop_icon
|
||||||
|
lda #0
|
||||||
sta LA3B7
|
sta LA3B7
|
||||||
MGTK_CALL MGTK::SetPattern, checkerboard_pattern2
|
MGTK_CALL MGTK::SetPattern, checkerboard_pattern2
|
||||||
LA41C: lda poly::vertices+2
|
;; fall through
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.proc erase_icon
|
||||||
|
lda poly::v0::ycoord
|
||||||
sta LA3B1
|
sta LA3B1
|
||||||
lda poly::vertices+3
|
lda poly::v0::ycoord+1
|
||||||
sta LA3B2
|
sta LA3B1+1
|
||||||
lda poly::v6::xcoord
|
lda poly::v6::xcoord
|
||||||
sta LA3AF
|
sta LA3AF
|
||||||
lda poly::v6::xcoord+1
|
lda poly::v6::xcoord+1
|
||||||
sta LA3B0
|
sta LA3AF+1
|
||||||
ldx #$03
|
ldx #3
|
||||||
LA436: lda poly::v4::xcoord,x
|
: lda poly::v4::xcoord,x
|
||||||
sta LA3B3,x
|
sta LA3B3,x
|
||||||
dex
|
dex
|
||||||
bpl LA436
|
bpl :-
|
||||||
MGTK_CALL MGTK::PaintPoly, poly
|
MGTK_CALL MGTK::PaintPoly, poly
|
||||||
rts
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA446: jsr LA365
|
LA446: jsr LA365
|
||||||
ldx L8E95
|
ldx L8E95
|
||||||
@ -2629,6 +2647,8 @@ LA44D: cpx #$FF
|
|||||||
LA462: jsr LA382
|
LA462: jsr LA382
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA466: txa
|
LA466: txa
|
||||||
pha
|
pha
|
||||||
lda L8E96,x
|
lda L8E96,x
|
||||||
@ -2855,6 +2875,8 @@ LA5CB: pla
|
|||||||
jsr LA382
|
jsr LA382
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
LA627: .byte $00
|
LA627: .byte $00
|
||||||
LA628: .byte $00
|
LA628: .byte $00
|
||||||
LA629: .byte $00
|
LA629: .byte $00
|
||||||
@ -2874,7 +2896,7 @@ height: .word 0
|
|||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
LA63F: jsr calc_icon_poly
|
LA63F: jsr calc_icon_poly
|
||||||
lda poly::vertices+2
|
lda poly::v0::ycoord
|
||||||
sta LA629
|
sta LA629
|
||||||
sta setportbits_params2::cliprect_y1
|
sta setportbits_params2::cliprect_y1
|
||||||
sta setportbits_params2::top
|
sta setportbits_params2::top
|
||||||
@ -3171,11 +3193,9 @@ LA938: lda grafport4::top
|
|||||||
MGTK_CALL MGTK::SetPort, grafport4
|
MGTK_CALL MGTK::SetPort, grafport4
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
PAD_TO $A980
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00
|
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
;; 5.25" Floppy Disk
|
;; 5.25" Floppy Disk
|
||||||
floppy140_icon:
|
floppy140_icon:
|
||||||
@ -3293,7 +3313,7 @@ trash_pixels:
|
|||||||
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
|
|
||||||
label_apple:
|
label_apple:
|
||||||
PASCAL_STRING GLYPH_CAPPLE
|
PASCAL_STRING GLYPH_SAPPLE
|
||||||
label_file:
|
label_file:
|
||||||
PASCAL_STRING "File"
|
PASCAL_STRING "File"
|
||||||
label_view:
|
label_view:
|
||||||
|
@ -489,7 +489,7 @@ max_page:
|
|||||||
hbasl := $6
|
hbasl := $6
|
||||||
screen_width := 560
|
screen_width := 560
|
||||||
|
|
||||||
;; Test for OpenApple+ClosedApple+P
|
;; Test for OpenApple+SolidApple+P
|
||||||
pha
|
pha
|
||||||
lda BUTN0
|
lda BUTN0
|
||||||
and BUTN1
|
and BUTN1
|
||||||
|
@ -7955,7 +7955,7 @@ L7ECD: lda #$00
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
;; Look at buttons (apple keys), compute modifiers in A
|
;; Look at buttons (apple keys), compute modifiers in A
|
||||||
;; (bit = button 0 / open apple, bit 1 = button 1 / closed apple)
|
;; (bit = button 0 / open apple, bit 1 = button 1 / solid apple)
|
||||||
.proc compute_modifiers
|
.proc compute_modifiers
|
||||||
lda BUTN1
|
lda BUTN1
|
||||||
asl a
|
asl a
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
△ = Open Apple
|
△ = Open Apple
|
||||||
|
|
||||||
▲ = Closed Apple
|
▲ = Solid Apple
|
||||||
|
|
||||||
## Windows
|
## Windows
|
||||||
|
|
||||||
|
4
mgtk.inc
4
mgtk.inc
@ -284,7 +284,7 @@ GetEvent := $2A
|
|||||||
;; .byte kind
|
;; .byte kind
|
||||||
;; if kind is event_kind_key_down:
|
;; if kind is event_kind_key_down:
|
||||||
;; .byte key (ASCII code; high bit clear)
|
;; .byte key (ASCII code; high bit clear)
|
||||||
;; .byte modifiers (0=none, 1=open-apple, 2=closed-apple, 3=both)
|
;; .byte modifiers (0=none, 1=open-apple, 2=solid-apple, 3=both)
|
||||||
;; if kind otherwise:
|
;; if kind otherwise:
|
||||||
;; .word xcoord
|
;; .word xcoord
|
||||||
;; .word ycoord
|
;; .word ycoord
|
||||||
@ -300,7 +300,7 @@ PostEvent := $2D ; Set pending input kind (mouse or keyboard)
|
|||||||
;; .byte kind
|
;; .byte kind
|
||||||
;; if kind is event_kind_key_down:
|
;; if kind is event_kind_key_down:
|
||||||
;; .byte key ASCII code; high bit clear
|
;; .byte key ASCII code; high bit clear
|
||||||
;; .byte modifiers 0=none, 1=open-apple, 2=closed-apple, 3=both
|
;; .byte modifiers 0=none, 1=open-apple, 2=solid-apple, 3=both
|
||||||
;; if kind otherwise:
|
;; if kind otherwise:
|
||||||
;; .word xcoord
|
;; .word xcoord
|
||||||
;; .word ycoord
|
;; .word ycoord
|
||||||
|
Loading…
Reference in New Issue
Block a user