1
2SECTION code_clib
3SECTION code_l
4
5PUBLIC l_zeroword_hl
6
7   inc hl
8   inc hl
9
10   inc hl
11   inc hl
12
13l_zeroword_hl:
14
15   ; Common operation to zero word at offset from hl
16   ;
17   ; enter : hl = void *address
18   ;
19   ; exit  : hl = void *address
20   ;         *address = 0
21   ;
22   ; uses  : none
23
24   ld (hl),0
25   inc hl
26   ld (hl),0
27   dec hl
28
29   ret
30