File DHLSAC.SV (save files (Executable program)

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

??2CBP
LG0?D>LH
<A<L<	HR\J>.D"(KJ$J.D(H
JH>( DV<JL0&D!H*H0("D]<JH6\6=8H6(1LXH6H:8KHX[D0,D(D=L[,	H DJ[ %LR0CH>,(LJ,OH>, LE(	L	49LQ$	=,YL% 	L	49H\XKH	\8D9<=HK\	L8$	=,"L( 	H	P:Y ?H.\!H7D.L$<YHHD.DK<6L%T	/P%DHLLHAC DFZ]J]"OZMJ]9J9J9J"OZL.  Z[J[C?Z\J[9F9DC>J\K=.O: N^XILI< *	R^.^Z=J?Z>J=A;< *0KZ>[AJ=
J8J8JA;W%[.>KAW%[*"&9&%[M%*>H%W%(%WKM%+;/B%-0B;K<Z7J7Z;/N[&K&C;>(K:K9K&/W0&0!+";/ :H[ HZ 0";/	)0
]B)=WX>8XBHV	BBA %[00GG(ABC%SYSTEM ERRHB?;OL=LAAD61(T66;,S:<YE<!;NABGHJO?BJBMB B0CXC\ ??<>>=<>\8LB.WC?FJ<KDKM(T
Q?/?4?2[
K^5^/
EN^!J]^;NOB=JNMOJ0J+J5JJGDIRBB
B[BWBSCDB1LQLMFL9MKMBL=L	L/LL
L+LZLMLVLILD+Y+^	?/>*Q%O/=/</;/:/9/8/7/6/5/4/3;X>$Y >(.-$YB:>(..$Y^>(./$Y]>(.0%%%	3-%%%%%%%%$Z<B*QNU"P2 :N1Z<R1N1^<R1.1DD$YB;> .=R=.=;	28H>>(+PX>$Y8D?	1$YC0> $\$Y8F?SD/D	//\/]BCBB	/+!%Z*BHPX4H48F8DG.YG	-+YA5<(^^.8BD:)V0UBR<R	T/ZVTRSRP6&DO%%%	30%%%.DC30:O?
[:.>A?8AZ4$\$YC>Z5J5<(*/8!K=> *"K<
;8AZ4.OJ5C:<(**Z4K9
;.O;K8
;Z4.O%%%	2-%%*PMAK%MAPMUNGPALPRI.4PU.(REN!-%RESREW).$SETSK)0SQ5)3(SU"-)4TE/TY0%UN,/!$UAUBUCVE2ZERO<%;8AJZ=<> A CD;K?XIH3X1O>ZSK?XH$;P1*J: \H	=8.	=;JS8!K<>(*
RSJS\H.T;H&\HH&ZS.TM%K;%M;X<P2<H*2TM*)T.%;JS\H.4;H<>(RSJS\HP<.9;JS\HH=\H/B	;\H/I;H?>(/M%N/M;H?> +\%K%!/T%"%K%!/T+%: [WOVSVC3ZBJBC)> : [XJB< SYC4/YH IP?
<?= G?CX>GB[TC
:)*)?ZHJ.ZMK?XNJM"WH	\NH!"WO(<P*U:JHH	YD.ZM*F8!Z,Z-NW9J,<P*"R-*\8!J,8!^WJ-J/9H^RW.WO(?>";K>X:K=
<K=
;%!%!% $[H& SP:*=H%K:
<K:
;.0IA SIB SIC SID S/H;ORSR[0O0+<(/R=8P8A8J8J8J%$O0<(/RK.=K/H&%$9S0+W
 !2C,=2I\!+1DCH<X\	>%M%MX%"?"A%3%5*B%4:.<HNO&IH$%$.G;NNRNZ[JZZ\R\*UR[*S.N;8;J$Z\R\*!.]?JIC%$ID%$.%:H% S.+:H$ S.0:H% SH$ S.5:O?
>%=K= S.<;LI=H+K S+E;/D;K< S/ML $S: HK*ED\OWSW<(/WH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4%)H3[=+:HY>(,2%2BANLFOFR60.$[61.DRD.D62.I$[64.M$[65.QRQ.Q66.V$[0Y.ZRZ.Z0Z.
$[0\.$[0^.	$[0X.+$[0]./$[00A0B0D0E0F0 .9$[0!.=R=.=0"/B$[0%/FSF/F0&/K$[;OOSO[/O/+< +Z%/O=8P8A8J8J8J SO/< +	%/OO?=O>H& S9S/+T+7K.	>K0[0/,%SAVE ERRORI/I.%9%;*B%6C?K>
=W<O=	;8YJ
<.:H%%$:.O%%%	/U%%:H0X1: %=%
?8%?*	P1* %-*Y*,P>%.DC, *$H0X1%>%?<H*7P1*/%-*,*<P>%.DC,/*4H0X1%>: %<%
?8%?+M%<%?+RP1*>%-*<+WP>%.DC-)+JP>%.DC-;+JH/X1:%=%?+[%>%?<H+&P1+Y%-+W/+P>%.DC,/+P?S2+$/ J*%7HT9J8J8JC?<(6<J<IBA?%.A,BH0X1K?XB%9%4%=%?*J%>0A%
?
0BK>XB%=%?*T0A%=%
??0BP>%.DC/G*"P1*E%-*%H%^-,-+%;<H%?<H* P>%.DC1=*"%%%	0\%%%L%!% 2L%!K=X;X?H.X2H.X:G%-*6/FR;H(
<: X3	;%K%MP2<H+[%": H3X3%K%!	;+O:H:X3P3H3X2	:	;%M;P2<H+.%"P3%K%!	;+%/G>X/)2B%=[*&/)2BGTGM*F4P P(%L%!% 2Y%!K?
>X<H.X3X?IIX2K=X;	<%-**S%L%!% 3L%!;K?
>IIX2H.X3X?K;X;	<%-*S.&T%L%!%N% 2Y%!K?
>X?X<H-X3IIX2P?K=X;	<%-*	*<%L%!%N% 3L%!;X?K?
>P?H-X3IIX2K;X;	<%-*</QUB
K]> +YO:[^S]	9[]%/^K8	7O6	7/
:O5<QO48D:O3/%X!H*I$X(L!=&=(=	<I<KC^86FTF%F9*B
%L%!% 2$%!H.X3X?"N%!%-*.MV;K?X2K>
=K<X9K;X;	:%K%M:H?> %"P2<H"%%K	:*ZP9<H.N:K?X2W=%!.%%L%!%N% 2L%!K;X;X?H-X2H-X:P?	9%-*//AR	%L%!%N% 2$%!H-X3X?P?"N%!%-+B/QV0P	P&+L*LO<(+!8!X&SA/AH&8A*LOH%X%P++BX%M]< *)/AM 8!HOXO/*I\[52B$)"HLA-[QGGMF4?A*B!?<%L%!% 3Y%!K?X2H-X3X?"P%!%-*.OZ;H&
>J.X=K=X;%K%!	<%MH?> %"H(
>H&X=%K	<%M;H?> %":P2*R.PCO?
%L%!%N% 3Y%!K?X2X?J/X3P?"P%!%-*0%^-*-):O;>(/CH0X1%>:%08%?+UP1+K%-+H/:P>%.DC-A+R]P: M!]!L(H,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+<H!X&;$HOX*MMX,XD4GMGB*?N%.A,B:H0X1%.BXP0G%080A80B*6%.BXX:%/0A8*Y*;0B%.BXK?%/0A80B+%.BX/:%/0G%080A80B*6P1*F%-*%^-,-+P>%.DC-R*1P>%.
C.V*1P>%.DC./*1:HRC>> +P$YC=> /E+]
+]S-	<	;Y0K-	:	<$YC=>(	9SE/EK.> +	K/8 [,S.S,+][.S
/
DHLSAC  PASS 30O^:HIR:[ DA%L%!% 3
%!%.3?(%.4ZY%.1=<L4 SP1*NP4P3*K%-*.XT/BBABBBCBDBEBFBHBIBOBPBRBTBUBVBWBXBYBZB[B\B]B^B
61*766;.1W?*2X<;K>
?W=<H+BH<*2P>%.DC, /G!C;
=
<
;K:
9K:
8K>
?/H;K+K,[+8DK+K,[,K,C7[*K*O6=O5H&C7[*K*/T>A\*.VG
XS>A9]OT;I/I.C?!^! ?6!!!
!]>\!";%L%!% /]%!% /	%!K?
>H.X3X?
=	<	;%-*.T\U%L%!% /]%!% /1%!K?
>K:X3X?
=	<P?	;%-*U*)%L%!% /]%!% /;%!K?
>K9X3X?
=	<P?	;%-*)*=%L%!% /]%!% 0E%!K?
>K8X3X?
=	<P?	;%-*=+Q%L%!% 1C%!K7
>%.10X:X3%!+!P3+]%
??%?<H+
P1+!;H3	6%-+Q%^-)/5CKJ8(XCKBH01M?X>0>\ E[H![H<1[%.HL2%.1?:K?X6L6X7IGLH\7P6P1*I:N\XTN\
>N XVN 
=.LALELJLNLRLW: <B:$YX4H48F8DB.YG".!G8IJK<> R/./IJK;> R5.5%;+B%6YJ%X<HR;%9.;IJK:> SE/EIJK9> SK/K%?+V/U$[%;+\	880A,%5+!%40A,%%%	1=%%$\,.<2AN*2IR*/(2J:G?:[5$:Y
:*:?;D:)=6<A===3Z4Z2^[%%%	0O%%/?%.A%P;K>X;%K;LI=H*S	=*M;K<
;H?>(*Z%"%K0A%
?6%?<H*-S^*\K:[^S
*\0BP>%.DC, .E;K9
;;%!0A%
?6%?<H+DS *3K:[ S!*30BP>%.DC, .ES[;K]8J8J8JC8[Y9KYK
K!8!K\KZ= *M;K[	7.EIX;	68/:-LLY,LPT,CLOCK,RX01,HTE:)H0? 7?6
U -Z1GI\;%%%	0)%%;%=K?X2	>K= SK< SH%%=%
0X%?*YP2*I%-*E*^P>%.DC, *V;%=K?X2%!%
<8%?*7	>K; SK: S%"%!%
<8%?*7P2*	%-*^*<P>%.DC, *4;%=K?X2%	>K?X1K: SK: S%K9 S%
0X%?<H+SP1+K+YP2+A%-*</X$P>%.DC, +U;HRC8>(/^	7,	6	5	4	3/^+
WAITING 6S%;E:[IRDLCFCLCRCC!?;;%=K?X2	>K?X1K= SK< S%K; S%
0X%?<H*VP1*N*[P2*D%-** P>%.DC, *X;%=K?X2%!% 0=K:X;H-X3%K%MK9 S%
?8%?*9%P2*+%-* *>P>%.DC, *6;%=K?X2%!% 08%!	>H
 S%
 0%?+TP2+F%-*>%^-+-*P>%.DC, +OO8>(/7O6
5"\/4 8 8!0!0([FOFR(),A?GIKCTCV!?;%%%	31%%%%%	4V%%%?*O%%%	4%%$[%%%	5)%%%Y%?*[%%%	5^%%$[%%%	47%%%Y%?**(%%%	, %%$[%%%	5)%%%Y:%=%
??%?*8%%%	5^%%$[%%%	47%%%Y%?++E%%%	, %%$[$YC?>(+J+%K>%=%
?8:%=%
??%?+Y%%%	5^%%$[K=%=%
?8%?+ +%%%%	, %%$[%%%	5E%%%Y:%=%
??%?/<%%%	5^%%$[/<XBHV	B?&4C?%(BQBSP%%%	5R%%%Y%
??%?*J*O%%%	, %%$[$YC?> $\/>%%%%%	4F%%[*%L	=*^*8A[,K=
<*$$\;$YC;[+K+8!K:= S*;K+8!X3*2%Y%W*<%X+]%U*?IJ
9*2;X?+C;X?P?+C;%%K8X;%K	7%M^%;+H%6YJ%V<H+Z%:;K6%$K5%$%%*2%X/4+H*;K*> +&%K%!/^%"%K%!/^ OUTPUT DEVICE%YCCC^GMF4*BDC?FO8BQBX,H-< *&%7U<<(-6X*%7<(*QH*8D9XX*I5XOI4X"LO8!H*>(*!P"*UHO?-6I3*RH"I2%1%7U<%0<(L"<(-/8$>PI.I.[AH!X	L!H,> +Z%78H=P-/8DA-[B\[C2B%=A:S-,I4X
H$%08 KB9XKA?\!\8!KC> +XL"A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/S&D&E T"T P-T"XX4H4I%C%D/D9"R*KA*PH%8!M%1U<H&8!%1U<-/< *)X%X&H-%0<(-"X)%7X$<P8X"6XX1" FAILURE OR FLAG NOT=1"6XX2" FAILURE OR FLAG WON	T CLEARPRINT FLAG WON	T SET WI
H "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 ("6XX5" 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 TESTDELETE 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-
RINTING 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=1
RESS SELECT SWITCH OFF/LINEAPSRCCOMBCOMPPA
?HRC>> *HO?.0D
==A
<Z/J1Z0N0<(*XO;>(*%R/R0*OO:> *"O;	9K8	9	7R.RO;.O;K6
;J2J/Z.N.Z...636<===4=1=/=.=-=;=<:7^7$7D7H7P7+SR[\
:	5/]	4[\
:	7
3/O%>CYK\> +W8AJ[]S\	2	5":+PO18 
1	4	5.	4K*8 [*	5.	4	5.787:7=< ;E9AS
S%A:[B?<K<J<I=	=(D=&:KE> *HSEO?
>O>
?HRC=>(+CKA> /<SA	;:EHP	:K9	8W7	6")O5XPK4[B	6")HP9F8DO5XPSB*
*>8!K3>(*>O5K2?H*:O5K1?*:O5C0
5.)K/	8	.*A	.[A.R.AD = :-
MISSING DD MARK
UNEXPECTED DD MARK
UNEXPECTED RX01 IRQ
MISSING E:[B?G=H=PBM?=<I<<J<K :HIR7LDFRFO
?	>2C0G/=SR= 9F8FZYK<ZZJYC;K:	9JY8F8DZYRZ*N.H;K8	9J	8 Z(K7	9R(*.[D
60D
5=A
40Y*:HRC3>(*:E	2	18R)	2.):")8HQ?H>LHP.<0Y+F0^C0K/
.O./E;HRC3> +Y8 KN[NK-
N	,/N%N/BJ<9F8F8FIK+[MOMFL=L$L[LR$FP1^<B<IBA?6S%D=	=(=&BJBM<KB0G?<>S
< 	?RJ	>."KZJJI.Z
J > *VJ
0&0!*R0"*]J
66	=861*X62:.K[&0D[(=A[	; J![%HRC<>(+JO;> +E	:	9=Q	9=YK%	8	9=\K&	8	9=
K		8	9="K(	8	:$Y?H8	7.!$Y?H.!K6
%	5/%DHLSAC  FAILED   PC:  AC:  MQ:  FL:????????YJKUYIKW*=LT9(=F830>9$9MS%<B^:HIR:[7*D:)6;E
?HRC>> *HO?.0D
==A
<Z/J1Z0N0<(*XO;>(*%R/R0*OO:> *"O;$\K9$\$ZR.RO;.O;K8
;J2J/Z.N.Z...*3*<===4=1=/=.=-=;=<+D++)+J+N+U+.,
7	6/52C0G/4[!
:	3/"	6[!
:$Z
2/TBK!> +[8AJ["S!$U	3$V:+UO78 
7	6	3.	6O18 
1.	6	3.)X-	,S>1M,M/SAB?.>.=1K1LD1J

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