home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / STR16.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  896b  |  39 lines
  1.     page    66,132
  2. ;******************************** STR16.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. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  14. STR_UPPER - changes string to upper case
  15. ;
  16. ; inputs:    DS:[SI] pointing to string
  17. ; 
  18. ; output:    nothing
  19. ;* * * * * * * * * * * * * *
  20. 
  21.     PUBLIC    STR_UPPER
  22. STR_UPPER    PROC    FAR
  23.     apush    ax,si
  24. su_lp1:    lodsb
  25.     cmp    al,0
  26.     je    su_exit            ;jmp if end of string
  27.     cmp    al,'a'
  28.     jb    su_lp1            ;jmp if char out of range
  29.     cmp    al,'z'
  30.     ja    su_lp1            ;jmp if char out of range
  31.     sub    byte ptr [si-1],20h    ;convert to upper case
  32.     jmp    su_lp1
  33. su_exit:apop    si,ax
  34.     retf    
  35. STR_UPPER    ENDP
  36.  
  37. LIBSEG    ENDS
  38.     end
  39.