Bell 32V development
[unix-history] / usr / src / standalone / dadmes.c
CommitLineData
d52f1552
TL
1# include "RP.h"
2dadmes(dptr)
3register int *dptr ;
4{
5register char *mesp ;
6register int i ;
7
8mesp = " cyl trk sec " ;
9i = l2x(*(dptr+RP_cyl) & 01777,&mesp[5]) ;
10blnkit(&mesp[5+i],4-i) ;
11
12i = l2x((*(dptr+RP_stk)>>8) & 037 , &mesp[13]) ;
13blnkit(&mesp[13+i],3-i) ;
14
15i = l2x(*(dptr+RP_stk)&037,&mesp[21]) ;
16blnkit(&mesp[21+i],3-i) ;
17
18putlin(mesp) ;
19}