File GELB.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 WGL7B"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?S3LWV* CA7SOY3T7E2 [O2 	S3M3U3T;A7EWO3S2 3IWN+ACR7EWQ3A	T7OON2 	W+T
HA*M+CB * B * B * B 3CWO3F	F3CWI+NCT7MSA7RI2 [O2 GB+NCD7SKT7USC3UWR".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3G3E7BJ(*,3A3M:,6,WM3D6,+L3D7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CR* B * 6 * CM+BCY7NJ 3IG3T" 3
SN2 	S+DCE7MSA7RI2 R(7ESS7R	O+E	D".*M+CB * B * B * B * B * B * B +OCN7RSE3U;R* CR3C;O3T	A+NCS3TWH2 ?S7LSU3I;O2 [O2 T3EV 3QGU3T?I+N;S2MNJ* B * B * B 2 F * B * B 2-6 6 	B* CM3CWO3F	F3CWI+NCT7MSA7RI2 	W+TCH3B;A7DN 7TWR7CWTR7E*JCC* B * B * B * B * B * B 2 R(7
SS7R	O+E	D".*M+CB * B * B * B +MB * B * B-3TWH6 WN3MWB3R> 3FV 3QGU3T?I+NCS+ICN3TWH6 	S3SWTM6.*JCC* B * B * B * CN* B * 6 2 T3E: 3UKM+ECR+OCF3R
I+HCT3H;A7DN 3IWD2 WV3C?T+R;S2MNJ* B * B * B 2 6 +UCD* B 6-R +HCE3N7U7BKE2 [O6 CU7PKE2 ?C3DGI3G;O7AOL6 R(7HSA2 WM7AON2MNJ* B * B * B * B * B * B 2 N 3O	D3A?G3N3A3SF 7B[O3E6 3A;I2 	D3A?G3N3A")6.*JCC* B * B * B 2 3M+DB * 6 2 T3E: 3UKM+ECR+OCF7L
O+ECR3CSO3I
A3OGN+LCS2(T+ACT3MGEN7S*JCC* B * B * B * B * B * B 2 ?C3DGI3G;O7AOL2 WB7L
O2 GM+ICN3DGI3G;O+A	L".*M+CB * B * B * B 7EOP* B * B-+ACN7ICN+UCT3C;O3SGT+NCT3W	H+CCH+ICS3UWS3DF 7SJ 3EGL7T[IE*M+CB * B * B * B * B * B * B 3T3O3EGR3NWC2 ?F7RR 7ESS2 ;O2 ?L+SCS+OCF3S
I3N[I3IGC3NWC".*M+CB * B * B * B 7IKE* B * B-7ROE7USL3I
N6 KE7RKO2 GP3R7A3EWT3RN 3OWD3DF 3SZ 3O3L7OOW2MNJ* B * B * B * B * B * B 2 & /E7R*0B 2-: 3OV 3R?RR6,*JCC* B * B * B * B * B * B 2 WI+R6=*16 2 ?N2 WR3S3U3TJ 3EGC3UWS2 [O6 KW3O
N2 ;I7PSU2 GP3R7AE6-*JCC* B * B * B * B * B * B * B * B * B 2 WT+RCS3M6,+U3D3MSL6 KO2 WB7CWA+SCE+OCF7P[I+OCT3EWL3M;ET*M+CB * B * B * B * B * B * B * B * B * B +ACT7A	N2 3E3I	M7NSA3I;O6 SS+ECP7EWQ+ACL+TCO"06,*JCC* B * B * B * B * B * B 2 WI3R.=* 6 2 GW3R	N
NCG3DWU2 ?T2 ?P3S	S3BWL2 ?L+SCS+OCF3S
I3N[II6-*JCC* B * B * B * B * B * B * B * B * B 2 GC3NWC2 ;I3DOI3AWT3DF 3TV 3L7I3IGN3T?I7NN 7TCE* /K"16,*JCC* B * B * B * B * B * B * B * B * B 2 W3EWR2 	P7VSO2 3E3EWM+NCT7WOA2 WL+SCS3TGH3N> R*M+CB * B * B * B * B * B * B * B * B * B 7EWQ+ACL+TCO3TWH2 ;I7
KE3N3A2 ?T7LKE3AON3EV +PCS3T7IE7S*JCC* B * B * B * B * B * B * B * B * B 2 KA3S3O3UWT+LCY3GWR3AWT+SCT3EWL3M;E3T> 3F6 7AKT+ICXA6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 GB+NCD7MSA7RI* CA+ICS7AOS3UWM7DR 3OJ 7EN 7TKO+ECD7R
O7WOI3E& 7NR +HCE7FKIS7T*JCC* B * B * B 2 WM6 WS3CWC3S	S+VCE3S?T3R
A3E2 3OGC3T?I+NCS+OCF7TSO3A3L3Y: 3ESE+ECDM7A*JCC* B * B * B 6 SS3OGR+GCE3LOO3A	T7OON6,^ 7HKEE*M+CB * B * B * B 2 6 3A6=2*OM2-3M2*6(/LF+.)J/* B 2 ;A+DB 2 6 3E6=3A6-+U"*+M/U*1>)*2B 6 ^ 3IT2MNJ* B * B * B * B 2 OM2=	M3N6(*,.13MSU2+3M+D2)2 6 3L6=/CF-2-3M+DB,6
WM2=OM*-613MSU".*M+CB * B * B * B 3R
I+HCT3H;A7DN 3IWD2 GM3T	R7XJ 6 OI6 OA3S7U+ECD+TCO+BCE3S?T3RSE2 ?C3L7U3N	WS7E*JCC* B * B * B 2 ;I* +N7MN 3UOC7EOS3IWV6 SS3OGR+GCE3LOO3A	T7OON2.> 7NJ 7EWT+RCN3S3O3U	TO7N*JCC* B * B * B 2 GM3T	R7XJ 6 OI6 SS3OWR3DN 7OWL7M
N3IWS2 ?TO6.*JCC* B * B * B 2 ;I7PSU2 GP3R7A3EWT+RCS+MB,3MSU2,6 +LCD3S?H3USL2 GS7TOI+FCY3TWH2 ?F3L?L3W;IG*M+CB * B * B * B 7ROE3T	R3C	T7OON* B 2 6 +UCD7NSO2 WL+SCS3TGH7N* 3E?R2MNJ* B * B * B * B * B * B * B * B * B 2 3M3D: +OCT7LOE7SR 3H;A2 WZR7O*JCC* B *
B * B * B * B * B * B * B * B 3MSU2+3M3D: +OCT3GWR3AWT7RR 3H;A* *2/MJ-".*M+CB * B * B * B +NCO7ASC3I;O2 WB3SSI+ECS7EKR+OCR7MOE3S
A3E& /E7R*-B13T/A+ECS3PGL+CCE+ICF3TWHS7E*JCC* B * B * B 2 WR7SKT7ISC3I;O3SF +RCE7NSO2 GS7TOI3FWID6.*JCC* B * B * B 2 T7EB 3ROO7EWD+RCE7G[I+ECS7ROE7USL3S& 7FR +HCE7ROE3T	R3C	T7OON2 ;O2 ;I7PSU2MNJ* B * B * B 6 B 3AGR7MSE7EOR6 KA7EN 3A	T3S	F+ECD3ASN2 [I2 	P7
SO2 3E3EWM7NOT6 SA2 3AL*M+CB * B * B * B 3E	L3M;I3A	T+OCN3SWT+PCS3AWR2 	D3FWF3R;E3TZ 3R7O* :02 ?H7W[E+ECR7WKA3N;IG*M+CB * B * B * B 7IKE*=CK2-& 3F^ 3IWV+N6 2 ;I3DOI3AWT7SB 7OOS3I3B3E2 7OOS2 [O2 	S3G	N3FOI3AONE6.*JCC* B * B * B 2 ;I2 GC+SCE+OCF7A^ 3E3L2 OS
AWL3D6 7AKT+ICX3AF +NCD7ACP7RCO3RGI+TCE3T3O3EGR3NWC2MNJ* B * B * B 2 V +P3S2 WI3R.=2 GM3YJ 3E& 3NWT7RKP3EWT7DR 7HSA2 GM3T	R3XF 2 GH7SR +HCE3R;A3K. ".*M+CB * B * B * B +NCO7WKA3N;I3G& 3S^ 3IWV3N& 3F6 7AKT+ICX3A" +ACS+NCO7L
O+ECR3CSO3I
A3OGNL6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 N 7OWL3T?I3N& 3SR 3OWN6 	B2 WM7AON2 [O2 GG7UOS2 3E3I	M7NSA3I;O2 	WT7H*JCC* B * B * B 2 ?C3L7U7NB 3I?V3T;I3G> 7N	L2,& 3N> 3RWD7RR 7OB 7ROE7E[R3EJ 3ASN6 SS3ROU7TKUE*M+CB * B
* B * B +ICN3R7E3A;I3I
N2 ?C3E[F3I	C7ESN2 GM3T	R7COE".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 WG+LB3RF,*,3M3N6,+U3D3MSL6,CE3S&,+E	R2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/RF(2)F,*(&12MNJ2MNJ* B 
 R 7ESS2 ;O6 KW3O
N2 ;I7PSU2 GP3R7A3EWTR7S*JB * B 2 [I2(3M/DR).7F,",61*JB . F 2 [I6(WM/DR).7J,",62*JB . J 2 OM*=.13MSL6+WMD*M* B * B +IF+M/C216-*-	M.3N,.,^42MNJ2MNJ* B 6 B 7RCE3AWR2 ;I3T
E+ECR7PKA3AWM7TKES*M+CB * B * B /M7C3N7U7BKE2 [O2 ?C3L7U+NCS+ICN7MSA7RI" 7A*JCC* B * B 6 WM6=WN3MWB3R> 7F* 3E?R7SR 3OJ 3E& 3NWS3RWT3D& 3NZ 7IOR7TJ +OCW+OCF7MSA7RI" 7A*JCC* B * B 2 3M6=WN3MWB3R> 3F6 7IOS3I
N2 3E3EWM7NOT2 ;I2 GL+SCT7R
O2 [O2 GM3T	R3XF 2MNJ* B * B 2 6 3R&=3NWD3X> 3F2 7ASS2 ?R3W& 3N6 7AKT+ICX7A^ 3IT2 OM2 3E3EWM7NOT2MNJ* B * B 2 6 7ZR=3OGT3L: 3UKM+ECR+OCF7ZKE+OCS+TCO+BCE7ION7ESR+ECD+ICN7MSA7RI" 7A*JCC* B * B 2 GM2=?T3T3A6 WN3MWB3R> 7FN 7TKO3AWG2 ?L7CSA3I;O3S: 3EWC3SGS+RCY
FKO2 GM3T	R3XF 2MNJ* B * B 2 : 3M:=3UKM+ECR+OCF3EWL3M;E+TCS+ICN7MSA7RI" 7R*JB . N 2 [I2(OM*-	M.5V,",64*JB . R 2 OM"=7M*JB . V 6 WM2=OM6-WM/DF-*MBJ* B 2 6 3L6=3C6-+L7D"1*M* B * B /M7R3M6-L*M* B * B /M7Z6(WM2*6(/UF+*)>)"2*M* B * B /M7A3M6*+C"-+M+L2(3M*+&1.)
/*MBJ* B 2 : 3M:="*7M"J7C*JCC* B 2 ?M+VCE3EWL3M;E+TCS3BOA3KGW+RCD3ASN2 WS3AOR3HZ +OCR7AOB7OWL3T3E3Y^ 3RGE7TOE3TV 3L7E7ESN2MNJ* B * " 7NSO2 WN7COE7SKA3Y& 3NN 3AWS2 [O* CA7MSA7RI2 	W3T?H+UCT7L
O+ECR3CSO3I
A3OGN+L	S*MBJ* B 2 & /E7R"0*M* B * B 7P[I*=:0*MBJ* B 2 & 3F6(+L	D*124*124"6*M* B * B6/J7JM7A*JB * B . 7J+M7AM7Z*JB * B 6 OK3T*=*MBJ* B 2 R /O& . 7K21.,S7T*JB * B 2 KT*=AJ6)*JB * B * A+J	J2=KT*MBJ* B 6 R 3BF=+BS+T	B*MBJ* B 2 & 7FR(7BB-+I	V.8",",67*JB . ^ 2
	P7VR=B*M* B * B83J*="-61*JB . & 2 +J2=+J"-61"J7C*JCC* B 2 ;I7SKE7T* 3E?R3S& 3NZ 7IOR3T6 7UJ 7OOW2 :(+OCT3NOE7EOS7A	R2 ;I2 GC+SCE/M7Z"06)*JB * B 2 [I6(+M.)R1.,R1.,B1*MBJ. F 20* /JF=*MBJ* B 2 * *=.1M7Z*JB * B 2 OI*=.13MSU*MBJ* B 2 R /OF 23& *=21M7U*JB * B 
 ?D. J1. 7K216,C*M* B * B 3A*(/J6)"06.*JB * B 2 [I*(7K+I	C*121*121"162*JB . F1* A+J	J*=AJ6)*JB * B . 7J/JF+*MBJ. F 22* 3J*=/JF+*MBJ. F 23& 3C&=/CF+2MNJ2MNJ* B 2 ^ 3EWN7RSA7ER 7ESS2 GV3LWU2 ?F7RN 3I
N3UGL7RSIY*M* B *1B43T3O6=CE7SB*I7V"J7C"J7C*JCC* B 6 SS7ASR2 WD3C7O7POO3I	T+OCN3L?OP*M* B * B 7KSS"=61*JB * B 2 SI/S7TM7C*JB * B 2 OI2=OM"-61*JB * B 2 ?D. "3. 7K216,*MBJ* B 2 & 3F.(6-KM*-&1*126*126"165*JB . V12 SI/S7T7IOD/TF-*MBJ. F 26& 3D&=7DSS*MBJ* B 2 
 /L7R3K6+L7D*JB * B 2 [I2(3I3R6-.)"1.,"1.,^1*MBJ. F 27& /L7RM*M* B *1B8/I7I7KSS2MNJ2MNJ* B 6 B 3I?V7TN 7EKA+CCH+ICN7FKI+SCT3C3O3U;M6 J(+OCW3ISN3EWX3SZ 3R7O. 7I7KV 7PR 3O& 2=3IR6)*JB * B 2 	P/VB=".*M* B * B +DCO*2B23I.=2,3IR*M* B * B /T7B7AOB*(A+I	I")*M* B
* B +IF+T7B7P[I.)B2.,B2.,&1*MBJ. F 69B /I7VT7B*JB * B . 7JI*M* B * B /J7JI7I*JB . B22 [I*(7I+M	R*222*222"261*JB . F22 SI2=SI"-61*JB . J22 	I2=	I2+SI2MNJ2MNJ* B 6 R 7ESS2 ;O2 	S7NWG7LKA7I	T*MBJ* B 2 & 7FB(+I	V*427*427"263*JB . N22 [I2(WI/RJ).6J,.4J,"6*M* B
*2B4+IF7P[I2-?T/LJ).5J,.5J,"6*M* B *2B57IKE*=7K"1*M* B *2B67P[I*=:1*/A+J	J2MNJ2MNJ* B 6 B 3I?V7TJ +OCW3RSE7USC3I;O2 ;A7DJ +OCW7ISN3EOR3H;A+GCE+ICN3R
I+HCT3H;A7DN 3IWD" 7R*JB * B 2 SI*=7JK*M* B * B +DCO*2B73I.=2,7N",7M*JB * B 2 	I*=/II7D*JB * B 2 KT2=	P7VJ*2(	I")*M* B * B 3R&(/I6)3R&(")*M* B *2B73R&(6)R=B*MC*M+CB * B 7P[I+OCT7R
O2 WR3DOU3T?I3NF +NCD7R
O2 ;I7TKE3CGH3NWG2 ;I2 ?C3E[F3I	C7ESN2 GM3T	R3XF *MBJ* B 2 & 3I.=S7T*JB * B . 7J+J/JI7C*JB * B 2 ?D. "2. 7I+J3JJ*M* B * B /T7B7P[I**AI6)*JB * B * A/I6)3A&(I6)*JB * B * A+I	I2=KT*MBJ. J 28& 3I&=/IF+2MNJ2MNJ* B 2 V 3L7E7ESN2 WR3DOU3T?IN*M* B * B +IF3K&-+L	R
229*324"364*JB . &22 SI6=OKT*M* B * B /I7I/KF+*MBJ* B 2 6 3U.=+S/T"1*M* B * B /M7Z7KSS2+OI*MBJ* B 2 R /ON 23& 2=	I2,3IR*MC*M+CB * B +ICN7MSA7RI" 7A*JB * B 2 SI2=SI2+OM*MBJ* B 2 * 3J&=6-KM"-61*JB * B 2 [I2(+J.)F3.,F3.,B3*MBJ. N 20& 3D&=3D*-J*M* B *3B17P[I2
F-2(SI")*M* B * B 3J&=/DF+*MBJ* B 2 R /ON 22* 3J6=3U6,Z*M* B * B 3A*(*-&1*=A+J.)7P[I**A+J	J*MBJ. N 22* *=/J"1*M* B * B 3A*(*-&1*=:02MNJ2MNJ* B 2 & 3N6 7AKT+ICXR*M* B * B 3J.=*MBJ* B 2 R /ON 23* 3J&=2,7N",7M*JB * B * R+J	J*=R+J	J2+	P7VJ**(	J*MBJ. N 23* *=/
M*M* B *3B47KSS6=OK3T6+C*M* B * B +IF7IKL6-KM.)Z3.,V3.,V3*MBJ. N 25& 3C&=/CF-*MBJ. N 26& 3D.=6-KM*MBJ* B 2 & 3F&(/DN).8N,.8N,"7*M* B *3B77KSS6=OK3T&-D*M* B *3B83C;O3T;IU7E*JCC* B 2 ;E3D> 3FR 3E?C3M?P7SSI3I;O2 ?LO7P"J7C"J7C*JCC* B 2 GB+CCK3SKU3S	T7TSU3I;O*
BJ* B 2 & 3F6(/CF-.)Z4.,Z4.,&3*MBJ. N 29& /CJ=*MBJ* B 2 . /S7T+M/A+M7L+M/C"2*M* B * B /I7IM*M* B * B +DCO*4B5/IJ=",7M*JB * B 6 OK3T.=+S7TM7C*JB * B 2 	I2=	I"-61*JB * B . 7J+I7IM7R*JB * B 2 [I*(	J*421*421"460*JB . B46 OK3T.=+S/TJ*M* B *4B1+DCO*4B33J&=3I:,3
6,*MBJ* B 6 R 7BJ=*(	J*MBJ* B 2 6 3Z.=+S/T+I7C"2*M* B * B /I7DJ*M* B * B +DCO*4B2/J7J7KSS6,+M*MBJ* B 2 & 3D&=/DF+*MBJ. R 62R 7BR=3BF-2(+J6)J*2(SI")*M* B *4B33R*(6)R=B*M* B * B +IF+I7C+M	C*424*425"465*JB . R42 OI2=OI"+61*JB . V42 ?C3N	T3NWU*MBJ. R 66J 7EWT
7N"J7C"J7C*JCC* B 6 KE7RKO2 WR7TKUN*M* B *4B77IKE.=F-*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"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