2020-10-06 17:23:40 +02:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
*--------------------------------------
|
2022-10-25 08:05:54 +02:00
|
|
|
|
SYSBUT.Enter bit WND.SYSBAR.bSysBut
|
|
|
|
|
bmi .8
|
2022-12-07 08:02:29 +01:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
sec
|
2020-10-20 08:01:04 +02:00
|
|
|
|
ror WND.SYSBAR.bSysBut
|
2020-10-06 17:23:40 +02:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
jsr MENU.DestroyAll
|
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.GetBuf
|
|
|
|
|
bcs .9
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
jsr SYSBAR.ShowSysBut
|
2020-10-08 17:33:38 +02:00
|
|
|
|
|
|
|
|
|
>LDYA L.WND.SysBar
|
2022-10-20 08:07:40 +02:00
|
|
|
|
jsr CB.FlushBufToYA
|
2020-10-09 17:28:01 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
>PUSHW L.MENU.Sys
|
2020-10-09 17:28:01 +02:00
|
|
|
|
>PUSHW WND.SysBar+S.OBJ.X1
|
|
|
|
|
>PUSHW WND.SysBar+S.OBJ.Y1
|
2022-12-07 08:02:29 +01:00
|
|
|
|
|
2020-10-09 17:28:01 +02:00
|
|
|
|
jsr MENU.New
|
2022-10-18 07:56:59 +02:00
|
|
|
|
bcs .9
|
2020-10-09 17:28:01 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jmp MENU.Draw
|
2020-10-23 17:23:19 +02:00
|
|
|
|
|
2022-10-25 08:05:54 +02:00
|
|
|
|
.8 clc
|
2020-10-06 17:23:40 +02:00
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2020-10-20 08:01:04 +02:00
|
|
|
|
SYSBUT.Leave bit WND.SYSBAR.bSysBut
|
2020-10-06 17:23:40 +02:00
|
|
|
|
bpl .8
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
stz WND.SYSBAR.bSysBut
|
2020-10-06 17:23:40 +02:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.GetBuf
|
2020-10-06 17:23:40 +02:00
|
|
|
|
bcs .9
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
jsr SYSBAR.ShowSysBut
|
2020-10-06 17:23:40 +02:00
|
|
|
|
|
|
|
|
|
>LDYA L.WND.SysBar
|
2022-10-20 08:07:40 +02:00
|
|
|
|
jmp CB.FlushBufToYA
|
2020-10-06 17:23:40 +02:00
|
|
|
|
|
|
|
|
|
.8 clc
|
2020-10-26 17:32:51 +01:00
|
|
|
|
.9 rts
|
2020-10-06 17:23:40 +02:00
|
|
|
|
*--------------------------------------
|
2022-10-18 07:56:59 +02:00
|
|
|
|
SYSBAR.Show jsr CB.GetBuf
|
2020-10-06 17:23:40 +02:00
|
|
|
|
bcs .9
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
jsr SYSBAR.ShowSysBut
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
jsr SYSBAR.ShowSysWNDs
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
jsr SYSBAR.ShowSysClk
|
2020-10-06 17:23:40 +02:00
|
|
|
|
|
|
|
|
|
>LDYA L.WND.SysBar
|
2022-10-20 08:07:40 +02:00
|
|
|
|
jmp CB.FlushBufToYA
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-06 17:23:40 +02:00
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2020-10-20 08:01:04 +02:00
|
|
|
|
SYSBAR.ShowSysBut
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda PREFS.SysBarColor
|
2020-10-20 08:01:04 +02:00
|
|
|
|
bit WND.SysBar.bSysBut
|
2020-10-06 17:23:40 +02:00
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
2022-11-02 07:54:30 +01:00
|
|
|
|
.1 jsr CB.FillRectMonoA
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
ldx #S.RECT-1
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
|
|
|
|
.2 lda RECT.SysBut,x
|
2020-10-20 08:01:04 +02:00
|
|
|
|
sta CB.Cache+S.CB.X1,x
|
|
|
|
|
dex
|
|
|
|
|
bpl .2
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jsr CB.Cache2CBBuf
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
lda #4
|
|
|
|
|
jsr CB.AddA2X1
|
2022-11-02 07:54:30 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
jsr CB.IncY1
|
2020-10-08 17:33:38 +02:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
ldx #BM.ID.APPLE
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jsr DRAW.xBM
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
lda #16+1
|
|
|
|
|
jsr CB.AddA2X1
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
jsr CB.IncY1
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-08 17:33:38 +02:00
|
|
|
|
>LDYA L.WND.SysBar.2osX
|
|
|
|
|
ldx hSYSFON
|
2022-11-02 07:54:30 +01:00
|
|
|
|
jmp DRAW.YAText
|
2020-10-06 17:23:40 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-20 08:01:04 +02:00
|
|
|
|
SYSBAR.ShowSysWNDs
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda PREFS.SysBarColor
|
|
|
|
|
jsr CB.FillRectMonoA
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2020-10-20 08:01:04 +02:00
|
|
|
|
ldx #S.RECT-1
|
2020-10-08 17:33:38 +02:00
|
|
|
|
|
2020-10-26 17:32:51 +01:00
|
|
|
|
.1 lda RECT.SysWNDs,x
|
2020-10-20 08:01:04 +02:00
|
|
|
|
sta CB.Cache+S.CB.X1,x
|
2020-10-08 17:33:38 +02:00
|
|
|
|
dex
|
2020-10-20 08:01:04 +02:00
|
|
|
|
bpl .1
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-10-18 07:56:59 +02:00
|
|
|
|
jmp CB.Cache2CBBuf
|
2020-10-08 17:33:38 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-20 08:01:04 +02:00
|
|
|
|
SYSBAR.ShowSysClk
|
2022-11-02 07:54:30 +01:00
|
|
|
|
lda PREFS.SysBarColor
|
|
|
|
|
jsr CB.FillRectMonoA
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
ldx #S.RECT
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
.1 lda RECT.SysClk-1,x
|
|
|
|
|
sta CB.Cache+S.CB.X1-1,x
|
2020-10-20 08:01:04 +02:00
|
|
|
|
dex
|
2022-12-07 08:02:29 +01:00
|
|
|
|
bne .1
|
2020-10-26 17:32:51 +01:00
|
|
|
|
|
2022-12-07 08:02:29 +01:00
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
jsr CB.AddA2X1
|
|
|
|
|
|
|
|
|
|
jsr CB.IncY1
|
|
|
|
|
|
|
|
|
|
>LDYA L.WND.SysBar.Clk
|
|
|
|
|
ldx hSYSFON
|
|
|
|
|
jmp DRAW.YAText
|
2020-10-08 17:33:38 +02:00
|
|
|
|
*--------------------------------------
|
2020-10-06 17:23:40 +02:00
|
|
|
|
MAN
|
|
|
|
|
SAVE usr/src/lib/libgui.s.sysbar
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
|
|
|
|
ASM
|