asm_b_vector_insert.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/adt/b_vector/z80/asm_b_vector_insert.asm

; ===============================================================
; Mar 2014
; ===============================================================
; 
; size_t b_vector_insert(b_vector_t *v, size_t idx, int c)
;
; Insert char c before vector.data[idx], returns index of
; char inserted.
;
; ===============================================================

SECTION code_clib
SECTION code_adt_b_vector

PUBLIC asm_b_vector_insert

EXTERN asm_b_vector_insert_block, error_mc

asm_b_vector_insert:

   ; enter : hl = vector *
   ;         de = int c
   ;         bc = idx
   ;
   ; exit  : success
   ;
   ;            de = & vector.data[idx]
   ;            hl = idx of char inserted
   ;            carry reset
   ;
   ;         fail
   ;
   ;            hl = -1
   ;            carry set
   ;
   ; uses  : af, bc, de, hl

   push bc                     ; save idx
   push de                     ; save int c
   
   ld de,1
   call asm_b_vector_insert_block
   
   pop de                      ; de = int c
   jp c, error_mc - 1          ; if insert error

   ld (hl),e                   ; write inserted char
   ex de,hl

   pop hl                      ; hl = idx
   ret
