source: buchla-68k/orig/IOLIB/VTEXT.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: 672 bytes
RevLine 
[3ae31e9]1/*
2 =============================================================================
3 vtext.c -- output a text string to the VSDD in 1 byte / character mode
4 Version 3 -- 1987-06-02 -- D.N. Lynx Crowe
5
6 Assumes VSDD is pointing at bank 0.
7 =============================================================================
8*/
9
10static int msk[] = { 0xFF00, 0x00FF };
11
12vtext(obj, nc, row, col, ip)
13register unsigned *obj, nc, row, col;
14register char *ip;
15{
16 register unsigned *op;
17
18 while (*ip) {
19
20 op = obj + ((nc >> 1) * row) + (col >> 1);
21
22 *op = (*op & (unsigned)msk[col & 1]) |
23 ((*ip++ & 0x00FF) << ((col & 1) ? 8 : 0));
24
25 col++;
26 }
27}
Note: See TracBrowser for help on using the repository browser.