File REAL.SV (save files (Executable program)

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

??2CBP
>B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBM.4R4G3=4D4IM34W4C334A4VM84Z43+4D4WM=4X44D4J4HNB4X3?4R4O3:NG4Z3=4J4P4BNL4\3:3:4R4NQ4\384H4R32NV4Z334H4R3-N[4Y3/3;4N3>N 4T3+304L4FN%4L3,4F4L3>N*4G3.4R4N34N/4A3,4H4G4BN43>3+4C4G4DN9383.4V4I3:N>3:324
4J3.OC3=314O4G3:OH4B3/3:4J3<OM4F324C4N32OR4F3644N3,OW4ICE(ABCDEH;9 P8AB>PO VVWMCTTXO,V;QQRPONRO2X	QBVPJUWPWUU*U.LEL%LSLICFGHOB0B CNCYB?DP 0HO???0?1?:?=???2A<?4?<?;>GZ ^].]M]R]&]*ZCYZ=?=DI?*C/?/>Y,2T< <BICZI<BK6XAJ	XBK5XCK4XDK7XEH<YHO=
<; I	XH\HQH*[Y-$*$([C$([
$T8*"8D8F8 Y!$([NYHIFYIX+IHI*YJ; $([SH1IH$ H5$ $
$Y*++BP+; ]JQHQI*1H+>(*T$([1$
$Y+I>H/;$(\B$
$Y+P+$S$T8+P9D8FY.I.I!?+P; 
:$(\F$
$Y+/9$S$TH+Y/$U+Y0; 
8/9,EY6Y5SD]"D]!EPVAE,PCW[$(\R$
$Y**O$S$TH*> ; Y2; 
?$(\J$
$Y*O*.$S$TH*O9D8FY1$T8*OI1Y1I2> *&I.> H/H.9 I1>X*O; 
>O=> *9$(\Y$
$Y*.*9; 
<$(\^K,
;$
$Y*9+PK 
;IEYH; I&XH$*$U*9\HQH+H; Y-$(\!$
$Y+P/:YHH+8!YIIH$X+*IH9D$^>H+	IH9D$Z>H+]QI>H/9QH+Z$P+;K,9I"<P:9F8FA52IH\OFBTVA]%]"]]$Y3>DC0Y4I4> /?O>>(*LI.*[;AI!>(*[$[L<(*[Y\I\I!?H*\I!8 Y\O=>($[I2MI\Y\I\M> HNIDYIII8!YKI\C1> H/H.YHO<>($[I1AHY%I%8 YHO;>($[I00YJIIQH+AYU$[YTI\L> +XI$9 IT>P+VIU8!ITHN>X+XI$Y
$VIFY]$W[]<BY
$QYHIH\I9IHI
<X8AY
QN+
2AI3>(/?/: A8IP<(%)X -OM9:%-H,]"]]$]!HQL8IL$X*IL,9D$$$"H9<(*H7>(*]$!C:IL9D$^>H*IL9D$Z**SIL,I)YHMH.I\Y\I4> +,MH=IJYR$\$*8; Y3$]Q]/?>D?+,/>>D?*?; Y3$]/>J5Y8Y3IFY]IFY^Y+$\D>H+QY+	=+ Q^+G+
IP/<(+\Y,Q+	=>H; Y3<HY+Q]+GY3Y+Y,	<I3>(+(Q8+B>D9D?H*?Y3>D6>(+3$*	;IQ$Z/:IQ$^+3/:FXT(NGYG[8A[;H?[<IQ-98[:H,S:*II([:I,>(*)N>(*-IS08!IW> *); I+<(*%I>(S:O:< IA*,IAO:
:S:IAW:>H
:>D9F?H+-N>(+,$*$*K;> *<; $([VNK=YOMO[C; $(<B; $(Z?$*JYORN[8RI9[;K9XHIE[:K8=+29D[8S<>H$*K;S;S;["; $(<BLH$)S:+TMOIG>(%:+/%:RR;A$	.9D[8S;S;PH+%ANK?[8/7Z]ZZ*Z0Z:7".E<B;JQ$ JR$ $ .IBMBJ8F8FZIIFZ%JI.H1$ JI8F8DZIR%*Y$S.S>($*N%R%ZS;NS<<(+A=8P8A8J8J8J$ NSAB<(+AKH
KG$SRS*+;.%H2$ /C!
 8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59HI,> *JI 8!I
>(.; \!IQM> HNIDYIII8 [M; Y $]IV$WZ&II[2IR[,K2CMYXK,0YW$QYZ<BLI2AY[HIYYI[8!IZ>(*:Q +II,>(I^R$!E?0S2+S,8II[2QN*^L!>(Y+T!.<B+G$!*:;AK<K=K>[<8DK<K=K>[=8DK<K=K>[>K>/N;AK8K99F[8K98JK8[9K9/ K8[:K9[;/,K:[8K;[9/2J\.8J\.8Q
-[B>DN> <BKB9HI)[RO?>(*RI0=I/*+O>>(*ZORHK<X8A<H$[>KB
ROR9H>P*-IOR>X*-O>> *+OR=KB
ROR.KO$$OR=$&$*4$"=*<;>(+$!C:R$	.;0Z0Y+E0^CPKQ0&0!+K0"/BXA?B[BKR[KBSR8!H3>(/RKBSR8!H4>(/R/,I*[BOB> S/H8YP; IH0IIYSI7> /+I;YQ/+Q]+^$
$ Q\]%]"; Y7Y,IT$%IUYVIRYHIR=YII\N$$IQH:Y;IH0II$&0A
?Y $WZ,I7>(*!	>*\IN8!IV<(*<8!Y<I<8!INYN<BIQ?*4\IQ<*0*<I 9LI<X8AQ<*5Y 2AIN>(+B	>*!R.7!++QH8IKIVYV7%H8< +
IV>(+6Y7I;7&IH0II7I69HI52$0A,	=IQ?H8A8A[	I]$!?0R+B0Y>H+20!<B0"+Y0\0&0Z+Y	=Y7I69HI52$,Q+YQYY$
[5N.H19!K5>P*VNL9H8JH18 K5>X*VK5.RR.IF[6[7$T8.XK7S6<H*&8D8F*[RX.XIQ-9H[6K6I	[5;AI%O5
5>P.($[
?$[
>9K5K8[5W5O5I">P.(
5K68 [6K4H,S6+H[6; W6>H
6$*$(]BIQ-9HH1$ ; $(]E>DM>(+!$R/=	<.(7%<H<BYPIP/7$/*<BYSIS7/.<B]TDXFO9O8<B.2ALJ<BQM.ZPIEYM; I&XJJP.0&0!*R0":.P$(]BIQ-9HZJH1$ ; $(\(	?JI*Z^ZIFZPJ$X>H.WRRP*,$*$(]B; $(\0<B*98!IUYN; ITXII->(+JIEYM; I&XJI\LICZEJE.;7!<HSP/PYQIQ7&/U<B>DC-[UK0YHK/YIMHYJMJC.KU]JQ
QI+"<B++G88G?6W1SDSKSTSXWQLFU1U+U$WXX$([8IFZ"ZZ$JH,ZJI(Z&J$$X*^$*$SJ$H1$ $S$S;&Z%N&$)R&R%*YR$R"*G.-ZH<[YSX*,SY*,J$$;V$	$*4$"=+F;> +F$	HNJ$$$+$"H8>(.	;$!D:$*$*$(Y4$RR	.	SX/QSY/Q<B+V$(ZSIW$); $(ZUIX$); $(ZWIY$); $(ZYIZ$); $(Z[I[$)/ZRECALIBRATE ERROR DISCONN
CT!PC:ST:CM:IA:DA:CA:WC:FW:AS:WA:AD:DG:DB:READ STATUSWRITE STATUSSEEK STATUSRECALIBRATE STATUSDISK DATA ERRORRK8E DATA RELIABILITYEXERCISE DISKNON-RECOVERABLE AMOUNT OF EXTENDED R/W MEMORY(0-7)?ACCEPT MODE?DSK HARD SOFT COMPFIELD?TRACK?EXTRA SECTORS?BLOCK
LENGTH?SEQUENCE?DATA?ARE YOU SURE? DISCONNECTED!SYSTEM SHUT DOWN, NO DISKS TO RUN!DISK  PASS COMPLETE!$"I)$; $H9HJY]K(Y!;&Y I]Y
IJ*RI 9H>XIRHJI]Y
IK$XIGY^Y"I"AN\3I
9DAGL3\3>X8AH8\4L4IDY)L3$U
%+I"H<Y"Q^*VQ *J; Y%;&Y I]Y
*>I 9H>XIRHJI]Y
IGY^Y"I
9DAGY&>X8AY)I"ANI&$U
%+I%>(IJIJ$W>H+I"H>Y"Q^+AY%Q *7I]HIY]Q!*D$
$ ^/	  9.I:$";$Y+H9$	Q++.;I)Y0$($Z>H+>Y7I(Y0$($Z$W$X

>DY]<B>DY^I^AIC$(I^AG$*$	*L$+$$> *NI]AIC$(I]AG$*$	*Y$+$$> *[*C>DN> *4H9<(*49D8!H8>(*0;VH8X8*;	5	4	6X8$2$/7 >D=> <B;A$+YZY[/B]>D9D?X8IHY[YZIJ$XH8\4\3ILY)$U!1+/<B$YH8\4ILY)$U!18;VHJY$I8[1I	$">H+/;A$+$YHOY)$U!1+/IJ$W$
$ !S<B+A"5"$	;B^2D>$ ^<BP>IDY!H98 Y Y
I
9DX8I
$R$P$+Q
Q *GY
H98 Y I
$Q*Z* *1Q
I
I > *U*Q; Y Q!*GY
H98 Y I
$Q*(>H*1Q
Q *($
$ "A+.IEY!H98 Y Y
I
9DX8I
O?Y^M^9H>X+IH69Q+MI
$RC89]^M^$P$+Q
Q *<Y
H98 Y I
$Q+]++4Q
I I
> +X+T; Y Q!*<Y
H98 Y I
$Q++>H+4Q
Q ++$
$ "6+.5?>H9$	;HY8H%];XY!H98 Y Y
I
9DX8I
$R$P$+Q
Q *GY
H98 Y I
$Q*\*"I8[Z+XQ
I
I > *U*QK]I
[\O\Y^K\H=[\I
9DX8IK$XO\H8\4I^\3L4IDY)L3$U%Z+X$YO\Y)I^$U%Z+XIK$W>H+XI
$R$PQ!*\Y
H98 Y I
$Q+O>H*YQ
Q +O$
$ $A+.359D$(I)HM$(;ZY$$$$	+1;XY$$$ID> S^S^/^IE> +./^;Y65?37D4/4)>DCGY]; YZ2TI]Y]I]?X8<B>DY^<B>DY
<BI
$X;I]AFIE>X; Y I]AFIL> *	I]Y)I^$S	E+C+BI]A\4I]Y)I^\3I >($YI^$U	E+CI > +BI)L>(+I
$V+B+CI
$W$
$ &T+;*T?G>D9D?X8;$Y[YZIJ$XH8\4\3ILY)$U	=+;IBH8$($*$$> +*$YH8\4ILY)$U	=8;VHJY$I8[=I	$">H+;;A$+HOY)$U	=+;IJ$W$
$ 	Y<B+H;NY=>D?*O>D8F?H*MK,$^N/-N[.R;AJ[/$2$2NAK5Z[K6Z^$/6L$2$//(; J$0N9D<P*4Z$//*J?*1I$1I$$0>HZJ9D<P+AZ$//,I%$1I&$0>HZK1[4K2XHIM[3J=+&9DZK4S4S4[R$//2LH$0S3+H>D8FN>(+">X+ K//-K./-<B	0/.*49DZS4S4PH+UBG,8F.GH-W/.A&/<K66L6W661697C7M7UFOR CJ<(IRZQ: ZY0ARY*GRQ
G0B.R$	<B.F?Y.I.8!I$> RQ.Q;IAN8!I%> *%I&8!I$> RY.Y;IRZQZYRY*,RQ*,.	2\;IRZQZY$	>H*>RY*6RQ*6>HR1.1F=7%<H<BY	I	/.NY,I,Y+I,7$/G<B2ZY*I*7/O<BF<Y)I)7&/U<B227!<HS[/[F07"/ <B7	/$<B;IXY\;X$-8H$-;HM$-Q\+2;HJ$-Y*I*/(.2)AT1FM6=;X$-HJ$-Y(I(Y-I-.;IXY\;X$-8H$-;HN$-Q\*T;
J$-Y)I).JI"; H7XHISY4\HQ4*.]IVY5; H7XHITY4I5\HI58 \HQ4*.IA\H.	[V>DJ> $[>DK>(+R;A$+I)CU$(;V$+$Z8I)HM$($Z8I)CUY);A$+/V=?F.)$>DI>(/WSW$$$.;$);Z$-$,$&$%$2;A$+IT/W[W8DH8$(I)ICI/$(KW$*$	+6/+4=D?&;?>E??0"I)Z,; Y;NY<RI)B-I/H8$(H7$)J,$*$Z*\;XY$$$ID> *^I7R]<.I6*ZI	
>(**;I)AFIE>X**Y;*XI8*Z=AI,Y$H7Y,I)A8!M,>(*;I)A+Q,M,8!I*>(+CI*+;VISY4Q,M,8!I$> +$I$8 Y$Q4+FQ,IA8!M,>(+YIA+;XY$I;> ..; Y;I8]<;XY$M,Y-R...PC:GD:CR:ST:DB:CM:DA:CA:AD:DT:?:BUILD;IXY\;X$-8H$-8H$-Q\*I;HJ$-Y&IXY\;Z$-8H$-Q\*U;HJ$-ANY%.Y\I\8H8JAJ4$^I\AJ4$^.^PP;J2$
J3$^.+BMBJB0B )U8F8FZ+IYZ^J+AJ4$^J+8F8DZ+R^*<J5$^.6)S;OISIZ6N6AH<(+%=8P8A8J8J8J$^N6AI<(+%K(=K	J5$^R6;+N;/I!
 1H0&0!++0":/)NOT CHANGE CORE CAPACITY WHILE RET;N[MRJZMH8I/$(;V$+*ZFZ[NNM[MRMI):I/H8IC$(KN$*$Z+K;XY$IR[P$$ID>(**IEY$I	IB> +HHMI)$(;ZY$$$$	<H*;IE> +HS4*/SP*/+K;XY$$$ID> +HI)CO$(Y$$$>(RMI8
M.MI6+IF!/&=??![09AK2K39F[2K38JK2[3K3<P+!I::K3[4K1K0[0K4
0K0H=[08D
0O09HK4/P3935\!(ZUC(ZBAD EF"R;NY=>DM> <B>D8D?*ON.YIZ> *TQ[-=;A$+RR.,8Y$H7Y,I)A8!M,>(*	I)A+XQ,M,8!I*>(*/I*+XQ,;VITY4M,8!I$> +YQ,I$8 Y$Q4*3ITY4Y$M,> +XQ,Q4+AM,8!IA>(+NIA+X;XY$I;> .Z; Y;I8]<;XY$M,Y-RZ.Z>DAVZZK0ZK1[/O/XLAWJZ\S/R+$<B+-?&52+\+!+R+L+A+X+%V<V;V7V
V9XVX*XUXQXXXSPKPMPPPSP<P>QAQDSTATUS REGISTER ERRORCOMMAND REGISTER ERRORDISK ADDRESS REGISTER ERRORDISK DATA ERRORCRC REGISTER ERRORDATA REGISTER ERRORDISK SKIP ERRORDISK INTERRUPT ERRORRK8E DRIVE CONTROL TEST PASS COMPLETE+1;H7$	Y6$&$]$,IQS&/&/?TLQF;P"\
IC[JSI?OIC9J8JKJ8J8JCSI80Y*;0\C2K>> *;2C.[>9O2LJY[ANBQK;Z08HNR=H+9BG8 [=NR[INBF>(<X*TK10&0Y*60Z*TS=.\J0> RR2K.0V0Q+EC /C ;KJZ"\
I[C8F8FC OI
IKJ8J8J8HC KCSI<
I*P9TJ0>(+,0LZ0R0+.K0[J+6K<[JBZC^A?0I+)0J[<KJ/;X*?2A?=PUU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**
U**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**2KP0CPHH>G%D<B$>/G] %3F%RAS<(8A8!XP%3GXSHS<(: PP+&8!I1[5/Z??8??5W+4PSL\? PA\H.H<H^6"	?H3%D2A+2IA0H3%D2A*02I		>%!*R<B*NH[8AZXL[%D2AW*+UK]
+0!+Q/T?/O)[\S)O)[[	-A>+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H/5
%+ *;!NV	?%. +!KV	?%* +E!JQ	?%  +J!PQ	?%V +O!SL	?%O +T!VM	?%N +Y![G	?%H +^!9";	?%G +"+	?%^ +(F0	?%] +-L.	?%V +2O)	?%K +7V(	?%F +<Y&	?$> ,A]	.$: ,F^!	R$8 ,K"	E$4 F,P+	$6 ,U*	N$2 ,Z	.	B$. F,
+.	C$. E

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