github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00
Code Issues Projects Releases Wiki Activity

Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

Browse Source
This commit is contained in:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
src/blt.c Executable file
View File

@@ -0,0 +1,75 @@
/* $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 */