DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦d2525797c⟧ EM, TextFile

    Length: 665 (0x299)
    Types: EM, TextFile
    Names: »LOAD_CALENDAR.EM«

Derivation

└─⟦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« 

TextFile

!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]