File EXSMO.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 E3S?M2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3OZ 3ISN2 T7ER 7RCI+LCE7ECX3OWN3N	T+ACL3S?M3OT+ECD7SKE7IOE* CS+OCF3TW
2MNJ* B * B * B 2 ^ 3IWV7NN 3E	R+ECSX6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 E3S?M6 "(6,N2,3A*,3A3BN,*,	S2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * B * 6 2 ;I7PSU2 WV3C?T3R> 3F2 3E
N+TCH+NCX3C;O3T	A3N;I7GR 3IWM2 WS3RWIS*M+CB * B * B * B * B * B 2 R 3AGT2 W3IC6 OI2 ?T2 WB6 E3P;O7ESN3I3A+LCY3S?M3OT+E;D2MNJ* B * B * B 2 : +XB * 6 2 T3E: 3UKM+ECR+OCF3EWL3M;E+TCS+ICNX6.*JCC* B * B * B 2 3A* B * B-3S?M3OT3I
N2 ?C7NSS7ASN2,F 3LP+AB.2 3A6 WM+SCT+BCE3GWR3AWT7RR 3H;A2MNJ* B * B * B * B * B * B 2 WZ+RCO3ASN2 WL+SCS3TGH3N> +N;E2MNJ* B * B * B 2 F *,3B+C6 2 ?C3E[F3I	C7ESN3S> 7FR +HCE3PWR3DOI3T?I3NV 3QGU3T?I7N^ 7HKE7EN 6 OI2MNJ* B * B * B * B * B * B 6 KP3E	D3CWT7DR
2 WP3R?I+DCS3H;E+CCEB7Y*JCC* B * B * B * B * B * B * B * B * B * B 2 F * B+7BR** B+7CR***?T"26.*JCC* B * B * B * B * B * B +ACS7ICN+U7T2-& 3FF .=7B/CB=6,B 3R
O3R7A2 	W+LCL3P?R3VSI3E& 7NSI3I3A2MNJ* B * B * B * B * B * B 2 GV3LWU+SB.2 [I6 SA2 WL7ASS2 ;O3E> 3FF *,3B3C& 3S: +OCT7ZKEO6,*JCC* B * B * B * B * B * B 3P?R3GGR7M^ 3I3L2 GT+KCE7G[I+ECN3V3A7UOE6 OA2 ;I3I	T+ACL3V3A7UOE".*M+CB * B * B * B * B * B 2 F 3S> 7UC
+U7T2-F *,3B3CN 7OSN3A;I2 GL7TOE+TB,3USP3AWT3DN 3O[E+F7I2MNJ* B * B * B * B * B * B 2 	C7ESN3S> 7FB 3RSE7ISC3I;O".*M+CB * B * B * B +SB * B 2-> 7UCT+UCT3VOE7TKO2 [O2 WL7NSG3H: 3XN 7OSN3A;I3I
N6 KT3I3PE*M+CB * B * B * B * B * B 2 V 3X?P3N;E3TGI7L	L2 7S7OSO3HSE2 	T+MCE7SKE7IOE".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6
3ETO7D*JCC* B * B * B 2 WR7FKE2 ?T* ;R* ;G6 KB3O;W*,^ 3S?M3OT3I
N2,Z 3OWR7COA3T;I3GF +NCD3PWR3DOI3T?IN*M+CB * B * B * B +OCF7DOI3CWR+TCE3T7I7EN 3E	R+E
S6,B 3R;E3TOI3E"-3A3L2,: *.;J.,F .9N6",*M+CB * B * B * B +P;P. R160R /OF *4:42MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7EOX+MCO*(3X+N3X+A3L3AJ,*,3CS6)*JB * B 2 	D3M;
3S?I7N" *(&1*,S"16)"J7C*JCC* B 2 [I. 7A3BN=*=:0*0B,3G;E3EGR+TCE3I	N3TGI7LZ 7AWL+ECS+OCF+AB,+BB,3ASN" 7C"J7C*JB * B 2 [I*(	A. R1*0B,.1B1.,F "460*JB .1B12 [I*(	B. R1*0B,.1B2.,F "460*JB .1B22 [I*(	C. R1*0B,.1B3.,F "460*JB .1B3. 7C/XF(.)J-*.*0/XJ(6)"+*(&3*MBJ
 B 2 J *=X*26)/XF(.)F-*.*5C*M* B * B 7A"=*(&1*-7B.0V."*7C"J7C*JB .1B42 WB*=:120F-L*M* B * B 3BOE/U7B+B+E+B+EB7E*JB * B 2 3A3CKU2=3A2*3A2*3A2MNJ2MNJ* B 2 R 7OR +HCE3F3O7L
O3I
N2 ?F3R& *=B1+TCON7X"J7C*JB * B 2 ?D. V120& *=21N7X"J7C*JCC* B * B 2 	F+NCD3S&(2)Z +OCR3OWN2 WP3R?I3DF 3HGED*MC*M* B * B 3S&(2)F=*+/B.0V."*7C"J7C*JCC* B * B 6 CU7DSA3EN 3O[E3FOI3I;E+TCS+AB,+BB,3ASN" 7C"J7C*JB * B 2 	D7FN=*(	I*-XI6)*JB * B . 7A3X&(2)J+7EWC
BR*I7F*JB * B . 7B3BN+*-:125F*3LF*+L"*.2B.2-3A2)R*I7F*JB .1B5. 7C3CF-7LWC3BR*I7F*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J

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