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

59 lines
1.1 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
2019-07-25 15:10:59 +00:00
AUTO 3,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
2020-06-09 13:40:21 +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 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
2018-12-19 07:12:58 +00:00
sta (ZPIOCTL),y
pla
dey
2018-12-19 07:12:58 +00:00
sta (ZPIOCTL),y
rts
*--------------------------------------
2017-11-14 16:57:34 +00:00
MAN
2020-06-09 13:40:21 +00:00
SAVE usr/src/drv/dhgr.drv.s.blt
LOAD usr/src/drv/dhgr.drv.s
2017-11-14 16:57:34 +00:00
ASM