|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 665 (0x299)
Types: EM, TextFile
Names: »LOAD_CALENDAR.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »LOAD_CALENDAR.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »LOAD_CALENDAR.EM«
!Prompts for the date and time and then loads the IOA's calendar chip
[eq,%1%,]
LOAD_CALENDAR [read DAY,OF,WEEK(SUNDAY=1):,];
[else][eq,%2%,]
LOAD_CALENDAR %1% [read MONTH:,];
[else][eq,%3%,]
LOAD_CALENDAR %1% %2% [read DAY,OF,MONTH:,];
[else][eq,%4%,]
LOAD_CALENDAR %1% %2% %3% [read YEAR(LAST,TWO,DIGITS):,];
[else][eq,%5%,]
LOAD_CALENDAR %1% %2% %3% %4% [read HOUR:,];
[else][eq,%6%,]
LOAD_CALENDAR %1% %2% %3% %4% %5% [read MINUTE:,];
[else][eq,%7%,]
LOAD_CALENDAR %1% %2% %3% %4% %5% %6% [read SECOND:,];
[else]
xeq IOA WRITE_CALENDAR %1% %2% %3% [hex,%4%] %5% %6% %7% 0 0;
DISP_CALENDAR;
[end][end][end][end][end][end][end]