sw/disk8/src/disk8.c

   1
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <logging.h>
   5
   6 #include "structures.h"
   7 #include "ops.h"
   8 #include "file.h"
   9 #include "directory.h"
  10 #include "logging.h"
  11
  12 #define PSIZE(TYPE) {printf ("Size of %s in Words: 0%o(oct), %i(dec) -  Blocks: 0%o(oct) %i(dec) ", \
  13                              #TYPE, sizeof(TYPE)/2,sizeof(TYPE)/2,sizeof(TYPE)/512,sizeof(TYPE)/512); \
  14     if (sizeof(TYPE)%512) printf ("- Modulo rest 0%o(oct) %i(dec)",sizeof(TYPE)%512,sizeof(TYPE)%512); \
  15     printf("\n");                                                       \
  16   }
  17
  18 /*************************************************/
  19
  20 image_t * image;
  21
  22
  23 int main(int argc, char** argv){
  24
  25   verbosity_level=3;
  26
  27   image_t *image=image_load((image_t *)NULL,"disk2.fortran.rk05");
  28   if (image) DEBUG("We got the image :-)\n");
  29
  30
  31   directory_t * directory=directory_read(&(image->part0));
  32
  33   os8_direntry_t * entry=directory->entries;
  34
  35   do{
  36     printf("File: %s\n",entry->name);
  37     entry=entry->next;
  38   } while (entry);
  39
  40
  41   //image_load(image,"focal71-boot-os8.tu56");
  42
  43
  44   //  int i;
  45   //for (i=0;i<5;i++){
  46   //   printf ("0%04o: 0%04o\n",i,image->data_words[i]&07777);
  47   // }
  48
  49   WARN("Huhu!\n");
  50   ERR("Huhu!\n");
  51   DBG("Huhu!\n");
  52   INFO("Huhu!\n");
  53
  54   exit_program(0);
  55   return 0;
  56
  57 }