|
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: »rel11 «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦39138f30b⟧
└─⟦this⟧ »rel11 «
tasgen 1987.08.19 11.14
*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 disc1 d.870514.0912 0 0 0 0 ; system
; 163 8 3 100 199
tastermtxt =set 11 disc2 d.870514.0912 0 0 0 0 ; user
; 25 8 3 190 199
anames =set 4 disc2 d.870514.0912 0 0 0 0 ; user
; 149 57 3 190 199
anames =set 4 disc2 d.870514.0912 0 0 0 0 ; system
; 499 57 3 100 199
qnames =set 15 disc2 d.870514.0912 0 0 0 0 ; user
; 347 89 3 190 199
qnames =set 15 disc2 d.870514.0912 0 0 0 0 ; system
; 1001 89 3 100 199
fnames =set 6 disc2 d.870514.0913 0 0 0 0 ; user
; 362 17 3 190 199
fnames =set 6 disc2 d.870514.0913 0 0 0 0 ; system
; 363 17 3 100 199
cltxt =set 124 disc2 d.870514.0914 0 0 0 0 ; user
; 376 66 3 190 199
cltxt =set 124 disc2 d.870514.0914 0 0 0 0 ; system
; 356 66 3 100 199
gltxt =set 117 disc2 d.870514.0915 0 0 0 0 ; user
; 386 74 3 190 199
gltxt =set 117 disc2 d.870514.0915 0 0 0 0 ; system
; 524 74 3 100 199
thtxt =set 300 disc2 d.870813.1107 0 0 0 0 ; system
; 925 25 3 100 199
thtxt =set 300 disc2 d.870813.1107 0 0 0 0 ; user
; 789 25 3 190 199
smtxt =set 65 disc2 d.870514.0919 0 0 0 0 ; user
; 495 154 3 190 199
smtxt =set 65 disc2 d.870514.0919 0 0 0 0 ; system
; 387 154 3 100 199
phtxt =set 120 disc2 d.870514.0919 0 0 0 0 ; user
; 506 17 3 190 199
phtxt =set 120 disc2 d.870514.0919 0 0 0 0 ; system
; 29 17 3 100 199
rmtxt =set 43 disc2 d.870514.0916 0 0 0 0 ; user
; 632 2 3 190 199
rmtxt =set 43 disc2 d.870514.0916 0 0 0 0 ; system
; 946 2 3 100 199
sttxt =set 5 disc2 d.870514.0920 0 0 0 0 ; user
; 688 146 3 190 199
sttxt =set 5 disc2 d.870514.0920 0 0 0 0 ; system
; 377 146 3 100 199
inittxt =set 36 disc2 d.870514.0921 0 0 0 0 ; user
; 721 7 3 190 199
inittxt =set 36 disc2 d.870514.0921 0 0 0 0 ; system
; 150 7 3 100 199
extdeftxt =set 15 disc2 d.870514.0922 0 0 0 0 ; user
; 915 123 3 190 199
extdeftxt =set 15 disc3 d.870514.0922 0 0 0 0 ; system
; 6 123 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
16816 system menu
18702 pool handler
23036 init
23356 not fp verison
23466 init data message included
24660 end ext
; 24660 id list
b.d2,j10,i10
d0=870819
d1=111516
i0=60
i1=148
i2=184
i3=332
i4=460
i10=142
24680 insertproc
slang ok 1/24660/49
*scope user tasterm
*lookup tasterm
tasterm =set 49 disc2 d.870514.0942 0 0 3.6 6.86 ; system
; 577 49 3 -8388607 8388605
tasterm =set 49 disc2 d.870819.1115 0 0 3.6 6.84 ; user
; 671 49 3 190 199
*print tasterm integer words.▶7f◀2 ▶7f◀2.▶7f◀4
tasterm
2. 870819, 111516
*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
; 395 94 3 100 199
kerneltxt =set 9 disc2 d.861121.1338 0 0 0 0 ; user
; 101 94 3 190 199
tctxt =set 306 disc1 d.870813.1202 0 0 0 0 ; system
; 175 145 3 100 199
tctxt =set 306 disc2 d.870813.1202 0 0 0 0 ; user
; 990 145 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.870813.1202
1 <****************************************************************************>
1 <* SW8110 Terminal Access System *>
1 <* Catalog and Operator Program 'tascat' *>
1 <* *>
1 <* Henning Godske 870814 *>
1 <* A/S Regnecentralen *>
1 <* *>
1 <* Compiler call :tc=algol connect.no fp.yes spill.no *>
1 <****************************************************************************>
1
1 begin
6611 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
; 27 34 3 190 199
tascat =set 280 disc2 d.870819.1118 15.118 0 2.2952 3596 ; user
; 28 91 3 190 199
tascat =set 280 disc2 d.870813.1156 15.118 0 2.2952 3596 ; system
; 711 91 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
; 53 5 3 100 199
mcltxt =set 123 disc2 d.870506.1153 0 0 0 0 ; user
; 72 5 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.870819.1119 15.408 0 2.2952 3596 ; user
; 394 26 3 190 199
mcl =set 124 disc3 d.870119.1325 14.408 0 2.2742 3356 ; system
; 68 26 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
; 385 142 3 100 199
mvmcltxt =set 13 disc2 d.861121.1142 0 0 0 0 ; user
; 67 142 3 190 199
dtctxt =set 10 disc1 d.861121.1146 0 0 0 0 ; system
; 219 181 3 100 199
dtctxt =set 10 disc2 d.861121.1146 0 0 0 0 ; user
; 128 181 3 190 199
ltctxt =set 28 disc1 d.870112.0928 0 0 0 0 ; system
; 300 197 3 100 199
ltctxt =set 28 disc2 d.870112.0928 0 0 0 0 ; user
; 827 197 3 190 199
stctxt =set 39 disc1 d.861223.1340 0 0 0 0 ; system
; 127 61 3 100 199
stctxt =set 39 disc2 d.861223.1340 0 0 0 0 ; user
; 942 61 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.870819.1120 15.498 0 2.2952 3596 ; user
; 78 174 3 190 199
movemcl =set 48 disc3 d.870108.1144 14.498 0 2.2742 3356 ; system
; 19 174 3 -8388607 8388605
deltascat =set 48 disc1 d.860929.1531 14.132 0 2.2742 3356 ; system
; 72 45 3 -8388607 8388605
deltascat =set 49 disc2 d.870819.1120 15.132 0 2.2952 3596 ; user
; 85 45 3 190 199
settascat =set 77 disc1 d.861223.1341 14.464 0 2.2742 3356 ; system
; 380 133 3 -8388607 8388605
settascat =set 78 disc2 d.870819.1121 15.464 0 2.2952 3596 ; user
; 314 133 3 190 199
listtascat =set 72 disc1 d.870112.0929 14.416 0 2.2742 3356 ; system
; 5 1 3 -8388607 8388605
listtascat =set 73 disc2 d.870819.1121 15.416 0 2.2952 3596 ; user
; 953 1 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
; 587 124 3 100 199
stdtasinit =set 1 disc2 d.870114.1246 0 0 0 0 ; user
; 30 124 3 190 199
stdcattxt =set 6 disc d.870123.0846 0 0 0 0 ; system
; 393 48 3 100 199
stdcattxt =set 6 disc2 d.870123.0846 0 0 0 0 ; user
; 74 48 3 190 199
operamcltxt=set 4 disc2 d.870423.1150 0 0 0 0 ; system
; 720 81 3 100 199
operamcltxt=set 4 disc2 d.870423.1150 0 0 0 0 ; user
; 95 81 3 190 199
instermtxt =set 4 disc1 d.870423.1249 0 0 0 0 ; system
; 44 65 3 100 199
instermtxt =set 4 disc2 d.870423.1249 0 0 0 0 ; user
; 106 65 3 190 199
primomcltxt=set 4 disc1 d.870423.1058 0 0 0 0 ; system
; 56 174 3 100 199
primomcltxt=set 4 disc2 d.870423.1058 0 0 0 0 ; user
; 154 174 3 190 199
stdmcltxt =set 5 disc d.870423.1130 0 0 0 0 ; system
; 1169 73 3 100 199
stdmcltxt =set 5 disc2 d.870423.1130 0 0 0 0 ; user
; 374 73 3 190 199
upcatmcltxt=set 12 disc2 d.870423.1145 0 0 0 0 ; system
; 266 72 3 100 199
upcatmcltxt=set 12 disc2 d.870423.1145 0 0 0 0 ; user
; 383 72 3 190 199
newtas =set 1 disc d.870216.1118 0 0 0 0 ; system
; 251 190 3 100 199
newtas =set 1 disc d.861217.1404 0 0 0 0 ; system
; 252 190 3 -8388607 8388605
newtas =set 1 disc2 d.870216.1118 0 0 0 0 ; user
; 401 190 3 190 199
starttas =set 1 disc d.870218.1332 0 0 0 0 ; system
; 963 106 3 -8388607 8388605
starttas =set 1 disc d.870216.1119 0 0 0 0 ; system
; 964 106 3 100 199
starttas =set 1 disc2 d.870216.1119 0 0 0 0 ; user
; 565 106 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.870819.1122 0 0 29.0 1546 ; user
; 135 117 3 190 199
operamcl =set 3 disc d.870119.1327 0 0 29.0 1480 ; system
; 846 117 3 100 199
insterm =set 3 disc d.870819.1122 0 0 29.0 1172 ; user
; 136 106 3 190 199
insterm =set 3 disc d.870115.1340 0 0 29.0 1176 ; system
; 222 106 3 100 199
primomcl =set 4 disc d.870819.1122 0 0 29.0 1656 ; user
; 636 10 3 190 199
primomcl =set 4 disc d.870423.1036 0 0 29.0 1656 ; system
; 1668 10 3 100 199
stdmcl =set 4 disc d.870819.1123 0 0 29.0 1612 ; user
; 643 13 3 190 199
upcatmcl =set 10 disc d.870819.1123 0 0 29.0 1.756 ; user
; 733 109 3 190 199
upcatmcl =set 8 disc d.861210.1333 0 0 29.0 3806 ; system
; 210 109 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.870819.1123 0 0 0 0 ; user
; 955 42 3 190 199
*head ▶7f◀1
\f
tasgen 1987.08.19 11.24
*catsort scope.user
\f
catsort page 1, name of catalog: catalog d.870819.1124
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.870819.1120 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.870819.1122 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.870819.1110 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.870819.1121 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.870819.1120 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.870819.1113 0 0 0 0
makelist 2 disc d.870122.1320 0 0 0 0
mcl 125 disc2 d.870819.1119 15.408 0 2.2952 3596
mcllist 154 disc2 d.870514.1139 0 0 0 0
mclproglist 34 disc2 d.870514.1142 0 0 0 0
mcltxt 123 disc2 d.870506.1153 0 0 0 0
movemcl 49 disc2 d.870819.1120 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.870819.1121 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.870819.1121 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 30 disc2 d.870514.0940 0 0 0 0
rel11 168 disc2 d.870819.1113 0 0 0 0
rmtxt 43 disc2 d.870514.0916 0 0 0 0
settascat 78 disc2 d.870819.1120 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.870819.1122 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.870819.1118 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.870819.1114 0 0 3.6 6.84
tastermlist 1416 disc2 d.870514.1132 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 380 disc2 d.870514.1136 0 0 0 0
tctxt 306 disc2 d.870813.1201 0 0 0 0\f
catsort page 2, name of catalog: catalog d.870819.1124
tdisplay 5 disc2 d.860925.1135 0 0 0 0
tfileutil 57 disc2 d.860925.1134 0 0 0 0
thtxt 300 disc2 d.870813.1107 0 0 0 0
tnews 1 disc2 d.870113.1132 0 0 0 0
tprimo 319 disc2 d.870519.1337 0 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.870611.1529 0 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.870819.1122 0 0 29.0 1.756
upcatmcltxt 12 disc2 d.870423.1145 0 0 0 0
utillist 110 disc2 d.870514.1140 0 0 0 0
6788 segm. 77 entr.
base: 190 199 temp
c tw 0p7101279a 0 0 0 0 0
v tw 0p7101279a 0 0 0 0 0
wrk002124 2 disc 0 0 0 5.0 2
2 segm. 3 entr.
total: 6790 segm. 80 entr.
disc : 14 slices * 21 = 294 segments 14 entries
disc1 : 1 slices * 84 = 84 segments 1 entries
disc2 : 86 slices *168 = 14448 segments 63 entries
total = 14826 segments
*head
tasgen 1987.08.19 11.24
*o c
▶EOF◀