File DIKLAB.SV (save files (Executable program)

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

??2CBPVH DJH%8/HN8%.ND?4?DCHBH2ZDNH"L"PZLN04H(H.[<LLBDJ<LPR*\(8\8HTL5P.L9 FFX8H[TL5P.DKHL4P.D(L4PJL8 JJ(8%(2L4H%H%<0C,PHQ<%/KLGBD,
(8L8 JDJ<KC,^
X8L8 FDFH/?D;K,9:X9[,9:(8DK,9L:(K/
:DK,9L;(KH[<<+(ABC8 H^H;9 H:H^,BJDJD>P
?A?C?CDGDC?BNLDSKO?.A2IPH2KHXXYHY<(H"XXI*,5E&K7>G?8?9HB88B.B F>!I>C\6AB$BJBM>E?AC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FBDD? 0<+R+2+++
(<(2*"($(])G+(T+K*4(I(A*)MYGX9CETB?B7XP*C*&/?>D8J?H/><B>DXT<B>DXUHUC=XVK<HVZS<BXWHUC;> PVHU?HPVHU8J8HC:XXHXK9? *J<BHT8J8H%-8HT8F8D%-%AK8XAK7XB/6: ,: J7X]J>X!.7?8>D8F?H,].?>D8J8H?H+MSE/EOE[E/EHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,DB5,B?5ODHPCZT+%>%;F%0G0Y<H%<0!<H%<0%<H%<0A80B?H%<P!*A%=%>0X<H%<0 <H%<0!%<0"<H%<0!<H%<0Y>H%<P!*V%=%>0 0!%<0G0!<H%<0Y>H%<P!*+%=%>0X;0]<H%<0 0!%<0%<H%<0A80B?H%<8A0]>H%<0!%<0%%<0A80B?%<0"0!<
%<0%<H%<0A80B?H%<0 0!%<0%%<0]0%<H%<0A80B?H%<0"0Y>H%<P!*9%=/?\OK+/ HY>(H">(F%>0X0]0 0!%<0%<H%<0G0!<H%<0%<H%<0 0!%<0%%<0A80B?%<0"0!>H%<0]0Y>H%<P!*A%=%>%;F/: 0X<H	?8 < 	>: 0Y<H	?8 < 	>: 0Z<H	?< 	>K=0]<H	?K<8 < 	>: 0\<H	?8 < 	>I&0^<H	?A&< 	>%;G[: 0 <H	?8 < 	>
 0"<H	?8 < 	>: 0!<H	?8 < 	>: 0%<H	?8 < 	>P!*&%=/;%)X -OM9:%-ILHC?<T[TL%>I%X^%?0]>H%<0Z>H%<0">H%<0Y>H%<0!>H%<0$>H%<%:%<0Y>H%<0%>H%<0A80B?H%<;A0]0%%<0A80B?%<0]0%>H%<0A80B?H%<0!%<0"0!>H%<%9%<0\>H%<0Y%<0%>H%<0A80B?H%<;A0]0%%<0A80B?%<0Z0Y>H%<0%>H%<0A80B?H%<0];
!*D%=/?$6: HM*FPT+IB*?IXPT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:J%>I%X^%?0Z0"0Y>H%<0!>H%<0$%:%<0Y>H%<0&>H%<0!>H%<%9%<0^>H%<0Y>H%<%:%<0"0!>H%<%9%<>D8H8J?*20Z0Y>H%<*60X0Y>H%<P!*D%=/?K$=TJ)=CKA.Y%L-QHY>(-%%3DAS<(8A9 OLUOLSLA%> +M,???XPHP8J8J8J
HP
/UA%<(/
H>A%H>7/
HUUHVUHWUHX>(/(H=
HXU/(I580!+90&:H<[8L%>XYWP!*B%=%>: WXYWP!*J%=%>XYW: WXYWP!*O%=%>HW8 X!XYWPYHY	?*^P!*]%=%>HW8 X!XYWHY8 WXYHY	?<HWHY8!WXYHY	?*+P!**%=%>K>WXYWK=WXYWP!*>%=%>K<X!%*WXYHY	?+LWP!+L%=/;;V0]:HY0&0Y<H+$0!+]0"+]: 0^X\H\8!HY>(+4>D?H+4HY<B:H\<B>D8D?H+[/WVE EN8AUB*X&%>
%X^K?X!X[%?0^:0"%*WXYHY	>*JHY0&0Y<H*
0!*R%*WXZHZ	>*WHZ*Q: 0^X\H\8!HY>(*4>D?H*2HY<B:H\<B:HZ<B: X[>D8D?H+GHZXYP!<H+AH[> *E*R%9%<0^0"%=/=%?0^0":HY0&0!+M:HZ0&0Y+R: 0^X\H\8!HY> +30!+\HY0&0Y+ : 0^X\H\8!HZ> +30!+*HZ0&>D8D?H+R*E>D8D?H+G*88JC?<(K?8APX&8%>HW8 XYHS0&%:%<0"%9%<: 0^X\H\Y<(*
XZ>D?H*[HZ<B:HW<B>D8D?H*DP!*D%=HU8F?/?%>X^%?0^:0"K>XZK=WXYHY0&:I$X X
0!>H%<0Y>H+BP
*7P *7%<HZK<> XY0^X\H\8!HY>(+Z>D?H+UHY<B:H\<B>D8D?H*&+8PZ*4I$X X
0Y>H%<0!>H+*P
+
P +
%<0ZI$X 0Y>H+5P
+-P +-%<0ZP!*,%=/?%=AIDBJ?<RHU8D?+S%>X^%?0^0";&XZ8AXY;V0]:HY0&:%:%<PYPZ*P0"0Y%<0\X\K?XY"<0]0\X\;VXY"<;V0]:K?XY0^X\"<0Y>H%<%9%<0^X\K>XY"<P!*E%=+SH\8!HY>(.<>D?H+N: J<<B:HY<B:H\<B>D8D?H*D.<>DC=>(/<<B/<+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/
&D&E&F&G4;3<DBC$B>D?H*G: J<B>D8D?H,].ZZ>D?H*T: JL<B>D8D?H,]JZ.LZZ>D?H*&: J[<B:JZ<B>D8D?H,].[K?XAK>XBHXK=[RHV9DOR[R%>KRX!L!X
P!L!X 0&0!*?+D0^>H0&0A0Y>H+B0!+FP
+DP +D<B%=+OVVLVXV$V0V<WHWTW W,W8XD^R^	^<
Q
&
< R ( >!U!+"A"<KZ)/*I\[52B$)"HLA-[/0BHUSUF,B8)??9??:Q??:6??;T??;-??5=??7M??8L??8>??9	??:I??+:??.[??0X??1<??3N??4R??W5??\6?? 0??8??&[??($??/(?>9+?>A ??G0??L7??QH??
P?=3V?=B??>O
?>Y.?>"O?>> ?:&,?;E=?<^=?<3Z?<D^?=<??5MX?7K9?8=9?8&4?9H;?:9>?+Z/?.W1?0;2?1M(?3Q5?4<M??<+??=C??=V??=%??=2??;"??<F??<"??<8??=J??=Y??9,?>B^??IT??N2??SP??V???;H^ZJ$Z%R%*V::::R>H.PFPFPBP*T?,Z8HU8F?*3J8K?<(*5K>>(*5R&.&P!.&.&I$X X
0!>H+EP
*=P *=.9R9.9I$X X
0Y>H+SP
+KP +K/GSG/GB7B8B9B0B1B2B3B4B5B6B7B8B9BJ>?6%7\%5*%	XT%7\H%5*FHTXT%7\Q%+*L>H;XXU%7\[HU?H8A%3%7\^%+*Y>H;ZHUXU%7\?HU8D?H8A%3%7]C%+*(>HK?HUXU%7]SHU8F?H8A%3%7]W%7]7%5*7[4K4K>? *7K49F8DHUXUHU8J8HC=K<[POP[P%7^R%7"W%++Q>HK;HUXU%7"$HUC;>(8A%3%7"	%6+ [PK:KP? + KPHU
UK9KP[2O2[2%7"</8MA=?8BMU+?=DU
O?5HRECEIVE IOT?  TRANSMIT IOT?  PARITY(Y OR N)?    NP=?EVEN PARITY EVN=0?  ODD PARITY EVN=1?STATUS ENABLED(Y OR N)?    SWD=?FILLER CHARACTERS(Y OR N)?    FIL=?BAUD RATE(00-13)? 00=110 01=150 02=300 03=600 04=1200 05=240006=4800 07=9600 10=19,200 11=56.8 
2=66.7 13=1050  110 BAUD - B1=0? B2=0? B3=0? W2=1? W5=0?150 BAUD - B1=0? B2=0? B3=1? W2=1? W5=0?300 BAUD - B1=0? B2=1? B3=0? W2=1? W5=0?600 BAUD - B1=0? B2=1? B3=1? W2=1? W5=0?1200 BAUD - B1=1? B2=0? B3=0? W2=1? W5=0?2400 BAUD - B1=1? B2=0? B3=1? W2=1? W5
0?4800 BAUD - B1=1? B2=1? B3=0? W2=1? W5=0?9600 BAUD - B1=1? B2=1? B3=1? W2=1? W5=0?19,200 BAUD - B1=1? B2=1? B3=1? W2=0? W5=1?56.8 BAUD - B1=0? B2=0? B3=0? W2=1? W5=0?66.7 BAUD - B1=0? B2=0? B3=0? W2=1? W5=0?1050 BAUD - B1=1? B2=0? B3=0? W2=1? W5=0?TWO S
OP BITS(Y OR N)?    SB=?DATA BITS/CHARACTER? 0=5 1=6 2=7 3=8  5 DATA BITS - NB1=1? NB2=1?6 DATA BITS - NB1=0? NB2=1?7 DATA BITS - NB1=1? NB2=0?8 DATA BITS - NB1=0? NB2=0?DVD9FAF)J2DDD$D2E1F
F0HMHXYKIITJFJOJ]J.J3NRORO P:Q
Q-M]RYR.F7HGISJDJ-Q*Q5GEH=R[R!MYRNR R	D;EJE	FBF^F=HDH$H,IKI
GLJZNGN OCOHOUOPLP)QFUBM%RGR+R3DYD+D>E"FCFPGUDGD\D!D,D/D?EMEWEFDFJFQF[GHPX=H5H8JIJUJNUOMO\O*P7Q"T?UIM D^EVE0FZG\HJH7JEJ"NIODOIPHP+M"RHRXHSJLDJEAEOEZE%E(FFFMFSG*H[H%H-IBILIWJRNQOLOQO
O-PEP2T>UDRQM\*Q: Z;N82A^92IN72A^72IR7R8R9R:*YK?2A
;K:
92I2B	8J;K=> .DK7
6K5
4.D&7(8:9<:?<[<H<2B	A&.K-2L[(2AO=C<<(+N9J8H+(2AK,9F8DC[KN[U<O*8[UKW
*8O*8K]K+> +&KU
*S,+N: K,2K/B	]LH2C .?<)0
]B)=WX>8XBHV	B?&4C?%8??PCP%8A(G(HRA.A"A.I9D8FZT"A.IJTRI.IZIJI8J8H%3JI%3.T0&:0!* 0".]:J0%/J8 Z2J1%/R2*,.$BMBJZ<J<F28!9DJ<N2R2.2%8<	)D<2)E)FR<R<.<%7)K/G  H> +!0Y+P0^C;K<
GOGK=<(+]K>> +
%.+!OG%/OMSM<(+*=+2OG> +/]3OM[MM3/M:SM+!:OGK8=+/KL=H+/+*A?B=6?=R :NZ4RN48J8J8J"NN4"NR4*EB]<(.J^<(*[J
=HJ J!%/.N%..N??]CAB B2ZN"R"Z4N4<(."[OB3J
R4*(G88G%5.49F8F8F[%5.4KR4.4Z4J48J8J8J%2J4%2%0/CPKQ%//KGB0[
8J8J8JK
C^K
8F8F8F/R?;AK9K:9F[9K:8JK9[:K:/
:K9[;K:[</+:K;[9K<[:/2J\.8B"B

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