From 9e41edbc48b85663236009cba2391df165dd1ee4 Mon Sep 17 00:00:00 2001
From: Jeff Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Wed, 5 Apr 2017 08:24:53 -0400
Subject: Initial import

---
 iwrite.c | 136 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 136 insertions(+)
 create mode 100755 iwrite.c

(limited to 'iwrite.c')

diff --git a/iwrite.c b/iwrite.c
new file mode 100755
index 0000000..6f3b7b0
--- /dev/null
+++ b/iwrite.c
@@ -0,0 +1,136 @@
+/*       Rainbow Image Utilities
+ *       Copyright © 2008 Jeffrey Armstrong <jeff@rainbow-100.com>
+ *       http://jeff.rainbow-100.com/
+ *
+ *       This program is free software: you can redistribute it and/or modify
+ *       it under the terms of the GNU General Public License as published by
+ *       the Free Software Foundation, either version 3 of the License, or
+ *       (at your option) any later version.
+ *       
+ *       This program is distributed in the hope that it will be useful
+ *       but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *       GNU General Public License for more details.
+ *       
+ *       You should have received a copy of the GNU General Public License
+ *       along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+ 
+/* iwrite - A utility for creating a floppy from an image
+ * by Jeff Armstrong
+ */
+
+#include <stdio.h>
+
+#include "rbfloppy.h"
+#include "util.h"
+
+/* Function which fills the passed buffer with 512 bytes from the file
+ * representing the next sector of data for writing out.
+ */
+int get_next_sector(FILE *fp, char *buffer)
+{
+int readin;
+	if(fp == NULL)
+		return ERROR;
+
+        for(readin=0;readin<BYTES_PER_SECTOR && feof(fp)==0;readin++)
+                buffer[readin] = (char)fgetc(fp);
+	
+        /*readin = fread(buffer,sizeof(char),BYTES_PER_SECTOR,fp); */
+
+	if(readin == BYTES_PER_SECTOR)
+		return OK;
+	else
+		return ERROR;
+}
+
+int main(int argc, char *argv[])
+{
+int drv, sector, track;
+char *tmp;
+FILE *fp;
+
+char *data;
+
+int image_errors, write_errors;
+        
+        printf("Rainbow Image Writer 0.1\nCopyright %c 2008 Jeff Armstrong\n\n",0xA9);
+        
+        if(argc < 3) {
+                printf("Usage: %s [/L] <image file> <target drive>\n");
+                printf("       Target drive should be one of: A, B, C, D\n");
+                printf("\nOptions:\n");
+                printf("       /L = image contains logical sectors\n");
+                return 0;
+        }
+        
+        /* The mode is assumed to be physical addressing, but we'll check */
+        set_mode(MODE_PHYSICAL);
+        check_logical(argc, argv);
+        
+        printf("Writing image using ");
+        if(get_mode() == MODE_LOGICAL)
+                printf("logical ");
+        else
+                printf("physical ");
+        printf("sectors.\n");
+
+        /* Open the image file for reading */
+        fp = fopen(argv[1],"rb");
+        if(fp == NULL) {
+                printf("Could not open image file:\n\t%s\n",argv[1]);
+                return 0;
+        }
+
+        /* Determine drive */
+        tmp = argv[2];
+        drv = drive_id(tmp[0]);
+        if(drv < 0) {
+                printf("Could not process drive request %s\n",tmp);
+                return 0;
+        } 
+
+        /* Allocate a data buffer that will hold exactly one sector of data */
+        data = (char *)malloc(BYTES_PER_SECTOR*sizeof(char));
+
+        printf("\nWriting %s to floppy...\n",argv[1]);
+        
+        /* Initialize error counters */
+        image_errors = 0; write_errors = 0;
+        
+        /* Cycle through all tracks from 0 to 79 */
+        for(track=0;track<TRACK_MAX;track++) {
+        
+                /* Note that sector count is 1-based */
+                for(sector=1;sector<=SECTOR_MAX;sector++) {
+                
+                        printf("\rTrack: %d Sector: %d  ",track,sector);
+                        if(get_next_sector(fp,data) != OK)
+                                image_errors++;
+                        else {
+                                if(write_sector(drv,track,sector,data) != OK)
+                                        write_errors++;
+                        }
+                }
+                /* sleep(5); */
+        }
+
+        if(image_errors == 1)
+                printf("\n%c1 image error encountered during read.",007);
+        else if(image_errors > 1)
+                printf("\n%c%d image errors encountered during read.",007,image_errors);
+        
+        if(write_errors == 1)
+                printf("\n%c1 write error encountered during drive access.",007);
+        else if(write_errors > 1)
+                printf("\n%c%d write errors encountered during drive acces.",007,write_errors);
+
+        printf ("\n\nProcessing complete.");
+        
+        fclose(fp);
+        
+        free(data);
+
+        return 0;
+}
\ No newline at end of file
-- 
cgit v1.2.3