2018-01-10 16:34:57 +00:00
|
|
|
|
NEW
|
2019-07-30 10:57:25 +02:00
|
|
|
|
AUTO 3,1
|
2018-01-10 16:34:57 +00:00
|
|
|
|
*--------------------------------------
|
2021-06-03 19:43:28 +02:00
|
|
|
|
WND.Init >PUSHW L.DEVNAME.GFX
|
|
|
|
|
|
>PUSHBI 0
|
2019-05-05 19:15:37 +02:00
|
|
|
|
>SYSCALL2 open
|
2018-05-16 08:02:57 +02:00
|
|
|
|
bcs .9
|
2020-09-02 17:47:23 +02:00
|
|
|
|
|
2020-09-06 14:24:04 +02:00
|
|
|
|
sta WND.Screen+S.OBJ.hPARENT
|
2020-09-02 17:47:23 +02:00
|
|
|
|
|
2019-01-09 16:42:20 +00:00
|
|
|
|
>LDYA L.DCB.GFX
|
|
|
|
|
|
>STYA IOCTL+S.IOCTL.BUFPTR
|
2021-05-04 19:31:21 +02:00
|
|
|
|
lda #S.IOCTL.S.GETDCB
|
|
|
|
|
|
sta IOCTL+S.IOCTL.S
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-09-06 14:24:04 +02:00
|
|
|
|
>PUSHB WND.Screen+S.OBJ.hPARENT
|
2019-01-09 16:42:20 +00:00
|
|
|
|
>PUSHBI IOCTL.STATUS
|
2020-09-02 17:47:23 +02:00
|
|
|
|
>PUSHW L.IOCTL
|
2019-05-05 19:15:37 +02:00
|
|
|
|
>SYSCALL2 IOCTL
|
2020-09-06 14:24:04 +02:00
|
|
|
|
|
2019-10-03 08:25:27 +02:00
|
|
|
|
.9 rts
|
2019-01-10 16:26:58 +00:00
|
|
|
|
*--------------------------------------
|
2020-10-26 07:38:50 +01:00
|
|
|
|
WND.Setup
|
2020-10-20 08:01:04 +02:00
|
|
|
|
* stz WND.Stack.Top
|
2022-10-18 07:56:59 +02:00
|
|
|
|
* stz MENU.Stack.Cnt
|
2020-10-08 17:33:38 +02:00
|
|
|
|
|
|
|
|
|
|
>LDYA DCB.GFX+S.DCB.GFX.W
|
2020-09-06 14:24:04 +02:00
|
|
|
|
>STYA WND.Screen+S.OBJ.W
|
2019-01-10 16:26:58 +00:00
|
|
|
|
>STYA WND.Desktop+S.OBJ.W
|
|
|
|
|
|
>STYA WND.SysBar+S.OBJ.W
|
2020-09-06 14:24:04 +02:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
lda SYSFON.Hp2
|
2019-01-10 16:26:58 +00:00
|
|
|
|
sta WND.SysBar+S.OBJ.H
|
2020-09-06 14:24:04 +02:00
|
|
|
|
|
2019-01-09 06:58:19 +00:00
|
|
|
|
lda DCB.GFX+S.DCB.GFX.H
|
2020-09-06 14:24:04 +02:00
|
|
|
|
sta WND.Screen+S.OBJ.H
|
2020-10-06 08:27:35 +02:00
|
|
|
|
|
2018-05-16 08:02:57 +02:00
|
|
|
|
sec
|
2019-01-10 16:26:58 +00:00
|
|
|
|
sbc WND.SysBar+S.OBJ.H
|
|
|
|
|
|
sta WND.Desktop+S.OBJ.H
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
sta WND.SysBar+S.OBJ.Y1
|
2020-10-20 08:01:04 +02:00
|
|
|
|
sta RECT.SysBut+S.RECT.Y1
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.Y1
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.Y1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
lda DCB.GFX+S.DCB.GFX.H
|
|
|
|
|
|
dec
|
|
|
|
|
|
sta RECT.SysBut+S.RECT.Y2
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.Y2
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.Y2
|
2020-09-02 17:47:23 +02:00
|
|
|
|
|
2020-09-06 14:24:04 +02:00
|
|
|
|
>LDYA L.WND.Screen
|
2020-10-06 08:27:35 +02:00
|
|
|
|
>STYA WND.Desktop+S.OBJ.hPARENT
|
|
|
|
|
|
>STYA WND.SysBar+S.OBJ.hPARENT
|
2019-01-10 16:26:58 +00:00
|
|
|
|
jsr OBJ.SetX2Y2
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2019-01-10 16:26:58 +00:00
|
|
|
|
>LDYA L.WND.Desktop
|
|
|
|
|
|
jsr OBJ.SetX2Y2
|
2020-09-02 17:47:23 +02:00
|
|
|
|
|
2019-01-10 16:26:58 +00:00
|
|
|
|
>LDYA L.WND.SysBar
|
2020-09-05 15:38:04 +02:00
|
|
|
|
jsr OBJ.SetX2Y2
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-08 17:33:38 +02:00
|
|
|
|
>LDYA L.WND.SysBar.2osX
|
|
|
|
|
|
ldx hSYSFON
|
|
|
|
|
|
jsr FON.GetTextSize
|
|
|
|
|
|
|
|
|
|
|
|
lda CB.Cache+S.CB.SrcW
|
|
|
|
|
|
clc
|
|
|
|
|
|
adc #24 4 + BM width + 4
|
2020-10-20 08:01:04 +02:00
|
|
|
|
sta RECT.SysBut+S.RECT.X2
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
>LDYA L.WND.SysBar.Clk
|
|
|
|
|
|
ldx hSYSFON
|
|
|
|
|
|
jsr FON.GetTextSize
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
lda CB.Cache+S.CB.SrcW
|
|
|
|
|
|
sec for sbc below
|
|
|
|
|
|
adc #8 4 + 00:00 + 4
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.X2
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
lda DCB.GFX+S.DCB.GFX.W
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc RECT.SysWNDs+S.RECT.X2
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.X2
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.X1
|
|
|
|
|
|
lda DCB.GFX+S.DCB.GFX.W+1
|
|
|
|
|
|
sbc #0
|
|
|
|
|
|
sta RECT.SysWNDs+S.RECT.X2+1
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.X1+1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
lda DCB.GFX+S.DCB.GFX.W
|
2021-06-05 17:48:54 +02:00
|
|
|
|
clc
|
2020-10-20 08:01:04 +02:00
|
|
|
|
sbc #0
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.X2
|
|
|
|
|
|
lda DCB.GFX+S.DCB.GFX.W
|
|
|
|
|
|
sbc #0
|
|
|
|
|
|
sta RECT.SysClk+S.RECT.X2+1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
jsr SYSBAR.Show
|
|
|
|
|
|
|
2019-01-10 16:26:58 +00:00
|
|
|
|
rts
|
2018-05-16 08:02:57 +02:00
|
|
|
|
*--------------------------------------
|
2020-09-06 14:24:04 +02:00
|
|
|
|
WND.Quit lda WND.Screen+S.OBJ.hPARENT
|
2019-01-08 16:29:26 +00:00
|
|
|
|
beq .8
|
2020-09-06 14:24:04 +02:00
|
|
|
|
|
2019-01-08 16:29:26 +00:00
|
|
|
|
pha
|
|
|
|
|
|
>PUSHBI IOCTL.CLOSE
|
2019-06-07 17:02:51 +02:00
|
|
|
|
>PUSHWZ
|
2019-01-08 16:29:26 +00:00
|
|
|
|
pla
|
2019-05-05 19:15:37 +02:00
|
|
|
|
>SYSCALL2 IOCTL
|
2019-01-08 16:29:26 +00:00
|
|
|
|
|
2019-10-03 08:25:27 +02:00
|
|
|
|
.8 clc
|
2020-10-01 17:30:25 +02:00
|
|
|
|
WND.Quit.RTS rts
|
2018-01-10 16:34:57 +00:00
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
* guiNewWnd(sFlags, iX1, iY1, iW, iH)
|
2020-09-08 17:31:41 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-18 07:56:59 +02:00
|
|
|
|
WND.New ldy WND.Stack.Top
|
2020-10-01 17:30:25 +02:00
|
|
|
|
cpy #WND.MAX
|
2022-11-02 07:54:30 +01:00
|
|
|
|
bcs .98
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda #S.OBJ.T.WND
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr OBJ.New
|
2022-11-02 07:54:30 +01:00
|
|
|
|
bcs .99
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
* >STYA ZPObjPtr
|
|
|
|
|
|
phx
|
2020-10-01 17:30:25 +02:00
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
ldy #S.OBJ.H
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.PullWordAtY
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
ldy #S.OBJ.W
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.PullWordAtY
|
|
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
ldy #S.OBJ.Y1
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.PullWordAtY
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.X1
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.PullWordAtY
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
>PULLA
|
2020-10-23 08:03:23 +02:00
|
|
|
|
bit #S.WND.F.RESIZE
|
|
|
|
|
|
beq .2
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ora #S.OBJ.F.BORDER
|
2020-10-23 08:03:23 +02:00
|
|
|
|
|
|
|
|
|
|
.2 ldy #S.OBJ.F
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta (ZPObjPtr),y
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.PID
|
|
|
|
|
|
lda (pPs),y
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.hOWNER
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta (ZPObjPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
lda L.WND.Desktop
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldx L.WND.Desktop+1
|
2020-10-06 08:27:35 +02:00
|
|
|
|
ldy #S.OBJ.hPARENT
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.SetAXAtY
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda L.WND.fPaint
|
|
|
|
|
|
ldx L.WND.fPaint+1
|
|
|
|
|
|
ldy #S.WND.fPaint
|
|
|
|
|
|
jsr OBJ.SetAXAtY
|
|
|
|
|
|
|
|
|
|
|
|
pla ID
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
* clc
|
|
|
|
|
|
rts
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
|
|
|
|
|
.98 lda #E.OOH
|
|
|
|
|
|
|
|
|
|
|
|
.99 >POP 9
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
2020-09-08 17:31:41 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-01 17:30:25 +02:00
|
|
|
|
WND.Destroy clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2022-11-02 07:54:30 +01:00
|
|
|
|
WND.Activate jsr OBJ.GetHWNDA
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
|
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
clc
|
|
|
|
|
|
WND.Activate.RTS
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.Bring2Front ldx WND.Stack.Idx
|
|
|
|
|
|
cpx WND.Stack.Top
|
|
|
|
|
|
beq WND.Activate.RTS
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
lda WND.Stack-1,x
|
|
|
|
|
|
pha
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.1 lda WND.Stack,x
|
|
|
|
|
|
sta WND.Stack-1,x
|
|
|
|
|
|
inx
|
|
|
|
|
|
cpx WND.Stack.Top
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
dec WND.Stack.Top
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.2 pla
|
2020-09-08 17:31:41 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
* guiShowWnd( hWND )
|
2020-09-08 17:31:41 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-26 07:38:50 +01:00
|
|
|
|
WND.Show sta WND.hWND
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldx WND.Stack.Top
|
2022-11-02 07:54:30 +01:00
|
|
|
|
beq .1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
|
|
|
|
|
lda WND.Stack-1,x
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.GetHWNDA
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
lda #S.WND.S.ACTIVE
|
|
|
|
|
|
jsr WND.ClrStatus
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.GetBuf
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bcs WND.Activate.RTS
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr WND.DrawTitleBar
|
|
|
|
|
|
|
|
|
|
|
|
>LDYA L.WND.Desktop
|
|
|
|
|
|
jsr CB.FlushBufToYA
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
lda WND.hWND
|
|
|
|
|
|
ldx WND.Stack.Top
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.1 sta WND.Stack,x
|
|
|
|
|
|
inc WND.Stack.Top
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.Draw jsr OBJ.GetHWNDA Y,A = ZPWNDPtr
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.SetX2Y2
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr WND.ResetInnerW
|
|
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr CB.GetBuf
|
|
|
|
|
|
bcs WND.Activate.RTS
|
|
|
|
|
|
|
|
|
|
|
|
lda #S.WND.S.ACTIVE
|
|
|
|
|
|
jsr WND.SetStatus
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-09-08 17:31:41 +02:00
|
|
|
|
ldy #S.OBJ.F
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
and #S.OBJ.F.BORDER
|
2020-09-10 17:28:59 +02:00
|
|
|
|
beq .1
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
>LDYA ZPWNDPtr
|
|
|
|
|
|
ldx #1
|
|
|
|
|
|
jsr OBJ.DrawBorders
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.1 ldy #S.OBJ.Y1
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta Counter
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta Counter+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.pTITLE+1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.S
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
and #S.WND.F.MOVE+S.WND.F.CLOSE+S.WND.F.MIN+S.WND.F.MAX
|
|
|
|
|
|
beq .3
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
.2 lda SYSFON.Hp2
|
|
|
|
|
|
jsr WND.Add2Counter
|
2020-09-08 17:31:41 +02:00
|
|
|
|
|
2020-10-02 16:57:05 +02:00
|
|
|
|
ldy #S.WND.TBarY2
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr WND.SetAXAtY
|
2020-09-29 17:37:26 +02:00
|
|
|
|
|
|
|
|
|
|
lda #S.WND.S.HASTBAR
|
2020-09-13 21:05:38 +02:00
|
|
|
|
jsr WND.SetStatus
|
|
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr WND.DrawTitleBar
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bcs .9
|
2020-10-02 07:59:41 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
.3 ldy #S.WND.pMBAR
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2022-10-25 08:05:54 +02:00
|
|
|
|
beq .4
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldy #S.WND.MBarY1
|
|
|
|
|
|
jsr WND.SetCounterAtY
|
|
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
lda SYSFON.Hp1
|
|
|
|
|
|
jsr WND.Add2Counter
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldy #S.WND.MBarY2
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr WND.SetAXAtY
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-09-29 17:37:26 +02:00
|
|
|
|
lda #S.WND.S.HASMBAR
|
2020-09-15 16:48:35 +02:00
|
|
|
|
jsr WND.SetStatus
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldy #S.WND.pMBAR
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
jsr MBAR.Draw
|
2020-10-02 07:59:41 +02:00
|
|
|
|
*--------------------------------------
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.4 ldy #S.WND.InnerY1
|
|
|
|
|
|
jsr WND.SetCounterAtY
|
2022-10-25 08:05:54 +02:00
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.pSTATUS+1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-15 08:12:52 +02:00
|
|
|
|
beq .8
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda SYSFON.H
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr WND.Add2Counter
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldy #S.WND.InnerY2
|
2020-10-02 07:59:41 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
clc +1
|
2022-10-26 08:12:16 +02:00
|
|
|
|
sbc SYSFON.H
|
2022-10-25 08:05:54 +02:00
|
|
|
|
sta (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
tax
|
2020-10-02 07:59:41 +02:00
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sbc #0
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
|
bne .5
|
|
|
|
|
|
|
|
|
|
|
|
inc
|
|
|
|
|
|
|
|
|
|
|
|
.5 ldy #S.WND.SBarY1+1
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
|
|
|
|
|
dey
|
|
|
|
|
|
txa
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
2020-10-02 07:59:41 +02:00
|
|
|
|
|
2020-09-29 17:37:26 +02:00
|
|
|
|
lda #S.WND.S.HASSBAR
|
2020-09-15 16:48:35 +02:00
|
|
|
|
jsr WND.SetStatus
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr WND.DrawStatusBar
|
2020-10-02 07:59:41 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-06 08:27:35 +02:00
|
|
|
|
.8 ldy #S.WND.InnerH
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sec
|
2022-10-25 08:05:54 +02:00
|
|
|
|
sbc Counter
|
2020-10-06 08:27:35 +02:00
|
|
|
|
sta (ZPWNDPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
2022-10-25 08:05:54 +02:00
|
|
|
|
sbc Counter+1
|
2020-10-06 08:27:35 +02:00
|
|
|
|
sta (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-06 08:27:35 +02:00
|
|
|
|
>LDYA L.WND.Desktop
|
2022-10-20 08:07:40 +02:00
|
|
|
|
jsr CB.FlushBufToYA
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
|
|
|
|
|
lda WND.hWND
|
|
|
|
|
|
pha
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jmp WND.Paint1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.9 rts
|
2020-09-08 17:31:41 +02:00
|
|
|
|
*--------------------------------------
|
2022-11-02 07:54:30 +01:00
|
|
|
|
WND.ResetInnerW ldy #S.OBJ.W
|
|
|
|
|
|
ldx #S.WND.InnerW
|
|
|
|
|
|
jsr .1
|
2020-10-01 17:30:25 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldy #S.OBJ.H
|
|
|
|
|
|
ldx #S.WND.InnerH
|
|
|
|
|
|
jsr .1
|
|
|
|
|
|
|
2020-10-01 17:30:25 +02:00
|
|
|
|
ldy #S.OBJ.X2
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldx #S.WND.InnerX2
|
|
|
|
|
|
jsr .1
|
2020-10-01 17:30:25 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldy #S.OBJ.Y2
|
|
|
|
|
|
ldx #S.WND.InnerY2
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPWNDPtr),y
|
|
|
|
|
|
pha
|
2020-10-01 17:30:25 +02:00
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
phx
|
|
|
|
|
|
ply
|
2020-10-26 17:32:51 +01:00
|
|
|
|
iny
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta (ZPWNDPtr),y
|
2020-10-26 17:32:51 +01:00
|
|
|
|
dey
|
2022-11-02 07:54:30 +01:00
|
|
|
|
pla
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.Add2Counter clc
|
|
|
|
|
|
adc Counter
|
|
|
|
|
|
sta Counter
|
|
|
|
|
|
bcc .8
|
|
|
|
|
|
|
|
|
|
|
|
inc Counter+1
|
|
|
|
|
|
|
|
|
|
|
|
.8 ldx Counter+1
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.SetCounterAtY
|
|
|
|
|
|
lda Counter
|
|
|
|
|
|
ldx Counter+1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.SetAXAtY sta (ZPWNDPtr),y
|
|
|
|
|
|
iny
|
|
|
|
|
|
txa
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
|
|
|
|
|
rts
|
2020-09-10 17:28:59 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
WND.DrawTitleBar
|
|
|
|
|
|
lda #S.CB.CMD.FILLRECT
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.CMD
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-09-13 21:05:38 +02:00
|
|
|
|
lda #S.CB.OP.SET
|
2020-10-26 07:38:50 +01:00
|
|
|
|
sta CB.Cache+S.CB.OP
|
2020-09-13 21:05:38 +02:00
|
|
|
|
lda #S.CB.M.C16
|
2020-10-26 07:38:50 +01:00
|
|
|
|
sta CB.Cache+S.CB.M
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldx PREFS.TBarColorI
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-09-15 16:48:35 +02:00
|
|
|
|
ldy #S.OBJ.S
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
and #S.WND.S.ACTIVE
|
|
|
|
|
|
beq .10
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldx PREFS.TBarColorA
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.10 stx CB.Cache+S.CB.COLOR
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldy #S.OBJ.X1+5 X1,Y1,X2
|
|
|
|
|
|
ldx #5
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.11 lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.X1,x
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .11
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.Y1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.Y1
|
2020-09-14 16:31:41 +02:00
|
|
|
|
sec
|
|
|
|
|
|
adc SYSFON.H
|
2020-10-26 07:38:50 +01:00
|
|
|
|
sta CB.Cache+S.CB.Y2
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
2020-09-14 16:31:41 +02:00
|
|
|
|
iny
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.Y1+1
|
2020-09-14 16:31:41 +02:00
|
|
|
|
adc #0
|
2020-10-26 07:38:50 +01:00
|
|
|
|
sta CB.Cache+S.CB.Y2+1
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.Cache2CBBuf
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
inc CB.Cache+S.CB.Y1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bne .12
|
2022-10-25 08:05:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
inc CB.Cache+S.CB.Y1+1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-09-14 16:31:41 +02:00
|
|
|
|
* TOP LEFT ICON
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.12 ldy #S.WND.ICON+1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
tax
|
|
|
|
|
|
dey
|
2020-09-15 16:48:35 +02:00
|
|
|
|
ora (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
bne .1
|
|
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
>LDYA L.BM.Apple
|
2020-09-13 21:05:38 +02:00
|
|
|
|
bra .2
|
|
|
|
|
|
|
2020-09-15 16:48:35 +02:00
|
|
|
|
.1 lda (ZPWNDPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
tay
|
|
|
|
|
|
txa
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.2 jsr DRAW.yaBM
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
jsr WND.DrawTitleBarText
|
2020-09-14 16:31:41 +02:00
|
|
|
|
bcs .9
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
* TOP RIGHT ICONS
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldy #S.OBJ.X2
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-14 16:31:41 +02:00
|
|
|
|
sec
|
2020-10-26 07:38:50 +01:00
|
|
|
|
sbc #48
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
|
2020-09-14 16:31:41 +02:00
|
|
|
|
iny
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-14 16:31:41 +02:00
|
|
|
|
sbc #0
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1+1
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldy #S.OBJ.F
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
bit #S.WND.F.MIN
|
|
|
|
|
|
beq .3
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldx #BM.ID.MIN
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr DRAW.xBM
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.3 lda CB.Cache+S.CB.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
clc
|
|
|
|
|
|
adc #16
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bcc .31
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
|
|
|
|
|
inc CB.Cache+S.CB.X1+1
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.31 ldy #S.OBJ.F
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
bit #S.WND.F.MAX
|
2020-09-14 16:31:41 +02:00
|
|
|
|
beq .4
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldx #BM.ID.MAX
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr DRAW.xBM
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.4 lda CB.Cache+S.CB.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
clc
|
|
|
|
|
|
adc #16
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bcc .41
|
2022-10-25 08:05:54 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
inc CB.Cache+S.CB.X1+1
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
.41 ldy #S.OBJ.F
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
bit #S.WND.F.CLOSE
|
2020-09-14 16:31:41 +02:00
|
|
|
|
beq .8
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldx #BM.ID.CLOSE
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr DRAW.xBM
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
|
|
|
|
|
.8 clc
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
WND.DrawTitleBarText
|
2022-10-18 07:56:59 +02:00
|
|
|
|
ldy #S.WND.pTITLE
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-10-01 17:30:25 +02:00
|
|
|
|
pha
|
2020-09-13 21:05:38 +02:00
|
|
|
|
iny
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-10-01 17:30:25 +02:00
|
|
|
|
ply
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldx hSYSFON
|
2020-10-01 17:30:25 +02:00
|
|
|
|
jsr FON.GetTextSize
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2020-09-14 16:31:41 +02:00
|
|
|
|
ldy #S.OBJ.W
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-14 16:31:41 +02:00
|
|
|
|
sec
|
|
|
|
|
|
sbc CB.Cache+S.CB.SrcW
|
|
|
|
|
|
sta DX
|
|
|
|
|
|
iny
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-14 16:31:41 +02:00
|
|
|
|
sbc CB.Cache+S.CB.SrcW+1
|
|
|
|
|
|
|
|
|
|
|
|
lsr
|
|
|
|
|
|
ror DX
|
|
|
|
|
|
sta DX+1
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-09-14 16:31:41 +02:00
|
|
|
|
ldy #S.OBJ.X1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-11 22:54:15 +02:00
|
|
|
|
clc
|
2020-09-14 16:31:41 +02:00
|
|
|
|
adc DX
|
2022-10-25 08:05:54 +02:00
|
|
|
|
and PREFS.BestViewedX
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1
|
2020-09-14 16:31:41 +02:00
|
|
|
|
|
2020-09-11 22:54:15 +02:00
|
|
|
|
iny
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-09-14 16:31:41 +02:00
|
|
|
|
adc DX+1
|
2022-11-02 07:54:30 +01:00
|
|
|
|
sta CB.Cache+S.CB.X1+1
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
ldy #S.WND.pTITLE
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
pha
|
2020-09-11 22:54:15 +02:00
|
|
|
|
iny
|
2020-09-15 16:48:35 +02:00
|
|
|
|
lda (ZPWNDPtr),y
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ply
|
2020-09-13 21:05:38 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldx hSYSFON
|
2020-09-10 17:28:59 +02:00
|
|
|
|
clc
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jmp DRAW.YAText
|
2020-09-15 08:12:52 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
WND.DrawStatusBar
|
2022-10-27 17:14:06 +02:00
|
|
|
|
jsr CB.BorderLineH
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldy #S.OBJ.X1
|
2022-10-26 08:12:16 +02:00
|
|
|
|
ldx #S.CB.X1
|
|
|
|
|
|
jsr CB.GetWndYCacheX
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldy #S.OBJ.X2
|
2022-10-26 08:12:16 +02:00
|
|
|
|
ldx #S.CB.X2
|
|
|
|
|
|
jsr CB.GetWndYCacheX
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
ldy #S.WND.SBarY1
|
|
|
|
|
|
ldx #S.CB.Y1
|
|
|
|
|
|
jsr CB.GetWndYCacheX
|
2020-09-15 16:48:35 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr CB.Cache2CBBuf
|
2020-09-30 17:32:54 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
inc CB.Cache+S.CB.Y1
|
|
|
|
|
|
bne .1
|
2022-10-26 08:12:16 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
inc CB.Cache+S.CB.Y1+1
|
2020-09-15 16:48:35 +02:00
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.1 lda PREFS.SBarColor
|
|
|
|
|
|
jsr CB.FillRectMonoA
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.Y2
|
2022-10-26 08:12:16 +02:00
|
|
|
|
ldx #S.CB.Y2
|
|
|
|
|
|
jsr CB.GetWndYCacheX
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.Cache2CBBuf
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
ldy #S.WND.pSTATUS
|
2020-10-26 07:38:50 +01:00
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
pha
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
ply
|
2020-09-15 08:12:52 +02:00
|
|
|
|
|
2020-10-26 07:38:50 +01:00
|
|
|
|
ldx hSYSFON
|
|
|
|
|
|
clc
|
2022-10-26 08:12:16 +02:00
|
|
|
|
jmp DRAW.YAText
|
2020-09-13 21:05:38 +02:00
|
|
|
|
*--------------------------------------
|
2022-11-02 07:54:30 +01:00
|
|
|
|
WND.Paint pha hWND
|
|
|
|
|
|
|
|
|
|
|
|
jsr OBJ.GetHWNDA
|
|
|
|
|
|
|
|
|
|
|
|
WND.Paint1 ldy #S.WND.fPaint
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
|
|
jmp (ZPPtr1)
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.fPaint.RTS rts
|
|
|
|
|
|
|
|
|
|
|
|
WND.fPaint jsr OBJ.GetHWNDA
|
|
|
|
|
|
|
|
|
|
|
|
jsr CB.GetBuf
|
|
|
|
|
|
bcs WND.fPaint.RTS
|
|
|
|
|
|
|
|
|
|
|
|
lda #S.CB.CMD.FILLRECT
|
|
|
|
|
|
sta CB.Cache+S.CB.CMD
|
|
|
|
|
|
|
|
|
|
|
|
lda #S.CB.OP.SET+S.CB.OP.COLOR
|
|
|
|
|
|
sta CB.Cache+S.CB.OP
|
|
|
|
|
|
|
|
|
|
|
|
lda #S.CB.M.MONO
|
|
|
|
|
|
sta CB.Cache+S.CB.M
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.BGCOLOR
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.COLOR
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.X1
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.X1
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.X1+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.InnerY1
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.Y1
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.Y1+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.InnerX2
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.X2
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.X2+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.InnerY2
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.Y2
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.Y2+1
|
|
|
|
|
|
|
|
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
ldy #S.WND.BGBM
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.SrcPtr
|
|
|
|
|
|
iny
|
|
|
|
|
|
ora (ZPWNDPtr),y
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.SrcPtr+1
|
|
|
|
|
|
|
|
|
|
|
|
stz S.CB.SrcX
|
|
|
|
|
|
stz S.CB.SrcX+1
|
|
|
|
|
|
|
|
|
|
|
|
stz S.CB.SrcY
|
|
|
|
|
|
stz S.CB.SrcY+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.WND.InnerW+3
|
|
|
|
|
|
ldx #3
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPWNDPtr),y
|
|
|
|
|
|
sta CB.Cache+S.CB.SrcW,x
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
lda #S.CB.CMD.BITBLT
|
|
|
|
|
|
sta CB.Cache+S.CB.CMD
|
|
|
|
|
|
|
|
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
|
|
|
|
|
|
.8 >LDYA L.WND.Desktop
|
|
|
|
|
|
|
|
|
|
|
|
jmp CB.FlushBufToYA
|
|
|
|
|
|
*--------------------------------------
|
2022-10-18 07:56:59 +02:00
|
|
|
|
WND.SetMBar >PULLW ZPPtr1
|
|
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr OBJ.PullHWND
|
2022-10-25 08:05:54 +02:00
|
|
|
|
|
|
|
|
|
|
>LDYA ZPPtr1
|
|
|
|
|
|
jsr MBAR.New
|
|
|
|
|
|
bcs .9
|
2022-10-18 07:56:59 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
ldy #S.WND.pMBAR
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
|
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
2022-10-18 07:56:59 +02:00
|
|
|
|
*--------------------------------------
|
2020-09-13 21:05:38 +02:00
|
|
|
|
WND.ClrStatus ldy #S.OBJ.S
|
|
|
|
|
|
eor #$ff
|
2020-09-15 16:48:35 +02:00
|
|
|
|
and (ZPWNDPtr),y
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
WND.SetStatus ldy #S.OBJ.S
|
2020-09-15 16:48:35 +02:00
|
|
|
|
ora (ZPWNDPtr),y
|
|
|
|
|
|
sta (ZPWNDPtr),y
|
2020-09-13 21:05:38 +02:00
|
|
|
|
rts
|
2020-09-10 17:28:59 +02:00
|
|
|
|
*--------------------------------------
|
2018-01-10 16:34:57 +00:00
|
|
|
|
MAN
|
2020-06-30 17:32:23 +02:00
|
|
|
|
SAVE usr/src/lib/libgui.s.wnd
|
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
2018-01-10 16:34:57 +00:00
|
|
|
|
ASM
|
