|
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: 82944 (0x14400)
Types: TextFile
Names: »tstext0«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tstext0«
\f
; 0.0
;
disc 5.0
fpa 10.0
magtape 15.0
;
#
; 0.1
message not used
#
; 0.2
message not used
#
; 0.3
message not used
#
; 0.4
message not used
#
; 0.5
message not used
#
; 0.6
message not used
#
; 0.7
message not used
#
; 0.8
message not used
#
; 0.9
message not used
#
; 0.10
message not used
#
; 0.11
message not used
#
; 0.12
message not used
#
; 0.13
message not used
#
; 0.14
message not used
#
; 0.15
message not used
#
; 0.16
message not used
#
; 0.17
message not used
#
; 0.18
message not used
#
; 0.19
message not used
#
message second number outside
$
\f
; 1.0
message not used
#
; 1.1
message not used
#
; 1.2
message not used
#
; 1.3
message not used
#
; 1.4
message not used
#
; 1.5
message not used
#
; 1.6
message not used
#
; 1.7
message not used
#
; 1.8
message not used
#
; 1.9
message not used
#
; 1.10
message not used
#
; 1.11
message not used
#
; 1.12
message not used
#
; 1.13
message not used
#
; 1.14
message not used
#
; 1.15
message not used
#
; 1.16
message not used
#
; 1.17
message not used
#
; 1.18
message not used
#
; 1.19
message not used
#
message second number outside
$
\f
; 2.0
message not used
#
; 2.1
message not used
#
; 2.2
message not used
#
; 2.3
message not used
#
; 2.4
message not used
#
; 2.5
message not used
#
; 2.6
message not used
#
; 2.7
message not used
#
; 2.8
message not used
#
; 2.9
message not used
#
; 2.10
message not used
#
; 2.11
message not used
#
; 2.12
message not used
#
; 2.13
message not used
#
; 2.14
message not used
#
; 2.15
message not used
#
; 2.16
message not used
#
; 2.17
message not used
#
; 2.18
message not used
#
; 2.19
message not used
#
message second number outside
$
\f
; 3.0
message not used
#
; 3.1
message not used
#
; 3.2
message not used
#
; 3.3
message not used
#
; 3.4
message not used
#
; 3.5
message not used
#
; 3.6
message not used
#
; 3.7
message not used
#
; 3.8
message not used
#
; 3.9
message not used
#
; 3.10
message not used
#
; 3.11
message not used
#
; 3.12
message not used
#
; 3.13
message not used
#
; 3.14
message not used
#
; 3.15
message not used
#
; 3.16
message not used
#
; 3.17
message not used
#
; 3.18
message not used
#
; 3.19
message not used
#
message second number outside
$
\f
; 4.0
message not used
#
; 4.1
message not used
#
; 4.2
message not used
#
; 4.3
message not used
#
; 4.4
message not used
#
; 4.5
message not used
#
; 4.6
message not used
#
; 4.7
message not used
#
; 4.8
message not used
#
; 4.9
message not used
#
; 4.10
message not used
#
; 4.11
message not used
#
; 4.12
message not used
#
; 4.13
message not used
#
; 4.14
message not used
#
; 4.15
message not used
#
; 4.16
message not used
#
; 4.17
message not used
#
; 4.18
message not used
#
; 4.19
message not used
#
message second number outside
$
\f
; 5.0
;
disc:
statistik 6.0
test 7.0
result/status 8.0
;
#
; 5.1
message not used
#
; 5.2
message not used
#
; 5.3
message not used
#
; 5.4
message not used
#
; 5.5
message not used
#
; 5.6
message not used
#
; 5.7
message not used
#
; 5.8
message not used
#
; 5.9
message not used
#
; 5.10
message not used
#
; 5.11
message not used
#
; 5.12
message not used
#
; 5.13
message not used
#
; 5.14
message not used
#
; 5.15
message not used
#
; 5.16
message not used
#
; 5.17
message not used
#
; 5.18
message not used
#
; 5.19
message not used
#
message second number outside
$
\f
; 6.0
;
disc: info job
discstat(core) 6.1 56.1
discstat(autodisc) 6.2 56.2
discstat(dump) 6.3 56.3
do-stat(core):
alle 6.4 56.4
dev.no(log/fys) 6.5 56.5
name(log/fys) 6.6 56.6
;
#
; 6.1
;
discstat(core):
job til udskrivning af disc-statistikker fra core
v.h.a. dhdiscstat.
hvis dhdiscstat ikke findes, loades det fra mt999999.2;
jobbet udskriver statistikker fra alle process-
beskrivelser med kind = 62 og mainproc = 0;
jobbet genererer følgende områder:
tsstat 40 segm ; algol-program til generering af
tscore8000 200 - ; coredump og
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 6.2
;
discstat(autodisc):
job til udskrivning af disc-statistikker fra dump-arealet
på autodiscen v.h.a. dhdiscstat.
hvis dhdiscstat ikke findes, loades det fra mt999999.2;
autodiscen eller dumpdiscen skal være callet: dumpdisc;
dumpdiscen er den der er autoloadet fra
device nummer er 27.29.31. eller 33
eks. att s
call 27 dumpdisc
jobbet udskriver statistikker fra alle process-
beskrivelser med kind = 62 og mainproc = 0;
jobbet genererer følgende entries og områder:
tsdump bs ; entry, der beskriver dump-arealet,
; som moves over i
tscore7999 200 segm ;
tsstat 40 - ; algol-program til generering af
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 6.3
;
discstat(dump):
job til udskrivning af disc-statistikker fra et coredump
v.h.a. dhdiscstat;
hvis dhdiscstat ikke findes, loades det fra mt999999.2;
området: tscore7998 skal indeholde coredumpet;
eks. coredumpet er på fil 0 på et magnetbånd(tsarb)
att s
call 10 tsarb ; båndet skal være monteret inden callet
; i en internal process:
fil0=set mto tsarb 0 0 ; sidste parameter er filno
tscore7998=move fil0 ;
scope user tscore7998 ;
; herefter køres jobbet.
jobbet udskriver disc-statistikker fra alle process-
beskrivelser med kind = 62 og mainproc = 0;
jobbet genererer følgende områder:
tsstat 40 segm ; algol-program til generering af
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 6.4
;
do-stat: alle
job til udskrivning af disc-statistikker fra core
v.h.a. do.
jobbet udskriver statistik-området fra alle process-
beskrivelser med kind = 62 og mainproc = 0;
jobbet benyttes kun til at se om der er discfejl;
hvis man ønsker at se, hvilke fejl det drejer sig om,
benyt: ts 56.1 (job) (info: ts 6.1).
#
; 6.5
;
do-stat: dev.no(log/fys)
job til udskrivning af statistik fra en disc ved
angivelse af device-nummer på den logiske eller
fysiske disc.
jobbet udskriver statistik-området fra den
fysiske disc (kind = 62 og mainproc = 0);
jobbet benyttes kun til at se om der er discfejl;
hvis man ønsker at se, hvilke fejl det drejer sig om,
benyt: ts 56.1 (job) (info: ts 6.1).
;
#
; 6.6
;
do-stat: name(log/fys)
job til udskrivning af statistik fra en disc ved
angivelse af name på den logiske eller fysiske
disc.
jobbet udskriver statistik-området fra den
fysiske disc (kind = 62 og mainproc = 0);
jobbet benyttes kun til at se om der er discfejl;
hvis man ønsker at se, hvilke fejl det drejer sig om,
benyt: ts 56.1 (job) (info: ts 6.1).
;
#
; 6.7
message not used
#
; 6.8
message not used
#
; 6.9
message not used
#
; 6.10
message not used
#
; 6.11
message not used
#
; 6.12
message not used
#
; 6.13
message not used
#
; 6.14
message not used
#
; 6.15
message not used
#
; 6.16
message not used
#
; 6.17
message not used
#
; 6.18
message not used
#
; 6.19
message not used
#
message second number outside
$
\f
; 7.0
message not used
#
; 7.1
message not used
#
; 7.2
message not used
#
; 7.3
message not used
#
; 7.4
message not used
#
; 7.5
message not used
#
; 7.6
message not used
#
; 7.7
message not used
#
; 7.8
message not used
#
; 7.9
message not used
#
; 7.10
message not used
#
; 7.11
message not used
#
; 7.12
message not used
#
; 7.13
message not used
#
; 7.14
message not used
#
; 7.15
message not used
#
; 7.16
message not used
#
; 7.17
message not used
#
; 7.18
message not used
#
; 7.19
message not used
#
message second number outside
$
\f
; 8.0
;
;
disc:
i/o result 8.1
cur status 8.2
event status 8.3
detail status 8.4
;
#
; 8.1
;
disc - i/o result:
0 normal termination
1 bus reject
2 bus timeout
3 software timeout
4 abnormal termination
the hardware has delivered an interrupt
before the end of the channelprogram
5 wait program terminated
6 power restart
;
#
; 8.2
;
disc - cur status:
bit 0 power low
- 1 local
- 5 seek error
- 8 write protect
- 9 high density
- 10 mode
- 16-23 devicekind
not used bits area zero
;
#
; 8.3
;
disc - event status:
bit 0 intervention
- 1 data error
- 3 data overrun
- 4 hard error
- 5 position error
- 20 communication error
- 21 interrupt error
- 22 bus timeout
- 23 bus parity error
not used bits area zero
;
#
; 8.4
;
disc - detailled status:
bit 0 interface check
- 1 drive status check
- 2 powerfail check
- 3 command sequence check
- 4 cu instruction execution incomplete
- 5 data check
- 6 data overrun
- 8 multiple or no unit selected
- 9 sector- or index-error
- 10 check drive diagnistic
- 11 synccharacter not found
- 12 address mark not found
- 13 read or write while attention
- 14 no servo clock
- 15 write and offset active
- 16 no head select
- 17 write fault
- 18 write or read and off cylinder
- 19 write and read fault
- 20 voltage fault
- 21 head select fault
- 22 seek-error
- 23 write protect
#
; 8.5
message not used
#
; 8.6
message not used
#
; 8.7
message not used
#
; 8.8
message not used
#
; 8.9
message not used
#
; 8.10
message not used
#
; 8.11
message not used
#
; 8.12
message not used
#
; 8.13
message not used
#
; 8.14
message not used
#
; 8.15
message not used
#
; 8.16
message not used
#
; 8.17
message not used
#
; 8.18
message not used
#
; 8.19
message not used
#
message second number outside
$
\f
; 9.0
message not used
#
; 9.1
message not used
#
; 9.2
message not used
#
; 9.3
message not used
#
; 9.4
message not used
#
; 9.5
message not used
#
; 9.6
message not used
#
; 9.7
message not used
#
; 9.8
message not used
#
; 9.9
message not used
#
; 9.10
message not used
#
; 9.11
message not used
#
; 9.12
message not used
#
; 9.13
message not used
#
; 9.14
message not used
#
; 9.15
message not used
#
; 9.16
message not used
#
; 9.17
message not used
#
; 9.18
message not used
#
; 9.19
message not used
#
message second number outside
$
\f
; 10.0
;
fpa:
statistik 11.0
test-mask 12.0
;
#
; 10.1
message not used
#
; 10.2
message not used
#
; 10.3
message not used
#
; 10.4
message not used
#
; 10.5
message not used
#
; 10.6
message not used
#
; 10.7
message not used
#
; 10.8
message not used
#
; 10.9
message not used
#
; 10.10
message not used
#
; 10.11
message not used
#
; 10.12
message not used
#
; 10.13
message not used
#
; 10.14
message not used
#
; 10.15
message not used
#
; 10.16
message not used
#
; 10.17
message not used
#
; 10.18
message not used
#
; 10.19
message not used
#
message second number outside
$
\f
; 11.0
;
fpa: info job
fpastat(core) 11.1 61.1
med test.yes 11.2 61.2
fpastat(autodisc) 11.3 61.3
med test.yes 11.4 61.4
fpastat(dump) 11.5 61.5
med test.yes 11.6 61.6
fpastat - syntax 11.7
;
#
; 11.1
;
fpastat(core):
job til udskrivning af fpa-statistikker fra core
v.h.a. fpastat;
hvis fpastat ikke findes, loades det fra mt999999.2;
jobbet udskriver statistikker fra alle process-
beskrivelser med kind = 80;
jobbet genererer følgende områder:
tsstat 40 segm ; algol-program til generering af
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 11.2
;
fpastat(core) med test.yes:
job til udskrivning af fpa-statistikker med test-buffer
fra core v.h.a. fpastat;
se iøvrigt 11.1
;
#
; 11.3
;
fpastat(autodisc):
job til udskrivning af fpa-statistikker fra dump-arealet
på autodiscen v.h.a. fpastat;
hvis fpastat ikke findes, loades det fra mt999999.2;
autodiscen eller dumpdiscen skal være callet: dumpdisc;
dumpdiscen er den der er autoloadet fra
device nummer er 27.29.31. eller 33
eks. att s
call 27 dumpdisc
jobbet udskriver statistikker fra alle process-
beskrivelser med kind = 80;
jobbet genererer følgende entries og områder:
tsdump bs ; entry, der beskriver dump-arealet,
; som moves over i
tscore7999 200 segm ;
tsstat 40 - ; algol-program til generering af
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 11.4
;
fpastat(autodisc) med test.yes:
job til udskrivning af fpa-statistikker med test-buffer
fra dump-arealet på autodiscen v.h.a. fpastat;
se iøvrigt 11.3
;
#
; 11.5
;
fpastat(dump):
job til udskrivning af fpa-statistikker fra et coredump
v.h.a. fpastat;
hvis fpastat ikke findes, loades det fra mt999999.2;
området: tscore7998 skal indeholde coredumpet;
eks. coredumpet er på fil 0 på et magnetbånd(tsarb)
att s
call 10 tsarb ; båndet skal være monteret inden callet
; i en internal process:
fil0=set mto tsarb 0 0 ; sidste parameter er filno
tscore7998=move fil0
scope user tscore7998
; herefter køres jobbet.
jobbet udskriver statistikker fra alle process-
beskrivelser med kind = 80;
jobbet genererer følgende områder:
tsstat 40 segm ; algol-program til generering af
tsstatkald 2 - ; jobfil
områderne cleares efter brug.
;
#
; 11.6
;
fpastat(dump) med test.yes:
job til udskrivning af fpa-statistikker med test-buffer
fra et coredump v.h.a. fpastat;
se iøvrigt 11.5
;
#
; 11.7
;
fpastat <proc spec> <function>
<proc spec>::= core8000.<name(fpa-mainproc)>
eller dump8000.<dump file>.<proc descr addr(fpa-mainproc)>
<function>::= <empty>
eller test.yes
eller test.no ; default value
eks.: fpastat core8000.main36001 test.yes
eks. fpastat fra coredump på autodiscen (i dette tilfælde dev 27)
att s
call 27 dumpdisc
; derefter i en internal process:
tsdump=set bs dumpdisc 0 0 840
tscore7999=set 200
tscore7999=move tsdump
; <addr> findes f.eks. med et do-call:
do x3.main36001 process description write w0
udskrift: w0 = <addr>
fpastat dump8000.tscore7999.<addr> test.yes
#
; 11.8
message not used
#
; 11.9
message not used
#
; 11.10
message not used
#
; 11.11
message not used
#
; 11.12
message not used
#
; 11.13
message not used
#
; 11.14
message not used
#
; 11.15
message not used
#
; 11.16
message not used
#
; 11.17
message not used
#
; 11.18
message not used
#
; 11.19
message not used
#
message second number outside
$
\f
; 12.0
;
fpa test-mask: info job
nulstil mask 12.1 62.1
sæt mask 12.2 62.2
;
#
; 12.1
;
fpa (nulstil test-mask):
job til nulstilling af test-mask i alle processer
med kind = 80(fpa-main) v.h.a. do;
jobbet udskriver navnet på fpa-main samt result
i answer.
;
#
; 12.2
;
fpa (sæt test-mask):
job til aktivering af test i alle processer
med kind=80(fpa-main) v.h.a. do;
jobbet udskriver navnet på fpa-main samt result
i answer.
;
#
; 12.3
message not used
#
; 12.4
message not used
#
; 12.5
message not used
#
; 12.6
message not used
#
; 12.7
message not used
#
; 12.8
message not used
#
; 12.9
message not used
#
; 12.10
message not used
#
; 12.11
message not used
#
; 12.12
message not used
#
; 12.13
message not used
#
; 12.14
message not used
#
; 12.15
message not used
#
; 12.16
message not used
#
; 12.17
message not used
#
; 12.18
message not used
#
; 12.19
message not used
#
message second number outside
$
\f
; 13.0
message not used
#
; 13.1
message not used
#
; 13.2
message not used
#
; 13.3
message not used
#
; 13.4
message not used
#
; 13.5
message not used
#
; 13.6
message not used
#
; 13.7
message not used
#
; 13.8
message not used
#
; 13.9
message not used
#
; 13.10
message not used
#
; 13.11
message not used
#
; 13.12
message not used
#
; 13.13
message not used
#
; 13.14
message not used
#
; 13.15
message not used
#
; 13.16
message not used
#
; 13.17
message not used
#
; 13.18
message not used
#
; 13.19
message not used
#
message second number outside
$
\f
; 14.0
message not used
#
; 14.1
message not used
#
; 14.2
message not used
#
; 14.3
message not used
#
; 14.4
message not used
#
; 14.5
message not used
#
; 14.6
message not used
#
; 14.7
message not used
#
; 14.8
message not used
#
; 14.9
message not used
#
; 14.10
message not used
#
; 14.11
message not used
#
; 14.12
message not used
#
; 14.13
message not used
#
; 14.14
message not used
#
; 14.15
message not used
#
; 14.16
message not used
#
; 14.17
message not used
#
; 14.18
message not used
#
; 14.19
message not used
#
message second number outside
$
\f
; 15.0
message not used
#
; 15.1
message not used
#
; 15.2
message not used
#
; 15.3
message not used
#
; 15.4
message not used
#
; 15.5
message not used
#
; 15.6
message not used
#
; 15.7
message not used
#
; 15.8
message not used
#
; 15.9
message not used
#
; 15.10
message not used
#
; 15.11
message not used
#
; 15.12
message not used
#
; 15.13
message not used
#
; 15.14
message not used
#
; 15.15
message not used
#
; 15.16
message not used
#
; 15.17
message not used
#
; 15.18
message not used
#
; 15.19
message not used
#
message second number outside
$
\f
; 16.0
message not used
#
; 16.1
message not used
#
; 16.2
message not used
#
; 16.3
message not used
#
; 16.4
message not used
#
; 16.5
message not used
#
; 16.6
message not used
#
; 16.7
message not used
#
; 16.8
message not used
#
; 16.9
message not used
#
; 16.10
message not used
#
; 16.11
message not used
#
; 16.12
message not used
#
; 16.13
message not used
#
; 16.14
message not used
#
; 16.15
message not used
#
; 16.16
message not used
#
; 16.17
message not used
#
; 16.18
message not used
#
; 16.19
message not used
#
message second number outside
$
\f
; 17.0
message not used
#
; 17.1
message not used
#
; 17.2
message not used
#
; 17.3
message not used
#
; 17.4
message not used
#
; 17.5
message not used
#
; 17.6
message not used
#
; 17.7
message not used
#
; 17.8
message not used
#
; 17.9
message not used
#
; 17.10
message not used
#
; 17.11
message not used
#
; 17.12
message not used
#
; 17.13
message not used
#
; 17.14
message not used
#
; 17.15
message not used
#
; 17.16
message not used
#
; 17.17
message not used
#
; 17.18
message not used
#
; 17.19
message not used
#
message second number outside
$
\f
; 18.0
message not used
#
; 18.1
message not used
#
; 18.2
message not used
#
; 18.3
message not used
#
; 18.4
message not used
#
; 18.5
message not used
#
; 18.6
message not used
#
; 18.7
message not used
#
; 18.8
message not used
#
; 18.9
message not used
#
; 18.10
message not used
#
; 18.11
message not used
#
; 18.12
message not used
#
; 18.13
message not used
#
; 18.14
message not used
#
; 18.15
message not used
#
; 18.16
message not used
#
; 18.17
message not used
#
; 18.18
message not used
#
; 18.19
message not used
#
message second number outside
$
\f
; 19.0
message not used
#
; 19.1
message not used
#
; 19.2
message not used
#
; 19.3
message not used
#
; 19.4
message not used
#
; 19.5
message not used
#
; 19.6
message not used
#
; 19.7
message not used
#
; 19.8
message not used
#
; 19.9
message not used
#
; 19.10
message not used
#
; 19.11
message not used
#
; 19.12
message not used
#
; 19.13
message not used
#
; 19.14
message not used
#
; 19.15
message not used
#
; 19.16
message not used
#
; 19.17
message not used
#
; 19.18
message not used
#
; 19.19
message not used
#
message second number outside
$
\f
; 20.0
message not used
#
; 20.1
message not used
#
; 20.2
message not used
#
; 20.3
message not used
#
; 20.4
message not used
#
; 20.5
message not used
#
; 20.6
message not used
#
; 20.7
message not used
#
; 20.8
message not used
#
; 20.9
message not used
#
; 20.10
message not used
#
; 20.11
message not used
#
; 20.12
message not used
#
; 20.13
message not used
#
; 20.14
message not used
#
; 20.15
message not used
#
; 20.16
message not used
#
; 20.17
message not used
#
; 20.18
message not used
#
; 20.19
message not used
#
message second number outside
$
\f
; 21.0
message not used
#
; 21.1
message not used
#
; 21.2
message not used
#
; 21.3
message not used
#
; 21.4
message not used
#
; 21.5
message not used
#
; 21.6
message not used
#
; 21.7
message not used
#
; 21.8
message not used
#
; 21.9
message not used
#
; 21.10
message not used
#
; 21.11
message not used
#
; 21.12
message not used
#
; 21.13
message not used
#
; 21.14
message not used
#
; 21.15
message not used
#
; 21.16
message not used
#
; 21.17
message not used
#
; 21.18
message not used
#
; 21.19
message not used
#
message second number outside
$
\f
; 22.0
message not used
#
; 22.1
message not used
#
; 22.2
message not used
#
; 22.3
message not used
#
; 22.4
message not used
#
; 22.5
message not used
#
; 22.6
message not used
#
; 22.7
message not used
#
; 22.8
message not used
#
; 22.9
message not used
#
; 22.10
message not used
#
; 22.11
message not used
#
; 22.12
message not used
#
; 22.13
message not used
#
; 22.14
message not used
#
; 22.15
message not used
#
; 22.16
message not used
#
; 22.17
message not used
#
; 22.18
message not used
#
; 22.19
message not used
#
message second number outside
$
\f
; 23.0
message not used
#
; 23.1
message not used
#
; 23.2
message not used
#
; 23.3
message not used
#
; 23.4
message not used
#
; 23.5
message not used
#
; 23.6
message not used
#
; 23.7
message not used
#
; 23.8
message not used
#
; 23.9
message not used
#
; 23.10
message not used
#
; 23.11
message not used
#
; 23.12
message not used
#
; 23.13
message not used
#
; 23.14
message not used
#
; 23.15
message not used
#
; 23.16
message not used
#
; 23.17
message not used
#
; 23.18
message not used
#
; 23.19
message not used
#
message second number outside
$
\f
; 24.0
message not used
#
; 24.1
message not used
#
; 24.2
message not used
#
; 24.3
message not used
#
; 24.4
message not used
#
; 24.5
message not used
#
; 24.6
message not used
#
; 24.7
message not used
#
; 24.8
message not used
#
; 24.9
message not used
#
; 24.10
message not used
#
; 24.11
message not used
#
; 24.12
message not used
#
; 24.13
message not used
#
; 24.14
message not used
#
; 24.15
message not used
#
; 24.16
message not used
#
; 24.17
message not used
#
; 24.18
message not used
#
; 24.19
message not used
#
message second number outside
$
\f
; 25.0
message not used
#
; 25.1
message not used
#
; 25.2
message not used
#
; 25.3
message not used
#
; 25.4
message not used
#
; 25.5
message not used
#
; 25.6
message not used
#
; 25.7
message not used
#
; 25.8
message not used
#
; 25.9
message not used
#
; 25.10
message not used
#
; 25.11
message not used
#
; 25.12
message not used
#
; 25.13
message not used
#
; 25.14
message not used
#
; 25.15
message not used
#
; 25.16
message not used
#
; 25.17
message not used
#
; 25.18
message not used
#
; 25.19
message not used
#
message second number outside
$
\f
; 26.0
message not used
#
; 26.1
message not used
#
; 26.2
message not used
#
; 26.3
message not used
#
; 26.4
message not used
#
; 26.5
message not used
#
; 26.6
message not used
#
; 26.7
message not used
#
; 26.8
message not used
#
; 26.9
message not used
#
; 26.10
message not used
#
; 26.11
message not used
#
; 26.12
message not used
#
; 26.13
message not used
#
; 26.14
message not used
#
; 26.15
message not used
#
; 26.16
message not used
#
; 26.17
message not used
#
; 26.18
message not used
#
; 26.19
message not used
#
message second number outside
$
\f
; 27.0
message not used
#
; 27.1
message not used
#
; 27.2
message not used
#
; 27.3
message not used
#
; 27.4
message not used
#
; 27.5
message not used
#
; 27.6
message not used
#
; 27.7
message not used
#
; 27.8
message not used
#
; 27.9
message not used
#
; 27.10
message not used
#
; 27.11
message not used
#
; 27.12
message not used
#
; 27.13
message not used
#
; 27.14
message not used
#
; 27.15
message not used
#
; 27.16
message not used
#
; 27.17
message not used
#
; 27.18
message not used
#
; 27.19
message not used
#
message second number outside
$
\f
; 28.0
message not used
#
; 28.1
message not used
#
; 28.2
message not used
#
; 28.3
message not used
#
; 28.4
message not used
#
; 28.5
message not used
#
; 28.6
message not used
#
; 28.7
message not used
#
; 28.8
message not used
#
; 28.9
message not used
#
; 28.10
message not used
#
; 28.11
message not used
#
; 28.12
message not used
#
; 28.13
message not used
#
; 28.14
message not used
#
; 28.15
message not used
#
; 28.16
message not used
#
; 28.17
message not used
#
; 28.18
message not used
#
; 28.19
message not used
#
message second number outside
$
\f
; 29.0
message not used
#
; 29.1
message not used
#
; 29.2
message not used
#
; 29.3
message not used
#
; 29.4
message not used
#
; 29.5
message not used
#
; 29.6
message not used
#
; 29.7
message not used
#
; 29.8
message not used
#
; 29.9
message not used
#
; 29.10
message not used
#
; 29.11
message not used
#
; 29.12
message not used
#
; 29.13
message not used
#
; 29.14
message not used
#
; 29.15
message not used
#
; 29.16
message not used
#
; 29.17
message not used
#
; 29.18
message not used
#
; 29.19
message not used
#
message second number outside
$
\f
; 30.0
message not used
#
; 30.1
message not used
#
; 30.2
message not used
#
; 30.3
message not used
#
; 30.4
message not used
#
; 30.5
message not used
#
; 30.6
message not used
#
; 30.7
message not used
#
; 30.8
message not used
#
; 30.9
message not used
#
; 30.10
message not used
#
; 30.11
message not used
#
; 30.12
message not used
#
; 30.13
message not used
#
; 30.14
message not used
#
; 30.15
message not used
#
; 30.16
message not used
#
; 30.17
message not used
#
; 30.18
message not used
#
; 30.19
message not used
#
message second number outside
$
\f
; 31.0
message not used
#
; 31.1
message not used
#
; 31.2
message not used
#
; 31.3
message not used
#
; 31.4
message not used
#
; 31.5
message not used
#
; 31.6
message not used
#
; 31.7
message not used
#
; 31.8
message not used
#
; 31.9
message not used
#
; 31.10
message not used
#
; 31.11
message not used
#
; 31.12
message not used
#
; 31.13
message not used
#
; 31.14
message not used
#
; 31.15
message not used
#
; 31.16
message not used
#
; 31.17
message not used
#
; 31.18
message not used
#
; 31.19
message not used
#
message second number outside
$
\f
; 32.0
message not used
#
; 32.1
message not used
#
; 32.2
message not used
#
; 32.3
message not used
#
; 32.4
message not used
#
; 32.5
message not used
#
; 32.6
message not used
#
; 32.7
message not used
#
; 32.8
message not used
#
; 32.9
message not used
#
; 32.10
message not used
#
; 32.11
message not used
#
; 32.12
message not used
#
; 32.13
message not used
#
; 32.14
message not used
#
; 32.15
message not used
#
; 32.16
message not used
#
; 32.17
message not used
#
; 32.18
message not used
#
; 32.19
message not used
#
message second number outside
$
\f
; 33.0
message not used
#
; 33.1
message not used
#
; 33.2
message not used
#
; 33.3
message not used
#
; 33.4
message not used
#
; 33.5
message not used
#
; 33.6
message not used
#
; 33.7
message not used
#
; 33.8
message not used
#
; 33.9
message not used
#
; 33.10
message not used
#
; 33.11
message not used
#
; 33.12
message not used
#
; 33.13
message not used
#
; 33.14
message not used
#
; 33.15
message not used
#
; 33.16
message not used
#
; 33.17
message not used
#
; 33.18
message not used
#
; 33.19
message not used
#
message second number outside
$
\f
; 34.0
message not used
#
; 34.1
message not used
#
; 34.2
message not used
#
; 34.3
message not used
#
; 34.4
message not used
#
; 34.5
message not used
#
; 34.6
message not used
#
; 34.7
message not used
#
; 34.8
message not used
#
; 34.9
message not used
#
; 34.10
message not used
#
; 34.11
message not used
#
; 34.12
message not used
#
; 34.13
message not used
#
; 34.14
message not used
#
; 34.15
message not used
#
; 34.16
message not used
#
; 34.17
message not used
#
; 34.18
message not used
#
; 34.19
message not used
#
message second number outside
$
\f
; 35.0
message not used
#
; 35.1
message not used
#
; 35.2
message not used
#
; 35.3
message not used
#
; 35.4
message not used
#
; 35.5
message not used
#
; 35.6
message not used
#
; 35.7
message not used
#
; 35.8
message not used
#
; 35.9
message not used
#
; 35.10
message not used
#
; 35.11
message not used
#
; 35.12
message not used
#
; 35.13
message not used
#
; 35.14
message not used
#
; 35.15
message not used
#
; 35.16
message not used
#
; 35.17
message not used
#
; 35.18
message not used
#
; 35.19
message not used
#
message second number outside
$
\f
; 36.0
message not used
#
; 36.1
message not used
#
; 36.2
message not used
#
; 36.3
message not used
#
; 36.4
message not used
#
; 36.5
message not used
#
; 36.6
message not used
#
; 36.7
message not used
#
; 36.8
message not used
#
; 36.9
message not used
#
; 36.10
message not used
#
; 36.11
message not used
#
; 36.12
message not used
#
; 36.13
message not used
#
; 36.14
message not used
#
; 36.15
message not used
#
; 36.16
message not used
#
; 36.17
message not used
#
; 36.18
message not used
#
; 36.19
message not used
#
message second number outside
$
\f
; 37.0
message not used
#
; 37.1
message not used
#
; 37.2
message not used
#
; 37.3
message not used
#
; 37.4
message not used
#
; 37.5
message not used
#
; 37.6
message not used
#
; 37.7
message not used
#
; 37.8
message not used
#
; 37.9
message not used
#
; 37.10
message not used
#
; 37.11
message not used
#
; 37.12
message not used
#
; 37.13
message not used
#
; 37.14
message not used
#
; 37.15
message not used
#
; 37.16
message not used
#
; 37.17
message not used
#
; 37.18
message not used
#
; 37.19
message not used
#
message second number outside
$
\f
; 38.0
message not used
#
; 38.1
message not used
#
; 38.2
message not used
#
; 38.3
message not used
#
; 38.4
message not used
#
; 38.5
message not used
#
; 38.6
message not used
#
; 38.7
message not used
#
; 38.8
message not used
#
; 38.9
message not used
#
; 38.10
message not used
#
; 38.11
message not used
#
; 38.12
message not used
#
; 38.13
message not used
#
; 38.14
message not used
#
; 38.15
message not used
#
; 38.16
message not used
#
; 38.17
message not used
#
; 38.18
message not used
#
; 38.19
message not used
#
message second number outside
$
\f
; 39.0
message not used
#
; 39.1
message not used
#
; 39.2
message not used
#
; 39.3
message not used
#
; 39.4
message not used
#
; 39.5
message not used
#
; 39.6
message not used
#
; 39.7
message not used
#
; 39.8
message not used
#
; 39.9
message not used
#
; 39.10
message not used
#
; 39.11
message not used
#
; 39.12
message not used
#
; 39.13
message not used
#
; 39.14
message not used
#
; 39.15
message not used
#
; 39.16
message not used
#
; 39.17
message not used
#
; 39.18
message not used
#
; 39.19
message not used
#
message second number outside
$
\f
; 40.0
message not used
#
; 40.1
message not used
#
; 40.2
message not used
#
; 40.3
message not used
#
; 40.4
message not used
#
; 40.5
message not used
#
; 40.6
message not used
#
; 40.7
message not used
#
; 40.8
message not used
#
; 40.9
message not used
#
; 40.10
message not used
#
; 40.11
message not used
#
; 40.12
message not used
#
; 40.13
message not used
#
; 40.14
message not used
#
; 40.15
message not used
#
; 40.16
message not used
#
; 40.17
message not used
#
; 40.18
message not used
#
; 40.19
message not used
#
message second number outside
$
\f
; 41.0
message not used
#
; 41.1
message not used
#
; 41.2
message not used
#
; 41.3
message not used
#
; 41.4
message not used
#
; 41.5
message not used
#
; 41.6
message not used
#
; 41.7
message not used
#
; 41.8
message not used
#
; 41.9
message not used
#
; 41.10
message not used
#
; 41.11
message not used
#
; 41.12
message not used
#
; 41.13
message not used
#
; 41.14
message not used
#
; 41.15
message not used
#
; 41.16
message not used
#
; 41.17
message not used
#
; 41.18
message not used
#
; 41.19
message not used
#
message second number outside
$
\f
; 42.0
message not used
#
; 42.1
message not used
#
; 42.2
message not used
#
; 42.3
message not used
#
; 42.4
message not used
#
; 42.5
message not used
#
; 42.6
message not used
#
; 42.7
message not used
#
; 42.8
message not used
#
; 42.9
message not used
#
; 42.10
message not used
#
; 42.11
message not used
#
; 42.12
message not used
#
; 42.13
message not used
#
; 42.14
message not used
#
; 42.15
message not used
#
; 42.16
message not used
#
; 42.17
message not used
#
; 42.18
message not used
#
; 42.19
message not used
#
message second number outside
$
\f
; 43.0
message not used
#
; 43.1
message not used
#
; 43.2
message not used
#
; 43.3
message not used
#
; 43.4
message not used
#
; 43.5
message not used
#
; 43.6
message not used
#
; 43.7
message not used
#
; 43.8
message not used
#
; 43.9
message not used
#
; 43.10
message not used
#
; 43.11
message not used
#
; 43.12
message not used
#
; 43.13
message not used
#
; 43.14
message not used
#
; 43.15
message not used
#
; 43.16
message not used
#
; 43.17
message not used
#
; 43.18
message not used
#
; 43.19
message not used
#
message second number outside
$
\f
; 44.0
message not used
#
; 44.1
message not used
#
; 44.2
message not used
#
; 44.3
message not used
#
; 44.4
message not used
#
; 44.5
message not used
#
; 44.6
message not used
#
; 44.7
message not used
#
; 44.8
message not used
#
; 44.9
message not used
#
; 44.10
message not used
#
; 44.11
message not used
#
; 44.12
message not used
#
; 44.13
message not used
#
; 44.14
message not used
#
; 44.15
message not used
#
; 44.16
message not used
#
; 44.17
message not used
#
; 44.18
message not used
#
; 44.19
message not used
#
message second number outside
$
\f
; 45.0
message not used
#
; 45.1
message not used
#
; 45.2
message not used
#
; 45.3
message not used
#
; 45.4
message not used
#
; 45.5
message not used
#
; 45.6
message not used
#
; 45.7
message not used
#
; 45.8
message not used
#
; 45.9
message not used
#
; 45.10
message not used
#
; 45.11
message not used
#
; 45.12
message not used
#
; 45.13
message not used
#
; 45.14
message not used
#
; 45.15
message not used
#
; 45.16
message not used
#
; 45.17
message not used
#
; 45.18
message not used
#
; 45.19
message not used
#
message second number outside
$
\f
; 46.0
message not used
#
; 46.1
message not used
#
; 46.2
message not used
#
; 46.3
message not used
#
; 46.4
message not used
#
; 46.5
message not used
#
; 46.6
message not used
#
; 46.7
message not used
#
; 46.8
message not used
#
; 46.9
message not used
#
; 46.10
message not used
#
; 46.11
message not used
#
; 46.12
message not used
#
; 46.13
message not used
#
; 46.14
message not used
#
; 46.15
message not used
#
; 46.16
message not used
#
; 46.17
message not used
#
; 46.18
message not used
#
; 46.19
message not used
#
message second number outside
$
\f
; 47.0
message not used
#
; 47.1
message not used
#
; 47.2
message not used
#
; 47.3
message not used
#
; 47.4
message not used
#
; 47.5
message not used
#
; 47.6
message not used
#
; 47.7
message not used
#
; 47.8
message not used
#
; 47.9
message not used
#
; 47.10
message not used
#
; 47.11
message not used
#
; 47.12
message not used
#
; 47.13
message not used
#
; 47.14
message not used
#
; 47.15
message not used
#
; 47.16
message not used
#
; 47.17
message not used
#
; 47.18
message not used
#
; 47.19
message not used
#
message second number outside
$
\f
; 48.0
message not used
#
; 48.1
message not used
#
; 48.2
message not used
#
; 48.3
message not used
#
; 48.4
message not used
#
; 48.5
message not used
#
; 48.6
message not used
#
; 48.7
message not used
#
; 48.8
message not used
#
; 48.9
message not used
#
; 48.10
message not used
#
; 48.11
message not used
#
; 48.12
message not used
#
; 48.13
message not used
#
; 48.14
message not used
#
; 48.15
message not used
#
; 48.16
message not used
#
; 48.17
message not used
#
; 48.18
message not used
#
; 48.19
message not used
#
message second number outside
$
\f
; 49.0
message not used
#
; 49.1
message not used
#
; 49.2
message not used
#
; 49.3
message not used
#
; 49.4
message not used
#
; 49.5
message not used
#
; 49.6
message not used
#
; 49.7
message not used
#
; 49.8
message not used
#
; 49.9
message not used
#
; 49.10
message not used
#
; 49.11
message not used
#
; 49.12
message not used
#
; 49.13
message not used
#
; 49.14
message not used
#
; 49.15
message not used
#
; 49.16
message not used
#
; 49.17
message not used
#
; 49.18
message not used
#
; 49.19
message not used
#
message second number outside
$
\f
; 50.0
message not used
#
; 50.1
message not used
#
; 50.2
message not used
#
; 50.3
message not used
#
; 50.4
message not used
#
; 50.5
message not used
#
; 50.6
message not used
#
; 50.7
message not used
#
; 50.8
message not used
#
; 50.9
message not used
#
; 50.10
message not used
#
; 50.11
message not used
#
; 50.12
message not used
#
; 50.13
message not used
#
; 50.14
message not used
#
; 50.15
message not used
#
; 50.16
message not used
#
; 50.17
message not used
#
; 50.18
message not used
#
; 50.19
message not used
#
message second number outside
$
\f
; 51.0
message not used
#
; 51.1
message not used
#
; 51.2
message not used
#
; 51.3
message not used
#
; 51.4
message not used
#
; 51.5
message not used
#
; 51.6
message not used
#
; 51.7
message not used
#
; 51.8
message not used
#
; 51.9
message not used
#
; 51.10
message not used
#
; 51.11
message not used
#
; 51.12
message not used
#
; 51.13
message not used
#
; 51.14
message not used
#
; 51.15
message not used
#
; 51.16
message not used
#
; 51.17
message not used
#
; 51.18
message not used
#
; 51.19
message not used
#
message second number outside
$
\f
; 52.0
message not used
#
; 52.1
message not used
#
; 52.2
message not used
#
; 52.3
message not used
#
; 52.4
message not used
#
; 52.5
message not used
#
; 52.6
message not used
#
; 52.7
message not used
#
; 52.8
message not used
#
; 52.9
message not used
#
; 52.10
message not used
#
; 52.11
message not used
#
; 52.12
message not used
#
; 52.13
message not used
#
; 52.14
message not used
#
; 52.15
message not used
#
; 52.16
message not used
#
; 52.17
message not used
#
; 52.18
message not used
#
; 52.19
message not used
#
message second number outside
$
\f
; 53.0
message not used
#
; 53.1
message not used
#
; 53.2
message not used
#
; 53.3
message not used
#
; 53.4
message not used
#
; 53.5
message not used
#
; 53.6
message not used
#
; 53.7
message not used
#
; 53.8
message not used
#
; 53.9
message not used
#
; 53.10
message not used
#
; 53.11
message not used
#
; 53.12
message not used
#
; 53.13
message not used
#
; 53.14
message not used
#
; 53.15
message not used
#
; 53.16
message not used
#
; 53.17
message not used
#
; 53.18
message not used
#
; 53.19
message not used
#
message second number outside
$
\f
; 54.0
message not used
#
; 54.1
message not used
#
; 54.2
message not used
#
; 54.3
message not used
#
; 54.4
message not used
#
; 54.5
message not used
#
; 54.6
message not used
#
; 54.7
message not used
#
; 54.8
message not used
#
; 54.9
message not used
#
; 54.10
message not used
#
; 54.11
message not used
#
; 54.12
message not used
#
; 54.13
message not used
#
; 54.14
message not used
#
; 54.15
message not used
#
; 54.16
message not used
#
; 54.17
message not used
#
; 54.18
message not used
#
; 54.19
message not used
#
message second number outside
$
\f
; 55.0
message not used
#
; 55.1
message not used
#
; 55.2
message not used
#
; 55.3
message not used
#
; 55.4
message not used
#
; 55.5
message not used
#
; 55.6
message not used
#
; 55.7
message not used
#
; 55.8
message not used
#
; 55.9
message not used
#
; 55.10
message not used
#
; 55.11
message not used
#
; 55.12
message not used
#
; 55.13
message not used
#
; 55.14
message not used
#
; 55.15
message not used
#
; 55.16
message not used
#
; 55.17
message not used
#
; 55.18
message not used
#
; 55.19
message not used
#
message second number outside
$
\f
; 56.0
message not used
#
; 56.1
\f
; ehp 800527
;
; job til udskrivning af disc-statistikker fra core;
;
char 12
mode list.yes
lookup dhdiscstat
if ok.no
load mt999999.2 dhdiscstat
tscore8000=set 168 1
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
begin <* lav coredump *>
integer i; zone z(128*2,2,stderror);
open(z,4,<:tscore8000:>,0);
for i := 0 step 1 until 128 do
begin
outrec6(z,512);
system(5,512*i,z);
end;
close(z,true);
end coredump;
begin <* lav jobfil *>
integer i; integer array ia(0:50), ib(0:20);
zone zz(128,1,stderror);
system(5,74,ia); system(5,ia(0),ia);
open(zz,4,<:tsstatkald:>,0);
write(zz,<:
head cpu :>);
for i := 0 step 1 until 50 do
begin
system(5,ia(i),ib);
if ib(0) = 62 and ib(5) = 0 then
write(zz,<:
char 12 45.76 10 45.76 10
message statistik for disc med devicenr. :>,i,<:
dhdiscstat dump.tscore8000.:>,ia(i));
end;
write(zz,<:
head cpu
end <10><25>:>);
close(zz,false);
end jobfil;
end
mode list.no
do w0.92.x0.0 z0.w0 w1.96.x1.0 z1.w1 w2.76.x2.0 z2.w2,
do while z0.ls.z1,
w2.x0.0.de.18 x3.x2.0.x2.2.x2.4.x2.6,
process description,
if w0.ne.0,
w0.x0.10 w1.74.x1.0 z3.0,
do while w1.ls.z2,
if x1.0.eq.w0 w3.in.8 y3.deviceno.z3 w3.de.8,
write x3.name.16.word.2 end,
fi,
w1.in.2 z3.in.1,
od,
fi,
z0.in.2 w0.z0,
od
tsstat
i tsstatkald
clear temp tsstat tsstatkald tscore8000
end
finis
#
; 56.2
\f
; ehp 800527
;
; job til udskrivning af disc-statistikker fra autodisc;
;
char 12
mode list.yes
lookup dhdiscstat
if ok.no
load mt999999.2 dhdiscstat
mode 0.no
do z0.0 x3.dumpdisc process description, do-callet sætter modebit 0,
if w0.eq.0 z0.1.le.23 fi, hvis dumpdisc ikke findes
w0.fp.in.98 w1.x0.0.in.z0 y0.w1
if 0.yes
(mode list.no 0.no
message
message dumpdisc findes ikke i øjeblikket
message
message dump discen skal være callet dumpdisc
message dumpdiscen er den der er autoloadet fra
message device nummer er 27.29.31. eller 33
message indholdet af dump discen flyttes over i filen tscore7999
skip 64.1 ; iso <64> = snabel a
)
tscore7999=set 200 1
tsdump=set bs dumpdisc 0 0 840
tscore7999=move tsdump
if ok.no
(mode list.no
message det lykkedes stadig ikke at læse fra dumpdisc
message er du user af dump discen
clear temp tscore7999 tsdump
skip 64.1
)
lookup tscore7999
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7999:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7999 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 62 and ib(6) = 0 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for disc med devicenr. :>,i,<:
dhdiscstat dump.tscore7999.:>,ia(i));
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald tscore7999 tsdump
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 56.3
\f
; ehp 800527
;
; job til udskrivning af disc-statistikker fra dump;
; dumparealet skal hedde: tscore7998
;
char 12
mode list.yes
lookup dhdiscstat
if ok.no
load mt999999.2 dhdiscstat
lookup tscore7998
if ok.no
(mode list.no
message tscore7998 findes ikke
message tscore7998 skal indeholde coredumpet
skip 64.1 ; iso <64> = snabel a
)
lookup tscore7998
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7998:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7998 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 62 and ib(6) = 0 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for disc med devicenr. :>,i,<:
dhdiscstat dump.tscore7998.:>,ia(i));
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 56.4
; ehp 800620
;
; do-call til udskrivning af statistikker fra alle process-beskrivelser
; med kind = 62 og mainproc = 0. (disc)
;
do clear,
w1.74.x1.0 z1.w1 w2.76.x2.0,
do while w1.ls.w2,
w0.x1.0,
if x0.0.eq.62,
if x0.10.eq.0,
z0.w1.de.z1.ri.1,
w3.ba y3.deviceno.z0,
w0.in.110,
write x3.name.8.word.2 x0.words5.6.bytes10.80 end,
fi,
fi,
w1.in.2,
od
#
; 56.5
;
; ehp 800620
;
; do-call til udskrivning af statistik fra disc
; ved angivelse af logisk eller fysisk deviceno.
;
message tast z0.xx go 0
message
message hvor xx erstattes med logisk eller fysisk deviceno
do clear,
go 0 w0.74.x0.0.in.z0.in.z0.x0.0,
if x0.0.ne.62,
x0.device.not.disc,
write x0.name.24 end,
exit,
fi,
if x0.10.ne.0 w0.x0.10,
fi,
w0.in.110,
write x0.words5.6.bytes10.80 end,
og,
#
; 56.6
;
; ehp 800620
;
; do-call til udskrivning af statistik fra disc
; ved angivelse af name på logisk eller fysisk disc.
;
message tast x3.name go 0
message
message hvor name erstattes med navnet på den logiske eller fysiske disc
do clear,
go 0 process description,
if w0.eq.0,
x0.process.does.not.exist,
write x0.name.32 end,
exit,
fi,
if x0.0.ne.62,
x0.device.not.disc,
write x0.name.24 end,
exit,
fi,
if x0.10.ne.0 w0.x0.10,
fi,
w0.in.110,
write x0.words5.6.bytes10.80 end,
og,
x3.0,
#
; 56.7
message not used
#
; 56.8
message not used
#
; 56.9
message not used
#
; 56.10
message not used
#
; 56.11
message not used
#
; 56.12
message not used
#
; 56.13
message not used
#
; 56.14
message not used
#
; 56.15
message not used
#
; 56.16
message not used
#
; 56.17
message not used
#
; 56.18
message not used
#
; 56.19
message not used
#
message second number outside
$
\f
; 57.0
message not used
#
; 57.1
message not used
#
; 57.2
message not used
#
; 57.3
message not used
#
; 57.4
message not used
#
; 57.5
message not used
#
; 57.6
message not used
#
; 57.7
message not used
#
; 57.8
message not used
#
; 57.9
message not used
#
; 57.10
message not used
#
; 57.11
message not used
#
; 57.12
message not used
#
; 57.13
message not used
#
; 57.14
message not used
#
; 57.15
message not used
#
; 57.16
message not used
#
; 57.17
message not used
#
; 57.18
message not used
#
; 57.19
message not used
#
message second number outside
$
\f
; 58.0
message not used
#
; 58.1
message not used
#
; 58.2
message not used
#
; 58.3
message not used
#
; 58.4
message not used
#
; 58.5
message not used
#
; 58.6
message not used
#
; 58.7
message not used
#
; 58.8
message not used
#
; 58.9
message not used
#
; 58.10
message not used
#
; 58.11
message not used
#
; 58.12
message not used
#
; 58.13
message not used
#
; 58.14
message not used
#
; 58.15
message not used
#
; 58.16
message not used
#
; 58.17
message not used
#
; 58.18
message not used
#
; 58.19
message not used
#
message second number outside
$
\f
; 59.0
message not used
#
; 59.1
message not used
#
; 59.2
message not used
#
; 59.3
message not used
#
; 59.4
message not used
#
; 59.5
message not used
#
; 59.6
message not used
#
; 59.7
message not used
#
; 59.8
message not used
#
; 59.9
message not used
#
; 59.10
message not used
#
; 59.11
message not used
#
; 59.12
message not used
#
; 59.13
message not used
#
; 59.14
message not used
#
; 59.15
message not used
#
; 59.16
message not used
#
; 59.17
message not used
#
; 59.18
message not used
#
; 59.19
message not used
#
message second number outside
$
\f
; 60.0
message not used
#
; 60.1
message not used
#
; 60.2
message not used
#
; 60.3
message not used
#
; 60.4
message not used
#
; 60.5
message not used
#
; 60.6
message not used
#
; 60.7
message not used
#
; 60.8
message not used
#
; 60.9
message not used
#
; 60.10
message not used
#
; 60.11
message not used
#
; 60.12
message not used
#
; 60.13
message not used
#
; 60.14
message not used
#
; 60.15
message not used
#
; 60.16
message not used
#
; 60.17
message not used
#
; 60.18
message not used
#
; 60.19
message not used
#
message second number outside
$
\f
; 61.0
message not used
#
; 61.1
\f
; ehp 800519
;
; job til udskrivning af fpa-statistikker fra core;
;
char 12
mode list.yes
lookup fpastat
if ok.no
load mt999999.2 fpastat
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
begin <* lav jobfil *>
integer i; integer array ia(0:50), ib(0:10);
long array field navn;
zone zz(128,1,stderror);
navn:= 0;
system(5,74,ia); system(5,ia(0),ia);
open(zz,4,<:tsstatkald:>,0);
write(zz,<:
head cpu :>);
for i := 0 step 1 until 50 do
begin
system(5,ia(i),ib);
if ib(0) = 80 then
begin
write(zz,<:
char 12 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat core8000.:>,ib.navn);
end;
end;
write(zz,<:
head cpu
end <10><25>:>);
close(zz,false);
end jobfil;
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald
end
finis
#
; 61.2
\f
; ehp 800519
;
; job til udskrivning af fpa-statistikker med testbuffer fra core;
;
char 12
mode list.yes
lookup fpastat
if ok.no
load mt999999.2 fpastat
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
begin <* lav jobfil *>
integer i; integer array ia(0:50), ib(0:10);
long array field navn;
zone zz(128,1,stderror);
navn:= 0;
system(5,74,ia); system(5,ia(0),ia);
open(zz,4,<:tsstatkald:>,0);
write(zz,<:
head cpu :>);
for i := 0 step 1 until 50 do
begin
system(5,ia(i),ib);
if ib(0) = 80 then
begin
write(zz,<:
char 12 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat core8000.:>,ib.navn,<: test.yes:>);
end;
end;
write(zz,<:
head cpu
end <10><25>:>);
close(zz,false);
end jobfil;
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald
end
finis
#
; 61.3
\f
; ehp 800519
;
; job til udskrivning af fpa-statistikker fra autodisc;
;
char 12
mode list.yes
lookup fpastat
if ok.no
load mt999999.2 fpastat
mode 0.no
do z0.0 x3.dumpdisc process description, do-callet sætter modebit 0,
if w0.eq.0 z0.1.le.23 fi, hvis dumpdisc ikke findes
w0.fp.in.98 w1.x0.0.in.z0 y0.w1
if 0.yes
(mode list.no 0.no
message
message dumpdisc findes ikke i øjeblikket
message
message dump discen skal være callet dumpdisc
message dumpdiscen er den der er autoloadet fra
message device nummer er 27.29.31. eller 33
message indholdet af dump discen flyttes over i filen tscore7999
skip 64.1 ; iso <64> = snabel a
)
tscore7999=set 200 1
tsdump=set bs dumpdisc 0 0 840
tscore7999=move tsdump
if ok.no
(mode list.no
message det lykkedes stadig ikke at læse fra dumpdisc
message er du user af dump discen
clear temp tsdump tscore7999
skip 64.1
)
lookup tscore7999
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7999:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7999 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 80 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat dump8000.tscore7999.:>,ia(i));
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald tscore7999 tsdump
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 61.4
\f
; ehp 800519
;
; job til udskrivning af fpa-statistikker med test-buffer fra autodisc;
;
char 12
mode list.yes
lookup fpastat
if ok.no
load mt999999.2 fpastat
mode 0.no
do z0.0 x3.dumpdisc process description, do-callet sætter modebit 0,
if w0.eq.0 z0.1.le.23 fi, hvis dumpdisc ikke findes
w0.fp.in.98 w1.x0.0.in.z0 y0.w1
if 0.yes
(mode list.no 0.no
message
message dumpdisc findes ikke i øjeblikket
message
message dump discen skal være callet dumpdisc
message dumpdiscen er den der er autoloadet fra
message device nummer er 27.29.31. eller 33
message indholdet af dump discen flyttes over i filen tscore7999
skip 64.1 ; iso <64> = snabel a
)
tscore7999=set 200 1
tsdump=set bs dumpdisc 0 0 840
tscore7999=move tsdump
if ok.no
(mode list.no
message det lykkedes stadig ikke at læse fra dumpdisc
message er du user af dump discen
clear temp tsdump tscore7999
skip 64.1
)
lookup tscore7999
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7999:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7999 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 80 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat dump8000.tscore7999.:>,ia(i),<: test.yes:>);
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald tscore7999 tsdump
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 61.5
\f
; ehp 800522
;
; job til udskrivning af fpa-statistikker fra dump;
; dumparealet skal hedde: tscore7998
;
char 12
mode list.yes
lookup fpastat
lookup tscore7998
if ok.no
(mode list.no
message tscore7998 findes ikke
message tscore7998 skal indeholde coredumpet
skip 64.1
)
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7998:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7998 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 80 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat dump8000.tscore7998.:>,ia(i));
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 61.6
\f
; ehp 800522
;
; job til udskrivning af fpa-statistikker med test-buffer fra dump;
; dumparealet skal hedde: tscore7998
;
char 12
mode list.yes
lookup fpastat
lookup tscore7998
if ok.no
(mode list.no
message tscore7998 findes ikke
message tscore7998 skal indeholde coredumpet
skip 64.1
)
tsstatkald=set 2 1
tsstat=set 40
tsstat=algol list.no
begin
<* program til generering af fpkald til udskrivning af statistikker fra
coredump
*>
integer i,j;
integer array ia(0:50), ib(0:20);
integer field inf; integer array field iaf, jaf;
zone zz(256,1,stderror), yy(128,1,stderror);
open(zz,4,<:tscore7998:>,0); setposition(zz,0,1202//512);
inrec6(zz,1024); inf := 1202 mod 512+ 2; i := zz.inf; <* i = start af navnetabel *>
setposition(zz,0,i//512); inrec6(zz,1024); iaf := i mod 512 +2;
tofrom(ia,zz.iaf,100); <* ia(n) er process beskrivelses addr for device n *>
open(yy,4,<:tsstatkald:>,0);
write(yy,<:
char 12
message udskrift af monitor regdump area
print tscore7998 word bits 1256.1280
head cpu :>);
for i:= 1 step 1 until 50 do
begin
j:= ia(i);
setposition(zz,0,j//512); inrec6(zz,1024);
jaf:= j mod 512 ;
tofrom(ib,zz.jaf,20);
if ib(1) = 80 then
write(yy,<:
char 12 10.3 45.76 10 45.76 10
message statistik for fpa med devicenr. :>,i,<:
fpastat dump8000.tscore7998.:>,ia(i),<: test.yes:>);
end;
write(yy,<:
head cpu
end <10><25>:>);
close(zz,true);
close(yy,true);
end
mode list.no
tsstat
i tsstatkald
clear temp tsstat tsstatkald
skip 1
@ ; iso <64> = snabel a
end
finis
#
; 61.7
message not used
#
; 61.8
message not used
#
; 61.9
message not used
#
; 61.10
message not used
#
; 61.11
message not used
#
; 61.12
message not used
#
; 61.13
message not used
#
; 61.14
message not used
#
; 61.15
message not used
#
; 61.16
message not used
#
; 61.17
message not used
#
; 61.18
message not used
#
; 61.19
message not used
#
message second number outside
$
\f
; 62.0
message not used
#
; 62.1
; ehp 800722
;
; do-call til nulstilling af test-mask i alle fpa-er
;
do clear,
w0.74.x0.0 w1.76.x1.0,
z0.w0 z1.w1,
do while z0.ls.z1,
w2.z0.x2.0,
if x2.0.eq.80,
x3.x2.2.x2.4.x2.6.x2.8,
x1.12.le.12.0.0.0.0,
send message wait answer,
write x3.name.8 w0 end,
fi,
z0.in.2,
od
#
; 62.2
; ehp 800730
;
; do-call til aktivering af test i alle fpa-er
;
do clear,
w0.74.x0.0 w1.76.x1.0,
z0.w0 z1.w1,
do while z0.ls.z1,
w2.z0.x2.0,
if x2.0.eq.80,
x3.x2.2.x2.4.x2.6.x2.8,
z2.1.le.8.in.1.le.12,
z3.0.de.1,
x1.12.le.12.z3.z3.de.z2.z3.z3,
send message wait answer,
write x3.name.8 w0 end,
fi,
z0.in.2,
od
#
; 62.3
message not used
#
; 62.4
message not used
#
; 62.5
message not used
#
; 62.6
message not used
#
; 62.7
message not used
#
; 62.8
message not used
#
; 62.9
message not used
#
; 62.10
message not used
#
; 62.11
message not used
#
; 62.12
message not used
#
; 62.13
message not used
#
; 62.14
message not used
#
; 62.15
message not used
#
; 62.16
message not used
#
; 62.17
message not used
#
; 62.18
message not used
#
; 62.19
message not used
#
message second number outside
$
\f
; 63.0
message not used
#
; 63.1
message not used
#
; 63.2
message not used
#
; 63.3
message not used
#
; 63.4
message not used
#
; 63.5
message not used
#
; 63.6
message not used
#
; 63.7
message not used
#
; 63.8
message not used
#
; 63.9
message not used
#
; 63.10
message not used
#
; 63.11
message not used
#
; 63.12
message not used
#
; 63.13
message not used
#
; 63.14
message not used
#
; 63.15
message not used
#
; 63.16
message not used
#
; 63.17
message not used
#
; 63.18
message not used
#
; 63.19
message not used
#
message second number outside
$
\f
; 64.0
message not used
#
; 64.1
message not used
#
; 64.2
message not used
#
; 64.3
message not used
#
; 64.4
message not used
#
; 64.5
message not used
#
; 64.6
message not used
#
; 64.7
message not used
#
; 64.8
message not used
#
; 64.9
message not used
#
; 64.10
message not used
#
; 64.11
message not used
#
; 64.12
message not used
#
; 64.13
message not used
#
; 64.14
message not used
#
; 64.15
message not used
#
; 64.16
message not used
#
; 64.17
message not used
#
; 64.18
message not used
#
; 64.19
message not used
#
message second number outside
$
\f
; 65.0
message not used
#
; 65.1
message not used
#
; 65.2
message not used
#
; 65.3
message not used
#
; 65.4
message not used
#
; 65.5
message not used
#
; 65.6
message not used
#
; 65.7
message not used
#
; 65.8
message not used
#
; 65.9
message not used
#
; 65.10
message not used
#
; 65.11
message not used
#
; 65.12
message not used
#
; 65.13
message not used
#
; 65.14
message not used
#
; 65.15
message not used
#
; 65.16
message not used
#
; 65.17
message not used
#
; 65.18
message not used
#
; 65.19
message not used
#
message second number outside
$
\f
; 66.0
message not used
#
; 66.1
message not used
#
; 66.2
message not used
#
; 66.3
message not used
#
; 66.4
message not used
#
; 66.5
message not used
#
; 66.6
message not used
#
; 66.7
message not used
#
; 66.8
message not used
#
; 66.9
message not used
#
; 66.10
message not used
#
; 66.11
message not used
#
; 66.12
message not used
#
; 66.13
message not used
#
; 66.14
message not used
#
; 66.15
message not used
#
; 66.16
message not used
#
; 66.17
message not used
#
; 66.18
message not used
#
; 66.19
message not used
#
message second number outside
$
\f
; 67.0
message not used
#
; 67.1
message not used
#
; 67.2
message not used
#
; 67.3
message not used
#
; 67.4
message not used
#
; 67.5
message not used
#
; 67.6
message not used
#
; 67.7
message not used
#
; 67.8
message not used
#
; 67.9
message not used
#
; 67.10
message not used
#
; 67.11
message not used
#
; 67.12
message not used
#
; 67.13
message not used
#
; 67.14
message not used
#
; 67.15
message not used
#
; 67.16
message not used
#
; 67.17
message not used
#
; 67.18
message not used
#
; 67.19
message not used
#
message second number outside
$
\f
; 68.0
message not used
#
; 68.1
message not used
#
; 68.2
message not used
#
; 68.3
message not used
#
; 68.4
message not used
#
; 68.5
message not used
#
; 68.6
message not used
#
; 68.7
message not used
#
; 68.8
message not used
#
; 68.9
message not used
#
; 68.10
message not used
#
; 68.11
message not used
#
; 68.12
message not used
#
; 68.13
message not used
#
; 68.14
message not used
#
; 68.15
message not used
#
; 68.16
message not used
#
; 68.17
message not used
#
; 68.18
message not used
#
; 68.19
message not used
#
message second number outside
$
\f
; 69.0
message not used
#
; 69.1
message not used
#
; 69.2
message not used
#
; 69.3
message not used
#
; 69.4
message not used
#
; 69.5
message not used
#
; 69.6
message not used
#
; 69.7
message not used
#
; 69.8
message not used
#
; 69.9
message not used
#
; 69.10
message not used
#
; 69.11
message not used
#
; 69.12
message not used
#
; 69.13
message not used
#
; 69.14
message not used
#
; 69.15
message not used
#
; 69.16
message not used
#
; 69.17
message not used
#
; 69.18
message not used
#
; 69.19
message not used
#
message second number outside
$
\f
; 70.0
message not used
#
; 70.1
message not used
#
; 70.2
message not used
#
; 70.3
message not used
#
; 70.4
message not used
#
; 70.5
message not used
#
; 70.6
message not used
#
; 70.7
message not used
#
; 70.8
message not used
#
; 70.9
message not used
#
; 70.10
message not used
#
; 70.11
message not used
#
; 70.12
message not used
#
; 70.13
message not used
#
; 70.14
message not used
#
; 70.15
message not used
#
; 70.16
message not used
#
; 70.17
message not used
#
; 70.18
message not used
#
; 70.19
message not used
#
message second number outside
$
\f
; 71.0
message not used
#
; 71.1
message not used
#
; 71.2
message not used
#
; 71.3
message not used
#
; 71.4
message not used
#
; 71.5
message not used
#
; 71.6
message not used
#
; 71.7
message not used
#
; 71.8
message not used
#
; 71.9
message not used
#
; 71.10
message not used
#
; 71.11
message not used
#
; 71.12
message not used
#
; 71.13
message not used
#
; 71.14
message not used
#
; 71.15
message not used
#
; 71.16
message not used
#
; 71.17
message not used
#
; 71.18
message not used
#
; 71.19
message not used
#
message second number outside
$
\f
; 72.0
message not used
#
; 72.1
message not used
#
; 72.2
message not used
#
; 72.3
message not used
#
; 72.4
message not used
#
; 72.5
message not used
#
; 72.6
message not used
#
; 72.7
message not used
#
; 72.8
message not used
#
; 72.9
message not used
#
; 72.10
message not used
#
; 72.11
message not used
#
; 72.12
message not used
#
; 72.13
message not used
#
; 72.14
message not used
#
; 72.15
message not used
#
; 72.16
message not used
#
; 72.17
message not used
#
; 72.18
message not used
#
; 72.19
message not used
#
message second number outside
$
\f
; 73.0
message not used
#
; 73.1
message not used
#
; 73.2
message not used
#
; 73.3
message not used
#
; 73.4
message not used
#
; 73.5
message not used
#
; 73.6
message not used
#
; 73.7
message not used
#
; 73.8
message not used
#
; 73.9
message not used
#
; 73.10
message not used
#
; 73.11
message not used
#
; 73.12
message not used
#
; 73.13
message not used
#
; 73.14
message not used
#
; 73.15
message not used
#
; 73.16
message not used
#
; 73.17
message not used
#
; 73.18
message not used
#
; 73.19
message not used
#
message second number outside
$
\f
; 74.0
message not used
#
; 74.1
message not used
#
; 74.2
message not used
#
; 74.3
message not used
#
; 74.4
message not used
#
; 74.5
message not used
#
; 74.6
message not used
#
; 74.7
message not used
#
; 74.8
message not used
#
; 74.9
message not used
#
; 74.10
message not used
#
; 74.11
message not used
#
; 74.12
message not used
#
; 74.13
message not used
#
; 74.14
message not used
#
; 74.15
message not used
#
; 74.16
message not used
#
; 74.17
message not used
#
; 74.18
message not used
#
; 74.19
message not used
#
message second number outside
$
\f
; 75.0
message not used
#
; 75.1
message not used
#
; 75.2
message not used
#
; 75.3
message not used
#
; 75.4
message not used
#
; 75.5
message not used
#
; 75.6
message not used
#
; 75.7
message not used
#
; 75.8
message not used
#
; 75.9
message not used
#
; 75.10
message not used
#
; 75.11
message not used
#
; 75.12
message not used
#
; 75.13
message not used
#
; 75.14
message not used
#
; 75.15
message not used
#
; 75.16
message not used
#
; 75.17
message not used
#
; 75.18
message not used
#
; 75.19
message not used
#
message second number outside
$
\f
; 76.0
message not used
#
; 76.1
message not used
#
; 76.2
message not used
#
; 76.3
message not used
#
; 76.4
message not used
#
; 76.5
message not used
#
; 76.6
message not used
#
; 76.7
message not used
#
; 76.8
message not used
#
; 76.9
message not used
#
; 76.10
message not used
#
; 76.11
message not used
#
; 76.12
message not used
#
; 76.13
message not used
#
; 76.14
message not used
#
; 76.15
message not used
#
; 76.16
message not used
#
; 76.17
message not used
#
; 76.18
message not used
#
; 76.19
message not used
#
message second number outside
$
\f
; 77.0
message not used
#
; 77.1
message not used
#
; 77.2
message not used
#
; 77.3
message not used
#
; 77.4
message not used
#
; 77.5
message not used
#
; 77.6
message not used
#
; 77.7
message not used
#
; 77.8
message not used
#
; 77.9
message not used
#
; 77.10
message not used
#
; 77.11
message not used
#
; 77.12
message not used
#
; 77.13
message not used
#
; 77.14
message not used
#
; 77.15
message not used
#
; 77.16
message not used
#
; 77.17
message not used
#
; 77.18
message not used
#
; 77.19
message not used
#
message second number outside
$
\f
; 78.0
message not used
#
; 78.1
message not used
#
; 78.2
message not used
#
; 78.3
message not used
#
; 78.4
message not used
#
; 78.5
message not used
#
; 78.6
message not used
#
; 78.7
message not used
#
; 78.8
message not used
#
; 78.9
message not used
#
; 78.10
message not used
#
; 78.11
message not used
#
; 78.12
message not used
#
; 78.13
message not used
#
; 78.14
message not used
#
; 78.15
message not used
#
; 78.16
message not used
#
; 78.17
message not used
#
; 78.18
message not used
#
; 78.19
message not used
#
message second number outside
$
\f
; 79.0
message not used
#
; 79.1
message not used
#
; 79.2
message not used
#
; 79.3
message not used
#
; 79.4
message not used
#
; 79.5
message not used
#
; 79.6
message not used
#
; 79.7
message not used
#
; 79.8
message not used
#
; 79.9
message not used
#
; 79.10
message not used
#
; 79.11
message not used
#
; 79.12
message not used
#
; 79.13
message not used
#
; 79.14
message not used
#
; 79.15
message not used
#
; 79.16
message not used
#
; 79.17
message not used
#
; 79.18
message not used
#
; 79.19
message not used
#
message second number outside
$
\f
; 80.0
message not used
#
; 80.1
message not used
#
; 80.2
message not used
#
; 80.3
message not used
#
; 80.4
message not used
#
; 80.5
message not used
#
; 80.6
message not used
#
; 80.7
message not used
#
; 80.8
message not used
#
; 80.9
message not used
#
; 80.10
message not used
#
; 80.11
message not used
#
; 80.12
message not used
#
; 80.13
message not used
#
; 80.14
message not used
#
; 80.15
message not used
#
; 80.16
message not used
#
; 80.17
message not used
#
; 80.18
message not used
#
; 80.19
message not used
#
message second number outside
$
\f
; 81.0
message not used
#
; 81.1
message not used
#
; 81.2
message not used
#
; 81.3
message not used
#
; 81.4
message not used
#
; 81.5
message not used
#
; 81.6
message not used
#
; 81.7
message not used
#
; 81.8
message not used
#
; 81.9
message not used
#
; 81.10
message not used
#
; 81.11
message not used
#
; 81.12
message not used
#
; 81.13
message not used
#
; 81.14
message not used
#
; 81.15
message not used
#
; 81.16
message not used
#
; 81.17
message not used
#
; 81.18
message not used
#
; 81.19
message not used
#
message second number outside
$
\f
; 82.0
message not used
#
; 82.1
message not used
#
; 82.2
message not used
#
; 82.3
message not used
#
; 82.4
message not used
#
; 82.5
message not used
#
; 82.6
message not used
#
; 82.7
message not used
#
; 82.8
message not used
#
; 82.9
message not used
#
; 82.10
message not used
#
; 82.11
message not used
#
; 82.12
message not used
#
; 82.13
message not used
#
; 82.14
message not used
#
; 82.15
message not used
#
; 82.16
message not used
#
; 82.17
message not used
#
; 82.18
message not used
#
; 82.19
message not used
#
message second number outside
$
\f
; 83.0
message not used
#
; 83.1
message not used
#
; 83.2
message not used
#
; 83.3
message not used
#
; 83.4
message not used
#
; 83.5
message not used
#
; 83.6
message not used
#
; 83.7
message not used
#
; 83.8
message not used
#
; 83.9
message not used
#
; 83.10
message not used
#
; 83.11
message not used
#
; 83.12
message not used
#
; 83.13
message not used
#
; 83.14
message not used
#
; 83.15
message not used
#
; 83.16
message not used
#
; 83.17
message not used
#
; 83.18
message not used
#
; 83.19
message not used
#
message second number outside
$
\f
; 84.0
message not used
#
; 84.1
message not used
#
; 84.2
message not used
#
; 84.3
message not used
#
; 84.4
message not used
#
; 84.5
message not used
#
; 84.6
message not used
#
; 84.7
message not used
#
; 84.8
message not used
#
; 84.9
message not used
#
; 84.10
message not used
#
; 84.11
message not used
#
; 84.12
message not used
#
; 84.13
message not used
#
; 84.14
message not used
#
; 84.15
message not used
#
; 84.16
message not used
#
; 84.17
message not used
#
; 84.18
message not used
#
; 84.19
message not used
#
message second number outside
$
\f
; 85.0
message not used
#
; 85.1
message not used
#
; 85.2
message not used
#
; 85.3
message not used
#
; 85.4
message not used
#
; 85.5
message not used
#
; 85.6
message not used
#
; 85.7
message not used
#
; 85.8
message not used
#
; 85.9
message not used
#
; 85.10
message not used
#
; 85.11
message not used
#
; 85.12
message not used
#
; 85.13
message not used
#
; 85.14
message not used
#
; 85.15
message not used
#
; 85.16
message not used
#
; 85.17
message not used
#
; 85.18
message not used
#
; 85.19
message not used
#
message second number outside
$
\f
; 86.0
message not used
#
; 86.1
message not used
#
; 86.2
message not used
#
; 86.3
message not used
#
; 86.4
message not used
#
; 86.5
message not used
#
; 86.6
message not used
#
; 86.7
message not used
#
; 86.8
message not used
#
; 86.9
message not used
#
; 86.10
message not used
#
; 86.11
message not used
#
; 86.12
message not used
#
; 86.13
message not used
#
; 86.14
message not used
#
; 86.15
message not used
#
; 86.16
message not used
#
; 86.17
message not used
#
; 86.18
message not used
#
; 86.19
message not used
#
message second number outside
$
\f
; 87.0
message not used
#
; 87.1
message not used
#
; 87.2
message not used
#
; 87.3
message not used
#
; 87.4
message not used
#
; 87.5
message not used
#
; 87.6
message not used
#
; 87.7
message not used
#
; 87.8
message not used
#
; 87.9
message not used
#
; 87.10
message not used
#
; 87.11
message not used
#
; 87.12
message not used
#
; 87.13
message not used
#
; 87.14
message not used
#
; 87.15
message not used
#
; 87.16
message not used
#
; 87.17
message not used
#
; 87.18
message not used
#
; 87.19
message not used
#
message second number outside
$
\f
; 88.0
message not used
#
; 88.1
message not used
#
; 88.2
message not used
#
; 88.3
message not used
#
; 88.4
message not used
#
; 88.5
message not used
#
; 88.6
message not used
#
; 88.7
message not used
#
; 88.8
message not used
#
; 88.9
message not used
#
; 88.10
message not used
#
; 88.11
message not used
#
; 88.12
message not used
#
; 88.13
message not used
#
; 88.14
message not used
#
; 88.15
message not used
#
; 88.16
message not used
#
; 88.17
message not used
#
; 88.18
message not used
#
; 88.19
message not used
#
message second number outside
$
\f
; 89.0
message not used
#
; 89.1
message not used
#
; 89.2
message not used
#
; 89.3
message not used
#
; 89.4
message not used
#
; 89.5
message not used
#
; 89.6
message not used
#
; 89.7
message not used
#
; 89.8
message not used
#
; 89.9
message not used
#
; 89.10
message not used
#
; 89.11
message not used
#
; 89.12
message not used
#
; 89.13
message not used
#
; 89.14
message not used
#
; 89.15
message not used
#
; 89.16
message not used
#
; 89.17
message not used
#
; 89.18
message not used
#
; 89.19
message not used
#
message second number outside
$
\f
; 90.0
message not used
#
; 90.1
message not used
#
; 90.2
message not used
#
; 90.3
message not used
#
; 90.4
message not used
#
; 90.5
message not used
#
; 90.6
message not used
#
; 90.7
message not used
#
; 90.8
message not used
#
; 90.9
message not used
#
; 90.10
message not used
#
; 90.11
message not used
#
; 90.12
message not used
#
; 90.13
message not used
#
; 90.14
message not used
#
; 90.15
message not used
#
; 90.16
message not used
#
; 90.17
message not used
#
; 90.18
message not used
#
; 90.19
message not used
#
message second number outside
$
\f
; 91.0
message not used
#
; 91.1
message not used
#
; 91.2
message not used
#
; 91.3
message not used
#
; 91.4
message not used
#
; 91.5
message not used
#
; 91.6
message not used
#
; 91.7
message not used
#
; 91.8
message not used
#
; 91.9
message not used
#
; 91.10
message not used
#
; 91.11
message not used
#
; 91.12
message not used
#
; 91.13
message not used
#
; 91.14
message not used
#
; 91.15
message not used
#
; 91.16
message not used
#
; 91.17
message not used
#
; 91.18
message not used
#
; 91.19
message not used
#
message second number outside
$
\f
; 92.0
message not used
#
; 92.1
message not used
#
; 92.2
message not used
#
; 92.3
message not used
#
; 92.4
message not used
#
; 92.5
message not used
#
; 92.6
message not used
#
; 92.7
message not used
#
; 92.8
message not used
#
; 92.9
message not used
#
; 92.10
message not used
#
; 92.11
message not used
#
; 92.12
message not used
#
; 92.13
message not used
#
; 92.14
message not used
#
; 92.15
message not used
#
; 92.16
message not used
#
; 92.17
message not used
#
; 92.18
message not used
#
; 92.19
message not used
#
message second number outside
$
\f
; 93.0
message not used
#
; 93.1
message not used
#
; 93.2
message not used
#
; 93.3
message not used
#
; 93.4
message not used
#
; 93.5
message not used
#
; 93.6
message not used
#
; 93.7
message not used
#
; 93.8
message not used
#
; 93.9
message not used
#
; 93.10
message not used
#
; 93.11
message not used
#
; 93.12
message not used
#
; 93.13
message not used
#
; 93.14
message not used
#
; 93.15
message not used
#
; 93.16
message not used
#
; 93.17
message not used
#
; 93.18
message not used
#
; 93.19
message not used
#
message second number outside
$
\f
; 94.0
message not used
#
; 94.1
message not used
#
; 94.2
message not used
#
; 94.3
message not used
#
; 94.4
message not used
#
; 94.5
message not used
#
; 94.6
message not used
#
; 94.7
message not used
#
; 94.8
message not used
#
; 94.9
message not used
#
; 94.10
message not used
#
; 94.11
message not used
#
; 94.12
message not used
#
; 94.13
message not used
#
; 94.14
message not used
#
; 94.15
message not used
#
; 94.16
message not used
#
; 94.17
message not used
#
; 94.18
message not used
#
; 94.19
message not used
#
message second number outside
$
\f
; 95.0
message not used
#
; 95.1
message not used
#
; 95.2
message not used
#
; 95.3
message not used
#
; 95.4
message not used
#
; 95.5
message not used
#
; 95.6
message not used
#
; 95.7
message not used
#
; 95.8
message not used
#
; 95.9
message not used
#
; 95.10
message not used
#
; 95.11
message not used
#
; 95.12
message not used
#
; 95.13
message not used
#
; 95.14
message not used
#
; 95.15
message not used
#
; 95.16
message not used
#
; 95.17
message not used
#
; 95.18
message not used
#
; 95.19
message not used
#
message second number outside
$
\f
; 96.0
message not used
#
; 96.1
message not used
#
; 96.2
message not used
#
; 96.3
message not used
#
; 96.4
message not used
#
; 96.5
message not used
#
; 96.6
message not used
#
; 96.7
message not used
#
; 96.8
message not used
#
; 96.9
message not used
#
; 96.10
message not used
#
; 96.11
message not used
#
; 96.12
message not used
#
; 96.13
message not used
#
; 96.14
message not used
#
; 96.15
message not used
#
; 96.16
message not used
#
; 96.17
message not used
#
; 96.18
message not used
#
; 96.19
message not used
#
message second number outside
$
\f
; 97.0
message not used
#
; 97.1
message not used
#
; 97.2
message not used
#
; 97.3
message not used
#
; 97.4
message not used
#
; 97.5
message not used
#
; 97.6
message not used
#
; 97.7
message not used
#
; 97.8
message not used
#
; 97.9
message not used
#
; 97.10
message not used
#
; 97.11
message not used
#
; 97.12
message not used
#
; 97.13
message not used
#
; 97.14
message not used
#
; 97.15
message not used
#
; 97.16
message not used
#
; 97.17
message not used
#
; 97.18
message not used
#
; 97.19
message not used
#
message second number outside
$
\f
; 98.0
message not used
#
; 98.1
message not used
#
; 98.2
message not used
#
; 98.3
message not used
#
; 98.4
message not used
#
; 98.5
message not used
#
; 98.6
message not used
#
; 98.7
message not used
#
; 98.8
message not used
#
; 98.9
message not used
#
; 98.10
message not used
#
; 98.11
message not used
#
; 98.12
message not used
#
; 98.13
message not used
#
; 98.14
message not used
#
; 98.15
message not used
#
; 98.16
message not used
#
; 98.17
message not used
#
; 98.18
message not used
#
; 98.19
message not used
#
message second number outside
$
\f
; 99.0
message not used
#
; 99.1
message not used
#
; 99.2
message not used
#
; 99.3
message not used
#
; 99.4
message not used
#
; 99.5
message not used
#
; 99.6
message not used
#
; 99.7
message not used
#
; 99.8
message not used
#
; 99.9
message not used
#
; 99.10
message not used
#
; 99.11
message not used
#
; 99.12
message not used
#
; 99.13
message not used
#
; 99.14
message not used
#
; 99.15
message not used
#
; 99.16
message not used
#
; 99.17
message not used
#
; 99.18
message not used
#
; 99.19
message not used
#
message second number outside
$
▶EOF◀