1
2; SP1MakeRect8Pix
3; 05.2006 aralbrec, Sprite Pack v3.0
4; sinclair spectrum version
5
6PUBLIC SP1MakeRect8Pix
7
8; Conversion from struct_sp1_ss to struct_r_Rect8
9; with members multiplied by 8 (change from character
10; coordinates to pixel coordinates).
11;
12; enter : hl = struct sp1_ss *
13;         de = destination struct r_Rect8 *
14; uses  : af, b, de, hl
15
16.SP1MakeRect8Pix
17
18   ld b,(hl)
19   inc hl
20   ld a,(hl)
21   inc hl
22   add a,a
23   add a,a
24   add a,a
25   ld (de),a
26   inc de
27   ld a,(hl)
28   inc hl
29   add a,a
30   add a,a
31   add a,a
32   ld (de),a
33   inc de
34   ld a,b
35   add a,a
36   add a,a
37   add a,a
38   ld (de),a
39   inc de
40   ld a,(hl)
41   inc hl
42   add a,a
43   add a,a
44   add a,a
45   ld (de),a
46   dec de
47   ld a,(de)
48   ld b,a
49   ld a,(hl)
50   inc hl
51   and $07
52   add a,b
53   ld (de),a
54   dec de
55   dec de
56   ld a,(de)
57   add a,(hl)
58   ld (de),a
59   ret
60