Υπολογισμός Πάσχα για C=64!!!
- Darth_Cotsos
-
Συντάκτης θέματος
- Platinum Member
-
Λιγότερα
Περισσότερα
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
28/07/2012 21:58 - 28/07/2012 21:59 #1067
από Darth_Cotsos
Don't underestimate the power of the 8bit side!
Υπολογισμός Πάσχα για C=64!!! δημιουργήθηκε από Darth_Cotsos
Για να ανέβουμε σιγά σιγά επίπεδο και να περάσουμε από την αγαπημένη Basic στη C.
Για τα αγαπημένα μας home computers έχουν κυκλοφορήσει τελευταία αρκετοί cross compilers. Με την έννοια cross compiler εννοούμε έναν compiler που τρέχει σε διαφορετικό υπολογιστή από αυτόν για τον οποίο παράγει τον τελικό κώδικά.
Έτσι για τον commodore 64 υπάρχει ο cc65. O οποίος τρέχει στο PC και παράγει εκτελέσιμο αρχείο για τον C=64!!!
O compiler βρίσκετε εδώ:http://www.cc65.org/
Αλλά για αυτόν θα μιλήσουμε σε άλλο θέμα!!
Θέλοντας να τον δοκιμάσω όταν τον είχα πρωτοβρεί έφτιαξα ένα απλό πρόγραμμα εύρεσης του Ορθόδοξου Πάσχα.
Και να το λοιπόν στον δικό σας commodore να σας λέει πότε έχουμε Πάσχα!!! Εσείς απλά εισάγετε την χρονιά!!!
Και για όσους έχουν ανησυχίες ιδού και ο κώδικας!!!
Για τα αγαπημένα μας home computers έχουν κυκλοφορήσει τελευταία αρκετοί cross compilers. Με την έννοια cross compiler εννοούμε έναν compiler που τρέχει σε διαφορετικό υπολογιστή από αυτόν για τον οποίο παράγει τον τελικό κώδικά.
Έτσι για τον commodore 64 υπάρχει ο cc65. O οποίος τρέχει στο PC και παράγει εκτελέσιμο αρχείο για τον C=64!!!
O compiler βρίσκετε εδώ:http://www.cc65.org/
Αλλά για αυτόν θα μιλήσουμε σε άλλο θέμα!!
Θέλοντας να τον δοκιμάσω όταν τον είχα πρωτοβρεί έφτιαξα ένα απλό πρόγραμμα εύρεσης του Ορθόδοξου Πάσχα.
Και να το λοιπόν στον δικό σας commodore να σας λέει πότε έχουμε Πάσχα!!! Εσείς απλά εισάγετε την χρονιά!!!
Και για όσους έχουν ανησυχίες ιδού και ο κώδικας!!!
//Υπολογισμός Πάσχα για Commodore 64
#include <stdio.h>
#include <conio.h>
int main(void)
{
int FD,R19,tmp,d,m,Y,tA,tB,tC,tD,tE;
Y=0;
clrscr();
printf("Orthodox Easter Caculator for C=64\n");
printf("Please give the year:\n\n");
scanf ("%d",&Y);
FD= Y/100;
R19= Y % 19;
tA = ((255-11*R19) % 30)+21;
tB = (tA-19) % 7;
tC = (40-FD) % 7;
tmp = Y % 100;
tD = (tmp + tmp/4) % 7;
tE = ((20 -tB - tC - tD) % 7)+1;
d = tA +tE;
tmp = 10;
if (Y > 1600)
tmp = tmp+FD-16-((FD-16)/4);
d = d+tmp;
if (d>61)
{
d=d-61;
m=5;
}
else
if (d>31)
{
d=d-31;
m=4;
}
else
m=3;
printf("%d/%d\n",d,m);
printf("\nProgram by Darth_Cotsos\n");
return 0;
} Don't underestimate the power of the 8bit side!
Οι ακόλουθοι χρήστες είπαν "Σε Ευχαριστώ": Fotis_KFOR, zx_jim, GeoAnas, DUser1
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- geo1977
-
- Elite Member
-
Λιγότερα
Περισσότερα
- Δημοσιεύσεις: 313
- Ληφθείσες Ευχαριστίες 129
29/07/2012 07:54 #1089
από geo1977
Απαντήθηκε από geo1977 στο θέμα Απ: Υπολογισμός Πάσχα για C=64!!!
Αμ πως τι τα τα έχουμε τα πτυχία ....αλλη μια προσφορά απο τον Κώστα....
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Fotis_KFOR
-
- Site Owner / Admin
-
- PC / Sinclair ZX Spectrum+3
29/07/2012 14:19 #1172
από Fotis_KFOR
My Collection / Projects / Various :
Computers , Consoles-Pongs , Various , Not-working , Handhelds-Tabletops , Intel p4004 (First CPU) , Old Hardware Parts , Magazines ,
Retro Computer Project , M.A.M.E. Cabinets , My Retro Computers & Consoles Room
UP THE IRONS!!! - My Iron Maiden Collection
My Wish List : www.retrocomputers.gr/collection/my-wish-list ;)
KEEP RETRO
Απαντήθηκε από Fotis_KFOR στο θέμα Απ: Υπολογισμός Πάσχα για C=64!!!
Κώστας.
Δεν περιγράφω άλλο
Δεν περιγράφω άλλο
My Collection / Projects / Various :
Computers , Consoles-Pongs , Various , Not-working , Handhelds-Tabletops , Intel p4004 (First CPU) , Old Hardware Parts , Magazines ,
Retro Computer Project , M.A.M.E. Cabinets , My Retro Computers & Consoles Room
UP THE IRONS!!! - My Iron Maiden Collection
My Wish List : www.retrocomputers.gr/collection/my-wish-list ;)
KEEP RETRO
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
Χρόνος δημιουργίας σελίδας: 0.233 δευτερόλεπτα