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

⟦8be47a5d0⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »kopincp5    «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »kopincp5    « 

TextFile

job fgs 1 274001 stat 2 time 15 0

mode list.yes

; sikkerhedskopiering af ncp maintenance tekster
;
; magtape :
;
;   mt295404 : release              
;
; overskrives og bliver kopi af :
;
;   mt543077 : release  4.00, vers 2
; 
; opbevaring :
; 
;   brandskab
;

head 1
message brandkopi af utility tekster 

message kopiering fra mt543077 til mt295404 1989.02.01

n=set nrz mt295404
g=set mto mt543077

opmess ring on mt295404
mount n

opmess no ring mt543077
mount g

message tape ident fil 0

message ny
copy list.yes message.no n
char 10

message gammel
copy list.yes message.no g
char 10

message subpackage ident fil 1
nextfile n g
n=copy list.yes g

message fil 2 til 10
nextfile n g

lookup n g
n=move message.yes g.9
lookup n g

message check af ny
n=changeentry n n n 0 0 n n

message tape ident fil 0
copy list.yes message.no n
char 10

message subpackage ident fil 1
nextfile n
copy list.yes message.no n

message fil 2 til 10
(repeat 9
 nextfile n
 lookup n
 bspip=move message.yes n)

message slut kopiering
end
▶EOF◀