File DSINV.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 OD7I[N2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 & 3NWV+RCT3A^ 3IWV7NN 3Y7M7EKT+ICC7POO3I	T+VCE3D[E3I	N+TCE7MSA7RI2MNJ2
NJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 3S;I3VF(*,3N7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CA* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7UCP+ECR3T	R3A
N3UGL7RB 7ASR2 [O2 	G3V;E2MNJ* B * B * B * B * B * B 6 N 3Y7M7EKT+ICC7POO3I	T+VCE3D[E3I	N+TCE3NJ 3Y: 2 ?C3E[F3I	C7ESN2MNJ* B * B * B * B * B * B 2 6 7AKT+I;X2MNJ* B * B * B * B * B * B 2 > 7NJ 7EWT+RCN3AN 7OSN3A;I7SR +HCE7ROE7USL7ASN6 CU7PKE2MNJ* B * B * 
 * B * B * B 6 R 3RGI7NWG7LKA2 GM3T	R3X& 3NR 3OKU+LCE3PWR7COI3I;O".*M+CB * B * B * B +NB * B * B-3TWH6 WN3MWB3R> 7FJ 7OOW2 N(7OWL7MON2)& 3N^ 3IWV3N6 7AKT+I;X2MNJ* B * B * B 2 V +PCS* B 6-N 3I
N+LCE3PWR7COI3I;O2 ;I7PSU2 ?C7NSS7ASN2 W3IC6 OI6 OUE7D*JCC* B * B * B * B * B * B 6 OA2 WR7LSA3IWV2 ?T7LKE3AON3EZ +OCR7TOE3T> 3N2 7OOS2 [O2MNJ* B * B * B * B * B * B 6 N 3I;G3I	F3C;A+C;E2MNJ* B * B * B 2 & +ECR* B 6-J 7EWS3L	T+NCG7EKR+OCR7PKA3AWM7TKE2 ?C3
SE6 OA2 ?F3L?LW7S*JCC* B * B * B * B * B * B 2 WI/RB=* 6 2 ?N6 KE7RKO2MNJ* B * B * B * B * B * B 2 & /E7R*-B12-: 7OJ 7EWS+LCT3BOE7AOU3E> 7F^ 3R;O3G& 7NWP7TB 3AGR+M7E2MNJ* B * B * B * B * B * B * B * B * B 6 R +ECR3N> 3RJ 3EGC3UWS2 ?S+MCE3RSA3IGC+NCD+ICS3N
O"-*M+CB * B * B * B * B * B * B * B * B * B 7POO3I	T+VCE2(GM3T	R3XF 6 OI2 ?N7TB 3O	S7T[IE*M+CB * B * B * B * B * B * B * B * B * B 3D[E3I	N+T3E2 ?P3S	S7B	L6 WD7ER 3O2 7OOS2 [O2 	S3G	N"-*M+CB * B * B * B * B * B * B * B * B * B 3FOI3AONE6)*JCC* B * B * B 
 B * B * B 2 WI3R.=* 6 2 GW3R	N+NCG3W	H+CCH3ISN3IGC7TOE2 ?L+SCS+OCF3S
I3N[II6-*JCC* B * B * B * B * B * B * B * B * B 2 GC3NWC6.R +HCE3RSA3IGC+NCD7FKO3MSE6 SA2 GF3C?T7R+IA6-*JCC* B * B * B * B * B * B * B * B * B 2 	T+OCN3SWT3P. *+B17WOA6 SS3I3L2 ?P7SSI3IWV6 WB3T: O*M+CB * B * B * B * B * B * B * B * B * B 3L;O7GKE6 KG7ESA+
CR3TGH3NF +BS7EOP**A/KF+*,/K*1&)".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 CU7PKE6 KT3I;A3G3U+ACR7PKA3T> 3F^ 3IWV3N6 7AKT+ICX+ICS7AOS3UWM7DR 3OJ E*M+CB * B * B * B 3S?T3RSE2 ?C3L7U3N	W+SCE+ICN+N"*/NF+.)J/6 WS3CWC3S	S+VCE3S?T3R
A3E2 3OGC3T?I+N;S2MNJ* B * B * B 2 & 7NR +HCE3S7A7EN 7TKO3AWG2 ?L7CSA3I;O7SR +HCE7ROE7USL3I
N6 CU7PKE6 KT3I;A+G7U2MNJ* B * B * B 2 2 +ACR7MSA7RI6 OI6 SS3OWR3DN 7OWL7M
N3IWS2 ?TO6.*JCC* B * B * B 2 T7EB 3ROO7EWD+RCE7G[I+ECS7ROE7USL3S& 3F: 6 OI6 KG7ESA+ECR3TGH/NB 2 ;A3DF L7L*JCC* B * B * B 2 GC7LWC7LSA+ECD3RSA3IGC7NOD6 KA7EB 3O	S7T[IE6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3D[MS7D"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3S3O3U	T+OCN+ICS3D;O7EV 3S;I3GZ 7ASC3O	R7ZSA3I;O6 	B6 WS3B?R3U	T+NCE3D[M+S;D2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*
:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3D	S+NV3A:,6,CE3S&,+E	R2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/AF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I3NF 2,	D7N^,3O/R2MNJ2MNJ* B * B 2 Z 7ASC3O	R+ZCE7G[I+ECN7MSA7RI6 	B2 WM7AON2 [O6 WS3B?R3U	T+NCE3D[MS7D*JCC* B * B * CA6=R 3R;A
S?P+SE+TB)6*R *MBJ* B 2 N 3A3L2 7D3FSS*(3A3NV,+P3S7IKE")*M* B * B +IF7IKE.)& *,21"1*MC*M+CB * B * B 7I[N7ESR6 CU7PKE6 KT3I;A3G3U+ACR7MSA7RI" 7T*JCC* B * B 6 KP3EGP+RCE7I[N7EOR3I;O2-?LO7P*JB . F 6 CI/I7V+N"*/NF+.)J/*MBJ* B 2 & /N7D3I	PV*MC*M+CB * B * B 3I	
3TGI7L+I3E& 3NWV3R	S+O7N3L?OP*M* B * B +DCO26& *=21N*M* B * B 3D;I*=:1+D>03A&(7P[I")*M* B * B 3A&(7P[I2)R=I7N*JB * B 2 	M3N:=*MBJ* B 2 . 3ESN*=7I"1*M* B * B 3L;A3F:=2-WKN7D*JB * B 2 [I2(WK+N	D* 25.5J,*MBJ* B 22* 2=;ID*MC*M+CB * B * B 3I	N3TGI7L+I7EJ +O7W3
?OP*M* B * B +DCO24. *=213K;ED*M* B * B 7WKO/KB=..CD*MBJ* B 2 6 /I7N3M;I"-61*JB * B 2 L/O7R3I	PV*M* B * B 3LWV3R*=2MNJ2MNJ* B * B 6 N 7TKA3T& 3NWN3R2 7OCO*MBJ* B 2 R /ON . 7L3L;A3F6,I7N*JB * B 6 [L/E7R3LWV/RF+*MBJ* B 2 2 7HKO2=L+O/RL*M* B * B37WKO7K^=3O/R
+A3LWV+R*)3A2(7HKO")*M+CB * B * B 3ESN2 [O2 ;I7NKE2 ?LO7P"J7C*JB * B * A/J6)2-?W+R+K3D;I*MBJ* B 24* *=7J3M;I2MNJ* B * B 2 V +NCD+OCF7R
O2-?LO7P"J7C*JB . V 6 CI/I7V3I	P3V6-I7N*JB . Z 2 ;I3D&=+N7D"1*M+CB * B * B 3ESN2 [O2 ;I7VKE3S?I3N2-7OCO2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE7I[N7EOR3EF(2)J 3Y6 3E;A3S> 3F& 3NWV3RWS*(	T2MNJ* B * B 2 & 3NWV3RWS*(	A* B=7I[N7EOR7ER(*)* 6 KT7AON7POO3E&(3NWV3RWS*(	T
)*M+CB * B * B 3I	N3TGI7L+I3E6 7USL3I3P3IGC3T?I3N2-7OCO*MBJ* B 2 R /O" . 7I21:,*MBJ* B 2 & 7P[I6=CI+I/VI*M* B * B 3J&=7P[I2MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ2 ?R3W2-7OCO*MBJ* B 2 R /O" . 7K3I:,*MBJ* B 6 ^ 3O/R*=:0D60*JB * B 2 L/O7RJ*MC*M+CB * B * B 3SGT+RCT3
;N+ECR3L?OP*M* B * B +DCO272 *=3KN*M* B * B 3LWV3R2=7HKO*+7KI*M* B * B 7WKO7K^=3O/R*+A3L?H+R*)3A2(7VKE")*M* B * B73L?H3R2=7HKO"+7L*JCC* B * B 2 ;E3D> 3F& 3NWN3R2 7OCO2MNJ*MBJ* B 2 F *(	J2=?WR7K*JB . " . 7J3J.+2MNJ* B * B 2 V +NCD+OCF7R
O2-F +NCD3M3U7TCI3LOI3A	T+O7N3L?OP*MC*M* B * B97RSE3U;R*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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