File MODIFY.SV (save files (Executable program)

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

?=2CHZAH\HH^>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  L8DBJJTP/JC<<(*2K;=HK:K9 [U/P [!2C.M0!+  !["O"<X+/8J8J8JC22I/	?"$%&	();N\HB A? ?)MBM?<ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H
&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8F8FZFJFC<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$GPH^ <B,F>>G2IC	<B<B2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B [AF2AHQ [AF2AHN2A
>2AW>O>8!2IO=?H+EK< [CG2AK;2AHA2IBZ\K< [CG2AK:2AHA2IBZ^K< [CG2AK92AHA2IBZ O8Z>O7Z?O6[O5[AO4[BO3[C [CC2I2I2I*J/2 [BH2AK;2AKU [AI2AHB [AI2I+&(	1=COPY,2=DELETE,3=CANCEL  	I1)K98!2AO1?H/0/2+?<BCXLHBH Z!Z Z
Z^Z]Z\CBAG4Y\HA8^5%N^
F$JEZNJFZO;X*P\NZEJNZS8NOROXG: 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;([-*PRQ
EP%(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5%N%)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*+:8F8F8F<H?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  ZK[[K\[$ [AV2IK[Z<;VK\Z=*> [AL2I :;(+SZR2IKK<X+:8F8F8F%N?==4^\RQP^5%N$^
F";%("HJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  P$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8DXX	;SA+VHXXPHYXQHZXR&D  W [AL2I"9;(2I
:+0P^*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  RJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  ]:2IO([^S(O([
 [AL2I%\;(+$E9 P\[\O\N
F
EBOUOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [E.V)T&&(*(L&-&1	L(A(=)V)V)V)V)V)V)V0Q*FHG0V:  U0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==+	BMAB )ZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+%C?2ANW>(+V2B
I&X+VB  U2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [O2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AL2I&AQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565N&FBJ*A???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  L8DBJJTP/JC<<(*2K;=HK:K9 [U/P [!2C.M0!+  !["O"<X+/8J8J8JC22I/	?"$%&	();N\HB A? 
)MBM?<$GPH^ <B,F>>G2AC	<B<B2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[<B2J%LI,)X)2LIJYC2C-EB]LW<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BN2A2I2A2A2A2I2A2A2A2A2A2A2I2A2A2A2I2I2I2I2I2I2I2I2I2I2I2I2I2I2A2A2A2I2A2A2AHZ([ B\B"B+[;[8$+0KZB$4*K
37Z7""H X$%\N &C$6";\E$S <![]2%^6C6T6[+!:B:U:	?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%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)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<BGFICCHARDRAWTAPE8 [A*  [B [CC2AI>2AI>2AI= [D0Y**0^C<8BK;ZK:8!J>(/9*7K88!J>(*^*=K78!J>(++CK68!J>(+	+IK58!J>(/4+OK38!J>(/2+UK18!J>(/0+[K/8!J>(+!*  [E [AF2AHW [AF2AHT+?RLTM<BX KFM JDG JC D T E JHW 
?K?8 [AF2AHQ [AF2AHN2A
>2AW>O>8!2IO=?H+EK< [CG2AK;2AHA2IBYHK< [CG2AK:2AHA2IBYJK< [CG2AK92AHA2IBYLO8Z>O7Z?O6[O5[AO4[BO3[C [CC2I2I2I*J/2 [BH2AK;2AKU [AI2AHB [AI2I+&(	1=COPY,2=DELETE,3=CANCEL  	I1)K98!2AO1?H/0/2+?<BCXLHBH YMYLYKYJYIYHCBAG4Y\HA8 [CJ2AHC2AHD2AH
>2AW>O>8!2IO=?H+!8!8A8!2A
<2AW<O<8!K;?H*7K: [CG2AM92AHA2IBYH 7YHLG8!2AO88!O<8!K98!>(*8*58*V+
88!8A8!2A
<2AW<O<8!K;?H+
K: [CG2AM72AHA2IBYH 7YHLG8!2AO68!O<8!K98!>(/5+]8*>8*I [BK2AM42AN [AI2I/3+?NLANMHDCHCBG4DHEY\HA8(	WRONG COORDINATES 	)/>8A8!2AO=
<O=
; [CJ2AHC2AHD2AH8A8!O;
=2AW=O=8!2IO:?H/98!8A8!2A
82AW8O88!K7?H+NK6 [CG2AO52AHA2IBYH 7YHLG8!2AO48!O88!K58!>(+O+L8*-/388!8A8!2A
82AW8O88!K7?H/2K6 [CG2AO12AHA2IBYH 7YHLG8!2AO08!O88!+?HDCPGPGHCBG4DHEPIY\HGHFHAL8K>8!>(* *E8/=8/< [BK2AQ;2APT [AI2I*
(	BAD COORDINATES  	)/:8A8!2AO9
88A8!O7?H/6*+2AO88!O5?H*2*92AO8
4O5
8O4
58A8!2AO7<(/3?H/6+B82AO88!O5
28AO5
8K1 [CG2AQ;2AHH2IBYH 7YH\G2AO28!2IO08A
02AO28!O88A
88A8!O8
92AW9O98!2IO0+?Y\G4HIS]HEHFH HBHHHANTAN OUB8?H+Z2AO>O=8!O<8!8A
;K: [CG2AS92AHA2IBYHK: [CG2AS92AHJ2IBYJ 7YJLG 7YH\GK: [CG2AS82AHA2IBYHK: [CG2AS82AHJ2IBYJ 7YJLG 7YH\GK: [CG2AS72AHA2IBYHK: [CG2AS72AHJ2IBYJ 7YJLG 7YH\G8/6 [B/5 [BK2AS92AT [AI2I/4+?YJSTL9PZZSZA< ZZSZLTTJHQ)CBAG4HJHHHAHF8(	NEW POSITION FOR FIRST COORDINATE 
) [CJ2AHK2AHL2AHO>8!O=8A
<8AO>
>O<O=
=K; [CG2AU:2AHH2IBYH 7YHLG8!2AO9
9K; [CG2AU82AHH2IBYH 7YHLG8!2AO7
7O>8!2IO62AO=
58A2IO62A
4K; [CG2AU32AHM2IBYH 7YH\G8A2IO62A
4K;+?\1450CU,C\1500EF,CAHMHEY\HLCHKBG4HIHFHH8 [CG2AW>2AHM2IBYH8AO=
<K; [CG2AW>2AHM2IBYJ 7YJLG2AO: 7YH\G8A2IO92A
<K; [CG2AW82AHM2IBYH8AO=
<K; [CG2AW82AHM2IBYJ 7YJLG2AO7 7YH\GK>2IO9
98A8!O92A
62AW6O68!O5?H/4O=O68!2IO98!2A
3K; [CG2AW22AHA2IBYHK; [CG2AW22AHJ2IBYJ 7YJLG+?AHJX?HEHAHLCY\HKG4HMHHB8<H*E 7YH\GK? [CG2AY>2AHA2IBYHK? [CG2AY>2AHJ2IBYJ 7YJLG2AO= 7YH\GK? [CG2AY<2AHA2IBYHK? [CG2AY<2AHJ2IBYJ 7YJLG2AO; 7YH\G8/:2AO92I
8 [B/7 [EJG,C\1583J ,C\1580JE,C\1561JT,A^TJ
,B\IZBH,C\1590J+,C\1591J2,C\1600J9,C\170JHY\HEWKHLCHKBG4 [A 7ZBLG[URC 7ZBLG[VRC 7ZBLG[WRC 7ZBLG[XRC 7ZBLG[YRC 7ZBLG[ZRCK?FK>FK=FMC<8BK; 7[Y\G"; 7[U\G"; 7[W\GK?F  JMC?9F8F8D<QMC?=A.;0!+G0&:2A/F0Y+N0^2A/M [EG:
:	8(2J	7;1^4BZ%>>2IK1
6K5^7K)^.2C/(<B<B.AA?8A-*??& ?Z[
 [A 7\BLG2A
>RC 7\BLG2A
=RC 7\BLG2A
<RC 7\BLG2A
;RC 7\BLG2A
:RC 7\BLG2A
9RC; 7^PLG<(*9?*;K8">EO7C6K5">  CK8">E  C0!*?0&:2A.> 7^RLG=H:2A
7O78!K4=:O7
7 7^TLG=H:2A
3O38!K2=:O3
3O38J8J8HC6K1">O3C6K0">O78J+?A  LL^LO?A
^M]^U^T^S^R^Q^P88J8HC?K>	=JMC?K<	= 2]E,G [E&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*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*ZA\> 
 [A;K?"MK>"MK="M  B0!*N0&:2A.M [E&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*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&ZLB[B
 [A:K?0!*F0&:  D [E&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*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
2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AL2A$2*-$8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  K	OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%&Z*Z&Z*Z&Z*Z&Z?0,2	AT1FM4=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*	<[%*,Y$35W,O	?Y,
2?8?/2]$)0*%W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AM2A$*K8	: [NK8	:*:	?	>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	:/S 3%/O.1E	%0-,OE?;/P.0 %<HO?8 [N[K [O8 [L8 2A
>:SN<H*7	=	<* ?R*2? *M?U*M?S*K?;*6$O[M [AP2A%/ [AQ2A%,KM [R [AS2A%,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AP2A%/SK+U+]	; [AT2AA>/78J8JC92A/W P%( 4E P3Z0*,8/O	%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [U.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [UC3K2<(*3K19K:<P*9*48JS!+TO!C8[S!O!C7K6<(*-K52JR . ?*9	42J	3Q1?) A*	42J	3,^2A2J	<I/*<B>-?3A???J?M0$!B A? %W $22W	?/> [AV2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AP2A%/SP*RQ [AQ2A%,K:2I
=2AO9K8>(KP8!I==8 	7 [AS2A%,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BGH?<RQ3Z?:$)PD/4 P*2 [OR)*HRL  II?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 70KDG9F8TZ(;(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/*V5,O0OPQRJ?FHSY=2AO?<(.	>$R?(,?74&?8,K?:("?;(A??2-$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+! [AW2A%/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C	T3NWU*	%? ,8,O?0$2,Y&
0*$)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<4Y? 4J?U4J?S4G$MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AM2A$*XS [N%*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W?L+CCK"2*M+[212 3B3O/C" 62.JK[2,J 3L,O0)SD	%?<20+O0*,8/O+N
?JCZG<BNDZNRDNDZARD<BNA=H8!  ^RURU>D  
<	Z,J[Z!<BN\Z(R\N\ZAR\<BNA<Q<E=Q   DIVZ<	9=H81<QJ3Z<<BN4[CR4N4ZAR4<BNA<(+U=H81[M8$Z0<GZB=AR0<H8!  M [AL2A61+SS[S[:JB  NZA2I
?
>
=JA  O+PB,3B?L+CCK"1*M/\KN2,J 3LOO/KF 6MRQP[AKA=H8 [O;$JAXHJZL8LHCB>(*VLHZ)LH[C8 [ELHZ-LH[DLH[FLH[GJZ1LH[HHH8AZASE*-: 8OC< K8ODKJ[I8KF
HSHKA?HKI9DKIKG
H;VJZ?8.AA??<Q<	<E=Q/K.,J .4F0.MJJ.0V0.MBJ2MNJ3P
A/EZ 2MVJ+ACP2MVJ7NKT3Y6 3A;I2M6J3A;I2,: +OCP2MNJ3A3L* 203OWPN*MIOERKW"7OT<(*Q\HLKX2B2A	V  " [AL2A:"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [URZ*0KZ*LXHJBZ;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZB [!K\ZCLWTK5[SK?Z [A"2A;42AK>2A
6
7+)SCSVE9E/L<?A= 1DLJFCH

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