/*
* RGB2R-C128-Kassenprogramm
- * © 2007-2009 phil_fry, sECuRE, sur5r
+ * © 2007-2017 phil_fry, sECuRE, sur5r, mxf
* See LICENSE for license information
*
*/
#include <peekpoke.h>
#include <stdlib.h>
#include <stdio.h>
-#include "general.h"
+#include <c128.h>
#include <stdint.h>
+#include <6502.h>
+#include <conio.h>
-char *get_time(void) {
- uint32_t h = PEEK(0x00A0) * 65536, m = PEEK(0x00A1) * 256, s = PEEK(0x00A2);
- static char buffer[9];
- BYTE hrs, min;
+#include "bcd2dec.h"
+#include "general.h"
+#include "globals.h"
+#include "vdc_util.h"
+
+/* This file uses the CIA TOD (Complex Interface Adapter, Time of Day)
+ * for timekeeping, see https://www.c64-wiki.com/wiki/CIA and its Links section
+ * for a bit more information */
+
+/* the Time of Day PM bit is set for hours >= 12 */
+#define TOD_PM 0x80
+
+/* VDC charmap starts at 0x0000; 80 chars per line.
+ * We want to draw at 72 chars on the 1st line.
+ */
+#define CLOCK_ADDR 72
+
+/* arbitrarly chosen stack size, should be large enough */
+#define DAYTIME_IRQ_STACK_SIZE 32
+uint8_t daytime_irq_stack[DAYTIME_IRQ_STACK_SIZE];
+
+void update_time(void) {
+ uint8_t bcd_hour, hour, min, sec, dummy;
+
+ /* Read the hour register first to stop the clock from updating the external
+ * registers from the internal (still ticking!) CIA registers. */
+
+ bcd_hour = CIA1.tod_hour;
+
+ /* hour is >= 12 if TOD_PM is set */
+ if (bcd_hour & TOD_PM) {
+ hour = bcd2dec(bcd_hour ^ TOD_PM);
+ /* adjust for 24h clock, 12:??pm should still be 12:?? */
+ if (hour != 12) {
+ hour += 12;
+ }
+ } else {
+ hour = bcd2dec(bcd_hour);
+ }
+
+ sec = bcd2dec(CIA1.tod_sec);
+ min = bcd2dec(CIA1.tod_min);
- h = (h + m + s) / 60;
- hrs = (h / 3600);
- h -= ((uint32_t)hrs * (uint32_t)3600);
- min = (h / 60);
- h -= (min * 60);
+ /* MUST read tod_10 to enable the clock latch again */
+ dummy = CIA1.tod_10;
- sprintf(buffer, "%02d:%02d:%02d", hrs, min, (BYTE)h);
+ /* it's a new day when hour wraps */
+ if (daytime.hour > hour) {
+ daytime.day++;
+ }
+
+ daytime.hour = hour;
+ daytime.min = min;
+ daytime.sec = sec;
+}
+
+char *get_time(void) {
+ static char buffer[9] = {0, 0, 0, 0, 0, 0, 0, 0, 0};
+ update_time();
+ sprintf(buffer, "%02d:%02d:%02d", daytime.hour, daytime.min, daytime.sec);
return buffer;
}
-void set_time(BYTE hrs, BYTE min, BYTE sec) {
- uint32_t added = ((uint32_t)sec + ((uint32_t)min * (uint32_t)60) +
- ((uint32_t)hrs * (uint32_t)3600)) *
- (uint32_t)60;
- uint32_t lowbit = (added & 0xFF);
- uint32_t middlebit = (added >> 8) & 0xFF;
- uint32_t highbit = (added >> 16) & 0xFF;
-
- POKE(0x00A0, (BYTE)highbit);
- POKE(0x00A1, (BYTE)middlebit);
- POKE(0x00A2, (BYTE)lowbit);
+/* divide by 10; put quotient in high nibble, remainder in low nibble */
+uint8_t dec2bcd(const uint8_t dec) { return (((dec / 10) << 4) | (dec % 10)); }
+
+void set_time(uint8_t day, uint8_t hour, uint8_t min, uint8_t sec) {
+ uint8_t bcd_hour;
+
+ /* CIA TOD will always flip the PM bit
+ * when we either want to write the 0th or 12th hour.
+ * So we need to write the hour with the PM bit inverted,
+ * for the CIA to flip it again */
+ if (hour == 0) {
+ /* the 0th hour is 12am in 12h clock format, 0x12 is BCD for 12 */
+ bcd_hour = 0x12 ^ TOD_PM;
+ } else if (hour > 12) {
+ /* convert 24h clock to 12h with PM bit set */
+ bcd_hour = dec2bcd(hour - 12);
+ bcd_hour = bcd_hour ^ TOD_PM;
+ } else {
+ /* includes 12pm since the PM bit gets automatically flipped */
+ bcd_hour = dec2bcd(hour);
+ }
+
+ daytime.day = day;
+ daytime.hour = hour;
+ daytime.min = min;
+ daytime.sec = sec;
+
+ CIA1.tod_hour = bcd_hour;
+ CIA1.tod_min = dec2bcd(min);
+ CIA1.tod_sec = dec2bcd(sec);
+
+ /* set CIA1.tod_10 and program "Control Timer A" */
+ __asm__("jsr initsystime");
+}
+
+uint8_t _daytime_irq(void) {
+ char *t;
+ /* We are called 60 times a second. We only want to draw a clock
+ * when we are a) on the mainscreen and b) the seconds changed */
+ if (kasse_menu == MENU_MAIN && CIA1.tod_sec != daytime.sec) {
+ t = get_time();
+ vdc_write_mem(CLOCK_ADDR, t, 8);
+ }
+ /* always call additional handlers */
+ return (IRQ_NOT_HANDLED);
+}
+
+void install_daytime_irq(void) {
+ SEI();
+ set_irq(&_daytime_irq, daytime_irq_stack, DAYTIME_IRQ_STACK_SIZE);
+ CLI();
}
/* Hauptbildschirm ausgeben */
static void print_screen(void) {
BYTE i = 0;
- char *time = get_time();
char profit[EUR_FORMAT_MINLEN + 1];
clrscr();
if (format_euro(profit, sizeof(profit), money) == NULL) {
profit[0] = '\0';
}
textcolor(TC_CYAN);
- cprintf("C128-Kassenprogramm (phil_fry, sECuRE, sur5r, mxf) " GV "\r\n");
+ /* fill whole line with cyan, so color bits are set up for the clock */
+ cprintf("%-80s", "C128-Kasse (phil_fry, sECuRE, sur5r, mxf) " GV);
textcolor(TC_LIGHT_GRAY);
- cprintf("\r\nUhrzeit: %s (wird nicht aktualisiert)\r\n"
- "Eingenommen: %s, Verkauft: %ld Dinge, Drucken: %s\r\n",
- time, profit, items_sold, (printing == 1 ? "ein" : "aus"));
+ cprintf("\r\n\r\n"
+ "Ertrag: %s (%ld Artikel); Drucken: %s\r\n",
+ profit, items_sold, (printing == 1 ? "ein" : "aus"));
textcolor(TC_LIGHT_GRAY);
cprintf(" \xB0"
"\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xC0\xB2"
}
void set_time_interactive(void) {
- BYTE part[3] = {'0', '0', '\0'};
- BYTE tp1, tp2, tp3;
+ char part[3] = {'\0', '\0', '\0'};
+ uint8_t day, tp1, tp2, tp3;
char *time_input, *time;
- cprintf("Gib die aktuelle Uhrzeit ein (Format HHMMSS):\r\n");
+ cprintf("Gib den aktuellen Tag des Events und Uhrzeit ein\r\n"
+ "Format DHHMMSS, 0-indexiert, z.B. 0174259 für \"erster Tag um "
+ "17:42:59\":\r\n");
time_input = get_input();
part[0] = time_input[0];
- part[1] = time_input[1];
+ day = atoi(part);
+ part[0] = time_input[1];
+ part[1] = time_input[2];
tp1 = atoi(part);
- part[0] = time_input[2];
- part[1] = time_input[3];
+ part[0] = time_input[3];
+ part[1] = time_input[4];
tp2 = atoi(part);
- part[0] = time_input[4];
- part[1] = time_input[5];
+ part[0] = time_input[5];
+ part[1] = time_input[6];
tp3 = atoi(part);
- set_time(tp1, tp2, tp3);
+ set_time(day, tp1, tp2, tp3);
time = get_time();
cprintf("\r\nZeit gesetzt: %s\r\n", time);
char *c;
char *time;
- init_globals();
+ printing = 1;
+ /* initialize daytime global, start the CIA TOD */
+ set_time(0, 0, 0, 0);
+ kasse_menu = MENU_UNDEFINED;
videomode(VIDEOMODE_80x25);
clrscr();
+ install_daytime_irq();
+
/* Allocate logging buffer memory */
init_log();
while (1) {
print_screen();
+ kasse_menu = MENU_MAIN;
c = get_input();
+ kasse_menu = MENU_UNDEFINED;
/* ...display dialogs eventually */
if (*c >= PETSCII_0 && *c <= PETSCII_9) {
/* if the input starts with a digit, we will interpret it as a number
projects / c128-kasse / commitdiff