mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-14 04:29:02 +00:00
37 lines
600 B
Plaintext
37 lines
600 B
Plaintext
|
PR#3
|
|||
|
|
PREFIX /A2OSX.BUILD
|
|||
|
|
LOMEM $A00
|
|||
|
|
INC 1
|
|||
|
|
AUTO 6
|
|||
|
|
.LIST OFF
|
|||
|
|
*--------------------------------------
|
|||
|
|
* BitBlt
|
|||
|
|
* In : YA = Ptr to CtrlBlk :
|
|||
|
|
* 1 : OP
|
|||
|
|
* 4 : SrcX1
|
|||
|
|
* 6 : SrcY1
|
|||
|
|
* 8 : SrcX2
|
|||
|
|
* 10 : SrcY2
|
|||
|
|
* 12 : DestX
|
|||
|
|
* 14 : DestY
|
|||
|
|
* 16 : SrcPtr
|
|||
|
|
* 18 : DstPtr
|
|||
|
|
*--------------------------------------
|
|||
|
|
BITBLT >STYA ZPBase
|
|||
|
|
ldy #S.CB.DstPtr+1
|
|||
|
|
|
|||
|
|
.1 lda (ZPBase),y
|
|||
|
|
sta CB.Cache,y
|
|||
|
|
dey
|
|||
|
|
bpl .1
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE /A2OSX.SRC/DRV/DHGR.DRV.S.BLT
|
|||
|
|
LOAD /A2OSX.SRC/DRV/DHGR.DRV.S
|
|||
|
|
ASM
|