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