File TDINIT.SV (save files (Executable program)

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

??2CFPKH=<C .B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBB<<BZ.=XYXZX[X\I?X
: X X^LKI><(*JI=<HLKX+H+I<<(*4I;9I:>P*!I9H+9PI8>P*9H^I7?*PH^9HH
XQH+A6<X*08F8F8FLQ\QP^*PP *9P
I5*IH^> R. HYWHZWH[WH\>(.=I4!H\W.=WSO<H:OO< +L0!+T,(X+H+8J8J8J!H+!/WA6<(/!I3=HI2I=$V/!+/0!+-0&:I1[,/+O?LLK<(/7%0BAD,(A>GC"%)8 H^H99 H8H^,AH+?4JIJI>RVFUPTR??BNIDSKO?.A2IPH2KHXXYHY<(H"XXI*,5E!K6BMHB88B.B ? ?GE>G!6AB$BJBM>E?AC^C
BB44H!B*B2<C\B)=WFDB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?;*HH;PJDZ8H[12LK,[*N7=9J>X8AK0[.RN[/RNZDR2C7?9DCG[47?C<K,[?;&[7K17<7>C6> +&7?
2K.
57?9H+A7:> +!K4KG<(+%[4RDK.8!K/[/9P:ZJCK17<	-	->79+H7>9FB!K[<(+]K3> +H7?<XK=8 JD8 <(+8>8+H7>9F>X+AS7+A;+	R9PK17<:X<B.2CEK=?E+?0E1A?=>X+AK19D8CK/<B2B[08H[PK1[/79*F7>B!K,> *FK+?*,7>B69P> /)K>K-KP7<: D: [.O0DS0?S/*^K+9J>XD]DD/*KKKB!JN[.KP
0S0CS/*2K+9J>P*?KPKBNP]/*P7;+F7=:/D7;+L7?/K8 [2K2C.8!9DK2K.[.K28 /P:K.8 9F8F8FP;PK.BN/]C	B3?&LK&/[HY>(H">(+<PY(2%!%- NOT	?PCHT+"	>"4RM"-ZNZS	=^J+$	?>J+$JNK<ZNJNZSJNK;?H*K	?BH+$	=BH+$"4S]"-.,H0Z0Y*/0^:.-VN4[UR4OU9J8J8JBOUBSU*9C:[TKT<(/BK9<(VK8<(.4K7=HK6K5\
BK4\K3\/V0&0!+^:/\<B+""4TL*FH!> HU>(-3I	HOXZ;VX^K?%QBJBMB
A ? ?!?*^BDTYB	>BB</=O<K;> +-K:TKM<	K:TK\=02QK9TL>2IK9T<>HOK8[+O+Z"K9T<B>HO> *1	7"P<6/?	7!<6/?HOK6[+O+Z9N9R9T<B<P	7C L/?K:TK+!4K:TUW6	7 L/?	7"</?/S>E[,2LK	[$2A: OTXIST: OTXHSTLI82A\H82AS,+"/T	5T/4+3IQ$6XTFFF4J>GR>?1^P=0UMBRBJBJ8?MJ,Z&79*B7>B2J-> *B7?J$> *
79*M7>B2J.> *M"	"	"	2I"	^&R&*XRJJ/ZWR0*7<2C.1>T>S>7;*(7?.	>?*?&2Q?>>E?D8%?/2ANN2I^ORN8RO8RP*2C7<.M>E<W>	>($S/E>G>G>G>L"H"HH "H"HHPPHPX&Y/S-T P&D&E T"T5D0&:H:[7/6,4;&[7K47<2C7?9DB
[57?[6*&ZJ
[879*P7>B*K9> *PK6?*;7>CF> +P[>J	K47<: U: [:NUR?S8*	U+UU7:> +P2CK5J
<(+Y[5*)[[[B*JX[:[^N RCS8+A[ [BX +*1;2CS7*.+Z7;+V7= /U7;+\7?/[8 [;K;C:8!9DK;K:[:/ K:9&8F8F K:BX/+?& ERROR"G([>B2K*7;*PC8;PJLZG8HZL2LK
[]NG7=BKK
[VRGNG[-RGNG9D[,RG2SJL
*A7?8H*.K-K [-S,9P:ZJNJL7<7;*27?7;*57?79*87>9FC!KK<(+MK"> *87?<XJJ8 K,8 <(+S>8*87>9F>X*.2R+P>X*.K-<B2R*MRGJL7<:X<B.G2CBC<?0?4+M2J	,?(?)?*?+?,?-	.<B+:"GC8]<B2C0"/=
"G([>B2K*7;*P82A;PJLZG8H[]2LJ5[VNG7=BJJKZ(J(Z-RGNG[)RGNG9D[\RG2A2:.8<BO+2:.	<B
+2:.,;2:SX.72C+S<E=*2:+T2:.97;*?7?2:.>8 [(K(C[8!9DK(K[[[K(9 2:/DRGK]7<:X<B.G/0HP>>APAL8BN?(?)?*?+?,?-	.<B+:"GC8]<B2C0"/=O]NP	?RF.EF(SYSTEM ERROR?TAPE COPY
DISMOUNT TAPE ON UNIT 0 AND SAVE IT
PUT OS8 SYSTEM TAPE ON UNIT 1
PUT A CERTIFIED TAPE ON UNIT 0 WRITE ENABLED
STRIKE A CHARACTER TO CONTINUE?REMOVE AND SAVE TAPE ON UNIT 1
STRIKE A CHARACTER TO CONTINUE?F4HGF4NOT ORIGINAL OS8 TAPE?COPY ERROR. RESTARTING.?29O?K>> *&2A	=T6:AXO2A.Y2QJ
<O<8!J2A>(*3	=UD<B*1	=T>*8K ROM SYSTEM?12K SYSTEM?NEED ROM OR 12K?	=UP<BFATAL IO ERR>DAH*H*LBCJ&%;<H+2S7+.: [7+0H]	8%<+&S7<H/	8+2V0V<?9.>F4HG=C%Z*8:A%7X!%K*
;&M 2\NH&8!\NL(AU<(*18!ML> %NMO9!HN>X*];&M MO]OL(AU<(-6%ZMOX$H!8!\$P$P$9PH!L$<0-J\$":IXD(\(<HI-%NU<-6I XOM!X	LO>(+M;&%TLO> +^IIM 2U!P+*;LO<(+\X"HOX!P	<H.:LO> +BLOH"\!;$+IP	*?.:I4XH%09I<>P\!%7>(+/IXD(\(P+-HHOXM;$HMXNLO\MHOIG> +8/2?>

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