File TDDIAG.SV (save files (Executable program)

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

??2CBP
=MM4DDHLMM4TDY(MM4[TNN8GDKXNN8WDY4NN8!H,4NN8/L4 NO<CDXOO<KOPPDPEG0PDPPH
PDP"H	,PDPH5DXRDRHIDK\RDRH!+HTDTPHK UDUTJDPHUDVXEF0VDVXNH]DVDVX,0DWDW\PTX^D^8GM<^D^8PHZH^D^8RH 0^H D.J0!H"HAHCX"EED RATE PER SEC. = LINES PER MIN.=AN UNEXPECTED INTERRUPT OCCURED--OTHER THAN THE LS8AN UNWANTED INTERRUPT OCCUREDWEDGE PATTERN PRINT TESTCHAR
CTER 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 TEST6
X1 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%%%	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 FLAG COUNTER FLIP/FLOP NOT PROPERLY CLEAREDTIMING ERROR SKIP INSTRUCTION AND LOGICTIMING ERROR ALWAYS SET OR SDST ALWAYS SKIPSTIMING ERROR DOES NOT SET IN READ MODE OR SDST DOES N
T SKIPTIMING ERROR CLEARED BY SDSTTIMING ERROR NOT CLEARED BY CAFTIMIN.=AN UNEXPECTED INTERRUPT OCCURED--OTHER THAN THE LS8AN UNWANTED INTERRUPT OCCUREDWEDGE PATTERN PRINT TESTCHARACTER PRINT TEST"OVER-PRINT" TESTSELECT A "PROCESSOR SELECTION SWITCH" IN S
ITCHES 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 LINE
RINTER 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, 
61%%%	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[7NL

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