mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-10 21:29:37 +00:00
DHGR: save some bytes
This commit is contained in:
Peter Ferrie
parent
d9042edb77
commit
ca977e6ea8
|
|
@ -125,27 +125,6 @@ Color.Pixels .DA #%00000000,#%00000000,#%00000000,#%00000000 black (color bit di
|
||||||
.DA #%11101110,#%11011101,#%10111011,#%11110111 yellow
|
.DA #%11101110,#%11011101,#%10111011,#%11110111 yellow
|
||||||
.DA #%01111111,#%01111111,#%01111111,#%01111111 white (color bit disabled)
|
.DA #%01111111,#%01111111,#%01111111,#%01111111 white (color bit disabled)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
COL.BANK .DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
.DA #SETPAGE2,#CLRPAGE2,#SETPAGE2,#CLRPAGE2
|
|
||||||
*--------------------------------------
|
|
||||||
DIV7.0 .HS 00
|
DIV7.0 .HS 00
|
||||||
DIV7.512 .HS 000000
|
DIV7.512 .HS 000000
|
||||||
DIV7.256 .HS 000000
|
DIV7.256 .HS 000000
|
||||||
|
|
|
||||||
|
|
@ -22,12 +22,10 @@ BITBLT >LDYA CB.Cache+S.CB.X1
|
||||||
tay
|
tay
|
||||||
lda CB.Cache+S.CB.X1+1
|
lda CB.Cache+S.CB.X1+1
|
||||||
adc CB.Cache+S.CB.SrcW+1
|
adc CB.Cache+S.CB.SrcW+1
|
||||||
pha
|
cpy #1
|
||||||
tya
|
bcs .0
|
||||||
sbc #0
|
dec
|
||||||
tay
|
.0 dey
|
||||||
pla
|
|
||||||
sbc #0
|
|
||||||
|
|
||||||
jsr LBUF.SetBounds2YA
|
jsr LBUF.SetBounds2YA
|
||||||
|
|
||||||
|
|
@ -60,8 +58,10 @@ BITBLT >LDYA CB.Cache+S.CB.X1
|
||||||
|
|
||||||
ldx LBUF.C1
|
ldx LBUF.C1
|
||||||
|
|
||||||
.3 ldy COL.BANK,x
|
.3 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -110,8 +110,10 @@ BITBLT.0 bit #S.CB.OP.SAVE
|
||||||
|
|
||||||
ldx LBUF.C1
|
ldx LBUF.C1
|
||||||
|
|
||||||
.3 ldy COL.BANK,x
|
.3 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -156,17 +158,15 @@ BITBLT.2 ldy #S.BM-1
|
||||||
dey
|
dey
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
ldx #0
|
|
||||||
|
|
||||||
lda BM.Cache+S.BM.F
|
lda BM.Cache+S.BM.F
|
||||||
cmp #S.BM.F.BBP1
|
eor #S.BM.F.BBP1
|
||||||
beq .11
|
cmp #1
|
||||||
|
lda #0
|
||||||
|
ror
|
||||||
|
|
||||||
ldx #$80
|
sta BLT.CMASK
|
||||||
|
|
||||||
.11 stx BLT.CMASK
|
|
||||||
lda ZPBMDataPtr
|
lda ZPBMDataPtr
|
||||||
clc
|
* clc
|
||||||
adc BM.Cache+S.BM.MASK.OFS
|
adc BM.Cache+S.BM.MASK.OFS
|
||||||
sta ZPBMMaskPtr
|
sta ZPBMMaskPtr
|
||||||
lda ZPBMDataPtr+1
|
lda ZPBMDataPtr+1
|
||||||
|
|
@ -174,7 +174,7 @@ BITBLT.2 ldy #S.BM-1
|
||||||
sta ZPBMMaskPtr+1
|
sta ZPBMMaskPtr+1
|
||||||
|
|
||||||
lda ZPBMDataPtr
|
lda ZPBMDataPtr
|
||||||
clc
|
* clc
|
||||||
adc #S.BM
|
adc #S.BM
|
||||||
sta ZPBMDataPtr
|
sta ZPBMDataPtr
|
||||||
bcc .2
|
bcc .2
|
||||||
|
|
|
||||||
|
|
@ -45,8 +45,10 @@ LBUF.DrawAtY.SET
|
||||||
LBUF.DrawAtY.AND.SET
|
LBUF.DrawAtY.AND.SET
|
||||||
ldx LBUF.C1 x C1->C2
|
ldx LBUF.C1 x C1->C2
|
||||||
|
|
||||||
ldy COL.BANK,x
|
txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -66,8 +68,10 @@ LBUF.DrawAtY.AND.SET
|
||||||
|
|
||||||
bcs .8 C1+1 > C2, we are done...
|
bcs .8 C1+1 > C2, we are done...
|
||||||
|
|
||||||
.1 ldy COL.BANK,x
|
.1 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -79,8 +83,10 @@ LBUF.DrawAtY.AND.SET
|
||||||
cpx LBUF.C2
|
cpx LBUF.C2
|
||||||
bcc .1
|
bcc .1
|
||||||
|
|
||||||
.2 ldy COL.BANK,x
|
.2 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -110,8 +116,10 @@ LBUF.DrawAtY.XXX
|
||||||
|
|
||||||
ldx LBUF.C1 x C1->C2
|
ldx LBUF.C1 x C1->C2
|
||||||
|
|
||||||
ldy COL.BANK,x
|
txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -131,8 +139,10 @@ LBUF.DrawAtY.XXX
|
||||||
|
|
||||||
bcs .8 C1+1 > C2, we are done...
|
bcs .8 C1+1 > C2, we are done...
|
||||||
|
|
||||||
.1 ldy COL.BANK,x
|
.1 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -145,8 +155,10 @@ LBUF.DrawAtY.XXX
|
||||||
cpx LBUF.C2
|
cpx LBUF.C2
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.2 ldy COL.BANK,x
|
.2 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -166,8 +178,10 @@ LBUF.DrawAtY.XXX
|
||||||
LBUF.DrawAtY.AND.ORA
|
LBUF.DrawAtY.AND.ORA
|
||||||
ldx LBUF.C1 x C1->C2
|
ldx LBUF.C1 x C1->C2
|
||||||
|
|
||||||
ldy COL.BANK,x
|
txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -198,8 +212,10 @@ LBUF.DrawAtY.AND.ORA
|
||||||
|
|
||||||
bra .3
|
bra .3
|
||||||
|
|
||||||
.2 ldy COL.BANK,x
|
.2 txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
@ -214,8 +230,10 @@ LBUF.DrawAtY.AND.ORA
|
||||||
cpx LBUF.C2
|
cpx LBUF.C2
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
ldy COL.BANK,x
|
txa
|
||||||
sta $C000,y
|
and #1
|
||||||
|
tay
|
||||||
|
sta CLRPAGE2,y
|
||||||
txa
|
txa
|
||||||
lsr
|
lsr
|
||||||
tay
|
tay
|
||||||
|
|
|
||||||
|
|
@ -74,13 +74,13 @@ VLINE lda CB.Cache+S.CB.M
|
||||||
VLINE.MONO >LDYA CB.Cache+S.CB.X1
|
VLINE.MONO >LDYA CB.Cache+S.CB.X1
|
||||||
|
|
||||||
jsr DIVMOD7YA X = MOD 7
|
jsr DIVMOD7YA X = MOD 7
|
||||||
tay
|
|
||||||
lsr
|
lsr
|
||||||
sta ZPTmpByte Save COL (DIV)
|
sta ZPTmpByte Save COL (DIV)
|
||||||
|
|
||||||
lda COL.BANK,y
|
lda #0
|
||||||
|
rol
|
||||||
tay
|
tay
|
||||||
sta $C000,y Select proper BANK
|
sta CLRPAGE2,y Select proper BANK
|
||||||
ldy CB.Cache+S.CB.Y1
|
ldy CB.Cache+S.CB.Y1
|
||||||
clc
|
clc
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -15,19 +15,19 @@ SETPIXEL lda CB.Cache+S.CB.M
|
||||||
SETPIXEL.MONO >LDYA CB.Cache+S.CB.X1
|
SETPIXEL.MONO >LDYA CB.Cache+S.CB.X1
|
||||||
|
|
||||||
jsr DIVMOD7YA
|
jsr DIVMOD7YA
|
||||||
tay
|
|
||||||
lsr
|
lsr
|
||||||
phy
|
php
|
||||||
ldy CB.Cache+S.CB.Y1
|
ldy CB.Cache+S.CB.Y1
|
||||||
clc
|
clc
|
||||||
adc BASEL,y
|
adc BASEL,y
|
||||||
sta ZPBasePtr
|
sta ZPBasePtr
|
||||||
lda BASEH,y
|
lda BASEH,y
|
||||||
sta ZPBasePtr+1
|
sta ZPBasePtr+1
|
||||||
ply
|
plp
|
||||||
lda COL.BANK,y
|
lda #0
|
||||||
|
rol
|
||||||
tay
|
tay
|
||||||
sta $C000,y Select proper BANK
|
sta CLRPAGE2,y Select proper BANK
|
||||||
lda CB.Cache+S.CB.OP
|
lda CB.Cache+S.CB.OP
|
||||||
* cmp #S.CB.OP.XOR
|
* cmp #S.CB.OP.XOR
|
||||||
beq SETPIXEL.MONO.XOR
|
beq SETPIXEL.MONO.XOR
|
||||||
|
|
|
||||||
|
|
@ -143,7 +143,7 @@ DrvReloc lda FD.DEV+S.FD.DEV.DRVPTR
|
||||||
adc /Shift.L.HI+1
|
adc /Shift.L.HI+1
|
||||||
sta ZPPtr3+1
|
sta ZPPtr3+1
|
||||||
|
|
||||||
ldy #0
|
ldy #5
|
||||||
|
|
||||||
.1 lda (ZPPtr2),y
|
.1 lda (ZPPtr2),y
|
||||||
clc
|
clc
|
||||||
|
|
@ -154,9 +154,8 @@ DrvReloc lda FD.DEV+S.FD.DEV.DRVPTR
|
||||||
adc ZPPtr1+1
|
adc ZPPtr1+1
|
||||||
sta (ZPPtr3),y
|
sta (ZPPtr3),y
|
||||||
|
|
||||||
iny
|
dey
|
||||||
cpy #6
|
bpl .1
|
||||||
bne .1
|
|
||||||
|
|
||||||
lda ZPPtr1
|
lda ZPPtr1
|
||||||
clc
|
clc
|
||||||
|
|
@ -176,7 +175,7 @@ DrvReloc lda FD.DEV+S.FD.DEV.DRVPTR
|
||||||
adc /Shift.R.HI+1
|
adc /Shift.R.HI+1
|
||||||
sta ZPPtr3+1
|
sta ZPPtr3+1
|
||||||
|
|
||||||
ldy #0
|
ldy #5
|
||||||
|
|
||||||
.2 lda (ZPPtr2),y
|
.2 lda (ZPPtr2),y
|
||||||
clc
|
clc
|
||||||
|
|
@ -187,9 +186,8 @@ DrvReloc lda FD.DEV+S.FD.DEV.DRVPTR
|
||||||
adc ZPPtr1+1
|
adc ZPPtr1+1
|
||||||
sta (ZPPtr3),y
|
sta (ZPPtr3),y
|
||||||
|
|
||||||
iny
|
dey
|
||||||
cpy #6
|
bpl .2
|
||||||
bne .2
|
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user