⟦37ad70a8b⟧

TextFile

mode list.yes
; 
; magtapes :
; 
;   543279 : release  3.00
; 

skip æ.1
libsource=set mtll mt543279

message translate algol library sys3 file 3
c=message compile algol library system 3 version
c=message the catalog entry libsource is used
 
lookup libsource
if ok.no
(message the entry libsource not present
 finis)

sorry=algol
begin
  trapmode := 1 shift 10;
  endaction := 1;
  write (out,
  "nl", 1, <:********************************************:>,
  "nl", 1, <:*:>,
  "nl", 1, <:*:>,
  "nl", 1, <:*:>, "sp", 10, <:sorry:>,
  "nl", 1, <:*:>,
  "nl", 1, <:*:>,
  "nl", 1, <:********************************************:>);
end;

 

in        =set 0 0 0 896.26 0 4.0 0 
out       =set 0 0 0 896.27 0 4.0 0 
overflows =set 0 0 0 576.37 0 4.0 0 
underflows=set 0 0 0 576.22 0 4.0 0 
blocksread=set 0 0 0 576.24 0 4.0 0 
rc8000    =set 0 0 0 512.57 0 4.0 0
errorbits =set 0 0 0 576.58 0 4.0 0
progsize  =set 0 0 0 576.62 0 4.0 0
alarmcause=set 0 0 0 704.69 0 4.0 0
trapmode  =set 0 0 0 576.70 0 4.0 0
progmode  =set 0 0 0 576.71 0 4.0 0
blocksout =set 0 0 0 576.72 0 4.0 0
endaction =set 0 0 0 576.93 0 4.0 0

i trread4tx
if ok.no
sorry

(arctan=slang fpnames libsource.5 insertproc
arctan arg cos sin atan)
if ok.no
sorry

(arcsin=slang fpnames libsource.6 insertproc
arcsin sqrt )
if ok.no
sorry

(ln=slang fpnames libsource.7 insertproc
ln exp sinh sign sgn random alog)
if ok.no
sorry

i trwrite4tx
if ok.no
sorry

i trtofrom4tx
if ok.no
sorry

(changerec=slang fpnames libsource.10 insertproc
changerec inrec outrec swoprec)
if ok.no
sorry

(changerec6=slang fpnames libsource.11 insertproc
changerec6 inrec6 outrec6 swoprec6)
if ok.no
sorry

i tropen4tx
if ok.no
sorry

i trmonit4tx
if ok.no
sorry

(systime=slang fpnames libsource.14 insertproc
systime logand logor exor)
if ok.no
sorry

i trsys4tx
if ok.no
sorry

i trgzone4tx
if ok.no
sorry

i trgzone64tx
if ok.no
sorry

i troutvar4tx
if ok.no
sorry

(newsort=slang fpnames libsource.19 insertproc
newsort deadsort lifesort outsort initsort,
initkey sortcomp startsort6 changekey6)
if ok.no
sorry

i trmstr4tx
if ok.no
sorry

i trinitz4tx
if ok.no
sorry

(openvirtual=slang libsource.22
openvirtual virtual resume)
if ok.no
sorry

(lock=slang libsource.23
lock locked)
if ok.no
sorry

(setfpmode=slang libsource.24
setfpmode fpmode)
if ok.no
sorry

i tractivity4
if ok.no
sorry
 
(closetrans=slang libsource.26
 closetrans writefield opentrans transerror waittrans,
 readfield getf8000tab f8000table)
if ok.no
sorry
 
i trfpproc4tx
if ok.no
sorry

(buflengthio=slang libsource.28
 buflengthio)
if ok.no
sorry

i tropenio4tx
if ok.no
sorry

(changerecio=slang libsource.30
 changerecio inoutrec  )
if ok.no
sorry

i trtofromch4
if ok.no
sorry

i trlpos4tx
if ok.no
sorry

i trldprocs4
if ok.no
sorry

updextlists=algol libsource.31 connect.no survey.yes ix.no
if ok.no
sorry


alglibnames=edit
i/
activate activity alarmcause alog arcsin,
arctan arg atan blocksout blockproc blocksread buflengthio,
changekey6 changerec changerecio changerec6 changevar check,
checkvar close closeinout closetrans cos deadsort endaction errorbits ,
exor exp expellinout fpmode fpproc f8000table getalarm getf8000tab getposition,
getshare getshare6 getstate getzone getzone6 in increase,
initkey initsort initzones inoutrec inrec inrec6 intable invar isotable ,
ldlink ldunlink len lifesort lock locked ln logand logor monitor movestring ,
newactivity newsort open openinout opentrans openvirtual out outdate,
outchar outindex outinteger outrec outrec6 outsort outtable outtext,
outvar overflows passivate pos progmode progsize random rc8000 read readall,
readchar readfield readstring repeatchar replacechar resetzones resume,
setfpmode setposition setshare setshare6 setstate setzone setzone6 sgn sign ,
sin sinh sortcomp sqrt startsort6 stderror stopzone swoprec swoprec6 ,
system systime tableindex termzone tofrom tofromchar transerror trap trapmode ,
underflows wactivity waittrans virtual write writeint writefield
/,f

scopealglib=edit alglibnames
i/
scope user algollib,
/, l b, i/

scope user updextlists
/,f
tempalglib=edit alglibnames
i/
scope temp algollib,
/, l b, i/

scope temp updextlists
/,f

lookalglib=edit alglibnames
i/
lookup algollib,
/, l b, i/
lookup updextlists
/,f

binalglib=edit alglibnames
i/
sys4=binout algollib,
/, l b, i/
sys5=binout updextlists
/,f

text=edit alglibnames
i/
external procedure algollib;
write(out,<:
/,
l b,i/
:>);
end
/,f

clearalglib=edit alglibnames
i/
clear user algollib,
/, l b, i/
clear user updextlists
/, f

algollib=algol text
clear temp text
 
i tempalglib

algollib=compresslib read arctan arcsin ln write,
         tofrom changerec changerec6 open monitor,
         systime system getzone getzone6 changevar,
         newsort outdate initzones openvirtual lock,
         setfpmode activity closetrans fpproc,
         buflengthio openinout changerecio tofromchar,
         pos ldlink
 
i scopealglib
æ
i lookalglib
release alglib
char ff

c=message compile algol library system 3 version end
end
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦37ad70a8b⟧ TextFile

Derivation

TextFile
