home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / COPIES.ASM < prev    next >
Encoding:
Assembly Source File  |  1980-01-01  |  770 b   |  31 lines
  1. ;**********************************************************************
  2. ;       type
  3. ;           AnyString = string[255];
  4. ;       var
  5. ;           C : char;
  6. ;           N : integer;
  7. ;
  8. ;       Function COPIES(C : char; N : Integer) : AnyString
  9. ;                                     external 'B:COPIES';
  10. ;**********************************************************************
  11. copies  proc    near
  12.         push    bp
  13.     mov    bp,sp
  14.     push    ss
  15.     pop    es
  16.     mov    cx,[bp+4]    ; N into CX
  17.     mov    [bp+8],cl    ; store length (N) into RESULT
  18.     mov    ax,[bp+6]    ; get character to copy into string
  19.     lea    di,[bp+9]
  20.     cld
  21. rep    stosb
  22.         mov     sp,bp
  23.         pop     bp
  24.     pop    bx
  25.     mov    ax,cs:[bx]
  26.     cmp    ax,0FFB1h
  27.     jnz    cop1
  28.     add    bx,5
  29. cop1:    push    bx
  30.         ret     4
  31. copies  endp