Google
 

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.
?p0@0?hX b?x " 
<+
+12	`&+
h b0f2
`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)+ -<%  : &( F6*d dZD 7C<!*,%v,%~C<!+,%uC<!-,%}C<!.,%v,%~C<!0,%uC<!1,%} 40D+ p & F60D + r & F60D5+ t & F6C<!&,!@C<!%,!L@d2C<!3,%v,%~"&x $ F5 D3( D1:2 3( D7"3 $ F55&! D0( D7C<!!,!J:0; 5+! D0C<! ,!S+!"$.3 D3 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@$2p@ @N <p@ ~@N Jp@$4p@ @N Gp@ @N Ph@$0@$3p@ @N Vh@$3@$0p@ @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 $ p0T+!u!(A`PIpG#"+!w0T+#)!(BPIpG#,4#/+# p $4#7 p $
4#? p $
4#G p $4#O+#@@_w#1"+#W0" 7p0" 9p pZ-p p 1p 3p4n"
7+#a+#ZRX",4"#/ Op#e6B@,#f\BH+#f,"4$IZD0BP+"Z24$I[/ OpZ#h B@#h6BHZ\$6@,~\"#i,$I0BH+"%Z#l B@#m6BHZ\$6@+#\"#m,$I0B61BF7+"- #q#B@1#q+BHZ $6@,~\"#r,$I0BH+#yZ24$IaD+"6 #{ B@ #{ BHZ $6@,~\"#|,$IaD+"= #{ B@ # BHZ $6@,~\"#,$I\"$ "  $J,$I,$IZRX"-4"N #e B@ #f BHZ2aD+# $ B@ #m BHZ $6@,~\"$	< "4$IZD0BI+"W $ B@ #m BHZ $6@,~\"$
ad@+$4ad+#G#	4$9+#6@XVx,~6@XXx,~
??? Bad JFN given in Unload request6@,~\""<@
??? CLOSE Failure during Unload request6@,~\"#,$I
???Problem in trying to deassign device6@,~\"#
??? Not enough arguments in TOPEN request6@,~\"#<H:x,~
??? Error in TOPEN at GTJFN6@,~\"#,$I
??? Data mode given is not 3(Ascii) or 4(industry) in TOPEN6@,~\"##<
??? Error in OPENF in TOPEN6@,~\"#,,$I
??? Error in setting data mode function with MTOPR6@,~\"#2,$I
??? Error in setting parity function with MTOPR6@,~\"#:,$I
??? Error in setting density function with MTOPR6@,~\"#A,$I
??? ERROR IN SETTING THE RECORD SIZE FUNCTION WITH MTOPR6@,~\"#I,$I
??? Not enough arguments in TREAD or TWRITE request6@,~\"#R<Inv. ARG.
??? Invalid length parameter in TREAD or TWRITE request #Z B@ #Z BH6@,~\"#[<No ERRORS :x:x,~Rec.  LONG
??? Record too long in TREADE O F     
??? End-of-file reached in TREADDev not av
??? File not opened in TREAD
???? Unanticipated error in TREAD\"#u,$IDATA late?
??? Device errors in TREADERR  
??? 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 TWRITEERROR
??? Data errors in TWRITE
?? Unknown data or device error in TWRITE. DEV STS = 
??? Not enough arguments in TCLOSE or tape positioning request6@,~\"$'<
??? Bad JFN given in Close request6@,~\"$0<
??? Failure during TCLOSE6@,~\"$6,$I
COPYRIGHT (C) 1983 DIGITAL EQUIPMENT CORPORATION
 "   " "\"% " U$@+ + \"%,~,$A<\"%+$I.p5>$Q,>p,p+$P,^/:x,~,^/,~/pPp,>%/%`|+$R+$L?p,>p,p+$Y,^"`>p:x+$[,^"`>p,~,> .p5>$`,p+% Z,^:x,~ ,>Zp>w h+$],> ?p,p+$h Z,^:x+$i Z,^,~,> >hh,p+% Z,^:x,~,> >hh,p+%hh Z,^:x,~:x,~,>,p7:,^,~,>,>,p7:,^,^,~>
~,p7:~
~>~,~>
|}~,p7:|~}
|>|,~,> .p5>%,p+% :,^"Z\,^?x+p ,>Zp>w h+%
? JSYS ERROR: 
PROGRAM CANNOT CONTINUE
 Z,^,~hh,Z,^,~X+%@@@&7,({,(|C"4B%(7@(,&# "C$4D%*C+%,BZ[(N0DX1d+%27B (S3B(S+%7abQ"X B(@ (S B7B* "%cZ1D%Y+%7Q"X B(@ "%YXB*6B&7+%X7B(T+%;C"C$%p/ B&7+%X (T $(A76 (C7(U!"\$(U4%QQ"l@C$(D`d,%O@4%Q "BZ$ZC&C(%p/ F&7[}.${P}7@& D& "(NC(4H%MC+%XSXB+%X[D(E!& F(Dl ,~\"(FU$!&X+(Y7(\\"(F B(N\"(\e (Ne<+%WC4({+%p ( (*"%jC"%h*+  "  4%^"(`0B,1B<+%a+%c (R,>(RC<(a,%t+@(@""	,)<+%e! H(ADo 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,&C2G,&IG,&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+& (d4& (e (e (f4&+
(f+&!\"(g+&!\"(p+&! (x4&+
(y&8&9C<p+%C"(Q B(P "C$(OA4&6 
(Q 0ZB( 0XB* 0 B/ 0 N' (z4&/ad+&/ p3B(z Op .z Q"4&3`d9&40N`=&/7({(NQN(XN(<ZN,~+&`&@gR~ +%c+%Y@SYS:FOROT7.EXEUndefined error number\"(W+%UError in ERSTRx(ZCan't get FOROT7.EXEH%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) &{@@)@@),~,%qS>(1H)O,%q]?H)O,%qS(
4H)T,%qk:x
4H)X,%q]>0
5H)[,%qG_(
5H)`,%qG2(
6H)c,%qS(
6H)h,%q]
7H)l,%q]
7H)q,%qCG
8H)u,%qgN(8H)z,%qgJ(9H)~,%qi6
9H*,%qG
:H*	,%q]O
;H*
,%qG
;H*,%qG
<H*,%qg:@H*,%qS*(H*$JERRSET: error number out of range - ignoredDIVERT: illegal to divert to unit $DDIVERT: unit $D is not openDIVERT: unit $D is not open for FORMATTED I/ODIVERT: Can't write to unit $DConcatenation result larger than expectedIllegal length character expressionNo character stack allocated - compiler errorNo memory available for character stackFirst argument to SORT must be a quoted stringSubstring range error $S($D:$D)
	on line $DSubscript range error - subscript $D of array $S = $D
	onKline$$DToo many arguments in call to SORTCan't get pages 600:677 for SORTNo free section available for SORTCan't find SYS:SORT.EXE - $JCan't get SYS:SORT.EXE - $JInternal FOROTS errorInternal FOROTS JSYS error - $Ja.3@O@*a+*gR~@@@*a,>,>,>,> " #dd$,^@6 w+*9"*a0B+*17@*a+*),>C<*c,%v,^+*+,>C<*f,%v,^ pl" B*^,>!" B*^!" B*C<*^,%},^+*> p7@*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,%},^(Bqd0B,+*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').ph@$*b@D*W@d*bh@$*b@D*Y@d*eh@$*b@D*Z@d*gh@$*b@D*\@d*ep@$h@$*b@D*]@d*eh@$*b@D*Q@d*p~h@$*r@D*W@d*sx@6*v6`*vPRGW.GP$LA$5C P@VKV;/PbKMo+q@UlrBKYYX<:*
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*PRGW.GPy[ZZYY	
+gL)
+a)6
+[k)+
+[W)1
+[	)H
+<R)=
+<)
+;|)
+:)!
+:	)$
+[)
+w)K
+)

+k)
*xC)
*v_)
*v)D
*v):
*un)A
*k
)((|/|)J$e#)PRGW.GP$P@VKV;/PbKZYYUHo:){{
dmj(|PR[|P[hGPyP@VKV;/PbK
	7,6({Pw[|P5[h.,7({-t7~0({WxOUkWX*:WXgWXWX3WWrWIv[WIc+\B:/\2g'r'I(\)8*\)7W[l|[l{&W[j]r%H([FGPRGW.GP$`
Hy/wCAwB%xP@VKV;/PbKc'8(@>Xr&8q;|B%hq;|>%f
nK
;%'+^{HM	4:%HM	3[@gF/&6g@;AUg+xfi(OUfh$3@E(QM
j}		&Y7Ph%2/}F%|/|N%{Rof%c@\:%
DV"&&4#)%&/#(h&/;?t&3P, c
Kx~%(_<F
%}&(.&	|J%p^h2c&@zR%u%v&
%u&>Aj<1TOs1M3E%OK1z@S1yBjS1y? 
af[%;K+l{9@(XwB!|K@&t(Du6
&P [|P [h)	
%)	&):&

~%7(J"%q
'%X
&*&!R%~.,6&	z+&7'Ke
`R
^8b%q	KHY4>%ywf%a
_Bb&
_2&v%zL?_i&K!F,%kK!%Y
Ks	
K^%s
Hg*&7
G8[S 
2b&
2&
"]j&(T[lp%OB-OB-dP@VKV;/PbKPC[|P[h)i~p%HM`:hP@VKV;/PbKhM5$J%ka$vE[$o?;$rIYO`G%OX OOqh OLsxOLs|OLLzHIDlxOYnOYvOXtOXlrOXXpHIDYnORsXORq`OR^^ORK\OR8ZHIDXXOLSbOLRlOL@jOL<hOL*fOLdHIDXbOF3JOF3VOF!TOFROF
POF	NOEwLHIDWJPzd"OTI@WHoWHmUWHmQWHl3uO< xO%?OLZWWB!XPk"Pimmz%	OE0^OE!"OE.OD~wODpODJGODF*
OD9
OD9OD9OD9
OD9
OD9	OD9	OD9
OD9
OD9OD9OD9OD9OD9OD9OD7,OD7OD3QOD17OD,'>OD,?>9[$i>3;$lPHhfPHhePHhePHgmP.WuPJ$iWuPJ$hWuP7$[WuP7$YHJdHfbHelHRjH>hH+fHJoLHFJHFVH3TH RHPH
NOqFxOqF|OqzOq&nOq&vOqtOp}rOphpHrXZOkXOjt`Oj`^OjL\HJ
pH+nH+vH*tH*lrHJxZH$sXH$q`H$^^H$K\HJcdHSbHRlH@jH<hH*fHJOLH3JH3VH!THRH
PH	NOF
sxOF
s|OF
LzLA$5C AP N:pN9XhxN9WF|N9&N9r_q$$`mzt9$]VS$$QVS$RVSM$LVSX$P8Q$u1;,~$vM',2M'*hM'(@M&~(M&rI@M&NtM&NM&<]M&<\ M&4
M&/DM&-)$Iz!r$I
T,$Iz)0$A
St,$AS1&D	L	Dzi%$AJ"hX RD89w+z#,897e$<O*3O*3OOrc O`^O`D
O`CO`ONCO;\OW.O/L`PHheP2iP2i@P	P	@ozoxq'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
]@\6LD7WcLD7RGLD7O#[8b2 
T,$I
&/KI&/KH&/JH&/IG~nhP&/IFl <
l

k[LK1,8XK1,4@K1+}gK+mK+lu_
Nsz
Lv2AA	KHY4	K4	t'd@K6%f-!k%f,!jJM@:@#ll	z#,icE46qp!@
a d'!
;!4O!61:)A G%a!
c!8w!9!>a!!;3!!1< `3!1:a < vG!=[!>,!1:Ha P3!G d[!*o!+1: B!!!-!.+!01:6 J2!!?!1S p
_ r1<
A V
s tP	qG 8
C5 7	 7%]t7%gx6P46P55P55L4h=A4
332
2
C51x10W`F bcEfvp b\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0