|
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: 6912 (0x1b00)
Types: TextFile
Names: »retncp4 «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retncp4 «
job fgs 2 274001 time 5 0 stat 2
mode list.yes
; editering af ncp utility tekster
; magtapes :
;
;
; mt543285 : release 3.00, version 2, utility programs
; mt543286 : - 3.00, version 2, maintenance programs
; mt543077 : - 4.00, version 2, ncp maintenance programs
;
; mt543078 : release , version
;
; overskrives og bliver kopi af :
;
; mt543077 : - 4.00, version 2
;
head 1
message ret maintenance tekster
message rettelse fra mt543285 og mt543286 til mt543077 1989.02.01
n =set nrz mt543077
gu=set mto mt543285
gm=set mto mt543286
opmess ring on mt543077
mount n
opmess no ring mt543285
mount gu
message subpackage ident fil 1
nextfile n
lookup n
n=copy list.yes 7
tape identification
contents : source code
package number : sw8002/2
package name : ncp device controller
release : 10.10, 1988.07.01
subpackage : ncp maintenance
release : 4.00, 1989.02.01
message translate job fil 2
nextfile n
lookup n
n=edit
m e
v n
i!
ncp=edit
i/
ncpmaint,
autoload,
changekit,
createlink,
,fpastat,
headpunch,
initamx,
lookupdev,
lookuplink,
linkcentral,
movedump,
releaselink,
tro ,
tre ,
trn ,
trf ,
trz ,
tpo ,
tpe ,
tpn ,
tpf ,
tpt ,
lp ,
crb ,
crd ,
crc ,
pl ,
ptre,
ptrf,
ptro,
ptrn,
ptrz
/,f
ncpareas=edit
i/
autoload,
changekit,
headpunch
/, f
scopencp=edit ncp
i/
scope user,
/,f
lookupncp=edit ncp
i/
head 1
lookup,
/,f
clearncp=edit ncp
i/
clear user,
/, f
binoutncp=edit ncp
i/
sys3=binout,
/,l./ncpmaint/,r/nt/nt.p/,
l./linkcentral/,r/al/al.p/,
f
c=message start oversæt ncp maintenance
tro =set tro reader d.0
tre =set tre reader d.0
trn =set trn reader d.0
trf =set trf reader d.0
trz =set trz reader d.0
tpo =set tpo punch d.0
tpe =set tpe punch d.0
tpn =set tpn punch d.0
tpf =set tpf punch d.0
tpt =set tpt punch d.0
lp =set lp printer d.0
crb =set crb cardreader d.0
crd =set crd cardreader d.0
crc =set crc cardreader d.0
pl =set pl plotter d.0
ptre=set tre reader d.0
ptrf=set trf reader d.0
ptro=set tro reader d.0
ptrn=set trn reader d.0
ptrz=set trz reader d.0
mode list.yes
sorry=algol
begin
trapmode := 1 shift 10;
write (out,
"nl", 2, <:***********************************************:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* S O R R Y *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:* *:>,
"nl", 1, <:***********************************************:>);
endaction := -1;
end;
c=message oversæt slang del af ncp maintenance
;i trheadp4tx
(headpunch=slang ncpmain.3
headpunch)
compress=slang ncpmain.4
if ok.no
sorry
(changekit=slang ncpmain.5
changekit)
if ok.no
sorry
autoload=slang ncpmain.6
if ok.no
sorry
ncpmaint=set 1 3
ncpmaint=compress autoload changekit headpunch
c=message slut over sættelse af slang del af maintenance
c=message oversæt algol del af maintenance
;i trmoved4tx
movedump=algol connect.no ncpmain.7
if warning.yes
sorry
;i trrell4tx
mode list.yes
releaselink =algol connect.no ncpmain.8
createlink =assign releaselink
lookuplink =assign releaselink
lookupdev =assign releaselink
if warning.yes
sorry
ncpmain=setmt ncpmain.9
linkcentral=copy ncpmain9
;i trinitam4tx
initamx=algol connect.no ncpmain.10
i scopencp
i lookupncp
rewind ncpmain
char ff
end
!
f
message headpunch text fil 3
gu=changeentry gu gu gu 25 gu gu gu
nextfile n gu
lookup n gu
n=edit gu
; connect output : segm < 2 + key
l./; connect outputfile/, l./jl. w3 h28./, l-1, r/1<1+1/1<2+0/
l./m.rc/, r/87.03.13/88.09.08/
f
message compress text fil 4
gm=changeentry gm gm gm 2 gm gm gm
nextfile n gm
lookup n gm
n=edit gm
; connect output : segm < 2 + key
;
l./; connect output zone.../, l./jl. w3 h28./, l-3, r/1<1+1/1<2+0/
l./m. rc/, r/85.03.13/88.09.08/
f
message changekit text fil 6
gm=changeentry gm gm gm 6 gm gm gm
nextfile n gm
n=edit gm
f
message autoload text fil 5
gm=changeentry gm gm gm 9 gm gm gm
nextfile n gm
lookup n gm
n=edit gm
f
message movedump text fil 7
gm=changeentry gm gm gm 13 gm gm gm
nextfile n gm
lookup n gm
n=edit movedump4tx
f
message releaselink text 1 fil 8
gm=changeentry gm gm gm 18 gm gm gm
nextfile n gm
lookup n gm
n=edit gm
; parameter array til system med lower index <> 1
l./message link programs/, r/07.03.79/88.09.02/, r/v.60/rel. 4.0/
l./integer array corearr(0:1);/, l1, i/
integer array field iaf;
iaf := -2;
/, p-2
l./corearr)/, g5/corearr)/corearr.iaf)/, p-5
l./page...9/, r/07.03.79/88.09.02/
l./integer array docname(2:5);/, l1, i/
integer array field iaf;
iaf := 4;
/, p-2
l./docname)/, r/docname)/docname.iaf)/
l./page...11/, r/07.03.79/88.09.02/
l./is suppressed./, r/./ and free links are not printed./
l./if linkdescr > 2 then/, l./i:=1;/, i/
if linkdescr > 0
or not all then
begin <*link not free*>
/, l1, r/i/ i/, l1, r/c/ c/, l1, r/b/ b/, l1, r/p/ p/, l1, r/p/ p/,
l1, r/e/ e/, l1, i/
end <*link not free*>;
/, p-8
l./page...12/, r/07.03.79/88.09.02/
l./if linkdescr=0 then/, l./write/, r/write/if not all then
write/
l./page...21/, r/07.03.79/88.09.02/
l./fpproc(29/, l1, r/shift 1 + 1/shift 2 + 0/
l1, r/a size on 1 segment/the most resources of key 0/
f
message linkcentral text 2 fil 9
gm=changeentry gm gm gm 19 gm gm gm
nextfile n gm
lookup n gm
n=edit linkcntr4tx
f
message initamx text fil 10
gm=changeentry gm gm gm 21 gm gm gm
nextfile n gm
lookup n gm
n=edit initamx4tx
f
lookup n gu gm
message slut editering af ncp maintenance texter
finis
▶EOF◀