File KALEND.SV (save files (Executable program)

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

?>2C\ZPH
SUBSZGJG=H8 ZI;$JPXHJOZ[8O?ZLLHC>>(*	LHZ;LHZA: ZFLH[RLHZLHZBLHZCJO[XLHZDHH8AZPZERF+Q: 8NA=H+/<(+NZKK=ZJ9DZHJI9DZI<XJKJHRJ+D=H+/ZE: <BN=H+/JEZE8JB^DRDJE=H+/8!JL?(+/JG?HJE9DJEJC^D;VJO[-8.P: [AK2I^MH02OP0C43*4[?4AG$GPH^ <B,F>>G2I<<JK2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[F>!I>C\6AB$BJBM>E?AC^B<BBB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DI?2IW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AK2IB2*-B8N5R52I.JGJ+Z4J,Z5*7G:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2I
<"[]"[V:AZ3
;KU
:  IEOJ3R39HKVXG8LG<X+$8J8J8JC92I/W P%<		S&>JA?BZ?NJ2EAT1FMR=XS	?	>D+?QD ?RE&?TD]?WEB?XD-?YD? DADT2I
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2IO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2IO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2IO%
3*	<[%*DC*X0P\JYB3SWJO	?YJ
P?8?/P]B)N*CW	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AG2IB*K8	: [JK8	:*:	?	>Z[O==: 2IO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2IW>*<2IO=8!<H:I== 	6R[* *I:K8	:*12IO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/S/L\HPQ+&.LPHNXN+]PPLP\H Q%MO.OEE%0-JOE?;MPLN %<HO?8 [N[K [L8 [L8 2I
>:SN<H*7	=	<H ?RH2? HM?UHM?SHK?;H6BO[M [AM2IC/ [AN2IC,KM [O [AP2IC,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2IW>K92I
:SM+]/88 2IW>+\[K+Y [AM2IC/SK+U+]	; [AQ2IA>/7PQ+Y/SVL8F?/%S%2ALP8!2IO1/%	<>6G?<X&\]JF RE PQZN*J8MOE%	?2IO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92IO8 [R.O"
I?>(	7.Y2IO>> *-:J2> **"8*$Z22I.
K6"OK5"O.
R2K=C42I.8:J2> *4;Z2IO8 [RC3K2<(*3K19K:<P*9*4LP[O	5	5Z2ALI	32ALI	*	1	1.0XH2ALH< K)<(/[K(2I$[+]IBZ=&!H[02G3?2?3D2B>-?3A???J?MNB!B A? CW B2PW	?/> [AS2IA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AM2IC/SP*RQ [AN2IC,K:2I
=2IO9K8>(KP8!I==8 	7 [AP2IC,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2I.2IO=K;?H %<H/Q;$	7: KP[P+R/V FILES IN  BLOCKS - ":"6GH?<RQQZ?:B)PD/4 PHP [LR)*HRL  CI?J(*XG> *[: Z)JKZS8NLY>RLNLY?2I.RL;X 7NKDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2IN*R*<(*?KD>(*>R**3[D2IN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2I/*	;JO0OPQRJ?FHSY=2IO?<(.	>BR?(J?7R&?8JK?:F"?;FA??P-BR2IW=.W
?.HS<(:A2I.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AT2IC/SY+]2I/Z:2IO58 [Y+-K4	8SY++	:*C<		*E%? J8JO?NB2JYD
N*B)I=8 2I
?8 Z=8 2I
>XS2IW?<H*[	=	<RY? RJ?URJ?SRGBMW*JHSR=/;2IW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2IW> [AG2IB*XS [JC*2I\U8 HUXUR=HS< *5I=2I
7I=8 J=K6	5PU2ILU=H*$K4	3+OXTHS9FHS8DHTXS2I/W2IO%
3*	<[%*DC*X0P\JYJO0GSDE%?<PNION*J8MOINV5]NVWF\JEZNJFZO;X*PTNZEJNZS8NOROXG: NOROXHJM2I
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2I
=&C+%HG[/.< JEC-2I
>.2I
<.2I
;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQWEP](HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5]N])HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*\]JF C ?8GC?RQPDJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*DJXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX D2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  XDK[[K\[$ [AS2IK[Z<;VK\Z=*> [AK2IX:;(+S>-?3A???J?MNB!]N?==4V\RQPV5]N\VWFZ;](ZHDJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  M$IVZDJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX
DXX	;SA+VHXXPHYXQHZXR&D  T [AK2IZ9;(2I
:+0PV*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.DJSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	D9=H81XQXPXR8HXVK>XW2I
=	<  ODJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFLD2IO8< K72I
8  [:2IO([^S(O([
 [AK2I]\;(+$/* PT[TOTNWFWEBOUSUBSZGJG=H8 ZI;$JPXHJOZ[8O?ZLLHC>>(*	LHZ;LHZA: ZFLH[RLHZLHZBLHZCJO[XLHZDHH8AZPZERF+Q: 8NA=H+/<(+NZKK=ZJ9DZHJI9DZI<XJKJHRJ+D=H+/ZE: <BN=H+/JEZE8JB^DRDJE=H+/8!JL?(+/JG?HJE9DJEJC^D;VJO[-8.P: [AK2I^MH02OP0C43*4[?4AG$GPH^ <B,F>>G2A
<JK2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[F>2J%LI,)X)2LIJYC2C-EB[KTB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DN2A2A2I2I2A2A2I2A2A2I2A2A2A2I2I2I2I2I2A2I2I2A2I2I2I2I2I2I2A2A2A\Z4[B+NK7\0F^O:):FB4;-6K<
ZHXX\%TNX2C\6Z;7"TE\SX<Y[U2]^<<Q<2?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%:9F8FA52I2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8F
FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<L SYNT2I
POP
ROP2A8 Z(: J(>(*SJ(")";: J(*H:A")	Q!W/S	Q"AD(/S")KT
UKX
WK(
V2K.AH 9F8DKYXHHHX\HHX!HHX	HHX.HHX3HHX8.)HPKZXIHIXJK[XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;$C$0A?&?%?$2K2AZ?^2I
&S&S	+];$
)2A/%B+>	^=0FORTRLTMPT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:B*R&*M",J	?H*OJ)X<K?
>J*C2K.J(X<J+*LR	* ",J&?H*"J)X=K=
>J*C2K.SJ(X=J+*
????HRS?M?2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,
3O38!
22A/CCB2AO1C0<(/J9J8H8 [ZO18D?H8AKZ//?<
HP
/UA%<(/
H>A%H>7/
HUUHVUHWUC\8??555	L=/PO?W?TAHAP>F2=VFMBAD
(AH0XOL1X!H!%LPOLO	>J!Z!P!*KJ!9F8FH(2J$RC\+7H(2J$RD\A+7H0XO$ZM78D8 ?PJY[0,LO[/;XLO[.K/8D?X+WK./> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59HTOO FEW ARGSF28 A,>(.HH+X[%CORE IMAGE ER
M78H:HR?X.X2J$RIH?XR.X%A% NOT FOUNDF?]7%(2J$RK.-F5GAO>(.4*M%NO!!L!]VH&>(%BOR
"OR8A[$HV]WHV[4LM\NSS+L/Q=TF.W1+\K$
20!+X/[?/O0[S0O0["	4?	?9H4+,K"5K$[$S0+T2J	3G<D<?2?>G9J8J8JC?<(K?8A9H/5


\
^
^

^
^

IFFFIMIMMHIFMKPINHNIFFPNNPGANAIGAFIPNMKGIFIFIIFHNI 1 2 3 4 5 6 7 8 91011121314151617181920212223242526272829303132?6O^RAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXT$$$ $$ 
$$  $ $$$ $ $  $$    $$$ $$  $ $ $    $$  $    $    $$$$  JANUAR    FEBRUAR  MAERZ       APRIL      MAI     JUNI        JULI     AUGUST  SEPTEMBER  OKTOBER   NOVEMBER  DEZEMBER,A^L[V,B\K1R.,B\K4R/,B\K3R0,B\K2R10CWRITE,B[\30SH,A\NR2,A^M\6,A^N
Z,C\NUMSEKZ,B\N1R3,B\N2R4,B\N3R5,B\N4R6,B[\40SN,C\LINSEN/,A^O^(,A^P^6,A^Q
D,A^R
R,B[\50VD,A^S
),A^T(	GIB DAS JAHR AN: 	,I4)(	1	,////)(20X,4(3X,A4))(	 	,6X,2A5,I5,8X,		,8X,		,6X,2A5,I5,8X,		,/, 	 	,2X,26(	-	),	 	,8X,		,2X,26(	-	),	 	,/, 	    S   M   D   M   D   F   S 	,8X,		,3X, 	S   M   D   M   D   F   S 	)(	 	,7(2X,A2),	 	,8X,		,7(2X,A2),	 	)(1X,
0(		))(1X,3(		,6X,2A5,6X),		,/,1X,3(	 	,20(	-	),1X),		, /,1X,3(	  S  M  D  M  D  F  S 	),		)(3(	 	,7(1X,A2)),	 	)(//)(	AUSGABE AUF (1=TTY:,3=LPT:) :	,I1)8 [A;F;F;F;F;F;F;F;F;F;F [BB2A]>2A\G [AC2AT. [AC2I;F: >(/=;F [BB2A]>2AX; [AC2AR, [AC2I;FO<? +N [D;F [B
2AR,2A];>(: 
: [BE2AR,2A]9>(: 
8 [BE2AR,2A]7> : G88 G:>(/6;FK5XG+?XCLBA,N^MFPX:A$X9DR,.QA8 [BF2A
>2AQL.(K= 7.(\G;F*\;FK<XG [BF2A
>2AQL.(K; 7.(\G;F;F: 2AO:
9;FO9 [AG2A
8
7;F [BE2AV	2A
8
6;FO6 [AG2A
5K4
3O7 [AG2A
5O3O6
3O7 [AH2A
28!O3
3 [BE2AX92A
18!
0;FO0> +WK/O0
0;F2A
.2AW.O.8!K<?H/-;FO08!
,;FK<XG+?H*?=KMX+!	X*?9T-GBX9ZDX)X(A$V	R,\N]C8 [BF2AX*2AQL.( 7.(LG2A
>;F
=2AW=O=8!K<?H+X;F8AO;
;;FO;? : 
:O>8!O;?(: G:>(+D;FK9XGK< [CF2AX*2AX-2AH.(K8XG [BF2AT-2ARL.* 7.*LG 7.(\G;F+V;FK9XGK< [CF2AX*2AX-2AH.(K7 7.(\G;F;F*N;F2AO6O>
: [BE2AX92A!58!
;;F/4;F2AO3 [AG2A!2
1;F+?X.JR,
ZGX+   ILX9T-*X-X,8 [BE2AR,2A>8A
=;F [BE2AX.2A>8A
<;FO; [AG2A>
;;F [BE2AX.2A>8A
:;FO; [AG2A>8A
;;F [BI2AT.2AYH [AC2I;F
92AW9O98!K8?H/7;FK6XGK8 [CF2AX.2AX22AQZ.( 7.(LG2A
5;FK6XGK8 [CF2AX12AX22AQZ.( 7.(LG2A
4;FK6XGK8 [CF2AX02AX22AQZ.( 7.(LG+?OT8X4X32%ZEX2X1X.X0X/J8 %<H
>;FK=XGK< [CF2AX/2AX22AQZ.( 7.(LG2A
;;F [BI2AT.2AYNK:XG8  [BF2AX32AT/$( [AC2IK:XG8  [BF2AX42AT/$6 [AC2IK:XG8  [BF2AX52AT/%D [AC2IK:XG8  [BF2AX62AT/%R [AC2I [AC2I;F/9;F [BI2AT.2A\D [AC2I;FK8K7
6K52AO6
6O68!K4?H/3+?*YMCX*B?="6PX6E2X58;F [BI2AT.2A[B [AC2I;F: O>
=;F8AO>
<;F [BI2AT.2A[IK;XGK:8  [CF2AX32A	92AU
&) [AC2IK;XGK:8  [CF2AX32A	:2AU
&: [AC2IK;XGK:8  [CF2AX*2A	92AU
	K [AC2IK;XGK:8  [CF2AX*2A	:2AU
	\ [AC2IK;XGK:8  [CF2AX42A	92AU
	- [AC2IK;XGK:8 +?ALS*?6LUZ1ABXX4X3X*8 [CF2AX42A)>2AU
(K [AC2I [AC2I;FK=8A
<K;2AO<
<O<8!K:?H/9;FK8O<
7;F [BI2AT.2A[8: O<
62AW6O68!O7?H+DK5XGK: [CF2AX*2AX82AH)A [AC2I*,: 2AO<
62AW6O68!O7?H+8AO4
3K5XGK: [CF2AX92AX82AH)  [AC2I+H: 2AO<
62AW6O68!O7?H/2K>O4
3+?*QX9X*ILX8X3F*W*GX7?9B8K>XGK= [CF2AX92AX82AH*N [AC2I/< [AC2I;F/;;F/:;F [BI2AT.2A[B [AC2I;F8AO9
8;F [BI2AT.2AYVK7XGK68  [CF2A+52A+42AU
*> [AC2IK7XGK68  [CF2A+52A+62AU
+O [AC2I [AC2AV	K7XGK68  [CF2A+42A+42AU
+$ [AC2IK7XGK68 +??:LUAUN2F4T*??PLALBXX2R,%)(U)	*IL8 [CF2A->2A-=2AU
,K [AC2I [AC2AX2 [AC2I;FK<8A
;K:2AO;
;O;8!K9?H+*;FK8O;
7;F [BI2AT.2AZ-: O;
62AW6O68!O7?H+HK5XGK9 [CF2A->2AX82AH-E [AC2I*0: 2AO;
62AW6O68!O7?H+$K5XGK9 [CF2A-42AX82AH-! [AC2I+L [AC2I;F*Y;F [BI2AT.2A[B+?:!TSNILX8X3F*GX7?9BA8 [AC2I;F [BI2AT.2A\D [AC2I;F/?>HT>H^>H(>HAZ>HA$>H<>HAF>HAP>H2>HG5;F [D?=MMMMMMALUB????MMMMMMABUB??LIB8RLM:?!?YMODRLUB??CALENDRLUB?5?3CALENDFTUB?4?6BCOMPSVUB?>PLOT
SBT:?4KREISRLT:?>KAB046ALT2?:KAB000ALUB???;KAB000ABUB??\6;F?MODK?XGJFZNJ;XHNG2A\HRGPG*N;F 70>LG> *
;FZ;F*4;F 70<LGZA 70>LGZBJA [AG2A0BZA [AJ2A0AZ;F;FJ  E;F [D0;:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!TS:!?<OIOERGXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [D.V5T2&4*4L2-213L4A4=5V5V5V5V5V5V5V0
*FHG0V:  R0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==7(BMAB 5ZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2A	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+%C?2ANW>(+V2B2A&X+VB  R2ANY>(+V2BHGB2A&Z+V*JARFFAQF)GK?0&660Z0V0L [L2A^W^Y  A61/>HGR<*6
=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AK2A2AQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565N2FBJ6A???? ERROR AT LOC GG>JKZP8NLZXRL:0NLXHRL8["LH8D<XS"9HZALHZBLHZPLHZXJ[	?2AO8J8J8JQOQS*)JP8J8JKK>[JX8F8DZXJXKS*9K=XG	<;&	<K">(+^  K8DBJJTQ/KC;<(*3K:=HK9K8 [R/QG [U2C.MG0!+$  U[O<X+08J8J8JC32A/(?BAD NUMB A? ?5MBM?
8<H*3<H*WZC2IO?K>> *2SE[8??3:A2C.=> *2O=8A[O2B2A	P*XW*2J5XOKZXN2ALO<(**ZN\N*"[9L?22C.=;  KZA2A.856A6B7"6P6X8"8>8/2J$DBI?: 2A,H8QDIAGSV$DJX>G,FXA9R: 2AO[S[XO: XNO[S[[-2ALO2A\NS-+&/[BOOTBITMAPSRCCOMBCOMPPAL8CA9>	DZAJFZK8NGRGZRNGRGZ)8N)"W  HZ)K?ZC9DZJA9DZA<X
)JRC*[.W<X$IVZD=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  GD:S.S.REJA=HJD<H9HRE+7  JG9?4DJZD8NARAZKNARAZQ8NQ=H8!  \D>DRRRR  ] [AK2A:	;(  GDZQ2I
?
>
=JQ  L:ADZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3:WD(L.H2\B? "L??ARQP

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