|
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: 23040 (0x5a00)
Types: TextFile
Names: »rel10 «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦39138f30b⟧
└─⟦this⟧ »rel10 «
tasgen 1987.05.14 09.41
*clear user tastermtxt anames qnames fnames cltxt gltxt thtxt smtxt,
* phtxt rmtxt sttxt inittxt extdeftxt
*qqq=fastmove tastermtxt
fastmove: a temporary output file created on disc2
*rename qqq.tastermtxt
*qqq=fastmove anames
fastmove: a temporary output file created on disc2
*rename qqq.anames
*qqq=fastmove qnames
fastmove: a temporary output file created on disc2
*rename qqq.qnames
*qqq=fastmove fnames
fastmove: a temporary output file created on disc2
*rename qqq.fnames
*qqq=fastmove cltxt
fastmove: a temporary output file created on disc2
*rename qqq.cltxt
*qqq=fastmove gltxt
fastmove: a temporary output file created on disc2
*rename qqq.gltxt
*qqq=fastmove thtxt
fastmove: a temporary output file created on disc2
*rename qqq.thtxt
*qqq=fastmove smtxt
fastmove: a temporary output file created on disc2
*rename qqq.smtxt
*qqq=fastmove phtxt
fastmove: a temporary output file created on disc2
*rename qqq.phtxt
*qqq=fastmove rmtxt
fastmove: a temporary output file created on disc2
*rename qqq.rmtxt
*qqq=fastmove sttxt
fastmove: a temporary output file created on disc2
*rename qqq.sttxt
*qqq=fastmove inittxt
fastmove: a temporary output file created on disc2
*rename qqq.inittxt
*qqq=fastmove extdeftxt
fastmove: a temporary output file created on disc2
*rename qqq.extdeftxt
*scope user tastermtxt anames qnames fnames cltxt gltxt thtxt smtxt,
* phtxt rmtxt sttxt inittxt extdeftxt
*lookup tastermtxt anames qnames fnames cltxt gltxt thtxt smtxt phtxt,
* rmtxt sttxt inittxt extdeftxt
tastermtxt =set 11 disc2 d.870514.0912 0 0 0 0 ; user
; 30 180 3 190 199
tastermtxt =set 11 disc1 d.870514.0912 0 0 0 0 ; system
; 140 180 3 100 199
anames =set 4 disc2 d.870514.0912 0 0 0 0 ; user
; 43 128 3 190 199
anames =set 4 disc2 d.870514.0912 0 0 0 0 ; system
; 735 128 3 100 199
qnames =set 15 disc2 d.870514.0912 0 0 0 0 ; user
; 48 276 3 190 199
qnames =set 15 disc2 d.870514.0912 0 0 0 0 ; system
; 637 276 3 100 199
fnames =set 6 disc2 d.870514.0913 0 0 0 0 ; user
; 55 99 3 190 199
fnames =set 6 disc2 d.870514.0913 0 0 0 0 ; system
; 66 99 3 100 199
cltxt =set 124 disc2 d.870514.0914 0 0 0 0 ; user
; 56 95 3 190 199
cltxt =set 124 disc2 d.870514.0914 0 0 0 0 ; system
; 300 95 3 100 199
gltxt =set 117 disc2 d.870514.0915 0 0 0 0 ; user
; 57 132 3 190 199
gltxt =set 117 disc2 d.870514.0915 0 0 0 0 ; system
; 638 132 3 100 199
thtxt =set 300 disc2 d.870514.0917 0 0 0 0 ; user
; 60 55 3 190 199
thtxt =set 300 disc2 d.870514.0917 0 0 0 0 ; system
; 761 55 3 100 199
smtxt =set 65 disc2 d.870514.0919 0 0 0 0 ; user
; 67 198 3 190 199
smtxt =set 65 disc2 d.870514.0919 0 0 0 0 ; system
; 707 198 3 100 199
phtxt =set 120 disc2 d.870514.0919 0 0 0 0 ; user
; 128 18 3 190 199
phtxt =set 120 disc2 d.870514.0919 0 0 0 0 ; system
; 708 18 3 100 199
rmtxt =set 43 disc2 d.870514.0916 0 0 0 0 ; user
; 132 264 3 190 199
rmtxt =set 43 disc2 d.870514.0916 0 0 0 0 ; system
; 655 264 3 100 199
sttxt =set 5 disc2 d.870514.0920 0 0 0 0 ; user
; 169 184 3 190 199
sttxt =set 5 disc2 d.870514.0920 0 0 0 0 ; system
; 716 184 3 100 199
inittxt =set 36 disc2 d.870514.0921 0 0 0 0 ; user
; 172 74 3 190 199
inittxt =set 36 disc2 d.870514.0921 0 0 0 0 ; system
; 730 74 3 100 199
extdeftxt =set 15 disc2 d.870514.0922 0 0 0 0 ; user
; 294 248 3 190 199
extdeftxt =set 15 disc3 d.870514.0922 0 0 0 0 ; system
; 8 248 3 100 199
*i tasslang
*if ▶7f◀15.no
*clear user tasterm
*tasterm=set ▶7f◀1 disc2
*tasterm=slang tastermtxt list.no lines.no entry.no type,
* .yes names.yes
0 type
0 fpnames
854 cl variables
1094 end cl variable
3222 globale routiner
6414 receive message
7186 send message to remoter
7770 terminal handler
16818 system menu
18704 pool handler
23038 init
23358 not fp verison
23468 init data message included
24662 end ext
; 24662 id list
b.d2,j10,i10
d0=870514
d1=94233
i0=60
i1=148
i2=184
i3=332
i4=460
i10=142
24682 insertproc
slang ok 1/24662/49
*scope user tasterm
*lookup tasterm
tasterm =set 48 disc2 d.870302.1548 0 0 3.6 5.3886 ; system
; 846 169 3 -8388607 8388605
tasterm =set 49 disc2 d.870514.0942 0 0 3.6 6.86 ; user
; 327 169 3 190 199
*print tasterm integer words.▶7f◀2 ▶7f◀2.▶7f◀4
tasterm
2. 870514, 94233
*if ▶7f◀15.yes
*end
*clear user kerneltxt tctxt
*qqq=fastmove kerneltxt
fastmove: a temporary output file created on disc2
*rename qqq.kerneltxt
*qqq=fastmove tctxt
fastmove: a temporary output file created on disc2
*rename qqq.tctxt
*scope user kerneltxt tctxt
*lookup kerneltxt tctxt
kerneltxt =set 9 disc d.861121.1338 0 0 0 0 ; system
; 1248 50 3 100 199
kerneltxt =set 9 disc2 d.861121.1338 0 0 0 0 ; user
; 397 50 3 190 199
tctxt =set 305 disc1 d.870506.1139 0 0 0 0 ; system
; 347 280 3 100 199
tctxt =set 305 disc2 d.870506.1139 0 0 0 0 ; user
; 409 280 3 190 199
*clear user kernel tascat
*kernel=set ▶7f◀1 disc2
*tascat=set ▶7f◀1 disc2
*kernel=algol kerneltxt
kerneltxt d.861121.1338
1 <*******************************************************************>
1 <* Central logik til tascat. *>
1 <* *>
1 <* Reduceret udgave af centralogic i ALGOL Coroutine System *>
1 <* *>
1 <* Udskrifter af test m.m. til current output er fjernet ! *>
1 <* *>
1 <* Henning Godske 861030 *>
1 <*******************************************************************>
1
1 <**************************************************************>
1 <* Revision history *>
1 <* *>
1 <* 86.12.01 kernel release 1.0 *>
1 <**************************************************************>
1
1 external
220 end;
algol end 8
*tascat=algol tctxt connect.no fp.yes spill.no
tctxt d.870506.1139
1 <****************************************************************************>
1 <* SW8110 Terminal Access System *>
1 <* Catalog and Operator Program 'tascat' *>
1 <* *>
1 <* Henning Godske 870506 *>
1 <* A/S Regnecentralen *>
1 <* *>
1 <* Compiler call :tc=algol connect.no fp.yes spill.no *>
1 <****************************************************************************>
1
1 begin
6610 end;
algol end 280
*scope user kernel tascat
*lookup kernel tascat
kernel =set 8 disc2 2048.54 351.0 0 4.234 7.0 ; user
; 403 117 3 190 199
tascat =set 280 disc2 d.870514.0946 15.118 0 2.2952 3596 ; user
; 411 16 3 190 199
tascat =set 279 disc2 d.870120.1322 14.118 0 2.2742 3356 ; system
; 330 16 3 -8388607 8388605
*clear user mcltxt
*qqq=fastmove mcltxt
fastmove: a temporary output file created on disc2
*rename qqq.mcltxt
*scope user mcltxt
*lookup mcltxt
mcltxt =set 123 disc1 d.870506.1153 0 0 0 0 ; system
; 216 31 3 100 199
mcltxt =set 123 disc2 d.870506.1153 0 0 0 0 ; user
; 418 31 3 190 199
*clear user mcl
*mcl=set ▶7f◀1 disc2
*mcl=algol mcltxt connect.no
mcltxt d.870506.1153
1 begin
3250 end;
algol end 125
*scope user mcl
*lookup mcl
mcl =set 125 disc2 d.870514.0947 15.408 0 2.2952 3596 ; user
; 421 204 3 190 199
mcl =set 124 disc3 d.870119.1325 14.408 0 2.2742 3356 ; system
; 63 204 3 100 199
*clear user mvmcltxt dtctxt ltctxt stctxt
*qqq=fastmove mvmcltxt
fastmove: a temporary output file created on disc2
*rename qqq.mvmcltxt
*qqq=fastmove dtctxt
fastmove: a temporary output file created on disc2
*rename qqq.dtctxt
*qqq=fastmove ltctxt
fastmove: a temporary output file created on disc2
*rename qqq.ltctxt
*qqq=fastmove stctxt
fastmove: a temporary output file created on disc2
*rename qqq.stctxt
*scope user mvmcltxt dtctxt ltctxt stctxt
*lookup mvmcltxt dtctxt ltctxt stctxt
mvmcltxt =set 13 disc1 d.861121.1142 0 0 0 0 ; system
; 60 271 3 100 199
mvmcltxt =set 13 disc2 d.861121.1142 0 0 0 0 ; user
; 417 271 3 190 199
dtctxt =set 10 disc1 d.861121.1146 0 0 0 0 ; system
; 61 153 3 100 199
dtctxt =set 10 disc2 d.861121.1146 0 0 0 0 ; user
; 427 153 3 190 199
ltctxt =set 28 disc1 d.870112.0928 0 0 0 0 ; system
; 36 227 3 100 199
ltctxt =set 28 disc2 d.870112.0928 0 0 0 0 ; user
; 428 227 3 190 199
stctxt =set 39 disc1 d.861223.1340 0 0 0 0 ; system
; 62 66 3 100 199
stctxt =set 39 disc2 d.861223.1340 0 0 0 0 ; user
; 433 66 3 190 199
*clear user movemcl deltascat settascat listtascat
*movemcl=set ▶7f◀1 disc2
*deltascat=set ▶7f◀1 disc2
*settascat=set ▶7f◀1 disc2
*listtascat=set ▶7f◀1 disc2
*movemcl=algol mvmcltxt connect.no
mvmcltxt d.861121.1142
1 begin
292 end;
algol end 49
*deltascat=algol dtctxt connect.no
dtctxt d.861121.1146
1 begin
257 end;
algol end 49
*settascat=algol stctxt
stctxt d.861223.1340
1 begin
850 end;
algol end 78
*listtascat=algol ltctxt connect.no
ltctxt d.870112.0928
1 begin
700 end;
algol end 73
*scope user movemcl deltascat settascat listtascat
*lookup movemcl deltascat settascat listtascat
movemcl =set 49 disc2 d.870514.0948 15.498 0 2.2952 3596 ; user
; 436 84 3 190 199
movemcl =set 48 disc3 d.870108.1144 14.498 0 2.2742 3356 ; system
; 3 84 3 -8388607 8388605
deltascat =set 48 disc1 d.860929.1531 14.132 0 2.2742 3356 ; system
; 44 44 3 -8388607 8388605
deltascat =set 49 disc2 d.870514.0949 15.132 0 2.2952 3596 ; user
; 437 44 3 190 199
settascat =set 77 disc1 d.861223.1341 14.464 0 2.2742 3356 ; system
; 503 266 3 -8388607 8388605
settascat =set 78 disc2 d.870514.0950 15.464 0 2.2952 3596 ; user
; 438 266 3 190 199
listtascat =set 72 disc1 d.870112.0929 14.416 0 2.2742 3356 ; system
; 512 3 3 -8388607 8388605
listtascat =set 73 disc2 d.870514.0950 15.416 0 2.2952 3596 ; user
; 439 3 3 190 199
*clear user stdtasinit stdcattxt operamcltxt instermtxt primomcltxt stdmcltxt upcatmcltxt newtas,
* starttas
*qqq=fastmove stdtasinit
fastmove: a temporary output file created on disc2
*rename qqq.stdtasinit
*qqq=fastmove stdcattxt
fastmove: a temporary output file created on disc2
*rename qqq.stdcattxt
*qqq=fastmove operamcltxt
fastmove: a temporary output file created on disc2
*rename qqq.operamcltxt
*qqq=fastmove instermtxt
fastmove: a temporary output file created on disc2
*rename qqq.instermtxt
*qqq=fastmove primomcltxt
fastmove: a temporary output file created on disc2
*rename qqq.primomcltxt
*qqq=fastmove stdmcltxt
fastmove: a temporary output file created on disc2
*rename qqq.stdmcltxt
*qqq=fastmove upcatmcltxt
fastmove: a temporary output file created on disc2
*rename qqq.upcatmcltxt
*qqq=fastmove newtas
fastmove: a temporary output file created on disc2
*rename qqq.newtas
*qqq=fastmove starttas
fastmove: a temporary output file created on disc2
*rename qqq.starttas
*scope user stdtasinit stdcattxt operamcltxt instermtxt primomcltxt stdmcltxt upcatmcltxt newtas,
* starttas
*lookup stdtasinit stdcattxt operamcltxt instermtxt primomcltxt stdmcltxt upcatmcltxt newtas starttas
stdtasinit =set 1 disc d.870114.1246 0 0 0 0 ; system
; 892 77 3 100 199
stdtasinit =set 1 disc2 d.870114.1246 0 0 0 0 ; user
; 420 77 3 190 199
stdcattxt =set 6 disc d.870123.0846 0 0 0 0 ; system
; 705 48 3 100 199
stdcattxt =set 6 disc2 d.870123.0846 0 0 0 0 ; user
; 467 48 3 190 199
operamcltxt=set 4 disc2 d.870423.1150 0 0 0 0 ; system
; 303 183 3 100 199
operamcltxt=set 4 disc2 d.870423.1150 0 0 0 0 ; user
; 468 183 3 190 199
instermtxt =set 4 disc1 d.870423.1249 0 0 0 0 ; system
; 392 21 3 100 199
instermtxt =set 4 disc2 d.870423.1249 0 0 0 0 ; user
; 597 21 3 190 199
primomcltxt=set 4 disc1 d.870423.1058 0 0 0 0 ; system
; 394 33 3 100 199
primomcltxt=set 4 disc2 d.870423.1058 0 0 0 0 ; user
; 600 33 3 190 199
stdmcltxt =set 5 disc d.870423.1130 0 0 0 0 ; system
; 61 194 3 100 199
stdmcltxt =set 5 disc2 d.870423.1130 0 0 0 0 ; user
; 601 194 3 190 199
upcatmcltxt=set 12 disc2 d.870423.1145 0 0 0 0 ; system
; 305 53 3 100 199
upcatmcltxt=set 12 disc2 d.870423.1145 0 0 0 0 ; user
; 602 53 3 190 199
newtas =set 1 disc d.870216.1118 0 0 0 0 ; system
; 1010 16 3 100 199
newtas =set 1 disc d.861217.1404 0 0 0 0 ; system
; 807 16 3 -8388607 8388605
newtas =set 1 disc2 d.870216.1118 0 0 0 0 ; user
; 603 16 3 190 199
starttas =set 1 disc d.870218.1332 0 0 0 0 ; system
; 565 166 3 -8388607 8388605
starttas =set 1 disc d.870216.1119 0 0 0 0 ; system
; 1048 166 3 100 199
starttas =set 1 disc2 d.870216.1119 0 0 0 0 ; user
; 605 166 3 190 199
*clear user operamcl insterm primomcl stdmcl upcatmcl
*operamcl=mcl operamcltxt
mcl end code 1546
*insterm=mcl instermtxt
mcl end code 1172
*primomcl=mcl primomcltxt
mcl end code 1656
*stdmcl=mcl stdmcltxt
mcl end code 1612
*upcatmcl=mcl upcatmcltxt
mcl end code 4852
*scope user operamcl insterm primomcl stdmcl upcatmcl
*lookup operamcl insterm primomcl stdmcl upcatmcl
operamcl =set 4 disc d.870514.0952 0 0 29.0 1546 ; user
; 151 138 3 190 199
operamcl =set 3 disc d.870119.1327 0 0 29.0 1480 ; system
; 808 138 3 100 199
insterm =set 3 disc d.870514.0952 0 0 29.0 1172 ; user
; 312 10 3 190 199
insterm =set 3 disc d.870115.1340 0 0 29.0 1176 ; system
; 1369 10 3 100 199
primomcl =set 4 disc d.870423.1036 0 0 29.0 1656 ; system
; 1370 289 3 100 199
primomcl =set 4 disc d.870514.0953 0 0 29.0 1656 ; user
; 347 289 3 190 199
stdmcl =set 4 disc d.870514.0953 0 0 29.0 1612 ; user
; 363 261 3 190 199
upcatmcl =set 10 disc d.870514.0953 0 0 29.0 1.756 ; user
; 371 9 3 190 199
upcatmcl =set 8 disc d.861210.1333 0 0 29.0 3806 ; system
; 1394 9 3 100 199
*clear user filebintas
*filebintas=set ▶7f◀1 disc2
*filebintas=binout tasterm tascat mcl movemcl deltascat settascat listtascat stdtasinit,
* .p stdcattxt.p operamcl.p insterm.p primomcl.p stdmcl.p,
* upcatmcl.p newtas.p starttas.p operamcltxt.p instermtxt.p primomcltxt,
* .p stdmcltxt.p upcatmcltxt.p
*scope user filebintas
*lookup filebintas
filebintas =set 1025 disc2 d.870514.0953 0 0 0 0 ; user
; 431 25 3 190 199
*head ▶7f◀1
\f
tasgen 1987.05.14 09.55
*catsort scope.user
\f
catsort page 1, name of catalog: catalog d.870514.0954
base: 190 199 perm
anames 4 disc2 d.870514.0912 0 0 0 0
cltxt 124 disc2 d.870514.0914 0 0 0 0
deltascat 49 disc2 d.870514.0949 15.132 0 2.2952 3596
dtctxt 10 disc2 d.861121.1146 0 0 0 0
extdeftxt 15 disc2 d.870514.0922 0 0 0 0
filebintas 1025 disc2 d.870514.0952 0 0 0 0
fnames 6 disc2 d.870514.0913 0 0 0 0
fpnames 2 disc d.861212.1147 0 0 0 0
genbin 7 disc d.870119.1326 0 0 0 0
gendisc10 2 disc2 d.861215.1128 0 0 0 0
gentape 2 disc d.870129.1458 0 0 0 0
gltxt 117 disc2 d.870514.0915 0 0 0 0
inittxt 36 disc2 d.870514.0921 0 0 0 0
insertproc 2 disc d.861212.1149 0 0 0 0
insterm 3 disc d.870514.0951 0 0 29.0 1172
instermtxt 4 disc2 d.870423.1249 0 0 0 0
kernel 8 disc2 2048.54 351.0 0 4.234 7.0
kerneltxt 9 disc2 d.861121.1338 0 0 0 0
listtascat 73 disc2 d.870514.0950 15.416 0 2.2952 3596
ltclist 6 disc1 d.861210.1527 0 0 0 0
ltctxt 28 disc2 d.870112.0928 0 0 0 0
makefiles 4 disc d.870423.1348 0 0 0 0
makelist 2 disc d.870122.1320 0 0 0 0
mcl 125 disc2 d.870514.0947 15.408 0 2.2952 3596
mcllist 154 disc2 d.870122.1326 0 0 0 0
mclproglist 32 disc2 d.870122.1328 0 0 0 0
mcltxt 123 disc2 d.870506.1153 0 0 0 0
movemcl 49 disc2 d.870514.0948 15.498 0 2.2952 3596
mvmcllist 16 disc d.861210.1526 0 0 0 0
mvmcltxt 13 disc2 d.861121.1142 0 0 0 0
newtas 1 disc2 d.870216.1118 0 0 0 0
operamcl 4 disc d.870514.0951 0 0 29.0 1546
operamcltxt 4 disc2 d.870423.1149 0 0 0 0
phtxt 120 disc2 d.870514.0919 0 0 0 0
primohelp 7 disc2 d.870129.1338 0 0 0 0
primomcl 4 disc d.870514.0952 0 0 29.0 1656
primomcltxt 4 disc2 d.870423.1058 0 0 0 0
qnames 15 disc2 d.870514.0912 0 0 0 0
rel10 168 disc2 d.870514.0940 0 0 0 0
rmtxt 43 disc2 d.870514.0916 0 0 0 0
settascat 78 disc2 d.870514.0950 15.464 0 2.2952 3596
smtxt 65 disc2 d.870514.0918 0 0 0 0
soshelp 9 disc2 d.870129.1332 0 0 0 0
starttas 1 disc2 d.870216.1118 0 0 0 0
stctxt 39 disc2 d.861223.1340 0 0 0 0
stdcattxt 6 disc2 d.870123.0845 0 0 0 0
stdmcl 4 disc d.870514.0952 0 0 29.0 1612
stdmcltxt 5 disc2 d.870423.1129 0 0 0 0
stdtasinit 1 disc2 d.870114.1245 0 0 0 0
sttxt 5 disc2 d.870514.0920 0 0 0 0
tascat 280 disc2 d.870514.0946 15.118 0 2.2952 3596
tascatlist 336 disc2 d.861210.1524 0 0 0 0
tasslang 2 disc d.870122.1321 0 0 0 0
tasterm 49 disc2 d.870514.0942 0 0 3.6 6.86
tastermlist 1367 disc2 d.870122.1321 0 0 0 0
tastermtxt 11 disc2 d.870514.0911 0 0 0 0
tcleartemp 6 disc2 d.860925.1135 0 0 0 0
tclist 363 disc2 d.870122.1324 0 0 0 0
tctxt 305 disc2 d.870506.1139 0 0 0 0
tdisplay 5 disc2 d.860925.1135 0 0 0 0\f
catsort page 2, name of catalog: catalog d.870514.0954
tfileutil 57 disc2 d.860925.1134 0 0 0 0
thtxt 300 disc2 d.870514.0916 0 0 0 0
tnews 1 disc2 d.870113.1132 0 0 0 0
tprimo 319 disc2 d.870129.1235 70 0 0 0
tprologue 11 disc2 d.860925.1135 0 0 0 0
trcmol 178 disc2 d.860925.1131 0 0 0 0
tsos 185 disc2 d.870421.1351 60 0 0 0
tsoscat 2 disc2 d.870113.1126 0 0 0 0
tsostest 4 disc2 d.860925.1135 0 0 0 0
ttemtest 32 disc2 d.860925.1132 0 0 0 0
ttrace 7 disc2 d.860925.1132 0 0 0 0
ttransfer 12 disc2 d.860925.1134 0 0 0 0
tupsoscat 92 disc2 d.860925.1135 0 0 0 0
upcatmcl 10 disc d.870514.0952 0 0 29.0 1.756
upcatmcltxt 12 disc2 d.870423.1145 0 0 0 0
utillist 110 disc2 d.870122.1328 0 0 0 0
6689 segm. 76 entr.
base: 190 199 temp
c tw ap7101279b 0 0 0 0 0
v tw ap7101279b 0 0 0 0 0
wrk000357 2 disc 0 0 0 5.0 2
2 segm. 3 entr.
total: 6691 segm. 79 entr.
disc : 14 slices * 21 = 294 segments 14 entries
disc1 : 1 slices * 84 = 84 segments 1 entries
disc2 : 85 slices *168 = 14280 segments 62 entries
total = 14658 segments
*head
tasgen 1987.05.14 09.55
*o c
▶EOF◀