DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »utimaster3  «

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

TextFile

job fgs 1 274001 stat 1 mounts 3 size 80000,
time 30 0,
perm disc 2000 200,
perm disc1 2000 200,
perm disc2 2000 200,
perm disc3 2000 200


; sysmaster

; 
; magtapes object code :
;
; 
;   mt543299 : -       13.00
;   mt543081 : -        1.01, vers 2
;   mt543333 : -        2.00, vers 2
;   mt543287 : -        3.00, vers 2
;
;
mode list.yes

c=head cpu
c=message sysmaster start

claim
uti  = set mto mt543285
main = set nrz mt543286
sys  = set nrz mt543287

uti  = setmt uti.4
main = setmt main.4
main = setmt main.20.20
sys  = setmt sys.14

copy list.yes message.no uti
char 10
copy list.yes message.no uti1

utijob=copy message.no uti2

char 12
c=head cpu
c=message translate utility start


i utijob

copy list.yes message.no main
char 10
copy list.yes message.no main1

mainjob=copy message.no main2

char 12
c=head cpu
c=message translate maintenance start

mainjob=edit mainjob
l./(fpproc=slang/, d3
f
i mainjob

char 12
c=message write package ident

sys1=copy list.yes 5

package number : sw8010/2
package name   : system utility
release        : 3.0, 1987.05.01

subpackage utility               : 3.0, 1987.05.01
subpackage maintenance           : 3.0, 1987.05.01

char 10
c=head cpu
c=message binout subpackage utility

i binoututi ; sys2

; i clearuti

char 10
c=head cpu
c=message write job maintenance

sys3=copy list.yes 8

; standard job to load subpackage maintenance

lookup t
if ok.no
(c=message file descriptor t missing
 end)
t=changeentry t t t 4 0 t t
binin t

end

char 10
c=head cpu
c=message binout subpackage maintenance

i binoutmains ; sys4

; i clearmains

char 12
c=head cpu
c=message check of binary files

char 10
c=message utility

; fil 1
nextfile sys
lookup sys
copy list.yes message.no sys

; fil 2
nextfile sys
lookup sys
binin list.yes sys.c

c=head cpu
c=message maintenance

; fil 3
nextfile sys
lookup sys
copy list.yes message.no sys

; fil 4
nextfile sys
lookup sys
binin list.yes sys.c

c=head cpu
c=message sysmaster end

end
▶EOF◀