Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-19 07:30:41 +00:00
Code Issues Projects Releases Wiki Activity

bug fix

Browse Source
This commit is contained in:
Rémy GIBERT 2015-03-23 18:09:21 +01:00
parent 2192ead073
commit 593f20becd
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
DRV/DHGR.DRV.S.txt
View File

@ -243,12 +243,13 @@ SETPIXEL.COLOR tya
lda Color.Masks,x lda Color.Masks,x
beq .1 beq .1
and Color.Pixels,y apply color
sta GBYTE
sta SETPAGE2 sta SETPAGE2
lda (ZPBASE) lda (ZPBASE)
and Color.NMasks,x reset existing pixel, and Color.NMasks,x reset existing pixel,
ora Color.Pixels,y apply color ora GBYTE
and Color.Enable,x filter 4 color bits color.enable bit
sta (ZPBASE) sta (ZPBASE)
.1 inx .1 inx
@ -256,12 +257,13 @@ SETPIXEL.COLOR tya
lda Color.Masks,x lda Color.Masks,x
beq .2 beq .2
and Color.Pixels,y apply color
sta GBYTE
sta CLRPAGE2 sta CLRPAGE2
lda (ZPBASE) lda (ZPBASE)
and Color.NMasks,x reset existing pixel, and Color.NMasks,x reset existing pixel,
ora Color.Pixels,y apply color ora GBYTE
and Color.Enable,x filter 4 color bits color.enable bit
sta (ZPBASE) sta (ZPBASE)
.2 inc ZPBASE .2 inc ZPBASE
@ -270,12 +272,13 @@ SETPIXEL.COLOR tya
lda Color.Masks,x lda Color.Masks,x
beq .3 beq .3
and Color.Pixels,y apply color
sta GBYTE
sta SETPAGE2 sta SETPAGE2
lda (ZPBASE) lda (ZPBASE)
and Color.NMasks,x reset existing pixel, and Color.NMasks,x reset existing pixel,
ora Color.Pixels,y apply color ora GBYTE
and Color.Enable,x filter 4 color bits color.enable bit
sta (ZPBASE) sta (ZPBASE)
.3 inx .3 inx
@ -283,13 +286,15 @@ SETPIXEL.COLOR tya
lda Color.Masks,x lda Color.Masks,x
beq .8 beq .8
and Color.Pixels,y apply color
sta GBYTE
sta CLRPAGE2 sta CLRPAGE2
lda (ZPBASE) lda (ZPBASE)
and Color.NMasks,x reset existing pixel, and Color.NMasks,x reset existing pixel,
ora Color.Pixels,y apply color ora GBYTE
and Color.Enable,x filter 4 color bits color.enable bit
sta (ZPBASE) sta (ZPBASE)
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
GETPIXEL GETPIXEL
@ -471,7 +476,7 @@ Color.NMasks .DA #%01110000,#%00000000,#%00000000,#%00000000
* bits to "and" to Get color of pixel (0 means nothing to do) * bits to "and" to Get color of pixel (0 means nothing to do)
* 4 bytes * 7 mods * 4 bytes * 7 mods
*-------------------------------------- *--------------------------------------
Color.Masks .DA #%00001111,#%00000000,#%00000000,#%00000000 (nothing to do) Color.Masks.DEL .DA #%00001111,#%00000000,#%00000000,#%00000000 (nothing to do)
.DA #%01110000,#%00000001,#%00000000,#%00000000 asl0,asl0,rol1,asl0,rol1,asl0,rol1 .DA #%01110000,#%00000001,#%00000000,#%00000000 asl0,asl0,rol1,asl0,rol1,asl0,rol1
.DA #%00000000,#%00011110,#%00000000,#%00000000 lsr1 .DA #%00000000,#%00011110,#%00000000,#%00000000 lsr1
.DA #%00000000,#%01100000,#%00000011,#%00000000 asl1,asl1,rol2,asl1,rol2 .DA #%00000000,#%01100000,#%00000011,#%00000000 asl1,asl1,rol2,asl1,rol2
@ -479,7 +484,7 @@ Color.Masks .DA #%00001111,#%00000000,#%00000000,#%00000000 (nothing to do)
.DA #%00000000,#%00000000,#%01000000,#%00000111 asl2,asl2,rol3 .DA #%00000000,#%00000000,#%01000000,#%00000111 asl2,asl2,rol3
.DA #%00000000,#%00000000,#%00000000,#%01111000 lsr3,lsr3,lsr3 .DA #%00000000,#%00000000,#%00000000,#%01111000 lsr3,lsr3,lsr3
*-------------------------------------- *--------------------------------------
Color.Enable .DA #%10001111,#%00000000,#%00000000,#%00000000 Color.Masks .DA #%10001111,#%00000000,#%00000000,#%00000000
.DA #%11110000,#%00000001,#%00000000,#%00000000 .DA #%11110000,#%00000001,#%00000000,#%00000000
.DA #%00000000,#%10011110,#%00000000,#%00000000 .DA #%00000000,#%10011110,#%00000000,#%00000000
.DA #%00000000,#%11100000,#%00000011,#%00000000 .DA #%00000000,#%11100000,#%00000011,#%00000000
@ -526,6 +531,7 @@ Color.Pixels .DA #%00000000,#%00000000,#%00000000,#%00000000 (color bit disable)
*White 7F 7F 7F 7F 1111 *White 7F 7F 7F 7F 1111
*-------------------------------------- *--------------------------------------
DEVNAME >PSTRING "GFX" DEVNAME >PSTRING "GFX"
GBYTE .BS 1
*-------------------------------------- *--------------------------------------
DS.START DS.START
DEVINFO .DA #S.DEV.F.GFX type of DEVINFO STRUCT DEVINFO .DA #S.DEV.F.GFX type of DEVINFO STRUCT