File LS8DIA.SV (save files (Executable program)

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

??2CBP\DEHPDIPNHERDPAERD 6HX1F$ALPED HO 0FLA4GD1DRLEDSL ETLHCTS$WT C XOF0/ITNPDDPUAD
8KH5<^
8EHD^DJ8];(NB(=N<MJ(0L+TJJ(GDIHRD<BBH[DWLBCHDD1DLL4LF$LM4KLB4LL0	H/LLL0
D+(LL0MV$LHL4D 7B"B"B"B"B"B"B"B(ABCH^H89 H7H^,AJDJD>P61(Q66;,PABGHJO?BJBMB B0CXC\ ??<>>=<>\8LB.WC?FJ<KBKK(U
QBB44H!K6B*B2<C\B)=WFD
K^5^/
EN^!J]^;NJB=JNMOJ0J+J5JJGDIRBB
B[BWBSCDB1LQLMFL9MKMBL=L	L/LL
L+LZLMLVLILD*B%Z	?/>*Q%H/=/</;/:/9/8/7/6/5/4/3;X7>DY>(.->DB:>(..>DW>(./>DV>(.0%%%	4M%%%%%%>D?<B*QNP"P2 :N1Z<R1N1^<R1.1DD>DB;> .=R=.=;H7>(+NX7>D8D?	2>DC1> <B>D8F?SD/D]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP BDV0UBR<R	T/ZVTRSRP6&DO%%%	4P%%%.DC4P:O?
B:.>A?:Z	<B>DC><(*"C=<(*^Z	K<
;.O;K:
;.O%%%	3M%%*P.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">(+<<%JZ;8AA CD;K?XIH,X*O>ZPK?XH$4P**J: \H.;JP8!K=>(*\RPJP\H.Q;H
\HH
ZP.QJ%D;%F;X5P+<H*/QJ*&Q.";JP\H.1;H5>(RPJP\HP5.6;JP\HH6\H.?	<\H/F;H8>(/J%G/J;H8> +Y%D%!/Q%"%D%!/QLM%T+QLMIS<(+QIR%T+ H!> HU>(-3I	HOXZ;VX^K?%Q9F8FA"LZ\Z2AH IP<([TC
*)?ZHJ.ZMK?XNJM"WH \NHZ"WO(<P*U:JHH X=.ZM*F8!Z,Z-NW9J,<P*"R-*\8!J,8!^WJ-J/9HWRW.WO(?>";K>X3K=
<K=
;%!%!% <BH
 PP3*=H%K:
<K:
;.0H: PH; PH< PH= P/H;ORSR[0O0$<(/R=8P8A8J8J8J%$O0\<(/RK.=K/H
%$9S0+W
 !IQ%MXTHU%M/.K\MI?%M%MX%"?"9%3%5*B%4:.<HNJ&IH]%$.G;NNRNZ[JZZ\R\*UR[*S.N;J$Z\R\*!.]?JH<%$H=%$.%:H^ P.+:H] P.0:H^ PH] P.5:%=K? P.<;LI=H+I P+C;/B;K> P/KSSL+MXPHP8J8J8J]HP]/S=<(/]H<=HIGH;6/]HUSHVSHWSHX>(/	H:]HXS/	I680!+80&:H9[7NL60.<B61.DRD.D62.I<B64.M<B65.Q
Q.Q66.V<B0Y.ZRZ.Z0Z.
<B0\.<B0^.	<B0X.+<B0]./<B00A0B0D0E0F0 .9<B0!.=R=.=0"/B<B0%/FSF/F0&/K<B;OOSO[/O/$< +Z%/O=8P8A8J8J8J PO/\< +	%/OO?=O>H
 P9S/+T!AF+9K0$&K2[2/.$>SAVE ERRI/I.%9%;*B%6%3%5*FYC.:H^%$:.J%%%	/5%%:H)X*: %=%
?8%?*"P**[%-*T*	P7%.DC-*
H)X*%>%?<H*2P***%-*	*7P7%.DC-O*/H)X*%>: %<%
?8%?+H%<%?+MP**9%-*7+RP7%.DC.I+EP7%.DC.[+EH(X*:%=%?+V%>%?<H+!P*+T%-+R/&P7%.DC-O+^PG<D<?2?>GXQ/(LL>(/<%	BAF,9J8J8JC?8A9H/7
%.A,BH)X*K?XB%9%4%=%?*J%>0A%
?
0BK>XB%=%?*T0A%=%
??0BP7%.DC/	*"P**E%-*%A%^-,-+%;<H%?<H* P7%.DC2]*"%%%	0<%%%E%!% 2,%!K=X4X8H	X+H	X3G%-*6/FR;H!
<: X,	;%D%FP+<H+[%": H,X,%D%!	;+O:H3X,P,H,X+	:	;%F;P+<H+.%"P,%D%!	;+%/G%O%/:S7+*9GQGJ*F1P P(%E%!% 29%!K?
>X5H	X,X8IBX+K=X4	<%-**S%E%!% 3,%!;K?
>IBX+H	X,X8K;X4	<%-*S.&T%E%!%G% 29%!K?
>X8X5H&X,IBX+P8K=X4	<%-*	*<%E%!%G% 3,%!;X8K?
>P8H&X,IBX+K;X4	<%-*</QUBS\+O	;S[+B	;	:*=S\?=?>?6?2?:?=?8?<?;?;?=0 1(203856H7P8X9 B*B:OO<BK;+0?5FUAFQF"F6*B
%E%!% 3D%!H	X,X8"N%!%-*.MV;K?X+K>
=K<X2K;X4	:%D%F:H8> %"P+<H"%%D	:*ZP2<H.N:K?X+W=%!.%%E%!%G% 2,%!K;X4X8H&X+H&X3P8	9%-*//AR	%E%!%G% 3D%!H&X,X8P8"N%!%-+B/QV0YU/GK<[LH	YRH&YUSG/G:K<[L/\\<(+)S/K-%:/!K/> +&/!B08G]G]IOSOTOWC
=PB2"QGGJF1?A*B!?<%E%!% 39%!K?X+H&X,X8"P%!%-*.OZ;H

>J.X6K=X4%D%!	<%FH8> %"H!
>H
X6%D	<%F;H8> %":P+*R.PCO?
%E%!%G% 39%!K?X+X8J/X,P8"P%!%-*0%^-*-):O;>(/CH)X*%>:%08%?+UP*+K%-+H/:P7%.DC-!+RAAAABCDOT PERFORM AUTOMATIC CARRIAGE RETURN AND LINE FEEXD	GJF?*?N%.A,B:H)X*%.BXP0G%080A80B*6%.BXX:%/0A8*Y*;0B%.BXK?%/0A80B+%.BX/:%/0G%080A80B*6P**F%-*%^-,-+P7%.DC-2*1P7%.DC.6*
P7%.DC/O*10B0"0Z6267/DPACEPATTERN F  20 LINES OF CODES 340 THROUGH 377PATTERN N  CURSOR ADDRESSINGPATTERN H  OUTPUT BAA%E%!% 3?%!%.,?(%.-ZY%.*=<L- PP**NP-P,*K%-*.XT/BBABBBCBDBEBFBHBIBOBPBRBTBUBVBWBXBYBZB[B\B]B^B
61*766;.1W?*2X5;K>
?W=<H+BH5*2P7%.DC-/G!C;
=
<
;K:
9K:
8K>
?/H;K+K,[+8DK+K,[,K,C7[*K*\O6=O5H
C7[*K*/T>A\*/$71=>(<B/$S8+%I/I.C?!^! ?6!!!
!]>\!";%E%!% /=%!% 0G%!K?
>H	X,X8
=	<	;%-*.T\U%E%!% /=%!% 0Q%!K?
>K:X,X8
=	<P8	;%-*U*)%E%!% /=%!% 0[%!K?
>K9X,X8
=	<P8	;%-*)*=%E%!% /=%!% 0%%!K?
>K8X,X8
=	<P8	;%-*=+Q%E%!% 1%!K7
>%.*0X:X,%!+!P,+]%
??%?<H+
P*+!;H,	6%-+Q%^-)/5]	B"BH01-?X>0>\ E[H![H<1;%.HL2%.*?:K?X/L/X0ILH\0P/P**I:N\XQN\
>N XSN 
=.LALELJLNLRLW: <B:>DX-H-8F8DB.Y".!G8ICK<> R/./ICK;> R5.5%;+B%6YC%X<HR;%9.;ICK:> SE/EICK9> SK/K%?+V/U<B%;+[%:0A,%5+ %40A,%%%	2]%%<BCLCACYB CTCECRCMCICNCACLB CDCICACGCNCOCS=6<A===3Z4Z2^[%%%	0/%%/?%.A%I;K>X4%D;LI=H*S	=*M;K<
;H8>(*Z%"%D0A%
?6%?<H*-S^*\K:[^S
*\0BP7%.DC-.E;K9
;;%!0A%
?6%?<H+DS *3K:[ S!*30BP7%.DC-.ES[;K]8J8J8JC8[Y9KYK
K!8!K\KZ= *M;K[	7.EIXROR NO.X6\:XX>JIHGFEDCBA%5H0? 7?6
U -Z1GF\;%%%	1I%%;%=K?X+K> PK= PH^%=%
0X%?*XP+*I%-*E*]P7%.DC-*U;%=K?X+%!%
<8%?*5K< PK; P%"%!%
<8%?*5P+*&%-*]*:P7%.DC-*2;%=K?X+%K?X*K; PK; P%K: P%
0X%?<H+PP*+H+VP+*?%-*:/U$P7%.DC-+RIL$!%ZIR$!QO+YIXYOI^$!I^$!IR$!QO+$IQYOIP$!%ZI^$!IR$!QO+.	9Q3P9LCFCLCRCC?;;%=K?X+K?X*K> PK= P%K< P%
0X%?<H*UP**M*ZP+*D%-**
P7%.DC-*W;%=K?X+%!% 1]K;X4H&X,%D%FK: P%
?8%?*8%P+**%-*
*=P7%.DC-*5;%=K?X+%!% 1X%!HX P%
 0%?+RP++E%-*=%^-+-*P7%.DC-+M	?	>$	=/W	?	>$T	>$Y	=/]	?	>$T	>$%	=/%	?	>$T	>$1	=/-	?	>$<	=A?GFKCTCV?;%%%	4Q%%%%%	46%%%?*O%%%	5C%%<B%%%	6I%%%Y%?*[%%%	5>%%<B%%%	5W%%%Y%?**(%%%	-%%<B%%%	6I%%%Y:%=%
??%?*8%%%	5>%%<B%%%	5W%%%Y%?++E%%%	-%%<B>DC?>(+J+%K>%=%
?8:%=%
??%?+Y%%%	5>%%<BK=%=%
?8%?+ +%%%%	-%%<B%%%	5%%%%Y:%=%
??%?/<%%%	5>%%<BH=74$ &%&]D(BQBSP%%%	52%%%Y%
??%?*J*O%%%	-%%<B;>DC?> <B/>%%%%%	4&%%:[$%E<B;>DC=[%K%8!K<= S$;K%8!X,*,%Y%W*6%X+W%U*9IC
;*,;X8*=;X8P8*=;%%K:X4%D	9%FX%;+B%6YC%V<H+T%:;K8%$K7%$%%*,%X+W+B*];K$> + %D%!/X%"%D%!/X> *-LTH?> *QIL> *Q/0)1*,^T,=HCCC^GJF1*BDC?BQB	?	>*V	=.Q	?	>*"W	>*-W	>+H	=.*R:K<ZQ*FSELECT TEST 7 SUB-TEST.SW. 6 --- SCOPE LOOP.SW. 7 --- SEGMENT PRINT -- SWS. 9,10 AND 
1 SEL. SEG.SW. 8 --- POWER SUPPLY TEST.	=	?/W&$+\W"/$W/$/\)(-V$1"IJ Z(J =<(/=9J> /<K:J^Z^K:/;J,/4G9/E(*PX6XX>:H	YS>DC?<(.H*=.H+K>Z\.\:H\%1*Q%6QS*Q%1*V:HU%6.*O*,*+***H	H	Z<>DC=>(*[J<H	H	H	YR>D8D?*4H\<HHX%1*5%6:QR*4*O>DC)"6XX1" FAILURE OR FLAG NOT=1"6XX2" F
ILURE OR FLAG WON	T CLEARPRINT FLAG WON	T SET WITH "6XX0""6XX5" FAILURE (CAF DID NOT INIT INT. ENABLE)"6XX4" FAILURE (FLAG WILL NOT SET)"6XX4" FAILURE (FLAG CLEARED WHEN "6XX4" WAS ISSUED)"6XX5" FAILURE ("6XX5" DID NOT CLEAR INT. ENABLE)"6XX5" FAILURE ("6
X5" DID NOT SET INT. ENABLE)NO INTERRUPT OCCURED--ERRORBASIC IOT TESTSLINES PER MIN. TEST132 CHARS. PER LINE100 CHARS. PER LINE80 CHARS. PER LINE40 CHARS. PER LINELS8 PRINTER TIMING TESTSLS8 CHARACTER PRINT TESTSFORMAT CONTROL CHARACTER TESTBELL TESTDELET
 TESTLINE FEED RATE TESTLINE FEED RATE PER SEC. = LINES PER MIN.=AN UNEXPECTED INTERRUPT OCCURED--OTHER THAN THE LS8AN UNWANTED INTERRUPT OCCUREDWEDGE PATTERN PRINT TESTCHARACTER PRINT TEST"OVER-PRINT" TESTSELECT A "PROCESSOR SELECTION SWITCH" IN SWITCHES
05 THRU 06SWIRL PRINT PATTERN TESTSPACE TESTNON-PRINTING CHARACTER TESTDONE LS8 (LINE PRINTER) CONTROL/EXERCISER TESTCHARACTER ECHO TEST--OPERATORS	MANUAL INTERVENTION TEST6XX1 FAILED OR INIT DID NOT CLEAR FLAGPRESS SELECT SWITCH ON/LINEREMOVE LINEPRINTER
PAPERLOAD LINEPRINTER PAPER6XX1 FAILED OR FLAG=1PRESS SELECT SWITCH OFF/LINEK?Z0MJRN0=H*!V+*\R0N0R+R0R**\K>Z/.S0XO(>\A$?6JMN+< +EK=^+R+R**<.:K>^+R+N+R*+E:.:K<Z+H,Z*/MNE8 JB8 > *><P*?J ^FJ7<K-B9DZC8D8A9V8F74J<^E7;+*9P?+2RG*-+9JCJ<<(+8ZC+	S?2KK 746, 061

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