home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG035.ARK / FCBMOV.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  290b  |  13 lines
  1.     ORG    5520H
  2. * THIS ROUTINE COPIES THE FCB POINTED TO BY HL TO THE ONE POINTED TO
  3. * BY DE
  4. FCBMOV:    PUSH    B ! PUSH D ! PUSH H
  5.     MVI    B,33    ;33 BYTES/FCB
  6. FMLOOP:    MOV    A,M    ;GET BYTE
  7.     STAX    D    ;COPY IT
  8.     INX    H ! INX D
  9.     DCR    B
  10.     JNZ    FMLOOP    ;JUMP IF MORE BYTES TO COPY
  11.     POP    H ! POP D ! POP B
  12.     RET
  13.