asm_isupper.asm
bitfixer_bitfixer/dg/z88dk/libsrc/ctype/asm_isupper.asm
; asm_isupper

PUBLIC asm_isupper

; determine if the char is in [A-Z]

; enter : a = char
; exit  : carry = not upper
; uses  : f

.asm_isupper

   cp 'A'
   ret c
   
   cp 'Z'+1
   ccf
   
   ret
