File CHK4K.SV (save files (Executable program)

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

??2CBP
>C:(GH<H;<*LJ8GL L/.*\JLJ8JL  /L.8* <B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B(ABCH^H99 H8H^,AH+?4JEJE>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?8>JEZ"2+4+^ PB8:>DBG>(*S"Z":<B>DBH> +4"Z* *)JZ8D>XRZ.Z":JKZBJIZDJJZCB.J"2JKZBJIZCJJZDB.IJAZBZCJAZDB.2JAZBZDJAZCB.:ND^CND8!NC> PRDRC8RB+C/BND<B:JD<B:NC<B:JC<B;/PS
*LK0[/K1)K2)K3)*L0&0!++;/)44BMBJB55;K5JIBAZE.ETOO MANY*N*U?<? ES;XBH>"]"+J+JJBLZM.M"]"-J+JJBL8AZM.MJ]8D>X*	JKZGJDZF.]JEZFZG.]*1J-Z+*8JCZHIRH*3&FJCZHIRH*:&F*1JBZI^GRG8RI+C/JBZI: ^GRG8RI+L/IJG> /S.+JGJK> /X.+>D[:O:G:G:G:G:G:8 
:O:G:G:G:G:G:8 
:+^>D[:O:8 
:O:8 
:+1(2%!%- NOT*L*T?<?G3=8H>"\"*J*JKBK8AZG.G"\",J,8F>X.W.[BFJ\8D>X*&JJZGJDZF.\JEZFZG.\*0J,Z*+IJCZHJBZING90^GNG> *NG8 ^GNG9A> "RG8RI*4RH+K&F*0JCZHJBZING8 ^GNG9Q> *NG9 ^GNG> "RG8RI+MRH*2&F+ING<B:JG<B:/"NG8 <B:JG<B;/*JG> /3.*JGJJ> /8.*-OM9IN$6XTI?XM0Y*EI00\XU0
IMXNLN<(*UHU>(,NPN*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-FGFIEXU.ID$6/KICXU;X2I]12A.*
HMIB>(+*IQPT$6: XTHMXPLP$6: HM*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6+;B CPCTCRB: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/EFCOL<(,?SSL+MKQXPHP8J8J8J]HP]/SK\><(/]H==HIHH<6/]
=HUSHVSHWSHX>(/	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
:NZ"RNZRNZ$RH ZZJ"Z%J$XHJ$XIJZ&JZH%ZZ2ALH2A\IR&*XR%*O2A.;$SH H%Z/; XH2A">; XHJ;PY<H*<J/H%Z/*-2A.	;I/\HI/8 \HHH8A> *?.>;LH8ALH< <B;HH8A> +K/JPUP0QIHCLQ<BK	8!KX< <B[XI^8AY^<HQU<H?N.<B<B<BI^K?< <BK=R3UYT ]E]S]!^^N^\^*^8R:IHXW>D$8!H$<(-&X[]	>D$8A98F8DX\H[8!X[
 H\Z%"$P[*
PW.^-&RCJ%H%Z%"$*Y2A: XH8 XIXB8 \HPB*+LI>(*4HI<BPB*/2A2B.$;HPXAH [DKDAI9P8H8JYJ2A0!$R0A; 0D8!IJ< <BPW*>H%KD[DQK*>IHYK/XSY;HQXAHPXB0E+ <B;IM0E: 0D8!IM< <B;0E;0D8!IN< <B+3<B;PW+Y%-	;/:T  $ ,T?BL;$RHQXAHPXBYLIL0E*J<B;0DAO8!IL< <BPW*GILIPYLQK*GIHYK.\T*>D$8!XY
]:0 0!*&:.;$SIPZ0IZXH;J00E0B;U
8M
Y^IT]!I[\HIX\HIT\HHHH/[HI\XA/H8!I^< <BH8!HH< <B2L2T> <B0DAO8!J0< <BHH8A> *1PY<H/(;IPJ0Z0*.H(HOH"8 < <B:HTXODOHOH!8 < <B:HSXODOHOH 8 R;S ;0G242DHQXAHPXB0G<H*J0A<H*M0Z<H*P0B<H*S0D<H*V0A2<*Z<B*[2,*]2D2,<H*!>D<H*$2$0A*(<D*)2,*+0G2,<H<B<D<H*22$0A*60E*72,*92D2,
H<B0D<H+2$0A+D0A+E2,+G;0DAV<(<B2D2,<H<B0B<H+S2$0A+W>D+X2D2$240A+^<D<H+ 2D2<0A+%: >D+	< <B2D2$0A+.:<D+0< <B2D2$0A+7: >B+9< <B2D0C<H<B;IV0E0A8*F0Z*G0C*H2D;IV0E;0A*Q0D*RAV< <B0C*V2D2$0A*\0D*]2,*
2D2,<H*0A<H*&2$*)2B**2,*,2D2,<H<B2B<H*32$0A*72L*82,*:2D2,<H<B2L<H+A0 0!+C0C+E0A;+IIV0E0G0A+O0G+P0C<B0G2,<H<B: 9P2<0A+\0^+]8 < + <P+"2,+$2D2$0A+)0 +*0!<H<B2,+/2D2$0A/4ZZ
TT TVA"WV!VEV XUW00A*A2,*C2D2,<H<B0B<H*J2$0A*N2T*O2D2$24*T<D<H*V: 2<0A*[<B*\2C242D0A*">D<H*$<(*&2<0A**<J*+*,2,*.2D2,<H*2R6-Y<H.8\P - .1	?5252-2525 WCP - .=:K>
=	?%PARITY ERR, LOC 0=	<[
	<[+	?  TSTAD=0DA\I0	;	? 1D: X!/:$V>4I[6<B[6[9< X/UHTV%LT :IUZG2<2D0A*G0*H2,*J2D2,>H<BRGJGAX>(*CITZZ2<2D0A*Z<F*[82,*^2D2,>H<BJZISZZJZIR> *V2$240A*.0B2,<H<B0 0!*30A<H<B<B;0DAV< <B;0G248;0G$SH H%[]H!H%[	I$XHI%Y8 XIK]AI8H8JYJK	AIIJI"
>2ALH2A\IQ+[HQXAK	XBHPXC2B(B;PY<H+4K]H%[]K	H%[	+K;0G24I)]	>D?-(<B-*^ZT <B<B;JZ0E*F0*G;0D8!JZ> <B0C*N2DRFJFJY> *B2B.X])H;>D?-Y0GI)]	-(;I+XA2<0A*)<B2,<H<B240G-W.*: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$^;[S[TH ZZIH[WIHXYH ZL2AGPY*R"**WH%JLZLST*L;KS[T2AG2C"*;JZH%ZZSSSW*W2C0GPW*A.;[T>D$8 XYH!Z32B-!8!KT<(*>YJJ3AIIJ<B;PY<H.*J3H%Z3ST*3KT]
IX]!H!]RKV] KU]S/G 5,D: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 8>JEZ8+4+^ PB8:>DBG>(*S"Z":<B>DBH> +4"Z* *)JZ8D>XRZ.Z":JKZBJIZDJJZCB.J"2JKZBJIZCJJZDB.IJAZBZCJAZDB.2JAZBZDJAZ
B.:ND^CND8!NC> PRDRC8RB+C/BND<B:JD<B:NC<B:JC<B;/PS/*LK0[/K1)K2)K3)*L0&0!++;/)44BMBJB55;K5JIBAZE.E3N2"T 60*N*U?<? ES;XBH>"]"+J+JJBLZM.M"]"-J+JJBL8AZM.MJ]8D>X*	JKZGJDZF.]JEZFZG.]*1J-Z+*8JCZHIRH*3&FJCZHIRH*:&F*1JBZI^GRG8RI+C/JBZI: ^GRG8RI+L/IJG> /S.+JGJK> /X
+>D[:O:G:G:G:G:G:8 
:O:G:G:G:G:G:8 
:+^>D[:O:8 
:O:8 
:+1+0/)-99;8*L*T?<?G3=8H>"\"*J*JKBK8AZG.G"\",J,8F>X.W.[BFJ\8D>X*&JJZGJDZF.\JEZFZG.\*0J,Z*+IJCZHJBZING90^GNG> *NG8 ^GNG9A> "RG8RI*4RH+K&F*0JCZHJBZING8 ^GNG9Q> *NG9 ^GNG> "RG8RI+MRH*2&F+ING<B:JG<B:/"NG8 <B:JG<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