DrawClippedSprite:  ;D=X E=Y A=spriteID. Allows negative numbers to an extent.
;screen dimensions are 64x64 pixels
 rrca
 rrca  ;%11000000 get
 ld c,a
 ld a,d
 and %00000111
 ld b,a  ;save for getting mask address
 add a,a
 add a,a
 add a,a ;x8 %00111000
 add a,c ;merge to get correct sprite position
 ld c,a  ;position saved
 ld a,b
 add a,8 ;getting spritemask position
 ld h,$40
 ld L,a
 ld b,(hl) ;B=spritemask
Getbfraddr:
 ld h,$00
 ld a,e
 sla ;x2
 sla ;x4
 ld l,a
 add hl,hl ; sets xpos on buffer into hl
 srl d
 srl d
 srl d ;*8
 ld a,e    ; used for alignment later on needs to be preserved here
 ld e,d
 ld d,0
 add hl,de
 ld de,$8000
 add hl,de ;leaves HL as the position on the buffer
Getspraddr:
 ld d,$87
 ld e,c
 push de
 pop ix    ;put sprite into ix
 ld e,b  ;put mask into e
Draw:
 and 7
 jp z,_aligned
_Dloop:
 ld a,(ix)  ;load a with ix
; or e       ;or with mask @@ we do not mask here not off side of screen
 ld c,(hl)  ;ld c with screen
 or c       ;or with screen
 ld (hl),c  ;draw to screen
 inc l      ;inc to next byte for alignment

_alinged:

 ld a,(ix)  ;load a with ix
 or e       ;or with mask
 ld c,(hl)  ;ld c with screen
 or c       ;or with screen
 ld (hl),c  ;draw to screen

 ld de,8    ;move to next row
 add hl,de
 ret c      ;ret if off screen
 djnz _dloop
 ret         ;done