labs_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdlib/labs_callee.asm
;
; Small C z88 stdlib functions
;
; Return absolute value of long
;
; -----
; $Id: labs_callee.asm,v 1.3 2015/01/19 01:33:22 pauloscustodio Exp $

PUBLIC labs_callee
EXTERN l_long_neg
PUBLIC ASMDISP_LABS_CALLEE

.labs_callee

   pop af
   pop hl
   pop de
   push af

.asmentry
   
   bit 7,d
   ret z
   
   jp l_long_neg

DEFC ASMDISP_LABS_CALLEE = # asmentry - labs_callee
