Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-10-16 17:25:29 +02:00
parent 31157183f7
commit 11bfc18b6e
5 changed files with 58 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

7
INC/LIBGUI.I.txt
View File

@ -176,6 +176,13 @@ S.MITEM.TEXT .EQ 9 CSTR
* ...
*--------------------------------------
BM.ID.APPLE .EQ 2
BM.ID.CLOSE .EQ 4
BM.ID.MAX .EQ 6
BM.ID.MIN .EQ 8
BM.ID.LEFT .EQ 10
BM.ID.RIGHT .EQ 12
BM.ID.UP .EQ 14
BM.ID.DOWN .EQ 16
*--------------------------------------
S.BUT.F.DISABLED .EQ %10000000
*

28
LIB/LIBGUI.G.BM.txt
View File

@ -89,6 +89,34 @@ BM.Min.AND .HS FF0F
.HS 0F0F
.HS FF0F
*--------------------------------------
BM.Left
*--------------------------------------
BM.Right .DA #S.BM.F.BBP1
.DA #1 RowBytes
.DA 7 W
.DA 7 Y
.DA BM.Right.AND-BM.Right
.DA #%0000000
.DA #%0000100
.DA #%0001100
.DA #%0011100
.DA #%0001100
.DA #%0000100
.DA #%0000000
BM.Right.AND .DA #%1111001
.DA #%1110001
.DA #%1100001
.DA #%1000001
.DA #%1100001
.DA #%1110001
.DA #%1111001
*--------------------------------------
BM.Up
*--------------------------------------
BM.Down
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.g.bm
LOAD usr/src/lib/libgui.s

19
LIB/LIBGUI.S.MENU.txt
View File

@ -524,9 +524,24 @@ MENU.Show.Item ldy #S.MITEM.F
ldx hSYSFON
jsr DRAW.YATextAtDXDY
.3
.3 ldy #S.MITEM.F
lda (ZPPtr1),y
cmp #S.MITEM.F.SUBMENU
bne .8
clc
lda DX
sec
adc INE
sta DX
lda DX+1
adc IE+1
sta DX+1
ldx #BM.ID.RIGHT
>LDYA L.BMs,x
jsr DRAW.YABMAtDXDY
.8 clc
rts
*--------------------------------------
MENU.GetIcon ldy #S.MITEM.pICON+1

8
LIB/LIBGUI.S.txt
View File

@ -13,8 +13,8 @@ NEW
*--------------------------------------
WND.MAX .EQ 64
MENU.MAX .EQ 4
MENU.LMargin .EQ 3
MENU.RMargin .EQ 3
MENU.LMargin .EQ 7
MENU.RMargin .EQ 8
*--------------------------------------
.MA SWAP16
lda ]1
@ -159,6 +159,10 @@ L.BM.Apple .DA BM.Apple
L.BM.Close .DA BM.Close
L.BM.Max .DA BM.Max
L.BM.Min .DA BM.Min
L.BM.Left .DA BM.Left
L.BM.Right .DA BM.Right
L.BM.Up .DA BM.Up
L.BM.Down .DA BM.Down
*--------------------------------------
L.CUR.SaveBuf .DA CUR.SaveBuf
L.Cursors .DA CUR.Arrow