home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / STR01.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  84 lines
  1.     page    66,132
  2. ;******************************** STR01.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. STRLEN1 - finds length of a ASCII string at DS:SI
  15. ;
  16. ; inputs:    DS:[SI] = address of the string
  17. ; 
  18. ; output:    CX = length of string excluding the terminating NUL
  19. ;* * * * * * * * * * * * * *
  20. 
  21.     PUBLIC    STRLEN1
  22. STRLEN1    PROC    FAR
  23.     apush    ax,di,es,ds
  24.     pop    es            ;set es = ds
  25.     cld
  26.     mov    di,si
  27.     sub    al,al            ;set al=0
  28.     mov    cx,-1
  29.     repnz    scasb
  30.     not    cx
  31.     dec    cx
  32.     apop    es,di,ax
  33.     retf
  34. STRLEN1    ENDP
  35. comment 
  36. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  37. STRLEN2 - finds length of a ASCII string at DS:DI
  38. ;
  39. ; inputs:    DS:[DI] = address of the string
  40. ; 
  41. ; output:    CX = length of string excluding the terminating NUL
  42. ;* * * * * * * * * * * * * *
  43. 
  44.     PUBLIC    STRLEN2
  45. STRLEN2    PROC    FAR
  46.     apush    ax,di,es,ds
  47.     pop    es            ;set es = ds
  48.     cld
  49.     sub    al,al            ;set al=0
  50.     mov    cx,-1
  51.     repnz    scasb
  52.     not    cx
  53.     dec    cx
  54.     apop    es,di,ax
  55.     retf
  56. STRLEN2    ENDP
  57. comment 
  58. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  59. STRLEN3 - finds length of a ASCII string at DS:BX
  60. ;
  61. ; inputs:    DS:[BX] = address of the string
  62. ; 
  63. ; output:    CX = length of string excluding the terminating NUL
  64. ;* * * * * * * * * * * * * *
  65. 
  66.     PUBLIC    STRLEN3
  67. STRLEN3    PROC    FAR
  68.     apush    ax,di,es,ds
  69.     pop    es            ;set es = ds
  70.     cld
  71.     mov    di,bx
  72.     sub    al,al            ;set al=0
  73.     mov    cx,-1
  74.     repnz    scasb
  75.     not    cx
  76.     dec    cx
  77.     apop    es,di,ax
  78.     retf
  79. STRLEN3    ENDP
  80. ;------------------------------------------------------------------------
  81.  
  82. LIBSEG    ENDS
  83.     end
  84.