File JELF.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 WJL7F"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE2 T7ER 3HWR3E* 3A?C3BGI3NV 3L	L3P	T3CZ 3UON3T?I+NCS+S3N2 ;C2,R
N6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 WJ+LF+S3N+C3N+D3N7XN,+C	K2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 N +NB * 6 2 WR3S3U7TZ 7AWL7EN 7N"(")*M+CB * B * B * B +CCN* B 6-J 7EWS+LCT3V3A+UCE+CNX6)*JCC* B * B * B 2 ;
* B * B-7ROE7USL2 GV3LWU2 ;D*(	X2MNJ* B * B * B 6 " * B * 6 6 KA3G7U7ESN2 [O2 GJ3CKO3I;A2 3E7LCI3TOI6 WF7NSC3I;OS*M+CB * B * B * B 3S/C* B 6-N 3QGU+RCE+OCF3C7O3PWL3M;E7TKA3Y6 7OWD7LOU2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 6 N 
UKB7OSU3IWN3SF +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 3X&=3NWT3GGR/LF(6/GS+RT*(617TR**)"**1"-7KR**)***2&)6,N 3U7M+ECD3OWVR*M+CB * B * B * B 3TZ 3R7O* B0+T
O+S	N6,^ 7HKE3E. 6=GS+RT61N-+C	K".*M+CB * B * B * B +S+N+SCN2+N 3NN*/N6 " 61*JCC* B * B * B 2 .(2*;S*)***2. 2 ;D.*J** B="16.*JCC* B * B * B 6 [E7AWL3A	TO7N*JCC* B * B * B 2 GC7LWC7LSA3I;O6 OI2 ?D+NCE3U	S+NCG3TWH6 KP3OWC+SCS+OCF3TWH6 KA3IT7MSEI7C*JCC* B * 
 * B 2 WG3OWM3T	R3C6 3E;A2 ?T7GSE7HKE2 	W+TCH7GWA+SCS7DOE3C;E3D;I7GR 3R;A3S?F3RGM3T?IN*M+CB * B * B * B 3B[E3OWR2 ;I7VKE3S?I3N> 7FR +HCE7ISN7EKG+ACL3T/A+ECS3PGL+C;E2MNJ* B * B * B 6 J 3EWF3R;EC7E*JCC* B * B * B * ;R6 WB7LKI3SC2,: 3UWM3ROI+ACL3C3A3C3U3A	T+
CN+OCF3E3L7ISP+ICC7ISN7EKG7AOL2 ;AD*M+CB * B * B * B * B * B 2 3E7LCI3TOI6 WF7NSC3I7OS6.*JCC* B * B * B * B * B 2 " 3ASN3B?O7KN 3E	R+ECS+OCF3SWP3CGI3LZ 3UON3T?IN7S*JCC* B * B * B * B * B 2 : 3UWM7ROI3CWH2 GM3TWH7MSA+ICK3V3O..^ .,F .9V66,B +PB.*768*9:02MNJ
MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3J3E7FN(3NN,3NR,7N",2,OSK6)"J7C"J7C*JB * B 2 	D3M;E3S?I3NF +RI*1&22,WG/OF("26)*JCC* B 2 WT+SCT3MSO7UWLS*M* B * B /C7M3S/C*MBJ* B
6 & "=7X*JB * B 2 [I2(OS/KN)*,21"4*M* B * B13DV=+XPX6)*JB * B . 7A*1>.D*M* B * B 3BF="+7D*JB * B 2 ;C*=:2"/7B*JB * B 2 ;D2=;C*MBJ* B 6 N 7NR=3AN*(	X2MNJ* B * B 2 R 3EWG7NKE3AWT2 GC+SCE3S/C*=B07G[I+ECS7ROE7USLS*M+CB * B * B * B +CCN/X6 2 ;D* CX.=F 2/?C+SCH
*M+CB * B * B * B +SCN/X6 2 GT+NCHX*M* B * B27RSE3U;R2MNJ* B * B 2 * 3A?C7BOI2 ?M3D3U+UCS3TGR3N[S3O7R3A	TO7N*JB . N . 7D*16.3S/C*MBJ* B 2 N +M6=3S/C"/7D*JB * B . 7D7SKQ3TR(")*M* B * B 3YR="*7X*JB . R . 7A"16.*JB * B 2 ;D*=:1*MBJ* B 2 R /OZ . 7I.1F,"2*M* B
* B 3L&=*MBJ* B 2 F +RI/I6)A*M* B * B /C7M7SKQ3TN(M6)*JB * B 2 WG3O&(2)N=M*M* B * B +C"=3AN++M*)".65*JB * B 2 [I2(KA3SF(2-7C.)F-*.7E24F**)27.7V,*MBJ* B 25N 3MF=2*7C*MBJ* B 26F "=7C"J7C*JCC* B 6 SS7ASR2 GB7C
K3ASR2 WR7CKU3S?IN*M* B * B73YN="*7Y*JB * B 2 ;S2=	S7N&(")*M* B * B /C7N7COO*(	Y*MBJ* B 2 & 7FN(/N").,N1",68*JB . " . 7A+C?NS7N*JB * B . 7C3AN**MBJ* B 2 R /O& . 7I212,*MBJ* B 2 . *=7L/IF+*MBJ* B 2 J 6=KA3I.(")*M* B * B 3AN="*7A*JB * B . 7C+D+NC*M* B * B /
7N2(WG3O.(2)F+*)"/3BF+")*M* B * B93AN="/7B*JB * B . 7A*1>.7SKQ3TN(**/C*1&.*MBJ* B 2 & 7FN(/NF).0F,.1F,"1*M* B *1B0/S7N"-7A*JB * B 2 ?G+TCO"162*JB . F12 ;S"=7A*JB . J12 ;C*=+CS7N*JB . N12 [I2(OS/KF).4J,",62*JB . R1. 7AD7N*JB * B 2 ;D2=;C*MBJ* B 2 N 3NF=*MB
* B 6 N 7NN=3NR/*MBJ* B 6 J 7EWTR7N*JB * B 2 ;ED*M"ZB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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