mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-19 23:29:29 +00:00
KM.RAMWORKS:Fixed timing issues #3
This commit is contained in:
Rémy GIBERT
parent
de637e712b
commit
1de9550760
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -160,7 +160,8 @@ CS.INIT >LDYA L.LIBSTR
|
|||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
>SYSCALL SYS.PStrCpyA
|
>SYSCALL SYS.GetMemPtrA
|
||||||
|
>SYSCALL SYS.NewPStrYA
|
||||||
ldy #SRC.hFILENAME
|
ldy #SRC.hFILENAME
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
|
|||||||
@ -117,7 +117,8 @@ CS.INIT stz hFile
|
|||||||
|
|
||||||
ldy #S.PS.hARGS
|
ldy #S.PS.hARGS
|
||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
>SYSCALL SYS.PStrCpyA
|
>SYSCALL SYS.GetMemPtrA
|
||||||
|
>SYSCALL SYS.NewPStrYA
|
||||||
bra .2
|
bra .2
|
||||||
|
|
||||||
.1 ldy #S.PS.hARGS
|
.1 ldy #S.PS.hARGS
|
||||||
|
|||||||
@ -159,9 +159,8 @@ SYS.GetStockObjectA .EQ $0C
|
|||||||
SYS.FreeStockObject .EQ $0E
|
SYS.FreeStockObject .EQ $0E
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SYS.NewPStrYA .EQ $10
|
SYS.NewPStrYA .EQ $10
|
||||||
SYS.PStrCpyA .EQ $12
|
|
||||||
SYS.PStrCat .EQ $14
|
|
||||||
|
|
||||||
|
SYS.PStrCat .EQ $14
|
||||||
|
|
||||||
SYS.PStrGetTkn .EQ $18
|
SYS.PStrGetTkn .EQ $18
|
||||||
|
|
||||||
|
|||||||
@ -136,8 +136,8 @@ EXEC.CMD.EXT ldy #1
|
|||||||
|
|
||||||
lda hExecArgs
|
lda hExecArgs
|
||||||
beq .11
|
beq .11
|
||||||
|
>SYSCALL SYS.GetMemPtrA
|
||||||
>SYSCALL SYS.PStrCpyA
|
>SYSCALL SYS.NewPStrYA
|
||||||
bcs .9
|
bcs .9
|
||||||
.11 ldy #hInputArgs
|
.11 ldy #hInputArgs
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|||||||
@ -108,7 +108,8 @@ S.LoadBinA sta S.LoadBinA.hFilename save file path
|
|||||||
bcs .98 relocation error, dicard Code segment
|
bcs .98 relocation error, dicard Code segment
|
||||||
|
|
||||||
lda S.LoadBinA.hFilename get back bin path
|
lda S.LoadBinA.hFilename get back bin path
|
||||||
jsr S.PStrCpyA
|
jsr S.GetMemPtrA
|
||||||
|
jsr S.NewPStrYA
|
||||||
bcs .98
|
bcs .98
|
||||||
pha
|
pha
|
||||||
|
|
||||||
|
|||||||
@ -17,7 +17,7 @@ KERNEL.SYSCALL .DA S.GetMem $00
|
|||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DA S.NewPStrYA $10
|
.DA S.NewPStrYA $10
|
||||||
.DA S.PStrCpyA
|
.DA 0
|
||||||
.DA S.PStrCat
|
.DA S.PStrCat
|
||||||
.DA 0
|
.DA 0
|
||||||
.DA S.PStrGetTkn
|
.DA S.PStrGetTkn
|
||||||
|
|||||||
@ -5,19 +5,12 @@ INC 1
|
|||||||
AUTO 6
|
AUTO 6
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* S.PStrCpyA
|
|
||||||
* In:
|
|
||||||
* A = hMem of Src String
|
|
||||||
* Out:
|
|
||||||
* A = hMem of Dest String
|
|
||||||
*--------------------------------------
|
|
||||||
* S.NewPStrYA
|
* S.NewPStrYA
|
||||||
* IN:
|
* IN:
|
||||||
* PULLW = PTR to buffer
|
* PULLW = PTR to buffer
|
||||||
* OUT:
|
* OUT:
|
||||||
* A = hMem to S (PSTRING)
|
* A = hMem to S (PSTRING)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.PStrCpyA jsr S.GetMemPtrA
|
|
||||||
S.NewPStrYA >STYA ZPQuickPtr1
|
S.NewPStrYA >STYA ZPQuickPtr1
|
||||||
lda (ZPQuickPtr1)
|
lda (ZPQuickPtr1)
|
||||||
inc
|
inc
|
||||||
|
|||||||
@ -309,7 +309,7 @@ S.Sleep pla get PC LO
|
|||||||
* out :
|
* out :
|
||||||
* A = PSID
|
* A = PSID
|
||||||
* we cannot use ZPQuickPtrs
|
* we cannot use ZPQuickPtrs
|
||||||
* because of calling S.PStrCpyA & S.DupEnvA
|
* because of calling S.NewPStrYA & S.DupEnvA
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.CreateChildProcess
|
S.CreateChildProcess
|
||||||
>LDYAI TskMgr.Table+S.PS.SIZE
|
>LDYAI TskMgr.Table+S.PS.SIZE
|
||||||
@ -368,7 +368,8 @@ S.CreateChildProcess
|
|||||||
|
|
||||||
ldy #S.PS.hPREFIX copy hPREFIX...
|
ldy #S.PS.hPREFIX copy hPREFIX...
|
||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
jsr S.PStrCpyA
|
jsr S.GetMemPtrA
|
||||||
|
jsr S.NewPStrYA
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
ldy #S.PS.hPREFIX
|
ldy #S.PS.hPREFIX
|
||||||
|
|||||||
@ -90,8 +90,7 @@ RW.Detect2 php
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Added after David Finnigan from macgui.com testing sessions
|
* Added after David Finnigan from macgui.com testing sessions
|
||||||
*
|
*
|
||||||
pha
|
sta RWBankSelect+3
|
||||||
pla
|
|
||||||
*
|
*
|
||||||
* to address possibly a timing issue with Accelerators
|
* to address possibly a timing issue with Accelerators
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -107,6 +106,14 @@ RW.Detect2 php
|
|||||||
.3 txa
|
.3 txa
|
||||||
sta RWBankSelect
|
sta RWBankSelect
|
||||||
|
|
||||||
|
*--------------------------------------
|
||||||
|
* Added after David Finnigan from macgui.com testing sessions
|
||||||
|
*
|
||||||
|
sta RWBankSelect+3
|
||||||
|
*
|
||||||
|
* to address possibly a timing issue with Accelerators
|
||||||
|
*--------------------------------------
|
||||||
|
|
||||||
cmp 0
|
cmp 0
|
||||||
bne .4
|
bne .4
|
||||||
eor #$FF
|
eor #$FF
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user