DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2ab018ba0⟧ TextFile

    Length: 2316 (0x90c)
    Types: TextFile
    Names: »MESSAGE3_MSP«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!CAH.D!MESSAGE3_MSP«

TextFile

BEGIN
DEFINE PATTERN 1 = '(:03:)(:51:)(:10:)ENTIRE LDU MED <LF> I STARTEN. '
DEFINE PATTERN 2 = '(:03:)(:52:)ENTIRE LDU MED <LF>(:10:) I MIDTEN.'
DEFINE PATTERN 3 = '(:03:)(:63:)ENTIRE LDU ENTIRE LDU ENTIRE LDU ENTIRE LDU ENTIRE LDU.(:10:)'
DEFINE PATTERN 4 = '(:01:)(:01:)START AF LDU. '
DEFINE PATTERN 5 = '(:00:)PART OF LDU. '
DEFINE PATTERN 6 = '(:02:)LAST OF LDU.(:10:) '
DEFINE PATTERN 7 = '(:03:)(:30:)TO: '
CREATE 0 #110F 7 16
APPEND #110F 0 (#1111)
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #0001 #107F #1101 )
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #2001 #107F #1121 )
CREATE 0 #112F 7 130
INITREAD #112F  84 DUMP
APPEND #112F 4 ( #0407 #0000 )    "OPEN CHANNEL"
APPEND #112F 3 ( #0007 #000E )    "INPUT REQUEST"
APPEND #112F 16 PATTERN 4         "OUTPUT DATA"
APPEND #112F 14 PATTERN 5
APPEND #112F 14 PATTERN 6
WAITINIT 50
READ #112F 84 DUMP                "WAIT FOR VDU INPUT"
APPEND #112F 3 ( #0007 #000E )    "INPUT REQUEST"
READ #112F 84 DUMP                "WAIT FOR <BREAK>"
INITREAD #112F  84 DUMP
APPEND #112F 5 PATTERN 7          "OUTPUT TO:"
WAITINIT 50
INITREAD #112F 84 DUMP
APPEND #112F 3 ( #0107 #000A )    "CANCEL INPUT REQUEST"
WAITINIT 50                       "WAIT FOR CANCEL RESPONSE"
INITREAD #112F 84 DUMP
DELAY 150                         "DELAY INPUT REQUEST DURING VDU INPUT"
APPEND #112F 3 ( #0007 #0020 )    "INPUT REQUEST"
WAITINIT 50                       "NOW ABOVE DATA IS FORWARDED TO CR80"
APPEND #112F 3 ( #0007 #0020 )    "INPUT REQUEST"
READ #112F 84 DUMP                "WAIT FOR VDU INPUT"
INITREAD #112F  84 DUMP
DELAY 100                         "TYPE ONE LINE AT VDU"
DELAY 100                         "TYPE LINE AT VDU, WITHOUT RETURN"
APPEND #112F 2 ( #0407 #0000 )    "OPEN CHANNEL (BUFFER RESET)"
APPEND #112F 3 ( #0007 #0022 )    "INPUT REQUEST"
WAITINIT 100
INITREAD #112F  84 DUMP
APPEND #112F 3 ( #0007 #00FF )
APPEND #112F 58 PATTERN 3
INITREAD #112F  84 DUMP
APPEND #112F 34 PATTERN 1
INITREAD #112F  84 DUMP
APPEND #112F 32 PATTERN 2
WAITINIT 50
READ #112F 84 DUMP
APPEND #112F 3 ( #0007 #00F0 )
READ #112F 84 DUMP
APPEND #112F 3 ( #0007 #00F1 )
READ #112F 84 DUMP
APPEND #112F 3 ( #0007 #00F2 )
READ #112F 84 DUMP
APPEND #112F 3 ( #0007 #00F3 )
READ #112F 84 DUMP
LIST OPERATIONS
CANCEL CRID #110F
CANCEL CRID #112F
DISMANTLE #110F
DISMANTLE #112F
END