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
/
CPM
/
UZI
/
UZI.ARK
/
EXTRAS.C
< prev
next >
Wrap
C/C++ Source or Header
|
1988-11-29
|
767b
|
59 lines
/**************************************************
UZI (Unix Z80 Implementation) Kernel: extras.c
***************************************************/
bcopy()
{
#asm 8080
; BCOPY(SRC,DEST,COUNT)
;
POP H
SHLD HOLDER
.Z80
LD (BCHLDR),BC
.8080
POP B
POP D
POP H
PUSH H
PUSH H
PUSH H
.Z80
LDIR
.8080
LHLD HOLDER
.Z80
LD BC,(BCHLDR)
.8080
PCHL
#endasm
}
#asm
;
HOLDER: DS 2
BCHLDR: DS 2
;
;
#endasm
bzero(ptr,count)
char *ptr;
int count;
{
*ptr = 0;
bcopy(ptr,ptr+1,count-1);
}
abort()
{
#asm 8080
DI
JMP $
#endasm
}