Kernel 0.92

This commit is contained in:
Rémy GIBERT 2019-01-17 20:43:29 +00:00
parent 40805c6884
commit 94719d6e94
2 changed files with 6 additions and 3 deletions

View File

@ -6,6 +6,9 @@ K.VER .EQ $5C00 92.0
K.ENV.SIZE .EQ 512
K.PIPE.SIZE .EQ 256
*--------------------------------------
K.MEM.ALIGN .EQ 64
K.MEM.nALIGNm1 .EQ $C0
*--------------------------------------
K.IRQDEV.MAX .EQ 4
K.DEV.MAX .EQ 28
K.FLT.MAX .EQ 4

View File

@ -38,12 +38,12 @@ MEM.GetMem.YAX stx Mem.ReqFlags
sta ZPMemMgrSize+1
tya
bit #$0F 16 bytes aligned ?
bit #K.MEM.ALIGN-1 aligned ?
beq .10 yes, request it
and #$F0 align on 16 bytes
and #K.MEM.nALIGNm1 align on boundary
clc
adc #$10
adc #K.MEM.ALIGN
bcc .10
inc ZPMemMgrSize+1