File D1EC.SV (save files (Executable program)

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

??2CBP
>CZ(5L2XZDJ(3L7\ND^H5L5\RHR(6W(DJ88L=$JL^,>L(ZDJ(2L6LJZ87L:\^DRH:L7XRH*8(3PLC4HLH <:L<(89?L<::>L?8H8LAKLAG?H(<G: G&"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B(ABC9 H8H^,AH+?4JDJD>PVLH!UPTR??BNLDSKO?.A2IPH2KHXXYHY<(H"XXI*,5E!K6BMHB88B.B ? ?GE>G!6AB$BJBM
E?AC^C
BB44H!B*B2<C\B)=WFDB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?>D< *D.MJO> *H.M>DJP> .M.N:<E0(I=XOX
X[X\%<I;>(+M%:H!>(H	H(HO?+;H!>(*02IH\OHU\OHV\OHW\OHX<H%9\O2AX
H <(+RI8<(-7I6<(*VI5<(+JI4> -3X^\]2HRM1]1*2P!-3*NHUX[P
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ I.X JA2I/\%-TOO MANY FILESB[H
>(HOH(? *RHU>(*	H%X\H$X[H[Z"H\ZH!>(HU>(H)8AZ!I,Z$2J%0JPTL-+JX.DBWXUXVXWXXI*XZ: X]XY%)X H I(<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> P]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K	I=H:9F8FA"2IH\OK&/[HY>(H">(+<PY(2%!%- NOT FOUND<(-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$6XTI?XM0Y*EI00\XU0ZIMXNLN<(*UHU>(,
PN*M.HU\MHMIL?H*EK-3K\M\M-K=+*<=3*^<A+Z<C+R<B+R=%+R>*E=1*E=D*9=6+7==*<.IJ*WII$6HUIH$6KLN> *B2I: ]G0!+H-FIEXU.ID$6/KICXU;X2I]12A.*
HMIB>(+*IQPT$6: XTHMXPLP$6: HM*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6+;CPCTCRB:8!JE>(*72I:AM0X*M/X+MAX"];2A2J%0KH"J/> *)J0X(J1X	J2X&^3^4J5^6X"X)..OS8D?H(Q..GFVA<?"EB$CF+BD8%?HKCXKBXA:AXH(\H*AH7X\"1H6$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSH
SHWSHX>(/	H;]HXS/	I680!+80&:H:[7/6,4%0BAD
(AH3XOL4X!H!%JPOLO$Y<(J\JZP!*KJ9F8FH(2J$RC\P+9H(2J$RD\A+9H3XO$ZM88D8 ?P%J[[2.LO[1;XLO[0K18D?X+YK02> +Y%: K09DK18D?X+HK0H<+XK0X!K18!H19X[0.;Z[1K008!H!=H/[0.T4*0%0FHK(A: 2I\=,.S*/%%0HH??[(A/%$V!AF+9K0$YK2[2/.$>SAVE ERROR%+$> NOT FOUND$>TOO FEW ARGSF08 A3>(.
H.X[$>BAD CORE IMAGEM88H:HR?X. 2J$RIH=XR. F:]8%&2J$RK2A.-$>NO!!L!]TH&>(%OK8A[]HV]UHV[-LM\NSL+E/J=MF,W*+UK]
+0!+Q/T?/O)[\S)O)[[	-AD+%K[7K][]S)+M2J	,G<D<?2?>G?:O0L\L!LRLLLALXPC9J8J8JC?8A9H/7
H]8!H^> R.>DS> RG.G:XZX&>DVX	>DW9F8DX(29	?	>21	?	=2)	?	<2!	?	;2Y	?	:2Q	?	92I	?	82A	?	7	6%H&I0	5	6FIELDS IN THIS SYSTEM	6%FIELDS SEL	D ARE 	4.M$6$7+G:IUY,-,PUP0QIHCLQ<BK	8!KX< <B[XI^8AY^<HQU<H?N.<B<B<BI^K?< <BK=R3UYT ]E]S]!^^N^\^*^8R;2TI>ZJI/^1N1> *L2A.P&H
8!H	< *X2L8!H	>(R*J?H*)2L8!H	<(*V?H*V2L8!H(<(*V?H*J*V2L8!H	<(*V?H*!*JR2	?*8I.	>	=*<I-	>	<+I,	>	;+DI+	>	:+HI*	>	9+LI)	>	8+PI(	>	7+TI0	>.3R*SF<BI^K)< <BKX8!K	< <B[XI^8AY^<HST<H?H.<B<B<BI^K?< <BK.8!K=<   F M T \ $ ,UY 3;NZ]RNZ^RI	8 F]8B"RR^I	F]"R.Z
J
9F8DA&J
A&I%^^.R: J XHLH[GKG8B",KG",*$A	<(,HI$< *5I+EI3=*:I"+EI!< *?I +EI1< +DI
<HI^H.,0+S0&0!+L0"0G0A:/H0&0!+T0":/HHI]H/YK"\W,W-$(?C?0:HUXODOHOH"8 < <B:HTXODOHOH!8 < <B:HSXODOHOH 8 < <B>DR>(*HI	?.>DQ> *!2T8J8HA\I[ZZJI/X"	>"V[	=%  . >DP>(*(JI/<B>DT> /<.P
<H*.:J-ZK;Z *AH^9J8HI[[H	> WI	=RELO ERR AT 	=: X!*!WA\%I^8AY^KY
\KZ\[,[-	$$>?<W^8 < I^K3< <BL$H$< <B\$I^8AY^K1
4K2\\,\-($>>8H8!K0> <B/;V7BET TUHP
<H*A:J
?K>
=>DR> /<>DQ> /;P!<H	:/9H^9J8HI[Z$	8X%	8/X)	80X,	7       	6	5/;	4*=	3*=	2*=	1*=	0<H	/	.IZI/I)	-IY	-/;H8!J=I^K[< <BL]H]< <B\]I^8AY^KY
\KZ\,-,$\>:HA0!<B:I^K3< <BL\H\< <B\\I^8AY^K1UH
FZ=Z1Z%ZYZQZIZ
TT TVA"WV!VEV XUV	?NO PATTERN.	?ALL 0 - .I	?ALL 1 - .Q	?0000-7777 WCP - .Y	?7777-0000 WCP - .%	?2525-5252 WCP - .1	?5252-2525 WCP - .=:K>
=	?%PARITY ERR, LOC 0=	<[
	<[+	?  TSTAD=0DA\I0	;	? 1D: X!/:$V>4I[6<B[6[9< X/UHTV%LT 	?%INT FROM KB0Z: X!.	?%UNWANTED INTERRUPT OCCURRED0G: X!/>;XXY.!;ZXY.%;Z8HXY.);Z8JXY..:C9DXY.3:CXY.8;ZXX.<;Z8HXX/:HZ8D9XXZ/E:H[8D9XX[/L:HZ8F9ZXZ/S:H[8F9ZX[/Z:HZ8F=IX8JXZ/!:H[8F=IX8JX[/*0!+3/6"BG>/
[J<B<B<B%LT :HZAWIVXZ.:H[AWIVX[.G:HZAUITXZ.N:H[AUITX[.U:HZASIRXZ.\:H[ASIRX[.:HZAQI:XZ.*:H[AQI:X[.1:HZA4I8XZ.8:H[A4I8X[.?:HX<(/FSF9F<X/FSF?H/F<B+R:HYAP<(/TSTST9D<Q<X/TSTST=Q+\SX/X <B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B$^:HZ?R.:HZ8D?RF.F:HZ8F?RM.M:HZ8F8D?RT.T:HZ8
8F?R\.\:HZ8B8H>PR$.$:HZ8B?R,.,:HZ8B8D?R3.3:H[?R;.;:H[8D?SA/A:H[8F?SH/H:H[8D8F?SO/O:H[8F8F?SW/W<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
*
)
(:H[8B8H>PR.:H[8B?RH.H:H[8B8D?RO.O	?%PR LOC  FAIL ADR  GOOD  BAD  PATTERN.W	?%PDP-8E EXT MEM DATA & CHKBD..	?%SETUP SR & CONT<B/A	?%NO RELOCATION, PROG IN FIELD 2T9F8DIO[&	?: X!/NI^8AY^+7<B<B<B<B<B<B<B<B<BI^IS< <BI^8AY^8T 	?%PROG WILL RELOCATE: X!.	?%PROG
AM IN SELECTED FIELD/>	?NONE/>:X
X I>H]Z4I>H^Z6J4Z9INH^[B2AL 2A\ L 2A8!L > 	=P *4H
>(2C.%	<1G+I1A/;0Y/:	9	8:H2<Q0D0E:H1,;0G1G/U2T>(0A/U>(+3>DAL> <B>DAN> +6>DA;9H8JY=>DAG> /:/2B$&/]+ /7\&3\\M[I&V-BET :O?X3O>X4O=X5O<X6O;X7O:X8O9X9O8X:O7X;O6X<O5X=O4X>O3X?O2YO1YAO0YBO/YCO.YDO-YEO,YFO+YGO*YHO)YIO(YJ.:H3
?H4
>H5
=H6
<H7
;H8
:H9
9H:
8H;
7H<
6H=
5H>
4H?
3I
2IA
1IB
0IC
/ID
.IE
-IF
,IG
+IH
*II
)IJ
(.3$	Q>
T
FZ=Z1Z%ZYZQZIZV V\V[VZVUYUHUGT,T T
T^T]TRT>DAD> *H$&.U"4;J*+>DAD> *S$&.$"4;JK*+>DAD> *^$&.3"4;JV*+>DAD> *)$&/B"4;J!Z3>DAC> *2J3<B.3$&+	; $X 8 !X
$0$18 VX $08 UX
$1$&/".4\^,
,^,:?!>QI^K^< <BI^8AY^K\\RK]\-,R,-,;? 8 I^K.< <BI^8AY^K,\SK-\,,S,,,<?
<BI^K>< <BI^8AY^K<\TK=\+,T,+,=?^<Q
^   ARG1         ARG2         SIMULATED       ARG1+ARG2     ARG2+ARG1
^
^     ORIGINAL      SIMULATED       ACTUAL
^
^RANDA        RANDC        RESULT
^
^RANDA        BPOS         BNEG         RESULT
^
^ORIGINAL      ACTUAL
^
^    ARG1         ARG2       EXPECTED      ACTUAL
^
^     SIMULATED ADD TEST FAILED
^     SIMULATED RAL TEST FAILED
^     SIMULATED RAR TEST FAILED
^     SIMULATED RTL TEST FAILED
^     SIMULATED RTR TEST FAILED
^     SIMULATED BSW TEST FAILED
^     RANDOM ADD TEST 1 FAILED
^     RANDOM ADD TEST 2 FAILED
^     RANDOM RAR TEST FAILED
^     RANDOM RAL TEST FAILED
^     RANDOM RTL TEST FAILED
^     RANDOM RTR TEST FAILED
^SIMAD
^SIMROT
^FCT
^RANDOM
^
^ DATA ERROR
^?? EXTENDED BANKS OF MEMORY TO BANK 	?	>%LOOP ON ADDRESS SET IN SR	=>DZZNZ8 ^ZNZ8 ^Z*Q<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<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<B6:T 60	?	>%LOOP ONLY THE 2 ADDRESSES INPUT FROM THE SR""	=ON8 
NOO8 
O*[	>%SET SR TO FIRST ADDRESS & CONT<B>D[N	>%SET SR TO SECOND ADDRESS & CONT<B>D[O."<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<B6:T 60	?	>%LOOP FROM FIRST ADDRESS THRU SECOND ADDRESS	=O<Z1O;Z2	:J1Z0N08 ^0N08 ^
J08!J2>(*
R0*!<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<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B6:3O3N2"T 60"0	?%LOOP DATA IN THE SR ON THE INPUT ADDRESS	?%SET SR TO ADDRESS & CONT":<B>DZ/>D^/N/*+:2LZ92
I>Z72A.0J9I>Z>2A.:<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<B<B<B<B<B<B<BT 	?	>%LOOP DATA IN THE SR THRU THE ADDRESS SELECTION	=O<Z0O;Z1	:J0Z2>D^2N2^2J28!J1>(*!R2*<B*KAX%KX&J?X	AX	.DDW
ITE DAP($)		8/AH!>(%6H 8!8AT?+	(A/S4AH$X$IT%H!?8 X(H%<(/&?H$)H!<(/&/T5P;]:1:.:;H8!XH"8 <X9AX"H!8 <X9AX!6:3O3N2"T 60;J?Z=K[EJ=^=R=SE*EJ?Z=K[EN=8!J=> PR=SE*NJ>Z=K[EJ=8 ^=: J=Z=SE*ZK[EJ>Z=N=8AJ=> P: J=Z=SE*&SA*KB[AKJKKKCKN+?9?F> > CE?<GB08DBMBJB CACCKJKKKMJ=
KLKNN=)>D?<B/P0&0!+%:/[HK1[2KD[O9KH8F8F[HKHCFKGKI[2SO+0/)-99;8>DB/>(*E*?J48 Z4J4?*^*L;J0^;J1^<;Z5J2Z6J3Z7N7^5R5R7R6*W(J8^=J9^>;Z:J2Z6J3Z7N:^7R:R7R6*(.3PCH=H<8:<8:9?:?:>?>8AKACG?(/G:IP$!%ZIP$!%ZIR$!QO+HIYYOI^$!QO+TIJYOIL$!%ZQO+ZI\YOIE$!IE$!IR$!QO+!.IK%)HZ/
GJG<B;/*JG> /3.*JGJJ> /8.*B5B>

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