mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 16:31:07 +00:00
64 lines
1.1 KiB
Plaintext
64 lines
1.1 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
* FILLRECT
|
||
* 1 : OP (XOR,SET,ORA)
|
||
* 2 : Mode
|
||
* 3 : Color
|
||
* 4 : SrcX1
|
||
* 6 : SrcY1
|
||
* 8 : SrcX2
|
||
* 10 : SrcY2
|
||
*--------------------------------------
|
||
FILLRECT jsr HLINE
|
||
|
||
ldy CB.Cache+S.CB.Y1
|
||
cpy CB.Cache+S.CB.Y2
|
||
beq .8
|
||
|
||
.2 iny
|
||
phy
|
||
jsr LBUF.DrawAtY
|
||
ply
|
||
cpy CB.Cache+S.CB.Y2
|
||
bne .2
|
||
|
||
.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 ZPTmpByte
|
||
|
||
>LDYA CB.Cache+S.CB.X2
|
||
jsr DIVMOD7YA
|
||
|
||
inc COL2 + 1
|
||
sec
|
||
sbc ZPTmpByte (COL2+1)-COL1
|
||
tax
|
||
|
||
>LDYA CB.Cache+S.CB.Y1
|
||
jsr YAMultX
|
||
|
||
phy
|
||
|
||
ldy #S.CB.DstPtr+1
|
||
sta (ZPIOCTL),y
|
||
pla
|
||
dey
|
||
sta (ZPIOCTL),y
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/DRV/DHGR.DRV.S.BLT
|
||
LOAD USR/SRC/DRV/DHGR.DRV.S
|
||
ASM
|