From 637c52e4042e40b264cb4fc5a26f9bb3503fa14e Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 1 May 2018 16:09:12 +0100
Subject: [PATCH] Stub out DSKDATE.

Confusion's implementation uses a builtin that real Muddle doesn't have.
---
 src/cfs/ctell.2 | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

diff --git a/src/cfs/ctell.2 b/src/cfs/ctell.2
index cb8d43dd..f9336646 100644
--- a/src/cfs/ctell.2
+++ b/src/cfs/ctell.2
@@ -46,20 +46,8 @@
    <READSTRING .INBUF .INCHAN %<STRING <ASCII 10>> >
 >
 
-;"A DSKDATE contains
-Time in half-seconds in 0-17
-day of month ( 1-31) in 5 bits at bit 18
-month number ( 1-12) in 4 bits at bit 23
-year of century      in 7 bits at bit 27
-(Yes, it's not Y2K safe)"
-;"It's not necessary to do all the sets, but nesting putbits calls will
-make my head hurt a lot -- MTR"
-<DEFINE DSKDATE ("AUX" (DVEC <GETTIMEDATE>) (W #WORD 0) TM)
-  <SET W <PUTBITS .W <BITS 18 0> <+ </ <7 .DVEC> 500000> <* <1 .DVEC> 2> <* <2 .DVEC> 120> <* <3 .DVEC> 7200>>>>
-  <SET W <PUTBITS .W <BITS 7 27> <MOD <6 .DVEC> 100>>>  ;"Year"
-  <SET W <PUTBITS .W <BITS 4 23> <5 .DVEC>>>  ;"Month"
-  <SET W <PUTBITS .W <BITS 5 18> <4 .DVEC>>>  ;"Day of Month"
->
+; "A valid date in 1980"
+<DEFINE DSKDATE () #WORD 10746068993>
 
 ; "ATMFIX takes the atom, gets the first 36 bits of the PNAME (as with PSTRING), does some bit manipulation on it and on the value of SRUNM (the user name), and returns the result as a fix.  Probably intended to prevent save file sharing
 ATMFIX may also be passed a PSTRING, in which case it does the same bit