|
|
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 - metrics - download
Length: 4134 (0x1026)
Types: TextFile
Names: »DELTA.TEST.SRC«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─⟦this⟧ »HKH.D!DELTA.TEST.SRC«
PROCEDURE IO_DELTA_INI
BEGIN
DEFINE PATTERN 1 = #6D0E "BTTY MODE"
DEFINE PATTERN 2 = #17 "START OF MESSAGE"
DEFINE PATTERN 3 = #5E0E "END OF MESSAGE"
DEFINE PATTERN 4 = #520E "CLEAR SPLIT MEMORY"
DEFINE PATTERN 5 = #3B0E "ENTER"
DEFINE PATTERN 6 = '(:30:)(:71:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&*:@;><[](:10:)(:13:)'
DEFINE PATTERN 7 = #08 "CURSOR LEFT"
APPEND #133F 1 PATTERN 2
APPEND #135F 1 PATTERN 2
APPEND #137F 1 PATTERN 2
APPEND #139F 1 PATTERN 2
REPEAT 6
BEGIN
INITAPPEND #133F 73 PATTERN 6
INITAPPEND #135F 73 PATTERN 6
INITAPPEND #137F 73 PATTERN 6
INITAPPEND #139F 73 PATTERN 6
END
DELAY 50
APPEND #133F 2 PATTERN 3
APPEND #135F 2 PATTERN 3
APPEND #137F 2 PATTERN 3
APPEND #139F 2 PATTERN 3
REPEAT 6
BEGIN
INITREAD #133F 80 DUMP
INITREAD #135F 80 DUMP
INITREAD #137F 80 DUMP
INITREAD #139F 80 DUMP
END
INITAPPEND #133F 2 PATTERN 5
INITAPPEND #135F 2 PATTERN 5
INITAPPEND #137F 2 PATTERN 5
INITAPPEND #139F 2 PATTERN 5
DELAY 100
END
PROCEDURE IO_DELTA
BEGIN
DEFINE PATTERN 1 = #6D0E "BTTY MODE"
DEFINE PATTERN 2 = #17 "START OF MESSAGE"
DEFINE PATTERN 3 = #5E0E "END OF MESSAGE"
DEFINE PATTERN 4 = #520E "CLEAR SPLIT MEMORY"
DEFINE PATTERN 5 = #3B0E "ENTER"
DEFINE PATTERN 6 = '(:30:)(:71:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&*:@;><[](:10:)(:13:)'
DEFINE PATTERN 7 = #08 "CURSOR LEFT"
APPEND #133F 1 PATTERN 7
APPEND #135F 1 PATTERN 7
APPEND #137F 1 PATTERN 7
APPEND #139F 1 PATTERN 7
APPEND #133F 1 PATTERN 2
APPEND #135F 1 PATTERN 2
APPEND #137F 1 PATTERN 2
APPEND #139F 1 PATTERN 2
REPEAT 6
BEGIN
INITAPPEND #133F 73 PATTERN 6
INITAPPEND #135F 73 PATTERN 6
INITAPPEND #137F 73 PATTERN 6
INITAPPEND #139F 73 PATTERN 6
END
DELAY 50
APPEND #133F 2 PATTERN 3
APPEND #135F 2 PATTERN 3
APPEND #137F 2 PATTERN 3
APPEND #139F 2 PATTERN 3
REPEAT 6
BEGIN
INITREAD #133F 80 DUMP
INITREAD #135F 80 DUMP
INITREAD #137F 80 DUMP
INITREAD #139F 80 DUMP
END
INITAPPEND #133F 2 PATTERN 5
INITAPPEND #135F 2 PATTERN 5
INITAPPEND #137F 2 PATTERN 5
INITAPPEND #139F 2 PATTERN 5
DELAY 100
END
BEGIN
DEFINE PATTERN 1 = #6D0E "BTTY MODE"
DEFINE PATTERN 2 = #17 "START OF MESSAGE"
DEFINE PATTERN 3 = #5E0E "END OF MESSAGE"
DEFINE PATTERN 4 = #520E "CLEAR SPLIT MEMORY"
DEFINE PATTERN 5 = #3B0E "ENTER"
DEFINE PATTERN 6 = '(:30:)(:71:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&*:@;><[](:10:)(:13:)'
DEFINE PATTERN 7 = #08 "CURSOR LEFT"
CREATE 0 #130F 5 16
APPEND #130F 0 ( #BB )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #0001 #103F #1301 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #2001 #103F #1321 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #3001 #103F #1331 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #4001 #103F #1341 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #5001 #103F #1351 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #6001 #103F #1361 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #7001 #103F #1371 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #8001 #103F #1381 )
INITREAD #130F 16 DUMP
APPEND #130F 6 ( #9001 #103F #1391 )
DISMANTLE #130F
CREATE 0 #132F 5 16
CREATE 0 #133F 5 80
CREATE 0 #134F 5 16
CREATE 0 #135F 5 80
CREATE 0 #136F 5 16
CREATE 0 #137F 5 80
CREATE 0 #138F 5 16
CREATE 0 #139F 5 80
APPEND #133F 0 ( #BB )
APPEND #135F 0 ( #BB )
APPEND #137F 0 ( #BB )
APPEND #139F 0 ( #BB )
APPEND #133F 2 PATTERN 1
APPEND #135F 2 PATTERN 1
APPEND #137F 2 PATTERN 1
APPEND #139F 2 PATTERN 1
APPEND #133F 2 PATTERN 4
APPEND #135F 2 PATTERN 4
APPEND #137F 2 PATTERN 4
APPEND #139F 2 PATTERN 4
IO_DELTA_INI
IO_DELTA
IO_DELTA
IO_DELTA
LIST OPERATIONS
CANCEL CRID #132F
CANCEL CRID #133F
CANCEL CRID #134F
CANCEL CRID #135F
CANCEL CRID #136F
CANCEL CRID #137F
CANCEL CRID #138F
CANCEL CRID #139F
DISMANTLE #132F
DISMANTLE #133F
DISMANTLE #134F
DISMANTLE #135F
DISMANTLE #136F
DISMANTLE #137F
DISMANTLE #138F
DISMANTLE #139F
END