|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 11520 (0x2d00)
Types: TextFile
Names: »jobdescr«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0b92c64d5⟧ »ctb«
└─⟦this⟧
\f
; pm 16.12.71 boss 2, tpsjobdescr, ...1...
; definition of psjob descr page common for psjob start,
; lookup usercat and psjob end.
; versionid: 78 07 14,20
b. d160, w. ;
f0: 0,0 ; return point
d11=-f0., 0, r.8*i49 ;+4 param
d144=-f0., 0 ; rel return 'set reader device no'
d146=-f0.,f9:h. r99*i45,19 w.; abs ref permanent core for rb messages
d97=-f0. ; top param
d12=-f0., 0 ; switch
d0=-f0., f6: 0 ;+2 jobfile
d3=-f0., 0 ;+4 virt line buffer
d91=-f0., f1: 63 ; psjob que
d93=-f0., 0 ; request line
d110=-f0.,f5: 64 ; job in core
d96=-f0., f7: 0 ; psjobindex * e13
d108=-f0.,f2: h. i45*10,20 w.; sender table addr
d15=-f0., 0 ; tail: size
<:disc:> ;+2 docname
d105=-f0., 0, r.7 ;+10 zeroes d105: zero for set catbase (tail+6)
d87=-f0., 0 ;+0 semafore operation: chain
f8: h. 2*e13, 19 w. ;+2 opcode: skip 2 psjob buf sem
d82=-f0., f4:h.i45*e13,19 w.;+4 psjob buf
d14=-f0., 0 ;+6 banker operation: chain
f3: 0 ;+2: opcode, psjobnr
;+4: all, stations ext 349: newjob operation (28 bytes)
;+6: disc
;+8: reader
;+10: converts, accounts
;+12: bufs, areas
;+14: internals, suspends
;+16: drum
;+18: device
;+20: -
;+22: size
;+24: keys, priority
;+26: gross time
;+28: net time
;+30: arrival
;+32: max wait
; d89 - d89+18 is used for lookup entry in convert from commandio
; these variables are located in banker operation
d89=d14+10 ;+0 message: code
;+2 first
;+4 last
d86=d89+6 ;+6 segment
d1=d86+2 ;+0 name addr in cat proc
;+2 interval - - -
;+4 - - - -
;+6 length, function
;+8 rel return
\f
; pm 7.12.71 boss 2, tpsjobdescr, ...2...
d9= d14 +34 ; text shift, state save
d6= d9 +2 ;+2 return from next line and set claims
d7= d6 +2 ; count
d8= d7 +2 ; addr
d10= d8 +2 ; text addr
d5= d10 +2 ; work
d13= d5 +2 ; command state (c15 job command must be read now, c38 claims not set,
; c16 claims set: only load command admitted
d16= d13 +2 ; job param base
; d9 through d13 are used as scratch during convert from commandio too
; job parameters
d17= d16 ; time of arrival of job * 2**(-13)
d23= d17 +4 ;-10 user name
d25= d23 +8 ;-2 user index
d20= d25 +2 ; project no
d26= d20 + 4 ; project base used in connection whith convert
; operations on netprinters described in catalog
; entries. not equal to maxbase in case of a userpool
d19= d26 +2 ; job name
d18= d19 +8 ; prog name, name table entry
d63= d18 +2 ;
d140=d18 +10 ; no of conversational input lines
d70= d140+1 ; tape table entries
d143=d70 +1 ; terminal user rights
d61= d143+2 ; usercat ref post address of user
d62= d61 +2 ; no of useable private kits
d22= d62 +2 ; usercat refdiscrest claim key 3
d60= d22 +2 ; usercat ref drumrest claim key 3
d58= d60 +2 ; discrest key 1
d69= d58 +2 ; 2
d55= d69 +2 ; 3
d59= d55 +2 ; drumrest key 1
d67= d59 +2 ; 2
d56= d67 +2 ; 3
d28= d56 +2 ; first of private kit table
; +0 ; kit name
d29= +8 ; usercat ref rest claim key 3
d57= +10 ; job claims
d113= 12 ; slice length
d80= d28 +14*i30+2 ; top private kit table
\f
; pm 1.11.71 boss 2, tpsjobdescr, ...3...
d75=d80 ; conversation
d102=d75 +1 ; degree of information wanted:
; 0 maximal information <:no:>
; 1 minimal information <:yes:>
d77= d102+1 ; core lock time
d132=d77 +2 ; priority
d134=d132+1 ; preserve catalog 0 catalog is cleaned <:no:>
; 1 catalog is preserved <:yes:>
d138=d134+1 ; waiting time deliberately swopped out
d148=d138 +2 ; link
d41= d148+2 ; keys
d49= d41 +1 ; stations
d43= d49 +1 ; mounts
d51= d43 +1 ; tapes
d68= d51 +1 ; converts
d31= d68 +1 ; accounts
d45= d31 +1 ; output slices
d71= d45 +1 ; suspendings
d53= d71 +1 ; time * 2**(-13) first storage address
d47= d53 +2 ; size top - -
d35= d47 +2 ; bufs
d33= d35 +1 ; areas
d39= d33 +1 ; internals
d37= d39 +1 ; func
d66= d37 +1 ; max wait * 2**(-13) 16 protection reg
; d66 +1 ; 17 protection key
d21= d66 +4 ; max
d24= d21 +4 ; std
; user interval
d30= d24 +6 ; device
d81= d30 +4 - d80 ;
d76= d81 +d75 ; max conversation
d103=d81 +d102 ; max degree
d78= d81 +d77 ; max core lock time
d133=d81 +d132 ; max priority
d135=d81 +d134 ; max preserve catalog
d139=d81 +d138 ; max waiting time deliberately swopped out
d147=d81 +d148 ; max link
d42= d81 +d41 ; max keys
d50= d81 +d49 ; max stations
d44= d81 +d43 ; max mounts
d52= d81 +d51 ; max tapes
d72= d81 +d68 ; max converts
d32= d81 +d31 ; max accounts
d46= d81 +d45 ; max output
d73= d81 +d71 ; max suspendings
d54= d81 +d53 ; max time
d48= d81 +d47 ; max size
d36= d81 +d35 ; max bufs
d34= d81 +d33 ; max areas
d40= d81 +d39 ; max internals
d38= d81 +d37 ; max func
d27= d81 +d66 ; respite
d65= d27 +2 ; max devices
\f
; pm 27.12.72 boss 2, tpsjobdescr, ...4...
d88= d65 +6 ; psjob status: 1<0 reader reserved
; 1<1 change of jobname after replace
; 1<2 operator message when enrolled
; 1<3 online job
; 1<4 error message pending
; 1<5 card job
; 1<6 internal
; 1<7 convert claim
; 1<8 offline job
; 1<9 convert from commio
; 1<10 replace job
d90= d88 +1 ; output length
d92= d90 +1 ; paper tape count
d95= d92 +1 ; swop area length (slices)
d116=d95 +1 ; card file no
d84= d116+2 ; expected finis time (sec after midnht)
d119=d84 +2 ; hostident
d120=d119+2 ; dh. linkno < 12 + dh. hostno
d122=d119+4 ; dh. hostid
d121=d122+2+2 ; name of primout printer (last of dbword)
; first word = 0 => std printer
; - = 1 => some rb-printer
d123=d121+2 ; device kind
d131=d123+2 ; device number of reader
d112=d131+2 ; primary output name and name table addr
d100=d112+10 ; job file name and name table addr
d101=d100+10 ; - - - interval
d2 =d101+4 ; total net time (0.8 sec)
d79 =d2 +2 ; cputime used(0.8 sec)
d74 =d79 +2 ; convert claim
d83= d74 +2 ;-2 length of input area (segments)
d114=d83 +2 ; op buf addr for answer commandio
d64 =d114+4 ; returnpoint for load and pagejump to set claims
d118=d64 +2 ; cardfilecount
;+2: card block count (segments)
;+4: card reader queue sem
;+6: - - first virt buffer
;+8: - - top - -
;+10: - - free sem
;+12: - - full -
d141=d118+12 ; start of reader table:
;+2 tape reader segment count
;+4 - - queue sem
;+6 - - first virt buffer
;+8 - - top virt buffer
;+10 - - free sem
;+12 - - full sem
d142=d141-d87
d85 =d141+14 ; temp drum, disc
d98= d85 +2 ; rest mounts
d99= d98 +1 ; rest suspends
d111=d99 +1 ; rest converts, rest accounts
\f
; re 5.2.75 boss 2, tpsjobdescr ...5...
d104=d111+2 ; finis cause
d115=d104+2 ;+0: net run left at finis
;+2: n r l at run time exceeded
;+4: n r l at dump
;+6: n r l at provoke before dump
;+8: n r l at high priority exceeded
;+10: n r l at corelock exceeded
d136=d115+12 ;-2 summa waiting times
d137=d136+2 ; actual waiting time.rel return in low/high prio start
d106=d137+2 ; proc descr addr of job
;d107-6: harderror swopin op: chain
;d107-4: free, opcode=16
;d107-2: logical status
d107=d106+8 ; swop area spec: name
;+2 -
;+4 -
;+6 -
;+8 name table addr
;+10 timer op: chain
;+12 free, opcode
;+14 net run time left
d4=d107+16 ; line buffer base
d94=d4+i46 ; line buffer last
d117=d94+2 ; save array for go parameters
d109=d117+d88-d18 ; top jobdescr
i.
t.
\f
▶EOF◀