File FORMRK.SV (save files (Executable program)

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

?>2CBPDHKL.0$DB\$H%DFHODMPAD HEDRHOLX.H<PBHWL%D  EHE8C <WHRDDEHRORT/0A;H	P	LQ(HLC0?($*H$([LA(HL9 DHF([ILTH>(KY$TLW8CDK$*DW(IC,>D*(YH	P(LQ(HLC0?H(D*H$([LY(HL9 DHF,[LK *H!,KH>( D,,$*$YL]8CDK$+H]XIC,>H+XYIL)L>8KY$)L.8CDK$+H.$	$ QL:<C	?	>",O=> /<O;ZLO!	:D>A/9
<	8K7	6FREEBLOCKS	5	5PS: 
4.OJ
Z,H\
3HT[SH[[EHX
;XS*4	3	4.,O2[SO1[EO39K0<P
3<XPS9:8J8JK/[C	.2B	S	-MKEK0[E;XKC	,/9HS> *.*4PS?H+!K+XQ2ALQ> +$; HQ<X+X>	*D2IHQ9XC!K:+M]G3?R	UPUHZAMP+Q&PAQ]!
 (?:!BYEBS*XT;X-
>G%)8 H^H99 H8H^,AORJDJD>PTILADFAJGFAL4NFUTN>PE?JQTN0DPD5BIZ6[AT8T"OCOL\7)-P7Z-S7]-V7[-Y7"-\7+-
7--"7!-%7%-(Q(-(7	--Q---7*-2?M/G	<%E[DDGD)=?<!I?<H,*>DC?9DX->D=$\$PK>XAX.$ > *\X6K=XHH6\HH68!K<>(,SP6*SK=XHX9H9C;>(*%$)<H$($
$Q:H;>(*.$[*	H9C;> *<H:C:>(*8$[*
H:\HP9*
H:C:> +B$[*
C9>(+G$[*
H:\HP9K9H9> *
,SP
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ I.X JA?0?8HO?,^C:H-!S\T$U!P!(*FK?H-!S:H!XBK>XOK=8!HO>(*\LOH.\YX1Z!V*[;H/>(*%$	$ > <H*LH"XBK>XOK=8!HO>(+GLOH.\YX1Z!Y*4:LY8!H4>(*?$Z$$: X/LT>(+F$Z$%: X/*);H/>(+P$	$ > <H*LK<H.>(+XH.K;
.*L!P$&<B!\:K:!
H]!"0ALYX4H4/Z+5K	I=H:9F8FA"2IH\OK&/[HY>(H">(+<;>PM AO?9<(-3X I1XP%&-3<XI I
PP=*NXQ9P8DPQ*TXQ2IHQ8 DPHQ\P2A.DD=H I^9I]<X*+I\9PI <PR . H[%[H\%[%- DOES NOT EXIST:%-ILLEGAL SYNTAX%Z2II=XNIYXP\NPP+K2A-XD4LMIW<(+QIV<(+]I;<(+ IU/PLM%T+QLMIS<(+QIR%T+ H!> HU>(-3I	HOXZ;VX^K?%Q9F8FA"LZ\Z2AH IP<(%)X -OM9IN%MXTI?XM0Y*EI00\XU0ZILXNLN<(*UHU>(,
PN*M.HU\MHMIK?H*EK-3K\M\M-J=+*<=3*^<A+Z<C+R<B+R=%+R>*E=1*E=D*9=6+7==*<.II*WIH%MHUIG%MKLN> *B2I: ]F0!+H-EIDXU.IC%M/KIBXU;X2I]12A.*
HMIA>(+*IQPT%M: XTHMXPLP%M: HM*DPT+AIQ+IYPT+3IQ%MXTHU%M/.K\MI?XNLN<(+	%M+;CPCTCRB:X+<BK?X8HVXHK>\HP8*L.GX+8HX,!-<H*1!(<H,B0Y*^0Z*+0!*"0"*+0I*&0L*+0Q**0R<H	";H,8DH+0A,$Z!%X5H5C=< 	H5C<< 	$H5C;<(+F!2>(+F	%<H	&H5C:< 		H5C9< 	(H5C8< 	)H5C7< 	*H5C6< 	+H5C5+
	,<B: X/,BUEVVKX
VXV&V3WBWNXXTSHX>(/	H;]HXSBDHP ABDH**<;X:X;0Z0Y*E0^0&0!*I0"X7H78!K?> *TP;.H79!K>>(.K=H7?*
$[*AK<H7?H*%$[*AH7C;X7H:9F8DH7X:H:C:>(*3$[*A*D: J4XJLJ[BKB8J8J8JCKBC*8C9< +I0",JK8=+NK7+YK6< +SK5+YK4< +XK>+YK30&0!+Z:/C2I]F-DS&/!%	HH??[(A/!$]!AF+5K,$&K.B%?>BJ?=C ? ??G=H=PBMC?<B88:NZG.HNJ*CNGC?X<NGC>X=NGC=X>NGC<X?H>9J8HH?8J8HK;X>R"HH>^GH=8D8FH<K;X?R"HH?
GK:ZHR.0Z0Y*20^0&0!*6X8X/0ZK9H8.0$W%?.>$W%SURFACE0 /C$W%SURFACE1 /LXTP"(((HRHTXR+O:HQC>9F8DK=]7HR/	FLHR9DXRHQ8DXQ/(LL>(/<%	BAF,(A/5<	NJ008G8G<B$W%**** DISK MOUNTING PROCEDURE****$W% NO.1 TURN LOAD SWITCH TO OFF POSITION$W% NO.2 LOWER ACCESS DOOR$W% NO.3 W
IT FOR SAFE LIGHT$W% NO.4 PULL DOWN RECEIVER HANDLE$W% NO.5 REMOVE DISK AND INSERT UN-FORMATTED DISK$W% NO.6 LIFT RECEIVER HANDLE$W% NO.7 CLOSE ACCESS DOOR$W% NO.8 TURN LOAD SWITCH TO ON POSITION$W% NO.9 WAIT FOR READY LIGHT TO GO ON,!!Q,KC]98AY5/BK
/7Q,Q1*2U4Q1Q,*,9IOI=>X+TIO8!HAKWY7/VH4C0H+YOY2Y1Y0-/2KO2> /.O0[(O12A$UA- K(2K
//.67<^=3<I=0\	W%\*W%T0T<?9$&T -,-S=6=7<B$W SECTOR NO..<B$W% WRITE STANDARD FORMAT?(TYPE "Y" FOR YES).I<B$W% RE-WRITE TRACK?(TYPE "Y" FOR YES)."<B$W% DISK FORMATTED <B<B$W% UNDEFINED INTERRUPT <B<B;H4C?X8$X83U7;H4C>8J8JX8$X8U.U/$W% TRACK $W0000   SECTOR $
00/T?,HY$5*A?0O<B$W% CONTROL BUSY.<B$W% CONTROL TIME OUT.K<B$W% DATA PARITY ERROR.X<B$W% DATA RATE ERROR.&<B$W% TRACK ADDRESS ERROR.3<B$W% SECTOR NO GOOD/B<B$W% WRITE LOCK OUT/NHZXO*IHW8!HZ>(+T%%)$*IHZY8 Z/5P\L\I
>(/4L\XZ%=/3YZY&\AD9?/=TD1I9?:$R85?W?<B$W% TRACK CAPACITY EXCEEDED ERROR.<B$W% SELECT ERROR.T<B$W% FORMAT PARITY ERROR.
D>A8K%<(		> +S	(?<H+VK%>(+EN\>(*BK5	*+^:AZ*[%	I	6:A	"2CJ*>(/$0&/RQ42C/US^	I2C/3	I2C/4	I2C/29BBAM)<A:AAU:(PU?&;1O>OZ?P+P)P((8A:0>P&3&A?GW*LZ2<B$W% CHANGE DEVICE CODE 73 TO?.<B$W% CHANGE DEVICE CODE 74 TO?.R<B$W% CHANGE DEVICE CODE 75 TO?.$<B$W% FORMAT ERRO
.6<B$W% EXEC. WORD ERROR/AK9[AOA<B/G2B!![G2LK4[!2AO.2I>(8AKG2C/U[,2A;$G-K,
-2I/?&A2H.C?==>72C<(>O?/:(7%=1]&&	YZ;		$QH:C?<(*I$[*AH:9D8F[*ITC>K*YTIWC>K*YWIZC>K*YZ	($QH:C?<(*!$[*YH:9D8F[+K*8!K+> *,$[*YI]C>K+Y]I&C>K+Y&I)C>K>Y)I.C>K+Y.	)$QH:C?>(+D$[*<H:9F8D[,K*8!K,> +O$[*<K+8!K,>(+V$[*<IQC>K,YQI C>K,Y IC>K,YI3C>K,Y3<BZZRZ$GXG G(8FB/)
0ZA?9F8A?0BZ8M9GA?9EH 8G?A;BJK/K;NOPGTAXX-Z]K]3.LMIPV.ABJF]F%LTL0MPMQM NTN+N4N=OQO(P7P=QQQZQ4R2SLS<TGWDY,\^])]2]=.5/J/T/Y/$/	0B01*4J5	L5L=OR+SDTJTXT&T>UDVJVRV
WZV+WZV5WZXYWZX*YV1Z1
1!11%1	1)1+1-AJTK%H8 AB"B"B"B"B&*

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