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