mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
KM.RAMWORKS:Fixed timing issues #2
This commit is contained in:
Rémy GIBERT
parent
ecafe9c881
commit
c4c7d406d5
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -157,11 +157,7 @@ DRV.CS.START .DA OPEN
|
|||||||
.DA SHOWCUR
|
.DA SHOWCUR
|
||||||
L.DEVINFO .DA DEVINFO
|
L.DEVINFO .DA DEVINFO
|
||||||
L.DIV7.0 .DA DIV7.0
|
L.DIV7.0 .DA DIV7.0
|
||||||
L.DIV7.256 .DA DIV7.256
|
|
||||||
L.DIV7.512 .DA DIV7.512
|
|
||||||
L.MOD7.0 .DA MOD7.0
|
L.MOD7.0 .DA MOD7.0
|
||||||
L.MOD7.256 .DA MOD7.256
|
|
||||||
L.MOD7.512 .DA MOD7.512
|
|
||||||
L.Shift0.Lo .DA Shift0.lo
|
L.Shift0.Lo .DA Shift0.lo
|
||||||
L.Shift0.Hi .DA Shift0.hi
|
L.Shift0.Hi .DA Shift0.hi
|
||||||
.DA 0 end or relocation
|
.DA 0 end or relocation
|
||||||
@ -176,16 +172,16 @@ OPEN ldy #S.DEV.ID
|
|||||||
|
|
||||||
lda L.DIV7.0+1
|
lda L.DIV7.0+1
|
||||||
sta DIV7.hi
|
sta DIV7.hi
|
||||||
lda L.DIV7.256+1
|
inc
|
||||||
sta DIV7.hi+1
|
sta DIV7.hi+1
|
||||||
lda L.DIV7.512+1
|
inc
|
||||||
sta DIV7.hi+2
|
sta DIV7.hi+2
|
||||||
|
|
||||||
lda L.MOD7.0+1
|
lda L.MOD7.0+1
|
||||||
sta MOD7.hi
|
sta MOD7.hi
|
||||||
lda L.MOD7.256+1
|
inc
|
||||||
sta MOD7.hi+1
|
sta MOD7.hi+1
|
||||||
lda L.MOD7.512+1
|
inc
|
||||||
sta MOD7.hi+2
|
sta MOD7.hi+2
|
||||||
|
|
||||||
ldx #7
|
ldx #7
|
||||||
@ -276,13 +272,11 @@ SETPIXEL.XOR >PULLAX A=X.LO,X=X.HI
|
|||||||
lsr A=Col, CS=MMem, CC=XMem
|
lsr A=Col, CS=MMem, CC=XMem
|
||||||
pha Save Col
|
pha Save Col
|
||||||
|
|
||||||
|
|
||||||
lda #CLRPAGE2>1
|
lda #CLRPAGE2>1
|
||||||
asl
|
asl
|
||||||
sta .3+1
|
sta .3+1
|
||||||
.3 sta CLRPAGE2
|
.3 sta CLRPAGE2
|
||||||
|
|
||||||
|
|
||||||
>PULLA Pull Y
|
>PULLA Pull Y
|
||||||
tax
|
tax
|
||||||
lda BASEL,x setup line Base Ptr
|
lda BASEL,x setup line Base Ptr
|
||||||
@ -302,52 +296,50 @@ SETPIXEL.XOR >PULLAX A=X.LO,X=X.HI
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SETPIXEL.1 lsr
|
SETPIXEL.1 lsr
|
||||||
bcc SETPIXEL.COLOR
|
bcc SETPIXEL.COLOR
|
||||||
>PULLW CX
|
|
||||||
>PULLB CY
|
|
||||||
|
|
||||||
ldy CX
|
>PULLAX A=X.LO,X=X.HI
|
||||||
lsr CX+1 if 256 =< x < 511
|
tay
|
||||||
bcs .1
|
|
||||||
lsr CX+1
|
|
||||||
bcs .2 if 512 < x
|
|
||||||
lda DIV7.0,y
|
|
||||||
ldx MOD7.0,y
|
|
||||||
bra .3
|
|
||||||
|
|
||||||
.1 lda DIV7.256,y
|
lda DIV7.hi,x
|
||||||
ldx MOD7.256,y
|
sta .1+2
|
||||||
bra .3
|
lda MOD7.hi,x
|
||||||
|
sta .2+2
|
||||||
|
|
||||||
.2 lda DIV7.512,y
|
.1 lda DIV7.0,y A=Colx2
|
||||||
ldx MOD7.512,y
|
eor #1
|
||||||
|
|
||||||
.3 lsr
|
lsr A=Col, CS=MMem, CC=XMem
|
||||||
bcc .4 odd=main ram
|
pha Save Col
|
||||||
sta CLRPAGE2
|
|
||||||
clc
|
|
||||||
bra .41
|
|
||||||
.4 sta SETPAGE2
|
|
||||||
|
|
||||||
.41 ldy CY
|
lda #CLRPAGE2>1
|
||||||
adc BASEL,y setup line Base Ptr
|
asl
|
||||||
|
sta .3+1
|
||||||
|
.3 sta CLRPAGE2
|
||||||
|
|
||||||
|
>PULLA Pull Y
|
||||||
|
tax
|
||||||
|
lda BASEL,x setup line Base Ptr
|
||||||
sta ZPBase
|
sta ZPBase
|
||||||
lda BASEH,y
|
lda BASEH,x
|
||||||
sta ZPBase+1
|
sta ZPBase+1
|
||||||
|
|
||||||
|
.2 ldx MOD7.0,y Y=X.LO
|
||||||
|
|
||||||
|
ply get back Col
|
||||||
|
|
||||||
>PULLA Pull Color
|
>PULLA Pull Color
|
||||||
lsr
|
lsr
|
||||||
|
lda (ZPBase),y
|
||||||
bcs .6 set white pixel
|
bcs .6 set white pixel
|
||||||
|
|
||||||
lda (ZPBase)
|
|
||||||
and Mono.NMasks,x includes And $7F for mono
|
and Mono.NMasks,x includes And $7F for mono
|
||||||
sta (ZPBase)
|
sta (ZPBase),y
|
||||||
sta CLR80STORE
|
sta CLR80STORE
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.6 lda (ZPBase)
|
.6 and #$7F switch back this byte to mono
|
||||||
and #$7F switch back this byte to mono
|
|
||||||
ora Mono.Masks,x
|
ora Mono.Masks,x
|
||||||
sta (ZPBase)
|
sta (ZPBase),y
|
||||||
sta CLR80STORE
|
sta CLR80STORE
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -675,9 +667,10 @@ DEVINFO .DA #S.DEVINFO.TYPE.GFX type of DEVINFO STRUCT
|
|||||||
DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
||||||
DEVINFO.W .DA 560 X.SIZE
|
DEVINFO.W .DA 560 X.SIZE
|
||||||
DEVINFO.H .DA 192 Y.SIZE
|
DEVINFO.H .DA 192 Y.SIZE
|
||||||
*--------------------------------------
|
|
||||||
.LIST ON
|
.LIST ON
|
||||||
|
*--------------------------------------
|
||||||
DRV.SIZE .EQ *-DRV.CS.START
|
DRV.SIZE .EQ *-DRV.CS.START
|
||||||
|
*--------------------------------------
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
MAN
|
MAN
|
||||||
SAVE DRV/DHGR.DRV.S
|
SAVE DRV/DHGR.DRV.S
|
||||||
|
|||||||
@ -77,8 +77,6 @@ RW.Detect2 php
|
|||||||
|
|
||||||
ldx #0 start detection at page $00
|
ldx #0 start detection at page $00
|
||||||
.1 stx RWBankSelect
|
.1 stx RWBankSelect
|
||||||
pha
|
|
||||||
pla
|
|
||||||
lda 0
|
lda 0
|
||||||
sta RW.SAVEZP0,x save Bank 0 $0000 to prevent ALTZP trash
|
sta RW.SAVEZP0,x save Bank 0 $0000 to prevent ALTZP trash
|
||||||
lda 1
|
lda 1
|
||||||
@ -109,9 +107,6 @@ RW.Detect2 php
|
|||||||
.3 txa
|
.3 txa
|
||||||
sta RWBankSelect
|
sta RWBankSelect
|
||||||
|
|
||||||
pha
|
|
||||||
pla
|
|
||||||
|
|
||||||
cmp 0
|
cmp 0
|
||||||
bne .4
|
bne .4
|
||||||
eor #$FF
|
eor #$FF
|
||||||
@ -125,9 +120,6 @@ RW.Detect2 php
|
|||||||
|
|
||||||
.6 sty RWBankSelect
|
.6 sty RWBankSelect
|
||||||
|
|
||||||
pha
|
|
||||||
pla
|
|
||||||
|
|
||||||
lda RW.SAVEZP0,y
|
lda RW.SAVEZP0,y
|
||||||
sta 0
|
sta 0
|
||||||
lda RW.SAVEZP1,y
|
lda RW.SAVEZP1,y
|
||||||
@ -137,9 +129,6 @@ RW.Detect2 php
|
|||||||
|
|
||||||
stz RWBankSelect
|
stz RWBankSelect
|
||||||
|
|
||||||
pha
|
|
||||||
pla
|
|
||||||
|
|
||||||
lda RW.SAVEZP0 Don't forget to restore Bank 0
|
lda RW.SAVEZP0 Don't forget to restore Bank 0
|
||||||
sta 0
|
sta 0
|
||||||
lda RW.SAVEZP1
|
lda RW.SAVEZP1
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user