File ARTIC7.SV (save files (Executable program)

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

?>2CW6LH
%"?;LIB8RL&"?"PIPSV&"?5EDITSV&"?6PAL8SV&"?0FORTSV&"?	SABRSV&"?(LOADERSV&"?4CREFSV&"?3BITMAPSV&"?;SRCCOMSV&"?;DTCOPYSV&"?;EPICSV&"?/FOCAL8BN(J?-NONEAEBN(J?8EAEFPPBN(J?827BFPPBN(J?7TDCOPYSV&"?9BASICSV&K?8BCOMPSV&K?/BLOAD/LN 6,WS3BOS2MFJ+RCG\7K6JKA+G" "1*M3A
R2 	\3FOAT*M^7C2JGC+LCL21&,O7H2JO^2,F +RCG"0*M3TSA. N(2MNJ3A3L* 233SKUS7C6JKA7G2 K*M3A
R. J(2MFJ+RCG3\[I7ASC6M:JD*M3C3A/LF 2,?IH*M+^3D6 KA/GB 6MRJ+ACD"(632JGC+LCL63N,7UOBC*M3A
R2 /\2MFJ+RCG"(636JKA7G2 3IGFC7T$GPH^ <B,F>BMVC<<?4JF2J%LX)2LIJYC2C-EBU^2I2B,
D0U&2I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HGE>G!6AB$BJBM>E?AC^C
BB44B(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?D5KNDEFJJEZNJFZO;X*PBNZEJNZS8NOROXG: 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;([-*PRQEEPK(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5KNK)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*S-	:	
<
=?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX 2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  WK[[K\[$ [AU2IK[Z<;VK\Z=*> [AO2IF:;(+SY]I\A-K>I]Y\H5Y]KN?==4D\RQPD5KNJDEFH;K(HHJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  K$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8
XX	;SA+VHXXPHYXQHZXR&D  L [AO2IH9;(2I
:+0PD*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  SJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  Z:2IO([^S(O([
 [AO2IK\;(+$0Q PB[BOBNEFEEBOUZAJFZK8NGRGZRNGRGZ)8N)"W  GZ)K?ZC9DZJA9DZA<XJ)JRC*[.WNX$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  P:S.S.REJA=HJD<H9HRE+7  Q33+<:?4JZD8NARAZKNARAZQ8N
=H8!  [>DRRRR  \ [AO2IL	;(  P2IR%ZQ2I
?
>
=JQ  RLAZ0J0=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.3LWX;/(7A$
H5A3K>??ARQPOIOER2IUZXGHG8F8F8DBJUZRJJ0\KD>(0Y.V [N.VSTP&R*RLP-P1QLRAR=SVSVSVSVSVSVSV0Q*FHG0V:  T0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==U	BMAB SZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+
C?2ANW>(+V2B2I&X+VB  T2ANY>(+V2BHGB2I&Z+V*JARFFAQF)2AW9K?0&660Z0V0L [R2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JUEHG0!+O0&:/MM*J [AO2IPAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NPFBJTAIOER ERROR AT LOC G2IVU>JKZP2ANLZXRL:0NLXHRLHC[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  OT>8DBJJTP/JUOC<<(*2K;=HK:K9 [T/P []2C.M2IU
0!+  ]["O"<X+/8J8J8JC22I/	?A-K>I]Y\H5Y]B A? ?SMBM?<IOER2AXFKW"7OT<(*Q\HLKX2B2I	V  B [AO2IV"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [TRZ*0KZ*LWOXHJBZ;W3NC[FRCNCZ;RCEE.7WP2AN;R;2A\H/EVK: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZBK\ZCLWTK3[SK?Z [AB2IW22AK>2A
4
5+	SCSVE9E/;(2I
:+0PD*?A?FCHFACTORDA<B,F>>G2A<<?4JF2J%LI,)X)2LIJYC2C-EBU&2A2B,
D02A2B,$D=E7P%2A,%P)2I,)2I2A2B,1DL2A2B,6DAU
2A2B,;D[HGE2J%LI2K,)E%X)2LIJYC2C-EBZO??H>LB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2I2I2A2I2A2A2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2IW6R[VB,+N28K,4LFJSFXBNHHH;FU[TKL)M-N
J%PCJ6BEF<G[C2K^NNQU!VUV	W[?X)N-X7L7XGLG

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

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

B]P72KH),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ EX[L[BKNZ(J(KGZ*2CN([[N*<(+]X72I/K2J	HGAVOX%K!!E2J	HH2J	NADTD>L+<[: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+PJF8F8FZFJFC<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 -OM9=.2I
POP
R2AOSKTZ(: J(>(*SJ(")";: J(*H:A")	Q!W/U	Q"AD(/U")KV
WKZ
YK(
X2K.AH 9F8DK[XHHHX\HHX!HHX	HHX.HHX3HHX8.)HPK\XIHIXJK]XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;(CGC!0A?&?%?$2K2AZ?^2I
&S&S	+
2A/%B%>?Y^*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6+;="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?JD2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,JM
3O38!
22A/C$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSHVSHWSHX>(/	H;535%L=/PO?W?TAHAP>F2=VFMP\AC?$"MB,"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBZ2LJDZJ2C2J&WHJXZW2C.I(2AJW=2J?&WIJQZW.LBBJOZ"L2K^J$^%J."WAAH	:,CECNCDB CLCOCCCKB B2CUCBCSCCCSCICSB COCFB C
CCB CDCACTCAB CCCACLCLCECDB CACRCTCICCB7B.CFCT[[	-9+%K[7K][]S)+M2J	,G<D<?2?>GCYBMBLBJB BI??N/N/N>RGRIRBRBRI9H/7
ABSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM	]X+DUMMY-\\JDCAXX*EAP3=X*ENDE]X+ENTRY62X+FORTR[/ZJHLT<BX)IF3ZX+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0BXJION0A\JJMP(\JJMS XJKRB0^XZKSF0YX*P3:YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PAGEC\
+PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXT7N$FACTORDTA18 [A+?,B\17RS,B8 [BB2AW32AW0
>2AW>O>8!K=?H+D [BC2AY<2AYEK; [CD2AWH2AY:2AVXX  [AE2IK; [CD2AWH2AY92AVXX. [AE2IK; [CD2AWH2AY;2AVXX< [AE2I [AE2I8*G+M(I2,X,I2,X,I2)2A
82AW8O88!K7?H/6
52AW5O58!K4?H+,K4 [CD2AWI2AWJ2AN+	 7+	\G+W+O+?,B\FMK),BJWJZ2WIBACDPWH8 [BF2A[>2AZK [AE2I*U(	WHAT DATA FILE?	) [BC2A[>2AZ$ [AE2AWK [AE2I*	(A6) [BB2AW32AWK [BC2A[=2A[L [AE2AWH [AE2AWN [AE2AWO [AE2AWP [AE2AWQ [AE2I+Y(I2,X,I2,X,I2,X,I2,X,I2)2AO<?H/;2A
:2AW:O:8!K9?H/8 [BC2A[=2A\E [AE2AWI [AE2AWJ+?.AA?8A^1JWH^2WPDA8 [AE2I*J(I2,X,I2)K>8!2AO=
=K>8!O<
<O=<(*
?H*&2AO<<(*1?H*5*-2AO<<(*=?H+A*92AO<<(+I?H+M+E8A2A
;+PK:2A
;+PK92A
;+PK82A
;+PK>2A
;+PK72A
;+PK62A
;+PK52A
;+PK42A
;8A8!2AO3 [AG2A]2O1
0K2 [CD2AWS2AWR2AN+	K2+??>TESTWSWHJWOIHGFDCBWRWJWIE8 [CD2AWS2AWR2AN+) 7+)LG8A 7+	\GK>2A
=K> [CD2AWS2AWT2AN+	K> [CD2AWS2AWT2AN+) 7+)LG2AO<O; 7+	\G/:/92A
82AW8O88!K7?H/6
52AW5O58!K4?H+N [BD2AWR2AU4+	 7+	\G*<2A
32AW3O38!K2?H/1
52AW5O58!K4?H/0 [BD2AWR2AU4+	 [BD2AWR2AU4+)K7+?26 " PWVIWR+%CWUZ-[
WJWIWTJ8 [CD2AWV2AWU2AVX LK> [CD2I2AWR2AN+- 7+)LG2A
= 7+-LG2AO= 7+	\G8/</; [BF2A!:2A!F [AE2AWU
92AW9O98!K8?H+A [BD2AWR2AU4 > [AE2I*. [AE2I+V(	FACTOR 	,I2//3I8//3I8//3I8//) [BD2A!:2AU4+	 [BD2A!72AU4+) 7+	LG2A
= 7+)LG2AO=
=+?&Z*Z&Z*Z&Z*Z&ZDIWRA
P
XW/J8 [BD2A>2AU4++ 7++LG2AO=
= [AH2AW/ [AI2AWW [BD2A<2AU4+	 [BD2A;2AU4+) 7+	LG2A
= 7+)LG2AO=
= [BD2A:2AU4++ 7++LG2AO=
= [AH2AW/ [AI2AWZ [BD2A;2AU4+	 [BD2A92AU4+) 7+	LG2A
= 7+)LG2AO=
= [BD2A82AU4++ 7++LG2AO=
= [AH2AW/ [AI2AW]+?&Z*Z&Z*Z&Z*ZHECBAW/G8 [BD2A%>2AU4+	 [BD2A%=2AU4+) 7+	LG2A
< 7+)LG2AO<
< [BD2A%;2AU4++ 7++LG2AO<
< [AH2AW/ [AI2AW  [BD2A%:2AU4+	 [BD2A%;2AU4+) 7+	LG2A
< 7+)LG2AO<
< [BD2A%92AU4++ 7++LG2AO<
< [AH2AW/ [AI2AW [BD2A%82AU4+	 [BD2A%72AU4+) 7+	LG2A
< 7+)LG2AO<
<+?&ZHGICFW/ED8 [BD2A	>2AU4++ 7++LG2AO=
= [AH2AW/ [AI2AW& [AJ2AWZ [AJ2AW  [AJ2AW& [AI2AW) [AJ2AWW [AJ2AW] [AJ2AW [AI2AW,8  [BD2A	<2AU=+	 [AJ2AWZ [AK2AWW [AL2AW, [AM2A+	8  [BD2A	;2AU=+	 [AJ2AWZ [AK2AW] [AL2AW, [AM2A+	8  [BD2A	:2AU=+	 [AJ2AWZ [AK2AW+?CBAW/I8 [AL2AW, [AM2A+	8  [BD2A)>2AU=+	 [AJ2AW
 [AK2AW  [AL2AW, [AM2A+	8  [BD2A)=2AU=+	 [AJ2AW] [AK2AW  [AL2AW, [AM2A+	8  [BD2A)<2AU=+	 [AJ2AW [AK2AW  [AL2AW, [AM2A+	8  [BD2A);2AU=+	 [AJ2AWW [AK2AW& [AL2AW, [AM2A+	8  [BD2A):2AU=+	 [AJ2AW] [AK2AW&+?HGFED8 [AL2AW, [AM2A+	8  [BD2A+?2AU=+	 [AJ2AW [AK2AW& 
AL2AW, [AM2A+	 [BF2A+>2A+H
=2AW=O=8!K??H*;8  [BD2AWI2AU=*8 [AE2I*	 [AE2AW, [AE2AW) [AE2I+(	EXP. VALUES	/3F8.2//3F8.2//3F8.2//	MARGS=	,2F8.1/)8/< [N^4WIAI2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AO2A,2*-,8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  F/OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%/08A[(BZ=&C?<?842/AT1FM<=XS	?	>.+?Q. ?R/&?T.]?W/B?X.-?Y.? .A.T2A
=	<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*	<[%*.DE +$,8334Y,3=W4O	?Y4
:?8?/:],)8*-W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AP2A,*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	:/SZHYGZFYGYOYGYMYGX!YGX
YGW$ ;%7O.9E/%0-4OE?;7P68 %<HO?8 [N[K [R8 [L8 2A
>:SN<H*7	=	<2 ?R22? 2M?U2M?S2K?;26,O[M [AK2A-/ [AI2A-,KM [S [AJ2A-,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AK2A-/SK+U+]	; [AM2AA>/7* 213IO2MFJ+RCG3\7F2MNJ3A3L* 213IO2MFJ+R0 <E P;Z8*487O/%	?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*4.5V7"7*M.4F7"5*M.1J2.M^J"263.JV7"467.JR5"662.J^6"0*M.5Z6"1*M.5V7"1*M"0*M3^>-?3A???J?M8,!B A? -W ,2:W	?/> [AU2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AK2A-/SP*RQ [AI2A-,K:2I
=2AO9K8>(KP8!I==8 	7 [AJ2A-,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R3T2 3B3O/C. F16M2J3EWC+LB,"0*M3P
AE6 GH?<RQ;Z?:,)PD/4 P2: [RR)*HRL  EI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 78KDG9F8TZ(;(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/*	\4O0OPQRJ?FHSY=2AO?<(.	>,R?(4?7<&?84K?:0"?;0A??:-,R2AW=.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+! [AL2A-/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C*/%? 484O?8,24Y.
8*,)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<<Y? <J?U<J?S<G,MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AP2A,*XS [Q-*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W?H>G8XH\H+&BJCX>
?/?.>G?2?0?1?;4O01SD/%?<:83O8*487O3NXH["DE\TS3>*APSXH[!FE\RKP[Y LBI(\JJ4AB)XH["CE\TR332A,RXH["DE\TS3=2A0SXH[!FE\RHP[Y E\JAGN,HU 1F2A<RXH[!FE\RPP[Y E\JAGQ,HA 1FBIJ+Y(I0LFH,E2 KK0IJ,0FB-2X$KLB) E\C?<?H,KA\^A:E\EO:K:DNB?9?H KXH["DE\TS3=BAXH[!FE\RIP[Y E\JA?J<

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