1
2; SP1MakeRect8
3; 05.2006 aralbrec, Sprite Pack v3.0
4; sinclair spectrum version
5
6PUBLIC SP1MakeRect8
7
8; A straight conversion from struct_sp1_Rect
9; to struct_r_Rect8
10;
11; enter : hl = struct sp1_Rect *
12;         de = destination struct r_Rect8 *
13; uses  : a, b, de, hl
14
15.SP1MakeRect8
16
17   ld b,(hl)
18   inc hl
19   ld a,(hl)
20   inc hl
21   ld (de),a
22   inc de
23   ld a,(hl)
24   inc hl
25   ld (de),a
26   inc de
27   ld a,b
28   ld (de),a
29   inc de
30   ld a,(hl)
31   ld (de),a
32   ret
33