source: buchla-68k/libcio/conwr.c

Last change on this file was 1d174fb, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Cast fix.

  • Property mode set to 100644
File size: 845 bytes
RevLine 
[f40a309]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
[b28a12e]10#include "ram.h"
[f40a309]11
12/*
13 ============================================================================
14 _conwr(kind, buff, len) -- write 'len' bytes from 'buff' on the console
15 using op 'kind' as the BIOS argument.
16 ============================================================================
17*/
[8973acd]18int16_t _conwr(io_arg arg, void *buff, int16_t len)
[f40a309]19{
[99cac86]20 int16_t kind;
[8973acd]21 int8_t *buff8;
[7258c6a]22 register int16_t count;
[f40a309]23
[1d174fb]24 kind = (int16_t)(int32_t)arg;
[8973acd]25 buff8 = buff;
26
[f40a309]27 for (count = 0; count < len; ++count)
[99cac86]28 BIOS(B_PUTC, kind, *buff8++);
[f40a309]29
30 return(count);
31}
[6262b5c]32
Note: See TracBrowser for help on using the repository browser.