File F4.SV (save files (Executable program)

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

?<2KRPCH,DHY4CD3(9D8,J,<SDO(OU<SD[LPDQD/HA/3LO?H:0AL4?L4PL&<CD<4H4LL>$?A06:RH;(1L>,3L/(.H=4661H4U;1SH8,11LE0AL1L202D(JL<H1L0,3(LOD<L1X,L2,*PL
<<34HRL-8;4HJ4IL;0>$LQ,-L(D7<H)4.H;,+-2HML:,2LK8>X*%0>T8HLXHMLJ<%L*(YDP*DH MN4HX,H=$YDK ("(2H%(?.0IH>( 18ID\MH"\*DI NL T*DH NDM$*DH0 HMHP*0!LH0KH>((HRHLK8*(+DH NM*LH ML!,KX$"=4XD% <D6 9H%,;HQ(HX,6L:(%HHT*L:$%P GDGD<D: AL!8%HMTKL8D+H%,7H14KH>T(L6D+%<>HPHPH
T1H5DXL%<8L:\%L=( LX%ZYHV> .RX*MP1*MP!0%]P1JYI
<(AIAE38AP=BXCXA%HAINRU-SEAR IQ).U%K!ISK3]W5IBHLHKC%+*H=+Y:S0K6<(+WIX$	;X+WHIX$	/S?:-4I\$	I%$	/0IY[0IZXKI^\KS0+;/6<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>BINTEGERFUNCTIO8IREALFUNCTION8BCOMPLEXFUNCTIO8GDOUBLEPRECISIONFUNCTIO8FLOGICALFUNCTIO8EFUNCTION8NSUBROUTINE8BLOCKDAT9PH4 /LPT	JMP .+2	JMP E4		/SPACE ONE	XSK I 5	JMP .-2	JMP E4	JMP  I4	NOP H4,	 OPR  I  4 /SKIP 2 WHEN PRINTER READYH=<WL
8KH/4=L4X%D*$1HR8%H=(XL1X%H*T1D.P=H*T1L6D*L%4.LTD*L%0.L+D*L%4.LTD*H%(?L1(%H%T,L:0KH%T:D.\=H*T1L7P-LJ8 (0*%P>LFP-HT24XD% 2L"P.L%0.H.4-%D+AAH84H48%H<4;L-\%H+TML/X%,RLI(%H-T4H:(IH%,:LJ,	HTL.,<H-\-;P,D:00LK89D($0H/<XD:HXDX SDTXXDX WHU$%K?2A^K2IO>8AZJ2CNK.J ??
<$Z?1.$\?;/$N?2;$P?9;$R?9,$T?4;$V?4,$X?(0.$^?;.*$ DTGYNS"[W58P6Q07$78HA+S.KV5AV8V-CUXS0O)O?	46F*R]49LA41%MSUS=5?\;<;/Z%\X3PU5LGQ>1FD+IHZZ.D+D)JZ)D BCG1"DWH;JZ$T$WC^0DDRQ.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/QB&JC.B]L.O?0:A,?=P=&C?<]L->9?6:R;1*>3;/.:=6-61U-;1S81+1EA<12302JZ<1203;JO<11,62*;D
<?34R -;>4JI-;><IQ-;(71<).-;++-2M :2;:64U%:2L&;72;1-61J;?+?.!91-3>,K!(.6,IS:/*7)?3;1=N;;971;973;HL62+;8;H:3187<?M0:(+;-2>4K\=?<5,0>=K3>-,782]/?*-IB,,00W5971<HKH/
CHF<UCHD,1VCHA;J?CGK)J0W/CGK)J(V-GI%(IBECGB,L-CGBNLI0CGBI"$CGB"LV";CGB KSUPCGB HL6ZCGB E[BYCGB]H7G CGB]HF.CGB[J*N8CGBZH;*CGBZEYU%CGBYNH[HCGBYGI6CB<+$-EB?EYB9R(B5&6B4&5B3&4B2&3B1&2"(H=$C,B	CKCLAE<B??%)8 H^H;AAI&?&?Z.FORTRNTMAE>>CC=7BIB 3E32?=WFKS4OQ [HB	=Y
A\+WB(\C^
%PA=T]?
VRYGO3TVD][	$"M$" \"KD
H4X  4

LB"YIX2? 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$HLXLLH2AYR-RX$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*1YR%.=X*1%6*1%.=T*1%6*1%.=T*1%.<+*1%.=T*1%?*1%:%,%:K<%:%.=W*1%7-4J >(*L%>DF-4%2XM%2X".4%.<.--%+AAA8-
%.<;--%7+M%/%6RKI%:-4%:I*%:+J	;%.<;--	;DK:0\K9>(0Y/X/:XRXSXTXVXWXU%)+0A(X$	8	8	8HUH$+%HSXRHTXSHUXT/70.+$A=>F\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*W+$/ J*%7HT9J8J8JC?<(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:/ ^
%PA=T]?
VRYGO?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-4V)*?<=T\\0=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%&*	IZ< *M%&**IZ>(*M%/**IYA%.%!<(*	9 X$K?X)K>Z6K=X%\%$)9F8F8F\%$)L%\%P%R6*[%>HO-[K<
Q%,-\P$<H**%&*	A%..%5%6+A%7*?K;>(/:%>MM%2> +A%2X$,$%/%2<(+P8AX$L$%:+H%28AX$,$%7/TK9=H+ K8=+ K<ST/T%//TK7< /6K5*VO	[1S	%7/	K1>(S	/	=P=HB<ZY.A?&<?\	=W[2?Z.%>SS-[X$%:H$%:%7-XK?< />IRK=>(/>P$2IK<D$> *YL$K;\$2A<H%28A%1%6-[%0**[K:%:%2%:%7-XK9/8X$%:H$%:*	%^+M*5/
/7%!X:H8%WX8P%HSH[> /7	6%]0?=%1%0/7<H/5IH8Y*02IMG2AC4>(/7%?/7%,8A[L2IOLC42A>(/7X8P%8 KL+COS	3O	3K2	3K1	3/0^^.>EBJBM-PT*,3US^A=U^H\P74^=XK?< *EK>+CK=< *JK<+CK;< *W%7*UK:> *TK9+C%/K8+CK7< *\K6+C8A> /5"(+%.=R+2ILH2A+C%?.(K4XH2ILH2A<(.(HQ> *=2ILH2AO3> *>R(.(P
PH*-%>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%<+(	9^]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 IU;?U?%%,+1J=F0?P(AAABBCBDEEXFDG N O H I J KPLHMGPGQ: H"X": HMXM."9H
HXXX8DH^HWXW8DH]HVXV8DH\HUXU8DH[HTXT8DHZHSXS.*OPSP<(+J%W+DI5$	HL	5	4/BS>	3BH /2+Y*$K1X	K1X(I,
0Z-*)D-XWH)> /!HWHX9PPZ%U:XZ/!& S^SSW/>GI0IS?&>NV;H7IKJJ\XHNOI/&8HY8!HRXYJ:Z7HS8D:HHZ?H*PJ;&<&=J68DZ6J58DZ5J48DZ4J38DZ3J28DZ2&9R7*JHYXRJ2XSJ3XTJ4XUJ5XVJ6XWXX&>.+N+$?DG-X$*,3??L<(+L[8L%8!K6>(+&P%S8+DK7%6IT[8L8!O8?H+YK7"!: +!: L>(+U: L\LK+X%K6\%K+8!H%K7.*QS
6K+Z*[7K<[+IDXI>*6O.PY?>4
X PS[W?L=WX	X&XRXSXTXUXVXWXXZN%7.VX(%)*.AV[-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,%).AVX
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/*S1/10X>\?6/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%&+UIZ< +%%&/XIZ>(+%%//XIYSX/XI*%:K4%:HR%:HS%:HT%:/(C6Q0?==TPS5$*2[T%7/?K>< *U%^/?<H/?	=%.=T/?%^/?
H/?%.=W/?*.8A< *ZK<+AK;<(/:K9>(	8*)9ZXSHS> 8AXRXT*.%/%^/?*6K7K7X$I*%: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/R"$YLX<2H 8MPKHDAPDIAELLL AP=D BLXA%H$
NRDUL-DER$ HQ8)U,%D!LIHKL3L]TWI BL,HC%ARH<(HF,2	?DEPFLO8>((+LOHZJ:X$IQXM2J%?*J;> *OJ7\MP$*J*SH \MP$*DMPJ6>(*.MOJ5> *.J-2I^42A2J&8I2IN+^,R+R,R-*2A.3PPP>P2J%?*:*.6/-= <=B B>?:=7.-F0.1.460J;3E3A*I>I3RGEL*M.IJ-.2V0"M&J.-F0.0.460J;3ESA*I>I3RGED*M.IJ-.2V0"M&J.-
2"161*J6I.1B6.4B;2;WR3W;ID&I2/WR3W;ID*M.IJ-.2V0"M&J2J%?*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%5PL
L2ILH2A< +Y%5/4%$CSCY>ICGS?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-U CURRENT LINE COUNT	JMP 0//SUB- PUT LOCATIONS XAJPH
AAABLPTUDLDGL>9-.HLA.LHHI,RHS(QD+KH>((DJD*,,D9D<,PD, <LSHPIH2	H\H6H(D
TRDK,?QPJZ(+HT8[D*LAP?H*(WH(4KLKH>HB>H/\=<$CLC0FLB4**(9HD,ZOL.;(98,JN(8D8LJL.8*OL.;8[S<.L.(CLK09( *LK08(D*LK07(0+L80A(D*L/H6C.L8ODL?H?LATKL[H\I<OH<<(

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