xref: /csrg-svn/lib/libplot/hp7221/subr.c (revision 19978)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  */
6 
7 #ifndef lint
8 static char sccsid[] = "@(#)subr.c	5.1 (Berkeley) 05/07/85";
9 #endif not lint
10 
11 #include "hp7221.h"
12 
13 putMBP( x, y )
14     int		x,	y;
15 {
16     int		chr;
17 
18     chr = ( x >> 10 ) & 017;
19     chr|= 0140;
20     putchar( chr );
21     chr = ( x >> 4 ) & 077;
22     if ( chr < 32 ) {
23 	chr += 64;
24     }
25     putchar( chr );
26     chr = ( y >> 12 ) & 03;
27     chr|= ( x << 2  ) & 071;
28     if ( chr < 32 ) {
29 	chr += 64;
30     }
31     putchar( chr );
32     chr = ( y >> 6 ) & 077;
33     if ( chr < 32 ) {
34 	chr += 64;
35     }
36     putchar( chr );
37     chr = ( y ) & 077;
38     if ( chr < 32 ) {
39 	chr += 64;
40     }
41     putchar( chr );
42     return;
43 }
44 
45 putMBN( i )
46     int		i;
47 {
48     int		chr;
49 
50     chr = ( i>>12 ) & 07;
51     chr|= 0140;
52     putchar( chr );
53     chr = ( i>>6 ) & 077;
54     if ( chr < 32 ) {
55 	chr += 64;
56     }
57     putchar( chr );
58     chr = i & 077;
59     if ( chr < 32 ) {
60 	chr += 64;
61     }
62     putchar( chr );
63     return;
64 }
65 
66 putSBN( i )
67     int		i;
68 {
69     i &= 077;
70     if ( i < 32 ) {
71 	i += 64;
72     }
73     putchar( i );
74     return;
75 }
76