Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_ap115_bb-ju01b-bb - aplw12.r03
There are 10 other files named aplw12.r03 in the archive. Click here to see a list.
 0ez)H/	 P
,@
 " ,40$0/$0D++0D++0D	*Q
P
+
B+0D)+5aj@+4! $ &,#4# $
0&,%4%/$,'4'*$,(	(D"*4)d*l* 8 

340lj+*lj+7B
D.&Fej+b@H-,I4J9F B
U",s7+
A"+
z+1(B:2H
U(@$<|	(QQ+@++0,$:1F++& 8+( ,	+,+*, +(	*E***+, 
,'+@,4!@ &	*
C,A4B $
{&,C4DL$,E4F$,G4Gd*@ 8 \&o	"**L,L7+O ,;+9FL 
U T9FQ 8l*@+0D*+j`j@+Z ,S+ ,Y \&{,L	"U 
]7+@,Z+8F`+\7@6@7+g"3,L7+f,^	(U"*e+1L+g+c 
,,z,+/,+0T+ 
+,^,^,udd+,w+!*+J.& 
	@"U*,^,^+`	Y+X	8"0+I+!"0+I+!	*U*U*"1+I+!"1+I+!"2+I+!"2+I+!"3+I+!"3+I	*U*U*!+I+X	?"/+I+-"4+I+-"4+I+-"5+I+-"5+I+-	*U*U*)"6+I+-"6+I+-"7+I+I+X	G"7+I+:"8+I+:"8	*U*U*2+I+:"9+I+:"9+I+:":+I+:":+I+:";+I+I	*U*U*:+X	P";+I+F"<+I+F"<+I+F"=+I+F"=+I+F">	*U*T(C+I+F">+I+F"?+I+I+I D,+/+J+aj:x	 D
U*K,~0T+N@
16+f+X	^>/+Y4+Y 4+Y 5+Y	*U*PT 5+Y 6+Y 6+Y 7+Y E+Y E/6@:0L2+d 
	*E
*e+p+p+`	g(Rb0+n(Rb/+n(Rb7+n(Rb;+n+n K	*m,H+.16+p+N`j+r:x>,~@d* ,>,7+w	 A
(v,^l*+,^A"?+	m`j++$$/".l*2++`j +	* ~ O,ml*++taj:x,~d*3@+l*+6@+	(D +,>,7+,^l*+,^3@+
6@,@4 (@)L@+!+!+!+!+!+!+!+++++++	*U*U*	?+ +-+-+-+-+-+-+-+-+"+#+%+&+(+)+++,	*U*U*	G+:+:+:+:+:+:+:+:+:+.+0+1+3+4+6+7+9	*U*U*	P+F+F+F+F+F+F+F+F+F+F+;+<+>+?+A+B+D	*U*U*	X+E+G+G+G+G+G+G+G++!+.+:+Y+Y+Y+Y+Y	*U*U*	a+Y+Y+Y+P+Q+R+S+T+U+V+W+X+Y+m+m+m+m	*U*U*	i+m+m+m+f+h+i+k+}+}+}+}+}+}+}+}+}+}	*U*U*	r+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}	*U*U*	z+}+}+}+}+}+y+}+}+}+}+}+}+}+}+}+}+}	*U*U*
+}+}+}+}+z+z+z+z+z+z+z+z+z+z+}+}+}	*U*U*
+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}	*U*U*
+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}	*U*U*
+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}	*U*U*
%+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}+}	 
-bq&cy!Y(
% P*dQ&di/ex~/*9-i	 
6	DQ%"F	<	B"b
B2""&tBv	b4,B	 
>b:T	"BR
(b~z
bZb"xBBcx@	 
Gb"B8@bx"b	 
O	 
X	 
`	 
iB
BBB"	 
qB&*B.2B6:B>
b
Bf	 
zjr	 BBFJBNRBVZB^bBfjBn	 rB	 	 	 $1B#D1F#1J#D1N#1R#D1V#1Z#D1^#1b#D1f#1j#D1n#1r#D0	(
APLTAP!H
ONE OF THE FOLLOWING
R	READ A TAPE
I	INITIALIZE A TAPE FOR WR	 
W	WRITE A WORKSPACE DUMP ONTO TAPE
T	TERMINATE WRITING A TAPE
E	EXITH
?YOUAREMINTTHE)PROCESSOFrWRITINGAdTAPE!HbuXop(H2	 @
)COPY SYS:WSIN
.ZQ.ZQWSIN ''

?UNEXPECTEDHEND OF	 A
?FIRSTHVECTOR IS NOT WSISH
?FORMATE	O@ON 0H
?SECOND VECTOR IS NOT TRANSLATE	(
?TRANSLATE IS NOT A MATRIXH
?TRANSLATEHAS LESS THAN TWO COLUMNSH
?UNEXPECTED END OF FILE IN TRANSLATETABLEH
-
?CANNOTOHANDLETTHEBYTE	 
'CONVERSION COMPLETED'H$-
?YOU ARE IN THE PROCESS OF W	  RITING A TAPE. TERMINATE TO CLOSE ITHNITIALIZE (TAPE) H9pwsis 0 0	 1043ptranslate 2 512 2 H
?UNEXPECTED ERROR ON TAPEH
?YOU HAVE NOT INIT	 @IALIZED A TAPEHERMINATE THE TAPEHH$	6
?ERROR IN TAPE WRITEH
?IN	  ITIALIZE THE TAPE FIRSTHRITE (WORKSPACE DUMP) H#
?ERROR WHILE WRITI	 @ (NG TAPEH&XIT (TO MONITOR)H*
?ILLEGAL COMMAND CODEH, 	 1

    
 
  $$$$	 9$
$
$$(((((
(
((
?CAN ONLY HANDLE BYTE S	 BIZES BETWEEN 7 AND 10H?  
?CAN ONLY HANDLE BYTE SIZES BETWEEN 7 AND 1 @J0 BITSHF
?NUMBEREXPECTEDBUTNOTFOUNDHL	@{xPYz#,
HY\#ll,gLllP#llajg1\
CB
vr2(T
K	@(T
Nu,sK+l=nK+ln< K+lu_K+m+@5#
atH.a6D	K1+G\ 
k[L,g[LP
k[L
l,gP
ll,g=lPl6'on,`r?nP'on	SzJ?|pKzJ@JLYfW)LYg<Y9* )>0,`zaP0Ll[eV~HB(	"HB)TUH,g}UHPTUHu["
-z*3EG	63~f),gRP)	D
KL 5*[,gS[P*[v6,g6Pv68(,`IZ(P8(	9LN,`NP9LN9N79s,`CP9s
F,g5FP
Fbn,e	DV`Og0=)"WIUPm>QuP5uP5uP6	D"uP6
uP75uP7uP8,uPH7uPI2uPI7uPJ*uPJB	D"uPK:uPK<uPL>uP\@uP]BuP]*uP^buP^FuPX	D"uPqeuPqiuPrluProuPsruPsvuPtyuQ|uQ	D"uQuQuQuQ
uQ
uQ	D"uQuQuQ,uQ-uQ-uQ.(uQ. uQ/"uQ/$	D"uQ0&uQ@(uQA(uQA*uQBVuQB9uQCLuQCPuQDO	D"uVVQuVVUuVWTuVijuViZuVj\uVj`uVkuVkg	D"uVlcuV|guV}fuV}~uV~muV~suV|uVxuWx	D"uW{uWuWuWuWuWJuWuWuW$	D"uW%uW%JuW&	YuW'uW(!uW8	8uW9uW9uW:	D"uW:uW;uW;uW<uWL uWM!uWN-uWN	?uWO"	D"uWO#uWP%uW`&uWa(uWa)uWb+uWb,uWc.uWd:	D"u\t	Gu\u.u\u0u\v1u\v3u\w4u\w6u\x7u]9	D"u]	:u]
Fu]
	Pu];u]<u]
>u]?u]Au]B	D"u]Du]Eu]Gu]Nu]Nu]0pu]1fu]2Yu]2	^	D"u]3Pu]3Qu]4Ru]DSu]ETu]EUu]FVu]FWu]GX	D"u]GYu]Hdu]Xbu]Ypu]Znu]Z	gu][fu][hu]\i	D"u]lku]mmu]mru]ntu]nu]owu]pu^	mu^y	D"u^zu^}u^u^u^u^ucucuc	D"uc
UPIbwsAwsfwu,	D g[Lpgg=l `r?nO|Z\g|t(g}$PI-"O`<	O`CO`D
O`6O`^gi\6H`za]g}UHrOOqh OOrc 	D"gRV#AV#fgS[g6`IZ(`N	O*/kO*3@`C'g5F^#CA	xcc8 ( P0