home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oakland CPM Archive
/
oakcpm.iso
/
cpmug
/
cpmug035.ark
/
FCBMOV.ASM
< prev
next >
Wrap
Assembly Source File
|
1984-04-29
|
290b
|
13 lines
ORG 5520H
* THIS ROUTINE COPIES THE FCB POINTED TO BY HL TO THE ONE POINTED TO
* BY DE
FCBMOV: PUSH B ! PUSH D ! PUSH H
MVI B,33 ;33 BYTES/FCB
FMLOOP: MOV A,M ;GET BYTE
STAX D ;COPY IT
INX H ! INX D
DCR B
JNZ FMLOOP ;JUMP IF MORE BYTES TO COPY
POP H ! POP D ! POP B
RET