File DILABC.SV (save files (Executable program)

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

??2CBP]8HOTE<NU G <CL4UHNSDFHO TTHSTL2<5L E^"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"BBH\> *I0Y*D0^2.S0*^H8[0I!XQK/Z^%,K<(+P8A[$)B +PRZ%,<B*2*/K/Z^LQPQAT9J8JXSLPATHS9J8J*4HQXPPQLQR^2IN<(*:H6.X\HZ>(-*XZK?XHLHX%LHX&LHX	LHX(-*X(PS+\2J$.IX\%,%>Q2-6I
%0X
X %^9$XSI)["H*2J$.B+JK"<(SZZ:AX\: [0%,-6*
[>2LIH[<IP
>/1K>XS2A/9(\PCC-C??%)8 H^H;9 H^,BJDJD>PBDE6$""0"9B(*C*V,,J, &\*)-	?>?=?<?8?6?.?*?M?D>\>A=<= 0XBGHP /0:?AA?BBD?VVEVHVKVNVSVVVYX[+V\XVXZX
TNT.X$Z/M\A\WTWLWG.]J^ XKYIG8???0/G <%E DHGD,=?=DI?	?YEK>Z^K=%^*NI>;K<Z^YGYFYD$UC;YIK:II?H*YH,II?H*[H;YIII8!YH8: YDIE> *&H3<HH5X?YAYOH?I&YBMB<(-(Y$U9F9D?-ID> --/<(-7I6<(*WI5: YEK>Z^$UX>: 1O1J;<B*N*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$?"C?*	CD8EQ;YEK?
+YDK>XHLH<(*U%^%[H%\%X<H:AID9DYD*GK=YBID9F9FYDID=H*%QB9DYDMB> *[+O:MB%^%$7]MB9J9J9J7YJIJ8J8H%+IJ%+H4%"MB8J8H%+MB%+%$7,%
QBMB>(+OID9D*ZI$?*6HY9HHZXQ<B+\;$XHRC*>(/QHR7K)<H$U%^%$74%
%$8A%
HRC*>(<B/,CDB^BN+;K,9I"<P:9F8FA52IH\OK+/ HY>(/E/D8%%K?YLIHYMILC>> *NK=%"QM<H*RK<%"QM*I%
QL*C-(%%H3Y2H"YMI2%"QM*[H"%*H"YMH3I2%"QM*H"%*H"YMK;I2>(*8H8I2%"QM*0%
Q2*Y%
-(%%I,YBH"YL+BH!%*MB7Y2K;I2>(+.I2K:>(+2%+I28J8H%+I2%+H!%*MB8J8J8J%)QBMB%)MB8J8J8J%)H"YMI2%"QM+%QBQL+%
*=H9Y2:A+M%
-(%)X -OM9:%-?9?AAU*A?<%%IHYM%+QM<H*KH3%"QM*C% : YLIL%*K?%"% H!ILYL: ILII?*N%!-(%%K>YB%$8MH1IHYMK=%"QM*%% YRYSMB8!YL%!QL*/QBMB<(+DQRH%=*6YS: IRH5%"ISH6%"% **%$8RH/IHYMK=%"QM+I%
-(ABDHP %%H/IHYM%+QM+ZK<%"K<%"H;IH> +,H)YMK;%"QM+	+.H)%\%
IHYMK:%"%!QM+1% %--(XNA\32-IOAX%%H/IHYM%+QM*DK?%"K?%"H)%\%
IHYMH4%"H1%"K>%"QM*P%
%--(%%K=XHH"YLLH<(-(YJIJ8J8J8JYKIHYMIJ%)QM<H*4IK%)QM*+% QL*)%!*^ M  &%%H!YLK<YJK<YM+J$IJYJIJ%0K;%"QM+E%
QL+BH!YLK<YM+\$8!IJYJIJ%0K;%"QM+V%
QL+S-(;IJ9X9X9X9XYKIK9X9X9XIK/$H=
HXU/(I580!+9AH?"J8A\2%%K?YLK>%"%
QL*C-(%%H$YLH0%"QL*LH<%\$T8-(%%K=YJIHYMIJ%"QM*Z%
HYLIHYMIJ%"QM*% QL*!%!QJIJH+> *XQN8%
%$7F;YPYQYRYSINQPK<=*;K;QQH*=+K:QRH%=+EYS: IPH5%"H4IQ%"H4IR%"H6IS%"%
-(*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVEA$O(0X!AX?(%%%%"*A%%K?YJIHYMIM>(*GIJ%"IJH-?QM<H%
H&H?> *ZH)%\*I%%I,YB%8J8J8J%+IJ8J8H%+IJ%+H"%*IJ<(+DK>?H*4IJ%"+BMB7YKIKH:8!IJ>(+DQBQBMB> *4%
*\MB8J8J8J%)QBMB%)MB8J8J8J%)%
*\/T?/O)[\S)O)[[	-A:+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H=
B0%%]%K?YBK><H: YL%K=>(*VQL<H*FIJ%"IJ]BYJQB*HYJK?8!IB>(*^;U]BK?YBMBH">(*BMBH">(*^MB%"QB*$H%\%
%!*B;H<II?H+A%%%$8
%H-?H*9IJ%"%
*7X=%$9%
-(;H*YL: %U< %]QL+I-	;H*YL%U%T<H%]QL+S-	;H*YL%U%T<H%]QL+]-	?<?;?;?=/K<[42AM92I8J>X/)2B%=[*&?5FSA
I?B==<9P;H$YLZSZT%[%X*M%X%]QL*C-	RS<HRT*F%]*C;H*YL%Y%X<H%]QL*X-	;H$YL%[%X*%Y%X<H%]QL*"-	;H$YLK?YC%U%[%X*3%Y0A80B<H%]K>YC%[%X*>0A8%]*;0BQL*;YC-	;H*YL: 1O1R: ><(8 1O1K< +ZQL+O-	[]%]+W;H*YL: 1O1J: ><(8 1O1S< +/QL+$-	[2%]+,/$&Y/S&D&E3;V6VV>+M+TSDR:;H*YL: ><(8
1O1U<H%]QL*C-	Z-IE>(*&1OH=< *[:H><(: 1O:J-1V1Q*
:H>> %..NJ-%[%X*(%Y%..N:IE>(+\H[3H2[5:H$[4H1[6K59H[5:K69D[6K5K6X=H><(+N=8!H=< +V:H=1O;1I+V1N+!:S4*?S3*7*3%T+\%WC?K>YJIJ
=: %\IO?H+1W<$S8:IJK;>(-1IJ..A-[/0<A,I$/BA?0Y<HR.0Z.E0\.H0^.K0!<HRN.N0".S0$.V0&.Y[EKE<9H9J[FKAKFZAKBKFZFKCKFZIKDKFZLKE79D9F[FKAKFZOKBKFZTKCKFZWKDKFZZ.\0A0B0D0F0H5%"/G[SH3%"SS+N/L7[^K^3>(H8K^%"/TH,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+<H!X&;$HOX*MMX,H"X%H!BA Z
K?ZURU*DRU*FRT*B.ZTK>ZURU*ORT*M.K"Z"
.V:K=%".Z:K<%".
;N$[GR$*,%
SG;OG8J8J8J7<(**[HK;KH>(.$KH%)OG7<(**[HK;KH>(.$KH%)*+X=H?K:=H-/K:?-/H%\%
%!%$8T%
$U9F9F?H-/-(+!IR"$HZ> +&IQ"$HY> ++IP"$HX> +0IO"$.<I\[52B$)"HLAZ-Z7?0?AJM<9D$:X=%
H?K?8!IA>(.YNH?K?YA%$7NH?9J9H0%+;H?%+%
MAZ\%$%
H?<(*0H"<(*0H!<(*0K><(*0K><(*0H$< +N;YQYRYSIIQQH*=*5K=QRH%=*:YS: IQ<(+EH5%"H4IR%"H6IS%"%$7V%
%!%Y: 1O1J;.00I0V0%010>1J1S1\1,151?2E2<3U3.4!6$U?H-: K+$];-YD$U8D8F?H-//<V6]AA$??[U%
;ID> *PIF> -IG> -/$U9F9F?H*!$U9D=*W$^<B*A$U9F=H-9D?*!ID>(-/H?K?>(-P?K>H?>(+AH	H?> *0H2+AK=H?> *9ID> /<H3+AH(H?> +BID> /<H5X?H?I&YBMB<(*AY-R%
K;%\R%
/J;IHYMK:YJK9YLIJ%"QJQM<H/RQL+ZH5YJH%YL+ZV6Z>VV>JIHGFEDCBA!5^"?71?
[4?Y?5?1;H?K??*OHRC>> *O$U9F9F?*IE> *U%T**\: ><(8 1O1I*%%Y: 1O1J;X=;K=H?> .M%8!K<>(.IJK;> .YJ.3P,/5;KE[HKF[G%-<H+CSG*;SH*9.5R5.5:H:H$SC4>(+O/I$SA8> /I$SAV>(/3+J	<[
	<[+	?  TSTAD=0DA\I0	;	? 1D: X!/:?Z- O3N9SG00GG==PA?,D?0;H%\YGYFYO$U9F9F?H*Y<B$U9F9F?H*Y$U7X?H(H??*+Q%
%!%$69: YO%YRIR%"%YSIS%"%%"%
YOIR09F9DX?IS0H?X?H?H	?*H?K?=+L;IJK>>(+LIJC=K<>(+OIJC=K;> *+Q: YG+Q: YFH?I&YBMB<(*YH%\-	=/W	?	> T	> Y	=/]	?	> T	> %	=/%	?	> T	> 1	=/-	?	> <	=/5<-<4?
=R?0:HRC?> *G."V*TR$$Z$W"	J$$Y$Z$UC>> $^R.J%> *]J&8 ZR%R*TZ%RV.VDILABC    PASS  :$
8HQ?H>LHP.00Y*:0^C=K<
;O;.9;OB[]SBO]C:<(/B=8P8A8J8J8J$\O]C9<(/BK8=K7K6$\S]+GURING TEST 1 SEC. 4.2$0A,&I"I&I3DOE./X6 WCB A
 ??$/BA?PD
?HRC>> *HO?.0D
=?A
<;Z1J3Z2N2<(*YJ/>(*&R1R2*PO;> *J/$\K:$\$ZR.RJ/.J4J1Z0J/H8Z/N0Z0.0$5$>===4=1=/=.=-=;=<*$%
%%%F%J%Q%+&[]
;	9/^	8[]
;$Z
7/PESK]> +X8AJ[^S]$V	9$S:+QO68 
6	8	9.	8O58 
5	9.	8	9.252 3IWN6 KP
I^,
(9&M&SB?,I-%-&D-$"MJL> *GO?ZKRL$XZL"S.KK>$\O=$\.M:O<<QO;8D:O:.S;HR>(.\$W&)$Z$V"S$S.\*]WAITING . 7 --- SEGMENT PRINT -- SWS. 9,10 AND 11 SEL. SEG.SW. 8 --- POWER SUPPLY TEST.	=	?/W8O*<K]K+> +&KU
*S,+N: K,2K/B	]LE2C .?<)0
]B)=WX>8XBHV	B?&-$-&-%$/C^$:HRC?>(.J9> />R9$W*HP$YK=$\W<$["!O;XPK:Z:$["!HP9F8DO;XPR:*W*68!K9>(*6O;K8?H*2O;K7?*2O;C6
;.!K5$\$Z*A$ZZ9.*O$SC)>(O<O;[*$SC,> ; HYQ:K.YP;H$YNIP%-+Q%2QN+QQQ<H+:K+IPYPIPK*=H+MC-+K%-+:HT%2.=H5D?B!PUT DEVICE-SB?G=H=PBM?=$/,I %NDSR= 9F8FZTK?ZUJTC>K=$\JT8F8DZTRU*I.C;K<$\J"8 ZK;$\R*^.VD
:	92C0G/8
70D
6?A
50Y*:HRC4>(*:$V	3$S8R)	3.)
<H7
;H8
:H9
9H:
8H;
7H<
6H=
5H>
4H?
3I
2IA
1IB
0IC
/ID
.IE
-IF
,IG
+IH
*II
)IJ
(.3: K,
T
FZ=Z1Z%ZYZQZIZV V\&SD-%-&-$>&M,
BJBMB0G?<$VRI$S.$\ZIO?.Z^J
> *UJ^0&0!*Q0"*\J^66$
861*W62:.J[$0D[&?A[%; J [HRC>>(+IO=> +D$Z$W-P$W-XK$Y$W-ZK$$Y$W-]K%$Y$W- K&$Y$Z$U?H. $^. $U?H. K<
	;/DILABC  FAILED PC: AC: MQ: FL:????????;HRC>> +28 K	[	K<
	/	YH0S>R>Q30O:/./&S<B^D$/NLUSAHOSBXTECXTEDTOEEQNAFKCHI TVK TFL FSN OSO IDPELDQ1CDR2CDS3CDT4CNUKASVNYEWBTCXNAEY MSZBUE[CSF\ SG] SR^ SU
 SD?LEBGLEBH SLJ FCM RS  PCDIJXY !"$%&	FFVF:HH]IVJJ[J=LLI    LUNNDNDN[PP1          QFQPQZRRUR
R,         SIS^TDATA PATH TEST,?PRINTABLE CHARACTER TEST?NON-PRINTABLE CHARACTER TEST?CARRIAGE RETURN TEST,?MULTIPLE LINE FEED TEST?SINGLE LINE FEED TEST,?BACKSPACE TEST,?OVERPRINT TEST,?PRINTING FREQUENCY SWEEP TEST?RIBBON FEED TEST?PRINTER BELL TEST?LIF
 TEST,?CHARACTER ECHO TEST ALL PRINTABLE & NON-PRINTABLECHARACTERS TYPED ON KEYBOARD WILL BE ECHOED ON PRINTER?LINE ECHO TEST,  FAST RATESELECT ANY CHARACTER?LINE ECHO TEST,  SLOW RATESELECT ANY CHARACTER?CHARACTER/CODE ECHO TESTSELECT ANY CHARACTER ORCOM
INATION. THE CODEAND MNEMONIC WILL BE PRINTED?SELECTED PATTERN ECHO TESTSELECT 1 TO 256 CHARACTERS.TERMINATE STRING WITH A CNTL-C.TERMINATE OUTPUT WITH CNTL-C.INPUT NEW STRING OR REPEAT LAST STRING BY SELECTING ANOTHER CNTL-C.?BELL ECHO TESTVALID ONLY IF 
APER WIDTHIS GT 64 COLUMNS.  AT ENDOF MESSAGE SELECT ONLY PRINTABLE CHARACTERS?SELECT TEST NUMBER     ?END OF PASS  ?TEST NUMBER   ?    COLUMNS?THIS TERMINAL USING IOT-S:  ?  (XMTR/RCVR)?DIAGNOSTIC WILL BE RUN ?ON THIS TERMINAL ONLY?01 START?00?ECHO TEST 
ERMINATED?TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL  .............?NOT ENOUGH COLUMNS FOR TEST 25?C?H+[O0K,?+[O0C+
0/JK*	3	8**	8[".)SUALLY CHECKB?G=H=PBM?=<I<<J<K :H7L47:!5D=&=(=	6:[I?9HY?>P+YNAY
?N8J>PK>K>
=	<NAA
?: 
=	<NAAK;[:I18 [9K:2I2B	8+SO7AEY0I19D8F8!I0>(*.I0H>H4Y0O6H?XO5Z5<B8AI0\HK4XI0AE[3K39H8JK3[3LC2K3\I0[P2AUX8O1K0X<BI0\K:H>[:S9*]2IR.2I$ =3S"Y"/[I18 XHY)I Y	/ROTATE JA,?CC?3A.A/A0S/CBCA?5TBTA<T

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