home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / _SCONCAT.D < prev    next >
Text File  |  1988-07-11  |  640b  |  32 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; _ S C O N C A T - CONCATENATE A STRING
  5. ;
  6. ; ENTRY CONDITIONS:
  7. ;    SI CONTAINS THE OFFSET TO THE SOURCE STRING
  8. ;    DI CONTAINS THE OFFSET TO THE TARGET STRING
  9. ; EXIT CONDITIONS:
  10. ;    SI,DI,AX MODIFIED
  11. ;
  12. SUBPGM    _SCONCAT
  13. BEGIN    _SCONCAT
  14. ;
  15.     PUSH    ES
  16.     PUSH    DS
  17.     POP    ES
  18.     SUB    AL,AL
  19. ;
  20. SLOOP:
  21.     MOV    AL,[SI]
  22.     MOVSB
  23.     OR    AL,AL
  24.     JNZ    SLOOP
  25.     DEC    DI
  26. ;
  27.     POP    ES
  28.     RET
  29.  
  30. ENDPGM    _SCONCAT
  31. ;
  32.