home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / exmem.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  512 b   |  21 lines
  1. ;************************************************************************
  2. ;*        exchange two strings                    *
  3. ;*        addresses in HL, DE                    *
  4. ;*        length in B (0=256)                    *
  5. ;************************************************************************
  6.  
  7.         .z80            ;
  8.         entry _exmem        ;
  9.  
  10. _exmem:        ld a,(de)        ;
  11.         ld c,(hl)        ;
  12.         ld (hl),a        ;
  13.         ld a,c            ;
  14.         ld (de),a        ;
  15.         inc hl            ;
  16.         inc de            ;
  17.         djnz _exmem        ;
  18.         ret            ;
  19.  
  20.         end            ;
  21.