|
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: 5282 (0x14a2)
Types: TextFile
Names: »DELTA.TEST_2.SRC«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »HKH.D!DELTA.TEST_2.SRC«
PROCEDURE OUTPUT_DELTA
BEGIN
DEFINE PATTERN 1 = '(:30:)(:71:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&*:@;><[](:10:)(:13:)'
REPEAT 6
BEGIN
INITAPPEND #133F 73 PATTERN 1
INITAPPEND #135F 73 PATTERN 1
INITAPPEND #137F 73 PATTERN 1
INITAPPEND #139F 73 PATTERN 1
END
END
PROCEDURE INPUT_DELTA
BEGIN
DEFINE PATTERN 10 = #3B0E "ENTER"
REPEAT 6
BEGIN
INITREAD #133F 80 DUMP
INITREAD #135F 80 DUMP
INITREAD #137F 80 DUMP
INITREAD #139F 80 DUMP
END
INITAPPEND #133F 2 PATTERN 10
INITAPPEND #135F 2 PATTERN 10
INITAPPEND #137F 2 PATTERN 10
INITAPPEND #139F 2 PATTERN 10
END
BEGIN
DEFINE PATTERN 1 = #6D0E "BTTY MODE"
DEFINE PATTERN 2 = #520E "CLEAR SPLIT MEMORY"
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 2
APPEND #135F 2 PATTERN 2
APPEND #137F 2 PATTERN 2
APPEND #139F 2 PATTERN 2
OUTPUT_DELTA
OUTPUT_DELTA
OUTPUT_DELTA
OUTPUT_DELTA
WAITINIT 300 " AWAIT INITAPPENDS TO COMPLETE "
DEFINE PATTERN 1 = #17 " SOM "
DEFINE PATTERN 2 = #5E0E " EOM "
DEFINE PATTERN 3 = #1A " CURSOR UP "
DEFINE PATTERN 4 = #0B " CURSOR DOWN "
DEFINE PATTERN 5 = #08 " CURSOR LEFT "
DEFINE PATTERN 6 = #19 " CURSOR RIGTH "
DEFINE PATTERN 7 = #510E " CURSOR HOME "
DEFINE PATTERN 8 = #6B0E " INSERT START WITH AUTO EXIT "
APPEND #133F 2 PATTERN 7
APPEND #135F 2 PATTERN 7
APPEND #137F 2 PATTERN 7
APPEND #139F 2 PATTERN 7
APPEND #133F 2 PATTERN 8
APPEND #135F 2 PATTERN 8
APPEND #137F 2 PATTERN 8
APPEND #139F 2 PATTERN 8
APPEND #133F 1 PATTERN 1
APPEND #135F 1 PATTERN 1
APPEND #137F 1 PATTERN 1
APPEND #139F 1 PATTERN 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
REPEAT 6 APPEND #133F 1 PATTERN 4
REPEAT 6 APPEND #135F 1 PATTERN 4
REPEAT 6 APPEND #137F 1 PATTERN 4
REPEAT 6 APPEND #139F 1 PATTERN 4
APPEND #133F 2 PATTERN 8
APPEND #135F 2 PATTERN 8
APPEND #137F 2 PATTERN 8
APPEND #139F 2 PATTERN 8
APPEND #133F 2 PATTERN 2
APPEND #135F 2 PATTERN 2
APPEND #137F 2 PATTERN 2
APPEND #139F 2 PATTERN 2
INPUT_DELTA
DELAY 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
APPEND #133F 1 PATTERN 1
APPEND #135F 1 PATTERN 1
APPEND #137F 1 PATTERN 1
APPEND #139F 1 PATTERN 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
REPEAT 6 APPEND #133F 1 PATTERN 4
REPEAT 6 APPEND #135F 1 PATTERN 4
REPEAT 6 APPEND #137F 1 PATTERN 4
REPEAT 6 APPEND #139F 1 PATTERN 4
APPEND #133F 2 PATTERN 8
APPEND #135F 2 PATTERN 8
APPEND #137F 2 PATTERN 8
APPEND #139F 2 PATTERN 8
APPEND #133F 2 PATTERN 2
APPEND #135F 2 PATTERN 2
APPEND #137F 2 PATTERN 2
APPEND #139F 2 PATTERN 2
INPUT_DELTA
DELAY 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
APPEND #133F 1 PATTERN 1
APPEND #135F 1 PATTERN 1
APPEND #137F 1 PATTERN 1
APPEND #139F 1 PATTERN 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
REPEAT 6 APPEND #133F 1 PATTERN 4
REPEAT 6 APPEND #135F 1 PATTERN 4
REPEAT 6 APPEND #137F 1 PATTERN 4
REPEAT 6 APPEND #139F 1 PATTERN 4
APPEND #133F 2 PATTERN 8
APPEND #135F 2 PATTERN 8
APPEND #137F 2 PATTERN 8
APPEND #139F 2 PATTERN 8
APPEND #133F 2 PATTERN 2
APPEND #135F 2 PATTERN 2
APPEND #137F 2 PATTERN 2
APPEND #139F 2 PATTERN 2
INPUT_DELTA
DELAY 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
APPEND #133F 1 PATTERN 1
APPEND #135F 1 PATTERN 1
APPEND #137F 1 PATTERN 1
APPEND #139F 1 PATTERN 1
APPEND #133F 1 PATTERN 5
APPEND #135F 1 PATTERN 5
APPEND #137F 1 PATTERN 5
APPEND #139F 1 PATTERN 5
REPEAT 6 APPEND #133F 1 PATTERN 4
REPEAT 6 APPEND #135F 1 PATTERN 4
REPEAT 6 APPEND #137F 1 PATTERN 4
REPEAT 6 APPEND #139F 1 PATTERN 4
APPEND #133F 2 PATTERN 8
APPEND #135F 2 PATTERN 8
APPEND #137F 2 PATTERN 8
APPEND #139F 2 PATTERN 8
APPEND #133F 2 PATTERN 2
APPEND #135F 2 PATTERN 2
APPEND #137F 2 PATTERN 2
APPEND #139F 2 PATTERN 2
INPUT_DELTA
WAITINIT 300
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