File DILACB.SV (save files (Executable program)

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

?=2CBPPNH4DH\H!<LJ HL!,	],JL9<GH>((L% KH	T;H:	D;LG<OLC87 JHJ\A;P]OL?H6>:, L5P
OL?H3 >K,9L8H
OL?H1>L; (LA,	L],ELG<G	D;HT;LG8? HJDJ<C0D:HG\?;$ALO</H:L
,.HZ<GH>,( PJLJ0E XJ>,(H-0KD
<+H*$/\.$G):DZ()L*LZH?D<HOT> >HP!HDPLZ<?	?	?*E*H	>%<EBNIG2A]92IMFA.> 	?<K=X[	<K;ZL[AE< I)9Z8J[/L[P[<(*D%<A8A/:L[[DP[: [,[+MDC9>(/8S0/7/6I<0\K5>(0Y<H/4SQS,+QK+> .22B&BH\FI+	SDS/<HS+K3[,KC[-J<[Q*3+Q++
J<[QO-BP9J8JK.8J8JS-+$O-BP[.S-O-C2R2.2?H/:S++F??D??7<C?9?>7==^[ TIHZ:8AW	>OS,[%Y.8 DS\SHQ[,HP9J8J> *8<P+AHQ?H*3;ZHQ?*VW?K>HQ8F8F8DA)K=Z)KP8!J)>(*+H:*+2B%=BHL%/<XGJ)[PHQAWKO[,*:9HQI<>X.HPIJJ?Z<2IHW
,2I.HQK;>P*8ICP\*VS.KP<(/H2B%="HL/<[P/H
?????????????????????????????????????????PEHMB?H/:O9C8> /:/,H>X >VH[VWTYV";8!KZ> /?MFB4>(/>[Z
=JC
<
XPI<XQ	;/><(*QI-> *J	;/><(*JI-<(*X=+BI<XY	;/:XZ	;/:I-<(*XX";<P*2XQ
9*5	9PQ HYHZKZ[ZHX*
HY9F8F8FHZ.;K8<(+[K7=H+UXYHYAV> +UHYC6XP	;/:I-< *
:KZ>(*I/:KZ> /:/>XUO5C4<(/
8F8DPU<P+&: HU9F8D/
K%7476O<O<>%8?Z?&YW[P2RQ0PT[FK?XRO>9 AE>(8PO=8 AE>(8A8J
<K<XIIJXUIA[&
;K&IE?8 IXV[/	:>P*%K/I<[/PV*\*?K/I<[	PV<H*0	:>X*2K	*&: XVK/AC\IW;K/AC8!K	9HK&\IK	* K&IJ[&;&HRXRPU*UO;<(/98!
;MF?O8C7O<
<H]AV9F8DI?
6<HI<K0< +$O5:+YHPI?
6O4
3/2PTO1<(/	[0MBX]/	>&XB\BQYW\ADC>%[NZU\\CSTSWS)>?YH\>(*K2B%=C8$/?2B%="HZ
/?O>[TO=[UMDC<>(*.KU8D?H*"2A]92I%<K%<I^RRA*$O;2A
:KT
9*7KU?HK8I-2A
9KF
:: 2I
7O;2A
6KT
5KU
4KM
KSSKSL+2CKV> /3/:?.?9>G	.HHP <B+:^7XWHP9HHP8JK2XSHQA-9F8F8FPSK1=+$[T9P8DST+*	0/W7%R?4SS?/?&?%?$?E?=?:\A \C\B[VC?< *J", FILE 0K>C?K>"O.0&0!*Q:.O;&XW;VHRXTLT8D\T:0HTPW*Z.U
W:2IO=K<9XZHN<(*58J8J8J"N"R**K;"OK:"O/9"I/O ERROR"BAD INPUT" BAD CHECKSUM%8"NO INPUT"SYSTEM I-O ERROR"NO /I!PBK8XUK7XI: \IPU+*X]
6
5X\S%/%YVW0SS?(PBJBMCR[B ??>2CBFH
;:H.<!L7<;H LA-;5DP(6L(TAA<LP(CPG:LR:LS(THD:LM:LD(APA:PT:LA(CDPSDATTDSH E$GSTTRT R<RRLO4MAPN TRDGLIDTHED HEDRHOPI,S PADTRHSSR\EDIPSHERDEHRORDDPAAH RDEKT R<RRCLR TRDGLIDTHED HEDRHOP: 
?O>[JO=ZJ2B	JAH\F\/<NI8 CP> /;NI[LOOXQONCQXPONA;<(;X[MKMI-?I-I-[KKMI-[MRJJJZ.XG2B	JBHLF\/:: HQA+K9XHLH	8PQ<SK*5	7
6KM= *^SL<H+P;VKO[O;VKN[N*S8X?\E\D? ?K5[OK4[N/3[3
2H?J8> +!IVK1>(/WK0
/	.INCOMPATIBLE2C/->EZZ9.?9[2PT\E\DSPSHYWJZ:[[ QDPQ0$0$ !T)E=R=M!I9N=A=L< ATAE=SITHMXJYDYI%KQL=A)B8.ISIV8IH-H0<8(-YD9IYKIL9AX-IB8I<I-KYLH8P-)JIAH IL)OIOYPH =B-AIC-K ATAEASATMHJEDMI=K)LIB=A(.ISYVHIX-H0X8H-YDMI=KIL=BH-9AXIHIYK1L$8-AJAA$ -TIE]L-EETIYAPAEH IT
E-SITHM<J,IDII=L-A%B1C,.ISEVHI8-H0D8D-)D)I1L%A)B-%C\I<I9LAA(36/%L=AL385X YTYEYRIMYI9NYAYL$ IT=E)SIT<M$JXYDIIIL=AIC=B(.IS=V(IH-$0(88-IDAIYLIAIC<-)BHI8IILYAH1<8$0L ]PQR)IIN=TQE-RP IDYI)A%G1NAOISIT=I-CLM<JYDIIIL=PIA=C(.IS=V(IH-$0(88-IDAIYLIPIA<-)CHI8IILYEH8<
%LMP\0P8( IL=IQN-EP IPYR)I%N1TAEIRH =T-EMS=T,MHJYD!I-L%PYE!A(.ISYV I<-,0H8$-9DQIML%P)E8-)AI$IYLIP$0,58 ILAIQN-E$ 9PIR-IANAT1E%R$ -T)E-S]T<M(J-D9I=RAX%A=C.=SAV<I$-08X-ID=I)RMXIA<-9CHIXIIRYXL0<1H =F)L!O=P)PMY8 =D)IIA=G)NMOYSITYIMC$MJAD)IQRMX!BID8.IS=V<I8-80
H--DII=RMX=B,-QDPI(IARAX081X MF=L-OIP=P)YP QR)EML-IAAMB=IML=I-T-Y$M0J-D%I-TACIAIA$.AS-VTI<-,0X8$--DAI%T-CYAL-IA<ILI=T%C-O18 UBQA9S=IQC( )E=X)E=RECAI!SAE]R MJXIDYJIC!L)A=AH.9SYV<IP-80<8P-)DYJIC9LEAH-]A,I(IIO9PIT=I)OIN8 IT=EQS-T8 $14 -AINYDH X2\MPJ(-D!J!EIX
C)AH.=S)VHI<-(0H8,-!D!J)E!XIC<-)AHI I(4$-03P2MK0 -PMRAO=C-EISISYO9R\ 9E%X9E9RACMI]S1EIRHM<J$YD-JIKEKIB%AH.]S%V<I<- 0 8<-)D]JAK=KAB-=A<I<I=P)D=P8</AA< AC9PMUX !T=E%S1T0MHJ=E-UAZ-C.YSIV8I8I8- 0H8 --EAUAZ=C,IHIATID 8-E ID!EIC!TIA!PIE< -FIO!RIM!A-TATYE%R( YP=
IO%GIRIA=M,MHJ9UYD-TIFIA=A,.IS1VHI<-(0H8<--UID)T1F)A0-=AHIXI-TACX0L1P/YT1UL505  1DME1CP AT=A)PIE< !F-OARAMAAIT!TIE!R,M J1U)TAD=EAA<.=SQVI-088<-QU%T5D%E1A$I0IMTYDH8%E0 AD1EACIT%A%P%E0 MCYOMPYYH =P-RIO%GIR%AIM$M$J1D0%A1B,.AS%V0I,I-$81E,-MD\0MA]BLI\IMIQNUSQT
RQUQCQTAI]OAN ATAE8AEH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJ82QCQA(.-S1V8I$I0-8AEH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/
P=U)NIC=H( IT9EIS=T(MHJYOQNL/%O9F9F8MHJ%D82QCQA(.-S1V8I$I0-8AEH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJHJ%D82QCQA(.-S1V8I$I0-8AEH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJ8AEH-IDX2A
)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJ9F8MHJ%D82QCQA(.-S1V8I$I0-8AEH-IDX2AC)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJ)A0I0I%P=C 8%E$ YH]I  9S9P1E=E%DD =R=E=A-DAEIR/AP=U)NIC=H( IT9EIS=T(MHJJ\ :]
!TRC?<(*HRK>C?K>2A\N2I."3	=HS>(.LO<	;S.L	:2S.L	94X	94>:	:2Z/88G2B	7B 5>HR!.!8(2B	7" 5>HR*.*
6O58!X].3K4	3K2	3.98^9F8F8F.?8\2ALN2I< SDC?/D,?: ["XXXY	1K0>(+W
//L:AO.O/> +HSXXS"+HT+P	95G/%2A
-2I	95Y"5 (3K=F"LY(NON<


>G8(()UUN$< 1B ?,BC	%)8 H^H;9 H^,BJDJD>PCDF0CD  0YS!E""2^YGXO\EX,&WNVVEVHVKVNVSVVVYV\V&V.V8WBZ\5$$)%H%P RC[
KXCR^0^5%DC	BGHJM^ !-/0:?AA\A?BBDC?DH???>?=?<?9?6?3?0?-?+?(??"? ?R?>\>A=?=DI?*H*K*OXNLN<(*KI>;XS*Q;K?XS*Q: XS0B1Z;%E%QA(8!XVIVHV? *!I	HV?*K>XVX*X(X)IUXBI%%F$9%A[$>>H: X+H+> *6$1*Y<H*<$-	NK=Z6HS?+FH+> ,6,7> *?PS%QA)> ,7H8HSX!L!=(+CX",";HQ?H+YHP/R>D/R;[%K<[
S%+ S&+ /[?8$3J,X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$I.X ?88=<P$-*($/$4;I%%F%N%B*M$3A*C$-*8$/$4;I%%F%N%B*Z$3B*P$-+B$/$4;I%%F%N%B*+	?D	*.I%%F%N*.$3C*]$-+P$/$4$1, %N%B*:$3D*1$-+]$/$4;I%%F%N%B<H+H$3E*=$4%C%B+O$3F+H$4;I%%D%N%B<H+Z$3G+H$4	>I%%F61+$3H+Z%N%B<H+*$3I+Z
4;K=XB$;$?%C;%E0A880B/;$3J+*F>(E8M Y"$4;K?XB$;$?%C:A%E0A880B;%E*U;%E$3K*$4;K>XBI%%F	=F %B*]<H%N$;$?:A%E0A880B;%E$3L*U;%E$4;K<XBI%%F	=F;%B*8<H%N$;$?:A%E88;%EIUXB,5;%E$3M*0$2K;X!I5X\I^$0$1,
$-+=H![Z$-$-,J$/$4$1,"$1+-H![&$1$1+1P!P!L!> +U$1, ,5H IP<(%)X -OM9:%-IL,	GGY"F.FP$2X H,> *XHQ?H*M$1))$-)),5$-(7$-)E$-)V%QA&>(*S*$K?X^IPXBH,X
$;$?;%E1Y0A:AI\XZHZXYHVX\HY$.P\<H*8PYI<HY> *+I\XY*+$1, P H,> +B%QA&>(+LPZI<HZ> *	*$0B1ZIUXB;I%$.$-)9$1)9H,> +Z$-*B$1*BH %O$1,]$-,]$1*F$-*FHV8!%O$1,]$-,]$1*R$-*R,5IB$6XTHU$6/-J\MIAXNLN<(+&$6+:6($2I2X^HVX\8A^> *NK?$.P\<H*RK>$.P\*I$1, P^*C,5$2HVX\I $.P\<H*I\
.P\*Z$1,
: Z;J;X\I\$0K=$.$1,
I,J;Z;: J;8!HV?(*	$1, ,5$2I,X^HVI%?H+EHV<HI<X\I
$.IX$.I$$.P\<H+TI^$.P\+G$1, P^*?,5$2I\XYI7X\HY$0$1, PYI<HY> +\,5HUUHVUHWUHX>(/(H=
HXU/(IP80!+90&:AXAU*S>%QV &;*K+D.[X-O97PM;<^W^&.I>J". X8
!+=Z)B%M:IYCC<-CO0%AQ-MH*+2>I</H::6;:R:AT\.,<36<H$O1)$WME;I.JX[>\\^0!U$RZDB5]V?UMN-4<58EA:W.A8G7/B<Q"QN U]B$O1
$D-7TS.+[B&*EH)MR%ADLM	LIF+Z>W;J
^,B3X]7C]1.)CG[E<YGN?O2$"B6QM0KPOHA&>FN2K=3;^ C8A^M1P8M> K  \PL%KB"?4LB X<*TDM(\Y
Y7+>Q0X>J 
-<*(A3DQA!(U;RP5/)(SL8RBW<C5Y%C\TD)*B&MAP$L)WQES*!K^GGUN]PE)N	R>M?P
ZHWJ4>-;5??$V!*PVH\VS2F=E+G;[3M S-5H"*87"!DN$4ML][R	,NZT,>(/SL5,	4R5%B1ST\)IC^D/EVY9/6C9ZK4FS-^HX&+V.T75^$W&&*I%K(&)60-XCE1G(IND
;7Y]FP*LU7*NF$LAL(\OLXI?6C$ASLJXR
>KN"95>*[KQ&6F,2;\=,A$
R%U&A*8K-7"R=DU&EID;S",U:QT\>\.0CT<*1KIF)=1G[REE^-H>:Y;7CLT.*D*77(RT%1%$"K8MC<SDYZ>	[N2DA9M	N^98OG"50V<FO!$Y%OF3B&F%0U8N/$PQF,6?.?,0BUV"G)X	3^ HU+2/,?  /P%XUK9VTB,	D&V%V]6P>>OP$Z"JY[R&04!*$*.5;2OX()C*E"MPKSS?IU.DH\[F[8+-N< FA%M\?)?] Y D<
T=^+8<	8MCL"K62!803P0)!55B* JV/K
(H?+UOO(;3=1!8)2F9?K"V,Q:=*L1KK".E -?3],EP]-O85WXYC?8.(HO5WPE?Z;F(NP3R\W\>?PPWM
OJW9Z*DFGMW[ZF?=%(6"\USRR58I,[&Z "&E9-VC,Q7Q;050O0LP%X8KZF/N+XH[&[&HJ	2H)W5I=K3	L.5\,P7,
PZM(?	?P?DPRM2ZYW2995:B;RSDI?>K+ZG2O9[Z"R?!Y5E*$::;1R[1S9(Z9R]N4	69=VXN/CO,D8Z5V?1H59I.*G72Q6<SCVP4)LF?M]\3/-\CP=]W4GEB).3/!9UI!5QN>U$R-D
%7"*((N!OZDE:&/)0A4%R14E1]5 YM^^406DMQ<O7 = GXAVIN/C NQ"P\XG;EB!-1G"4HZ&7U]=/8-G$U.-=DII.ZE31!B5E9M7\"](	?\TQ.5;KOF8-	!]F
4H	*SFE=NH.+">1;(>0KD"ET7ZS6,YJ^:C4!	UA88%R:1
):VQ2X\7<5HNZQ34 /]3C%1$(X^5SOTIJ<R8QD(4\14$$>< NQYPBHHW"97	G=*H+\O%W8F)!> *L-(NRXPI8IS"8V7MP?E(XXKOF$^]7A>2
>("R\Q	AE-(HE[$*)GN%?R;$,N1SZ$9>S/H;U?LA)1F^3(V"VT1)RA )MB
KWKVRVLF!!8! 56Y?>)[E77A0I6O/W&U)RC/UT"JI/O[(42W90[	+F>!;;[CI.X\ITX!$:*G$=A%\!I8L!>(*GI4L!>(*,I<L!>(*/I1L!>(.KC>(*!I$%M[CL!%A$>*$P!P\*G$-,*A$-,%*A: H\X\K?H\?H*C: H!X!KC> *>I$%ML!%M: [C*GPAX> -JH[AW/HX[K>H[?H-JK=H[?-JH[C</PVAVFVIVLVOVTVWVZV
V)V1V;WE	?>!P$$Z8]V 1;L:32.=	GG??]=DO?F?PDDGLHJJWJ<KYLNPP,RRJ??R&TT(T?,>-I-W-&-1.B.O. .-.>/I/[/-/?+MAINDEC-08-DILAC-B+LA180 PRINTER DIAGNOSTIC+;+ COLUMNS = +SELECT TEST   +SWR =    NEW = WAITING, TYPE SPACE TO CONTINUE+;;TEST NUMBER    COLUMNS;+TEST  ,  P
=,  ERROR ,  ;END OF PASS  PRINT SPEED MANUAL TIMING+PUT SWITCH 4 UP TO START TIMING+PUT SWITCH 4 DOWN AT END OF 1 MINUTE+NO METHOD OF TIMING AVAILABLE++PRINT SPEED IS APPROX   LINES/MINUTE , WITH   CHARS/LINE+;NO CONSOLE TERMINAL;CHAR = TURN POWER OFF & 
ET OFF LINE+OK, TURN POWER ON+OK, SET PRINTER TO ON-LINE+OK, TRY PAPER OUT SWITCH+OK, RESTORE PRINTER TO ON-LINE+-----  INCH FORM FEED -----:SET FORM FEED SWITCH TO    INCHES & DEPRESS TOF RESET SWITCH+   :;+!+?+^U+ 3 3.5 4 5.5 6  7  8 8.511 12 14 READY S
T, POWER OFFREADY SET, PRINTER OFF LINEREADY CLEAR, PRINTER ON LINEREADY SET, PAPER OUTREADY NOT SET AFTER ERROR CLEAREDPCLF DID NOT CLEAR READYREADY DID NOT SET AFTER CHAR LOADPCLP DID NOT CLEAR READYREADY DID NOT SET AFTER CHAR LOADUNEXPECTED INTERRUPTI
TER - READY CLEAR, ENABLED & IONNO INTER - READY SET, ENABLED & IONINTER - READY SET, ENABLED BUT IOFPRINTER NOT READY;$Y.H>$-Q.*K;I,Y3$.$ >H*[Y:I+Y3$.$ $]$^
<"3;A$+; Y+IY/I$)$$$*M/Y.I/9H>X: Y3I3]/I=IF$(H>$-;I.]/I/Y:$.$ >H+FI/I*>(+EQ/*&$]$^ ^"3/J"DATA<DATAK8E,SWAP,OS8SUPJ\??DIR FPCHEK.PA/HS/HSOCK,RX01,HTEST; Y+IY.;A$+I.Y/$$I=IF$($); X; Y3H>$-$.$ >H*>Q/*L;A$+; IY/;XY3$$$)IVI=$(H>$-$.$ >H*>Q/*^IGY0; X$)H>$-$.$ >
*>Q0*0Q.*D$]$^""3/BC; Y+IY.;A$+I.Y/$$H?I=IF$($); X; Y3H>$-$.$ >H+<Q/+P$*I!Y/;XY3$)H>$-$.$ >H+<Q/+ IGY0; X$)H>$-$.$ >H+<Q0+.Q.+G$]$^C"3;AXTENSIONBAD SWITCH OPTIONCOMMAND TOO LONGI/O ERROR TRYING TO RECALLSWITCH NOT ALLOWED HEREBAD CCL SWITCHNONEBAD RECOLLE
TIONBAD DEVICECONTRADICTORY SWITCHESOS/8 VERSION  3  (CCL VERSION D)EDITBOOTFORTF4BITMAPSRCCOMBCOMPPA:G7+ZSK(0\K?>(0Y*N2C/(7-*FJS7).D9X7+*T7*.S.:*!DB:J\ZX9V9V8DZ[2LJL[R;XNXCKK>[F8VZNX8DC(8!ZCRXNXZARXNX9FZBRXJ>(+DJCC=> +GTRBJ"D2INA"S^ARA8RC*>J>(TRX2K.X7Q;&
2JJ["D[39PJB<XS3K<=+]8TK;"S:K3"S>K0"D7,/T7/S2+W9X+R?=A;Z/-?>?2A=[[?3?2AA=

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