|
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: 4608 (0x1200)
Types: TextFile
Names: »contractman«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »contractman«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »contractman«
\f
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
HCØ RC8000 program library
CONTRACT SYSTEM
Geodætisk Systemgruppe
80/5
1980-12-04
updated by
Anders Lindgård
\f
1
pack/unpack/offpack/listpack (<name>)0/8388607
all programs uses a contractfile on user scope with the name
_ pack<initials>
where <initials> is the users initials in usercat.
the program contract may be used on the same file.
function
********
pack the <name> list is contracted on pack<initials>,
_ and the file is initialized on disc3, if not found.
_ The init call as in contract is not needed.
unpack the <name> list is contracted from pack<initials>
offpack the <name> list is deleted from pack<initials>
listpack the content of pack<initials> is listed
exsample of pack<initials>
**************************
the user logs in as : ke
the pack<initials> is then : packke
call of program :
contract <prog>.<file>(.<bs>)0/1 <params> 0/1
<prog> ::= init/on/clear/list/all/from/temp/set/proc/text
function of program :
init : The contractfile <file> is initiated on
_ (if <bs> specified then <bs> else disc3) bs_device.
_ no further <params> are allowed.
_ The <file> may not exist in the catalog.
on : The contractfile <file> is extended by the entries
_ specified in <params> and if <bs> is specified then
_ moved to that bs_device.
_ if an entry from <params> exists in <file>_catalog
_ then is the <file>_catalog entry replaced.
_ no activity take place when claims are exceeded.
_ any kind of entry may be contracted.
_ in case of break_actions the old file is still present
_ or in worst case the updated file as a wrk_name.
clear : The entries in <params> is removed from the contract-
_ file <file> catalog.
_ when the catalog becommes enpty the <file> is removed.
list : The contractfile <file> catalog is listed in short form.
all : The contractfile <file> catalog is listed format as
_ lookup.
from : The entries in <params> are contracted from contractfile
_ <file> and set on the original backing storage on day
_ scope. If the claims on the original bs is exceeded then
_ is the entry set on main bs.
\f
2
- If <params> is not specified all files are extracted.
_ If claims are exceeded no entry is set.
temp : As from but with temp scope.
set : The entries in <params> are set on main bs with temp
_ scope as a refer to the contractfile <file> :
_ <param> = set bs <file> <date> <file_no> <segm> . . .
- If <params> is not specified all entries for text files
- are set.
_ Warning procedures may not be set and any procedure named
_ ******* in <params> is considered unknown.
proc : All procedures in the contractfile <file> catalog is
_ contracted as called by temp. No <params> used.
text : All textfiles in the contractfile <file> catalog is con-
_ tracted as called by set. No <params> used.
contractfile organization :
+++++++++++++++++++++++++
<file> == <catalog> <content>
<catalog> == <c_segm> 1:((entries+14)//15)
<c_segm> == <head and tail> 1:15, <entries>
<head and tail> length 34 bytes :
_ integer content
_ 1 (content position) shift 18 ,max pos = 262145
_ (head_and_tail(1) extract 3)
_ 2 base low
_ 3 base high
_ 4:7 entryname
_ 8 length or modekind
_ 9:12 document name
_ 13:17 last of tail
<entries> == total entries in contractfile
<content> == (<entry>)
_ 1 : (no of entries where head_and_tail(8) > 0)
<entry content> == (<segment>) head_and_tail(1) shift (-6) :
_ head_and_tail(8)-1+head_and_tail(1) shift (-6)
\f
▶EOF◀