error_enolck_zc.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/error/z80/error_enolck_zc.asm

INCLUDE "clib_cfg.asm"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IF __CLIB_OPT_ERROR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   ; verbose mode

   SECTION code_clib
   SECTION code_error
   
   PUBLIC error_enolck_zc
   
   EXTERN error_enolck_mc
   
      pop hl
      pop hl
   
   error_enolck_zc:
   
      ; set hl = 0
      ; set carry flag
      ; set errno = ENOLCK
      
      call error_enolck_mc
      
      inc hl
      ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ELSE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   SECTION code_clib
   SECTION code_error
   
   PUBLIC error_enolck_zc
   
   EXTERN errno_zc
   
   defc error_enolck_zc = errno_zc - 2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ENDIF
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
