home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY01.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  1KB  |  42 lines
  1.     page    66,132
  2. ;******************************** MKEY01.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  14. IS_ALPHA - check if key returned by KEY_READ is a letter from A-Z or a-z.
  15. ;
  16. ; inputs:    AX = keycode returned by KEY_READ or AH=0, AL=ascii
  17. ; 
  18. ; output:    if CF = 0, keycode is a character from A-Z or a-z
  19. ;            if CF = 1, keycode is not a character from A-Z or a-z
  20. ;* * * * * * * * * * * * * *
  21. 
  22.     PUBLIC    IS_ALPHA
  23. IS_ALPHA        PROC    FAR
  24.     or    ah,ah
  25.     jnz    ia_not        ;jmp if not alpha
  26.     cmp    al,'A'
  27.     jb    ia_not        ;jmp if not alpha
  28.     cmp    al,'Z'
  29.     jbe    ia_yes        ;jmp if alpha
  30.     cmp    al,'a'
  31.     jb    ia_not        ;jmp if not alpha
  32.     cmp    al,'z'
  33.     ja    ia_not        ;jmp if not alpha
  34. ia_yes:    clc
  35.     jmp    ia_exit
  36. ia_not:    stc
  37. ia_exit:retf    
  38. IS_ALPHA ENDP
  39.  
  40. LIBSEG    ENDS
  41.     end
  42.