1*19978Sdist /* 2*19978Sdist * Copyright (c) 1980 Regents of the University of California. 3*19978Sdist * All rights reserved. The Berkeley software License Agreement 4*19978Sdist * specifies the terms and conditions for redistribution. 5*19978Sdist */ 6*19978Sdist 715478Sralph #ifndef lint 8*19978Sdist static char sccsid[] = "@(#)subr.c 5.1 (Berkeley) 05/07/85"; 9*19978Sdist #endif not lint 1015478Sralph 1115478Sralph #include "hp7221.h" 1215478Sralph 1315478Sralph putMBP( x, y ) 1415478Sralph int x, y; 1515478Sralph { 1615478Sralph int chr; 1715478Sralph 1815478Sralph chr = ( x >> 10 ) & 017; 1915478Sralph chr|= 0140; 2015478Sralph putchar( chr ); 2115478Sralph chr = ( x >> 4 ) & 077; 2215478Sralph if ( chr < 32 ) { 2315478Sralph chr += 64; 2415478Sralph } 2515478Sralph putchar( chr ); 2615478Sralph chr = ( y >> 12 ) & 03; 2715478Sralph chr|= ( x << 2 ) & 071; 2815478Sralph if ( chr < 32 ) { 2915478Sralph chr += 64; 3015478Sralph } 3115478Sralph putchar( chr ); 3215478Sralph chr = ( y >> 6 ) & 077; 3315478Sralph if ( chr < 32 ) { 3415478Sralph chr += 64; 3515478Sralph } 3615478Sralph putchar( chr ); 3715478Sralph chr = ( y ) & 077; 3815478Sralph if ( chr < 32 ) { 3915478Sralph chr += 64; 4015478Sralph } 4115478Sralph putchar( chr ); 4215478Sralph return; 4315478Sralph } 4415478Sralph 4515478Sralph putMBN( i ) 4615478Sralph int i; 4715478Sralph { 4815478Sralph int chr; 4915478Sralph 5015478Sralph chr = ( i>>12 ) & 07; 5115478Sralph chr|= 0140; 5215478Sralph putchar( chr ); 5315478Sralph chr = ( i>>6 ) & 077; 5415478Sralph if ( chr < 32 ) { 5515478Sralph chr += 64; 5615478Sralph } 5715478Sralph putchar( chr ); 5815478Sralph chr = i & 077; 5915478Sralph if ( chr < 32 ) { 6015478Sralph chr += 64; 6115478Sralph } 6215478Sralph putchar( chr ); 6315478Sralph return; 6415478Sralph } 6515478Sralph 6615478Sralph putSBN( i ) 6715478Sralph int i; 6815478Sralph { 6915478Sralph i &= 077; 7015478Sralph if ( i < 32 ) { 7115478Sralph i += 64; 7215478Sralph } 7315478Sralph putchar( i ); 7415478Sralph return; 7515478Sralph } 76