PDP-10 Archive: decus/20-0137/bcd/bcd.exe from decuslib20-05

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bcd/bcd.exe

There are 2 other files named bcd.exe in the archive. Click here to see a list.

?p0`?hX5?x "

<++2	`T`2a@5

2a8@

+ 	`
&
 
!@!"(r	b4B

ab++B@@2 "2 
!	b6+I B2aB

+I
&
",\1"+4@1B $1B  $1B5 $4D4 D2 "(BcB2+5
&,g7@""!$|2By*dL5$ } F: 	4FT F
& "+`
&
#l@@
	@@
@@
@@
@@
,C
&L,\/"0b+
,1b" B
&,\5b`4B
&}+\ B
4 b1Bl
&!,\5be
&}+b B
$
 B
 B
4 i."&" B
."B $\*&6@." Ba@@+w 
.""QB

`@+w 
."&"/$."$" B

1b@+wd 
&
-." 3"+}	b+|+}?`+	+wXD( 1bl,v
&$,>,q
&',\5",r8b

<,s=b
&
2d `|d@@,C 
3D
4	`d`+\d`+``d p "d` B "`` " 
	!&

+
+ $	d`da` 7^^@@@@@x@@U$ D
	a`@+
&
4,>l  a`@+ 
&
6,\``@4b 5b 
&}+ B
	a`@+, "D,C 
,E "L,C 
,E,M "N,C,M " B0 "2 B0@@1O@1a` +,

a`@+438
	+4
&
2 
	,4
&
8a`@+2> 0,L

\A"G

+ 
,Q4:`` Z3z
&r 2.;a`@+> 01B2,S12 2.,=a`@+@?`0,O=n584 ,,M`` ,xa`@+GO@1 "2 B0?`0,Ia`+,@!"`cB
+K,=+Ia@+, 
3"

@@
+,

4 Qa`+Q "82b
@@
?

+S
,~`@@+V\+b+\

+W+ "	b%S
[4 `$2"
:1"+]hBhBh. B

 
; B
+b`B`.2 R

 
; B
:6@+$4 la@+l "	b%+l[$2"
:1"+khBhBh. B

3B
+Q4 o."(3B
+v2"
+`@+N

 B4 
<&
1b "$
O@+w 
 B

+Q 01",I * 
= "~,C &2/0

`<&2.2,=+},M>0=jz,M>0,M?`0,I

,~

< +.6@7@+:@@a`@+> 0,L
&*5x
&,+
&
2 ,4
&o7b+2B,4 3B
&
=
&7b+2B,4 3B
&
=
&/7b+,4
&y,^x,v+6@+ 5x
&

+
&
&7,>+\:

<@+#

\d@l

+v@@6@+-28
+'
& +(
&+
&> ,4 "A5 + "C
&
&7,>+\:+d

|+<

|+1

|@+``+7
&5

\,:
&8,g1B!+70B$	`l

\d``l

|@+`@@+W+b
&	`?`
+?R
,~~+>
&>

^,:
&
>	` 
>4RB,=+C&",>0B,E,^.2,=,~ " B0 "N,C 2,= "N,C 2,= 2+=,M?`0,I`` ,x "2 B0,~,>:@1+Z ",C:1 1,E 2,= 2,=,^,~ "~,C+Y@d

,g4Dd1D+
?1D+
A0$0d+fl $"."h+]``"``,~
&
C
2+\ 
F
(0D1D+h1D?+h0$0/$1D
F,~\+t\+t\\,>,,^,~!$(r &
 "`@@ "7@2l@
+

\ 7b2+ B4 " B3 " B3 
!	b6+6 
G B
 
G`` 
H B
$X D<b
. $XD,~!$(r &
 "'7@2l@
+

\ 7b2+ B4 " B3 " B3 
!	b6+6 "

 .$3d+	d+-"QD

O@ 
H*$\

+

\\\`D@`D$+-+$\\ $	d%+.[`D`.&3&+%."+[$"$
I1$+)hDhDh.
&
I,4
&A< "	b+ +\
&
M++"$ 2D+2=f/@+)3B+$ $"+)5"6
"
S#&"QDx4B8,6[x."
",~@)B~($QDx4B8,:+8
&,g4DB0D,1D'1+=0D,:x,~@@
@@
	@h
@@
@@
,g " 
S@@6@
	+J5DJ	`1D+S1D+V6@1D+f0$0d-+
0d0$ +Q+
4bJhD=J6@
	+
 4D
 D
	+Fd@+dd 1D+l 01D l 1D'l P1D(l 1D!l 1D)l 1D"l P@e`+d1D+V5D
``

,~+J
&
"
&+`7@7@
+h+m6@
+
  F
@@4Dm " 
T5H
=J7D
	!$Lu D
	3D
T,~	dad,~7@
+
,~ $ 
	 (

+
XZ
+
^@,{0& F 	d`,~3(4&v9v
&
_	`O? 
+
4D|0D1D,~1D+|1D,~0$0d+
g/$1&@$&.+|Z+}

z@+
nl ,~
&
o `
2
&
v+
&
| `
&/ `
&A `
&G `
&X
2+I
DUMP mode output is in the form of a binary file.
To print the file use the /PRINT:OCTAL switch.

Input code ?
Physical blocking factor ?
Logical record size ?
Rewind tape (Y or N) ?
Relative file position ?
End of file.

%BCDNRP No records processed.

?BCDDNA Device BCD is not available or not assigned.

%BCDIDE Input data error ()
Type C to continue, X to exit, I to ignore errors ?
?BCDEOO Error on output (
?BCDONA Output device is not available or not assigned.

?BCDNRF No room for file on output device.

NUMBER OF CHARACTERS IN CHARACTER SET?(DECIMAL)
?BCDICX - Illegal character in conversion table file(
?BCDICC Invalid conversion code! Options are:
EBCDIC, UCLABCD, BCDIC, ASCII, CDCBCD, GEBCD, DUMP, or SPECIAL.
SPECIAL requires file, with each character represented
as an octal number, sepArated by spaces, commas or <CRLF>.
records were processed.

% BCDICE Illegal characters encountered. Being replaced by \
illegal characters were encountered.
?BCDNMP - Number must be positive.

?BCDEOT End of tape encountered.
Please respond Y or N : %BCDURS Unrecognized switch "" ignored

?BCDFRT First physical record too long - blocking factor and/or
logical record size probably wrong

?BCDRTL Physical record too long.
physical records were longer than specified.

?BCDFRS First physical record too short - blocking factor and/or
logical record size probably wrong

?BCDRTS Physical record too short.
physical records were shorter than specified.

&+A
&+A
& `
Do you want to change the blocking factor or logical record size? The actual physical block size is characters.
words.
ASCII DUMP --- PHYSICAL BLOCKING FACTOR= LOGICAL RECORD SIZE=
----------------------------------------------------------------------------------------------------
1111111111222222222233333333334444444444555555555566666666667777777777888888888899999999990
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
----------------------------------------------------------------------------------------------------
RECORD ?



-/./ 0112233445566778899::;;<<= !!""##$$%%&&''(().)**++,,-?



-/./0112233445566778899::;;<<= !!""##$$%%&&''(().)**++,,-.  !!""##$$...%%&&''(())**++,,-/)**++,,-./%%&&''(().  !!""##$$-..-)**++,,-....%%&&''(()./. !!""##$$.."*#! !") h h h h!  hA  h	?H$

WMU - TAPE CONVERSION PROGRAM

~i3Tape density: 
 NAME OF CONVERSION TABLE FILE? 
?BCDMSX - Max size of character set exceeded
&
'	`%BCDCLB Cannot line block output. record too long.

 Output ? M&ut
OCTAL DUMP ALSO? 
# Records ?  records processed.

 O@+N

All)
Ha`
l`+f+]``

l`+f+]
?BCDBNT Bad number. Try again!
Ha@ 20

The length of the current record is ?BCDCDS Cannot determine size of current record.
HH
]V`
?BCDCID - Can't init DSK
&
U	`
?BCDXNF - Special character set file not found
&
Y	`
?BCDMCX - More character codes from file than specified
in dialogue)
&R
"
&
f	`
?BCDEOX - Error on input from conversion table file
&
i	`
? BCDICA Insufficient core available.  Cannot convert tape.

?BCDOSI Output specification is illegal! Try again.

?BCDDBM Device BCD must be a magtape!
?BCDIDS Illegal density specified.
?BCDDCR Drive cannot read at that density.
?BCDSDF Set density failed.
66`Wq$d

>PRtD+&C1&~+1&{.1&y1&w-1&s)1&r)1&r%1&q1&q1&p1$.1
P?VVDk}	"lV#yl	2w+lHNvUf`}#Uf`}"cE4:	`6cEt2cDmx2cDbB3eJ

`eD

 e5P9tT"	T	[TT
LNrT
L@vUSOh4SXh{SX]}SX\|SXCURuitR2$./R1AQs8LO1=f$O1=Z-O1=Y(O1=Y'~_MPv

MPtwP7-7
M9@;a25!$Gq5$F7*[	`5KJ 4zZ.
77r14zHvo4z<wS4z<mZ4Ie 4Ie 4Id7-2Dq8W7>=t?

wNC

wM}C!B+P3r:%#3V[3VZ~3VZN3VYL3VYD$ci3=rE4M0
&u^aK>u^#
u^
"!`P t 2/2x
~}G7j`B:P-jAA9x;t
&%}%zz

Pwk

PT@YT$oTYS5YQYPGr,/
FSLytSLwA
SLwAP/PB/E
	/83
D+cJ@D+aktD$7r@D"@D*@D	`%DQb@DOr@l,kM(a1F
F/%	u0%	o:O

Ha WZ#G WZK WZI "PBw^:/^\'_
(@\]Q5x4]Q1]Q0rSZO WPxm%]t
1fVrC1] 9`1] 9]1] 8W1]Nl1]Mk1\-J.bE`
b:V.aCf.a5|S.a1P(Tv

@(TtwN(TWV(TWb(TWw(TWv(TWd(TWo(TT<S(TSgJ(THH	`(THHg(TxA(TI(T	`(TQ!|>h(Tti
Ns",o *

?<c
}K	`^8Vf]qx6R}\gX	Dz`}
Fwd}
Cgm}
8Hou_/"P\@d&\Rd;@l;

Rab@@_9	`Y|
	d911._H4_H{6/4Md@AMR/QB+T2BRW	`LC}"y(

?:RLCZwLCQML?3@1UKI
2K+K+2#lkTHc$2YHY[}HY[zHY[zHY[yHY[yHQB7-AFO"A8`F
|,
|!POT2\Gb
-|m-9"!+t??Zd+st4}+ssg
+s5x5+qiqr]cPI4
h=K2bKeJigJ B\J %`p;v

yjB>MYp0\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