A2osX/DRV/DHGR.DRV.S.RECT.txt

65 lines
1.1 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
2017-11-14 16:57:34 +00:00
PREFIX /A2OSX.BUILD
2017-12-22 21:24:30 +00:00
AUTO 4,1
2017-11-14 16:57:34 +00:00
.LIST OFF
*--------------------------------------
* FILLRECT
* 1 : OP (XOR,SET,ORA)
2017-11-14 16:57:34 +00:00
* 2 : Mode
* 3 : Color
* 4 : SrcX1
* 6 : SrcY1
* 8 : SrcX2
* 10 : SrcY2
*--------------------------------------
2017-11-15 07:27:12 +00:00
FILLRECT jsr HLINE
2017-11-14 16:57:34 +00:00
2017-11-15 07:27:12 +00:00
ldy CB.Cache+S.CB.Y1
cpy CB.Cache+S.CB.Y2
beq .8
2017-11-15 07:27:12 +00:00
.2 iny
phy
jsr LBUF.DrawAtY
ply
2017-11-15 07:27:12 +00:00
cpy CB.Cache+S.CB.Y2
bne .2
2017-11-15 07:27:12 +00:00
2017-11-14 16:57:34 +00:00
.8 rts
*--------------------------------------
* 4 : SrcX1
* 6 : SrcY1
* 8 : SrcX2
* 10 : SrcY2
* 18 : S.CB.DstPtr = Size in Bytes to save this RECT
*--------------------------------------
GETRECTBUFSIZE >LDYA CB.Cache+S.CB.X1
jsr DIVMOD7YA
sta GBYTE
>LDYA CB.Cache+S.CB.X2
jsr DIVMOD7YA
inc COL2 + 1
sec
sbc GBYTE (COL2+1)-COL1
tax
>LDYA CB.Cache+S.CB.Y1
jsr YAMultX
phy
ldy #S.CB.DstPtr+1
sta (ZPCmdPtr),y
pla
dey
sta (ZPCmdPtr),y
rts
*--------------------------------------
2017-11-14 16:57:34 +00:00
MAN
SAVE /A2OSX.SRC/DRV/DHGR.DRV.S.BLT
LOAD /A2OSX.SRC/DRV/DHGR.DRV.S
ASM