File CALC1.SV (save files (Executable program)

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

?>2KC GHW+8?;PIPSV0P?7EDITSV0P?7PAL8SV0P?2FORTSV0P?	SABRSV0P?)LOADERSV0P?5LIB8RL0P?"CONFIG030P>GLTAPERLD[???<SACPACSVD[?<JUNKSV?0CALC1SV?0?.TESTSASVD[?0APMOVESVD[?-?7JUNKFT??4JOFFT?9JUNFT?=?<CALC1FT?=ZAJFZK8NGRGZRNGRGZ)8N)"W  FZ)K?ZC9DZJA9DZA<XJ)JRC*[.W,X
IVZ=*/RB8!ZAJ)Z28N*R*Z9N*R*ZF8NF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  E:S-S-REJA=HJD<H9HRE+6  KSR*MBJ23?4$GPH^ <B,F>>G2IC)JF2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[GE!6AB$BJBM>E?AC^C
BB44H!B(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?PTPL8 [A [BB2IC>2IC2 [AC2ICH [AC2I+:(	THETA=	,F4.2)[KSKKK+?A88!K>?H/= [BB2IE<2IDS [AC2ICL [AC2I* (	INITIAL POSITION=	,I2) [BB2IE<2ID/ [AC2ICM [AC2I*4(	N=	,I3)2I
;2IW;O;8!K:?H+O8  [BD2ICN2IBK0 [AE2IC] [AF2IK08*68  [BD2ICL2IBK0 [AE2ICZ [AF2IK0
92IW9O98!O8?H/78  [BD2IE<2IB$K08 +?JVH2X2JV$"//J7CMCOLCNAK^D8 [BD2IG>2IBK2 [AE2ICH [AG2ICW [H [AE2ICZ [AI2ICP [AJ2IK2 [AK2ICP [AI2ICP8  [BD2IG=2IBK4 [AJ2IK4 [AK2ICH [AG2ICW [AE2ICP [AF2IK08  [BD2IG<2IB$K08  [BD2IG<2IBK2 [AE2ICH [AG2ICW [H [AE2ICZ [AI2ICP 
AJ2IK2 [AK2ICP [AI2ICP8  [BD2IG;2IBK4+?Y]Q[QXKLBA8 [AJ2IK4 [AK2ICH [AG2ICW [AE2ICP [AF2IK08A8!K>
=2IW=O=8!K<?H/;8  [BD2ICN2IB$K08A8!O=
:8  [BD2ICV2IBK2 [AJ2IK2 [AK2ICH [AG2ICW [AI2ICP8  [BD2ICN2IBK4 [AE2ICZ [AL2ICH [AI2ICS [AJ2IK4 [AK2ICS [AE2ICP [AI2ICP8AO=
:8  [BD2ICV2IBL [AJ2IL+?/%+4ATCVJRKCNB8 [AK2ICH [AG2ICW [AE2ICP [AF2IK08/>2I
=2IW=O=8!K<?H*58  [BD2ICN2IBK08  [BD2ICN2IB$K2 [AJ2IK2 [AF2IK08*T8/; [BM2IK:2IKW
=2IW=O=8!K<?H+R8  [BD2ICN2IBKO [AC2I*> [AC2I+\(12F4.2)8/9 [BM2IK:2IK) [AC2I++(/)/8 [N [N+?+6CC;AE LCNHX8>(.	1H8<(.8![-: H%XJIB> *RII9HH88![2K2H?I4X5H89DH%[28A<HP5I:K2[22AO2[.S2O2[/2I: K.> *9$^5D$.$^[/S-*
P5.$Z[/HA%>(+M$^5DK.M> 8AHB[/$.$^[/A*5H5[0Q*5[PHF9!8AHG>X-?I9HFXFHFXI2AK/\IK0\IK.M>(++8A\F8 HFXF2I/QBHXI;	DAQF8$&,\YTITA0>(I2I4IT/?K"<H*E 7JF\GK>2I
=K>
<8A8!
;8A
:8A
9K8
7K6
5K4
3 [BC2IG22IF: [AD2ID [AD2IDA [AD2IDB [AD2IDC [AD2IDD [AD2IBM [AD2I*=(6I4)2IO18!K0 [AE2IG/2I
.2IO- [AE2IG/8!2IO.
,2IO-2IO,
+2IO12IO,
*2IO12IO.
)2IO12IO+
(		+?0PBEBDBCBBBDBBABG?DAABJ(BKJBIBVBOBGBFBNBH
P8$GPH^ <B,F>>G2AC)JF2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EBHNOB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2I2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2AC &[H+TK,2ZN^ ;^^U"6 FZEH4)[(K*)+,,
"%$C"S
A
 [1)!,*F,Q?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,,%\OK&/[HY>(2J	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+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM92AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AO2AH2*-H8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  MKOJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%%MXTHU%M/.K\M?TP2KAT1FMX=XS	?	>J+?QJ ?RK&?TJ]?WKB?XJ-?YJ? JAJT2A
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2AO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2AO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2AO%
3*	<[%*HWSHX>(/	H;PYH3YWPO	?YP
V?8?/V]H)T*IW	?	>O=
?
=: Z[K<*	K;	:O??H;$K9	:O?=H8! [AP2AH*K8	: [QK8	:*:	?	>Z[O==: 2AO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2AW>*<2AO=8!<H:I== 	6R[* *I:K8	:*12AO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/S W%SO.UEK%0-POE?;SPRT %<HO?8 [J[G [R8 [H8 2A
>:SJ<H*7	=	<N ?RN2? NM?UNM?SNK?;N6HO[I [AK2AI/ [AI2AI,KI [S [AE2AI,SG*MSH.
[G*M: [ISH*<I=<HKG8 	;W>;X2IO:
:SI+Y/98 2AW>+X[G+U [AK2AI/SG+Q+Y	; [AF2AA>/8CRCOCBCACBCICLCICTCICECSXRHQ8DXQBMBLBJB BI??N/N/N>L XEPWZT*P8SOK%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [T.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [TC3K2<(*3K19K:<P*9*4RTR[3ZJHLT<BX)IF3[X+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0BXJION0A\JJM>-?3A???J?MTH!B A? IW H2VW	?/> [AJ2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AK2AI/SP*RQ [AI2AI,K:2I
=2AO9K8>(KP8!I==8 	7 [AE2AI,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+RL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZGH?<RQWZ?:H)PD/4 PNV [RR)*HRL  CI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 7TKDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2AN*R*<(*?KD>(*>R**3[D2AN*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
;2A/*^IPO0OPQRJ?FHSY=2AO?<(.	>HR?(P?7X&?8PK?:L"?;LA??V-HR2AW=.W
?.HS<(:A2A.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AG2AI/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C%=/3YZ*K%? P8PO?TH2PYJ
T*H)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<XY? XJ?UXJ?SXGHMW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AP2AH*XS [QI*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W)+U%=HW+Y%%): X]/7PU?&;1O>S1=HB<PO0MSDK%?<VTOKT*P8SOOJ\5N\]F"JEZNJFZO;X*PZNZEJNZS8NOROXG: NOROXHJM2A
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2A
=&C+&HG[.-JEC,2I
>-2I
<-2I
;: [,;VJN[*ZE8.O??8LH/-K1ZNK2ZO;([,*P?&RQ]EP(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5N)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*?0BZ8M9GA?8GC?RQPJZD8NARAZNNAXGJZUJAZV8LGPGZ<: LG*
JUZY8NVRVZ<: NVXH2IO?";2I
?O>";2I
>O=";2I
=RV;VJUZ90\C<K;>(0Y*9 [N8.V8\H.;&IX 2IO?	:XP2IO>XQHWK9=+0K;XT	8PT+PHV8DHQ<X8!XV2I
?
>
=HV  VK [(K![) [AJ2IK [A;VK![B+C [AO2A^?;(+X"J60N=4\\?=A?RQP\5N"\]F FJE2A
?JFZM8NGRGXG: NGRGXH&C*\HVHXXVHWHYK>XWHPXXHQXYHRXZXPK=Z8&AHX8HXXHY8HXYHZ8HXZ<X&R8*	&D  K$IVZJ;Z?8N<R<XG: N<R<XH&C+0HVHXXVHY8!HWK<XWXZK;Z8;XSHP?H+Z&B&HZ8DXZHY8DXYHX8DXX	:R8+THXXPHYXQHZXR	9  G [AO2A 9;(2I
8+.P]F\*?A??%=?(K?ZQ;&ZR2ANQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2A
=	<  SJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2A
=/N/VFL2IO8< K72I
8  H:2AO([^S(O([
 [AO2A\;(+$&Z PZ[ZOZN]F]EBOUOIOERXGHG8F8F8DBJUZRJJ0\J5>(0Y8 [N.V	T$&&*&L$-$1$6&A&=	V	V	V	V	V	V	V0Q*FHG0V:  T0Y*F;Z*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2A	([.K-8!9HK*ZR2IK.<X+Z8F8F8F<HNR^R: K-[-+EK-K.9HK*2I	(K+*+)	BMAB 	Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z
Z&Z*Z&Z*Z&Z*ZC?2ANW>(+V2B2A&X+VB  T2ANY>(+V2BHGB2A&Z+V*JARFFAQF)K?0&660Z0V0L [R2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AO2A$AQRSTUVWXYZC G]BPO3456789:=LE?^
M*]V-./012ADJI[<F!"$%&	();N\HK>=3=6565N$FBJ(A???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2AO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  O8DBJJTP/JC<<(*2K;=HK:K9 [T/P [Y2C.M0!+  Y["O"<X+/8J8J8JC22A/	?<^8D8Z<^8;94B A?
?	MBM?<ZAJFZK8NGRGZRNGRGZ)8N)"W  [Z)K?ZC9DZJA9DZA<XJ)JRC*[.W,X$IVZ=*/RB8!ZAJ)Z28N*R*Z9N*R*ZF8NF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  P:S-S-REJA=HJD<H9HRE+6  Q AKZK1H?4JZD8NARAZKNARAZQ8NQ=H8!  Z>DRRRR  \ [AO
A*	;(  PZQ2I
?
>
=JQ  R*AZ0J0=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*W[(BZ=&C?<9?>??ARQPZAJFZK8NGRGZRNGRGZ)8N)"W  FZ)K?ZC9DZJA9DZA<XJ)JRC*[.W,X$IVZ=*/RB8!ZAJ)Z28N*R*Z9N*R*ZF8NF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  E:S-S-REJA=HJD
H9HRE+6  KSR*MBJ23?4

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