|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1610 (0x64a)
Types: TextFile
Names: »TDX_LOOP3«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »USERS.D!CAH.D!TDX_LOOP3«
BEGIN
DEFINE PATTERN 1 = '1-------------------------------------------------------------------------------'
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 ( #3001 #107F #1131 )
CREATE 0 #123F 6 519
CREATE 0 #124F 6 519
CREATE 0 #125F 6 519
CREATE 0 #126F 6 519
CREATE 0 #127F 6 519
CREATE 0 #128F 6 519
CREATE 0 #129F 6 519
CREATE 0 #12AF 6 519
CREATE 0 #12BF 6 519
CREATE 0 #12CF 6 519
CREATE 0 #133F 6 519
CREATE 0 #134F 6 519
CREATE 0 #135F 6 519
CREATE 0 #136F 6 519
CREATE 0 #137F 6 519
CREATE 0 #138F 6 519
CREATE 0 #139F 6 519
CREATE 0 #13AF 6 519
CREATE 0 #113F 10 519 "ACTIVE CHANNEL"
CREATE 0 #13BF 6 519
CREATE 0 #13CF 6 519
CREATE 0 #143F 6 519
CREATE 0 #144F 6 519
CREATE 0 #145F 6 519
CREATE 0 #146F 6 519
CREATE 0 #147F 6 519
CREATE 0 #148F 6 519
CREATE 0 #149F 6 519
CREATE 0 #14AF 6 519
CREATE 0 #14BF 6 519
CREATE 0 #14CF 6 519
REPEAT #FFFF
BEGIN
INITREAD #113F 6 EXPECT PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
APPEND #113F 6 PATTERN 1
APPEND #113F 6 PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
APPEND #113F 6 PATTERN 1
APPEND #113F 6 PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
APPEND #113F 6 PATTERN 1
APPEND #113F 6 PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
INITREAD #113F 6 EXPECT PATTERN 1
APPEND #113F 6 PATTERN 1
APPEND #113F 6 PATTERN 1
END
LIST OPERATIONS
CANCEL CRID #110F
CANCEL CRID #113F
DISMANTLE #110F
DISMANTLE #113F
END