⟦be35b2c20⟧

TextFile




c=message options rc8000   rel 5 3
c=message for  nn

; options-filename: m...
; created by: x


;
(
o ud
head 1 cpu

linkparam=edit link8000
linkinit=set 50
linkinit=algol linkparam
deviceinit=set 50

linkinit

if ok.no
(
c=message linkinit not ok
c=message program terminated
finis
)


mon8000=slang type.yes,
        mondef moncentral monprocs mondisc monfpaline monhost monfpasub,
        montabinit monprocfnc1 monprocfnc2 mons1 mons2 moncatinit
if ok.yes
c=message slang ok
if ok.no
c=message slang sorry

head 1 cpu
o c
)
;\f




l./comment: part 3./,l1,i/

host(17,x,0,0);
ptr(0,<:reader:>);
ptp(1,<:punch:>);
name(<:console1:>);
tw(2,<:terminal1:>);
cdr(4,<:cardreader:>);
lpt(5,<:printer:>);
mt(10,<:mt0:>);
mt(11,<:mt1:>);
mt(12,<:mt2:>);
mt(13,<:mt3:>);
tw(x,<:terminal2:>);
tw(x,<:terminal3:>);
tw(x,<:terminal4:>);
tw(x,<:terminal5:>);
tw(x,<:terminal6:>);
tw(x,<:terminal7:>);
tw(x,<:terminal8:>);
tw(x,<:terminal9:>);

host(21,x,0,0);

host(25,x,0,0);

/,f

\f




m. customer-name - ( nn ) - dd.mm.yy  hh.mm.ss

    a130= xx xx xx  ; date  dd mm yy
    a131= xx xx xx  ; time  hh mm ss

    a1=   150      ; areas
    a3=    15      ; internals
    a5=   200      ; message buffers inclusive a117
   ;a82=    0      ; statistics off
   ;a84=    0      ; testoutput off
    a113=   0      ; number of logical drums with catalog
    a114=1004      ; max number of slices in drum slice tabel
    a115=   x      ; number of logical discs with catalog
    a116=2046      ; max number of slices in disc slice tabel
    a117=  55      ; number of mess buffers reserved for subprocesses
    a125=   x      ; jobhost identification
n.


m. name table

     g0  , g1  , g2  , g3  , g4  , g5  , g6  , g7  , g8  , g9
     g10 , g11 , g12 , g13 , g14 , g15 , g16 , g17 , g18 , g19
     g20 , g21 , g22 , g23 , g24 , g25 , g26 , g27 , g28 , g29
     g30 , g31 , g32 , g33 , g34 , g35 , g36 , g37 , g38 , g39
     g40 , g41 , g42 , g43 , g44 , g45 , g46 , g47 , g48 , g49
     g50 , g51 , g52 , g53 , g54 , g55 , g56 , g57 , g58 , g59
     g60 , g61 , g62 , g63 , g64 , g65 , g66 , g67 , g68 , g69
     g70 , g71 , g72 , g73 , g74 , g75 , g76 , g77 , g78 , g79
     g80

n.


m. process descriptions


     0,0,0
m. device 0
g0:  85,0,r.34


     0,0,0
m. device 1
g1:  85,0,r.34


     0,0,0
m. device 2
g2:  85,0,r.34


     0,0,0
m. device 3
g3:  85,0,r.34


     0,0,0
m. device 4
g4:  85,0,r.34


     0,0,0
m. device 5
g5:  85,0,r.34


     0, a107, a108-1
m.discx  bs part x of discunit  x
g6: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x


     0, a107, a108-1
m.discx  bs part x of discunit x
g7: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x


     0, a107, a108-1
m.discx  bs part x of discunit x
g8: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x


     0, a107, a108-1
m.discx  bs part x of discunit x
g9: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x


     0,0,0
m. device 10
g10: 85,0,r.34


     0,0,0
m. device 11
g11: 85,0,r.34


     0,0,0
m. device 12
g12: 85,0,r.34


     0,0,0
m. device 13
g13: 85,0,r.34


     b.j1 w.
     m. start of testbuffer
     j0=k, 0, r.512, j1=k
     m. top of testbuffer
     0, a107, a108-1
m. main36001
g14: 80, <:main36001:> , 0, g14, 0, 1<22, k, k-2, 0
     j0, j1, j0, j1
     8.7777 7777, 8.7376 7777, 8.7777 7777, 8.7777 7777
     0, k, k-2, 0, 0, a124<16+a125
     0, r.56
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+2<3
     jl w2 c51, k, k-2, 0, c43, jl w1 c30
     0, a107, a108-1
m. rec36001
g15: 86, <:rec36001:>  ,  0, g14, 0, 1<22, k, k-2, 0
     0, r.15, 500
     0, r.5                     ; statistics
     j0=k-g15, 0, r.21, j1=k-g15
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+3<3
     jl w2 c51, k, k-2, 0, c44, jl w1 c30
     0, a107, a108-1
m. trm36001
g16: 88, <:trm36001:>  ,  0, g14, 0, 1<22, k, k-2, 0
     0, r.14, 100 000, 1000
     0, r.13                    ; statistics
     j0=k-g16, 0, r.21, j1=k-g16
     e.


     0, a107, a108-1
m. host36001
g17: 82, <:host36001:>, 0, g14, 0, 1<23+1<22, k, k-2, 0
     0, r.6
     0<12+17, -2<12+0, 0, k, k-2, 16<12+0, 24, a123<12+a124, a125, 0, 0, r.16
     0, r.20


     b.j1 w.
     m. start of testbuffer
     j0=k, 0, r.512, j1=k
     m. top of testbuffer
     0, a107, a108-1
m. main36002
g18: 80, <:main36002:> , 0, g18, 0, 1<22, k, k-2, 0
     j0, j1, j0, j1
     8.7777 7777, 8.7376 7777, 8.7777 7777, 8.7777 7777
     0, k, k-2, 0, 0, a124<16+a125
     0, r.56
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+8<3
     jl w2 c51, k, k-2, 0, c43, jl w1 c30
     0, a107, a108-1
m. rec36002
g19: 86, <:rec36002:>  ,  0, g18, 0, 1<22, k, k-2, 0
     0, r.15, 500
     0, r.5                     ; statistics
     j0=k-g19, 0, r.21, j1=k-g19
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+9<3
     jl w2 c51, k, k-2, 0, c44, jl w1 c30
     0, a107, a108-1
m. trm36002
g20: 88, <:trm36002:>  ,  0, g18, 0, 1<22, k, k-2, 0
     0, r.14, 100 000, 1000
     0, r.13
     j0=k-g20, 0, r.21, j1=k-g20
     e.


     0, a107, a108-1
m. host36002
g21: 82, <:host36002:>, 0, g18, 0, 1<23+1<22, k, k-2, 0
     0, r.6
     0<12+21, -2<12+0, 0, k, k-2, 16<12+0, 24, a123<12+a124, a125, 0, 0, r.16
     0, r.20


     b.j1 w.
     m. start of testbuffer
     j0=k, 0, r.512, j1=k
     m. top of testbuffer
     0, a107, a108-1
m. main36003
g22: 80, <:main36003:> , 0, g22, 0, 1<22, k, k-2, 0
     j0, j1, j0, j1
     8.7777 7777, 8.7376 7777, 8.7777 7777, 8.7777 7777
     0, k, k-2, 0, 0, a124<16+a125
     0, r.56
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+10<3
     jl w2 c51, k, k-2, 0, c43, jl w1 c30
     0, a107, a108-1
m. rec36003
g23: 86, <:rec36003:>  ,  0, g22, 0, 1<22, k, k-2, 0
     0, r.15, 500
     0, r.5                     ; statistics
     j0=k-g23, 0, r.21, j1=k-g23
     e.


     b.j1 w.
     000, 000, 0, j0, j1, 0, r.4, 1<23+11<3
     jl w2 c51, k, k-2, 0, c44, jl w1 c30
     0, a107, a108-1
m. trm36003
g24: 88, <:trm36003:>  ,  0, g22, 0, 1<22, k, k-2, 0
     0, r.14, 100 000, 1000
     0, r.13                    ; statistics
     j0=k-g24, 0, r.21, j1=k-g24
     e.


     0, a107, a108-1
m. host36003
g25: 82, <:host36003:>, 0, g22, 0, 1<23+1<22, k, k-2, 0
     0, r.6
     0<12+25, -2<12+0, 0, k, k-2, 16<12+0, 24, a123<12+a124, a125, 0, 0, r.16
     0, r.20


     b.j3 w.
     j0, j1
     0
     j1, j2
     0, r.4, 1<23+4<3
     jl w2 c51, k, k-2, 0, c34, jl w1 c30
     0, a107, a108-1
m. discunit 0
g26:  62, <:unit0:>, 0, r.2, 000, 0, 1<22, k, k-2, 0
  j0=k-g26
     0, r.4, 21*5*147, 21, 0, r.5, 1<23, 0, r.32  ;  12mb
     0, r.4, 21*5*219, 21, 0, r.5, 1<23, 0, r.32  ;  18mb
     0, r.4, 21*5*411, 21, 0, r.5, 1<23, 0, r.32  ;  33mb
     0, r.4, 21*5*823, 21, 0, r.5, 1<23, 0, r.32  ;  66mb
     0, r.4, 21*19*411, 21, 0, r.5, 1<23, 0, r.32 ; 124mb
     0, r.4, 21*19*823, 21, 0, r.5, 1<23, 0, r.32 ; 248mb
     0, r.41                                      ; statistics
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
  j1=k-g26
     0,r.30   ; ch pg area
  j2=k-g26
  e.

     0, a107, a108-1
m. autoload part of discunit 0
g27: 62, 0, r.4, g26, 0, 1<22, k, k-2, 0
     0, r.3, 0, 1050   ; 12, 18, 33, 66 mb discs

     b. j3 w.
     j0, j1
     0
     j1, j2
     0, r.4, 1<23+5<3
     jl w2 c51, k, k-2, 0, c34, jl w1 c30
     0, a107, a108-1
m. discunit 1
g28:  62,  <:unit1:>, 0, r.2, 000, 0, 1<22, k, k-2, 0
  j0=k-g28
     0, r.4, 21*5*147, 21, 0, r.5, 1<23, 0, r.32  ;  12mb
     0, r.4, 21*5*219, 21, 0, r.5, 1<23, 0, r.32  ;  18mb
     0, r.4, 21*5*411, 21, 0, r.5, 1<23, 0, r.32  ;  33mb
     0, r.4, 21*5*823, 21, 0, r.5, 1<23, 0, r.32  ;  66mb
     0, r.4, 21*19*411, 21, 0, r.5, 1<23, 0, r.32 ; 124mb
     0, r.4, 21*19*823, 21, 0, r.5, 1<23, 0, r.32 ; 248mb
     0, r.41                                      ; statistics
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
  j1=k-g28
     0, r.30  ; chpg area
  j2=k-g28
     e.

     0, a107, a108-1
m. autoload part of discunit 1
g29: 62, 0, r.4, g28, 0, 1<22, k, k-2, 0
     0, r.3, 0, 1050   ; 12, 18, 33, 66 mb discs

     b.j3 w.
     j0, j1
     0
     j1, j2
     0, r.4, 1<23+6<3
     jl w2 c51, k, k-2, 0, c34, jl w1 c30
     0, a107, a108-1
m. discunit 2
g30:  62, <:unit2:>, 0, r.2, 000, 0, 1<22, k, k-2, 0
  j0=k-g30
     0, r.4, 21*5*147, 21, 0, r.5, 1<23, 0, r.32  ;  12mb
     0, r.4, 21*5*219, 21, 0, r.5, 1<23, 0, r.32  ;  18mb
     0, r.4, 21*5*411, 21, 0, r.5, 1<23, 0, r.32  ;  33mb
     0, r.4, 21*5*823, 21, 0, r.5, 1<23, 0, r.32  ;  66mb
     0, r.4, 21*19*411, 21, 0, r.5, 1<23, 0, r.32 ; 124mb
     0, r.4, 21*19*823, 21, 0, r.5, 1<23, 0, r.32 ; 248mb
     0, r.41                                      ; statistics
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
  j1=k-g30
     0,r.30   ; ch pg area
  j2=k-g30
  e.

     0, a107, a108-1
m. autoload part of discunit 2
g31: 62, 0, r.4, g30, 0, 1<22, k, k-2, 0
     0, r.3, 0, 1050   ; 12, 18, 33, 66 mb discs

     b.j3 w.
     j0, j1
     0
     j1, j2
     0, r.4, 1<23+7<3
     jl w2 c51, k, k-2, 0, c34, jl w1 c30
     0, a107, a108-1
m. discunit 3
g32:  62, <:unit3:>, 0, r.2, 000, 0, 1<22, k, k-2, 0
  j0=k-g32
     0, r.4, 21*5*147, 21, 0, r.5, 1<23, 0, r.32  ;  12mb
     0, r.4, 21*5*219, 21, 0, r.5, 1<23, 0, r.32  ;  18mb
     0, r.4, 21*5*411, 21, 0, r.5, 1<23, 0, r.32  ;  33mb
     0, r.4, 21*5*823, 21, 0, r.5, 1<23, 0, r.32  ;  66mb
     0, r.4, 21*19*411, 21, 0, r.5, 1<23, 0, r.32 ; 124mb
     0, r.4, 21*19*823, 21, 0, r.5, 1<23, 0, r.32 ; 248mb
     0, r.41                                      ; statistics
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
     -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0
  j1=k-g32
     0,r.30   ; ch pg area
  j2=k-g32
  e.

     0, a107, a108-1
m. autoload part of discunit 3
g33: 62, 0, r.4, g32, 0, 1<22, k, k-2, 0
     0, r.3, 0, 1050   ; 12, 18, 33, 66 mb discs



     0, a107, a108-1
m.discx  bs part of discunit x
g34: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g35: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g36: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g37: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g38: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g39: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g40: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g41: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g42: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g43: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g44: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x

     0, a107, a108-1
m.discx  bs part of discunit x
g45: 62, 0, r.4, gx, 0, 1<22, k, k-2, 0
     0, r.3, x, x


     0,0,0
m. device 34
g34:  85,0,r.34


     0,0,0
m. device 35
g35:  85,0,r.34


     0,0,0
m. device 36
g36:  85,0,r.34


     0,0,0
m. device 37
g37:  85,0,r.34


     0,0,0
m. device 38
g38:  85,0,r.34


     0,0,0
m. device 39
g39:  85,0,r.34


     0,0,0
m. device 40
g40:  85,0,r.34


     0,0,0
m. device 41
g41:  85,0,r.34


     0,0,0
m. device 42
g42:  85,0,r.34


     0,0,0
m. device 43
g43:  85,0,r.34


     0,0,0
m. device 44
g44:  85,0,r.34


     0,0,0
m. device 45
g45:  85,0,r.34


     0,0,0
m. device 46
g46:  85,0,r.34


     0,0,0
m. device 47
g47:  85,0,r.34


     0,0,0
m. device 48
g48:  85,0,r.34


     0,0,0
m. device 49
g49:  85,0,r.34


     0,0,0
m. device 50
g50:  85,0,r.34


     0,0,0
m. device 51
g51:  85,0,r.34


     0,0,0
m. device 52
g52:  85,0,r.34


     0,0,0
m. device 53
g53:  85,0,r.34


     0,0,0
m. device 54
g54:  85,0,r.34


     0,0,0
m. device 55
g55:  85,0,r.34


     0,0,0
m. device 56
g56:  85,0,r.34


     0,0,0
m. device 57
g57:  85,0,r.34


     0,0,0
m. device 58
g58:  85,0,r.34


     0,0,0
m. device 59
g59:  85,0,r.34


     0,0,0
m. device 60
g60:  85,0,r.34


     0,0,0
m. device 61
g61:  85,0,r.34


     0,0,0
m. device 62
g62:  85,0,r.34


     0,0,0
m. device 63
g63:  85,0,r.34


     0,0,0
m. device 64
g64:  85,0,r.34


     0,0,0
m. device 65
g65:  85,0,r.34


     0,0,0
m. device 66
g66:  85,0,r.34


     0,0,0
m. device 67
g67:  85,0,r.34


     0,0,0
m. device 68
g68:  85,0,r.34


     0,0,0
m. device 69
g69:  85,0,r.34


     0,0,0
m. device 70
g70:  85,0,r.34


     0,0,0
m. device 71
g71:  85,0,r.34


     0,0,0
m. device 72
g72:  85,0,r.34


     0,0,0
m. device 73
g73:  85,0,r.34


     0,0,0
m. device 74
g74:  85,0,r.34


     0,0,0
m. device 75
g75:  85,0,r.34


     0,0,0
m. device 76
g76:  85,0,r.34


     0,0,0
m. device 77
g77:  85,0,r.34


     0,0,0
m. device 78
g78:  85,0,r.34


     0,0,0
m. device 79
g79:  85,0,r.34



g40=h4, g41=h4, g42=h4, g43=h4, g44=h4
g45=h4, g46=h4, g47=h4, g48=h4, g49=h4 
g50=h4, g51=h4, g52=h4, g53=h4, g54=h4 
g55=h4, g56=h4, g57=h4, g58=h4, g59=h4
g60=h4, g61=h4, g62=h4, g63=h4, g64=h4
g65=h4, g66=h4, g67=h4, g68=h4, g69=h4
g70=h4, g71=h4, g72=h4, g73=h4, g74=h4
g75=h4, g76=h4, g77=h4, g78=h4, g79=h4


     0, a107, a108-1
m. sys80
g80: 84,<:<0><0><0>sys80:> ,  0, 0, 0, 1<22, k, k-2, 0
     0, r.6
     0, r.15

n.



m. interrupt table
   g15+a240
   g16+a240
   g26+a240
   g28+a240
   g30+a240
   g32+a240
   g19+a240
   g20+a240
   g23+a240
   g24+a240
n.


m. controller table
   0,g15+a230,a198,8
   0,g16+a230,a198,9
   0,g26+a230,a198,10
   0,g28+a230,a198,11
   0,g30+a230,a198,12
   0,g32+a230,a198,13
   0,g19+a230,a198,14
   0,g20+a230,a198,15
   0,g23+a230,a198,16
   0,g24+a230,a198,17
n.



; options - operating system s.

m.  s size options

   c81  =   12  ; number of standard console descriptions
                ;   min(a3-3,no. of consoles)

n.


m.  s console table
   k, k-2, 0,  2, 8.1770, 0, r.c1>1-5
;  k, k-2, 0,  x, 8.1770, 0, r.c1>1-5
;  k, k-2, 0,  x, 8.1770, 0, r.c1>1-5
n.


m.  s device exception table
n.



; initiation information.


m.  init catalog definition
   x
n.

m. init linkup list
     p.<:deviceinit:>
n.

m. device autoload list
     <:main36001:>, 0, 26, 1*168
     <:main36002:>, 0, 26, 2*168
     <:main36003:>, 0, 26, 3*168
n.
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦be35b2c20⟧ TextFile

Derivation

TextFile
