File PLCHAR.FT (FORTRAN source file)

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

+CB 3POL7HKA6.SF2MNJ"I*M3CN 3A3L2 3P3CGH7R"(*,3Y3WSI+T3H3H	E7GSH2,?R7TSA7EZ,+A	L2MNJ2 3P+OCT3CGH3ROA7TKE6 WS3B?R3U	TN7E*JCC+ACT7POO3I	T+OCN*(3XY6)*JCC7S+I+EB=3WSI+TCH3X" 3E
IH7T*JCC3V3A6 OI* B67BSI6 OA3C	I2 GV3LWU2MNJ2 3A+SCO7POO3I	T+OCN+ICN7PSA7TKE3NF 3RGR3Y& 3NWD7XKES*MC6I6JNI7UKB7OSU3IWN2 3P3CGH7R"(*,3Y3WSI+T3H3H	E7GSH2,?R7TSA7EZ,+A	L2MNJ"I*M2I;I3T
E+ECR7DKI.1J(*22)2 	D+R"2*1&1"M&J7ISN3EWG3RN 7OKO+DS*8&56,B 7ASR.1F(*52)2 GP/RKT.(V1*)B,7PKA+T"3*1&5"M&J7ISN3EWG7RB 7ASR.4F(*52)2 GP/RWT.(V1*)B,7PKA+T"6*1&0"M2JC6I*JCC3CGH3ROA7TKE2 GP3TWT+RCN7DSA7AN 7TSA3EWM7NOT2MNJ2 C3AGR3CWT7RN 3POA3E& /SR X67*JCC3EOA/H
 2 	B+TCS+ICS7AZ 7AWLE*M7CZ 7AWL3E^ 3RGE7TKE2 T+ACN276 3E;A7SJ 7AOI7EB +ECN+OCN7NE3T6 3OWV2MNJ"I*M2IGD+TCA7PKA+T>1/OB0.0R3.4N0.0B425>,.4B0.5F0.0R7.1F0.,CO.3F0.0B3.7J0*0262MNJ*IBI* B .=6=.=6=.=6=.=6=. 6 .=6=* B * B * B * B * " *("(*("("(*MC&I* B * N*N*N*N*
 *N*N*N*N* N *N*N"*MC6I*JB * B X&I/OJ0.0B1.3B0.0B220>,.0B2.7N0.0B7.2^0.,CO.3V0.4B3.7F0*0252MNJ*IBI*("(*("(*(B(* B * B * B *"J"*"J"*"B"* J"*"J"*"J"*"J"""*MC&I* B 6 . 7[/[7[/[+[B 7[/[7[/[[7["J	C*IB * B * B * B * B * B * ^ *	^	*	^	*	B *	^	*	^	"	6	"J	C*MBJ* B
" 	X.ICO.0^0.0B1.7F0*025/OJ0.0B5.2Z0.0B126>,.4B1.5J0.0B2.1J0",*MC&I* J"*"J"*"J"*"J"*"B * B * B * B * B * B * B *,2,*,2,",6,"J	C*IB * B * B . .;*;B;. .;.;.;.;.;.;.;*;B .;.;.;.;.;.;.;.;2MNJ*IBI* B * B . * .:*:. * .:*:.:*:.:*:*:B:. *:.:*:.:*:.:*:":*MC&I* B *
B * B * B * B * B * B * B * B * B * B *.:.*.:.".6."J	C*MBJ* B " 	X.ICO.1N0.0B2.3J0*022/OF0.0B0.2J0.4B420>,.0B4.3R0.0B6.3^0",*MC&I* 2,*,2,*,2,*,2,*,B *,2,6,GQ7QGQ7QGQ6 F 7QGQ7QGQ7QGQQ7Q"J	C.I. .;.;.;.;.;.;*;B;. .;*;B;* B * B * B * B 2 
G3G
G3G
G2MNJ*IBI.:*:.:*:.:*:.:*:2MNJ*IBI*.:.*.:.*.:.*.:.2MNJ"I*M* B 6 " 2I>I.0B1.7B0.0B6.0F0.,CO.1B0.0B3.0R0*021/OR0.0B3.3N0.4B1"36/"J	C6IF 7QGQ7QGQ7QGQ+QCQ6 GQ7QGQ7QGQ7QGQ+QB 7QGQ7Q+Z7Z+Z7Z+Z2MNJ*IBI3G
G3G
G3G
G3G
G2 ^ 3G
G3G
G3G
G+GCG2 
G3G
G3G
G2MNJ"I*M2IGD+TCA7PKA+T>2/OB0.0B7.4^0.0B020>,.0B4.0B0.0B0.0^0.,SO.4^0.0B0.4N0*0242MNJ*IBI* B 7Z+Z7Z+Z7Z+Z7Z+Z6 * 7Z+Z3F[F3F[F+FCF2 [F3F[F3F[F3F[FF*MC&I* B * B * B * B * B * B 3EWE3EWE3EWE3EWE2 V 3EWE3EWE3EWEE7E"J	C*IB * B * B * B * B * B 2 3L3L3L3L3L3L3LL
MC6I*JB * B X&I/OF0.0B7.2Z0.0B221>,.0B1.0J0.0B0.2^0.,CO.1^0.0B1.6B0*0262MNJ*IBI*)&)*)&)*)&)*)&)* & *)&)* B * B * B * V%*%V%*%V%*%V%"%*MC&I* B * B * B * B * B 7]7]7]7]7]7]7]7]6 6 7]7]2MNJ"I*M* B 6 " 2I>I.0B0.7F4.0B7.3F0.,CO.4F0.0B4.0N0*020/ON4.0B1.0B0.4B4"
6,"J	C*IV *%V%*%V%*%V%*%B%* V%*%V%*%V%*%V%*%B *%V%*%V%*%V%*%V%2MNJ*IBI* B * B * B * B * B * B * B * B * B * B * > */>/*/>/"/*MC&I* B * B * B * B * B * B * B * B * B * B * B 7XX7XXX7X"J	C*MBJ* B " 	X.ICO.0^0.0B4.0B0*020/OB0.0B7.2R0.0B427>,.0B4.0B0.0B7.0B0"
*MC&I* B * B * B 3M7M+MB 3M7M3M7M3M7M3M7M2 6 3M7M3DSD3DSDD7D"J	C6I2 7\3\7\3\+\B * B * B * B * B 3N;N+NB 3N;N3N;N3N;N3N;N2MNJ*IBI7XX7XXX7X"J	C*MBJ* B " 	X.ICO.3B0.0B4.1R0*026/ON0.0B7.0^0.0B020>,.0B0.3R0.0B7.2V0"/*MC&I2 SD3DSD3DSD3DSD+DB 3DSD3DSDD7D"J	C*IB 
 B * B * B * B * B 2 . 3K/K3K/K+KB 3K/K3K/K3K/K3K/K2MNJ"I*M2IGD+TCA7PKA+T>3/OR0.0B0.4^0.0B424>,.0B0.4B0.0B7.0B0.,CO.0Z0.0B1.7N0*0272MNJ*IBI* B 3HH3HH3HH3HH2 " 3HH3HH3HHH7H"J	C*IB 2 . 3K/K* B * B * B * B * B * B 3AGA+AB 3AGA3AGA3AGA3AGA2MNJ"I*M* B 6 " 2I>I
0B4.6R0.0B0.4N0.,CO.0N0.0B1.4F0*022/OB0.0R3.4N0.0B2"56,"J	C*IB * B * B * B * B 6 ?
7
?
7
?
7
?
+
B 7
?
7
?

7
"J	C2IF 3AGA3AGA3AGA+ACA2 GA+ACA* B * B * B ****************2MNJ*IBI* B * B * B * B * B * B * B * B * B * .+*+.+*+.+*+.+"+*MC&I* B * B * B * B * B * B * B * B * B * 6 *-6-*-6-"-*MC6I*JB * B X&I/OJ4.0B1.0F0.4B425>,.0B0.5R0.0B1.3B0.,CO.0B0.0B0.7N0*0272MNJ*I
I* B * B * B * B * B * B 3BKB3BKB+BCB2 KB3BKB3BKB3BKBB*MC&I* ****************B **********B** B 6 J 7RKR7RKR7RKRR7R"J	C*I. *+.+* B * B * B * B * B * B * B * B 7PCP7PCP7PCP7PCP2MNJ"I*M* B 6 " 2I>I.0B4.6R0.0B5.3R0.,CO.0R0.0B3.4R0*023/OR0.0B1.4B0.0B3"06,"J	C2
J 3BKB3BKB3BKB+BCB2 KB3BKB3BKB3BKB+BB 3BKB+BB 2 & 3I	I2MNJ*IBI7RKR7RKR7RKR7RKR6 J 7RKR7RKR7RKR+RCR6 KR7RKR7RKR2MNJ*IBI7PCP7PCP7PCP7PCP6 B 7PCP7PCP7PCP+PCP6 CPP7P"J	C*MBJ* B " 	X.ICO.1B0.0B2.0J0*027/OF0.0B7.3^0.0B427>,.0B0.7B0.0B1.1B0"/*MC&I2 	I3I	I3I	I3I	
+IB 3I	I3I	I+ICI* B 6 V 7UWU7UWU7UWUU7U"J	C*IB * B 7TST7TST+TCT6 ST7TST7TST7TST+TB 7TST3T+J3J+J3J+J2MNJ"I*M2IGD+TCA7PKA+T>4/ON0.0B0.4F0.0B427>,.0B0.4R0.0B1.0F0.,CO.4R0.0B0.7J0*0202MNJ*IBI* B 7UWU7UWU7UWU7UWU* B * B * B * B * B * B 6 Z 7V[V7V[VV*MC&I* B 2 
J3J+J3J+J3J+JJ*MC&I* B * B * B * B .<2<*<B .<2<.<2<.<:<.>:>. : .>:>.>:>">*MC6I*JB * B X&I/OR0.0B7.4B0.0B223>,.0B0.0B0.0B7.4^0.,CO.4Z0.0B2.1J0*0202MNJ*IBI7V[V+VB * B * B * B * B .7^7.7^7*7B7. ^7.7^7.7^7.7^7"7*MC&I6 
W7W
W7W
W7W
W+WB 7W
W7W
W+WCW* B * B * B * B 6 	YY7Y"J	C*MBJ* B " 	X.ICO.2R0.0B0.7J0*024/OR0.0B7.0^0.0B024>,.0B3.4R0.0B3.4F0",*MC&I* B * B * B * B * B .5V5.5V5.5V5.5V5. V .5V5.5V5.5V5"565"J	C6I& 7Y	Y7Y	Y7Y	Y+YCY6 	YY7Y"J	C*MBJ* B " 	X.ICO.3B0.0B1.0B0*021/OF0.0B0.3B0.0B421>,.4B4.
F0.0B4.0V0",*MC&I. V5.5V5.5V5.5V5*5B * B * B * B * B * B * B .8"8.8"8"868"J	C*IB * B * B . &9*9B9. &9.9&9.9&9.9&9*9B .9&9.9&9.9&9.9&92MNJ"I*M* B 6 " 2I>I.0B0.6F0.0B7.3^0.,CO.4Z0.0B4.5N0*024/OF0.0B4.3R0.0B4"36/"J	C.I" .8"8.8"8.8"8*8B8. "8.8"8.8"8.8"8*8B .8
8.8"8.8"8.8"82MNJ*IBI.9&9.9&9.9&9.9&9. & .9&9.9&9.9&9*9B9. &9"969"J	C.IN .3N3.3N3.3N3*3B3. N3.3N3.3N3.3N3*3B .3N3.3N3.3N3.3N32MNJ*IBI* B * B * B * B * B * B * B * B * B . Z6.6Z6.6Z6.6Z6"6*MC6I2JRI3AGT2 GP/RWT./CO.4F0.0B3.0F0*020/OB0.0B1.0N0.0B124>,.0B0.3B
.0B6.1^0",*MC&I* B . "8.8"8.8"8.8"8*8B .8"8.8"8.8"8.8"82MNJ"I*MC&I* B . N3.3N3.3N3.3N3*3B .3N3"3*MC&I* B . Z6.6Z6.6Z6.6Z6*6B .6Z6.6Z6.6Z6.6Z6. Z .6Z6.6Z6.6Z6"666"J	C*MBJ* B " 	X.ICO.3^0.0B4.6N0*027/OF0.0B7.0Z0.0B021>,.0B1.0N0.0B0.4F0",*MC&I* B 2 N 3COC3CO
+CB 3COC3COC3COC3COC2 N 3COC3COC3COCC7C"J	C*IB * B 3O?O3O?O+OCO2 ?O3O?O3O?O3O?O+OB 3O?O3O?O3O?O3O?O2MNJ*IBI* B . B0.0B0.0B0. B .0B0.0B0.0B0*0B0. B0.0B0.0B0.0B0"0*MC&I. Z6.6Z6.6Z62MNJ"I*M* B 6 " 2I>I.0B4.6B0.0B1.1B0.,CO.3B0.0B4.1R0*023/ON0.0B4.1R0.0B0"56,"
	C*IB * B 7SOS7SOS+SCS6 OS7SOS7SOS7SOS+SB 7SOS7SOS7SOS7SOS2MNJ*IBI3O?O+OR$*$R$*$R$* R *$R$*$R$*$R$*$B$* R$*$R$*$R$*$R$"$*MC&I. B0.0B0.0B02MNJ"I*M* B 6 " 2I>I.0B0.6F0.0B7.3^0.,SO.4Z0.0B2.7J0*020/OR0.0B0.3B0.0B3"76,"J	C6IN 7SOS7SOS7SOS+SCS6 OS+SCS* B .1F1*1
 .1F1.1F1.1F1.1F12MNJ*IBI*$R$*$R$*$R$*$R$* R *$R$*$R$*$R$*$B$* B . R .4R4.4R4"4*MC6I*JB * B X&I/OJ0.0B6.0J0.0B422>,.0B2.1F0.0B1.0J0.,CO.0N0.0B3.6J0*0>72MNJ*IBI.1F1*1B * Z *&Z&* Z *&Z&*&Z&*&Z&*&B&* Z&*&Z&*&Z&*&Z&"&*MC&I. R4.4R4.4R4.4R4"4*MC6I2JRI3AGT2 GP/R
T./CO.1Z0.0B1.5R0*020/OB0.0B0.0J0.0B123>,.0B3.4R0.0B5.4Z0",*MC&I* B * Z&*&Z&*&Z&*&Z&"&*MC&I* B * B * B * B .2J2*2B .2J2.2J2.2J2.2J2. J .2J2.2J2.2J2"262"J	C*MBJ* B " 	X.ICO.3^0.0B1.7B0*026/OF0.0B7.3^0.0B426>,.0B4.5N0.0B4.2R0",*MC&I* B * B * B .?>?*?B .?>?.
>?.?>?.?>?. > .?>?.?>?.?>?"?6?"J	C.IJ .2J2.2J2.2J2"262"J	C*MBJ* B " 	X.ISO.2J0.0B2.1F0*020/OJ0.0R0.2F0.0B227>,.0B1.7J0.0B2.2^0",*MC&I. >?.?>?.?>?.?>?*?B .?>?.?>?*?B?* B * B * B 7^;^7^;^^7^"J	C*IB * B *!F!*!F!*!B!* F!*!F!*!F!*!F!*!B *!F!*!F!*!F!*!F!2MNJ"I*
* B 6 " 2I>I.0B1.6N0.0B6.2^0"/*MC&I6 ;^7^;^7^;^7^;^^*MC6I2JNL"I*M7CN 7TKA3T2 3OGC3T?I+NCS+OCF7PSA7TKE7NN 3E7G7ESNS*M7CZ 7AWL+ECS3AWR2 OO3T3A. J12 	B7TV 3N	S3GWN3D& 3NWT7GKES*MC6I2JRI3AGT2 	D+R>1/OJ0.7B7.3F4.0^525>,.0N2.7F0.4B1.1N4.,CO.1V0.0Z2.5N0*7232MNJ*
BI2 F 3AGA3BKB3BOC+CCC2 SD3DWD3EWE3F[F+FB 3G
G3GH3H	H3I	I2MNJ"I*M* B 6 " 2I>I.0F4.3J0.5B3.1F4.,CO.2V2.0N2.3V0*725/ON0.4B5.0^7.0R3"56,"J	C2I* 3J+J3K/K3K3L+LCL2 7M3M;M3N;N3O?O+OB 7PCP7PGQ7QKQ7RKR2MNJ"I*M* B 6 " 2I>I.0F6.7N0.7B7.4F1.,CO.4V3.0R4.1J0*125/OR0.6B1.1^2.0J0"56,"J	C6IN 7SOS7TST7TWU+UCU6 [V7V
V7W
W7XX+XB 7Y	Y7Y+Z7Z/Z7[/[2MNJ"I*M* B 6 " 2I>I.0J2.1F0.6B3.7V6.,CO.3V1.0B0.0^0*521/OB0.3B3.0F0.0F6"76,"J	C6I2 7\3\7]7]7];^+^C^6 ?
+
C
* B *!F!*!B *"J"*"N*R*$R$2MNJ"I*M* B 6 " 2I>I.0^1.1Z0.6B5.0N3.,CO.0^1.0V1.5N0*223/ON0.2B3.0N6.0J3"36,"J	C*IV *%V%*&Z&*&^	*	B	* "(*(&(*)&)******B *+.+*+2,*,6,*-6-2MNJ"I*M* B 6 " 2I>I.0Z0.3J0.1B5.5V7.,CO.6F5.0B7.7V0*227/OZ0.5B5.4F7.0R5"36,"J	C*I: *.:.*/>/./
0*0B0. F1.1J1.2J2.3N3*3B .4R4.4V5.5Z5.6Z62MNJ"I*M* B 6 " 2I>I.0V4.1V0.2B3.5F1.,CO.0F5.0V0.1R0*223/OB0.0B1.4F3.0N7"16/"J	C.I^ .7^7.8"8.8&9*9B9. *:.:.:.;.;.<2<*<B .=6=.=:>.>>>.?>?2MNJ"I*MC6I"J	C2MNJ2 WL7NSG+HCS+OCF7PSA7TKE7NN 3E7G7ESNS*M/CZ 2 	B3TF 3RGRY*MC
I2JRI3AGT2 	D+R>2/OB2.3J0.0Z1.1F422>,.2F4.4R1.1F2.4Z0.,GO.2B1.2F2.6B3*2262MNJ*IBI2 F 3AKB3CSC3DWE+FCF2 
G3H	H3I+J3K3K+LB 3M;M3N?O7PGP7QKR2MNJ"I*M* B . F 2I>I.3F0.4R1.0F6.2B1.,GO.2R1.1B0.4B1*122/OJ1.0J0.0B2.2N0"46,"J	C6IN 7SST7U[U7V
W+XCX6 	Y7Z/Z7[3\7];]+^B +
C
* F!*"N"*R$2MNJ"I*M* B . J 2I>I.3J0.4B1.1F0.0B2.,GO.0R1.0F4.2R0*224/OJ1.2N4.2J1.2N2"46,"J	C*IV *%Z&*	"	*(&)**B** .+*,6,*-:../B/*0B .1J1.2N3.4V4.5Z62MNJ"I*M* B . N 2I>I.1R2.2R3.2J4.6Z0.,GO.0Z0.3B0.0B0*0>02MNJ*IBI.7"7.8&9.:.:.;2<. 6 .=:>"?6?"J	C"M&J7EWQ3IGV
L;E+CCE2(?C3OSR/SF(6)B,7ASR.1F(*)2)2 N(7OKO+DS*1&62,GP/RKT*(&1")6,*JB * B +X"I3C?O7ROD.(F36)B,7ASR.3F(*)2)2 N(7OKO+DS*4&62,GP/RST*(&1")6,*JB * B +X"I3C?O7ROD.(F66)B,7ASR.5F(*)2)2 N(7OKO+DS*7&62,GP/R[T*(&1")*MC6I"J&L3LC/A7R2 ?M7DZ(+A3L*6&4"M&J+ICF2(OL7HKA2
WL*.&02 WR7TKUN*M2IGC+LCL3CWG3TR(/IKR2,OL7HKA2,WL+N	G"M&J+ICF2(WL+N;G+E;Q*0B)7RSE3U;R"M&J3LC/A7R2 OL7HKA"*622JNI3A3L2 
C+ET7DKI212,3CGH/RF-*,	I"M&J3C3A3LN 7GSE2(	D+R213LC+A3R3I	NT6)2J&I7NSI.=Z 24&*2+;II7T2J2I3E
N2=& 7NSI*-.13L;EG*M6ISS6=J 3OGT+T+E..F0.7V4"3632JNI+TB=7COO6(SS")*M6ISS6=N +IN+S	T2MNJ"I*M3C: 3O7R+ACL7S+I3E& /S^ X64"J	C"M&J3H	S/Z7E2 WH3IG/T^/".*M2IOY/E7N6 OH3IWZ**:3"5*M6IOW3IWZ6=^ 7ISD/HR/".*M2IOX/E7N6 OW3IWZ**:22MNJ"I*M6ICI/E7N" 612JRI/OV *0B07IWC+R
=3I	N3T2,3E
N",62*JBI2 GC+LCL3CWG3TN(7OKO+D3S7IWC7R",3V3A")*M*IB 3C3A3LN 7GSE2(?C3OSR3S&,7CKU*+21+Y	L"M&J6 " +LB=3W	S+Z+E3MSO6([X+A3L*86)3XWCN*M*IB /Y7L6 OH3IWZ2*3Y2-OYE7N*JBI6 CX*=6 +Y+L+S/T7X"+3LN*T*M*IB /Y7P* /Y+X+L+S/T+Y+LC7T*JBI2 GC+LCL3D3P+OT61",7P&,3P&,3P;E")*
*IB 3IWP+NB="0*M*IB +ICF6([X+A;L+G;T*7B)3IWP/NF=*MBJ.5B0*IB 3C;O3T;IU7E2JNI3A3L6 CD7LSO*(213XWC7N"+2,OY+E/N/YF,")*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