|
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: 1024 (0x400)
Types: EM, TextFile
Names: »LOAD_CALENDAR.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »LOAD_CALENDAR.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »LOAD_CALENDAR.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦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]«nul»