isupper.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/ctype/c/sccz80/isupper.asm

; int isupper(int c)

SECTION code_clib
SECTION code_ctype

PUBLIC isupper

EXTERN asm_isupper, error_zc

isupper:

   inc h
   dec h
   jp nz, error_zc

   ld a,l
   call asm_isupper
   
   ld l,h
   ret c
   
   inc l
   ret
