File DRFORT.SV (save files (Executable program)

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

?=2CPUAHHIH
)M?1GESSTT61)M?$BASICWS)M?>GESSTTDA)M?5DRFORTFT)U?=?-DRUCKEFT)U???:DRUCKERL)U?=?2DRFORTRL)U?;>]STFDRFT)E?=?7FORTSVFT?	DRSTATBA)E?:GESSTTDA)E?5DRFT2FT)E?!?2FTESTFT)E???WLESENFT)M???>LESENRL)M???)DRFORTSV)M?)$GPH^ <B,F>>G2I<<<B<B2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HA<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BJ5QNJKFPJEZNJFZO;X*PHNZEJNZS8NOROXG: 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;([-*PRQKEPQ(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5QNQ)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*\1>6]V"5B?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  [K[[K\[$ [AJ2IK[Z<;VK\Z=*> [AT2IL:;(+SUH>A?J=3^BO\<QN?==4J\RQPJ5QNPJKFN;Q(NHJG^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&HZ8DXZHY8DXYHX8DXX
;SA+VHXXPHYXQHZXR&D  L [AT2IN9;(2I
:+0PJ*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  XJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  S:2IO([^S(O([
 [AT2IQ\;(+$F PH[HOHNKFKEBOUOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [R.VUTR&T*TLR-R1SLTAT=UVUVUVUVUVUVUV0Q*FHG0V:  Y0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==W	BMAB UZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<H
R^R: KJ[J+%C?2ANW>(+V2B2I&X+VB  Y2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [W2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AT2IRAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NRFBJVA???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  T8DBJJTP/JC<<(*2K;=HK:K9 [Y/P [^2C.M0!+  ^["O"<X+/8J8J8JC22I/	?K2ZNK3ZO;(B A? ?
MBM?<IOERKW"7OT<(*Q\HLKX2B2I	V  B [AT2IX"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [YRZ*0KZ*LXHJBZ;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZB [^K\ZCLWTK5[SK?Z [AB2IY42AK>2A
6
7+)SCSVE9E/"5B?8GC?RFCH$GPH^ <B,F>>G2A<<<B<B2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[HA<B2J%LI,)X)2LIJYC2C-EBSTLOPQR<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BP2A2I2I2I2I2A2I2A2A2I2I2I2I2A2A2A2A2A2I2I2I2A2A2A2I2I2I2I2I2I2I2A2A2I2I2IPUT[XBHNLX<2L(+4KPSP6
HN;(4:FZB\Q$HW[Q^VK:);-<
P%RCHEL<M[I2W!<<QXUX	Y[?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,,%<B<B<B<B<B2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBL?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"L)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)<<B<B<B=.2I
POP
ROP2A8 Z(: J(>(*SJ(")";: J(*H:A")	Q!W/S	Q"AD(/S")KT
UKX
WK(
V2K.AH 9F8DKYXHHHX\HHX!HHX	HHX.HHX3HHX8.)HPKZXIHIXJK[XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;%C 0A?&?%?$2K2AZ?^2I
&S&S	+];$
)2A/%B	>	^=0FORTRLTM<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B="R&*M",J	?H*OJ)X<K?
>J*C2K.J(X<J+*LR	* ",J&?H*"J)X=K=
>J*C2K.SJ(X=J+*
??HATAW?O?JD2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,JM
3O38!
22A/CB>2AO1C0<(/J9J8H8!//<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BCX8??555	L=/PO?W?TAHAP>F2=VFM%2BAD
(AH0XOL1X!H!%LPOLO	>J!Z!P!*KJ!9F8FH(2J$RC\+7H(2J$RD\A+7H0XO$ZM78D8 ?PJY[0,LO[/;XLO[.K/8D?X+WK./> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59H%TOO FEW ARGSF28 A,>(.HH+X[%BAD CORE IMA
EM78H:HR?X.X2J$RIH?XR.X%A% NOT FOUNDF<]7%(2J$RK2A.-%NO!!L!]VH&>(%BOK8A[]HV]WHV[-LM\NSL+E/J=MF.W*+UK]
+0!+Q/T?/O)[\S)O)[[	-C-+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H/5
P>PGESSTTIN8 [A [BB2APR2APO [AC2APL [AD2IF]8  [BE2AQ>2IFHYE [AC2APL [AF2AYE [BG2AQ=2AW!8  [BH2I G2IFH [AH2I8A8!K<ZRJ8!K;?H+68A8!JZH [AI2APH [AD2APB8  [BE2AP2IFHYE [AJ2AYE [AK2APB [AC2IF] [AD2IF]+K8 +?/)2B%=GBDA8 [BE2AS>2IFHYE 7YELG<(+/?H+/*O8  [BE2AS>2IFH
E [AJ2AYE [AD2APB [AC2IF] [AL2APB [AD2IF]8A8!K=
<2AW<O<8!K;?H+/8  [BE2AP2IFHYE8  [BE2AP2IFHYG8  [BE2AS>2IFHYI [AJ2AYG [AD2APB [AJ2AYI [AD2APE [AC2APB [AL2APE [AK2API [AF2AYE*/2A
<2AW<O<8!K;?H/:8 +?TXGPBA8 [BE2AP2IE0YE8  [BE2AP2IFHYG [AJ2AYG [AF2AYE/>8  [BE2AU=2IE0YE [AC2IF] [AF2AYE
< [BM2AU;2AXH [AH2I [BM2AU;2AXP [AH2I [BM2AU;2AW& [AH2AP8  [BH2I H2IE0 [AH2I [BM2AU;2AW/ [AH2I [BM2AU;2AXP [AH2I
:2AW:O:8!K9?H/8O: [AN2AU72I
6+?F5JVHBPAAPHS18 [O [P [Q8/> [BM2AW=2AX [AH2I [BM2AW=2AXP [AH2I
<2AW<O<8!K;?H*3O< [AN2AW:2I
9 [O [P [Q8*] [BM2AW=2AX< [AH2I [BM2AW=2AXP [AH2I
<2AW<O<8!K8?H+^O< [AN2AW:2I
9 [O [P [Q8+H [R+%(7F4.0)+.(I3,F5.0,7F7.2)+5(/	FACH	//)/7+?XGGF5JDPAAU	8(/	KLASSE	//)*O(/	GESAMT	//)*;(	NR.	,	 ANZ.	,	  1(%) 	,	  2(%) 	,	  3(%) 	,	  4(%) 	,	  5(%) 	,	  6(%) 	,	   MW. 	)+C(/	LEHRER	//) [R<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B
B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B [A [BG2A[?2AZV8  [BH2I!F2IB [AH2I*Z(7F4.0)  O [R*3K&8F8F[&JHZ^K&BAO	
	K&8F8FBAO$
$S$*9K$[	S$K&B
$K(9H.B> /)Z9K<"BK%K;> +O:8H9T
:2J	9H:A2J&7DREN+\2J&7FB0	8(2J	7;&G:
:	8(2J	7>X^4BZ%>A>2IK1
6K5^7K)^.2C/(<B<B.AA?8A-*??&LBZ3?-^DP>P [AZRJ8!K>?H*+8  [BE2A\2IER"0 [AC2A\L [AF2A"0*TZRJ8!K>?H/=8A8!K<ZARAJA8!K;?H/:8  [BE2A\2IER"08  [BE2A\2IER"28A8!JAZH [AI2A\H [AD2A\BK;8  [CE2A\2A\A2IB"4 [AJ2A"4 [AK2A\B [AD2A\B [AJ2A"2 [AC2A\B+??/:(^EGB^FJ8 [AF2A"0/>
=2A
<2AW<O<8!K;?H/:K98  [CE2A\2A
82IB"0 7"0LG<(/7?H/7*"K98  [CE2A\2A
82IB"0 [AC2A\L [AF2A"08A8!K6
52AW5O58!K9?H/4K98  [CE2A\2A
82IB"0K98  [CE2A\2A
82IB"2K98  [CE2A\2A\A2IB"4 [AJ2A"2 [AD2A\B [AJ2A"4 [AC2A\B+?"0*M E\AB")AG",J\\,\68 [AF2A"0/>K=8  [CE2A\2A!<2IB"0 7"0LG<(/;?H/;*X8  [BE2A\2IER"08  [BE2A\2IER"2K=8  [CE2A\2A!<2IB"4 [AJ2A"2 [AD2A\B [AJ2A"4 [AD2A\E [AC2A\B [AL2A\E [AF2A"08A8!K:
92AW9O98!K=?H/8K=8  [CE2A\2A\A2IB"0K=8  [CE2A\2A\A2IB"2K=8 +?*Z&Z*Z&Z*Z"+\AB")AG^98 [CE2A\2A?2IB"4 [AJ2A"2 [AD2A\B [AJ2A"4 [AD2A\E [AC2A\B [AL2A\E [AK2A\I [AF2A"08/>/=  P [R&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z
Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z^H!SA [AZRJ8!K>?H/=8A2IO<
<K;8  [CE2A$2A%:2IB	0 7	0LG>(/9*&ZARAJA8!K;?H+QZARAJA8!K;?H+P8  [BE2A$A2IE0	0K;8  [CE2A$2A$A2IB	2 [AJ2A	2 [AF2A	0*.*	8  [BE2A%82IE0	08  [BE2A$2IER	2 [AJ2A	2 [AF2A	08A8!K7ZARAJA8!K8?H/68A8!+?&4BH	ZAGF5	\J8 %<HO?2A
>8  [BE2A$E2IF 	08  [BE2A$A2IFH	28  [BE2A$A2IE0	4 [AJ2A	2 [AD2A$B [AJ2A	4 [S [AC2A$B [AF2A	0/= [BM2A	<2A	] [AH2IF58  [BH2I H2IE0 [AH2I [BM2A	<2A	&8  [BH2I G2IF  [AH2I8/;+%(I2,F6.0,7F7.2)+,(8X7F7.2/)  Q [RXBHV	B?&4C$KA%-$E$A2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [A
2A(2*-(8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  M+OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%VICE-SKIPPING-?402+AT1FM8=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*	<[%*0Y(39W0O	?Y0
6?8?/6]()4*)W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AU2A(*K8	: [VK8	:*:	?	>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	:/SA*	42J	3,^2A2J	<I/*<B<B 7%3O.5E+%0-0OE?;3P24 %<HO?8 [N[K [W8 [L8 2A
>:SN<H*7	=	<. ?R.2? .M?U.M?S.K?;.6(O[M [AK2A)/ [AD2A),KM [X [AC2A),SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AK2A)/SK+U+]	; [AF2AA>/7<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B3X, 8E P7Z4*083O+%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [Y.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [YC3K2<(*3K19K:<P*9*4FILES RENAMED:FILES COPIED:00K/00K COREDAY  NOT ENOUGH CORECANNO>-?3A???J?M4(!B A? )W (26W	?/> [AJ2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AK2A)/SP*RQ [AD2A),K:2I
=2AO9K8>(KP8!I==8 	7 [AC2A),Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+RLIB8RLFT?STAUSWBA	5?9LOADERSVFT?4STGH?<RQ7Z?:()PD/4 P.6 [WR)*HRL  HI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 74KDG9F8TZ(;(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/*TR0O0OPQRJ?FHSY=2AO?<(.	>(R?(0?78&?80K?:,"?;,A??6-(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++	:*CLESEN*+%? 080O?4(20Y*
4*()I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<8Y? 8J?U8J?S8G(MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AU2A(*XS [V)*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/WTR:!TR:!TR:!TR:!TR:!TR:!TR:!TR:!TR:!0O0-SD+%?<64/O4*083O/NZAJFZK8NGRGZRNGRGZ)8N)"W  NZ)K?ZC9DZJA9DZA<XJ)JRC*[.W<X$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9
<P+RJD+S:JB8H:ZBJ<X8!  U:S.S.REJA=HJD<H9HRE+7  VPIP FO?4JZD8NARAZKNARAZQ8NQ=H8!  
>DRRRR    [AT2A:	;(  UZQ2I
?
>
=JQ  W: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:WHT=!9J8J8JC?<(??ARQP

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