File CORRE.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 ?C3RWR2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT2 WM7AON6,N 3T;A7DKA3DR 3E	V3A	T7OON6,N 7UOM2 [O6 KC7OOS6-KP
OWD7COT2MNJ* B * B * B 2 > 3FR 3E	V3A	T7OON2,F +NCD7CKO3R3E3A	T+OCN3CWO3F	F3CWI7NOT".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7CKO+RCE*(3N3M&,7O",2,KX+A3R3SST6,R*,3R3BR,*,	T2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 : * B
* 6 6 WN3MWB3R> 3F> 3BWS3RGV3T?I+N;S* CN7MOU3TJ /E: 6 KO* B=+TCO"26.*JCC* B * B * B * CM* B * B-3N7U7BKE2 [O2 GV3RGI3BWL+SB.3M6 7USS2 WB* B>+OCR6=R /OF ".*M+CB * B * B * B +ICO* B 2-> 3P	T+OCN3CSO3EZ +OCR7ICN+UCT7DSAA*M+CB * B * B * B * B * B . B 2 [I2 GD
TCA3AWR2 ?T2 WB2 WR+ACD+ICN3F?R3M& 7NWP3TR 3E	V+CCE+ICN3TWH2MNJ* B * B * B * B * B * B * B 3SWP3CGI7LN 7UKB7OSU3IWN2 GN3MSE2 GD+T;A* " 3SWE6 WS3B?R3U	T7NOE2MNJ* B * B * B * B * B * B * B 3UWS3DJ 7YR 7HOI6 WS3B?R3U	T+NCE3B3E+O;W")*M+CB * B * B * B * B * B 
 F 2 [I2 3A3LR 3AGT6 KA3EF 3LWR7A	D2 ;I2 ?C+R;E2MNJ* B * B * B 6 " * B * 6 2 [I2 ?I*=202 T7EZ 7AWL3E> 7F" 6 OI* :0"06.*JCC* B * B * B * B * B * B +ICF/I7O*1B,3X& 7SR +HCE7ICN+UCT7MSA7RI2 :(6 	B* 	M2 ?C3NGT3I	NN7G*JCC* B * B * B * B * B * B * B * B * B 7DS
A6.*JCC* B * B * B 2 KX+ACR* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH3MN 7OSN3A;I3I
N2 WM7AON".*M+CB * B * B * B 3SST* B 2-> 7UCT+UCT3VOE7TKO2 [O2 WL7NSG3H6 2 ?C3NGT3I	N+NCG3SGT3NGDR7D*JCC* B * B * B * B * B * B 7D[E7ISA3I;OS6.*JCC* B * B * B 6 R* B * B-7OSU7PSU2 GM3T	R+X" 7M" * 	M2 ?C3NGT3I	N+NCG3S7U3S> 3FN 7ROOS6-*JCC* B * B * B * B * 
 * B 3P?R3DOU+TCS+OCF7D[E7ISA3I;O3SZ 3R7O2 WM7AON".*M+CB * B * B * B +RB * B 2-> 7UCT+UCT7MSA7RI2 >(7N	L6 CU7PKE6 KT3I;A3G3U+ACR7PKO3T?I3N> 7FR H7E*JCC* B * B * B * B * B * B 3S7Y7MSE3ROI2 GM3T	R3X> 3F6 6 	B* 	M2 ?C3NGT3I	N+NCG7CKO3R3E3A	TO7N*JCC* B * B *
B * B * B * B 3CWO3F	F3CWI7NOT*.B 6(SS3OGR+GCE3MSO3E> /FF ")*M+CB * B * B * B +BB * B 2-> 7UCT+UCT3VOE7TKO2 [O2 WL7NSG3H6 2 ?C3NGT3I	N+NCG3TWH2 	D3A?G3N3A2MNJ* B * B * B * B * B * B 2 [O2 T3E6 7AKT+ICX+OCF3S7U3S> 3FN 7ROO7SB-3RSO7USC3S> F*M+CB * B * B * B
* B * B 2 R 3E	V3A	T7OON6 KF+OCM3MGE+N;S2MNJ* B * B * B 2 R * B * 6 2 ?W3R	K+NCG3VOE7TKO2 [O2 WL7NSG3H6 ".*M+CB * B * B * B +TB * B 6-^ 3O/R3I
N2 WV3C?T3R> 3F2 3E
N+TCHM6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?C3RWR2 	W+LCL7NSO2 OA7CCE3TF 2 ?C7NSS7ASN2 WV3C?TR6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 7DSA3A6(*,	D* B-3T	H7SN 7UKB7OSU3IWN6 WM+SCT+BCE3P?R3VSI+ECD+BCY3TWH6 OU+E;R2MNJ* B * B * B * B * B * B * B * " *1B)+ICF/I7O*0B,3T	H7SN 7UKB7OSU3IWN6 OI6 E3POE3TSE2 ?T2MNJ* B * B * B * B * B * B * B * B * B 7FKU7NOI3HF 
N> 3BWS3RGV3T?I3N& 7NZ 7ESC+OCR3DZ 3R7O2 ;A2MNJ* B * B * B * B * B * B * B * B * B 7ESX3E;R+ACL7ICN+UCT7D[E3IWC".*M+CB * B * B * B * B * B * B * B *(&22 [I2 ?I*=212 T+ICS3SKU7RWO3T;I3E& 3S: +OCT3UWS3DJ Y*M+CB * B * B * B * B * B * B * B * B 2 ?C3RWR6 WB3T
 7USS6 E7ISS2 ;I2 ?J3BR 3E/C2.& 7FV 7SKE2MNJ* B * B * B * B * B * B * B * B * B 7HOA2 ?N7TN 7UCP3LWI3DF 6 WS3B?R3U	T+NCE3N7A+ECD7DSAA6,*JCC* B * B * B * B * B * B * B * B 6 R +HCE3F3O7L
O3I
N6 OI6 WS3GWG3SWTD6.*JCC* B * B * B * B * B * B * B * B * B * B 6 WS3B?R3U	T+NCE7DSAA*M+CB * B * B * B * B * B * B * B * B * B * B 7RSE3U;R2MNJ* B * B * B * B * B * B * B * B * B * B 2 V N7D"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3P?R3DOU3T6-3OWM+NCT7C
O3R3E3A	T+OCN3CWO3F	F3CWI7NOT6 KA3EN 7OCM3UWTD6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EN 7OKR+E" 3N6,2,?I*,3X3XGB7RN,+T3D+R3X3RJ,*,3DT6)*JB * B 2 	D3M;E3S?I7N" *(&12
KX+AR*12)3SST*(&16,R*(&1*,R*12)/BF(2)R,*(&1*,T"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+OCN3XGB7RN,+T3D+R3X3RJ,",7T"J7C*JCC* B * B 2 T3EN 6 WM+SCT7AOL3OJ 7EJ 3E?M3VSE6 KF+OCM7DWO3BWL6 KP3E	C3S?I7NN 7TSA3EWM7NOT2MNJ* B * B 2 F 3PWP3A	R+NCG+ICN3OT+ECR7RWO3T;I+ECS3UWS3D& 3NN 3O+N3UON3T?I7N^ 3IT2 TI7S*JCC* B 
 B 2 ?R3U	T+N;E2MNJ2MNJ* B * B 6 R +HCE7DWO3BWL6 KP3E	C3S?I7NZ 7EOR3I;O2 [O2 T+ICS3SKU7RWO3T;I3E6 7USS2 3AS7O*JCC* B * B 2 ?C3NGT+ICN7DWO3BWL6 KP3E	C3S?I3NZ 7OSR3R;A6 WF7NSC3I;O+SB.6 GS+RCT3ASN2 KA3S& N*M+CB * B * B 3SGT3T7E7ESN. J2206 7USS2 WB2 C3A
N+ECD+TCO7DGS+RCT3ASN2 GD+B;S2MNJ2MNJ* B * B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JCC* B 2 ;I3I	T3A	L7ZSA3I;O2MNJ*MBJ* B 2 R /OF *0B0/JF=",7M*JB * B * B/J6).0B.*MBJ. B160R *(	J*=:0"0*M* B * B +K"=3M6
*+	M"/62*JB * B 2 ?D. B122& *=21K*M. F *0B23R&(.)B=".60*JB * B 2 ;F"=7N*JB * B . 7L"0*MC*M* B * B +IF+I	O. B1*5B,.1^2.,F "065"J7C*JCC* B 2 GD+TCA3AWR2 3A3RGE+DCY+ICN7CKOE*MC*M. F *0B5+DCO.1"0. 7J216,*MBJ* B 2 R /OF *0B7/IF=",7N*JB * B . 7L/LF+*MBJ. B167R 
(	J*=T+J.)3X2(")*M* B * B 3XGB3R*(6)R=*(	J*MBJ. B168R *(	J*=T+J>)F7N"J7C*JB * B 2 ?D. F125& *=21N*M* B * B /J7K"0*M* B * B 3L&="-7N*JB * B 2 ?D. F120* *=21M*M* B * B 3L2="+7N*JB * B * D/J6)3X2(6)R-*(	J*MBJ. F120J *(	J*=B+J.)3D*(")*M* B * B +DCO.1V1. 7J216
*MBJ* B 2 R /OF *1B5/KF=",7J*JB * B 2 /J2=/J"+61*JB .1V1* R+J	K*=R+J	K*+D+J*)3D.(")*M* B * B +GCO+TCO.2V02MNJ2MNJ* B 6 J 3ESA2 KO7SKE7VSA3I;O3SF +NCD3C3A3C3U3AWT2 WT3M?P7RKAY*M+CB * B 3MGE+NCS3F?R7MR 7HOE3ER 3AGT2 ;I* TJ6)"J7C*JB .1^22 [I*(7N+MB).1B3.,F *
20. N1"5*M. F *3B0/K7KN*M* B * B +GCO+TCO.1^3*MBJ. N125. 3K6=*MBJ. N127R /OF *4B0/IF=2,/K*MBJ* B 2 N 3A3L2 GD+TCA*(3MD6)*JB * B 2 ?D. R120* *=21M*M* B * B 3T*(6)R=*(	J*+DJ6)*JB * B . 7L/LF+*MBJ. R160J 3X2(2)R=*(	J*MBJ* B 2 Z /K7KK7K*JB * B 2 ?D. V120* *=2
M*M* B * B 3XGB3R*(6)R=*(	J*MBJ. V160R *(	J*=T+J>)3F/K2MNJ2MNJ* B 2 N 3AOL3UGL+TCE3S7U3S> 3FN 7ROO7SB-3RSO7USC3S> 3FR 3E	V3A	T7OON2MNJ* B 2 Z 3R7O2 WT3M?P7RKA3Y6 3E;A3SZ +OCR3M> 3BWS3RGV3T?IN7S"J7C*JB * B . 7L"0*M* B * B +DCO.1B8. 7I21.,K*M* B * B /J7K"0*
* B * B +DCO.1B7. 7J216,*MBJ* B 2 2 *=/L"1*M. F *7B03D*(6)J=3X2(6)R-*(	J*MBJ* B 2 R /OF *8B0/JF=",7M*JB * B * B/J6)3B*(2)R+*(	J*MBJ* B 2 R /OF *8B0/KF=",7J*JB * B 2 /J2=/J"+61*JB .1B8* R+J	K*=R+J	K*+D+J*)3D.(")*MC*M* B * B +IF3N.-+KB).2V0.,J *025. "1"5*MC
M+CB * B 3RGE7DR +HCE7ROE3T> 3F> 3BWS3RGV3T?I+NCS3OWN6 SA* CA3T7I+EB,3S7U2MNJ* B 6 R +HCE7OOB7E[R3A	T+O3N2 ;A3DN 3AOL3UGL+TCE3S7U3S> 3FN 7ROOS6-*JCC* B 6 KP7OWD7COT2 [O2 WD3VGI3T?I+NCS3F?R7MR 7ECM3OGR+RCY3MGEN7S"J7C*JB .1V82 /K*=7NK7K*JB * B 2 ?D. B220& *
21K7K*JB * B 2 /J"=60*JB * B 2 GC+LCL7DSA+A" 3MR,")*M* B * B +DCO.1B9. 7J216,*MBJ* B 6 " 7BKA*(	J2=KX+AR+J.)3D*(")*M* B * B 3D*(2)R=*(	J*-TJ6)*JB .1B9* B/J6)3B*(2)R+*(	J*MBJ* B 2 R /OJ *0B0/JF=",7M*JB * B 2 ?D. B220. *=21J*M* B * B /J7K+J/K"1*M. J *0B03R*
/K6)3R*(+K.)3D*(2)R**(	K2MNJ2MNJ* B 2 N 3AOL3UGL+TCE3MGEN7S"J7C*JB .2V02 /J"=60*JB * B 2 ?D. F220* *=21M*M* B * B 3XGB3R*(6)"=7BKA*(	J2/;F2MNJ2MNJ* B 2 F 7DWJ+SCT3S7U3S> 3FN 7ROO7SB-3RSO7USC3S> 3FR 3E	V3A	T7OON2MNJ* B 2 Z 3R7O2 WT3M?P7RKA3Y6 3E;AS*MC*M* B
* B +DCO.2B1. 7K21*,*MBJ* B 2 * 3K*=/KF+*MBJ. F260J 2(/J6)J=2(/J2)J-*(	J**B+K>)F7N"J7C*JCC* B 2 GC7LWC7LSA3EN 7OKR3EGL3T?I3NN 3O[E3FOI3I;ET7S"J7C*JB * B 2 /J"=60*JB * B 2 ?D. J220* *=21M*M* B * B /J7K+J/KJ*M. J *2B03SST*(	J6=N 7QSR2(F +BS3R*(+K&)")*M* B *
B +DCO.2B3. 7J216,*MBJ* B 2 R /OJ *3B03K*=",7M*JB * B 2 /J*=/J*(+K3K.-.)J/*MBJ* B 2 2 *=+M*(7J*1.)K*M* B * B +RX/L6)3R*(K6)*JB * B . 7L+M"*/KF-2)*+*MBJ* B 6 J 3X2(6)J=2(/J")*M* B * B +IF3SST*(	J6*SS3D.(*)B).2V2.,J *222. J2"5*M. J *2B23R*(/K6).0B.*MBJ* B 2
^ 7OR /OJ "360*JB .2V2* R+J	K*=R+J	K6/N(+TD+J*)3SST*(	K")*M. J *3B03C;O3T;IU7E"J7C*JCC* B 2 GC7LWC7LSA7EN 3T;A7DKA3DR 3E	V3A	T7OON2MNJ*MBJ* B 2 Z 7NN=7QSR2(;F*-:1"06)*JB * B 2 ?D. R220* *=21M*M. J *4B03SST*(	J6=SS3D*(2)Z/N*MC*M+CB * B 7CCO7YR +HCE3DGI3G;O
ACL+OCF3TWH2 GM3T	R3X> 7FN 7UOM2 [O6 KC7OOS6-KP7OWD7COT2 [O2MNJ* B 2 R 3E	V3A	T7OON6 KF+OCM3MGE+N;S2MNJ*MBJ* B 2 2 2=6-*MBJ* B 2 R /OJ *5B0/IF=",7M*JB * B . 7L3L6+"+61*JB .2B5* B/I6)+RXL6)*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"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"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"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