mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-15 15:57:13 +00:00
67 lines
1.9 KiB
C
67 lines
1.9 KiB
C
/* $Id: blt.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
static char *id = "$Id: blt.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
/*
|
|
*
|
|
* Author : Takeshi Shimizu
|
|
*
|
|
*/
|
|
/******************************************************************/
|
|
/*
|
|
File Name : blt.c
|
|
Including : OP_blt
|
|
|
|
Created : jul 9, 1987 by T.Shimizu
|
|
*/
|
|
/******************************************************************/
|
|
|
|
#include "lispemul.h"
|
|
#include "address.h"
|
|
#include "adr68k.h"
|
|
#include "lsptypes.h"
|
|
#include "lispmap.h"
|
|
#include "stack.h"
|
|
#include "emlglob.h"
|
|
#include "lspglob.h"
|
|
#include "cell.h"
|
|
|
|
/*
|
|
N_OP_blt takes 3 arguments.
|
|
STK-1 has destination's pointer.
|
|
STK has source's pointer.
|
|
TOS has number of words to be translated.
|
|
*/
|
|
|
|
LispPTR N_OP_blt(LispPTR destptr, LispPTR sourceptr, register LispPTR wordcount) {
|
|
register DLword *source68k;
|
|
register DLword *dest68k;
|
|
register int nw;
|
|
|
|
if ((wordcount & SEGMASK) != S_POSITIVE) ERROR_EXIT(wordcount);
|
|
nw = wordcount & 0xffff;
|
|
|
|
source68k = Addr68k_from_LADDR(sourceptr) + nw;
|
|
dest68k = Addr68k_from_LADDR(destptr) + nw;
|
|
|
|
while (nw) {
|
|
(GETWORD(--dest68k)) = GETWORD(--source68k);
|
|
nw--;
|
|
}
|
|
|
|
return (wordcount);
|
|
} /* end N_OP_blt */
|