A2osX/LIB/LIBGUI.S.SYSBAR.txt

136 lines
2.1 KiB
Plaintext
Raw Normal View History

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