File XYCNVT.FT (FORTRAN source file)

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

* B * B 3SKU7RWO3T;I7E" 3Y;C+VT+I3X+I	Y*MBJ* B 2 N 3O7M+OCN2//T3T;R+XB/3T	M7NV2,7T7I[N7YR,7MA+V3X3TGM7X	V6,KT3E3A7XR,3RGE+L3Y*MBJ* B * B13T7I7AG2,	T3M
A7YR,3R?C+S3F7TOR3I[N6,KT3SGC7LR,3RGF+C3X3T[R7A	C",*M* B . J 6 KT7PKA61R,3RGP+R227TCR/AOR6,KT7PKA64R,3RGP+R257TCR/A[R2,7K3O3F/G"(2).,3PSA"26,*JB * B 23. 7BWA+D3R3K;G3F
L2,
K3R[A3L.,3H7O+E3Y3K7K3OWD2,K7OOR3Z.,7VKE+S3Z3KKT7L+S",*M* B . R 6 OK3IWZ3F.,7LKM+G3N3K7R3R;G2,[K7ASC3R.,7TKE3M.,3L;I3E.,7ZA+I3S3KWB7AM2,KK3E7AY6,*JB * B 25. 7M[O+E3F3KOP7HKA*(&52,SK3AS3T.,3M;I+S3X3K	M7N	S2,7K7AOX3X.,7MA+S3Y7K	E3C;O",*M* B . Z 2 	K3N[L3T.,
O3T+F3T3K;UI7T*JB * B 2 	D3M;E3S?I3N& 7PSL*(&52,?I+PT"56)*JB * B 2 GD+TCA7IKD+E3W7I	S+N> .0J,"26/*JCC6*J 3EWC3IWV2 T7EB 7LSO2 C3AGR3CWTR7S*JB * B 2 GC+LCL7PSL7CKH6(I6,	I6,CI+L	T2MNJ* B*7OSP3I	M+ZCE3TWH6 WO7TWPT*M* B * B 3L;E"=60*JCC2*N 3HOE3K& 3F" 3IG* CY
ICS3NWE3DSE*MBJ* B 2 & 3F.(3PC+AR*1B)6.GE2.& 7PSL*(&12)?G2 ?T. B12MNJ* B*3ION3LSU3E" 3IG* CY+ICF3NWE3DSE*MBJ* B 2 2 /E7N"1*M* B * B 3KOP7HKA*(&16=CI+LT"16)*JB * B 2 ?I+PT.16)3I3P/TF(")*M+C* 2 C3E/C2 [I6 OL7BY6 OI2 WN3EWDD*M*1B0* B +IF3KWT+RCM2.WL..J 2)?G2
?T. B2*MBJ* B 2 & 3F.(3PC+AR*2B)6.GE2.& 7PSL*(&22)?G2 ?T. B22MNJ* B*3ION3LSU3E2 7S	B3X& 3F: 3ESEE7D*JB * B 2 WL3N2=+E/N"1*M* B * B 3KOP7HKA*(&26=CI+LT"26)*JB * B 2 ?I+PT3L;E2)&=7PSL*(&2*MBJ* B 2 ^ 7OR /ON "0*M+C* 2 C3E/C2 [I2 ?L7W& 6 OI2 WN3EWDD*M*2B0* B 
IF3KOP7HKA*(&32 :.+EB.3I3P/TN(2)^)7OR /ON "0*M* B * B +IF3KOP7HKA*(&42 V.+QB.3I3P/TR(2)^)7OR /OR "0*M+C* 2 ;I7CWL+DCE7L
O* CY+ICF3NWE3DSE.MNJ*0B 2 2 /E7N3L;E"+61*JB * B 6 CK3CGH/RN(2)&=7PSL*(&3*MBJ* B 2 & 7OSP2(WL/N6)3I3P/TN(")*M+C* 2 C3E/C2 [I2 	H+GCH3X& 3S: 3ESEE7D*JB * B 2 [I6(CK3CGH/RR(*): +E;Q6 CI+LT*4&)+GCO+TCO"560*JCC2*& 3N3C3UWD2 	H+GCH3X& 3F: 3ESEE7D*JB * B 2 WL3N
=+E/N"1*M* B * B 3KOP7HKA*(&46=CI+LT"46)*JB * B 2 ?I+PT3L;E2)&=7PSL*(&42MNJ* B*3CWH+CCK+ICF7L
O* CX+ICS3NWE3DSE.MRJ*0B 2 & 3F.(3PC+AR*5B)2.WN2.& 7PSL*(&52)?G2 ?T. B52MNJ* B*3CWH+CCK+ICF3A3L2 T3EN 7HKA7ASC7EOR6 KA7ER +HCE3S7AE*M* B * B +IF3L;E2 :.+EB.20^)7OR /OV "0*M+C* 2 C3E/C2 [I2 ^(+SB)7FKO2 GD+RCK3VOE7TKO2 3A3RGE+DCY3S;ET*M* B * B +IF3K?M3V[E2 
.+QB.21^)7OR /OV "0*M+C* 2 C3E/C2 [I2 WV3C?T3R& 3SF 3LWR7A	D6 KD3A;W2 ?T6 CSO7T*JB * B 2 [I2(SI7R
E2 V.+QB.21^)7OR /O" "0*M+C* 2 ;I7CWL+DCE3TWH2 ?L7W" .MVJ*0B 2 2 /E7N3L;E"+61*JB * B 6 CK3CGH/RV(2)&=7PSL*(&5*MBJ* B 2 & 7OSP2(WL/N6)3I3P/TV(")*M+C* 2 C3E/C2 ?F7RB 7OOS3I3B7EN 3PWE7DB 3RKO3L7E.MZJ*0B 2 & 3F2(+ECN2.WG2.. 3PSA22^)7OR /O^ "0*M*LB * B 2 WL3N2
+E/N"1*M* B * B 7ICO3T2(+E	N6=OIY7N*JB * B 2 ?G2 ?T. B62MNJ* B*3S;E7DR +HCE7AKR+ACY+TCO3TWH6 WO7TWP3TJ 3U[FE7R.JB7* B 2 GC+LCL7TWO7TSS2(WL3N&,7OSP")*M+C* 2 WS7TR +HCE3C7O3M;O2 ;A3D" 7ISS7O	R2 GV3RGI3BWLS*M+C* 2 WS7TR +HCE3DWR3W" 3EWR2 3FA7G*JB * B 2 SI7R
E"=61*JCC6*J 3E?M+VCE3TWH6 KD+ECW7HKE3EZ 3L
A2 [I2 	D3D:	3TR 7R
A*MBJ* B 2 & 3F.(7M[O+ECF6.GE..F 2)SI7R
E"=60*JCC6*J 3E?M+VCE3TWH2 ?M+VCE3FGLG*M* B * B 3K?M3V[E"=60.JB8* B 2 KK3E7A3X&=X*M* B * B 3KWB7A	M6=	I*MBJ* B 6 J 7EWTR7N*JB * B 2 ;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