File INIT.SV (save files (Executable program)

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

??2CB"PH<,BD*80[,:D:4/H0,I*80\+<!H($?H?L)D08+L$[*$L(SD/L0LD/H:( H+P+=LL \2<A?D+ P>"B"B"B"B"BBZ,A".1R9.;&I.1&;GHIJKMNNPQRSTUVWXYBCDG
AH?8*1XR.3&	()*+,-.7O<B,0?0U*JH2ABA?B 7UCPI7S.J"-*4AGAHAIAJAKALOANAOAPAQARASATAUAVAWAXAYAZA[?<Q!Z9[VQ.NMF,N7E]EKX$ESE??<A;I"M6JDUA0A17?W Y.A5A6NBKOLEL	JEDBFIU3KOJ,%$J-%$"5**&4&.K0&3&4&1"5*Q*X*GK3?H*K/[0&/*K3?H*^K/[0&/J,%$J,%$&2&0K.&3K/&3J+%$*GB:BMBJDDFE+E
E7D3E$: [3[.[/<H%$%%[1K1K4<(+K5<(+$K6<(+%K79PH;<X+(S38[2K.9D9D9D[.K/8F8F]K.[.K/9D9D9DK2[/K1*;R5R5K1%$.5:%!C,*6 ?
??=F0?=?U0!+8,AF/7RSC7UWR")JE"K.6CJJ"K.F6EZ\2TJPZU2A: ^$J(^%2T6MN&6:N	6Q>H<B6R*]6A.K?(?)EEEFC/:N0^&N1^	.)C.C/
?9F8F[GKH[DKGCIKJ%$KG8D8F[GSD*9.3?<GB00Y+LS0^>H=/K0Y/S0\>K\>(,A/S?=0&0!+
:%	/]K*%$K*%$/$B :V1/+V0/+N0[=N1[>/1K=^0K>^1/7F-% M[.%^6CA%
%!GE: J	XMJ	X78AX82I&(*HI*8A< 8A< J)> *RHMX6\6 0%!GN%^6EA%
.>OIA"=PZ+: H4XMLMXNHNJ*=H+BH!=+BH;XNJ+9F8DHNZ+*1;J+.,END WITH ALTMODE
$
SYSTEMLIBRARYOPERATOR PASSWORD? ???7?/?
?

SI
FIP
INIT
TS8
PUTR  ^  *M.-N2.0F;"5&9% KC,A%&J!ZH%^6E%
JHH!=*EKZSKA[D%!N?ZH%!G60Z%%KC> *W: [B%^6C)%
J![N2I	J+E<(KSB,A 0> *<ODKR> *<8AJHZSSDOD?H*R.;PM%!],*RN4G/G=38A[RK/I?Z>%^6E%
%^6CA%
KR[N/K%^6CR%
2S+]K[X1	+%^6CX%
K-[,O,X0$0S,+&!NI7
EXEC DDT LOADED
XZLHJ2UWP\THJ&3MSEX8;&Z"&.H6J$= *ZJ%=H*ZX6R"<H.H89FH88DH6X8%]*Z*F:H[J">(.RH8.NB=GI720R0!*)0"0J0Z2C4T0A->Z&KR&KA=H*5:J&8!2A
B 0.2?1E^BUILD? ;2TH<X1 0OG[P%!%!ZT%L4K^9< K
> +O8FSG/G<.?; 0O*2A
+S*S+S,+ 2C/-K.>G?2>GJR[,JR[-7<JS7679*NJT*M=?FBP.;F-.2.00X-??	3ZK??RB&AJE2ARG^F:JC<(8AX:H:8 XM9&I8XN8AHM\NI28 HM\NI2XN9Z\NPM*$9VH:9FX:H:I4H;!\&L&2IZDKU[TJDH;XNHNJ>(+CHN^DHNZDPM*5<BOT<(+MXNSTOT8!ZST*8^DHM8A2A\	 0.HB6%!M/8A/V
NEW LOGIN MESSAGE? 60 HERTZ POWER? 50 HERTZ ASSUMED
7NB 7EOR7EOU.MFJ= W%].BJH6< JA>(*CRB.B2LH<Z 0NMZ4RMN4<(*8J8J8J"%N4B5<(*"%R4*U.MB5J6<(*/=HH
H^%$.%KG8!%$KH*-??!: H4XMH4X7KEX8I*8KF>(.7*?*F=6=3BJ%%X6H6I*>(+^H6%$HMH8?+.H6\MH6KG> ++KH+KHMX6HM8!H7? +JL6%$: HMXM+JH6SI/I%!])/I^3*M>J3B	R7GSH6 SS7AOR*M6J.1"6Z\%^6CP75J\6R*F2CX0H<^P,0JRJQ*1IWY^T,?3=3? >6L
;%!QX%: H4XMX6$5*]<(*]ZZJZJT?*]H6JU>(*]X6$5*]<(*]Z[J[JV?*]H6JU>(*]X6$5*]<(*]JW=H*]X8JX&S: JZH9X8JY&S: J[H92A]6 0.\MONTH-DAY-YEAR: LMX6H6JU>(+*S!/!: HMXM/!O.S.[3%!%L4K><(+=K?> +2S./.<2?5QZC "?H7	3H!X8	4L7	3P7*Q%!GM,AP8*I%!GM%	*EQZ!J!Z,QZJZ9 "?L78!L7> *,%	P
*!,AL7> *3>D?H*(H7	3	4L7	3	4L7	3%!GM*(: 66KP0&:61+JKOY$+L0!+E%!GM.?S-BK%!Z]%%"H!9PH;<X/
8F8DH</Q"[%!S	%%"X7/ START AT - 6661+/:/-D3E$
LOAD, DUMP, START, ETC? ?ICR<-D<IX;%!Z1%: H4XMX6$5*IX8X7JF",X6$5*IH9X8X7JG",92AH9JE\)8DH8JD\(JB^C 0.H[TH8"=X9H0X8H7<(.,"=H8X88DH0X7.,[SX0KV[U9KS8H[SH0<P+K9KT8HX0SU+CKS8H9.=?42IH:I4X:: \:6A 0/W USER FIELDS - 3MP7LSA"M&J: [WKX[S71=>(K574KY[R7<
[H;74 718F8F>KT8 <XH[H>(<P+JT
ZKW
[KU7<KV74 O[[W71C]74STSS*JKTK\?H.I.7471H C^[T%	75%	KT74[T%	.<P*OI.SR*OJT74%!WJ,A
DECTAPE ERROR? ?;?,?-)A?879+!%	7:?/ 7:[
K
A.> +371C674K574*LX74FC?%	7:?H+3P+4+-7JOM&YGMJXZS%!Z]%L4]ZT%!Z%%%"9F8DJTZT%^%
*<)6CKG:%^6C!%
J"$.ZXRZ,2I^,R,*	 0.$KB
C: KAXMHMXN 0LM2I\NSD*5
 0%!I..-(F$\L&ALOAD EXEC DDT AT START-UP? ;$Z,H4Z$OSZZSS*9F8F8F^Z 0*NZ^ZRZ 0R,+[/S= N$K4>(/SN$R$K)2I/*=3ENABLE ^S FEATURE? CA%&2I&O<H,AZ92L8!J9>(.PJ9<B:.P>?Z&S*B"!READ OR WRITE - FIELD NUMBER - TRACK NUMBER - 
TAPE HR:MIN -  - 2LH<[" 0N9[QR9N9[,K,8F8DCS6MN99JR98H62A
T: 
U.98?(?);&[/6S+Y6Q+"6NC.2A<(OT<(/VS/>H+0KQ[+%^+YHE%![3,A
DISK ERRORN(7HCI"17C2JRI	
Z-[V%!Z6%%"8!<(KW[XZ1 0N12A^1R1*L2C*TJRX1KV9>(9P<PK]K^
YKO<XHZZ1KX8D[X
ZH 768AZ2H;
[KV> +N	\%^SX*7%
+AJ28J?HH;H;
[	\SX+E6AI.74/DP%
J28H>XHZH]J2Z2*0%^6CA+E: [V*I<)?WVWTWUVPXKG
TAPE READ ERROR
WHAT?
PLEASE TRY AGAIN
/UKC*+Z3.1^7.+J5"060YS 	%&%!GP%!G]%&AI%!GT%!G]%&A!%!GX%!G]%&A1JBXMLM<(*$ZLM2I^ 0*[I(K"9F9TZ+%^6E%
	&K	%&K!H3K$9F8FI)[%: 2I
(;&K%
)K

^K%=+GK+[%K*[ K%KS =+G[%: K K^[ 9TS%+P
 +W: 
 S +U%^6EI%
,A:*8?;P?4A [.:(:)B+
<
WRITE ZERO SYSTEM DIRECTORY? 7CKU3VSE.API(JY9F9TZJ%^6C%
JZXMH4XN2ILM 0<(*W\N*P\N.BPP%^6CI%
.[&	Z[^[R[*,A"!CHHAK LOOPQAX?? B0$J	()B0C4J789C1P0Q0REY-?"B"[KMXM2I\MHMKL> +TKIXMH4XN 0LN2I<(+$\M+];T
J8 
K 0%^6EI%
/N3I	NT*M" 6 2JOO7U[RE&,7JOM6 KP3M
S:2TH<X1 071=74J Y$0Z%!S5%J
XMLM<(*[L4>(*XPM*PLMX0,0:%!])*ZE] 0N/J09H;<P*[9F8DH<Z-.!U+=HFLCLBLG&1%^6CQ%
% YE: 2I^3 0%!U!%%"2I^2N29AH!>X*? 0% Y5: 2I^4 0%^6EQ%
% 
,,A/Z^C<4]S<<]R<7PM<-PN<(8<>H<0B<,\<1H
<=X<	ZQ<& !<3RW<)R<;K +ACD.(KD"M&J3DGC2 GW7RD"+612J*I+MCP3R	E7NSI"M6J6JOO+U3N2I7J7SB 7ROMIOT0OPR882B8AK(8AK)[&>X*4O&
,	-O,	.//	0O,
&//K		1
2//80!*>0&:.<J&> +K>X+Q	-	3//O4> 8A
5<P//K**+J$
6O7C+> +]O8
6J$
8O9
:2TJ%
;O<=H/=/>8A$-,-)$930;[*R&%)N-+/I5+-*-Z+(-$*W-3,G-/-C,4CES"O2>(*\K	[*K/"9*NK&[S!.K&> /38 O4[*O48!O59J8!"9/3[%K%8K$[$.8 C$K%*
";
6K!>(*6W6K$J/>K$C0K<XK1<HK$
7.%[)S*9&[+9&[,K([-O*S*8!O-S-> +NS++NO*R9.9S,+BS)*;.9W80Y/9+><X/;O<
4/:K.K 
=/:> /;51?(?:A?B54.]45*;*99!;*R<54A650Z/:8P	9/$0!*D<H2C.I".K??<P/		(O)
*W+/,
-O.
/O.8!O09J8!
1	2* .SO-8F?K]K^	3K!	4O-C"	5.S
-O6
/O68!O.9J8!
1	2*8/7O-	5/7O8K >(/9O:N
%2T8!O%>(+IK
+K8 O;
<
=/>[\	(O)9D9D9D91K\<X/	8!K\/N?<$ =?GB G?9E8H373O.]&%95+$&.E7;4B7=5*7>6:P$<;[4A7^=
/S,4/R/Q*RN 0B>0&	,O->(*P
.
/
0
-"W*OK)
(	,K

1	,/2JV*Q+AO3[(O4=	5?RW.W	6O7	8O9[(O:=H/;	5O(*,K)	,[(K(C+ZWK(8D<X=*88H/<8D8F?+O9BAJWZW<P+MO:	5JWCIKI>(VW?8NWZW	,K(C
K*
=9XK(C
> />O9[!O:	5K!8A^W	,RW8/?"W+&O([)	,/!G3A?3T,G-)-*-,$=.-0-/3O&%9.:-2-1.];T-$%S;S8S-*(*+3T/B3O[):D[*2L[+K0[2K/[1[-8A[,S..C2AO;["O<[K:[$K4ZGK5
<:ASX*(S$*(:0&0!*"[,K"
;K
<&DK19J8H.E&FK5
0J[XKX&FJG
6K7
8KXKL=*8:AJVK1["K1&F9X[1S2?8K,>(K9[XK-> JRK	[K*9HK)+^S28[)K+&FK)/2S28/2  *A(FF,GG0"?0A*M2L&I: 
\
]	^

KV"TKU
 : KW
!KW"T
"KX

$
%/&Z9KYZ"^9R9R"*X.T:KZ			(*EKR90KQ<P*]Z8KQ."	)O*Z9""Z"O+	,J9^"R"R8*2/-<(8A8!
.0!*?.:	/O0	1K[	2I/3O4	/O5	6O5
*/I!?O*/78	!51?9?<B?) 5+$&3I9$&]= 	%=
=^	&0X$<30&%9373O*R-.1]-26::]*J-*-);[<(*1B;.-&1ANDTADHISZPDCAXJMS JMP(:K0	4O5	60Y*Z	7	80^<(*XC/ZTJT<(*UK,<(+DK.<(+FK+<(/:K(=+H:JTK%[O[$K$>(*UKK&=+V:JT	4	;/$	;/<	;/=K*=+O:K	[$+K-=H*2K)<(/>*UK*?+JTK3	?+BK1	4K2	4/]1?N<?]?!?&?/?6?;?=A?BGB0B;^$<373O3T+!(G*T385
2.]:]4+(D:	\5$)? 	W$(?4,;&4*	];	$*$	.+5X</* 3
(;8F8C8E;F(<&<[<.4%<-<8J<A<A<A<A<A<A<A<A<<8L(L9P8B9Q. %C; O9:/BJBMB C KF	:KE	:/IK5[R2A/O[62TOK6/T8H8K8I5	8D8XK7
;	<O=
>/?BL<(/&JI=K8KH	:/&:KG	:/02A?	"$<-/&%9-0*R$\$\$\K08!J=.C[/J[,K,K6[-O,
-S,S/*L.CK0K6[.K1
.S.K2
.S.K3
.S.K+
..UO7[+W8"./98A8A"./:[5O8> K4>(/;K5KHZ8[0"C"U8 K5<(+E?H+HJBK6ZBJAK6ZAJK6Z2T8!O<> ..O=90J<P:O=
=..0Y+X0\>(+Z0Z0Y+^0ZK&
>8 J/?8:0/)86$$?<9"$&. *R.]37/R$=$/: K=[=[<^8K>?*"K=K
[=O=9!K;>P*ZK<9!O=>P*ZO=[<K=[?S>*IK<<(.8!K;> .9&K?&9R.[;O%[=O%8!O&9J8![>"*4.:K<> *<+C;*:P*(;&K?&9K!		K<8!K;	(.:C8F8F8FK$&9O)8F8F>XK 	*	+	,+Y[;K"	*K;":V8///-/\D*B+Z 8/<44A$<;[9:]30:(,(S:O)[;9ZK;:O)<P+F	.//.A*K%K&K	K(K*/-K%K&K	K(K*[
J,Z/O.<P*V:	/O09> 9PK<X	18[!K$> *	K!["K
[ K [
O2	3O!	4[	5K	
	5S$/68PE/7:Q
5J,Z/EO5K"["	8K"	*K 	9K"[!*%K$>8/E	/O2	3K
!	4/EK,JW
:<P/;	/KG<8![$K)Z/	=[!/>7/>B.S"/?6:;[H=G;*&%	!:373O3T30.E*R3I3&=V.]5+."=N	S>X.YNZ8J8H.[[+O+8J8J8J&\O+&\.F"FS+K+"FS+K+"F.P$8-+$/3&ZP[*K,"F.];AK1GV< ;POVC1<X*/R.[+OWC3K+.K+8F8D[+K+C0RF< *?.4K2	XJF>(/["4*?<P/Y	ZOV
4O5
6O5^Z
79X
8	9K.
:/;99!$<.]&%9D[+[*K/ZF"4+!W</=/>8AK-
?/>:P	*/3?<GA?B0>*W37-1--+(.:-$%S.8=N*R8?W%S
*D/&9XK^[^O	C<X*O9F8F8FS O 
 O	C"[]O(9D9D9DK]
(*+K
K"> *!O)*(K$
*W%	+*)
%O,
(8 [
W-/.KZK[K\[
<X	+K
//	+O091O1:O%>8/&O0K![ K!
2S 
 W2+B/3[ <X	4	2O5	 /6O7[]O8	9O]	:G;O<<B/=O7/>!M
*!?<G?D54.]0T	%9"	&&51	"0X.H	*4A30*R&%9. 9!373O3T5+9$	S8<??0Z0LJ[D0Y*IJE*L0I*<K7[^F*P*MF*P[9[8K:K;=*3K<[,][-F*("5<X+.
9S9>K,K-K8*S"58!K8R<(.[8%!] K8.C=.K,9F8F8FK-.50*E"+B<B*>K>[D+ZZ5J[D]K?(+QR58 +GJ5> +HK:C<J> SF/FF*(*T<B+*0^[:K:/]0I+*0N+!?)?)0+^[9*$S:/0SD/0: *++$=C82A+A

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