Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-26 09:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : Saved few bytes in PS management

Browse Source
This commit is contained in:
Rémy GIBERT 2017-08-21 16:58:48 +02:00
parent d297b4ad66
commit 71a7ca455f
4 changed files with 15 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SYS/KERNEL.S.MEM.txt
View File

@ -350,7 +350,9 @@ K.FreeMemA phy
bit RRAMWRAMBNK2 bit RRAMWRAMBNK2
bit RRAMWRAMBNK2 bit RRAMWRAMBNK2
jsr PS.Select0 >LDYAI TskMgr.Table Delect PS0 for proper In/out devices
>STYA pPs
jsr DevMgr.SYS.Control jsr DevMgr.SYS.Control
pla Get PC and sub 2 for calling address pla Get PC and sub 2 for calling address

18
SYS/KERNEL.S.PS.txt
View File

@ -308,35 +308,19 @@ PS.FreeA.PsY lda (ZPPtr1),y
beq PS.FreeA.RTS beq PS.FreeA.RTS
jmp K.FreeMemA jmp K.FreeMemA
*-------------------------------------- *--------------------------------------
* PS.SelectA
* In : A=PSID
*--------------------------------------
PS.Select0 lda #0
PS.SelectA jsr K.GetPSByIDA
bcs *
>STYA pPs
PS.Select ldy #S.PS.hCS PS.Select ldy #S.PS.hCS
lda (pPs),y lda (pPs),y
beq .1 PS=0 (kernel) has no CS/DS
jsr K.GetMemPtrA jsr K.GetMemPtrA
>STYA pCode >STYA pCode
ldy #S.PS.hDS ldy #S.PS.hDS
lda (pPs),y lda (pPs),y
beq .1 beq .8
jsr K.GetMemPtrA jsr K.GetMemPtrA
>STYA pData >STYA pData
.1 ldy #S.PS.hStdOut
lda (pPs),y
beq .8
jsr K.GetDevByIDA
>STYA pDev
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------

3
SYS/KERNEL.S.RUN.txt
View File

@ -17,7 +17,8 @@ K.KernelRun jsr TSK.TskMgrRun
jsr TSK.DispatchEvents jsr TSK.DispatchEvents
bcc .4 CC=All Events Dispatched bcc .4 CC=All Events Dispatched
jsr PS.Select0 >LDYAI TskMgr.Table Select PS0
>STYA pPs
lda #EvtMgr.Table lda #EvtMgr.Table
sta pEvent sta pEvent

15
SYS/KERNEL.S.TSK.txt
View File

@ -40,7 +40,7 @@ TSK.TskMgrRun >LDYAI TskMgr.Table+S.PS skip PS 0
bit #S.PS.F.SLEEP Is this PS sleeping? bit #S.PS.F.SLEEP Is this PS sleeping?
beq .3 no, call TSKMGR.RUN beq .3 no, call TSKMGR.RUN
jsr TASK.PSWakeUp jsr TSK.PSWakeUp
bra .4 bra .4
.30 and #$FF^S.PS.F.INIT unmark as INIT .30 and #$FF^S.PS.F.INIT unmark as INIT
@ -60,12 +60,15 @@ TSK.TskMgrRun >LDYAI TskMgr.Table+S.PS skip PS 0
jsr K.GetPSByIDA will set ZPPtr1 if success jsr K.GetPSByIDA will set ZPPtr1 if success
bcs .5 parent is dead.....skipping... bcs .5 parent is dead.....skipping...
lda (ZPPtr1) Parent PS is HOLD? lda (ZPPtr1) Parent PS is HOLD?
and #S.PS.F.HOLD bit #S.PS.F.HOLD
beq .5 no... beq .5 no...
pla yes, probably waiting for this PS to terminate.... eor #S.PS.F.HOLD yes, release hold...
ldy #S.PS.RC sta (ZPPtr1)
pla ...probably waiting for this PS to terminate....
ldy #S.PS.RC give it RC
sta (ZPPtr1),y sta (ZPPtr1),y
.HS B0 BCS .HS B0 BCS
@ -89,7 +92,7 @@ TSK.TskMgrRun >LDYAI TskMgr.Table+S.PS skip PS 0
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
TASK.PSWakeUp and #$FF^S.PS.F.SLEEP unmark as SLEEP TSK.PSWakeUp and #$FF^S.PS.F.SLEEP unmark as SLEEP
sta (pPS) sta (pPS)
ldy #S.PS.PC ldy #S.PS.PC