File LA30CX.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

??2CBP\8GI$,H(PII$
[8ILI0I KB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B
!3RZ3)4G5C5;4+1K+K]KJEHND
=.APCTE\H,NLYL-MTN!P:U+
M2PXU$^</-ONOPMTH[=+	J:I^F%25K]=/ R%X-$==\.XPPS>[Y*OG:CN95	BA\6N
127YB%W>/PQ0V. *4!\N+	JXG8B784$-<
,AKEIKEV=+.TO&RHWK!Q5\]1.ZO+RKWJ!H5C\8,!K2JRGQAN5G\9,\K!I)E8>U/NQT"[%)+E6>J.1O?RYWL 23=ZR&;L2,W,!+5((ABCH^H99 H8H^,AH+?4JDJD>PABGHJO?BJBMB B0CXC\ &??<?X>0>\8L?B.R/]P]&]Z] ?A>+B2<C\B)=WFDB(?1= H?YIKKSNFNM4JYLXT9H\NLFJJH*B:GMHMLHHFCVG^BBB\BXBTCAB.IVIEI,I(I$

I[INII8 YK% 	?IK> *HK>YEH61O%+%-%/3B%-%6HY<%X9>DS>(/*>DB7>(/+ID> *>DQ>(/,>DP>(/-%-%/1"%-%-%-*M:N.Z9R.N.^9R...DD>DB8> .:R:.:;H9>(+NX9>D?+S>D8D?V>D8F?SA/A
<B+J%-%/20%-%6CY20/VKAC([	OAC)K	/
>A?J
MRZ
LXRHSP +(JAJAHP+ I.X JA2I/\%-TOO ?7D<B>DC?YD>DC>9F8F8F<X*O?-G-I?-J-H%+%-%/0"*A>(HU>(H)8AZ!I,Z$2J%0JPF-+JX.DBWXUXVXWXXI*XZ: X]XY%)X H I(<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> P]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K	I=H:9F8FA"2IH\OK&/[HY>(H"
(+<PY(2%!%-A0BZHJ.ZMK?XNJM"WHZ\NHT"WO(<P*U:JHHZX?.ZM*F8!Z,Z-NW9J,<P*"R-*\8!J,8!^WJ-J/9HQRW.WO(?>"%/,("9%/--%-.0EH+%,H?%,.9:HX%,/H<%,H=%,H>%,/E8F8FX0H X1H0RHZ%,H08F8DX0P1+S/M;O^S^[<O<
<(/^=8P8A8J8J8J%,O<V<(/^K:=K;HY%,9S<+
 !X -O;%=%?*B:.<HJJ&HHW%,.F;NMRMZZJYZ[R[*TRZ*R.M;JZ[R[* .\?JH>%,H?%,.$:N*X/R*N*8!L/=*<X/HQJ*Z*H/8!Y.*<(+AYR*.*K?J*Z*.*/E<B/ISI/I/N<B/R<B/VSV/V/[<B/
S
/
/$<B/(<B/,<B/0<B/4<B00A0B0D0E0F$6C%;%<*B%9%=%?*FYN.:HX%,:ID>(.JIEZU>H8JU>(.JJ^%,RU*T.JC?%-%/)2%-HX	: %;< *.P	*%%5**7P9: %;<(*%6CY)I*+;HX	8 %;%*=*%<<H+H< +MP	*:%5*7+RP9%6CY)T+EP9%6CY)I+E%-%/)=%-H$X	: %=%*=*%?+P	+\%5+R+(P9%6CY(+ H$X	%>%?<H+3P	++%5+(/8P9%6CY
N+0LL+80&:H:[7/6,4: %=%?<H.%*=*%?<B:.HX	:%=%?*P%>%?<H*[P	*N%5*L* P9%6CY(N*X%6A,BH$X	K?XB%;%=%?*)%>0A%*?
0BK>XB8A1M%=%?*50A%=%*=*0BP9%6CY)$+CP	*%%5* %(-4-F%<<H%?<H+AP9%6CY-^+C%-%/-3%-K=X)X(HY%,H(8 X	H[%,%$+/P	+^9A8DH(X(%&K3%,HW%,P)+[%5+R/2NVCMINK<> S4/4SAVE<A?YMAMHINK?> R.INK>> RF.F%<*S%9YN%^<HRL%;.L%-%/->%-IMX)X	ID> +JH[%=P*"%?>H*.P	%?*(%$*7P)*]%		AP+C*:*4%
%/*I%5*V+[	H%-%/.H	I%/.$%-*7	H%-%/.V*>
DH$H[%,P	H	K=> +JK<X	H	%,H	K;>(*4P	+S%-%/.)%-H"X	H\%,HW%,%$+*P	+!%-%5+[+-%-%/.5%-ILX	HYX(/6P9J8J8J=GB0>:===3H"X)P(H(%,%$*LP)*C%-P	*%5/?.OPP%-%-%/1A%-*,P-H-X&K>X	P	<H*=L&KF>(*)L&%,G%$+BP&*[H^X&*^H^X&H^X-H
X	HYX,H,\&P,P&P	*4H
X)*WP)<H+B%-*V%5*P/EQS<!LH< 8D8AHHV8 [Q%*/G%-%-%//>%-K=X	H[%,%$+"%*,P	+Z%5+S+%%-%-%//L%-H"X	H[%=%=%?+/%$+5P	+,%5+%/8R+6/29D8>2>/O-%-%-%/1N%-H!X	X)HY%,J]%,P	*H%&%*<8H[%,H!X	"^P	*U%-%5*.\TCO%&HQH)X)H)8!X*HY%,%$*YP**&H[%,.^>DC?>(-3H$X	+W=8%?*>P	*4%5*3+B%6CY(
*;%6BSJH$X	%=0A+I%7+SP	+G%5+B%(-4-3%6CY(.+N:%88%?*>P	+W*;%00A8%/>H/>0C>H/=%?BT%0:A%10A8/<PNP\P P	P(P,P0P3QDTT]TW %-%/1T%-%6)?"%6*T[%6	?NL*%,%$*VP	*MP*P)*J%5*%(-3-2BBABBBCBDBEBFBGBHBIBKBLBNBOBPBQBRBSBTBUBVBWBXBYBZB[B\B]B^B
;N9R9X7N9R9X8L7X2P7L7X3L8X4P8L8X5YAH48 X4;H58!X5<XP4;H3H5X3H2<X8A9H4X2<P+QA+U:IA.9$X%?T>/HRI^>(+0I]XT%3%>%6<H/>%?T?9%>%6/=/<VVLVGSZ%;%>%6A,BK?XBZ2Z1H[%=%?*L%=0A%R2*PR1*P0B%-%/)$%-.[J
%?*-%!F.V2%"XY:.P9%58%-%/-C%-*K%<*%R2*O;8A1M:H^X&Q%-H^X&HX)X,9L&P&<XP,P)+AX-X/K!X0%",/	".3%6	?;%6)?,"\&P&P)+X%-P	+U/QA$F0H=%,H>%,H+%,H?%,/%08<BP2+$,UB7$7X9GD$7FA 64E
6+V\;NX7RNRX8L7Z\L8Z]ZYZZJ\8!Z[9J]<XRYR[*QZZ.%6	?:%6HI7K?X,L,X-IBLH\-P,P	*	%6HI7%6	?:K>X,L,X-ICLH\-P,P	*7.^I1I I%I)I5I-IFIJIOISIWI\: <B>DC=8!K=>(+(>DU<(+&>DX6%6ACAP%6ABAH"^H61O:/L:<B>DX*H*8J8HC6YBH*8F8DC6YC"^/LG8P2++0G,U\Z>CDYFY%-%/*<%-%6CY20%-%/*\%-&&%	A
E^*W8%	AAC:*^*"*^&	%//*&!%/--%-%5*G*(W&	%/0M*ZV3
D%-%/1%%-%6&&%6	?7X(X2	,%-%6&%?%6	?6P&L&P	*=[DHT	$KDX*%-%/2C	%%6&%?%6	?6P&L&X1%	1FP/7+Z+ZP	+Q%/2T%5*(/&\T\B\LFW],^	!	"	/	K?H(X(%&	!	"H%H*\&/,\!++7;4AKDOO OO?>P**GX*%&H[%=%*??%?*.BH*H%\&P&P	/?.L;H(HSX(H(8!X)HY%,P)*\.TL&8!X1P	<H*.L&P&H1?(*$L&*"H18!X*%/21,K>
*Y	O%//	N%/--%-%/5I%-H^X&%6	?6L&P&X*,P	+F/M[^H$
DK=X;%6BR<!OY[X/XDK<X;%6BR<;+U%6BR;9K;X;+U%6BR?5K:X;+UH*%%	6H?%,%/--%-/,GE+5[J2IAGEERFF90[(%-%/+T%-%6	0XX)%;%>HW%=*OP)*J%*??%?<H*MP	*O%	)\*\*,*>%	)%*"8*>"1D%/+&&+%/,U%-*?H$"1D%/+=*&%-%/,
H)%%H>%,H?%,%/,U.1"1%5*%(-2-1P9;I%%%58/D%-%-%/3V%-%-%/3
%-%
%^+$HY%,K"%,HY%,IN%)%-+UB= %5+Q/<B:IJ<B:%8++<B: %8+/G X$X$Z/>%$$8D?*?	GA PO%-%//U%-H"X	X)H^X&%
%]*T%^*2IN\&P&P)P	*IH)8!X	H^X&%-L&P&%,%<*%%9YN%\*C%^*2P	*Z%-%
%\*C%]*T%^*2J5%,*	%5**6B?%-%/3/%-X-%
%^+YINX,%
IN[E%	,8+J%-+KEX-H,X.%-%/42H,%,%/4ZH-%,%-+^%5*6%(-1/>%
%^+YIN8!X,H.H,>(+^H-H,>(+^%-%/4BH.%,%/4ZH-%,%-%/4]H,8!%)%-%-+YB	POK?YEH61O%-%/"2%-<B>DC>X(H(>(*HK=8 H(?H*VK=X(H(8!X	H[%,P	*Y:K<%,>DC;<(*.9D8F8F8!YE:K:%,QE*):K9%,*ILA30 SERIAL LINE CARRIAGE RETURN EXERCISE%?SL/KB^$$5%?2A%9$6$7[Z%:+V%7$8+
P2+T,U<B:KZ<B+\A$$5%?2 0%9$6$7[4$W%>%:+0%7$8+9P2+,,UBMC?<BJAPA??7B??$5$X%9$6$W	?3$7ZP%>%:*L%7$8*WP3*IP2*F,U<B:JP<B*T	>%?S$".!B^$=%-I K=<Q%;3WI[$<?AYDQD<H,UIDYEI"$<QE*3IG$<$<IZ$<*.A%U:IY<QIX[S%-+JIW<QIV[S%;3
?AYD%;M3QD+N%;,UB&%;3,%-IUITYD%;3TQD+]%-ISIRYDK<YEIEYFIG$<$<I"$<QF+,IZ$<QD<H,U;$IE+&CBD?*??>.HD.C)R: X4%;36%-I K?YDI[$<IH$<QD<H,U%.*JD&Y%;3>$[1GE&]$[1JF&!$[1MG&%$[1PH&)$[1SI&-$[1VJ&1$[1YK&5$[1\L&9$[1
M&=$[1"N	A$[1%O	E$[1(P	I$[1+Q	M$[1.R	Q$[11S	U$[14T	Y$[17U	]$[1:V	!$[1=W	%$[2X	)$[2CY	-$\2FZ	1$\2I[($\2LA?*9,(S ?H?&?>/TSF FAILURE OR FLAG NOT = 1TCF FAILURE OR FLAG WON	T CLEARPRINT FLAG WON	T SET WITH "SPF"SPI FAILURE (SKIP ON A PRINTER OR KEYBOARD INTER
UPT)KCC FAILURE--AC NOT 0KSF FAILURE OR FLAG WON	T CLEARNO INTERRUPT OCCURED--ERRORBASIC INPUT IOT TESTSBASIC OUTPUT IOT TESTSMAXIMUM COLUMNS PRINTED IN LINE = 80CHARACTER PRINT RATE TEST (25.0-35.0 MSEC. BETWEEN CHARACTERS)LA30 TIMING TESTS--PRINT RATE, 
ARR.RET., & LFLINE FEED RATE TEST (28-37  LF/SEC)LINE FEED RATE OVER 37 LINE FEEDS/SECOND BY  LINE FEED RATE UNDER 28 LINE FEEDS/SECOND BY   LINE FEEDS/SECONDLINE FEED RATE = LA30 PRINT RATE---TIME BETWEEN CHAR. IN MILLI-SEC. = AN UNEXPECTED INTERRUPT OCC
RED--OTHER THAN THE LA30AN UNWANTED INTERRUPT OCCURED MILLI-SEC.CARRIAGE RETURN TEST80 COLUMN LINE TESTLESS THAN 80 COLUMNS--BY  MORE THAN 80 COLUMNS--BY   COLUMNSLINE FEED QUALITY TESTCHARACTER PRINT TESTOVER 400 MSEC SPEC. BY "OVER-PRINT" TESTLINE ECHO 
EST (TYPE UP TO 80 CHARACTERS)PRINT RATE TOO SLOW--OVER 35.0 MSEC BY PRINTER HEAD "STEP-OVER" TESTPRINT RATE TOO FAST--UNDER 25.0 MSEC BY SELECT A "PROCESSOR SELECTION SWITCH" IN SWITCHES 04 THRU 07SWIRL PRINT PATTERN TESTSPACE TESTNON-PRINTING CHARACTER 
ESTDONECARRIAGE RETURN TIME TEST (LA30 FROM 80 COL. = <400 MSEC.)AVERAGE CARRIAGE RETURN TIME IS ALL CARRIAGE RETURN TIMES ARE LESS THAN 400 MSEC LIMIT MAXIMUM CARRIAGE RETURN TIME IS LA30 (DECWRITER) CONTROL/EXERCISER TESTOPERATORS	 TESTSCHARACTER ECHO T
ST--OPERATORS	CHARACTER ROLL-OVER TEST--OPERATORS	ERROR ON ROLL-OVER TEST, GOOD CHARACTERS ARE   AND --THE ERROR CHARACTER IS OCTAL NUMBER-- ROLL AND HOLD BETWEEN THE TWO CHARACTERS -- THE TEN MEASURED CARRIAGE RET. TIMES ARE:%    %?%PRINTER EXERCISER%?%T
PE IN DATA :?U ?UNIT 1	MARK TRACK REGISTER NOT CLEARED BY 	UNIT 1	 TO 	UNIT 0		SELECT ERROR	 TESTSTIMING ERROR SETNO SELECT ERROR STATUS FROM UNIT 1	WRITE	 NOT CLEARED BY SELECT ERROR	WRITE LOCK OUT	 TESTSNO WRITE LOCK OUT STATUS FROM UNIT 0	WRITE	 NOT CL
ARE

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search