char conin()		/* get char from console, 0-128, (hi bit 0) */
{			/* wait until char is returned */
	int *boot;	/* does not echo */
	boot=1;
	return calla(*boot+(3-1)*3,0,0,0,0);
}
char conout(c)		/* senc char c to console */
char c;
{
	int *boot;
	boot=1;
	call(*boot+(4-1)*3,0,0,c,0);
}
list(c)
char c;
{
	int *boot;
	boot=1;
	call(*boot+(4-1)*3,0,0,c,0);
}
int seldsk(dsk)		/* select disk (0-15, A-P) */
int dsk;		/* returns base addr of DPH or 0 */
{
	int *boot;
	boot=1;
	return call(*boot+(9-1)*3,0,0,dsk,0);
}
settrk(trk)		/* set track, 0-N */
int trk;
{
	int *boot;
	boot=1;
	call(*boot+(10-1)*3,0,0,trk,0);
}
setsec(sec)		/* set sector, 1-N */
int sec;
{
	int *boot;
	boot=1;
	call(*boot+(11-1)*3,0,0,sec,0);
}
setdma(addr)
char *addr;
{
	int *boot;
	boot=1;
	call(*boot+(12-1)*3,0,0,addr,0);
}
int lread()		/* read sector, rets 0 ok, else 1 */
{
	int *boot;
	boot=1;
	return calla(*boot+(13-1)*3,0,0,0,0);
}
int lwrite()		/* write sector, rets 0 ok, else 1 */
{
	int *boot;
	boot=1;
	return calla(*boot+(14-1)*3,0,0,0,0);
}
int sectran(sec,xlt)
int sec,xlt;
{
	int *boot;
	boot=1;
	return call(*boot+(16-1)*3,0,0,sec,xlt);
}
char kbchk()		/* rets 0 no char, else char */
{
	return calla(5,0,0,6,255);
}
int version()		/* rets 0x2x for ver 2.x, else 0 */
{
	return call(5,0,0,12,0)&0xf0;
}
reset()			/* reset disk system */
{
	calla(5,0,0,13,0);
}
setdsk(disk)		/* select disk, needed after reset() */
int disk;
{
	call(5,0,0,14,disk);
}
int getlv()		/* return login vector */
{			/* hi bit = on-line */
	return call(5,0,0,24,0);
}
char curdsk()		/* return current disk */
{
	return calla(5,0,0,25,0);
}
getav()			/* return alloc address */
{
	return call(5,0,0,27,0);
}
getrov()		/* get read/only vector */
{			/* hi bit = read/only */
	return call(5,0,0,29,0);
}
getdpb()		/* get DPB address */
{
	return call(5,0,0,31,0);
}
                                                                                                            
