diff --git a/SYS/KERNEL.S.INIT.txt b/SYS/KERNEL.S.INIT.txt index d1e27511..95637c81 100644 --- a/SYS/KERNEL.S.INIT.txt +++ b/SYS/KERNEL.S.INIT.txt @@ -460,6 +460,10 @@ CPU.Init.6502 >PUSHWI MSG.CPU php sei + lda A2osX.HZ if 50hz -> 6 loops + eor #3 if 60hz -> 5 loops + pha + clc lda MACHID and #MACHID.T @@ -478,23 +482,26 @@ CPU.Init.6502 >PUSHWI MSG.CPU sta IO.IIC.ENVBL lda IO.IIC.CLRVBLIRQ + ldx #2 + .11 bit VBL bpl .11 + dex + bit ZPPtr1 //c ? bpl .2 lda IO.IIC.CLRVBLIRQ yes, clear IRQ - lda #0 - bra .21 + + lda #0 A = LOW + bra .22 .2 lda VBL bmi .2 - -.21 ldx #2 A = LOW - ldy A2osX.HZ *-------------------------------------- -.20 tya +.20 ply + phy .22 nop (2) nop (2) @@ -539,7 +546,7 @@ CPU.Init.6502 >PUSHWI MSG.CPU nop (2) 3+2+2+2+2 if from BNE -.6 dec +.6 dey bne .22 eor VBL (4) @@ -551,15 +558,17 @@ CPU.Init.6502 >PUSHWI MSG.CPU .3 dex bne .20 bra .60 -*-------------------------------------- + .31 lda IO.IIC.CLRVBLIRQ yes, clear IRQ bit ZPPtr1+1 Disable VBLIRQ ? bpl .60 sta IO.IIC.DISVBL +*-------------------------------------- +.60 ply -.60 stz A2osX.CPUSPEED + stz A2osX.CPUSPEED .7 sec lda A2osX.RANDOM16