home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / doldir.mac < prev    next >
Text File  |  1989-02-23  |  512b  |  20 lines
  1.  
  2. ; doldir(source, dest, n)
  3.  
  4. DOLDIR::
  5.     INX    SP    ; Skip over return address
  6.     INX    SP
  7.     POP    B    ; Load n
  8.     POP    D    ; Load destination
  9.     POP    H    ; Load source
  10.     DB    0EDH, 0B0H ; Do    LDIR instruction
  11.     PUSH    H    ; Restore stack
  12.     PUSH    D
  13.     PUSH    B
  14.     DCX    SP
  15.     DCX    SP
  16.     RET
  17.  
  18.     END
  19.  
  20.