Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/tapwrt.exe
There are 16 other files named tapwrt.exe in the archive. Click here to see a list.
?p 0 @ 0 ?h X b ?x "
<+
+ 12 ` & +
h b 0f 2
` E O T | x | (' Density to WRITE ( 800 or 1600 or 6250 ): '$) (' Output LOGICAL tape name: '$) (A5) (' Starting WRITE loop') (I) (1H0,2I5,' Length= ',I6,' Record no. = ',I6) (' ? Error in TWRITE FILE NR. ',I6,' record no. ',I6) (' END-OF-REEL detected in TWRITE FILE Nr. ',I6,' RECORD Nr. ',I6) (' End of file') (' Error indicator: '2A5)+ -< % : & ( F 6*d dZD 7C< !*, %v, %~C< !+, %uC< !-, %}C< !., %v, %~C< !0, %uC< !1, %} 40D + p & F 60D + r & F 60D 5+ t & F 6C< !&, !@C< !%, !L@d 2C< !3, %v, %~"& x $ F 5 D 3( D 1: 2 3( D 7" 3 $ F 55& ! D 0( D 7C< !!, !J: 0; 5+ ! D 0C< ! , !S+ !"$ . 3 D 3 12D 9+ !
73D ;+ !
C< !4, %vC< !6, %}+ !C< !8, %vC< !9, %}C< ! , !S+ !: 3; 5+ zC< !;, %v, %~C< ! , !S7$ 1+ vC< ! , !SC< ! , !LC< !=, %vC< !>, %}C< !, * C< !, & x @ 4x @ 4x @ 4x @ 4x @ 4P @ 4@ 7@ 1@ 1@ 7@ !x @ 4H @ 2@ 4@ 8@ ;@ 6@ 9@ 8p @ @N Bp @ ~@N Fp @$ 2 p @ @N <p @ ~@N Jp @$ 4 p @ @N Gp @ @N Ph @$ 0@$ 3 p @ @N Vh @$ 3@$ 0 p @ @N ]p @ @N `h @$ 1@$ 7 , !a+ "|, !m+ "|, !p+ "|, !y+ "|,~ , "+ "|, " + "|+ "~,~ , "s+ "|, "w+ "|,~ , "+ "|, "A+ "|,~ , "s <Z $ ,~ , "s <Z $ $ ,~ , "s <Z $ ,~ , "s <@ Z
ad @+ #ad ,~ `d , !S $ G # 4 # Z ' 4 #,~ @ _w# 1" + #0" 7p p # $ 1B + !j1B + !k1B + !j=d !f " b @ B + # #!" 4 # ZCp + # $ 6Ap $ p 0T + !u!(A`PIp G #"+ !w0T + #)!(B PIp G #, 4 #/+ # p $ 4 #7 p $
4 #? p $
4 #G p $ 4 #O+ # @ @ _w# 1" + #W0" 7p 0" 9p p Z-p p 1p 3p 4n "
7 + #a+ # Z R X " ,4 "# / Op #e6B@ , #f\BH + #f," 4 $IZD 0BP+ " Z 24 $I[ / Op Z #h B@ #h6BH Z \$ 6@ ,~ \" #i , $I0B H+ "%Z #l B@ #m6BH Z \$ 6@ + # \" #m , $I0B 61B F7 + "- #q#B@ 1 #q+BH Z $ 6@ ,~ \" #r , $I0B H+ #yZ 24 $IaD + "6 #{ B@ #{ BH Z $ 6@ ,~ \" #| , $IaD + "= #{ B@ # BH Z $ 6@ ,~ \" # , $I\" $ " $ J, $I, $IZ R X " -4 "N #e B@ #f BH Z 2aD + # $ B@ #m BH Z $ 6@ ,~ \" $ < " 4 $IZD 0B I+ "W $ B@ #m BH Z $ 6@ ,~ \" $
ad @+ $4ad + # G # 4 $9+ # 6@ XVx ,~ 6@ XXx ,~
??? Bad JFN given in Unload request 6@ ,~ \" " <@
??? CLOSE Failure during Unload request 6@ ,~ \" # , $I
??? Problem in trying to deassign device 6@ ,~ \" #
??? Not enough arguments in TOPEN request 6@ ,~ \" # <H : x ,~
??? Error in TOPEN at GTJFN 6@ ,~ \" # , $I
??? Data mode given is not 3(Ascii) or 4(industry) in TOPEN 6@ ,~ \" ## <
??? Error in OPENF in TOPEN 6@ ,~ \" #, , $I
??? Error in setting data mode function with MTOPR 6@ ,~ \" #2 , $I
??? Error in setting parity function with MTOPR 6@ ,~ \" #: , $I
??? Error in setting density function with MTOPR 6@ ,~ \" #A , $I
??? ERROR IN SETTING THE RECORD SIZE FUNCTION WITH MTOPR 6@ ,~ \" #I , $I
??? Not enough arguments in TREAD or TWRITE request 6@ ,~ \" #R <Inv. ARG.
??? Invalid length parameter in TREAD or TWRITE request #Z B@ #Z BH 6@ ,~ \" #[ <No ERRORS : x : x ,~ Rec. LONG
??? Record too long in TREAD E O F
??? End-of-file reached in TREAD Dev not av
??? File not opened in TREAD
???? Unanticipated error in TREAD \" #u , $IDATA late?
??? Device errors in TREAD ERR
??? Data errors in TREAD
?? Unknown data or device error in TREAD. DEV STS = @ E O T
??? End-of-tape detected in TWRITE
??? Absolute End-of-file reached in TWRITE
??? File not opened in TWRITE
???? Unanticipated error in TWRITE \" $ , $I
??? Device errors in TWRITE ERROR
??? Data errors in TWRITE
?? Unknown data or device error in TWRITE. DEV STS =
??? Not enough arguments in TCLOSE or tape positioning request 6@ ,~ \" $' <
??? Bad JFN given in Close request 6@ ,~ \" $0 <
??? Failure during TCLOSE 6@ ,~ \" $6 , $I
COPYRIGHT (C) 1983 DIGITAL EQUIPMENT CORPORATION
" " "\" % " U$ @ + + \" % ,~ , $A <\" % + $I. p 5> $Q,>p , p + $P,^ / : x ,~ ,^ / ,~ / p P p ,> %/ %`|+ $R+ $L?p ,>p , p + $Y,^ "` >p : x + $[,^ "` >p ,~ ,> . p 5> $`, p + % Z ,^ : x ,~ ,> Z p >w h + $],> ?p , p + $h Z ,^ : x + $i Z ,^ ,~ ,> > h h , p + % Z ,^ : x ,~ ,> > h h , p + %h h Z ,^ : x ,~ : x ,~ ,> , p 7 : ,^ ,~ ,> ,> , p 7 : ,^ ,^ ,~ >
~, p 7 : ~
~>~,~ >
|}~, p 7 : |~}
|>|,~ ,> . p 5> %, p + % : ,^ " Z\,^ ?x + p ,> Z p >w h + %
? JSYS ERROR:
PROGRAM CANNOT CONTINUE
Z ,^ ,~ h h ,Z ,^ ,~ X + %@@@ &7, ({, (|C" 4B %(7@ (, &# " C$ 4D %* C+ %, BZ [ (N0DX 1d + %27B (S3B (S+ %7abQ"X B (@ (S B 7B * " %cZ 1D %Y+ %7Q"X B (@ " %YXB *6B &7+ %X7B (T+ %;C" C$ %p/ B &7+ %X (T $ (A 76 (C7 (U!" \$ (U 4 %QQ" l @ C$ (D`d, %O @4 %Q " BZ$ Z C& C( %p/ F &7[}.${P}7@ & D & " (NC( 4H %M C+ %XS X B+ %X[D (E!& F (Dl ,~ \" (FU$ !&X + (Y7 (\\" (F B (N\" (\ e (N e <+ %WC4 ({+ %p ( (*" %jC" %h *+ " 4 %^" (`0B ,1B <+ %a+ %c (R,> (RC< (a, %t+@ (@"" , ) <+ %e ! H (A Do you want to close all files? (Y or N): S:NC@, &M?\G, &B-c@, &G2~9', &KbND', &S8p , &W!` , &eR` , &oR` , &K:` , &I` , &]2I` , &]2y` , &S>f=, &M&q` , &[R~@, &M&tC@, &KbNC@, &C2 |G, &I |G, &C2 G, &I G, &iJ
9', &MVt=, &M\g, &S; ` , &M?|, &SI` , &Sy` , &[RD\G, &C
~-, &* x . &7* x ,~ + &6@ &7+ % &8 &9@ (b (b {4 & (c (c6@ (d+ & (d 4 & (e (e (f 4 & +
(f+ &!\" (g + &!\" (p + &! (x 4 & +
(y &8 &9C<p + % C" (Q B (P " C$ (O A4 &6
(Q 0 ZB ( 0 XB * 0 B / 0 N ' (z 4 &/ad + &/ p 3B (z Op . z Q" 4 &3`d 9 &40N `= &/7 ({(N QN (XN (< ZN ,~ + &` &@gR~ + %c+ %Y @ SYS:FOROT7.EXE Undefined error number \" (W+ %UError in ERSTR x(ZCan't get FOROT7.EXE H %k\`%h: (A (a@ @ @ \ @ z@ z\ & ?FRSNS1 Can't put myself in section 1, reason:
Can't create section 1 with SMAP%
?FRSCM1 Can't put myself in section 1, reason:
Can't PMAP section 0 to section 1
\ &!@ |+ p ,~ 7@ ),~ 6@ )+ )"" !$ Y ) & {@@ )@@ ),~ , %q S>( 1 H )O , %q ]? H )O , %q S(
4H )T , %q k:x
4H )X , %q ]>0
5H )[ , %q G_(
5H )` , %q G2(
6H )c , %q S(
6H )h , %q ]
7H )l , %q ]
7H )q , %q CG
8H )u , %q gN( 8H )z , %q gJ( 9H )~ , %q i6
9H * , %q G
:H * , %q ]O
;H *
, %q G
;H * , %q G
<H * , %q g:@ H * , %q S*( H * $J ERRSET: error number out of range - ignored DIVERT: illegal to divert to unit $D DIVERT: unit $D is not open DIVERT: unit $D is not open for FORMATTED I/O DIVERT: Can't write to unit $D Concatenation result larger than expected Illegal length character expression No character stack allocated - compiler error No memory available for character stack First argument to SORT must be a quoted string Substring range error $S($D:$D)
on line $D Subscript range error - subscript $D of array $S = $D
onKline$$D Too many arguments in call to SORT Can't get pages 600:677 for SORT No free section available for SORT Can't find SYS:SORT.EXE - $J Can't get SYS:SORT.EXE - $J Internal FOROTS error Internal FOROTS JSYS error - $J a.3@O@ *a+ * gR~@@@ *a,> ,> ,> ,> " #dd $,^ @ 6 w+ *9" *a0B + *17@ *a+ *),> C< *c, %v,^ + *+,> C< *f, %v,^ p l" B *^,> !" B *^!" B *C< *^, %},^ + *> p 7@ *a+ *5,> C< *h, %v,^ + *7,> C< *j, %v,^ ,> C< *l+ *>7@ *a+ *I,> C< *n, %v,^ ,> C< *p, %~,^ 7@ *a+ *I,> C< *q, %v,^ ,> C< *p, %~,^ ,> C< *t, %u,^ ,> C< *l, %},^ (Bqd 0B ,+ *K,> C< *p, &,^ 1B #+ *O0B *+ *>,> C< *v, &,^ + *>,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To Trace.'/2H *,$) (A1) (' PAUSE',/(1X,A)) (1X,A) (' PAUSE ',O6) (1X,O6) (' PAUSE') .p h @$ *b@D *W@d *b h @$ *b@D *Y@d *e h @$ *b@D *Z@d *gh @$ *b@D *\@d *ep @$ h @$ *b@D *]@d *e h @$ *b@D *Q@d *p~ h @$ *r@D *W@d *sx @ 6 *v 6`*vPRGW.GP $ LA$5C P @ VK V;/ Pb K Mo+q@ UlrBK Y Y X <: *
Y]@ *a
YK *^
YDB *^
Y? * {-^ *9{-X *1{-P *I{-P *K{-O *>{-N *O{-N *7{-M *5{-M *){+M *+$6 *
@ P [|P [h ) zP* PRG W.GP y [ Z Z Y Y
+gL )
+a )6
+[k )+
+[W )1
+[ )H
+<R )=
+< )
+;| )
+: )!
+: )$
+ [ )
+w )K
+ )
+k )
*xC )
*v_ )
*v )D
*v ):
*un )A
*k
)((|/| )J$e# )PRGW.GP $ P @ VK V;/ Pb K Z Y Y UHo: ){ {
dmj (|P R[|P [h GP yP @ VK V;/ Pb K
7,6 ({P w[|P 5[h .,7 ({-t7~0({W x OUk WX*: WXg WX WX3 WWr WIv[ WIc+ \B: /\2g 'r'I (\)8 *\)7 W[l| [l{ &W[j] r%H ([FG PRGW.GP $ `
Hy/w C AwB %xP @ VK V;/ Pb K c'8 (@>Xr &8q;|B %hq;|> %f
n K
;%'+ ^{ H M 4:% H M 3[@ gF/ &6g@; AUg+x fi (OUfh$ 3@E (QM
j} & Y7Ph %2 /}F %| /|N %{Ro f %c@\: %
DV" &&4#)% &/#(h &/;?t &3P , c
Kx~ %( _<F
%} &(. & |J %p^h2c &@ zR %u %v &
%u & >Aj < 1TOs 1M3E %OK1z @ S1yBj S1y?
af[ %;K+l{9 @ (Xw B !|K @&t (D u6
&P [|P [h )
% ) & ): &
~ %7 (J" %q
' %X
&* & !R %~ .,6 & z+ &7 ' K e
`R
^8b %q KHY4 > %yw f %a
_Bb &
_2 & v %z L?_i & K!F, %kK! %Y
Ks
K^ %s
Hg * &7
G8[S
2b &
2 &
"]j &(T[lp% OB- OB-d P @ VK V;/ Pb K P C[|P [h )i~p% H M`: hP @ VK V;/ Pb K hM5$J % ka $vE[ $o?; $r IY O` G % OX OOqh O Lsx O Ls| O LLz H IDlx OYn OYv OXt OXlr OXXp H IDYn ORsX ORq` OR^^ ORK\ OR8Z H IDXX OLSb OLRl OL@j OL<h OL*f OLd H IDXb OF3J OF3V OF!T OF R OF
P OF N OEwL H IDWJ Pzd" OTI@ WHo WHmU WHmQ WHl3 uO< x O%?OLZWWB!X Pk" P im m z % OE0^ OE!" OE . OD~w ODp ODJG ODF*
OD9
OD9 OD9 OD9
OD9
OD9 OD9 OD9
OD9
OD9 OD9 OD9 OD9 OD9 OD9 OD7, OD7 OD3Q OD17 OD,' >OD, ?>9[ $i>3; $lP Hhf P Hhe P Hhe P Hg m P.W uPJ $iW uPJ $hW uP7 $[W uP7 $YH Jd Hfb Hel HRj H>h H+f H JoL HFJ HFV H3T H R H P H
N O qFx O qF| O q z O q&n O q&v O qt O p}r O php HrXZ O kX O jt` O j`^ O jL\ H J
p H+n H+v H*t H*lr H JxZ H$sX H$q` H$^^ H$K\ H Jcd H Sb H Rl H @j H <h H *f H JOL H3J H3V H!T H R H
P H N O F
sx O F
s| O F
Lz LA$5C AP N:p N9Xh x N9WF| N9& N9 r _q$ $`mzt9 $]VS$ $QVS $RVSM $LVSX $P 8Q $u 1;,~ $vM',2 M'*h M'(@ M&~( M&rI @ M&Nt M&N M&<] M&<\ M&4
M&/D M&-) $I z!r $I
T, $I z )0 $A
St , $AS1&D L Dzi % $A J " hX RD89w+ z#, 897e $<O*3 O*3 OOrc O`^ O`D
O`C O` ONC O;\ OW. O/L` P Hhe P2i P2i@ P P @ oz ox q'J "oq "bq "Aq>G "aq;# "h
N " mznG "/mzk# "6 ;F "- ;E "% ;E " ;}< !L_C !Dm[dv " ;} "
Ynx !@l x !p ;l !w ;l !ulEA !yky)L !mkq4v !a ;j% !f
F - 9LN , 1;,~ 79 ) JLYfW) LYf7D@ a
] @\6 LD7Wc LD7RG LD7O# [ 8b2
T, $I
&/K I &/K H &/J H &/I G ~nh P &/I F l <
l
k[L K1,8X K1,4@ K1+}g K+m K+lu_
Nsz
Lv 2 A A KHY4 K4 t 'd@K 6%f- !k%f, !jJM @:@ #ll z#, i cE46qp!@
a d ' !
; !4 O !61:)A G %a !
c !8 w !9 ! >a ! !; 3 ! ! 1< ` 3 ! 1:a < v G != [ !> , !1:Ha P 3 ! G d [ !* o !+1: B ! ! !- !. + !01:6 J 2! ! ? !1 S p
_ r1<
A V
s tP qG 8
C5 7 7 %]t 7 %gx 6P4 6P5 5P5 5 L 4 h=A 4
3 3 2
2
C5 1 x 1 0W`F bcEfvp b\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0