home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / dolddr.mac < prev    next >
Text File  |  1989-02-23  |  512b  |  20 lines
  1.  
  2. ; lddr(source, dest, n)
  3.  
  4. DOLDDR::
  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, 0B8H ; Do    LDDR 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.