Bell 32V development

[unix-history] / usr / src / standalone / flpcpy.c

# include "CON.h"
# include "FL.h"
/*              */
# define BLKSIZ 512  /*  tape block size */
int count , sector , isector , icount ;
char *bufptr , input[128] , *ibufptr ;
int wo = 0 ;
/*              */
main() {
/*
*  Stand-alone program to copy VAX LSI RX11 floppy diskette to
*  memory and back to floppy.
*  Floppy sector no.'s start at 1 for controller - start at 0
*       for user input.
*  Floppy track no.'s start at 0.
*/
register int kk ;

putlin("flpcpy : Floppy-to-Memory-to-Floppy Copy") ;
putnl() ;

doff :
putstr("floppy sector offset : ") ;
getcon(input) ;
sector = a2l(input) ;
if ((sector < 0) || (sector >= MAXSEC)) goto doff ;

gknt :
putstr("no. of input sectors : ") ;
getcon(input) ;
count = a2l(input) ;
if (count < 0) goto gknt ;
if (count == 0) count = MAXSEC ;

if (init()) {
       putlin("init error") ;
       return(-1) ;
       }

isector = sector ;
icount = count ;

if (wo) goto wflop ;
while (count>0) {
if ((count%100) == 0)  {
       kk = count/100 ;
       l2a(kk,input) ;
       putstr(input) ;
       putstr(" ") ;
       }
       if (flio(FL_RS)) { /* read */
               putlin("floppy input error") ;
               return(-1) ;
               }
       }

putnl() ;
putlin("floppy read complete") ;

wflop :
putlin("mount new floppy - type any key when ready") ;
getcon(input) ;

count = icount ;
sector = isector ;
bufptr = ibufptr ;

while (count > 0) {
if ((count%100) == 0)  {
       kk = count/100 ;
       l2a(kk,input) ;
       putstr(input) ;
       putstr(" ") ;
       }
       if (flio(FL_WS)) {
               putlin("floppy output error") ;
               return(-1) ;
               }
       }
putnl() ;
putlin("floppy write complete") ;

end :
return(0) ;
}

/*              */

init() {
/*
*  Initialization.
*/
extern char *end ;

ibufptr = bufptr = (char *)(((int)&end+511) & 017777777000) ;
return(0) ;
}

/*              */

flio(func)
int func ;
{
/*
*  Function to read/write 1 sector from floppy disc.
*  'sector' is sector no.-1 to read into 'input[]'.
*  Return (-1) for error, else return (0) .
*/
register int j , s , t ;
register unsigned int c ;

/* compute start track & sector from current sector 'sector'. */
t = sector/RXSTRK ; /* track no. */
s = sector%RXSTRK + 1 ; /* sector */
sector++ ;


fltwait() ;
mtpr(TXDB,func) ; /* Floppy Read/Write Sector command */
fltwait() ;
mtpr(TXDB,s|FL_DATA) ; /* supply sector no. to floppy interface */
fltwait() ;
mtpr(TXDB,t|FL_DATA) ; /* track no. */

if (func == FL_RS) { /* Read Sector */
       /* wait for read to complete */
       if (fldone()) return(-1) ;
       /* loop to read sector bytes from interface */
       for (j = 0 ; j < RXBYSEC ; j++) {
               flrwait() ; /* wait till ready */
               (*bufptr++) = mfpr(RXDB) ; /*get data byte-assume from floppy*/
               }
       }
else {
       if (func == FL_WS) { /* Write Sector */
               for (j = 0 ; j < RXBYSEC ; j++) {
                       /* send byte over interface */
                       fltwait() ;
                       c = (*bufptr++) & 0xff ;
                       mtpr(TXDB,(c|FL_DATA)) ;
                       }
               fltwait() ;
               if (fldone()) return(-1) ;
               }
       }
count-- ;
return(0) ;
}