Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - unsupported/mtu.exe
There are no other files named mtu.exe in the archive.
@ " 
 
<+x+h3z	``&?P.(%802+x+zx-%0h/+!R+!Rh9!e HEx=>xxac}0cp$H"$X"$h"2$x#t%",%%0%%Y%#I% "%0%%8!y%@"*%P%2%X#mx*.%p%hpx*.%p%h 8x*0x*4vx*5&p"P&P"6yXy'%%8%}8|'(%
'8%
 8x*<x*A~P &p%( %#(0%(@%*x*E(p(P 8x*Hx*Kx*K ()8)@)H)P)Xx*O)x)px*P*%8'%9*8%A@x*Tp@x*Vp@x*Wp @x*Zp"@x*[p$@x*\p&@x*_p(@x*_p*@x*`p,@x*ap.@x*cp0@x*eX28x*gx*kx6 x8h!I!K!K!Lz!Q) 3 *l " *m*!$@,+O@!; "( B!; " B!= " B!= " B!< "
@B!<O@!CO@!BO@!C\"E\$*m &d@ F< B; B;@@< *n B= " B= $,!s+!c ^!> !> !CO,(L,*q !B@,(L,*vO@!B !C@,(L,*{O@!CO@!F@@!F@@!G@@!G " B!? $a,!s+!cZ+ $9 "924!v`b+!x+-{\"*},-H,~\"*,~ $),!s+!c $3,!s+!c D!C,!r+!c !C'"+1B`!+"\"++!c !C B!CO@!C+!c $+,!s+!c $ D!>,!r+!c,"-+!c !C !>4"
>`!?+",(>+!c\"+,)+!c $k,!s+!cZ+D!>\$r,!s+!c4d") D!? $!,!s+!c+" $n,!s+!cZ D!> $r,!s+!c4d") D!? $!,!s+!c,!r+!c,"-+!c !C $4"
,~ +4(~+-{ $t,!s+!cZ D!>,!r+!c+!>,(T+!c !C $
 &4+O@!?,)+"q\"+!"},"b+!c6"!?+"I +,"b+!c6"!?+"I,),~\"+!"},"b+!c6"!?+"I +,"b+!c6"!?+"I\"++!c=""L\"+,(>+!c "y D!= "| D!=,%L !Cl"	4+',(T+!c,(y+!c,"r+"` F!>\"+) !>,)\"+- !>&$,)\"+1 !>&$4F"^\"+2 ,)\"+3\"+,(>+!c\"+6,)+!c B!>\# !C $
 !> "y4) $ !> "|4),"r+"n\"+87B!?+"o5b+9Z!>." B!?+"o\"+: !>*b"b+-{,^,~ !C +<"&,4+<.& $4) $4)5F-{,~+=+?+B+D+F+H+K $-,!s+!c $5,!s+!c D!B,!r+!c,(]+!c $,(p+!c $,)	+!c7@!;+#/ !; B!D,# +#1D+#0D+#@7@!D+#,#!+!c>`!D+# !; B!D^)$5$#:!F $f?"!D+#,#!+!c+#9B#:!G+#7@!D+#@D!E>`!D+#,#(+!c+#9 !B+-{6`!D+#',#(,~ !< !<1F$" B!D +< B!ED!E>!D+-{6@!F++M,> !< $;1Bm$Il$B !C"!<-4+P,^+-{ !< !<0D+#2."&" B!D@@!D,# +#6`!D+#8,#( !D B!D +S B!ED!E>!D+#3Z!B	4+VO@!BZ!Cl"	4+Z7D!F+#A\"+[,)\"+7D!G+#D\"+_,)\"+7D!G+#H\"+b,)\"+,(>+!c $/,!s+!c $7,!s+!c D!B,!r+!c,(]+!c $,(p+!c $,)	+!c7@!;+#i@@!D !; B!D,#]+#s_)$5$#W:!F $ !B6@>`!D+#T $ $ !; B!D+#T6`!D+#b,#c,~ !<1D$& F!D +< B!E!E>!D+-{ !C $;1Bm$Il$B"!<,4+f6@:!G.!<+-{@@!D6`!D+#p,#c+#s !<0D+#o "&"  F!D +S B!E!E>!D !B+#j5B#9+!c $,!s+!c $7,!s+!c D!B\"*M !=1D\"*L1D\"*L1D\"*M1D\"*K B\"*O !=1D\"*O B $`#,!s+!c $
,!s+!cZ D!> $,!s+!c $,!s+!cZ D!?,!r+!c,(T+!c,(y+!c !B'"+1B+$\"+k+!c $,$k+!c\"+o !C +<"&@,4+p !B +<"&@-4+r:!A:!AO@!@+$7+t\(+u,> "Z1BH+$$,>\"+v \"+w,$(\"+y,^,),^ $4),~,^ $4)+-{:!I\"+{ !A,)\"+~ !B,)\", !A,)\",,~7D!H+$2\",,)\"+7D!H,~\",,)\"+,~:!B " B!A !B $4,;`!@+$\",,$/ !Bl"	4, $,$k+!c\", !C +<"&@,4,O@!@ F!?gB`d+$E !B ,"&@,4, O@!@ F!?gB`d+$J6 !@+$W6 !@+$_2F!?+$d.&@&&"S ;F;d5B$U*f$Q:!A:!A+$A,$'\","+$S6@!@+$\6`!@+$b6 !@+$A,$'\",&+$A6`!@+$~,$'\",,+$~6@!@+$b,$'\",1+$S,$'\",7+$~,$'\",< !?.$@,)\",A !?.$@,)\",F+$S !Bl$4,H !B $ &4) $ &@4) $
 !>4) $ !?4) !C $4,L !B $4,P " B!A B!A B!BO@!@O@!@@@!H@@!H@@!I+-{\",R,$/7D!I+!c\",S,)\"++!c $w,!s+!cZ+ $',!s+!c ${,!s+!cZ+@@!;,!r+!c+!c $#,!s+!c $~,!s+!c D!> $%,!s+!c,!r+!cO@!; !> D!;+!c $,!s+!cZ+ $',!s+!c $,!s+!cZ D!>,!r+!c !> D!<+!c $',!s+!c $,!s+!c D!>,!r+!c !> D!<+!c $',!s+!c $
,!s+!cZ D!>,!r+!c !> D!=+!c $',!s+!c $,!s+!cZ D!>,!r+!c !> D!=+!c,!r+!c<+!c $1,!s+!c $,!s+!cZ D!>,!r+!c,!>+!c,%9+%A\",V7@!;+%?\",X !;,)\",Z+%@\"*:\"+,~\",^ !<\",`1D\"*G1D\"*E\",a !<,)\",F,%L6`!C+(>\",d,~\",f !=\",`1D\"*L1D\"*L1D\"*M1D\"*K1D\"*M\",h !=\",`1D\"*O1D\"*O\"+,~,!r+!c\"%\+!c
MTU - Magnetic Tape Utility

    This program can perform 3 basic functions. 1) Determine density,
parity and block length of a given block on a tape. 2) Tape to tape
copy and verify. 3) Read and write single files in different modes.

There are 3 classes of commands; Mode setting commands, Action commands,
and other.

Mode setting commands:

SE`%T CONVERSION-MODE (TO) BINARY
	Read/Write 36 bit words from file and write unchanged on tape.

SET CONVERSION-MODE (TO) EBCDIC (WITH) n (CHARACTERS PER LOGICAL RECORD)
	Read/Write 7 bit ascii characters from file and convert to/from
	EBCDIC on tape. Each line from file is truncated or padded to n
	characters on tape.

SET TAPE BLOCK-LENGTH (TO) n
	Set block length on magtape to n bytes. Byte size depends on
	tape format.

SET TAPE DENSITY (TO) 1600
		      200
		      556
		      800
		      SYSTEM-DEFAULT
	Set density to be used for magtape.

SET TAPE FORMAT (TO) CORE-DUMP
	Read/Write magtape in CORE-DUMP mode. This converts between
	five 8 bit bytes on tape and 36 bit word in file. In EBCDIC
	conversion-mode, four 8 bit bytes are packed in each 36 bit
	word which is the written on tape. The reverse happens for
	read.

SET TAPE FORMAT (TO) INDUSTRY-COMPATIBLE
	Read/Write magtape in INDUSTRY-COMPATIBLE mode. This transfers
	8 bit bytes to/from tape. In EBCDIC conversion-mode, bytes
	are transfered directly to/from tape. In BINARY mode, only
	bits 0-31 of each word are written on tape as four sequential
	bytes.

SET TAPE PARITY (TO) EVEN
		     ODD
	Set parity to be used for magtape.

TAPE (UNIT IS) filespec
	Select magtape for all action commands. Colon in device
	name is required.


Action commands:

All action commands require that a "TAPE" command has been given.

ADVANCE BLOCK n (TIMES)
	FILE
BACKSPACE BLOCK n (TIMES)
	  FILE
	Execute the specified tape motion the specified number
	of times (n defaults to 1).

CHECK BLOCK-LENGTH
	Read current record and determine length in bytes.
	Also prints length in words for CORE-DUMP mode.

CHECK TAPE-PARAMETERS
	Read current record in all densities and parities. If
	exactly 1 combination is successful, set that as in "SET"
	commands and do "CHECK BLOCK-LENGTH". Otherwise print
	error message and terminate command.

COPY (SELECTED TAPE TO NEW TAPE) filespec (WITH DENSITY) density (AND PARITY) parity
	Selects a tape for output (filespec) and writes/reads it using
	the specified density and parity. Density and parity default to
	that of the input tape (selected with "TAPE" command).
	Both tapes are rewound. The input tape is copied to the output
	tape byte for byte. Both tapes are rewound again. Both tapes are
	now read and compared. All I/O and verification errors are
	printed, but do not terminate the operation. At the end of
	both the copy and verify errors are summarized.

EOT
	Advance magtape unti`'l 2 consecutive end of file marks are seen.

READ (FROM TAPE INTO FILE) filespec
	Read specified file and write on tape using currently
	selected modes.

REWIND
	Rewind magtape to load point.

UNLOAD
	Rewind and unload magtape.

WRITE (ONTO TAPE FROM FILE) filespec
	Read magtape and write into specified file using currently
	selected modes.


Other commands:

EXIT
	Exit program, return to EXEC.

HELP
	Print this text.

WHAT (IS STATE OF) BOTH-TAPE-AND-CONVERSION-MODES
		   CONVERSION-MODE
		   TAPE-MODE
	Print out current values of parameters set by "SET" command.
 " @
,~ !C24(GdD+,mdD +,qdD+,udD+,ydD+,}dD+-dD+-,~\"-+) !C24(G`D,~+-{ 
ad@+-{ad+(Rl"6@l"	,~+-{5F-{	,~+-{7`!C+(^ !C -
4(~,),~ !C $ &4) $ &@4)+-{6`!C+(_\"+
,~ !< !<0D+(b."&"0b+-7@!;+(i !<&!;\"-6@\"- !<1D\"- !=1D !<0D+-{ !<7@!;aD+-{\"-!+-{ !<1Bl$@1Bl$ !C4(~,),~ !C $ !<4) $ !<4) !C $
+!=4),$,!=4)+-{\"-+,),~\"-.,),~gU(@@!C24)d@n34)+-{\"-1,),~7@!;l$@6@!;l$p!B4)+)Z!K 2B-?+)#0,~\"-@/x x'x?x=x-x6x(x>x&x.x.x'x5x0x%x0xxxxxyxyxzxzx{x{x|x|x=x/x&x?x7x7>x`xaxaxbxbxcxcxdxdXhpi`i@jXjk0kxlxlxqxqxrxrxsxsxtht %PpH-X/p6h<x@xAxAxBxBxCxCxDxD`H`I(IxJpJxKxKxLxLxQxQxRxRxSxSTPT`58hhP'/7?GOWgoww'/7?GOW`)'/7?GOoWgowg'/7?GOW'/7?GOADVANCEBACKSPACECHECKCOPYEOTEXITHELPREADREWINDSETTAPEUNLOADWHATWRITEFILEBLOCKDECIMAL REPEAT FACTOR FOR SPACING OPERATION1TAPE-PARAMETERSBLOCK-LENGTHCONVERSION-MODEBINARYEBCDICDECIMAL NUMBER OF CHARACTERS PER LOGICAL RECORD80DENSITYFORMATPARITYINDUSTRY-COMPATIBLECORE-DUMPDECIMAL BLOCK LENGTH IN BYTES32001600200556800SYSTEM-DEFAULTODDEVENBOTH-TAPE-AND-CONVERSION-MODESTAPE-MODEWITH DENSITYAND PARITYSELECTED TAPE TO NEW TAPETIMESWITHCHARACTERS PER LOGICAL RECORDTOUNIT ISTAPE UNITONTO TAPE FROM FILEFROM TAPE INTO FILEIS STATE OFDEVICE NAME OF MAGTAPE UNIT, INCLUDE COLONMTA0:1!LMTU>HZ%ERROR ABORTING TAPE JFN:\"*n+)%ERROR ABORTING FILE JFN:\"*s+)%ERROR ABORTING TEMPORARY TAPE JFN:\"*w+)
?Command error: 
?Illegal command.
$$?"TAPE" DEVICE MUST BE MAGTAPE.
?ERROR ON TAPE MOTION REQUEST:?ILLEGAL REPEAT ARGUMENT.
?NO TAPE SELECTED.
Ip?ERROR TRYING TO INHIBIT ERROR LOGGING:\"+,)+!cWITH NO ERROR RETRY:
xWITH ERROR RETRY:
?COULD NOT DETERMINE DENSITY OR PARITY.
%DENSITY AND/OR PARITY AMBIGUOUS, WILL NOT CHECK LENGTH.
?COULDN'T CLOSE TAPE JFN:\"+$,)+!cNUMBER OF 8 BIT BYTES PER BLOCK = .
IN CORE-DUMP FORMAT THIS WOULD BE  WORDS, WITH  BYTE(S) IN THE LAST WORD?INPUT ERROR ON TAPE: [OK]
@@!?+"o - NO GOOD.
H ;@+"u200 BPI, ODD PARITY200 BPI, EVEN PARITY556 BPI, ODD PARITY556 BPI, EVEN PARITY800 BPI, ODD PARITY800 BPI, EVEN PARITY1600 BPI, ODD PARITY@@!F+-{?TAPE WRITE ERROR:\"+N,),^,~I;?ERROR CLOSING FILE JFN:\"+S+)?ERROR CLOSING TAPE JFN:\"+W+)%NUMBER OF EBCDIC TRANSLATION ERRORS = %NUMBER OF SHORT BLOCKS = %NUMBER OF TRUNCATED INPUT LINES =  "Z1BH,~\"+6,)@,~?OUTPUT DEVICE MUST BE MAGTAPE.
%BEGIN COPY.
,$;!H+$6+$:!H+$OUTPUTx+sINPUT?ERROR ON  TAPE AT BLOCK CAUSE OF ERROR:?VERIFY ERROR AT BLOCK  (OCTAL)
FILE NUMBE`+R  (DECIMAL), BLOCK  (OCTAL) IN FILE.
NUMBER ERRORS ON INPUT  TAPE = NUMBER ERRORS ON OUTPUT TAPE = ?ERROR WRITING END OF FILE: $4)\",+)%END OF COPY.
?ERROR CLOSING OUTPUT TAPE:\",,)+!c%BEGIN VERIFY.
:!H+$C,$+,:!B " B!A:!@+$DH ;:!H+$I,$+,:!@+$IDATA COMPARE ERROR IN BLOCK.
END OF FILE ON INPUT TAPE, NO END OF FILE ON OUTPUT TAPE.
END OF TAPE ON INPUT, NO END OF TAPE ON OUTPUT.
END OF FILE ON OUTPUT TAPE, NO END OF FILE ON INPUT TAPE.
END OF TAPE ON OUTPUT, NO END OF TAPE ON INPUT.
BLOCK LENGTHS DO NOT MATCH.
INPUT  BLOCK LENGTH =  BYTES (DECIMAL).
OUTPUT BLOCK LENGTH =  BYTES (DECIMAL).
,(~+!c?ERROR REWINDING INPUT TAPE:\",I+)?ERROR REWINDING OUTPUT TAPE:\",M+)%END VERIFY.
NUMBER OF VERIFY ERRORS = CONVERSION-MODE IS EBCDIC WITH  CHARACTERS PER LOGICAL RECORD (DECIMAL)TAPE FORMAT IS UNKNOWN.
TAPE BLOCK-LENGTH IS %NO TAPE SELECTED.
TAPE DENSITY IS  BPI.
TAPE PARITY IS %TAPE IS WRITE-LOCKED.
\",k+(A%TAPE AT END OF FILE.
\",o+(B%BEGINNING OF TAPE.
\",s+(C%END OF TAPE.
\",w+(D%TAPE DEVICE ERROR.
\",z+(E%TAPE DATA ERROR.
\",~+(F%ILLEGAL RECORD LENGTH ON TAPE.
\"-+(G?ERROR READING TAPE STATUS:?BLOCK LENGTH LARGER THAN INTERNAL BUFFER.
\"-
,~%WARNING - BLOCK LENGTH IS NOT INTEGER MULTIPLE OF LOGICAL RECORD SIZE.
%WARNING - USING CORE-DUMP FORMAT WITH EBCDIC DATA.
%WARNING - USING EVEN PARITY.
%WARNING - USING BINARY MODE WITH INDUSTRY-COMPATIBLE MODE
AND BLOCK LENGTH NOT MULTIPLE OF 4 BYTES.
?ERROR OPENING TAPE:?ERROR SETTING TAPE MODES:?ERROR READING OR SETTING TAPE STATUS:?ERROR OPENING FILE: INTERNAL CONFUSION, ILLEGAL ARGUMENTS TO ERSTR UNDEFINED ERROR NUMBER 
?UNEXPECTED END OF FILE INTERRUPT IGNORED.
 "   " "\"-| " U$@+ + \"-~,~,-E<\"-+-M.p5>-U,>p,p+-S,^/:x,~,^/,~/pPp,>./.`|+-V+-P,> .p5>-],p+. Z,^:x,~/pPp,>./.`|+-^+-Z,> ..5>.hh,p+. Z,^:x,~,>,p7:,^,~,>,>,p7:,^,^,~,>,>,>,>,p7:~,^,^,^,^,~..5>.
|}~,p7:|~}
|/.,~:x,~
? JSYS ERROR: 
PROGRAM CA~x-NNOT CONTINUE
OZ,^,~/.,>,>,>,>+-d@+-te.(6.6.o[-Xi;-[>#s-O>#-Qkd-tkb-nkb-nka-jka-gIYOX Pzd"OTI@O< xO%?OLZWPk"PimOE0^OE!"OD~wODpODJGODF*
OD9
OD9OD9OD9
OD9
OD9	OD9	OD9
OD9
OD9OD9OD9OD9OD9OD9OD7,OD7OD3QOD17OD,'>OD,?>9[-a>3;-dPHhfPHhePHhePHgN:pN9XhxN9WF|N9&m{3!-^_q$-]mzt9-ZVS$-UVS-VVSM-PVSX-S8Q-{1;,~-|M',2M'*hM'(@M&~(M&rI@M&NtM&NM&<]M&<\ M&4
M&/DM&-)-Lz)0-EJ"hX D89w+z#,Z9-d897s@-EO*~|O*~wO*3$O*3#O*3!O*3O*3O*1dO*/kOOrc OOqh O`^O`6O`D
O`CO`OS
O_C"O_CO_;cO_;\O_._O_(2O_(,OC\O/L`O.4=ONyiONm&ONdiON`wON_}ONK]ON@^ON@ION@FON?)ON:ON36ON-mON-@ONtON+ONONkONMON
]ON
VPHheP1#P}xPKPJut7%}-7Za#27Z#/Ic?#AZ"LR "I1Q8:!?1))%A1)"V1wx1q]6bJ11A%914#%8A,+%20Ta#0Ta#A\#,iaV%@VKV;/V	kn/$'kc7$SkUJ$JkUI$EkUA$Ak*$k#@$~k$QPbK?t;Z)n"on"nnP"q@"bm{,wmq!FUl`wxl]5"Ul]xl\}]Yc}';KL!Ch0@wrh0?}!N!?gm@B!AfF3"UfFxfE{]Gz3e,
cEQ"cEN(>cEE%cE8*`/%*cE-})cE'[cD{[%>Bm";o!ycDmx%#:!RUVIx
F-9s8**9LN,MPy)%MPy"yMPsZ)MP]$kMPP=(pMPO[%MPA]wMP#)	MP)MPV%
x3e(yMP
%
7[%ML*)v63pX9!>7;L	+Z# 5!C}+5!$G"1;,~*[35!e4zI&!E4z-x!;4z!G4yw!D77C#I4ME}/'yA#T'M\#s4*B#p4*A#o4*A#j':#i]#!]
=/$(	pj3)	p@%Y	p3(<	p'-%L	p%r)USgx$c1y5[}%uI!=$b1K\$Ik"i}q)(^0JYUg#AYPGk#HY?$2Y7
#IV(iY1Tk#D@\6LD8-Z@LD7qLD7p(LD7WcLD7W\ LD7RGLD7O#LD7EA y"0A ["-A>"
Ay"}TAGxAA]{.?!;T8aoxT8a8dT8a2B"am"!I"`M!L"`Fn!K"`@N!K"QB$d

c\$$
P%?&/JH{y}!>]RS(G]R5%p!Hjw!@%o\$DE$V%\l <
l
K1,4@K1+}g(T6A#b
NtH#]
Nsz
Lv2(yK!<Pgm L!B
AS!FH)<0	L^>/$/]s@)	Ky$)	KHY4	K4}\
)Da)#`j+u/")$u);#u.#u}#u^I#u^A#u^Y#	t'JiwW	xxK"*eB}#(xH#cw|B(RL#9e5&y"w]c"wDU"uK("rw+c",e!b9#te!b)$w!swk!ren"ee""w"Yx!=cU:/JSzxMW}]MIxRJOx1L!CT*0HM"!LHY"vHY6=(]HY5[(HY3y(bRHY-xHY']tHY$UCn"2!IF&U]
F"=A"^D89w+z#,Ot;Y2]	&!E2\|w~2\mx!<2\I!A2\D!G2\7!D2_"pR2-x2']nSMx"P2
|Z"`0x-I#80x-A#3N+q=@"(;);#WGb,L]"mRL+xL%]zH1kPssxPs<s7tZGQ0\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[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'`w]!+{ 00