Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/srt.exe
There are 2 other files named srt.exe in the archive. Click here to see a list.
?p ?x gK Kb)C}2$C` INX Q F: { A) '[ {B E@ M (# > 'C
*> ` xR p " 1b + 7('0WMU - CSR--DATA FILE BREAKDOWN PROGRAM',//) "$ D ["& F \-\ L4 T4 \4 [4 \4 T4 T : Z ] Z [-\
u4
U4 [1: 9 =@@ ]C" Bb + D(' *',$) D " FB~ i4 ( + H(80A1) @@ ^@@ ^@@ $ D $ D `@@ ` : Z ] V Dh V3Dhh+ Q: ] ] hh F1: (9 L V2D + e@@ ]: ] $ (3$ ]+ e W ]3D+ k W ]3D+ x X ]3D+ X ]3D+ Y ]3D+ Y ]3D+ Z ]3D+ + T " gb -\
w " rb ^ + s(I) $ 3d ^g O & (2& ^g O G 4$ e+ T _4D : ` $ . ] D [-\ q4 [4 4 [4 C CX@
w " rb ` 8 + T $ 3D _+ T $ . ] D [-\ q4 Z4 4 [4 C CX@
w " rb ^ $ 3d ^g O & (2& ^g O G 4$ e+ T $ D _+ x $ . ] D [-\ q4 Z4 4 [4 C CX@
w " rb _ + T $ . ] D [-\ q4 Z4 4 [4 C CX@
w " rb ` + T $ 3d _g O _3f `g O G 4$ e $ 3d `g O & 2& `g O G 4$ e"$ . _ D a"$ . `/ a D a a( D b a. a( D b@@ c@@ c@@ d@@ d@@ e@@ e"$ . ^ D ] $ 3$ ]+ 9 ] D c+ = ]&$ D c $ $ c ]/ F c ^5D ? ^ D ^ $ / ^. ^ D d $ (/ ^ D ] $ 3$ ]+ E ] D e+ I ]&$ D d $ $ d ]/ F e : Z ] V DhJ1: 9 J@@ f W D K c4D T c.D f KX@
w " S c + T(I2,'A5,') c4D [: f LX@
w " Y c + [('A',I3,',') : f f D f LX@
w " _ d + a('I',I3,',') d4D h d.D f MX@
w " f d + h(I2,'A5,') e4D o: f MX@
w " l e + n('A',I3,')') + p Y D M : Z ]@@hR@@hf1:
9 q " tb + x(' FILES?(4 CHARACTERS) ',$) " zB~ g + {(A4) $ !.D g $ D g `5D ~@@ g a4D " 4X@
xB : Z ] p3: b9 + (16A5) " KQ" 4X@
xB : Z ] 3: f9 a4D " 4X@
xB $ . b Z ] p3: b9 g4D G : Z h f 3dh8+ 3: `9 + ~ h R5D -\ I4 h4 g4 ]4 S $ . h D h a4D % hX@ ! " b : Z ] p3: b9 " hX@ ' " KQ" b : Z ] 3: f9 ( a4D 3 hX@ . " b $ . b Z ] p3: b9 0 h: f+ ~ " 6b + ;(10X,'NO OF'/2X,'FILE',3X,'RECORDS',3X,'KEY'/) " Bb : Z ] \ f 83: `9 = + D(1X,A5,2I8) " Eb + G(////) + 7 `4D L : Z ] f 3Dh8+ P3: `9 I: ` ` f F8 ` D h+ ] D h+ -\ + + 0 DSK B ( , - : ) C / $ . S D U-\ Q4 U4 S S. T S F $ .D S S. T & F+ N4 Z Q \ R R,!p ,!p , p , p + A Q R\ T/ ,Ap ,Ap -|p @@ $ D Z 2$ ~+ h : Z . ~ 3Dh+ c3: 9 Z: . ~ ' F 1: (9 X 2$ ~+ h $ . Z z Dh3: ~9 f ~X@ k X@
w"" o : Z ' 3: ~9 lF + p(10A1) + w4 D { F {@H |"Z |b\ } },!p , p ,!p ,Tp + V {E {) |$ | }@ -|p X , - : ) C / l5D kX@
x X@
xB v4 + "(50A1) V2D yg O V2F xg O W2H xg O
W2J wg
O
X2L wg
O
W2N vg O X2P vg O A A
A
A A A 4$ V2D yg O V2F xg O V2H xg O
Y2J wg
O
Y2L wg
O
Z2N vg O W2P vg O A A
A
A A A 4$ V2D yg O V2F xg O V2H xg O
Z2J wg
O
[2L wg
O
Y2N vg O V2P vg O A A
A
A A A 5$ Z $ . l6b 0b 7 +Y4
4 N-\ H4 j $ A l & 3F g O ( 3H og O G 4& d-\ 4
4 [4 \4 p@@ o@@ p@@ q@@ q@@ r@@ r@@ s V D m V D m V D j@@ s@@ t: s $ 3$ s+ \ s2D u+ p $ D t ] s3D u+ w ] s3D u+ ^ s3D u+ + k $ . s D q $ . s D e : Z t h s Dh u2z e= {!: Z t s. V F u1: 9 ~ $ .D s+ k $ . s D q $ . s D e : Z t h q Dh u2z e= $ . s D f s Z t V Dh u3: f9 $ .D s+ k s D r+ k q4D
X@
w " $ . q D f & . q Z t u3: f9
X@
w " b r s + (2O) t5D ' $ . q D g & . q Z t V2Dh u+ %2z g= ! $ D t t \ F v mX@
w " $ . q D g & . q Z t u3: g9 , q4D 5 jX@
w " : Z t u1: 9 2 r4D B
X@
w " $ . r D h & . r Z t u3: h9 ;
X@
w " Ab p + B(I) V2D j+ P V3D m+ G ^ D j+ P"$ 3D l+ J _ D j+ P $ A l5D L _ D j $ A l & 2F + P ` D j-\
u4 j4 j ^3D j+ f `3D j+ Z `2d jg O a3& jg O A 4$ f+ R a D m b D m $ D o j D u-\
u4
b4 j-\ 4 u $ 3D u+ d $ .D m+ m D
m D
4 V2D m+ o4$ A l5D j4 c D mX$ A l& 2F + n( dLD mE dTD mS$ A l2& 3F + }-\
-\ U4 j4 c4 p4
m4 r4 s+ R $ 2D o+ -\ H4 u $ 2D o+ -\ 4
4 [4 \4 p-\ jX@ + R kX@
" + ('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA. IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X, 'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X, 'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X, 'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4) IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///) kX@ " b n o + I(' EXAMPLES: DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/ 14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE: THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1) SAME COMMAND. IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2) FINISH COMMAND. THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM. THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED. FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3) A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)-\ H4 k $ . l6b 0b 7 +L4
4 kX@ O " Pb + K('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X, 11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/ 6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/ 6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X, 'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4) IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'/// ' EXAMPLES: LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///) + I+ R4 Z h \ i i,!p ,!p ,!p ,!p ,!p ,!p +
h i\ l/ ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] \
z @
z< 0< 0| + 1\ +
#,>p
Z p
+ p @ h
F@ p
F@(
`@0
i@ x
M@
M@8
k@(
Y@ P
d@ P
d@ h
F@
+@
+@
E@
E+
X[ (/< 0"` S<p X< 0 p 3@ +
)*|
%-< Z`
+
X! @w+
'< p 7 p +
F,> ,> ,> &w p ,
A,& .< 7@p +
> p ,
A"
r.< p ` w,& ,& 5
0.< p d : ." Q ,& p ,& >` 9
;.< 9
1@@ ,^ ,^ ,^ +
Fd @ @ & 0b ." ." )B}5@
B,~ m< !< P\
v< p [ p l< 0@X +
LZ p .< / p Q \
w+
N@@
w!< P\
v7@
y+
R <
y \
w@@
y!< P\
vX X\
v 7@
xD<7@
xA< \
v <
v[`x
z, x ,^x
z+
Q< \
v:
\
w< p
r| < \
v@@
w+
V@@
v Q< \
v< p
r| +
V7
\
v @
iX Q< \
v
\
w+
V [`x
z, x +
pZ \
v@@
v@@
w< \
w+
V7
x
xX\
@@
x@@
x+
X >x ! Z @
& U` eB + @ )@ G
" +
}
& +
6$ 1 ,> . @
p .4 6$ -p
o.
.4
w.
vSEQIN @ SEQOUT @ @
i
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + ~ + Z . \x <x *<x .->
]ez+ !" b + " b + Z . h + gg M?Th
& ! b + ,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* E** ,^ ,~ * x ,> < E*< G p Z@ ;@@ ;@@ < |`|+ /P w,~ "p h a`~ + 4h ``~ + 5$ |! 6d }/"+ /P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ ;\` : < ;, ,^ ,~ SMI 1 ,> , ( ~ B ;+ __MI 1 ,> , (
B ;+ _I5R1 ,> , (
B ;*\ i7Ap X"
B ;/& p d"~ l" B ;*\ i/& p d"~ l" $ B ;*\ i/& p d"~ l"
B ;*\ iSp *\ i/&Xp B D@@ D
B ;*\ i/& p d"~ l" B ;RF : < ;, + &EV4i91 ,> + wS ,i@1 ,> + w_ ,i@1 ,> + wK>2 1 ,> + wK>40 1 ,> + w[<I71 ,>
&
w @ )@ .
" 5B x
&
,~ ` .
.4 SEQIN ^ }SEQOUT ^ RANDOM ^
SEQINOUT D
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> O@
H+
gR~@1 ,> @@
H,> ,> @ 6 w+
"
H0B +
!"A`X#p 5@
/#p !" X#p +
\p +
a.9'1 ,> ,> ,> O@
H+
,>
6 + _ 4`
#"` Q@ ,> <
I, ,^ ,> <
L,
,^ *b
+
.,> <
N, ,^ 7@
H+
),> <
Q,
,^ +
+,> <
R,
,^ Z 5"
.,> <
T,
,^ , 7@
H,
,> <
U, ,^ , ,> <
X, ,^ ,> <
[,
,^ (@qd 1@ ,,
1@ #+
<0@ *+
.,> <
], ,^ +
.,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X
D p X
E p
G p
G p X
> X ~
D p x !$h X$h @@h *% "
e Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> Z .@ 6kp 2j8 M+
~\$}
4L
}/, L 8$
z.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
&
,<
I5r1 ,> O@
, 4" ~ <
4 4 KbN=1 ,> O@
& Ap ,~ ERROR ON OPEN!
H H G.t21 ,> @ @Ap !$A`.!p (@
x ` 5@ !$Lu+
& <
.p M}ILLEGAL DEVICE NUMBER!
" , ' Q&A` @ 1x ,~ 18 0.8 X =` ,~ . H a|+ 0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> , V+ +@ , , R+ +Z" 6Ep " B` " b 3 $ 7cp $ 1B $ d 4, -, + ,6cp 0b " b 4$ ` ({." XB` &$ @6@ .$ .$
a|+ $[p d p0B + (+ &_w#` 1" + (6cp 0d $QD` , i+ , ] ,~
& 5+ )
& 7+ )@b -p . Q,A`
9 4P 31P + :/0 P =n /,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
:+ /YC G aS a3 S; YC&<G<aS<a3&<E$;w |xA P< B` 1T !"L b @ XB` O@ \ n [@ , ]
+ f!, 2, G@ !.~ , ]` + n"" 1T "" QB Z, ] f + 1$ 9 z+ U 8 A@` A p*( Y q n @ `N + v 6`
w1T w B` " B` \"
b @ B` \" x b !" Z (Brb x b
B \ b
+" `B` !" 2 b `b `b + !" 2 b !` 2B` + !$ 2 d !$Lu+ y b @ y, z d !$Lu B [ D [,~ @@ ^ z*( e B D BX B` DX Z ](D} d ` D ^ DX " 2D` b {d " b {, ]@ ^+ | e BX @@ e ~ b $+ .!" fX"X *"X !"`
+ A!, 2, GB , ]" X
_ `, ] + A JX , ] + U
& " b {a` + ?+ (a` + ?, ] ^+ + ? x H O h &( 2
P< . \ &. .0 P `bp + Kd
@ [, ]+ O`L+ I [+ U ( !*Lu@
, ]
,~ : x ,~ " B mO@ ]O@ ]g " ?$ m+ e d 5D Y m(D D]+ U,> e` p+ a7 ]+ dl! ]+ b7 ]+ dl! ]: +@ > ,^ + U
& ,~ "
& ,~ "
& ,~ , l
&
& , l b ( + i
& ,~ @ ;` \+ m+ g hA 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( q+ i`` ` P $` h kh_
X HX a` ,~ !" GB` + ? @e6$ `
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
KbN@ 1 ,> ,
,~ Y\ Q< X\ * +