source: buchla-68k/orig/IOLIB/CONWR.C@ cbe2c15

Last change on this file since cbe2c15 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 871 bytes
RevLine 
[3ae31e9]1/*
2 ============================================================================
3 conwr.c -- write on the console
4 Version 4 -- 1987-06-29 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
8#define _FS_DEF_ /* to avoid unnecessary externals */
9
10#include "biosdefs.h"
11#include "io.h"
12#include "errno.h"
13#include "stddefs.h"
14
15/*
16 ============================================================================
17 _conwr(kind, buff, len) -- write 'len' bytes from 'buff' on the console
18 using op 'kind' as the BIOS argument.
19 ============================================================================
20*/
21int
22_conwr(kind, buff, len)
23int kind;
24register char *buff;
25int len;
26{
27 register int count;
28
29 for (count = 0; count < len; ++count)
30 BIOS(B_PUTC, kind, *buff++);
31
32 return(count);
33}
Note: See TracBrowser for help on using the repository browser.