home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / STR24.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  1KB  |  53 lines
  1.     page    66,132
  2. ;******************************** STR24.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_CLEANL - remove leading blanks from an ASCIIZ string
  17. ;
  18. ; inputs:    DS:[SI] pointing to string
  19. ; 
  20. ; output:    CX = string length
  21. ;* * * * * * * * * * * * * *
  22. 
  23.     PUBLIC    STR_CLEANL
  24. STR_CLEANL    PROC    FAR
  25.     APUSH   AX,BX,DI,SI
  26.     CLD
  27.     PUSH    ES
  28.     CALL    strlen1
  29.     PUSH    DS
  30.     POP     ES
  31.     MOV     DI,SI
  32. ;;  MOV     SI,BX
  33.     MOV     BX,CX
  34.     JCXZ    scr_exit
  35.     MOV     AL,20h    ; ' '
  36.     REPZ    SCASB
  37.     JZ      scr_exit
  38.     INC     CX
  39.     MOV     BX,CX
  40.     DEC     DI
  41.     XCHG    SI,DI
  42.     INC     CX
  43.     REPZ    MOVSB
  44. scr_exit:    
  45.     MOV     CX,BX
  46.     POP     ES
  47.     APOP    SI,DI,BX,AX
  48.     RETF
  49. STR_CLEANL    ENDP
  50.  
  51. LIBSEG    ENDS
  52.     end
  53.