DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦d47bf6006⟧ TextFile

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »loadut«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦ebd72877b⟧ »tfput« 
            └─⟦this⟧ 

TextFile

clear user trcfput
contract init.trcfput
ut1=set mto mtut 0 1
uti1=copy ut1
ut2=set mto mtut 0 2
uti2=copy ut2
ut3=set mto mtut 0 3
uti3=copy ut3
ut4=set mto mtut 0 4
uti4=copy ut4
ut5=set mto mtut 0 5
uti5=copy ut5
ut6=set mto mtut 0 6
uti6=copy ut6
ut7=set mto mtut 0 7
uti7=copy ut7
ut8=set mto mtut 0 8
uti8=copy ut8
ut9=set mto mtut 0 9
uti9=copy ut9
ut10=set mto mtut 0 10
uti10=copy ut10
ut11=set mto mtut 0 11
uti11=copy ut11
ut12=set mto mtut 0 12
uti12=copy ut12
ut13=set mto mtut 0 13
uti13=copy ut13
ut14=set mto mtut 0 14
uti14=copy ut14
contract on.trcfput uti1 uti2 uti3 uti4 uti5 uti6 uti7 uti8 uti9,
uti10 uti11 uti12 uti13 uti14
clear temp uti1 uti3 uti4 uti5 uti6 uti7 uti8 uti9 uti10,
uti11 uti12 uti13 uti14 ut1 ut2 ut3 ut4 ut5 ut6 ut7 ut8 ut9 ut10,
ut11 ut12 ut13 ut14
ut15=set mto mtut 0 15
uti15=copy ut15
ut16=set mto mtut 0 16
uti16=copy ut16
ut17=set mto mtut 0 17
uti17=copy ut17
ut18=set mto mtut 0 18
uti18=copy ut18
ut19=set mto mtut 0 19
uti19=copy ut19
ut20=set mto mtut 0 20
uti20=copy ut20
ut21=set mto mtut 0 21
uti21=copy ut21
ut22=set mto mtut 0 22
uti22=copy ut22
ut23=set mto mtut 0 23
uti23=copy ut23
ut24=set mto mtut 0 24
uti24=copy ut24
contract on.trcfput uti15 uti16 uti17 uti18 uti19 uti20 uti21 uti22,
uti23 uti24
clear temp uti15 uti16 uti17 uti18 uti19 uti20 uti21 uti22 uti23 uti24
clear temp ut15 ut16 ut17 ut18 ut19 ut20 ut21 ut22 ut23 ut24 
ut25=set mto mtut 0 25
uti25=copy ut25
ut26=set mto mtut 0 26
uti26=copy ut26
ut27=set mto mtut 0 27
uti27=copy ut27
ut28=set mto mtut 0 28
uti28=copy ut28
ut29=set mto mtut 0 29
uti29=copy ut29
ut30=set mto mtut 0 30
uti30=copy ut30
contract on.trcfput uti25 uti26 uti27 uti28 uti29 uti30
clear temp uti25 uti26 uti27 uti28 uti29 uti30,
ut25 ut26 ut27 ut28 ut29 ut30
ut31=set mto mtut 0 31
uti31=copy ut31
ut32=set mto mtut 0 32
uti32=copy ut32
ut33=set mto mtut 0 33
uti33=copy ut33
ut34=set mto mtut 0 34
uti34=copy ut34
ut35=set mto mtut 0 35
uti35=copy ut35
contract on.trcfput uti31 uti32 uti33 uti34 uti35
clear temp uti31 uti32 uti33 uti34 uti35 ut31 ut32 ut33 ut34 ut35
ut36=set mto mtut 0 36
uti36=copy ut36
ut37=set mto mtut 0 37
uti37=copy ut37
ut38=set mto mtut 0 38
uti38=copy ut38
ut39=set mto mtut 0 39
uti39=copy ut39

ut40=set mto mtut 0 40
uti40=copy ut40
contract on.trcfput uti36 uti37 uti38 uti39 uti40
clear temp uti36 uti37 uti38 uti39 uti40
transrcut=edit uti2
i/
contract from.trcfput
/,
g b@uti.@uti@,f
contract on.trcfput transrcut
search temp
mode list.no
o c
▶EOF◀