mirror of
https://github.com/mi57730/a2d.git
synced 2024-12-01 05:50:24 +00:00
DeskTop: window param blocks in seg2
This commit is contained in:
Joshua Bell
parent
39deb98f14
commit
39885d040d
@ -462,6 +462,10 @@ DESKTOP_REDRAW_ICONS := $0C ; Repaints desktop icons
|
|||||||
.local data ; Call as A2D_DEFSTRING "abc"
|
.local data ; Call as A2D_DEFSTRING "abc"
|
||||||
.local end ; Can include control chars by using:
|
.local end ; Can include control chars by using:
|
||||||
.addr data ; A2D_DEFSTRING {"abc",$0D,"def"}
|
.addr data ; A2D_DEFSTRING {"abc",$0D,"def"}
|
||||||
|
|
||||||
|
.if .paramcount > 1
|
||||||
|
label:
|
||||||
|
.endif
|
||||||
.byte end - data
|
.byte end - data
|
||||||
data: .byte str
|
data: .byte str
|
||||||
end:
|
end:
|
||||||
|
|||||||
@ -207,6 +207,7 @@ LD14C: ora ($8D)
|
|||||||
.byte $FF,$FF,$FF,$FF,$00,$00,$00,$00
|
.byte $FF,$FF,$FF,$FF,$00,$00,$00,$00
|
||||||
.byte $00,$00,$00,$00,$FF
|
.byte $00,$00,$00,$00,$FF
|
||||||
|
|
||||||
|
LD293:
|
||||||
.byte px(%1010101)
|
.byte px(%1010101)
|
||||||
.byte PX(%0101010)
|
.byte PX(%0101010)
|
||||||
.byte px(%1010101)
|
.byte px(%1010101)
|
||||||
@ -224,6 +225,7 @@ LD14C: ora ($8D)
|
|||||||
|
|
||||||
;;; Pointer
|
;;; Pointer
|
||||||
|
|
||||||
|
LD2AD:
|
||||||
.byte px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000)
|
||||||
.byte px(%0100000),px(%0000000)
|
.byte px(%0100000),px(%0000000)
|
||||||
.byte px(%0110000),px(%0000000)
|
.byte px(%0110000),px(%0000000)
|
||||||
@ -251,7 +253,7 @@ LD14C: ora ($8D)
|
|||||||
.byte 1,1
|
.byte 1,1
|
||||||
|
|
||||||
;;; Insertion Point
|
;;; Insertion Point
|
||||||
|
LD2DF:
|
||||||
.byte px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000)
|
||||||
.byte px(%0110001),px(%1000000)
|
.byte px(%0110001),px(%1000000)
|
||||||
.byte px(%0001010),px(%0000000)
|
.byte px(%0001010),px(%0000000)
|
||||||
@ -279,7 +281,7 @@ LD14C: ora ($8D)
|
|||||||
.byte 4, 5
|
.byte 4, 5
|
||||||
|
|
||||||
;;; Watch
|
;;; Watch
|
||||||
|
LD311:
|
||||||
.byte px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000)
|
||||||
.byte px(%0011111),px(%1100000)
|
.byte px(%0011111),px(%1100000)
|
||||||
.byte px(%0011111),px(%1100000)
|
.byte px(%0011111),px(%1100000)
|
||||||
@ -336,6 +338,7 @@ alert_bitmap:
|
|||||||
.byte PX(%0111111),px(%1100000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
.byte PX(%0111111),px(%1100000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
|
|
||||||
|
LD56D:
|
||||||
.word $28, $8 ; left, top
|
.word $28, $8 ; left, top
|
||||||
.addr alert_bitmap
|
.addr alert_bitmap
|
||||||
.byte $07 ; stride
|
.byte $07 ; stride
|
||||||
@ -431,10 +434,12 @@ alert_bitmap:
|
|||||||
.byte $00,$00,$00,$14,$00,$00,$00,$00
|
.byte $00,$00,$00,$14,$00,$00,$00,$00
|
||||||
.byte $01,$06,$00,$00,$00,$00,$00,$00
|
.byte $01,$06,$00,$00,$00,$00,$00,$00
|
||||||
.byte $01,$00,$02,$20,$20
|
.byte $01,$00,$02,$20,$20
|
||||||
|
|
||||||
PASCAL_STRING "Files"
|
PASCAL_STRING "Files"
|
||||||
|
|
||||||
.byte $07,$20,$20,$20,$20
|
PASCAL_STRING " "
|
||||||
.byte $20,$20,$20,$00,$00,$00,$00,$0D
|
|
||||||
|
.byte $00,$00,$00,$00,$0D
|
||||||
.byte $00,$00,$00,$00,$00,$7D,$00,$00
|
.byte $00,$00,$00,$00,$00,$7D,$00,$00
|
||||||
.byte $00,$02,$00,$00,$00,$00,$00,$02
|
.byte $00,$02,$00,$00,$00,$00,$00,$02
|
||||||
.byte $01,$02,$00,$00,$57,$01,$28,$00
|
.byte $01,$02,$00,$00,$57,$01,$28,$00
|
||||||
@ -508,10 +513,12 @@ alert_bitmap:
|
|||||||
.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,$00
|
.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,$00
|
||||||
.byte $00,$00,$0C,$E3,$23,$E3,$3A,$E3
|
.byte $00,$00
|
||||||
.byte $51,$E3,$68,$E3,$7F,$E3,$96,$E3
|
|
||||||
.byte $AD,$E3,$C4,$E3,$DB,$E3,$F2,$E3
|
.addr sd0s, sd1s, sd2s, sd3s, sd4s, sd5s, sd6s
|
||||||
.byte $09,$E4,$20,$E4,$37,$E4,$F2,$E4
|
.addr sd7s, sd8s, sd9s, sd10s, sd11s, sd12s, sd13s
|
||||||
|
|
||||||
|
.addr LE4F2
|
||||||
|
|
||||||
.res 896, 0
|
.res 896, 0
|
||||||
|
|
||||||
@ -565,20 +572,20 @@ LDFA1: .addr $0000,$E723,$E76F,$E7BB,$E807,$E853,$E89F,$E8EB,$E937,$0000,$E98
|
|||||||
|
|
||||||
PASCAL_STRING "All"
|
PASCAL_STRING "All"
|
||||||
|
|
||||||
sd0: A2D_DEFSTRING "Slot drive "
|
sd0: A2D_DEFSTRING "Slot drive ", sd0s
|
||||||
sd1: A2D_DEFSTRING "Slot drive "
|
sd1: A2D_DEFSTRING "Slot drive ", sd1s
|
||||||
sd2: A2D_DEFSTRING "Slot drive "
|
sd2: A2D_DEFSTRING "Slot drive ", sd2s
|
||||||
sd3: A2D_DEFSTRING "Slot drive "
|
sd3: A2D_DEFSTRING "Slot drive ", sd3s
|
||||||
sd4: A2D_DEFSTRING "Slot drive "
|
sd4: A2D_DEFSTRING "Slot drive ", sd4s
|
||||||
sd5: A2D_DEFSTRING "Slot drive "
|
sd5: A2D_DEFSTRING "Slot drive ", sd5s
|
||||||
sd6: A2D_DEFSTRING "Slot drive "
|
sd6: A2D_DEFSTRING "Slot drive ", sd6s
|
||||||
sd7: A2D_DEFSTRING "Slot drive "
|
sd7: A2D_DEFSTRING "Slot drive ", sd7s
|
||||||
sd8: A2D_DEFSTRING "Slot drive "
|
sd8: A2D_DEFSTRING "Slot drive ", sd8s
|
||||||
sd9: A2D_DEFSTRING "Slot drive "
|
sd9: A2D_DEFSTRING "Slot drive ", sd9s
|
||||||
sd10: A2D_DEFSTRING "Slot drive "
|
sd10: A2D_DEFSTRING "Slot drive ", sd10s
|
||||||
sd11: A2D_DEFSTRING "Slot drive "
|
sd11: A2D_DEFSTRING "Slot drive ", sd11s
|
||||||
sd12: A2D_DEFSTRING "Slot drive "
|
sd12: A2D_DEFSTRING "Slot drive ", sd12s
|
||||||
sd13: A2D_DEFSTRING "Slot drive "
|
sd13: A2D_DEFSTRING "Slot drive ", sd13s
|
||||||
|
|
||||||
PASCAL_STRING "Slot 0 "
|
PASCAL_STRING "Slot 0 "
|
||||||
PASCAL_STRING "Slot 0 "
|
PASCAL_STRING "Slot 0 "
|
||||||
@ -595,6 +602,8 @@ sd13: A2D_DEFSTRING "Slot drive "
|
|||||||
PASCAL_STRING "UniDisk 3.5 Sx,y "
|
PASCAL_STRING "UniDisk 3.5 Sx,y "
|
||||||
PASCAL_STRING "RAMCard Slot x "
|
PASCAL_STRING "RAMCard Slot x "
|
||||||
PASCAL_STRING "Slot drive "
|
PASCAL_STRING "Slot drive "
|
||||||
|
|
||||||
|
LE4F2:
|
||||||
.byte $05,$00,$00,$00,$00,$00,$00,$00
|
.byte $05,$00,$00,$00,$00,$00,$00,$00
|
||||||
.byte $00,$00,$46,$E5,$00,$00,$00,$00
|
.byte $00,$00,$46,$E5,$00,$00,$00,$00
|
||||||
.byte $57,$E5,$00,$00,$00,$00,$69,$E5
|
.byte $57,$E5,$00,$00,$00,$00,$69,$E5
|
||||||
@ -648,87 +657,84 @@ sd13: A2D_DEFSTRING "Slot drive "
|
|||||||
.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,$00
|
.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,$00
|
||||||
.byte $00,$01,$06,$5D,$E7,$C1,$C1,$03 ; Looks like a bunch of window params starting here-ish
|
.byte $00
|
||||||
.byte $00,$03,$00,$00,$00,$AA,$00,$32
|
|
||||||
.byte $00,$21,$02,$AF,$00,$14,$00,$1B
|
; Looks like a bunch of window params starting here-ish
|
||||||
.byte $00,$00,$20,$80,$00,$00,$00,$00
|
.proc win1
|
||||||
.byte $00,$B8,$01,$78,$00,$FF,$FF,$FF
|
id: .byte 1
|
||||||
.byte $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
|
flags: .byte A2D_CWF_ADDCLOSE | A2D_CWF_ADDRESIZE
|
||||||
.byte $00,$00,$00,$01,$01,$00,$7F,$00
|
title: .addr win1buf
|
||||||
.byte $88,$00,$00,$00,$00,$00,$00,$00
|
hscroll:.byte A2D_CWS_SCROLL_NORMAL
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
vscroll:.byte A2D_CWS_SCROLL_NORMAL
|
||||||
.byte $00,$00,$00,$00,$00,$02,$06,$A9
|
hsmax: .byte 3
|
||||||
.byte $E7,$C1,$C1,$03,$00,$03,$00,$00
|
hspos: .byte 0
|
||||||
.byte $00,$AA,$00,$32,$00,$21,$02,$AF
|
vsmax: .byte 3
|
||||||
.byte $00,$14,$00,$1B,$00,$00,$20,$80
|
vspos: .byte 0
|
||||||
.byte $00,$00,$00,$00,$00,$B8,$01,$78
|
.byte 0,0 ; ???
|
||||||
.byte $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
w1: .word 170
|
||||||
.byte $FF,$FF,$00,$00,$00,$00,$00,$01
|
h1: .word 50
|
||||||
.byte $01,$00,$7F,$00,$88,$00,$00,$00
|
w2: .word 545
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
h2: .word 175
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
left: .word 20
|
||||||
.byte $00,$03,$06,$F5,$E7,$C1,$C1,$03
|
top: .word 27
|
||||||
.byte $00,$03,$00,$00,$00,$AA,$00,$32
|
saddr: .addr A2D_SCREEN_ADDR
|
||||||
.byte $00,$21,$02,$AF,$00,$14,$00,$1B
|
stride: .word A2D_SCREEN_STRIDE
|
||||||
.byte $00,$00,$20,$80,$00,$00,$00,$00
|
hoff: .word 0
|
||||||
.byte $00,$B8,$01,$78,$00,$FF,$FF,$FF
|
voff: .word 0
|
||||||
.byte $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
|
width: .word 440
|
||||||
.byte $00,$00,$00,$01,$01,$00,$7F,$00
|
height: .word 120
|
||||||
.byte $88,$00,$00,$00,$00,$00,$00,$00
|
pattern:.res 8, $FF
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
mskand: .byte $FF
|
||||||
.byte $00,$00,$00,$00,$00,$04,$06,$41
|
mskor: .byte $00
|
||||||
.byte $E8,$C1,$C1,$03,$00,$03,$00,$00
|
.byte 0,0,0,0 ; ???
|
||||||
.byte $00,$AA,$00,$32,$00,$21,$02,$AF
|
hthick: .byte 1
|
||||||
.byte $00,$14,$00,$1B,$00,$00,$20,$80
|
vthick: .byte 1
|
||||||
.byte $00,$00,$00,$00,$00,$B8,$01,$78
|
.byte 0 ; ???
|
||||||
.byte $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
tmsk: .byte $7F
|
||||||
.byte $FF,$FF,$00,$00,$00,$00,$00,$01
|
font: .addr $8800
|
||||||
.byte $01,$00,$7F,$00,$88,$00,$00,$00
|
next: .addr 0
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.endproc
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$05,$06,$8D,$E8,$C1,$C1,$03
|
win1buf:.res 18, 0
|
||||||
.byte $00,$03,$00,$00,$00,$AA,$00,$32
|
|
||||||
.byte $00,$21,$02,$AF,$00,$14,$00,$1B
|
.proc win2
|
||||||
.byte $00,$00,$20,$80,$00,$00,$00,$00
|
.byte $02,$06,$A9,$E7,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $00,$B8,$01,$78,$00,$FF,$FF,$FF
|
.endproc
|
||||||
.byte $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
|
|
||||||
.byte $00,$00,$00,$01,$01,$00,$7F,$00
|
win2buf:.res 18, 0
|
||||||
.byte $88,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.proc win3
|
||||||
.byte $00,$00,$00,$00,$00,$06,$06,$D9
|
.byte $03,$06,$F5,$E7,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $E8,$C1,$C1,$03,$00,$03,$00,$00
|
.endproc
|
||||||
.byte $00,$AA,$00,$32,$00,$21,$02,$AF
|
|
||||||
.byte $00,$14,$00,$1B,$00,$00,$20,$80
|
win3buf:.res 18, 0
|
||||||
.byte $00,$00,$00,$00,$00,$B8,$01,$78
|
|
||||||
.byte $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
.proc win4
|
||||||
.byte $FF,$FF,$00,$00,$00,$00,$00,$01
|
.byte $04,$06,$41,$E8,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $01,$00,$7F,$00,$88,$00,$00,$00
|
.endproc
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
win4buf:.res 18, 0
|
||||||
.byte $00,$07,$06,$25,$E9,$C1,$C1,$03
|
|
||||||
.byte $00,$03,$00,$00,$00,$AA,$00,$32
|
.proc win5
|
||||||
.byte $00,$21,$02,$AF,$00,$14,$00,$1B
|
.byte $05,$06,$8D,$E8,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $00,$00,$20,$80,$00,$00,$00,$00
|
.endproc
|
||||||
.byte $00,$B8,$01,$78,$00,$FF,$FF,$FF
|
|
||||||
.byte $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
|
win5buf:.res 18, 0
|
||||||
.byte $00,$00,$00,$01,$01,$00,$7F,$00
|
|
||||||
.byte $88,$00,$00,$00,$00,$00,$00,$00
|
.byte $06,$06,$D9,$E8,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$08,$06,$71
|
win6buf:.res 18, 0
|
||||||
.byte $E9,$C1,$C1,$03,$00,$03,$00,$00
|
|
||||||
.byte $00,$AA,$00,$32,$00,$21,$02,$AF
|
.byte $07,$06,$25,$E9,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $00,$14,$00,$1B,$00,$00,$20,$80
|
|
||||||
.byte $00,$00,$00,$00,$00,$B8,$01,$78
|
win7buf:.res 18, 0
|
||||||
.byte $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
||||||
.byte $FF,$FF,$00,$00,$00,$00,$00,$01
|
.byte $08,$06,$71,$E9,$C1,$C1,$03,$00,$03,$00,$00,$00,$AA,$00,$32,$00,$21,$02,$AF,$00,$14,$00,$1B,$00,$00,$20,$80,$00,$00,$00,$00,$00,$B8,$01,$78,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$01,$01,$00,$7F,$00,$88,$00,$00
|
||||||
.byte $01,$00,$7F,$00,$88,$00,$00,$00
|
|
||||||
|
win8buf:.res 18, 0
|
||||||
|
|
||||||
.res 560, 0
|
.res 560, 0
|
||||||
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
.byte $00
|
|
||||||
|
|
||||||
PASCAL_STRING " Items"
|
PASCAL_STRING " Items"
|
||||||
|
|
||||||
.byte $08,$00,$0A,$00,$00,$00,$00,$00
|
.byte $08,$00,$0A,$00,$00,$00,$00,$00
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user