File GDATA.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 SG3AGT2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 ^ 3EWN7RSA3E& 3NWD3P;E3D;E7TZ 3A	R3A3B+ECS+UCP+TCO3TWH* 7M+TCH7P
O+ECR2(TE*M+CB * B * B * B 3H
I7HOE3TR 7EKG+ECE3P3O3Y?N3MGI7LN 3POE3I	F+E	D2 ;A3DN 7OCM3UWT2 WM7AON",*M+CB * B * B * B 3SGT3NGD+RCD7D[E7ISA3I;O+SB,3ASN2 ?C3RWR7LSA3I;O2 ?C3E[F3I	C7ESN+SB.2 TI7S*JCC* B * B * B 6 WS3B?R3U	T+NCE+ICS7NKO3M3A+LCY3C3A3LSE2 WB7FKO7EN 7UKB7OSU3IWN3S> 3RWDR6,*
CC* B * B * B 2 	M+NCV3ASN6 WM7LKT2 ;I2 T7EB 3E[R3O7R3AON3E> 3FF 2 ?P3L;Y3O	MA7L*JCC* B * B * B 2 WR3GWR3S	S+O;N2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3L^ 7DSA+A" 3N6,*,3X3XGB7RN,+T3D7DN,7UOMQ6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CN* B * B-3N7U7BKE2 [O2 KO7SKE7VSA3I;OS6.*JCC* B * B * B * CM* B * B-3TWH2 	H3GWH+SCT3D
E3RWE2 ?P3L;Y3O	M+ACL+TCO+BCE7FSI3TSE".*M+CB * B * B * B +XB * B 2-& 7NWP3T6 7AKT+ICX*(CN+BCY/MF+*): 6 ^ 3H;E2 T7EN 7UKB7OSU3IWN6 OI2MNJ* B * B * B * B * B * B 2 GC3LWL+DB,7DSA3AZ +OCR3TWH2 ;I7DCE3ESN7ESN2 GV3RGI3BWL6 KAE*M+CB * B * B * B * B * B 6 N 7TKO
ECD+ICN3TWH2 	F7RSS2 ?C3L7U3N> 3F6 7AKT+ICX+XB,3ASN2 GD+TCA7FKO2MNJ* B * B * B * B * B * B 2 T3ER 3EWP3NWD+NCT7VKA3IKA+LCE3AWR6 SS3OWR3D& 7NR +HCE7LOAT*M+CB * B * B * B * B * B 2 N 7OWL+MCN+OCF3TWH2 GM3T	R+XB.6 CU+OCN7RSE3U;R3I
N2 ?T2 TE*M+CB * B * B * B * B * B 2 N 3A3L3I
N2 ?R3U	T+N3E2 WG7NKE3AWT7DB 3OWW+RCS+OCF3TWH2 ;I7DCE3ESN7ESN2MNJ* B * B * B * B * B * B 2 GV3RGI3BWL6 KA7EN 7TKO+ECD+ICN3C3O3U;M/SJ 2 T7RWO+GCHM6.*JCC* B * B * B 2 KX+ACR* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH/MF+2 ?C3NGT3I	N+NCG3MGE+NCSO7F*JCC* B * B * B * B * B * B 3ISN3EWP3NWD+NCT3ASN2 WD3P;E3D;E7TZ 3A	R3A3B+E;S2MNJ* B * B * B 6 N +TCD* 6 6 WO7TWP7TZ 7ESC+OCR+OCF3L;E3GT* /M21N 7OSN3A;I3I
N6 SS3ASN3ASR2MNJ* B * B * B * B * B * B 2 WD3VGI3T?I+NCS+OCF3ISN3EWP3NWD+NCT3ASN2 WD3P;E3D;E7TZ 3A	R3A3B+E;S2MNJ* B * B * B 2 R * B * 6 6 WO7TWP3T6 7AKT+ICX2(;O+LCY7UCP+ECR3T	R3A
N3UGL7RB 7OSR3I;O2 [O2 TE*M+CB * B * B * B * B * B 6 N 3Y7M7EKT+ICC7MSA7RI2 [O* /M21J 3Y6 *+&12 ?C3NGT3I	N+NCG7CKO3R3EA6-*JCC* B * B * B * B * B * B 3T?I3NN 3O[E3FOI3I;E+T;S* " 3S?T3R
A3E6 3OWD2 [O* &12MNJ* B * B * B 6 N 7UOM+Q6 6 WO7TWP7TZ 7ESC+OCR+OCF3L;E3GT* /M21N 7OSN3A;I3I
N6 WS+MCSO7F*JCC* B * B * B * B * B * B 3P?R3DOU+TCS+OCF7D[E7ISA3I;O3SZ 3R7O2 WM7AON2 > 3F& 3NWD3P;E3D;ET*M+CB * B * B * B * B * B 2 F +NCD7DCE3ESN7ESN2 GV3RGI3BWLS6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B * CN7MOU3TJ 3E^ 3RGE7TKE2 T+ACN/MF+".*M+CB * B
* B * B +ICF3M& 3SV 3QGU7LR /OV 6 KO6 KG7ESA+E3R2 	S3N3G7EB 3ROE3I	S+OCN7M	A2 ?N3TJ E*M+CB * B * B * B 3S[U3FOI3I;E7TR 3O^ 3IWV2 GS7TOI3FOA7TKO3YN 7OCM3UGT3T?I3N3A2 WR3S3U+T;S2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*
CC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3R[E+ECR+TCO+BB.7OSS+L3E6 N	7TSA7ISS7IOC2 ;I2 WR3SGE3RC*	B,3TWH2 ?I+WCA3SGTT7E*JCC* B * B * B 2 ?C3LWL+GCE3PWR+S3S. &1*5242 C7ASP+ECR"66."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3E^ 7DSA+A" 3N6,*,3X3XGB7RN,+T3D7DN,7UOMQ6)*JB * B 2 	D3M;E3S?I7N" *(&12,KX+AR*12)3SST*(&1*,D*12)3S7U+SQ"16)"J7C*JCC* B * B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:
*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B +ICF3AR 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7SJ 7OSU3IWN6 OI2 WD7SKI+E3D2 TE*M+CB * B * B 3C& 3NN 7OWL+MCN61N 7HWO+LCD+BCE3R7E3OWV3DZ 3R7O2 T3ER 3OKU+LCE3PWR7COI3I;O2MNJ* B * B 6 N 7TSA3EWM+NCT3W	H+CCH3F3O7L
OS6."J7C*JCC* B 2 ?D3U3B7EB 3ROE3I	S+OCN7X",7BKA6,SS3DR,6,WS7MGS.,GT.,KT2MNJ2MNJ* B * B 6 R +HCE3C6 7USS2 3A+SCO+BCE3R7E3OWV3DZ 3R7O2 ?D3U3B7EB 3ROE3I	S+OCN3SGT3T7E7ESNS*M+CB * B * B 7ACP7EKA3I
N2 ;I6 SO7HKE2 ?R3U	T7NOE6 OU+ECD+ICN3C;O3J;U3C	T+OCN7WSI7HR 7HOI2MNJ* B * B 6 J 7OSU3IWN".*MC*M+CB * B * B 3TWH2 ?D3U3B7EB 3ROE3I	S+OCN7VKE3S?I3N> 7FR 7HOI6 WS3B?R3U	T+NCE7MOU3TF 3L?S2MNJ* B * B 2 N 7OSN3A;I2 ?D3U3B7EB 3ROE3I	S+OCN7FKO3TGR3NZ 3UON3T?I+N;
6 N 7QSR2 ;A3DF +BCSI7N*JCC* B * B 6 SS3AWT3M;E/TF *8B07MOU3TJ 3EN 3H;A3GSE2 ?T6 OD7QSR2 ;A3DR 7AOB".*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 2 ^ 3EWN7RSA3E& 3NWD3P;E3D;E7TZ 3A	R3A3BE
S"J7C*JB * B 2 [I*(7M*1B).1V0.,F *025. B9*MBJ. & 202 .1B=*MBJ* B 2 R /OF *0B0/IJ=",7M*JB * B . GL.=GL"+7N*JB * B 2 ?D. B120* *=21N*M* B * B 3L2=21*+*MBJ* B 2 . *=7LN*M. F *0B03X2(6)"=*(	K**XJ6)"J7C*JCC* B 2 GC7LWC7LSA3E6 3E;AS*MC*M. F *0B5/M7M/MF+*MBJ* B 
 R 3F:=*MBJ* B 2 2 "=60*JB * B 2 ?D. F125& *=21M7M*JB * B 2 KX+AR/I6).0B.*MBJ* B 2 R /OF *1B0/JF=",7N*JB * B . 7L/LF+*MBJ. F160" 7BKA*(	I2=KX+AR+I.)3X2(")*M. F *1B53XGB3R&(6)"=7BKA*(	I2/[D2MNJ*MBJ* B 2 R /OF *3B0/IF=2,7M*MBJ. N160N +TD/I6).0B.2MNJ2MNJ* B 
 N 3AOL3UGL+TCE3S7U3S> 3FN 7ROO7SB-3RSO7USC3S> 3FR 3E	V3A	T7OON2MNJ*MBJ* B 2 2 *="(+M/M*1*)+M	M"/62*JB * B 2 ?D. V120& *=21L*M. F *5B03D&(.)B=".60*JB * B 2 ?D. ^120. *=21N*M* B * B /LB=*MBJ* B 2 R /OF *7B0/JF=2,7M*MBJ* B 2 2 22:=2**(*-&1"+7K*JB * B . KT*=
+L&22-KX+ARJ6)*JB * B 6 SS3D*(6)N=+TD+J.)T62*JB * B 2 ?D. ^120& *=21J*M* B * B /L61+N"*/IF-2).+*MBJ* B 6 R 61"=.(GL6)"-7BKA*(	I*MBJ* B 2 2 *=/L"1*M. F *7B03D2(2)R=*(	L.+GT.*KT*MBJ* B 2 2 "=60*JB * B 2 ?D. ^125* *=21M7M*JB * B 2 ?D. ^125& *=21J*M* B * B 3L
="+61*JB .1V7* D/L6)3D2(6)N-+TD+I*)3SST*(	J2/[D*MBJ* B 2 2 "=60*JB * B 2 ?D. "120& *=21M7M*JB * B . 7L3L&+*MBJ* B 6 N 7UOM3Q&(2)R=*(	L*MBJ. "160N +TD/I6)6 GS+RT2 KA3SR(*(	L")6)"J7C*JCC* B 2 GC7LWC7LSA3EN 7OKR3EGL3T?I3NN 3O[E3FOI3I;ET7S"J7C*JB * B . 7L"0*M
 B * B +DCO.1B9. 7J216,M*M* B * B +DCO.1B9. 7I21*,*MBJ* B 2 2 *=/L"1*M. F *9B03D2(2)R=*(	L6/N(+TD+I*)3SST*(	J")*MC*M+CB * B 3C3A3C3U3AWT6 SS3ASN3ASR2 WD3VGI3T?IN7S"J7C*JB * B 2 [D6=GS+RT+D7F.1B.")*M* B * B +DCO.2B0. 7I216,M*M. J *0B03SST*(	I6=SS3D&(2)R/F*
* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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