38a865f73addd54a96f439fa3f552b0f0ab4656f
6 #include "structures.h"
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); \
18 /*************************************************/
23 int main(int argc
, char** argv
){
27 image_t
*image
=image_load((image_t
*)NULL
,"disk2.fortran.rk05");
28 if (image
) DEBUG("We got the image :-)\n");
31 directory_t
* directory
=directory_read(&(image
->part0
));
33 os8_direntry_t
* entry
=directory
->entries
;
36 printf("File: %s\n",entry
->name
);
41 //image_load(image,"focal71-boot-os8.tu56");
46 // printf ("0%04o: 0%04o\n",i,image->data_words[i]&07777);