|
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: 5376 (0x1500)
Types: TextFile
Names: »retftnlibmp «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retftnlibmp «
job fgs 1 274001 stat 2 time 10 0 preserve no mode list.yes ; editering af fortran library ; ; magtapes : ; ; 543315 : release 1.0 ; 543323 : release 1.1 ; 543339 : release 2.0 ; ; magtape : ; ; 543319 : release 1.1 ; ; slettes og bliver kopi af : ; ; 543339 : release 2.0 ; message ret fortran library n=set nrz mt543339 g=set mto mt543323 lookup n g opmess write enable mt543339 message ident and contents file 1 nextfile n g date=head date=edit date r/fgs/date and time for tape creation : fgs/ f id=copy ø.1 package number : sw8501/2 package name : fortran release : 2.0, 1985.11.01 contents : library source code files file : cont. : format : 0 label text 1 identification text 2 job to translate text 3 ioinit text, slang 4 read text, slang 5 write text, slang 6 comparith text, slang 7 intrinsic text, slang 8 compst text, slang 9 doubarith text, slang 10 doubconv text, slang 11 longarith text, slang ø n=copy list.yes message.no date id message translate job file 2 nextfile n g n=copy list.yes message.no ø.1 ; compilation of library source code : ; the file descriptor : ; ; libsource = set <modekind> <name of this tape> ; ; must be present message slang assembly library source code lookup libsource if ok.no (message the file libsource not present finis) libsource=changeentry libsource libsource ; file, block := 0, 0 libsource=setmt libsource.11 ; generate a file with all fortran-library names ftnlibnames = copy message.no 47.1 fortranlib, inwrcrcrcrc zassign inrrcrcrcrc, rearcrcrcrc readerr wrircrcrcrc, cdcrcrcrcrc cmcrcrcrcrc cscrcrcrcrc cacrcrcrcrc, cmplx real aimag, iabs abs mod amod ifix float min0 max0, amin0 amax0 min1 max1 amin1 amax1, csqrt cabs clog cang csin ccos cexp conjg, dadrcrcrcrc dsdrcrcrcrc dabs dddrcrcrcrc, icdrcrcrcrc lcdrcrcrcrc rcdrcrcrcrc dcircrcrcrc, dclrcrcrcrc dcrrcrcrcrc dmdrcrcrcrc dsign, lpircrcrcrc ldlrcrcrcrc lmlrcrcrcrc lmod / ; end of ftnlibnames scopeftnlib=edit ftnlibnames i# scope user, #, f head cpu (inwrcrcrcrc = slang libsource.3 inwrcrcrcrc zassign inrrcrcrcrc) if ok.no sorry ; ********** special program (rearcrcrcrc = slang libsource.4 rearcrcrcrc readerr) if ok.no sorry ; ********** special program (wrircrcrcrc = slang libsource.5 wrircrcrcrc) if ok.no sorry ; ********** special program (cdcrcrcrcrc = slang libsource.6 cdcrcrcrcrc cmcrcrcrcrc cscrcrcrcrc cacrcrcrcrc, cmplx real aimag) if ok.no sorry ; ********** special program (iabs = slang libsource.7 iabs abs mod amod ifix float min0 max0, amin0 amax0 min1 max1 amin1 amax1) if ok.no sorry ; ********** special program (csqrt = slang libsource.8 csqrt cabs clog cang csin ccos cexp conjg) if ok.no sorry ; ********** special program (dadrcrcrcrc = slang libsource.9 dadrcrcrcrc dsdrcrcrcrc dabs dddrcrcrcrc) if ok.no sorry ; ********** special program (icdrcrcrcrc = slang libsource.10 icdrcrcrcrc lcdrcrcrcrc rcdrcrcrcrc dcircrcrcrc, dclrcrcrcrc dcrrcrcrcrc dmdrcrcrcrc dsign) if ok.no sorry ; ********** special program (lpircrcrcrc = slang libsource.11 lpircrcrcrc ldlrcrcrcrc lmlrcrcrcrc lmod) if ok.no sorry ; ********* special program head cpu message algol translation proc fortranlib head cpu tfortranlib = edit ftnlibnames d, i= external procedure fortranlib; write (out, <: =, l b, i= :>); end =,f fortranlib = algol tfortranlib head cpu message compresslib library object code fortranlib = compresslib, inwrcrcrcrc rearcrcrcrc wrircrcrcrc, cdcrcrcrcrc iabs csqrt dadrcrcrcrc icdrcrcrcrc lpircrcrcrc if ok.no sorry ; ********** special program head cpu message scope user fortranlib i scopeftnlib head cpu release libsource ø message ioinit file 3 nextfile n g n=edit g f message read file 4 nextfile n g n=edit g f message write file 5 nextfile n g n=edit g f message complong file 6 nextfile n g n=edit g f message intrinsic file 7 nextfile n g n=edit g ; no of own halfs in tail := 2; m e l./abc/, r/abc,mod/abs,mod/, g/,/, / l./fct 1983.12.28/, r/83.12.28/85.09.30/ l./g0:/, l./1<12/, r/12 /12+ 2/ l7, r/12/12+ 2/ l7, r/12 /12+ 2/ l7, r/12/12+ 2/ l7, r/12 /12+ 2/ l7, r/12 /12+ 2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l8, r/12/12+2/ l1 f message compst file 8 nextfile n g n=edit g f message doubarith file 9 nextfile n g n=edit g f message doubconv file 10 nextfile n g n=edit g ; rs entry 104 : prog descr vector rettes til rs entry 105 l./b30+104/, r/104/105/ l./m.fortran/, r/83.12.28/85.09.30/ f message longarith file 11 nextfile n g n=edit g f message check of library text files backfile n n n n n n n n n (repeat 9 nextfile n copy n) release n end finis ▶EOF◀