-/* $Header $ */
+/* $Header$ */
long _abl(i) long i;
{
#include "string.h"
-/* $Header $ */
+/* $Header$ */
int _asc(str)
String *str;
-/* $Header $ */
+/* $Header$ */
asrt(b)
{
*
*/
-/* $Header $ */
+/* $Header$ */
/* Author: J.W. Stevenson */
#include "string.h"
-/* $Header $ */
+/* $Header$ */
String *_chr(i)
int i;
-/* $Header $ */
+/* $Header$ */
int _cint(f) double f;
{
-/* $Header $ */
+/* $Header$ */
/* error takes an error value in the range of 0-255 */
/* and generates a trap */
*
*/
-/* $Header $ */
+/* $Header$ */
/* Author: J.W. Stevenson */
#include <stdio.h>
#include "io.h"
-/* $Header $ */
+/* $Header$ */
Filedesc _fdtable[16];
/* BASIC file descriptor table */
-/* $Header $ */
+/* $Header$ */
_hlt(nr)
int nr;
#include "io.h"
#include <sgtty.h>
-/* $Header $ */
+/* $Header$ */
struct sgttyb _ttydef;
*
*/
-/* $Header $ */
+/* $Header$ */
/* Author: J.W. Stevenson */
#include "string.h"
-/* $Header $ */
+/* $Header$ */
String *_mki(i)
int i;
#include "string.h"
-/* $Header $ */
+/* $Header$ */
String *_oct(i)
int i;
-/* $Header $ */
+/* $Header$ */
int peek(addr)
int addr;
-/* $Header $ */
+/* $Header$ */
/*
computes a^b.
#include "string.h"
#include "io.h"
-/* $Header $ */
+/* $Header$ */
/* Here all routine to generate terminal oriented output is located */
-/* $Header $ */
+/* $Header$ */
_randomi()
{
#include "io.h"
#include <ctype.h>
-/* $Header $ */
+/* $Header$ */
_readln()
{
-/* $Header $ */
+/* $Header$ */
#define MAXNESTING 1000
-/* $Header $ */
+/* $Header$ */
_sgn(v)
double v;
*
*/
-/* $Header $ */
+/* $Header$ */
/* Author: J.W. Stevenson */
*
*/
-/* $Header $ */
+/* $Header$ */
/* Author: J.W. Stevenson */
-/* $Header $ */
+/* $Header$ */
_stop()
{
#include "string.h"
-/* $Header $ */
+/* $Header$ */
#define ok(X) if( X ==0) return;
#define okr(X) if( X ==0) return(0);
#include "string.h"
-/* $Header $ */
+/* $Header$ */
_intswap(i1,i2)
int *i1,*i2;
-/* $Header $ */
+/* $Header$ */
_trace()
{
#include <signal.h>
#include <setjmp.h>
-/* $Header $ */
+/* $Header$ */
/* Trap handling */
int _trpline; /* BASIC return label */
#include "string.h"
#include "io.h"
-/* $Header $ */
+/* $Header$ */
/* assume that the channel has been set */