asm_w_array_capacity.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/adt/w_array/z80/asm_w_array_capacity.asm

; ===============================================================
; Mar 2014
; ===============================================================
; 
; size_t w_array_capacity(w_array_t *a)
;
; Return the amount of space allocated for the array in words.
;
; ===============================================================

SECTION code_clib
SECTION code_adt_w_array

PUBLIC asm_w_array_capacity

EXTERN l_readword_2_hl

defc asm_w_array_capacity = l_readword_2_hl - 4

   ; enter : hl = array *
   ;
   ; exit  : hl = capacity in words
   ;
   ; uses  : a, hl
