1*15478Sralph #ifndef lint 2*15478Sralph static char sccsid[] = "@(#)subr.c 4.1 (Berkeley) 11/10/83"; 3*15478Sralph #endif 4*15478Sralph 5*15478Sralph #include "hp7221.h" 6*15478Sralph 7*15478Sralph putMBP( x, y ) 8*15478Sralph int x, y; 9*15478Sralph { 10*15478Sralph int chr; 11*15478Sralph 12*15478Sralph chr = ( x >> 10 ) & 017; 13*15478Sralph chr|= 0140; 14*15478Sralph putchar( chr ); 15*15478Sralph chr = ( x >> 4 ) & 077; 16*15478Sralph if ( chr < 32 ) { 17*15478Sralph chr += 64; 18*15478Sralph } 19*15478Sralph putchar( chr ); 20*15478Sralph chr = ( y >> 12 ) & 03; 21*15478Sralph chr|= ( x << 2 ) & 071; 22*15478Sralph if ( chr < 32 ) { 23*15478Sralph chr += 64; 24*15478Sralph } 25*15478Sralph putchar( chr ); 26*15478Sralph chr = ( y >> 6 ) & 077; 27*15478Sralph if ( chr < 32 ) { 28*15478Sralph chr += 64; 29*15478Sralph } 30*15478Sralph putchar( chr ); 31*15478Sralph chr = ( y ) & 077; 32*15478Sralph if ( chr < 32 ) { 33*15478Sralph chr += 64; 34*15478Sralph } 35*15478Sralph putchar( chr ); 36*15478Sralph return; 37*15478Sralph } 38*15478Sralph 39*15478Sralph putMBN( i ) 40*15478Sralph int i; 41*15478Sralph { 42*15478Sralph int chr; 43*15478Sralph 44*15478Sralph chr = ( i>>12 ) & 07; 45*15478Sralph chr|= 0140; 46*15478Sralph putchar( chr ); 47*15478Sralph chr = ( i>>6 ) & 077; 48*15478Sralph if ( chr < 32 ) { 49*15478Sralph chr += 64; 50*15478Sralph } 51*15478Sralph putchar( chr ); 52*15478Sralph chr = i & 077; 53*15478Sralph if ( chr < 32 ) { 54*15478Sralph chr += 64; 55*15478Sralph } 56*15478Sralph putchar( chr ); 57*15478Sralph return; 58*15478Sralph } 59*15478Sralph 60*15478Sralph putSBN( i ) 61*15478Sralph int i; 62*15478Sralph { 63*15478Sralph i &= 077; 64*15478Sralph if ( i < 32 ) { 65*15478Sralph i += 64; 66*15478Sralph } 67*15478Sralph putchar( i ); 68*15478Sralph return; 69*15478Sralph } 70