SP1MakeRect16.asm
bitfixer_bitfixer/dg/z88dk/libsrc/sprites/software/sp1/spectrum/collision/SP1MakeRect16.asm

; SP1MakeRect16
; 05.2006 aralbrec, Sprite Pack v3.0
; sinclair spectrum version

XLIB SP1MakeRect16

; A straight conversion from struct_sp1_Rect
; to struct_r_Rect16
;
; enter : hl = struct sp1_Rect *
;         de = destination struct r_Rect16 *
; uses  : af, b, de, hl

.SP1MakeRect16

   ld b,(hl)
   inc hl
   ld a,(hl)
   inc hl
   ld (de),a
   inc de
   xor a
   ld (de),a
   inc de
   ld a,(hl)
   ld (de),a
   inc de
   xor a
   ld (de),a
   inc de
   ld a,b
   ld (de),a
   inc de
   xor a
   ld (de),a
   inc de
   ld a,(hl)
   ld (de),a
   inc de
   xor a
   ld (de),a
   ret
