Flop Magazin 15/Flop_Magazin_15_1991_United_Electronic_Crazies_cs_Side_A.atr/hatabs.c

Text File | 2023-02-26 | 794b | 1 lines

main()¢$(¢char *hat;¢int  *drv;¢char k;¢int adr,i,j;¢char nam[10];¢char nan[10];¢/*------------------------*/¢¢¢nam[0]='O';nam[1]='C';nam[2]='G';¢nam[3]='P';nam[4]='S';nam[5]='S';¢¢nan[0]='P';nan[1]='L';nan[2]='T';¢nan[3]='T';nan[4]='T';nan[5]='P';¢¢printf("Vypis tabulky hatabs\nProgrammed by Rudolf Kudla\n\n");¢¢¢hat=794;¢k=1;¢/*---------------------------------*/¢¢for (i=1;i<12;i++)¢$(¢ printf("%2i. %u : $%x - ",i,hat,hat);¢ k=*hat;¢ hat++;¢¢ adr=(*hat++)+256*(*hat++);¢ if (k!=0) ¢ $(¢printf("%c: $%4x : %5u\n",k,adr,adr);¢printf("----------------\n\n");¢¢¢drv=adr;¢¢/*---------------------------------*/¢ for (j=0;j<6;j++)¢   $(¢    adr=*drv;¢    adr++;¢printf("%c%c:$%4x : %5u\n" ,nam[j],nan[j],adr,adr);¢    drv++;¢   $)¢/*---------------------------------*/¢printf("\n\n");¢$)¢$)¢$)¢