File F4.SV (save files (Executable program)

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

?<2KRTPCH,DHY4CDO[HS<QQBLM/L<O0D:L,<D==L&?<]0
->\9?L(6DHLD;L*L>H;8/L:X=L-D6DTL-D;DLLD8+1DEL<H1L3H0(LZD<L2L0;LJ0OH101H6(2;LD0
L?P3DHL ,->4$JL-8;<HI4PL;\(1<H8)H-,;L+H-4L H:L;X:4LU(%2LL,&;&[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/+?&??XCHV> .RX*MP/*MP^.%]P/HCI <(AIAE38AP=BXCXA%HAINR9 SEAR IP).U%K!IRK3]W5IAHLHKC%+!IW$$;XPB+QHIW$$/K; X/: *,?:?H-3I\$$I"$$/.\J\J2AO?8H9T
?2J$(F?&<H*F2K	?EFTO>>(+JOZ2A
[2IS[SZS]*IO=< *[O<=H++C->(K;K:
=O=2A
*2IO9<(K8
9O7<(K6
7:A	?CS^+X2AJ+
5J+
4J,
32I:A	?BS"+X:A	?BS&+X2AJ9
2J?8A
12B/02AO\
[O\2I
ZS\S[SZS]+J:A
>*Q2C//>A1-?=FORTRNTMPASS2SVPASS2OSV4K.*[!2A704>M
LT?L^MP>NLS>ILDFH>>D>BINTEGERFUNCTIO8IREALFUNCTION8BCOMPLEXFUNCTIO8GDOUBLEPRECISIONFUNCTIO8FLOGICALFUNCTIO8EFUNCTION8NSUBROUTINE8BLOCKDAT9P? F8!OK> *=:A+C"$BAD INPUTOL[F/FOM	OON/F0"-.N**********?=?>4
<MRO?>20^ 8RK?;>Z 32DF?;0\ 08RF?>4
X NCLI?>4
?>?=S-?>),*"),?>):*J*"M7Q7),S-Q7),?>S-?>?>):*G*"*G):)0*")0?>S-??M7Q7)0S-Q7A/C/EA/H/KA/N/PA/S/TA/Y/ZA/^/ A//*???=S0?>)?*	*J*	?>?=S0?>),?>):*J*	),?>S0?>*G):)0*	)0M7Q7?=S0Q7M7K3)0M7Q7HJK3S0Q70L0O0Q0T0W0Z0L0]0Q0 0K?2A^K2IO>8AZJ2CNK.J ??1<$Z?1.$\?;/$N?2;$P?9;$
?9,$T?4;$V?4,$X?(0.$^?;.*$ DTGYNS"[W58P6Q07$78HA+S.KV5AV8V-CUXS0O)O?	46F*R]49LA41%MSUS=5?\;<;/Z%\X3PU5LGQ>B!DHLAA/"KDHK7J?PADHK7GRNWDHK6%S+DHK2CP.HDHK2.BL2IR+SQ*+KP>(*JQ*K,9A<P[,<XSP2I2B	\BH6*
RUK?[QJDZ+JT[.*ASP?*W*(K-K>2B> /=	<CICF<B*=*9JDZ+O.C;9J8JKN8J8JS.*>O.C;[NS.O.C:K9<(*HK8<(*AK7<(+L8A<(*A/62C.>OA??2AK5[\2IOO<(/Q2I	-A*"OOC4< K39Z8J[,SOOOZUSO[PSQ/QBUY	CE"TO?0:A,?=P=&C?<]
L->9?6:R;1*>3;/.:=6-61U-;1S81+1EA<12302JZ<1203;JO<11,62*;D
<?34R -;>4JI-;><IP-;(71<).-;++-2M :2;:64U%:2L&;72;1-61J;?+?.!91-3>,K!(.6,IR:/*7)?3;1=N;;971;973;HL62+;8;H93187<?M0:(+;-2>4K\=?<5,0>=K3>-,782]/?*-IA,,00W5971<HKH7G CGB]HF.CGB[J*N8CGBZH;*CGBZEYU%CGBYNH[HCGBYGI6CB<+$-BB?EYB9R(B5&6B4&5B3&4B2&3B1&2"(M974"(KE79
(J\7:"(J[71"(H=$C,"(F>7<"(A072B	CKCLA"	(6JB&CIK	4B%LXK)/XB$L\D(SB$L\B=AJB$J^BC8B$GEK$X0B$GEKS/C??%)8 H^H99 AAI&?&?Z.FORTRNTMAE>>CB=7BIB 3E32?=WFIB(S43OQ [HB	=Y[A\	WB(\C^
%PA=T]
?
VRYGOTVD][	$"M$" \"KD
H3X  4

LB"YIW2? M.2J%?*YIL<(K?IM\MQI<H*THM9!K>>X*%>LTHNXM2J%?*Y:*THMXNHMXHK=YIK(X"2J%?*.IL> *1IN\MP"*	INX *5HNXM*YH \MP"*!LHK<>(*RH K*>(+HNXM*HM8!K;X"I=XM%<X69X%;+QH*X6K:%:H*%:%9PGHG<Q:AX!%>MK%8+1%7+1K->(%6+1%>OPP"+1%5X!%8?:%7= :%6=CK9%:-4%5X!%9K8XH/7D/?%3D<=>>9
W2ILH< *K9$HLXLLH2AX$,$X$2A%3*RH$>(*%5PLPL2ILH> *VPHLH< *K%>HPXL%28!H6> *2K?%:%2%:HLXPH5> %>EDX5*
PLX5K>%:Z^X+K=X"I=XMLN\MP"*</<P5%;+IK;%:H*%:-4%7+5K:> +/HLXJX$%;+5H*%1P$%0+5+Q%7+5:H$%1%6-4K9%:%28!X$H$8!%:HJXLLJ%:P$+*-4%/%8+5K8%:-4%>GT-410=X/B?:
&%.=X*=%6--%0/?+	K>N%:%1%7+ JB> +%9[
%?7%7+ K0<(*88A<(*6K=> *TK
> *T%,YF	<*=%.=W*=HMX$H"X%%5H%%1H$%1IF*LS
*T8 K
=*S:%>RW-4%/%8*=%7+HK;< +KK:%:*MK9> *=%2<(*=YF%5JU%:K8%:IF%:%7+ K;> *=*M%2> *=NK7%:-4%;+3%:H*%:K6N%:%.=W*=*L%8*=+,UV&?/2=TST?+TH%/%.=Y/?%6/?%.=W/?K>/=-4%6*0%.=X*0%6*0%.=T*0%6*0%.=T*0%.<+*0%.=T*0%?*0%:%,%:K<%:%.=W*0%7-4J
>(*L%>DF-4%2XM%2X".3%.<.--%+AAA8-4%.<;--%7+L%/%6RKH%:-4%:K;%:+I	:%.<;--	:DK90\K8>(0Y/W/7XRXSXTXVXU%*+.A)X$	6	6	6HUH$+HSXRHTXSHUXT/50.+$>E==BF3\FJWF=%(%.<2--%+8-4%(%+ABA8-4%.<(--%(%+ACA8:AYJ-4%(%7--J> +T%?+P%.=Q+X%,8A[[2IO[< K?> +XK>
[2A%+ ,0-4HJXL2IS[\KO[<(*?[[*:HK
[H\KH8!X2ALJ2I\KP+F2A%7-4*]%.=Q+X<H%/K=[[*1%>CO-4%+H608-4K<%:H"8!9H%:%	-4A&9F8F8FX$%	8A&H$+&%.<;--%6--K;%:-4-.QAI>7:;?YHH!> .BRA*N"UJ]ZK?ZAIH2I^2AR.BJT<(*8AZT	>"H:*R^R9.U%%COCF%.<<--%7*-?--2AK=%:"U2J&+H2J:A	6D-*2J:A	6C1*K<XHHK\HHP\HH?\HJ9\HH>\HJ?\HK\HIA\H
B\HIC\HIJ\HIK\H2J	6FK;%:P5-4%7/$I$<(+.J>> /$S$S$/$%.<4--%+AEAB-4SAVE E!%?$>G<%(%.<;--%.=X*=HLXOX=%*=2IL%2AC?> +
H%X;[^H7X<%0*=+CH=<(*88!X=HOXLLOX$LOX%2IL%K?\%P%L%\KHK\%: H;\KH<\KH$\K2AP=*!%7-4K>>(*D%>QS-4%>QL-4P=%*=2IL%?+SL;?H+2AH<%1H;%1*LL%C?> +H7K^2A%1H%%1*W:AH%X;2IL;XJ:ALJX;LJH7X<LJ[^2A*WCSB+CLCICSCT9J8J8JC?<(K?8A9H=TBLPX7%?.A%,8AX%2IL%2AB> .AHLXJX$H%8AX9%7.AK?>
*[%/+VX7	>: H,%1P$%0.A*\:AX8HJXLH$8!X$2I9ZD%>(.AL9X9L9H$> +X9VL9H9X92ALJX:H8 H7X72IL98AXILIXRLIXSLIXT2A%"X:H8 X8: H9X9P$*:RA.A:AH$> .A2ALJX7+VXZK=X\++H[<P+*9HZ8HX[H:8HX:P\+%H:/ =T]
?
VRYGOTVD]?3*=X%6--%;*TK?%:9&X$P5*O%.=T-4%;*]H*%:P$*J-4"YP+K>%:/=H+>(.Y%>II-4%9%?*=%,8AX$2IL$C<> *=L$C;K:\$2A%5:A%88IH9K9>P-4I!%:%:-4%>SN-4%(%;--%?--%,YF%.=C--P5T+1IF%1H*%1HLXP-4%:IF%:%6/TJ3%:%.=T/T%6/T%7+-K]> +,%6/TSTK8%:/T%/%:K7%:+(%>DO-4%>BS-43)?MHA
6 CQ(	HLXJXNYDRNYER%?+V%,YGIGQG%1P2IMGAE> +YID8 EGID]G2A%7+K?< +
:AY:AX8HLXOX%/>HOXL2IK=EG> +\9ZMG]GQGH%\KMG< YGHK]GH8\KI\K\KH%8!X%2ALO2I\K2AP%+E%7+K<>(*J%/R.%>BD.%>TD.%>RT*]%>RD+KK;> +P*JR.%.<;--%6--K:%:-4%.<2--%(%+ADA8:AYJ-4V0V<*?<=T\\,=XH!> .HQK?2I[O<(*$K>XHK=[B2AOB9!2ILH> * 2AOBA&SB> *P2IO2A.<X*$O*GO\KHK
\K\KK=[B2AOB2I\K2AOBSBA&> *-2IHK9!K<>X*]2A%>ST/;OB[SBOBSB[AKBZH!> .2IO<(+	8AXHK:XIKA[B2ALI9!2ILH> +"SB+X*]<X+	O[+OO\KHK
K:XI\K2ALI2I\KSA+.*7K9%:P5-4+QL-	 2BRJ%1%1%7+.K?<(*DK><(* K=> *XQ	<*Y*UK;%1%:K:%:/9HQK8> *K;%1*DK7%1*D%/%?*(%,- %
*>*4*0%^.?=-]%^/?:-]%7*:K6>(/5%/%^0?=-]%7+.K4< /3%9%
/2<H/2%.=T/2HRX$HSX%HTX %
++<H++%.=W++HRXUHSXVHTXWH$XRH%XSH XT9$HLXL%^1?:-]%>CL-\%>MO-\%<Z7["=XZP<8$L?2\AB$J $???>=U%	*	I[< *M%	**I[>(*M%/**IZA&.%"<(*	9 X$K?X)K>Z6K=X%\%$)9F8F8F\%$)L%\%P%R6*[%>HO-\K<XQ%,-]P$<H**%	*	A&..%5%6+A%7*?K;>(/:%>MM%2> +A%2X$,$%/%2<(+P8AX$L$%:+H%28AX$,$%7/T
9=H+ K8=+ K<ST/T%//TK7< /6K5*VO	[1S	%7/	K1>(S	/	B<B?+ZY.A?&<?\=W[2?Z.%>SS-\X$%:H$%:%7-YK?< />P$2IK=D$> *UL$K<\$2A<H%28A%1%6-\%0**WK;%:%2%:%7-YK:/9X$%:H$%:*%
+I*1/8/8%"X:H8%XX8P%HSH[> /8	7%^0?=%1%0/8<H/6IH8Y*,2IMG2AC5>(/8%?/8%,8A[H2IOHC52A>(/8X8P%8 KH*?O
S
	4O
	4K3	4K2	4/1HZXZHYA>HZXY->EBJBM-PT*,3US^A=U^H\P^=XK?< *EK>+CK=< *JK<+CK;< *W%7*UK:> *TK9+C%/K8+CK7< *\K6+C8A> /5"(+%.=R+2ILH2A+C%?.(K4XH2ILH2A<(.(HQ> *=2ILH2AO3> *>R(.(PHPH*-%>OP-\XR%2<(+NXSLS8!LR?(+RHS%1HR%1/2PSLS%:+DP"+\: X"/VSVLM/VH"%1HM%1/
HRK1<(+.?/%	0+&HT/%+N?)XD2,K[G$F?;$D$H=VC$B?>$?=P"*F: X".LMK?<(*AK>R.2AH!> *XK=%:NMRM%:.MNMRM
<.MHLZM: HLXLNM.\%?.$%.=R.$HQK;<(*2K:> .$R$R$.$[1%?+&%:%,X$H$%:%7+$K9> +P$2I9ZD$K1H!> +TL$C8> +.L$K7\$2AK6%:2A<H%28A%1%6++%0+)+VK5%:%2%:<H%/R4.4%>MO.4%>SS%2:.4%>SF+T%-8D"+^]DLP=XN?,D^ B = \LK?9!HL>P.X!%>PD-4%7.KA&9F8F8FZ%7.KRKA&J.KXUXSXTO.YK><(*]K=9F8F8FX
O*;HRXRO*;9F8F8FXSO*;HSXSO*;9F8F8FXT%^2?=RYX*2IH*8A[OOO9HU<P
O2A>P.Y%>ML.Y%7/OK<=+[K;=H+[K=SO/O%//O%;+*%3+*K:>(%8+*K9%:H*%:-4%>AS-40&0!+/:/-0 IL;?U?%%,+1J=F0?P(AAABBCBDEEXFDG N O H I J KPLHMGPGQ: H"X": HMXM."9H
HXXX8DH^HWXW8DH]HVXV8DH\HUXU8DH[HTXT8DHZHSXS.* /8+I*UK/X$K/X&*ZI=IHJZ$6HGX\I.$$P\+T/QHX%+XL-(D/XWH	> /]HW9P%R/]!CHWA>>(/&%*< S&/&& WJWFTHWBI4>N&W0>GH1ICJXHR]I%&8HY8!HRXYJ:Z7HS8D:HHZ?H*PJ;&<&=J68DZ6J58DZ5J48DZ4J38DZ3J28DZ2&9R7*JHYXRJ2XSJ3XTJ4XUJ5XVJ6XWXX&>
+N+$?DG-X$*,3??AB N^? F8!OK> *=:A+C"$BAD INPUTOL[F/FOM	OON/F0"-.N**********?=?>4
<MRO?>20^ 8RK?;>Z 32DF?;0\ 08RF?>4
X NCLI?>4
X	X&XRXSXTXUXVXWXXZN%7.VX(%**.AW[-P(HSXZHTX[HUX\HVX]HWX^HXX
	?	?	>	?XZX[X\X]X^K-X
	>*PH&> +H%7*;K=< +B%9	<*?%5%/H(>(.+NP&%5*O%/H(>(.
+N
RRX,	;+QK:XR	9RJN> 	8.K7<(WV< K6> %//V%7/
K59H> ++<XP	<PQJ/4%//
%6-4K3%:-4"*M<<B=S-X,3AG*
^(=R$*+$X,%*.AWX
H,9D9DH,9DH
*AZQ%7/?	>"JQ>(*YH,8!X,"
9VH	M
]
/=K"XR	<H&> H(8!H,=*.8!X,K;*0X,K:ZQK9XOH,<(.
9HX,<P+K2ILOXYLOXZLOX[LOX\LOX]LOX^X
2A&Q*3HOK8*2HS9HXSHT8HXTHU8HXUHV8HXVHW8HXWHX8HXXPRAG/NHX9DXXHW8DXWHV8DXVHU8DXUHT8DXTHS8DXS/$F,*,&,3)R)V)JHRHYXYHSZ.HTZ/HUZ0HVZ1HWZ2K?[*XSXTXUXVXWXX	>J.9HZ.J/8HZ/J08HZ0J18HZ1J28HZ2<X	=S**VHYXR	<.HS<(HT<(HU<(HV<(HW<(HX>(+V;ZHS< +OHT<(HU<(HV<(HW<(HX> ?H.3	;:
HRXR+AXR.3K:[(K9[)98DO(91
(:0K([(S)+^/XP$<H/*S*%	/8/*/00X>\?6HZ8!/U?:X+$,3$*+N?D	?.XQK>Z 9&
=	?<H*M%**T9F8F8F^ W=*W<H^ R.	?<H*\%**UN ^ R *H%(K<%:: %+RK;%:8 H%%:H7%:2IL%C:2A> +R%7+RK9<(*$K8> +R/7K6XHLH%:P$*?K5%:%7+RK9<(/7K8> +R%7-4K9>(*"%>DA-4%>DH-4%	+UI[< +%%	/XI[>(+%%//XIZSX/XIV%:K4%:HR%:HS%:HT%:/(C6Q0?==TPS5$*2[T%7/?K>< *U%
/?<H/?	=%.=T/?%
/?<H/?%.=W/?*.8A< *ZK<+AK;<(/:K9>(	8*)9ZXSHS> 8AXRXT*.%/%
/?*6K7K7X$IV%:H$8!%:/6%7/?K5< +%"<(/48 X$K3X)9&X%K2XH$)+VA&9F8F8FXT$)+[A&HT\HP%+F	=+B9VH%?H/1+^HTK0\HK/\HK/\H*.K.>(+(%/*.K-%:%"%:*4^   /CQ-*/U<8.=?= $!I
?X/X/(=X/R2A"*Q17T"*7Y"*^/7D"*7Y".7I7>ID>(*\".Q7Q13+"*93H2<(.?H*%".HBQ17+"./4Q17).J*Z.*4N.R.%
H+%2%^N.R.%
N.>(*>%^N.%
R.%]..SECTRETXRGOBAKSTGOBAK,0BASE+30FNOPSETXSETBTEXTBASE,1.+3.+60,1FLDA%FSTA%LBL=.,1LBL0;0J:X$IQXM2J%?*J;> *OJ7\MP$*J*SH \MP$*DMPJ6>(*.MOJ5> *.J-2I^42A2J&8I2IN+^,R+R,R-*2A.3PPP>P2J%?*:*.6/-= <=B B>?:=7"7&I6/WP3T& 7NN 3OWM2 ?M+RCE7BSIS*M2I3C3LN +MCL7RKT"M&
7RKT"M&J3DGC2I;I7CKT*I>I3S?T+RCE3L;E3GT2 [O2 	FL7E2J&IS	Z3I[N7PKT"M&J3TSA" 	I2J%?*ZK?<(K>K=\MQI<H*SHM9!K<>X*%>LT*72J%?*Z:*SHNXMHMXNHMXHK;YIK:X"2J%?*XK?> */K9\MP"*(K9X *3H \MP"*"LHK8> *<2J%?*X:*7H K7>(+CHNXM*HM8!K6X"I=XM%9K5XH2ILH2A< +Y:$HLXL2ILH2AX$,$X$%3
.8!H$>(+L2ILH2A> + PH%5PLPL2ILH2A< +Y%5/4%%CSCY	LCGS?3D= <=B ?:>>58BIW=7: *OK?XW*N8A8A8A8AK>XW%.<2+M:AYC2I
=2A%?+M%,YAIA8AX$HLXJX%2IHWK<\$2A%.=X+J%?+M%,8AX$2IL$> +MK;\$2A8 H$%1P%%0+M*%H%2I\KH%8!X%HKYB2AHJXLLJ2I\K2AP%+C-4IC?(-4%>PH-4%.<?+M9$YCK:XH2ILH2A<(-4X$K \$+W-U2IHX)%]2IHP	9/;Q"%,I	I	X"LH2A%/%3/)DPCHKFADDM:CAJPH
AAABBE&$(H&(G &.I[&6LM&=C2	9T]	C[\	1[%	M\<	R
^	Z
R	IYE	
8A	$/M	$/K	4]6	*??	FBAD ARGUSER ERRORPARENS TOO DEEPFORMAT ERRORUNIT ERRORINPUT ERROROVERLAY I/O ERRORNO DEFINE FILEFPP ERROREOF ERRORDIVIDE BY 0D.F. TOO BIGFILE  OVERFLOW^BX NCLI?>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