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

⟦0c0ac35d6⟧ TextFile

    Length: 2420 (0x974)
    Types: TextFile
    Names: »RESTORE_CURSOR.S«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!LN.D!SOURCE.D!RESTORE_CURSOR.S«

TextFile

BEGIN
CREATE 0 #120F 7 16
APPEND #120F 0 (#1111)
INITREAD #120F 16 DUMP
APPEND #120F 6 (#0001 #107F #1201)
INITREAD #120F 16 DUMP
APPEND #120F 6 (#2001 #107F #1221)
CREATE 0 #122F 7 130
WAITINIT 20
WAITINIT 20
"
"
"CLEAR MEMORY
"-------------
"
INITREAD #122F 128 DUMP
APPEND #122F 8 (#0003 #031E #0E04 #522B)
WAITINIT 20
"
"
"ASSIGN SPLIT 0
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 17 (#0103 #0C1E #0E04 #532B #3030 #3031 #3831 #3230 #0037)
WAITINIT 20
"
"FORMAT MODE OFF
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 11 (#0403 #061E #0E04 #572B #0E30 #0040)
WAITINIT 20
"
"
"CLEAR SPLIT 0
"-------------
"
INITREAD #122F 128 DUMP
APPEND #122F 11 (#0503 #061E #0E04 #572B #0E30 #0052)
WAITINIT 20
"
"DEFINE USER FIELD
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 23 (#0603 #121E #0D04 #0D0D #2020 #2020 #4554 #5453 #4946 #4C45 #2044 #0020)
WAITINIT 20
"
"
INITREAD #122F 128 DUMP
APPEND #122F 19 (#0803 #0E1E #0E04 #4027 #0E08 #4427 #0E41 #4228 #3030 #0032)
WAITINIT 20
"
"
"DATA IN SPLIT 0
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 26 (#0703 #151E #0D04 #0D0D #0D0D #0D0D #0D0D #0D0D  #0D0D #0D0D #0D0D #0D0D #0D0D)
APPEND #122F 25 (#0703 #141E #0D04 #0D0D #0D0D #0D0D #0D0D #0D0D  #0D0D #0D0D #0D0D #0D0D #0D0D)
APPEND #122F 14 (#0703 #091E #4104 #4342 #4544 #4746 #4948)
WAITINIT 20
"
"
"INHIBIT RESTORE CURSOR
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 8 (#0803 #031E #0E04 #5F2B)
WAITINIT 20
"
"
"FIRST LINE DISPLAY IN SPLIT 0
"-------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 15 (#0A03 #0A1E #0E04 #572B #0E30 #3024 #3030 #0031)
WAITINIT 20
"
"
"DATA IN USER FIELD
"-------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 10 (#0903 #051E #0F04 #2C20 #4241)
WAITINIT 20
"
"
"RESTORE CURSOR
"----------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 7 (#0A03 #021E #0E04 #0034)
WAITINIT 20
"
"
"DATA IN SPLIT 0
"------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 14 (#0B03 #091E #6104 #6362 #6564 #6766 #6968)
WAITINIT 20
"
"
"FIRST LINE DISPLAY IN SPLIT 0
"-------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 15 (#0A03 #0A1E #0E04 #572B #0E30 #3024 #3030 #0031)
WAITINIT 20
"
"
"FORMAT MODE ON
"--------------
"
INITREAD #122F 128 DUMP
APPEND #122F 11 (#0B03 #061E #0E04 #572B #0E30 #0041)
WAITINIT 20
"
"
CANCEL CRID #120F
CANCEL CRID #122F
DISMANTLE #122F
DISMANTLE #120F
END