; void _IncrementUnsArr(a)
 ;
 ; ARGUMENT
 ;      unsigned        *a;
 ;
 ; DESCRIPTION
 ;      given the address of a unsigned array, increment the
 ;       number and return the result to the structure.
 ;
 ; SIDE EFFECTS
 ;      None.
 ;
 ; RETURNS
 ;      None.  (assume no overflow)
 ;
 ; AUTHOR
 ;  Andy Anderson   13-JAN-1987  16:30
 ;   Copyright (C) 1987-90 Greenleaf Software Inc.  All Rights Reserved.
 ;
 ; MODIFICATIONS
 ;      aa      08-JUL-87       n-bit
 ;
 ;      jl      7/12/89         sped up, removed n parameter

        include model.h
        include prologue.h
        include gm.equ


        pseg    gmath
;
;  if large memory model then:
;
;       parm1_ = ptr to source 1
;
;  for if small model then
;       parm1_ = ptr to source1
;
        cproc   _IncrementUnsArr,,_ginc

if      _LDATA
        push    ds
        lds     si,parm1_       ; ptr to a
else
        mov     si,parm1_
endif

inclp:
        inc     word ptr [si]
        jnz     exit
        inc     si
        inc     si
        jmp     short inclp

exit:
if      _LDATA
        pop     ds
endif
        cproce
        endps
        END