File FORT.SV (save files (Executable program)

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

?<2CB
HBHJ,DL6TK^,7H)8^H2<CL(U[.DA?D8L-<*HX?LHLZ<3L-8^GARSHARSV<FDRHTN4T$LTLG0A <CN$TNDUT<INHNOEPND PSATTM8ETI</D HEDRHODSHB8RHSVDNPO <FUPN<N <RHOMDFHOD TODTTPTCHABM+ 28X8,H7X;MEH&HB 	X, H+P%A?9A(=?S?G ==>GH?+33/?X[?[?K%K *K4U)SGF(8AF8U!6LETF"9R	[$Z[/!."HI7+5%&
%5!7K4)[:BC , ?? 
Z?X?W?T?>?=$+O.B),,BC F
WI:XIJ> *YQI*H	8*JI:	4HMI4XNH,8!LN> *TN*JH1> +.II> %S	7HZ<(*!8!HJ> %PXT"	6HZX,I3X4<H
2%R*/8%M9F8F8FX5%R*78%MH5P4**
3YIK5XOLO<(-LO2> +KO3LO> +LLOXX,XPOPO*>HMI4XMHM8AXN8 H-X-%N0$LN%O%PLN%"%P/NI:[!O!%QO!S!A-> +%%P/"%PXT"*AV7V8DU?5WRG6K=X[,\BEY:4/[,
,YIXPX1K.[-:%C0< K1<(*HK?<(*^K><(+EK==H*HK<<(PPK2O*HK-8!K.>(*HOO,I4<(*,K6> *//;P1I+*;K,I*[+O+C4I<>(*>K3YKQIO,K4
,.O+A-K5?H*:8A*7I+OK-I*=:C3> +E*H[*:AK-<(/OK/9HK,[+K*A-<X+!8F8F8F
+O+
+S-/O2B	(, /%>7AIA?>A=G/?O?012C/>BEO&??)DA2YKP$X&X*% X&)?PZ%XH?Z]%V%$)?9JF<XR(R(:J].(=+R8D=H+D8F<PKS?HR8:.87?&IKQK9HI:Z]N]<XYI/X6YI+YDI:[UI;Y:KUY;/68/9V8HZ/0	=<H%XH?/0.IK1X XQH9X!XRX6I<\!%W*X*E*A*CI0<(/2K3< *&H$>(*&IJ> .%%S1.K4X3L!I<C5> *6H3K7<(*SI3> *$K8
0JXOX5<HPOLO= +CH3> *:LOX5:AH!X4L4I<C5< *$L4C9<(+]8!H5? +]P %
P!L!K:> P!H&\!+CH3<(/;I1<(/<I4< +)H6>(/;K6>(P$H3H5I</0J(K?+=8?/?U&GY]JZJGT$/5H*>(/VH&> *ZL!X?	
\!H!8 H9< %S	U<(*=KZ<(*=8A> *^	38 HRXR<H&?*N^ +SPR8 K^**5HS
X?:
TEG8P 	Y\> +	)?51[<K;%PK<%Q/4^;2I/	RERERERE.E:XZXYYX^X
XXYBYAK"X5%R*U*7+M"
%R*U<H*U%MHZC9XZ*CX4H5<(.
9P8HK!Z6P5GH42I<P*29F8F8F<HN6^62A.
<(*DK<(+VJ)<(/+I4< +F%R+E+H%MK$*K%< +EK(*C&XZ%R/	<H+\K< /)IB< %SQBY+OC&X^Q	*+O[?:?R*?VON%N QP
3PTLT%(LTK8> +-:AXTXJ/,=6?]OMQK6]Q/7NKK^< * X
QB%R*,<H*TK
<(*QI3< * : YA%R* * C X^H
9DX
H
9D9DH
H^X
*Q%M;IB> */HX<(HY> *,HZ?H%S..LBH
QA8!I9<(+A=81Y8DKCZ=F<BQ*=/"F/"	DP.P;;HZ<(HY<(HX>(/K$X
S/FHX?H/S	%H
K!=H*,X
+T?;?UO?8Q\LAT PH2IO?2A[7K78A[8P1O8
7O8A->(/>S7S8+.IH> D=E,HXX[HYX\HZX].;HZ8DXZHY8DXYHX8DXX.H;HZH]XZ8DHYH\XY8DHXH[XX.T;HX8HXXHY8HXYHZ8HXZ."""""""""TH
I+=H%SX
	5.."""K6[O"""TSO<H+J"""""""T+H
K7X
	5.;"H""H"H"TH^X]X\X["T/P;K8X]X\X["T<P++I<XXH
K9<(*7X
K:[O""SO+-H
HXXX/4LAOS?6?(DH?7,\HBYS-S/6&!I,YI8AYK&"<(%SI.<(*SJ$9J&<P%SX^&IKJ%?H*F&">(*HHY< *PHZ?H*P.	GXQP?&?:J[6K6=+U8F<P+[8J8!H	?H++K6I)[GOG8H>X*=K4%PO6GS6O6GS6O6C5G.	[7K78J8J8JA-< %PK7A-< %P/G:K3%PK6%\.	8F?H+&8FK1%PK6=H	9%P.	K1%PK6	8+YK2%PK68!H(+Y[](\?49$SX7/7%%+4
AJCBJBM:H.[)JC8 ZDK\"5*WH/WI*X/XQRC*HH?I)[)O)Q> %SHZ8 G)HZ
).F:H	I*[)JE8 ZD8 "5.$H	WI4X	RE*&[WRD<H+RO)8!HXS)> +TO)8!HYS)> +UO)CW8!HZCWS)> *7K)I4X?.5R5.5S)S)*7[)H	8 H/?%SHX
)K)XIHY\IHZ\IK)/WM,Z$H=> /)PT<H	(J$<(+;A+9D8!JJ$\T/)JB\TPTJA\THZXZJWXQ%X%W)?
W*\I2> *N*I%U?;HZXZJXXQ%X: H	XNH?\N: [6*	I2<(+Q*	S2+,: [8*	S8*NHZ\N: [4*	S2+)8A*N)?ATB+$SQ++;+)Q(H<XNX>%W8<H+X-LI0> -L%W8<H*Q8%SHZ\NP>%=I2<(*KI*> -L%=I2< %M%W<H*%88%SXQ%XH?%T%S%V\%N06%[%O%P%N09K.%\%P%N03K.%\%P%N09K.%\%P%N0<K.%\%PH>8A%^H+%"H+%O%PH>8!X>H<XN
N%]%PP>+R)?%VHZ/)?H?%YI4J-[%NH?%Z%P/\XG%(PG+*/(G[(%N0$K(%]%PK(XJ///4:H?I4X?/:.< *VJ[>(*EJ]%PR[*E?<0J\[<H*4&%SHZR6S<H*3%=<(+AI2> *3H	"%N1H%PH"	"H$	"X&)?%N1E%N1T%PZZJ/%PJZ	9//4 X!?%820&0!+<:/:.X%N18HX%Z%P+;?;?,(A^T%V%W-<H*T+-LHZ"X)?*/\MH<XNXQ: ZHJIZG%W*%*	+
Q*/%XH?%T*/H?\NRG<H%S%=<(+FI1<(+EJJ< *<RH*/*!J%RH< */*!HZRH*,*/RX:A\NI)JG?H*/P$H<XNLNXXLNXYLNXZLNX[H<8AX!H<XNX&JKX H[8!HY>(++H[\NJO\NHY\N%
&L%"H+\MH<XNH[9H<(*A8D\NJR\N%
&LH<XNHX\NJO\NHZ\N%
X&%N1H%P%N0$%[\MH+%O%PP-<H%S.S\H<XNH&\NK.\NHX\N%
X&.T[-H&> %H+X;: H!X"P"P"L"K/< +&:AH"[,O,I)ZTNTA38A^T: H"X"S-%!\"H"8!H!>(+I: H"X"*:K,X"L"[OK-%$H;X+H"I3X"L"	+H"8!H!> +RO,%TK0H X&K,X!H&\!. 8A> /?/*!H6:=
YDK;	>	=<(%SK<< +1/:LA	?YGXL
8%U?<?7?2?+?;%V%N0	%P)?%U???;: Z7XZ%W*W<H*W8-L%VR7*(%$1N%N06HZ%Z%P%N1Q%P%N1T%P)?"*)?%$2+.*%N1Q%P%N0$H+%O%P.*%U?>???,R*H<XHX>%N0$%[%O%P%=I0> %SK-+N	+<(%M9F8F8FXZ	+<(Z*HZ/?J*> +KH>%^H<XHH>8!X>%VLH%\%PP>+"H+%"%P)?GXV0([6%N1BK6%\%P/.H,<(+=%]I,%Q
,/6%4	6H!8AX"H"8AXL"A-K,>(/&L%Y<H*YL"A-K-<(+Q8A> 	.:L!%Y	2;L"A-K3<(/%8A<(/4I4<(/	I3<(/5K/<(/(8A<(/)K7<(/*I)<(/+%S=+K8D=+N8H8!H	=H+K8!H	I)XSLSC0>(R9:.9C1+J.KT\"*Y<
Z%=
> -LR+X/U2IOUSU2A/
*Z&%P)P)N(1*T?
?C(?2HD(K?U	B(
*5WH"K?> />/=!H^*PH&8!L!>(*OH&8!L>(*RH&>(*P*QRRR.[K%TK0K-ZK1[ON8!K>(*;RSO*\JK1ZK1[ON>(*0RSO*)%SJ8!H%>(P%J8!H)>(P)K^KOJ?.SY[O%N1KKO%\I9%P2IO2A%Z%PS/%6L%T+
"+[%	/	.	3/2	.	/	./2"+%%+$+X	38A%$0I%8L!%Z%P/2GH&7*KX?(*<*,\HP>H>K<?/=/;!W>DBY2B/<*J9H<(* 8D%T*[%N06.Q8A%$0C%8.QX&.	8A%$0F%8*-H&%T*?%N1]%P.7%$L/VL!\+G*K%*?:0R%U?:?1?+?,?7?22I/,N&Y^I^YZ	9,[O;0&0!+<:/:L!Z-L\!"KJ-\!H&\.L"[^K1\"2IM
2A[C%
H&\!K^\"P KC2I]
2A.K%6%5*&%<H%	2L!%TK3K4Z-8A%$%8L!/5%5*7%<H%	2L!%TK6Z-L%TI*K7J-[C8A%$L!\KCK;> H(\!%8L/5K<X0%58%	0L%T+&H&%T/8H0K9[^%NCX&L%Z%PX0/%PH&%T<H	:/+*%N2A/,*K!*,?:0U%*F2G+F09+BM9AZ%PL!X&.K%58%"K	L*<%6%5*!%"K",%Z%PLX&.,:HRH$>(%S.5L!%TKMH L%T+WL!%T+Z/OL!%T/O%S2B	
>HZB?Y(888K>Y(;&	1%N2"%P/=BA+[C"I<YI%=< -L	?H-K-> %SH.I)X:L:C2>(*[	0%N1,I)%\%PP.P.P.*JX:HU8 H:>(*-K/H:%ZI,%Q%N1,I)%\%PP:*\%N1/%PX5;&	4%N12%PH/8!H.> +ID> /3.?.6H.I)X:L:X:H:C.> +		0H:C1>(++H.%	XVLL9!X;<X%SHVP;+TXVH.%THV9DHV<X+UXVH:A+> +5%7P.P.P.*68A+YUG*.^P
;>Y(%N15HV%\%P+	=H!]L/9 *>A?H5HVBX4H5HVBAX5H4<(*XJX4H5XV%\%P%N1)%P*K%N1,HV%\%P.BH.%ZI,%Q.^H	I*X.H(8!H.>(+RI4X3"^L.P.%\%PP3*/*	K;X.H%8 H.>(+DI*XVK9"^%7P.*8K:X.H)8 H.>(+*8AXVK8"^%7P.+FK>%^%N0-%PH8> +&%N0*K)%Z%PK)%ZI,%Q%N0	%P	=2A.0X.HU8 H.>(*$%N1>K<H.%Z%PP.+
 8$ GIG!*+"F%U?<?,?7?1?2:AX7H>(%S": K*XIHX\IHY\IHZ8A\IK*X8%N0*H8%Z%P: [!H8%ZI,%Q%N1,I)%\%P[)%=<(++I0<(*6JA<(*8I*>()?+,S!+,"HZK	XZI-XQ%X%N1>H?%Z%P%N03H8%Z%P%N09H?%ZK)8H>P+SK&%P%P%N2
H8%ZK&%P%PS)K)8H>X+D*)%W<H/"H+,2=S!%S)?: IJYJ	8%=I1> +2/72^CNH	0X%U???;I*K:ZI%=I0> -L+%VI)%$%8HZ%Z%P%8%=I2> *\+HZ=%]=H%Z%=I1> %S%P%=<(+$I2>(+ %M%=I0>(/=%MX*X&P$% H!X"H+X;XS%!\!HS> LSC0>(+S%N2%%PI)%$0^%8HSI3%	ZILL8!X$HSI3%TI<JIP$+M%\%P+YH&> %8A%$0^H;X+L!	>
3>(+$%=>()?*$8A%$0^%8%\%P)?%W+1+2/+P%SXQ%XH?%T+1H?XZHZ%Y+1/+9Q6:,\%U?>?.?2%VH8>(%SH7>(*ZH8%T*Q%N06*U8A%$0C%8K0%PH8%Z%P%N0?H8%Z%P)?%N06%N2V%P%$2D. Z 8 H(XLLL8!J >(*6PLPL*.LL.)/1[/K,[-I.[.O-<(+J8!K/>(+LS-S.*?%SK/
-K,8!K-[-K-8!HU?HPUK-.9K,[-I.[.
-S-S.+\/WS!%\/!<(%[%OI,%Q/%&\H&< >H<H%8AX3H+X;H!X"P!L!I/[KH;X+J:>(*\%N06L!%	%Z%PL!%T*5K6%Z%PL!XJ/8%N2%%PK5*
[+K+>(%"%8>(+F%N06L"%Z%P%N09%[%O%P%N06L"%ZL"%Y%&L"/+DB480!G)=Q?432^)<S:X=XTYJJ.Y(&+9$IK=8 XGI+%PPG*NJ,%P%PJ-XHLH< JA>(*^PH*WI:8!LH&+%PJ/Y(P=III<> )?/?C"^I1[:+[Z1I4Z0KOZA[PZJ1NA=H+CZ1KZ[PR*::JKP< %PRAR0*9J1KZ%P.2WHIKZ: Z2IKZ1%W%S+W0+UI1<(+48A<(+1K:>(J28A> 
UJ1YK	;+XQJJYK/02%: J2+TR2+UJYK/92)?+\X/&%U?9?*???4?;?2?=?;QG<H*O8+%W<H*U88+PZPZK5XQ%XH?QC]CIGQC]CQD+*&+
+W%W8<H*,8+: HZYE8*N<H+J%W8<H*:8*+HZ8!YF88%SH?%	[<HKQF+EIEYEH?%TIE9DIE8AQC]C8*N*O+Z:AQC]C)?<H*I*N:AQC]C*O%=<(/I2<(+2I*<(+18A<(+3*NSSS//%=> -L%V/;3$4AV QCQC]C6ICI*YGQCQCQGQGMC8!MG> */QCQGMC8!MG?(*+ICI3YCIGI3YGI4[6MCX>MG]CH>]GQCQGS6*]ICI3YC*H: ICYC*GQCQF*B6
DQCMC%ZI,%Q8AMCXLLLC>>(+JMC%	XVLL8!X;HVP;+F<H8AYGMC%TIG9DIG[6ID8!K6?H+YK6YDQCICI*YGMG8!MC> +2QCQGMG8!MCYGIG8!IDYDIGXV%7QF*4/=IDYGQC++ID8!YFIHYC/6.6P>G5A<B??%)8 H^H;9 H:H^,BJPJP>RWLH!>(FPATCHBNUTDA0????BNIDSKO?.A2IPH2KHXXYHY<(H"XXI*,5E&K7?8?9>JHB88B.B F>!I
C\6AB$BJBM>E?AC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DI?S:A2J	>DRE::A2J	>CRE/;:A2IJ\
3:A
2;VG1O0>(
/O.>(O1C->(+F>?;O[2K		S[S\+T/SC]?6CFCOCR>E>>O>P,?&H[ZS[W[X[
D>$B?0V0&0L2AJ2Z/J5XH\HR/*HJ3Z/J4XH\HR/*O2IJ0Z/J1XH\HR/*WJ7XH2ALH<(*%Z.LH2I^.*\LH<(*,Z.LH^.*%2J.6>;F5?PGG2?+2H7A([:MS?%G )GH	==(>-?+.3/39/?<XAC[?AH[?A:BA;CTCTDTEW2W3W4W5W6W7W8S= S> S? =&RJ8?KE7[KE5!KE4XKT2	K]1SK]%LK>PK>R*M4 JM[!.LN^7K>]GKE[PL^J6L:+"MED?K>
VRUR
R^$$R$]R,MPRESSIONILLEGAL STATEMENTILLEGAMBERSYMBOL TABLE EXCEEDEDSYNTAX ERRORILLEGAL VARIABLEILLEGAL OR EXCESSIVE DO NESTINGARITHMETIC EXPRESSION TOO COMPLEXMIXED MODE EXPRESSIONEXCESSIVE SUBSCRIPTSILLEGAL EQUIVALENCINGCOMPILER MALFUNCTIONUNBALANCED QUOT
SSUBR. OR FUNCT. STMT. NOT FIRSTARRAY TOO LARGE8CJD2K[,8H[!79*D7>B!K-> *DJV[K!?*)7>B39> /*D>K.K%7<: "=: ["O,"=S,?S*^"=V"="=/+DDDB!JN["DI
,S,CS*/DIDBNIV/+I7;*?7=:.=N97;+E7?/DO]8 [$K$C"8!9DK$K"["K$8 /IN<:K"9&8F8FI;PK"BN/V0
/[,S&S"+"M^L2P?&LL/K%7<7>C>>(S/0Y//JV0\K?> //.VAA=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^X
KSF0YX*SABRSVFORTRNTMILLEGAL CONTINUATIONNO END STATEMENTI/O ERRORSABR.SV NOT FOUNDNO ROOM FOR OUTPUTR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXTXJTLS0&XZTSF0!D*ACHPD*ACMQ
*ACLRD)IDIOX4.AI5[N"H4A0> *].ATTR%*%+A*>KN9F8FAPOJ
JKN9J8J8HAPOK
KKLZ%SKSM+CI>	=O+CKK[JSKKN
KKNINAM> P4A.1>.*%>T=I,[MK<[KKLZ%9/O%4IO+%4K;%H IL>(%<;&%-?U$[8
:%;<H+5S8+0: [8+2H 	9%<+(	9S8+4/%V)V5?9.WX=6=71, ,,00 O/?*- K-;><1?(.6,1;91-3,+=.	Y9+1=0?[G?VE?QE?UK+/.;LST<I"[,K4KP[.K,IM/XK<-H2HCI7(K;-HW?=]E$&$%UMUHL5H IG<(* K??.%<	>:%4H K=<(/<K;>(*	%	+C"%1H8X7H\%K%4"%")*%H+<(*]8AX+%<*[%<%4%1XZP5*/%"5/H\X[HWA,8!H[A,>(
=%3HYXXH[/:HYXXH[%+XL-(%%X2HR?H,]H K9<(+QK8>(/7;X*V%<P2+ HWX]%HPXLHQXMHRXNH]XO*IHW8!H]>(+W%")$*I^^.,]^$^5^5^	\Z2Z"[YZ[IJT]FEC?/=TD*?:$T=\SB>	?$^/>RSRSK=[%JR[$JHZ^*F*^*6
$S$*9K$[	S$K&B
$2JK(9H.B> /)Z9DRE+\2J&7F	8(2J	7;&G:
:	8^.2C/(=HB<.AA?8A-*??&LBZ3?-^>G2IN
<(+&["N
C?< K>9Z8J[$R
N
Z4R
K=ZXK"2A2J	<A(+^: ["[%*.>O0Y*	0\K;>(/:SAS"+AK%>(*12J	\H"&XBN+\R4S$<HS%K9["J)[AJ3[!*!+A+S+OJ)[AO!C89J8JK8J8JS!+TO!C8[S!O!C7K6<(*-K52JR . ?*9	42J	3*	42J	32A2J	<I/*/	S18A[(BZ=&C?<9?>==B(AO?0D.D(H*JH<((H"D8LJ8*D(L.H2\B? "LL8/X(GH* >L*H,LB<	B0H/(>H*ZL.HSLI4OLK
L0KLZHALB<	BPAH /,>/D2
<VDW 
DSLWDX$SL*H>HIL	<KL;(CH>,(HRL	LHILC$KD
\87D.D:8 2L2.DA?8LA<3OL;H6 >H+\"5L2	<43BH>,(L)T	H2\CL2S+(.AL2H	<1ZN\?4?MAINAFADASTOAFSBAFMPAFDVAMPYADIVAREADAWRITEAIOHA(0AJMPANOPAENTRYAEAPAPAUSEATAD IATADADCAAJMP IARETRNACPAGEASNAASPCACALLACKIOAHLTACLAAFLOTAIFADACIAACHSAFIXAISTOAPAGEABLOCKAENDALAPACOMMN
ISZASUBSCADUMMYAARGACLEARAIIPOWAFIPOWAIFPOWAFFPOWADCA IAACHAOPENAERRORAINCAFORTRACMAAIACAEXITA*-JF9H*?7:> +^JEJ<(+"ZERLJDJYZD9P:ZJGJK7<	2	2?079+F7>9FB\KY<(+[KE> +F7?<XK=8 JL8 <(+7>8+F7>9F*?;S**?+$RH9PJK7<:X2K.H3*?==H*K)[7S.S*+*5D5!5/5%O+>X*?JF9D:8CJD2K

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