github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 21:21:08 +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

71
src/bin.c Executable file
View File

@@ -0,0 +1,71 @@
/* $Id: bin.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: bin.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"
/***********************************************************************/
/*
File Name : bin.c
Desc :
Date : Jul. 22, 1987
Edited by : Takeshi Shimizu
Changed :
Including : OP_bin
*/
/**********************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "emlglob.h"
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "stream.h"
N_OP_bin(register int tos)
{
register Stream *stream68k; /* stream instance on TOS */
register char *buff68k; /* pointer to BUFF */
if(GetTypeNumber(tos) == TYPE_STREAM)
{
stream68k=(Stream *) Addr68k_from_LADDR(tos);
if(!stream68k->BINABLE) ERROR_EXIT(tos);
if(stream68k->COFFSET >= stream68k->CBUFSIZE) ERROR_EXIT(tos);
/* get BUFFER instance */
buff68k =(char *)Addr68k_from_LADDR(stream68k->CBUFPTR);
/* get BYTE data and set it to TOS */
return(S_POSITIVE | (Get_BYTE(buff68k + (stream68k->COFFSET)++)) );
}
else ERROR_EXIT(tos);
}