home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / STR25.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  1KB  |  51 lines
  1.     page    66,132
  2. ;******************************** STR25.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. ;----------------------------------------------------------------------------
  13.     extrn    strlen1:far
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  16. STR_CLEANR - removes trailing blanks from string
  17. ;
  18. ; inputs:    DS:[SI] pointing to string
  19. ; 
  20. ; output:    CX = string length
  21. ;* * * * * * * * * * * * * *
  22. 
  23.     PUBLIC    STR_CLEANR
  24. STR_CLEANR    PROC    FAR
  25.     call    strlen1
  26.     apush   ax,di,es
  27.     JCXZ    sclr_exit
  28.     PUSH    DS
  29.     POP     ES
  30.     MOV     DI,SI
  31.     ADD     DI,CX
  32.     DEC     DI
  33.     MOV     AL,20h    ; ' '
  34.     STD
  35.     REPZ    SCASB
  36.     JZ      sclr_cont
  37.     INC     CX
  38. sclr_cont:    
  39.     XOR     AL,AL
  40.     INC     DI
  41.     INC     DI
  42.     STOSB
  43. sclr_exit:
  44.     cld                ;force direction flag at exit    
  45.     apop    es,di,ax
  46.     RETF
  47. STR_CLEANR    ENDP
  48.  
  49. LIBSEG    ENDS
  50.     end
  51.