DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e0e91ba56⟧ TextFile

    Length: 986 (0x3da)
    Types: TextFile
    Names: »CLOCK.S«

Derivation

└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM )
    └─⟦95f1eafb2⟧ 
        └─ ⟦this⟧ »GR1.D!CLOCK.D!CLOCK.S« 
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
    └─⟦feb1d529a⟧ 
        └─ ⟦this⟧ »GR1.D!CLOCK.D!CLOCK.S«

TextFile

#include <std.h>
#include <KERNELPREFIX.H>

main ()
{
  int event, evttyp;
  MESSAGE_BUFFER dummy_msg;
  RTC_TIME rtc_time;
  int noch;

  putfmt ("\033[2J\033[12;32H");
  putch (-1);
  while (1)
  {
    evttyp = knwait_event ((SIGNAL | DELAY | MESSAGE), dummy_msg, 10, &event);
    switch (evttyp)
    {
      case SIGNAL_TYPE  : return (1);
      case MESSAGE_TYPE  :
        for (noch = 0; noch < sizeof dummy_msg; noch++)
          dummy_msg [noch] += dummy_msg [noch];
        knsend_answer (dummy_msg, event);
        putch (7);
      case TIME_OUT_TYPE:
        knread_rtc (&rtc_time);
        putfmt ("%+02i-%+02i-%+02i %+02i:%+02i:%+02i",
          rtc_time.yymm >> 8,
          rtc_time.yymm &0xFF,
          rtc_time.ddhh >> 8,
          rtc_time.ddhh &0xFF,
          rtc_time.mmss >> 8,
          rtc_time.mmss &0xFF);

        for (noch = 0; noch < 17; noch++)
          putch (8);
        if (!(rtc_time.mmss &0xFF))
          putch (7);
        putch (-1);
    }
  }
} «a5»