DataMuseum.dk

top - metrics - download

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

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

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


; ncpmaster

; 
; magtapes object code :
;
; 
;   mt543078 : -        4.00
;
;
mode list.yes

c=head cpu
c=message ncp master start

claim
ncpmain  = set mto mt543077
sys      = set nrz mt543078

ncpmain  = setmt ncpmain.2
sys      = setmt sys.2

copy list.yes message.no ncp
char 10
copy list.yes message.no ncp1

ncpjob=copy message.no ncp2

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

i ncpjob

char 12
c=message write package ident

sys1=copy list.yes æ.1

package number : sw8002/2
package name   : ncp device controller
release        : 10.01 1988.07.01

subpackage ncp maintenance        : 4.0, 1989.02.01

æ


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

sys2=copy list.yes message.no æ.1

; standard job to load ncp maintenance

lookup t
if ok.no
(c=message file descriptor t missing
 end)

t=changeentry t t t 3 t t t
binin disk.disc t

end
æ

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

i binoutncp ; sys3

; i clearncp

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

char 10
c=message ncp maintenance

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

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

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

c=head cpu
c=message ncpmaster end

end
▶EOF◀