github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-24 01:27:33 +00:00
Code Issues Releases Wiki Activity

Stub out DSKDATE.

Browse Source 
Confusion's implementation uses a builtin that real Muddle doesn't have.
This commit is contained in:
Adam Sampson
2018-05-01 16:09:12 +01:00
parent 501c2a7a91
commit 637c52e404
1 changed files with 2 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/cfs/ctell.2
View File

@@ -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