File ELI2.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 7UKB7OSU3IWN2 3EI62"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE2 T3E^ 3EWN3R3A3IWZ3DV 3L	L3P	T3C& 3NWT3GGR3L> 7FN 3E?C+NCD3K;
D*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3E	L62J(*,3X+C3K3AJ,")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +RB * B 6-J 7EWS+LCT3V3AU7E*JCC* B * B * B * CX* B * B-7UCP+ECR7ISN7EKG3A	T+OCN7BWO+NCD6(KA3G7U7ESN2 [O2 3E7LCI3TOI2
NJ* B * B * B * B * B * B 2 ;I3T
E3R3A2 [O2 WS3C;O3D. 3ISN")*M+CB * B * B * B +CCK* B 2-N 7OCM3L7E7ESN7A	R2 ?M3D3UU7S*JCC* B * B * B * CA* B * B-3C;O3SGT+NCT7TKE3M& 3N: 3UWM7RSAO7R*JCC* B * B * B * CB* B * B-3QGU3DGR3TOI2 WT+RCM+ICN3N7U3EGR7TKO2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 
 6 7OWD7LOU* CK6=N 7QSR*(:12-/C2*/C")6.*JCC* B * B * B 6 CS3E	C+ACL7COA+ECS+OCF3TWH2 WG7NKE3A	L3ZSE2 3E7LCI3TOI2 ;I3T
E3R3A2 [O2MNJ* B * B * B 6 N 3E?C+NCD3K;I3DF R7E*JCC* B * B * B * F3AGT7N"(2).,2)> 3BGT3IWN7D^ 3IT. 7A*12.. 7B"16.*JCC* B * B * B * E3AGT7N"(2).,2)> 3BGT3IWN7D^ 3IT. 7A*12.. 7B+C+K+C;K2MNJ* B * B * B 2 J 6(SA+AN+X2)+KB)7OSB3A;I+ECD7WSI3HF *=:12,J *=:02MNJ
 B * B * B 2 R 6(SA+AN+X2)+KB)7OSB3A;I+ECD7WSI3HF *=:02,J *=:12MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3D[E3I	N3T?IN*M+CB * B * B * B 3R&=3NWT3GGR+L"(3
J+**+T+T>)6(GS+RT*(.17TR**)"**1"++C+K+T*)**&2*)"*61R+**	T")6,*JCC* B * B * B * B * B 6 N 3U7M+ECD3OWV7RR 6 KF+OCM60R 7O" ")6.*JCC* B * B * B 6 GE7U[I3AWL+NCT+ICS3TWH2 WD3F;I3I	TO7N*JCC* B * B * B . 7R7ISN7EKG+AL*(/A*(7B+A*)2(	S7NR(*)*)**&26/GS+RT*1"-7KN*+
N+T&).*J*")6,*JCC* B * B * B * B * B 6 N 3U7M+ECD3OWV7RR 6 KF+OCM60R 3OF 3T;A*(	X")6.*JCC* B * B * B 6 [E7AWL3A	TO7N*JCC* B * B * B 2 GL3NWD+NCS3TGR3N[S3O7R3A	T+OCN+ICS3UWS3DZ +OCR3C3A3C3U3A	T+O;N2MNJ* B * B * B 6 J 3EWF3R;EC7E*JCC* B * B * B * ;R6 WB7LKI
SC2,: 3UWM3ROI+ACL3C3A3C3U3A	T+OCN+OCF3E3L7ISP+ICC7ISN7EKG7AOL2 ;AD*M+CB * B * B * B * B * B 2 3E7LCI3TOI6 WF7NSC3I;OS*M+CB * B * B * B * B * B 2 GH3NKD3O/O2 WS3RWI3S> 7FN 3POE3I3A6 WF7NSC3I;OS*M+CB * B * B * B * B * B 6 WN7MKE3IOS+HCE7MSA3H7E3A	T7KZ +O;L
 27. &1*6256 CP..^ .8&-"06."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EV /LKI*(3R3XN,3KF,*,	B2MNJ* B * B 6 R 7ESS6 KA3G7U7ESN*MBJ* B 2 & 7F"(*)22.1J,*MBJ* B 61J *=:0*MBJ*
B 6 J 7EWTR7N*JCC* B * B 2 WT+SCT3MSO7UWLS*M* B * B2/CB=".*M* B * B /DB=".65*JB * B 2 [I2(/C*)27.3^,*MBJ* B 63J 6=GS+RT*1..7X"*")*M* B * B +R"=3AJ-2)F*+BS+X>)3RJ+2*3A+OG7AOB*(	X*+	R2MNJ* B * B 6 R 7ESS2 	S+GCN+OCF3A
R3UWMN7T*JB . R . 7R3RN+2*F(*-	B*MBJ* B 2 & 7F"(*)25.6Z,*MBJ* B 65J 6=J-*MBJ* B 66J 7EWTR7N*JCC* B * B 2 ;I3I	T3A	L7ZSA3I;O*MBJ* B 27F +N"=3BF+.)B*".65*JB * B 2 GA"=7A*JB * B . 7RB*M* B * B 3A
N2=KA/SF(6."/")*M* B * B 3P7I*=:0*MBJ* B 2 & /S7I"0*M* B * B 3A	R*=:1*MBJ* B 2 ^ /E7O7AOB2(/C")*M+CB * B * B 3L;A3D;E6 KT7AON7FKO7MSA3I;O*MBJ* B 68J 2=GA2*WG7OJ+*MBJ* B 6 N 3G?E6=KA3I^*E7O*JB * B 2 GA2=;A*MBJ* B 2 F 3A	R6=KAI*M+CB * B * B 3A	R3T7H3E	T3C6 
E;A*MBJ* B 2 F /R7I3G?E6+KAI*M+CB * B * B 3S7U2 [O2 	S+NCE3V3A7UOE*MBJ* B 2 F +N"=3RF/+R/I+A	A**:0"5*M* B * B 3A;A3GF=+BS3A
N")*M* B * B 3A
N6=N-3G?E2/;A3GF+N7G*JB * B 2 	P/M7A3P7I*MBJ* B 2 & 3FF(+N	G*120.9F,"1*M* B * B93A
N.=F-*.7E28F*3A
N*MBJ. F 60B /I7M3P7I*+:3.1F4.5J9"7*M* B * B 3I	S6=OI/IF+*MBJ. F 21F 3A
N6=KA3IF*+R/I3A
N2*;AG*M* B * B 3PR=6/GS+RT3A;AG6)*JB * B 2 [I6(OI/IR-.)N1.,J1.,J1*MBJ. F 22& /S7I3I	S"-64*JB . N12 [I6(OI/IJ-.)V1.,R1.,R1*MBJ. F 64B 6=B-*MBJ. F 25N *=/CP*M* B * B 3DR=2*F(3A	R2-WG+O*).0V.6/KAI*M* B * B +IF7AOB2(GA+R7I3G?E.)F-*.7E24F*3A	R.)^1.,^1.,Z1*MBJ
 F 66N 3G?E6=GS+RT3SWGO6)*JCC* B * B 2 WG3OWM3T	R3C6 3E;A*MBJ* B 2 ^ /E7O3SWG7ON+3G?E*MBJ* B 6 B /I7M3P7I2+	PM7A*JB * B 6 OI3I&=+S/I3I	S*MBJ* B 2 ^ 3O?T" 68*JCC* B * B 2 OA7CKU7A	C2 GW7SN 3U[F3I	C7ESN*MBJ. F 67J 2=F(3T;A6(KA3IF/+N	G2+	P+M*)+A?N3A	R*MBJ* B
2 N *=/C3DF*+N?G3A;AG*M* B * B 7GSO/OR *MBJ* B 2 V N7D"JBZ"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