Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Compare commits

base: Apple-2-SW:bf27c7bee17d72be1ce6aa406d2f65b0632c44d2
Branches Tags
Apple-2-SW:master
Apple-2-SW:0.94
Apple-2-SW:bjb
Apple-2-SW:bobbi-cat-utils
Apple-2-SW:0.93
Apple-2-SW:0.9.1
Apple-2-SW:0.9
Apple-2-SW:0.8
...
compare: Apple-2-SW:fee113dff130e7096232022cb269ccdb3f47d0f5
Branches Tags
Apple-2-SW:master
Apple-2-SW:0.94
Apple-2-SW:bjb
Apple-2-SW:bobbi-cat-utils
Apple-2-SW:0.93
Apple-2-SW:0.9.1
Apple-2-SW:0.9
Apple-2-SW:0.8

3 Commits
bf27c7bee1 ... fee113dff1

Author SHA1 Message Date
burniouf fee113dff1 KERNEL: fix for PAKME 2024-01-01 13:27:43 +01:00
burniouf b531907ddd Merge branch 'master' of https://github.com/A2osX/A2osX 2024-01-01 12:25:31 +01:00
burniouf 9abd365415 LIBTUI: DLG fixes 2024-01-01 12:25:12 +01:00
6 changed files with 15 additions and 13 deletions
Show Stats Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

2
INC/LIBTUI.I.txt
View File

@ -84,7 +84,7 @@ S.OBJ.pVar .EQ 26
*--------------------------------------
S.OBJ.Childs .EQ 32
*
S.OBJ .EQ 48
S.OBJ .EQ 64
*--------------------------------------
S.SCRN .EQ S.OBJ
*--------------------------------------

6
LIB/LIBTUI.S.DLG.txt
View File

@ -24,17 +24,19 @@ DLG.New lda #S.OBJ.T.DLG
>SYSCALL2 GetMemPtr
>STYA ZPPtr2
ldy #S.OBJ.W
ldy #S.CTX.W
lda (ZPPtr2),y
sec
ldy #S.OBJ.W
sbc (ZPObjPtr),y
lsr
ldy #S.OBJ.X1
sta (ZPObjPtr),y
ldy #S.OBJ.H
ldy #S.CTX.H
lda (ZPPtr2),y
sec
ldy #S.OBJ.H
sbc (ZPObjPtr),y
lsr
ldy #S.OBJ.Y1

1
LIB/LIBTUI.S.OBJ.txt
View File

@ -182,7 +182,6 @@ OBJ.SetX2Y2 ldy #S.OBJ.X1
*--------------------------------------
OBJ.Exec >PUSHA hOBJ
jsr LIB.GetOBJ
jsr LIB.GetCTX
.1 jsr IO.GetC

5
LIB/LIBTUI.S.txt
View File

@ -297,10 +297,11 @@ LIB.GetCTX >LDYA ZPObjPtr
>STYA ZPCtxPtr
.1 lda (ZPCtxPtr)
* cmp #S.OBJ.T.SCRN
beq .8
cmp #S.OBJ.T.DLG+1
bcc .8
jsr .8
bra .1
.8 ldy #S.OBJ.hParent

14
SYS/KERNEL.S.txt
View File

@ -27,6 +27,13 @@ MAIN.ORG .EQ $1000
A2osX.Unpak >STYA ZPOutBufPtr
.INB usr/src/shared/x.unpak.s
PAKME.GP .DA GP
PAKME.MAIN .DA MAIN
PAKME.AUX .DA AUX
PAKME.D1 .DA D1
PAKME.D2 .DA D2
PAKME.E0 .DA E0
GP .DA #0
.DA GP.S
@ -134,13 +141,6 @@ DevMgr.FreeMem .EQ *
E0.S .EQ *-E0.B
PAKME.GP .DA GP
PAKME.MAIN .DA MAIN
PAKME.AUX .DA AUX
PAKME.D1 .DA D1
PAKME.D2 .DA D2
PAKME.E0 .DA E0
.AS "PAKME" TAG
.DA $2000 BIN ORG
.DA #6 Chunk Count