|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2526 (0x9de)
Types: TextFile
Names: »CLOCK.P«
└─⟦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.P«
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
└─⟦feb1d529a⟧
└─ ⟦this⟧ »GR1.D!CLOCK.D!CLOCK.P«
C Compiler Version 0301 1986.10.06 14:29:58 Page: 1 Source: CLOCK.S
00.00001: #include <std.h>
01.00001: /*%NOLIST*/
00.00002: #include <KERNELPREFIX.H>
02.00001: /*%NOLIST*/
00.00003:
00.00004: main ()
00.00005: {
00.00006: int event, evttyp;
00.00007: MESSAGE_BUFFER dummy_msg;
00.00008: RTC_TIME rtc_time;
00.00009: int noch;
00.00010:
00.00011: putfmt ("\033[2J\033[12;32H");
00.00012: putch (-1);
00.00013: while (1)
00.00014: {
00.00015: evttyp = knwait_event ((SIGNAL | DELAY | MESSAGE), dummy_msg, 10, &event);
00.00016: switch (evttyp)
00.00017: {
00.00018: case SIGNAL_TYPE : return (1);
00.00019: case MESSAGE_TYPE :
00.00020: for (noch = 0; noch < sizeof dummy_msg; noch++)
00.00021: dummy_msg [noch] += dummy_msg [noch];
00.00022: knsend_answer (dummy_msg, event);
00.00023: putch (7);
00.00024: case TIME_OUT_TYPE:
00.00025: knread_rtc (&rtc_time);
00.00026: putfmt ("%+02i-%+02i-%+02i %+02i:%+02i:%+02i",
00.00027: rtc_time.yymm >> 8,
00.00028: rtc_time.yymm &0xFF,
00.00029: rtc_time.ddhh >> 8,
00.00030: rtc_time.ddhh &0xFF,
00.00031: rtc_time.mmss >> 8,
00.00032: rtc_time.mmss &0xFF);
00.00033:
00.00034: for (noch = 0; noch < 17; noch++)
00.00035: putch (8);
00.00036: if (!(rtc_time.mmss &0xFF))
00.00037: putch (7);
00.00038: putch (-1);
00.00039: }
00.00040: }
00.00041: }
«ff»
No. of preprocessing errors = 0
No. of pass 1 errors = 0
«ff»
C Debug Table:
SOURCE STORAGE STORAGE DATA-ALLOCATION
LINE NAME TYPE TYPE CLASS OFFS. BASE SIZE
--------------------------------------------------------------------------
01.00094 STDOUT var short extern
01.00094 STDIN var short extern
01.00094 STDERR var short extern
--------------------------------------------------------------------------
00.00005 main func func=>short extern
00.00006 event var short auto -1 R6 1
00.00006 evttyp var short auto -2 R6 1
00.00007 dummy_msg var []short auto -7 R6 5
00.00008 rtc_time var struct auto -10 R6 3
00.00009 noch var short auto -11 R6 1 «a5»