|
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: 2304 (0x900)
Types: TextFile
Names: »genbsbin151 «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »genbsbin151 «
job fb 3 274004 time 10 10 size 80000 temp disc 4000 100, perm disc2 10000 100 i edremove i edmdsproc i edrecover mode list.yes clear user filebinisq filebinsq filebinmd catisq=edit i# x buflengthi deletereci extendi getparamsi getreci, headfilei headparamsi initfilei initreci insertreci nextreci, putreci recoveri removeupdi resulti setparamsi setputi setreadi, settesti setupdatei startfilei systemi newheadisq end # f catsq= edit m e i# x closesq logsq opensq resultsq shlengthsq end # f catmdsort=edit m e i# x mdsortproc mdsort end # f head 1 message oversæt isq exc=edit catisq m e r/x/clear user/ l./newheadisq/,r/newheadisq// f i exc getreci=set 1 disc2 buflengthi=set 1 disc2 extendi=set 1 disc2 removeupdi=set 1 disc2 headfilei=set 1 disc2 headparamsi=set 1 disc2 recoveri=set 1 disc2 mode 0.no i isqslang buflengthi=algol tbuflengthi spill.yes survey.yes extendi=algol textendi spill.yes survey.yes headparamsi=algol theadparami spill.yes survey.yes headfilei=algol theadfilei spill.yes survey.yes recoveri=algol trecoveri connect.no spill.yes survey.yes getreci=compresslib buflengthi extendi removeupdi head 1 exc=edit catisq m e r/x/scope user.disc2/ f i exc exc=edit catisq m e r/x/f3=binout/ f i exc binin list.yes f3.c exc=edit catisq m e r/x/procsurvey/ f i exc exc=edit catisq m e r/x/clear user/ f i exc message sq system opensq = set 1 disc2 closesq=set 1 disc2 shlengthsq=set 1 disc2 i topensq i tclosesq i tshlengthsq opensq=compresslib closesq shlengthsq exc=edit catsq m e r/x/scope user.disc2/ f i exc exc=edit catsq m e r/x/f4=binout/ f i exc exc=edit catsq m e r/x/procsurvey/ f i exc binin list.yes f4.c exc=edit catsq m e r/x/clear user/ f i exc message mdsort mdsortproc mdsort=set 1 disc2 mdsortproc=set 1 disc2 i mdsortalgol scope user.disc2 mdsortproc mdsort f5=binout mdsort mdsortproc binin list.yes f5.c procsurvey mdsort mdsortproc clear user mdsort mdsortproc claim lookup f1 f2 f3 f4 f5 filebinisq=set 1 disc2 filebinsq=set 1 disc2 filebinmd=set 1 disc2 scope user filebinisq filebinsq filebinmd filebinisq=move f3 filebinsq=move f4 filebinmd=move f5 claim finis binin list.yes t ;end copy nextfile t t=move f3 nextfile t t=move f4 nextfile t t=move f5 finis ▶EOF◀