home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOLS4.ZIP / EXPTABS.ASM next >
Encoding:
Assembly Source File  |  1988-07-08  |  782 b   |  39 lines
  1. CODE      SEGMENT BYTE PUBLIC
  2.           ASSUME CS:CODE
  3.  
  4.           PUBLIC ExpandTabs
  5.  
  6. ;function ExpandTabs(S : String) : String
  7.  
  8. ExpTabsRes       EQU   DWORD PTR [BP+0Ah]
  9. ExpTabsStr       EQU   DWORD PTR [BP+06h]
  10.  
  11. ExpandTabs       PROC FAR
  12.        PUSH      BP
  13.        MOV       BP,SP
  14.        PUSH      DS
  15.        LDS       SI,ExpTabsStr
  16.        LES       DI,ExpTabsRes
  17.        CLD
  18.        LODSB
  19.        STOSB
  20.        MOV       CL,AL
  21.        XOR       CH,CH
  22.        JCXZ      ExitCode
  23. LookForTab:
  24.        LODSB
  25.        CMP       AL,9
  26.        JNE       CopyChar
  27.        MOV       AL,' ';
  28. CopyChar:
  29.        STOSB
  30.        LOOP      LookForTab
  31. ExitCode:
  32.        POP       DS
  33.        POP       BP
  34.        RET       04h
  35. ExpandTabs       ENDP
  36.  
  37. CODE     ENDS
  38.          END
  39.