DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »transut«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦ebd72877b⟧ »tfput« 
            └─⟦this⟧ 

TextFile

 
term       =set tw terminal d.0  
tro        =set tro reader d.0  
tre        =set tre reader d.0  
trn        =set trn reader d.0  
trf        =set trf 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


utilities=edit
i/
xp,
utility,
account,
assign,
backfile,
binin,
binout,
bossjob,
catsort,
change,
changeentry,
char,
claim,
claimtest,
clear,
clearmt,
compresslib,
convert,
copy,
corelock,
coreopen,
correct,
crb,
crc,
crd,
edit,
end,
entry,
finis,
fpnames,
head,
headpunch,
i,
if,
job,
kit,
label,
load,
lookup,
lp,
message,
mode,
mount,
mountspec,
move,
newjob,
nextfile,
o,
online,
opcomm,
opmess,
permanent,
pl,
print,
ptre,
ptrf,
ptro,
ptrn,
procsurvey,
release,
rename,
repeat,
replace,
ring,
rubout,
save,
scope,
search,
set,
setmt,
skip,
suspend,
term,
timer,
tpe,
tpf,
tpn,
tpo,
tpt,
translated,
tre,
trf,
trn,
tro
 
/,f

utiareas=edit utilities
l./utility/,d,
l./assign/,d,
l./bossjob/,d,
l./change/,d2,
l./clear/,d1,
l./convert/,d,
l./corelock/,d1,
l./crb/,d2,
l./end/,d3,
l./head/,d,
l./if/,d,
l./kit/,d,
l./lp/,d,
l./mount/,d1,
l./newjob/,d2,
l./opcomm/,d3,
l./ptre/,d3,
l./release/,d4,
l./scope/,d3,
l./skip/,d8,
l./tre/,d b,i/
set,
/,
f


compressuti=edit utiareas
i/
utility=set 1
utility=compress,
fpnames,
/,
l./xp/,d,
l./catsort/,d,
l./claimtest/,d,
l./load/,d,
l./save/,d,
l./set,/,r/,//,
f


scopeuti=edit utilities
i/
scope user,
/,
f

lookuputi=edit utilities
i/
head 1
lookup,
/,f

binoututi=edit utilities
l./xp/,d,
i/
sys2=binout headfp.ne.b xp.ne.s.13,
/,
l./utility/,r/y/y.p/,
l b,l-4,l./tro/,r/tro/tro,
endfp.ne.b
/,f
  
headfp=slang
s.w.
<:newcat:>
<:create:>
<:fp:>,0,0,0
17
0, r.4
s2   ; shortclock
0
0
3<12+2
3584
<:perman:>
<:fp:>,0,0,0
3
<:load:>
<:fp:>,0,0,0
13
e.
 
endfp=slang
s.w.
<:end:>
e.
 
 

c=message oversæt slang del af utility
c=copy uti1 message.no ; dato
fpnames=copy uti3
insertproc=copy uti4

slangcompr=slang uti.5
if ok.no
sorry

fpnames=slangcompr fpnames
insertproc=slangcompr insertproc

(xp=slang uti.6 uti.7 uti.8
xp)
if ok.no
sorry

(mode=slang uti.9
mode head char finis end)
if ok.no
sorry

(i=slang uti.10
i o if)
if ok.no
sorry

(account=slang uti.11
account replace newjob mount opmess ring,
suspend release change timer convert mountspec,
kit corelock coreopen bossjob opcomm)
if ok.no
sorry

(online=slang uti.12
online repeat)
if ok.no
sorry

(edit=slang uti.13 uti.14 uti.15 uti.16
edit)
if ok.no
sorry

(binin=slang uti.17
binin)
if ok.no
sorry

(binout=slang uti.18
binout)
if ok.no
sorry

(print=slang uti.19
print)
if ok.no
sorry

(message=slang uti.20
message)
if ok.no
sorry

(move=slang uti.21
move)
if ok.no
sorry

(set=slang uti.22
set setmt clearmt entry changeentry assign,
rename permanent nextfile)
if ok.no
sorry

(lookup=slang uti.23
lookup search clear scope)
if ok.no
sorry

(backfile=slang uti.24
backfile)
if ok.no
sorry

(copy=slang uti.25
copy skip)
if ok.no
sorry

(headpunch=slang uti.26
headpunch)
if ok.no
sorry

(job=slang uti.27
job)
if ok.no
sorry

(claim=slang uti.28
claim)
if ok.no
sorry

(rubout=slang uti.29
rubout)
if ok.no
sorry

(correct=slang uti.30
correct)
if ok.no
sorry

compress=slang uti.31
if ok.no
sorry

compresslib=slang fpnames uti.32
if ok.no
sorry

(translated=slang uti.33
translated)
if ok.no
sorry

(procsurvey=slang uti.34
procsurvey)
if ok.no
sorry

(label=slang uti.35
label)
if ok.no
sorry

(allocbuf=slang uti.36
 allocbuf)
if ok.no
sorry

c=message slut over sættelse af slang del af utility

i compressuti

char ff

save=     algol uti.37 connect.no
if warning.yes
sorry
save=changeentry save save save 64.376 save save save

load=     algol uti.38 connect.no
if warning.yes
sorry

catsort=  algol uti.39 connect.no
if warning.yes
sorry
catsort=changeentry catsort catsort catsort 64.120 catsort catsort catsort

claimtest=algol uti.40 connect.no
if warning.yes
sorry
 
 
i scopeuti
i lookuputi

release uti
char ff
end
▶EOF◀