File WAHLK.FT (FORTRAN source file)

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

2MNJ* B * B 2 	E3NGG+BCE7DKE6 WK7R
S3A3H3A[U3L
AE7N*JB * B * B 3C7O3M;O2 GK3KWB6,OK3KWB2,?N3N/L2,GK3U
F*MBJ* B * B 2 	D3M;E3S?I3N. 3AKK/EV(2).,3SKK/EV(*,&82,?N3N/L.(V12).,3A[U/GN(.,V1")*M* B * B 2 & 3SGP/C7E.-B2"166*JB * B * B 3RGE+D" .1R,*0&13I?FR7M.JB4*1B * B 7FKO7MSA* ^(3KGL3SWS7NSS3UWF2:F	"26)*JB * B * B 3RGE+D" .1R,*0&23IGHL7B.JB4*2B * B 7FKO7MSA* ^(
H3A3BGJ/H+R* B * ^ +A&1*MBJ* B * B 2 	F3LKE"=60*JCS* B * B 3TSA2 	\3H3AB*M+SB * B 2 F +NCD.(^7"060*JCS* B * B .7B1"2*M+SB * B 6 R +ACD.(B2"0*M+SB * B 2 R +CCA3\	F3LKE6MNJ* B * B 2 GT7D2 3I?FR7M*JCS* B * B 3DGC2 [\3IWLB6*JCC* B * B 3LWO3SC+ECN7DKE6 KA3B	E3
[S3ESLE7R*JB * B * B /I7Z"0*M* B * B 2 & /Z61"0*M* B * B 2 R /OF . GK*=21"5*M* B * B 2 R /OF . KK*=21"8*M* B * B 2 . 3AKK3E.(.16)"0*M*1B * B 2 . 3SKK3E.(21.,.26)"0*M* B * B 2 R /OJ . GK*=21"3*M* B * B 2 R /OJ . KK*=21"165*JB * B * B 3N;O+LK+K&2"=60*JB2* B
* B 7KWA+FG+K21+K&2"=60*JB * B * B 3W	R+TCE*(21.4B0")*M.4B0* B 2 Z 3O7R+ACT*(^/3GKE+ECN3SWI2 	D7E^ 3A3H3A[U3L
A+ECN+AGN"	6)*JB * B * B 3W	R+TCE*(21.4B1")*M.4B1* B 2 Z 3O7R+ACT*(^/7AOB7OWL7T* 3UJ 3EWL3G;E+DCE3FWA3CWH+R^!")*M*5B * B 2 & 3Z&=/ZF+.MFJ*0B * B 2 WR+ACD*(21.7B32)GK3KWB6(+I")*M* B * B 2 & +F" 3K/A+BE+I	Z*-&1*520*121"5*M*1B1* B 2 & 3Z&=/ZF-*MBJ* B * B 2 ?
+TCO"160.JB5* B * B /I7Z"0*M* B * B 6 ^ 7RSI+E" .1R,*4&0.MRJ*4B0* B 2 ?F3RGM+T" 6/N	7UOB7TSI3UWI3RGB+RCE3FOA7HKG7UCP+EGN"	6).JB6* B * B /IGZ6=+I.1F+*MBJ* B * B 6 KW3IWT. F(.,V420&)Z61.JV4*0B * B 7FKO7MSA* >(2	GF3C
H7RCU/P+E* 2	+I&1.M^J*0B * B 6 +I6=+I"+61.JB8* B * B 3RGE+D" .1^,*3&03K/S+BE/IGZ6,+I")*M.4B6* B 2 Z 3O7R+ACT.(KI")*M* B * B 2 & +F" 3K/S+BE/IGZ6,+I.)F-.)B1.0",.1^,"0*M*8B1* B 2 & 3Z&=/ZF-*MBJ* B * B 2 ?G+TCO"860.JB1*0B * B 3W	R+TCE*(21.4B76)OI3POAE6,.J^4*
B * B 7FKO7MSA*(^/7WKA2 	D+ECS3DWI2 WL7TSZ3EZ 3AC7GWR3PWP*?2	+A&1.MFJ*1B0* B 2 WR+ACD*(21.5B72)[I3R
AE*M* B * B 2 & +F" 7IKF3AWG.-^6.2Z).0F,*220"660.JJ1*0B * B 3W	R+TCE*(21.7B0")*M.7B0* B 2 Z 3O7R+ACT*(^/3E;I3T	E3L;U3GR +ECR3FWA3CWH3R& 3NF 3U
F3AWB3NWF3LWD+R^!"/6)*JB * B * B +DCO.7B26 +I.1F=",63*JB * B * B /I7Z"0*M* B * B 6 ^ 7RSI+E" .1^,*1&0/IGZ.M^J*1B0* B 2 ?F3RGM+T" 2/&/*1:	6 WA3FGG3B;E3F3E+D&	.M^J*7B0* B 6 +I6=+I"+61.JZ7*0B * B 3RGE+D" .1^,*3&07KWA+FG/IGZ6,+I")*M.7B3* B 2 Z 3O7R+ACT2(Z	3AC
:B 2	&,"26)*JB * B * B +ICF2(GK3U
F6(+I21&,+Z6).1^)*220.7B5.,^7"0*M.7B5* B 2 & 3Z&=/ZF-*MBJ* B * B 2 ?G+TCO.7B6.M^J*2B0* B 2 ?C3N	T3NWU*MBJ* B * B 6 KW3IWT. F(.,F520&)3SGP+C3E.MVJ*1B0* B 2 ?F3RGM+T" 6/^	7I[E3I3E3E. 7UOR3E6 7UOE3S;E2 	M3NWD3SWT+NCS3B3E7ESG2 WS/I?N2	F,"16)*JB * B * B 3RGE+D
 .1R,*6&07IWKR7A*JB * B * B /I7Z"0*M* B * B 6 ^ 7RSI+E" .1V,*2&0.MVJ*2B0* B 2 ?F3RGM+T" 6/^	3EOL+HCE3FWA3CWH7RN 3ISN2 	N7CSH2 3A3S2 +KCS3Z
U3EGL3SWS+N^?")*M.2V9* B 2 & 3Z&=/ZF+*MBJ* B * B 2 ?G+TCO.3V0.MNJ*0B0* B 6 +I6=+I"-61.JB3*5B * B 3RGE+D" .1^,*3&03N;O+LK+I	Z*MBJ* B * B 2 [I2 :(3O3N3K&(+Z6).1N)*220.3B0.,&2"5*M+CB * B 6 N 3P	E3CWH+RCN7DKE6 WK7R
S3A3H3A[U3L
AE7N.JJ3*0B * B 3C3A3L> 3OWP+N" 6	SD+A^12,	F3LKE")*M* B * B 2 R /OF *9B5/I7Z.1V,.MFJ*9B5* B 6 KW3IWT. R(.,^520.)3AKK3E&(Z6)*JB * B * B +DCO.2B06 +I.1F=",65*JB * B * B +DCO.2B06 +I*=21"8*M.2B0* B 6 ^ 7RSI+E" .4V,*7&03K/S+BE/IGZ6,+I")*M* B * B 2 R /OJ *1B0/
GZ*=21"3*M* B * B 2 R /OJ *1B0/I7Z.1F,"5*M.2B1* B 6 ^ 7RSI+E" .4V,*7&07KWA+FG/IGZ6,+I")*M* B * B 2 R /OJ *2B0/I7Z.1F,"5*M.2B2* B 6 ^ 7RSI+E" .4V,*7&03N;O+LK+I	Z*MBJ* B * B 6 KW3IWT. R(.,^520&)7KKUA*M.5B7* B 2 Z 3O7R+ACT.(KA")*M* B * B 2 N 3A3L2 OO7LOOE*M*
B * B 2 V N7D"J*MBBZ

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