home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 15
/
Flop_Magazin_15_1991_United_Electronic_Crazies_cs_Side_A.atr
/
hatabs.c
< prev
next >
Wrap
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");¢$)¢$)¢$)¢