Große Umstellung. Viel hinzugefügt.

[h316.git] / lib / fortran / vpunch-help / use.c

extern char fontdata_8x16[4096];

#include <stdio.h>

signed  short cb (unsigned char a, unsigned char b){
    short result=a<<8;
    result+=b;
    return result;
}

char tw(char in){
    char out=0;
    int c;
    for (c=0; c<8; c++){
	if (in&(1<<c)) out|=0x80>>c;
    }
    return out; 
}

int main (int argc, char ** argv){
    int c;
    int a;
    for (c=0; c<4096; c++) fontdata_8x16[c]=tw(fontdata_8x16[c]);
//    printf("\tSUBR\tFONT\n");
    for (a=0; a<256; a++){
	char * fd =fontdata_8x16 + (a<<4);
	if (a==0) printf("FONT\t"); else printf("\t");
	printf("DEC\t%i,%i,%i,%i\n\tDEC\t%i,%i,%i,%i\n",
	cb(fd[0],fd[1]),cb(fd[2],fd[3]),cb(fd[4],fd[5]), cb(fd[6],fd[7]), 
	cb(fd[8],fd[9]),cb(fd[10],fd[11]),cb(fd[12],fd[13]), cb(fd[14],fd[15]));
    }
    printf("\tEND\n");
    return 0;
}