File DIALPS.FT (FORTRAN source file)

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

3CRI3I3A+P;S+F3T2 GP+GCE21> /FN *."I*1>0*1>9*7B12-N *.;M3M?O+R3E2 	R+CCE+U2.2 ?H7USS+O	N2MNJ2MNJ2I?C3PWI3SZ 3IWL3SZ 3R7O2 	D+ACL3L;I3CGT+PCE61R 7OB /S"/2 WD3VOI7EN /Y+S2MNJ2MNJ2I	D+ACL3F3I+ECS3AWR6 CS3E	C3FWI3DJ 3YF 6 SS7ASR3I
N2 3B3O/C6 WN3MWB3RF +NCD3L;E3GT2MNJ2I;I2 3B3O/C+SB,3AGV3IGL3BWL6 KF+OCM3TWH2 	D+ACL3ISN+E;X2MNJ6IOP*/B83F3I+ECS3AWR6 CS3E	C3FWI3DJ 3YF 2 	F+LCE3N7A3EF +NCD7ESX7EON3I;O".*MC*M3C"I3ESA+ECR3B?L7COK2 [O2 ?C+RCE3IGM+GCE3F3I+ECS*(;I+E2.2 	D+ACL3B;I7A	R2 ?T6 OP
/68"J	C6.[S2 	F7LOE2)F +RCE7ASU3OGM3TOI3A3L3YN 7O[N7ESR+ECD3F?R3MR 3I3A2 ?T6 OP"/68"J	C7FKO7MSA*.B 3TWH+SCE3DGI3LJ 3IGN+RCY3F3I+ECS7MOU3TJ 7EN 3E[L6-SS7ASR3I
N2 ;I2MNJ*I683MSO+EB,+ICN3OSR+ECR+TCO3SGT+RCT7CKO3ROE7T	L2 ;U7DKE2 T7EB /S"/6 	S3SWTM6."J7C"J	C3A3L6 SO7HKE6 	T+PCE3F3I+ECS*(;E+G2.2 GD+TCA+OCR7SWO3RWC2 	F7LOE2)F R7E"J	C7CCO3ISE2 	W3T?H+UCT7ASL3EGR3T?IN6."J7C2JNI3O7M+OCN3NWS+G3S3ISC+I3F3ISA+D3R3JKO3W.,7N
TL6,.JFI6 
I21&,+W22/IOW6,
I24.,3D7U3Y:,7WOD6,
I+D203ISW21&,3B[UF*M2I	D3M;E3S?I3N. 7NKT/LJ(.,J1*62)7KWD+MY.2&12)&,/WCD.(Z12)&,/WGD.(Z1")*M2I	D3M;E3S?I3N& 3B[U/FJ(*5&62,GN+ME*42)3IWD/VJ(")*MC*M.1B02IGC+LCL3C3RF*M7CJI3ESA2 GN+MCE+OCF7N
E2 	F+LCE+TCO+BCE3CWR3AWT3D> 7NN /Y+S.MFJ"1&03W	R+TE.1F,*2&0.MFJ"2&07FKO7MSA6(^	3H;E* B*7ACP7EKA+SB,7TCY3E: 3AWM2 [O2 WN7WB /S"/2 	F+L
E")*M2IGC+LCL3N7A+ES3IWD3V:,3AWM2,SI+E3V3N7AE6)2J&I3F:(3AWM.)N1.0F,*120.1B32MNJ2IWR+ACD7OSC+ACL3SGT3R	T+NCG3B?L+CCK3N7U7BKE2 [O2 	F+LCE+TCO7CCO3YZ 3R7O2 	L7NSC3AWP" 61.JN160^I7RSI/EF(.,R1"06).JR120ZI3O7R+AT2	?N7WN 3EWL+CCT3DGI3LZ 3IWL*:&	"M&J3C3A3LF 3LP+A
(3SGT+R
T")*M2IGC+LCL7ACL+HA2	;I3GJ "	6)2JNI3A3L2 3A3PGH2(2	3O/C* &	"M&J3C3A3LF 3LP+A^(*=&	"M&J3I3B/K617ISN+IN"86)"J	C3RGE3D> 3CGT3L2 3E
N+TCH+OCF3F3I3E> 3N2 3ION7TCA/EF ".*M2IGC+LCL7ACL+HA2	WL7NSG"	6)2JNI3A3L2 3A3PGH2("	2 ;I* &	"M&J3C3A3LF 3LP+A^(3B?L+C
K")*M2IGC+LCL7ACL+HA*	CS*=&	"M&J3N3B/K7S7ISN+IN"86)"J	C3M/A3EF 2 WN7WR 7ESN3A	T+VCE3F3I3E> 7NN +YCS3ASN2 C3E/C6 [A3A3I3A3B7EN 3POAE*M2IKN216=7SOY2(GN+M3E3LGMX6)2J&I3F2(7MA2-KN7LOK.)V1.0F,*920.1B92MNJ2I	F+LCE3W;O*	CT7FSI2 ;O6 	SS*M.1B56IKW3IWT*(21.1B6")*M.
B62I?F3RGM+T^(3F3I7E^ 3I3L2 ?N3TZ +ICT+OCN7SOY*:&	"M&J+GCO+TCO.1B02MNJ2IC3E/C2 ?F+R: +SCV3F3IE*M.1B92I[I2(GN+ME*46).1N2.8F)*925.3B0.,&1"5*M3CNI7O	P2 	F+LCE3B?L7COK.MFJ"9&5+DCO.2B0. 7I21:,3B/LS*M2IGC+LCL3R	L+NC21&,3B/L.1F,2,KI3U[F.,V2"66)2JNI3A3L6 OW+YS22:
+B217IWB+F	F"M&J/NGB2=KN.1F+.MJJ"0&03I3B/K613I3B+K.1"1*M3CNI7LOO+E" 3M/A7EB 3E7R3AWN+N	T2 WN3WZ 3IWL2 ;O6 	SS*M.2B22IGC+LCL7C	S3S:(3B/LS6)2J^I7OR /OF "060"J7C2JNL2I	D7ACL3SZ.+TB,3P
A/EJ 2 [O* :32MNJ2MNJ2I?C3NWV+RCT6.[S2 	F+LCE3HGE7DKE2 3B3O/C6 KF+OCM3DGI7LR 7OB /S"/2 ?F3RGMT*M.3B02IGC+LCL3R	L+NC21&,3B/L.1F,6,
I.1J,*5&62MNJ2IC3E/C2 ?F7RN 7TKA3T;I3GF 7DKD7EOS"M&J+IF/IGW.)B3.4N,*022.3R0.MNJ"0&23W	R+TE.1N,*0&3.MNJ"0&37FKO7MSA2(:	7ON 7TKA3T;I3GF 7DKD7EOS2 ?F+R: +SCV3F3I+E&	"M&J+GCO+TCO.3"02MNJ2IC3E/C2 T+ACT3DGI+L: +SCV3F3I7EN 7TKA+TCS+ICN286-3OWD".*M.3R02I[I6(
I.1J-.)B3.6N,*120.3Z0.MNJ"0&63W	R+TE.1N,*0&7.MNJ"0&77FKO7MSA*(:	+SCV3F3I3E6 7USS6 SS7ASR2 ;I* 683MSO+E&	.MNJ"0&83ISC/I7F"0*M2IGI7DKD"=602J^I7OR /ON "162"J	C3C;O7VKE3T" 3ESA+ECR3P	O3NWTR7S.JF320&I3C	D3F&=+W.2"1*M2IGI7DKD6=
I"4*M.3J12I?J/B7W.5J1"M&J3NWS/G7S6-
ND7S2JRI/ON *2B0/IF=.,J1"6*M2I?D. J320* *=21"2*M.3B22I;K3T3R*(3J/I6)"0*M3CNI7O[N7ESR2 	F3ESL* B17CKO3E& 3M
A7EB 3O;I7TKES*M6ICI/S68"1*M2I?D. B420& *=21"1652J&I3F&(/WGD*(	I.)R3.0R,*020.3B4.MNJ"4&07KSN+RL21&,/PS*)"=/IF-.)J*"5662J.I7NKT/LJ(6,CI+S&8.=N1"6*M6ICI/S687IOP.8F+.MRJ"0&03C;O3T;IU7E2J&I3F&(/WGD.(Z1.)R)*220.4B4.,J4"0*M.4B22I;K3T3R*(217IOP.86)*1*5.2Z5"M&J7K
N+RL22&,/PS.)^="2*M6ICI/S687IOP.8F+.MRJ"4&03I3F/D617IOP.8F-2MNJ2I?C3NWV+RCT3FWI+LCD20N 3OWR2 7I3AWG2 ?P7ISN7EOR"M&J+DCO.5B0. 7I.1F,"5*M2I[I6(
I+D"0+I&).4B6.,B5.0R,"660.JZ420.I7NKT/LF(6,CI+S&82=&(*-&1.*V2"6*M2I;K3T3R*(227IOP.86).1"2"M&J7IOP28&=/PS"+61.JB520NI7OSN7IWNE*M2I[I6(
I+D"0*1&6.)J5.0Z,*020.5B2.MVJ"2&07KSN+RL21&,/PS.)F=.5J*"5662J.I7NKT/LJ(6,CI+S&8.=R6"M&J7IOP28&=/PS"+61.JB620&I3FSL20&=/PS*-613I3FD612J&I3F&(/PS*-613NSW/SZ)*220.7B0.,J6"0*M.6B26IKW3IWT*(21.6B3")*M.6B32I?F3RGM+T^(3BSA6 N.3VZ 3IWL2 WH3AWD3RJ 3LOO+K&	"M&J+GCO
TCO.1B02MNJ6IKW3IWT2 ?C3NWV3RWT3D" 3ESA+ECR3B?LC7K.JB720NI3A3L6 OW+YS22:,+B213NWS+G	S2MNJ"M2J3CRI3I3A+P;S+F3T2 GP+GCE23> /FN ".*MC*M3CNI7O	P2 	F3ESL* B17CKO3E& 3M
A3EJ 3LOOK7S2J&I3F&(3FSL.1F).0B0.,B1*020.8B0.M"J"0&0+DCO.9B0. 7I21&,3FSL"1*M2IKJ/LGK2=KI/LGK2+[I/LCD"+7I2J*I/B61/NGB"+7I2JNI3A3L2 3R3ION*(213J3B+K2121&,3B[U/FJ,*5&6.M&J"0&03C3A7L^ 7SOY*(22/JGB2,KI3U[F")*M3CNI7O	P2 	F3ESL* B07CKO3E& 3M
A3EJ 3LOOK7S.JB1"0&0+IF3I3F+D&0.2B2.,J2.0F,.1B0.MFJ.1B02I?D. J1*0B0/IF=2,[I/LCD"M&J3J3B/K613I3B+K.1I*M2IKJ21:=+B.13I3F+D.1I*M2IGC+LCL3R	L+NC21*,3B/L.1F,2,KI3U[F.,V2"66).JJ1"0&03C3A7L^ 7SOY*(22/JGB2,KI3U[F")*M2I?G2 ?T. J2"0*M2I;ED*MBLBZ

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