File CANOR.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 GC7NKO2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT2 T3EN 3A?N3NOI+ACL7CKO3R3E3A	T7OON2 WB3TWW+ECN3T?W2 WS+TCSO
F*JCC* B * B * B 2 GV3RGI3BWL+SB.2 GC7NKO6 OI2 ?N3RGM7L	L6 KP3EWC3DSE6 	B* CA3C3A7LR 7ON 7UKB+O7U2MNJ* B * B * B 6 R 3IWN2 ?C3RWR".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3C;A+OCR*(3N+M3P+M3Q+R3R3R?O+T3S3WGL3MN,7AKN2,C7IGS2,SN3FN,3O[ER6,*JCC* B * 
 * B * B * B * B * B 2 ?C3E3F*,	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 : * B * 6 6 WN3MWB3R> 3F> 3BWS3RGV3T?IN7S*JCC* B * B * B 6 CM* B * B-3N7U7BKE2 [O2 WL+FCT3H;A7DZ 3A	R3A3BE7S*JCC* B * B * B 6 GM* B * B-3N7U7BKE2 [O2 	R
GSH2 GH+NCD7VKA3IKA7LOE2MNJ* B * B * B 6 J +RB * 6 2 ;I7PSU2 GM3T	R+X" 3O3N7YV 3PWP7RR 3RGI7NWG7LKA2 ?P3R	T+OCN+OCF3TWH2MNJ* B * B * B * B * B * B 6 	S3MWM3T	R3C6 7AKT+ICX+OCF7M" * 3M2 W3EWR* CM2=6 +P. 6 GM")*M+CB * B * B * B * B * B 2 N 7OSN3A;I3I
N2 ?C3RWR7LSA3I;O2 ?C3E[F3I	C7ESN+SB.6 N(7TKO3AWG2 ?MD7E*JCC* B * B * B * B * B * B +OCF"16)*JCC* B * B * B 2 ?R7OOT* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH+MCQ3C;O3T	A3N;I3GV 3IWG3NGV3LWUS*M+CB * B * B * B * B * B 2 N 7OCM3UWT3D& 7NR +HCE3N?R+OCT3SKU7RWO3T;IE6.*JCC* B * B * B 2 3W+ACM* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH+MCQ3C;O3T	A3N;I3G2 3AKM+D;A2MNJ* B * B * B 2 N 7AKN* 6 6 WO7TWP7TZ 7ESC+OCR+OCF3L;E3GT6 GM2 ?C3NGT3I	N+NCG3C;A3O	N3C3A2MNJ* B * B * B * B * B * B 2 ?C3RWR7LSA3I;OS6.*JCC* B * B * B 2 C7IGS* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH+MCQ3C;O3T	A3N;I7GR H7E*JCC* B * B * B * B * B * B 3V3A7UOE2 [O2 C7IN-3QGU7ROE".*M+CB * B * B * B 3N[D* B 2-> 7UCT+UCT3VOE7TKO2 [O2 WL7NSG3H6 3QN 7OSN3A;I3I
N2 T3ER 7EKG7EOE2MNJ* B * B * B * B * B * B 2 [O6 KF3ESE+OCM7AOS3O	C3AWT7D^ 3IT2 C7IN-3QGU7ROE".*M+CB * B * B * B 3CWO+FCR2-> 7UCT+UCT7MSA7RI2 6(7Q" 6 GM2)N 7OSN3A;I3I
N6 GM2 WS+TCSO7F*JCC* B * B * B * B * B * B 3R
I+HCT3H;A3DN 3O[E3FOI3I;E+TCS3C3O3U;M7WOIE6.*JCC* B * B * B 2 ?C3E3F* B-7OSU7PSU2 GM3T	R+X" +MCP3X6 +QB)3C;O3T	A3N;I3G6 7QN 7EOT2 [O2MNJ* B * B * B * B * B * B 2 WL+FCT3H;A3DN 3O[E3FOI3I;E+TCS3C3O3U;M7WOIE6.*JCC* B * B * B * CR* B * B-7WKO3K6 7AKT+ICX*(CM
X6 ")*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 WN3MWB3R> 3F2 7ESF2 GH+NCD7VKA3IKA7LOE2 6(+PB)3S?H3USL2 WB6 KG7ESAE7R*JCC* B * B * B 2 T+ACN+OCR7EWQ+ACL+TCO3TWH6 WN3MWB3R> 7FJ 3IG3T" 3ASN2 GV3RGI3BWL+S" +M	Q".*M+CB * B * B * B 3TWH2 GV3LWU3S> 3FN 3
?N3NOI+ACL7CKO3R3E3A	T+O3N2 GL3MSB+AB,3C	H6-GS7UKAE6,*JCC* B * B * B 2 WD3GWR+ECS+OCF3FWR3E?D+MB,3ASN2 GC3N;O3IGC3LN 3O[E3FOI3I;E+TCS3AWR2 ?C7MWP3TSE2MNJ* B * B * B 2 > 7N	L2 ?F7RR 7HOO3EV 3IWG3NGV3LWU3S& 7NJ 7OSO7S^ 3HOI3HF +RCE3GWR3AWT7RR 3H;A2MNJ* B * 
 * B 6 * 3E?R".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 6 7I[N2MNJ* B * B * B 2 : 3R?O+TB 2(W3IC2,& 7NR 3U;R2,N 3A3L7SR +HCE3SKU7RWO3T;I3EV 3IWG+N&.2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 WR7FKE2 ?
* ;W* ;W2 ?C3OWL3YF +NCD+PB.+RB.3LO7NOE*,^ 3M3U7T[I3A	R3AWT6 KPO6-*JCC* B * B * B 2 WC7DKU+ECS7FKO2 T3EJ 3EGH3V?I3R3A2 OS3I;E7COE*	B,3JO7N^ 3IWL3YF +NCD3S;OS6,*JCC* B * B * B . &1*6222 C7ASP+ECR"36."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*
:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EN 3A?N+R" 3N6,3P6,7QJ,7RJ,7OSO7S^,3L7A2,GC+N3R3C	H+S3Q3N[D2,?C7EKF",*M* B . F * B * B * B * B * B * B 3CWO+F3LR6)*JB * B 2 	D3M;E3S?I7NJ /RF(6)J,7OSO/SF(6)^,3L7A*(&12,GC+NR*12)3C	H+SQ*
2)3N[D*(&12,?C7EKF*(&1",*M* B . F * B * B * B 2 ?C3E3F*(&1*,R"16)"J7C*JCC* B * B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B +ICF3AR 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7SJ 7OSU3IWN6 OI2 WD7SK
+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+OCN+R3R3R?O+T3S3WGL3MN,7AKN2,C7IGS2,?C7EKF2,?C3E3F*,3R7DSE6,WSM*MC*M+CB * B * B 3TWH* CC7MOU3TF 3L?S2 WB2 WR7M[O+ECD3F?R3MR 3OKU+LCE3PWR7COI3I;O6 SS3AWT3M;ET7S*JCC* B * B 6 CA3PGE3R;I3G& 3N> 3TWH7RJ 7OSU3IWN7SV 3SSE2 ;
2 ?C7NWJ7NSC3I;O2 	W+TCH3T	HS*M+CB * B * B 7RWO3T;IE6."J7C*JCC* B * B 2 T3ER 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7SN 7UKB7OSU3IWN6 WM+SCT7AOLO*M+CB * B * B 3C;O3T	A3NR 3OKU+LCE3PWR7COI3I;O2 ?F7RKT+ACN3F;U3C	T7OON*.B 7SKQ3T& 7NN 7TSA3EWMN7T*JCC* B * B 
 Z1256 7USS2 WB2 C3A
N+ECD+TCO7DGS+R;T2 F 3L
O2 ;I6 SS3AWT3M;E/TF *7B57MOU3TJ E*M+CB * B * B 3CGH3NWG7DR 3OR 3L
O".*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 B 7ASR3I	T+OCN7ISN3EOR7OKR3EGL3T?I+NCS3A?M+NCG3L[E3T" 3ASN2 GV3RGI3BWL+SB,7BSE3WWEN*M+CB * B 3L[E3TF +NCD3R
I+HCT3H;A7DZ 3A	R3A3B+E3S2 ;A3DF 3M;O7GJ 3IG3T" 3ASN2 GV3RGI3BWLS6."J7C*JB * B . 7M+M/PM7Q*JB * B . GN"=60*JB * B 2 ?D. B125& *=21M*M* B * B +DCO.1V0. 7J216,*MBJ* B 2 & 3F&(*-	J. B1*2B,.1N0.,F "063*JB .1J0. 7L+I"+3J***-	J"/62*JB * B 2 ?G2 ?T. B1"4*M. F *0
33L*=2+&(**7I+I>)"2*M. F *0B4/N61+N.1"1*M. F *0B53R:(.16)+RRL6)*JB * B . 7LM7P*JB * B 2 ?D. B128* *=22M7P*JB * B . GN*=+M*(7J"16)*JB * B 2 ?D. B128& *=21M7P*JB * B . 7L/LF+*MBJ* B 2 : 21:=.1F+*MBJ. B168J *(	L*=R+N&1*MBJ* B 2 : 226=/PF+*MBJ* B 2 2 "=60*JB 
 B 2 ?D. F120* .=KN",7M*JB * B . GN*=+M*(7J"16)*JB * B 2 ?D. F120& *=21M7P*JB * B . 7L/LF+*MBJ* B 2 : 21:=.1F+*MBJ. F120N 3O[E3L2(6)J=.(GN")*M* B * B /LB=*MBJ* B 2 R /OF *2B03J:=226,*MBJ* B 2 : 216=2**(*-&16+CM*MBJ* B 2 R /OF *2B03I:=226,*MBJ* B 2 2 *=/L"
*M* B * B /N61+N.1"1*M. F *2B03CWO+FR/L6)3R:("16)"J7C*JCC* B 2 ?S3LWV2 T3EN 3A?N3NOI+ACL7EWQ3A	TO7N"J7C*JB * B . 7L+M+P+M/P"1*M* B * B 3K2=6+CM*MBJ* B 2 N 3A3L2 	M+NCV*(3R+M3P7DSE*,R+L2)3R.(")6)"J7C*JCC* B * B 2 GC7LWC7LSA7ER * B=7I[N7EOR3E> 7FJ *1B16*J "
62"J7C*JB * B 2 ?D. R120& *=21M7P*JB * B . KN"=60*JB * B 2 ?D. N120* *=21M7Q*JB * B . GN*=7IM7P*JB * B 2 ?R7OOT*(	J*=:0"0*M* B * B +DCO.1B3. 7K216,P*M* B * B /N61+N.1M7P*JB * B . KN.=KN"+61*JB .1B32 ?R7OOT*(	J2=?R7OOT*(	J*+R+N&12*?C3E3F.(KN")*M* B * B 3L&
6-CM*MBJ* B 2 R /OF *4B0/JF=6,GM*MBJ* B 2 2 *=/LM7P*JB .1B4* R/L6)3R?O+TSJ6)"J7C*JCC* B * B 2 GC7LWC7LSA3EF * B=/RF2* B*T*MC*M* B * B 3L6=3P6*Q*M* B * B /N63/LF+*MBJ* B 2 R /OF *6B0/JF=6,GM*MBJ* B 2 : .1B=*MBJ* B 2 R /OF *6B0/IF=6,GM*MBJ* B 2 : 226=+P"*/J
-")*M* B * B 3S7U*=:0"0*M* B * B +DCO.1B5. 7K216,P*M* B * B /N61+N.1"1*M* B * B /N62+N.2"1*M. F *5B03S7U6=WS3MN+3O[E3L:(*1*)3R:("26)*JB * B . 7L/LF+*MBJ. Z160J *(	L6=WSM*MC*M+CB * B * B 3C3A3C3U3AWT2 	E3G;E3V3A7UOE2 	W+TCH7AOS3O	C3AWT3DV 3IWG3NWV3C?T+RCS+
CF3TWH2MNJ* B * B 2 & 3NWV3RWS2 [O. KR*2* " 7A"J7C*JB * B . 7L/LF+*MBJ* B 2 N 3A3L6 KN7OSO2 6(7QJ,.(ON2)N,3O[E7RJ,7OSO7SJ,*(	L")*MC*M+CB * B 7FKO2 GE+CCH3V3A+UCE+OCF/I6 * 21* 22* :.*.B,+M3Q2 GC7LWC7LSA7ER +HCE3F3O7L
O3I
N2MNJ* B 6 N 7TSA7ISS7IOC2MNJ*MBJ* B 2 R /OJ *1B0/IF=6,GM2MNJ2MNJ* B * B 6 R 7ESS2 W3ET+ECR3E
I7E[N7AWL3E& 3S^ 3RGE7TKE2 T+ACN7ZKEO*MC*M* B * B +IF3R?O+TS+I&). J2*0B,.2B2.,F "665"J7C*JCC* B * B 2 GC3N;O3IGC3LN 7OKR3EGL3T?IN*MC*M. F *6B53C;A3R&(*)B=7SKQ7TJ(7OSO3S&(")6)"J7C*JCC* B * B 2 C7IN-3QGUR7E"J7C*JB * B 2 3W+AM/I6).1B.*MBJ* B 2 R /OF *7B03J&=
,GM*MBJ. ^160^ 3L7A*(	I2=3W+AM+I*)*(:160J-7OSO3S*(")6)*JB * B 2 ;F"=7N*JB * B 2 7F3P6=P*M* B * B 7FGM6=GM*MBJ. ^125N 7HOI3Q&(*)6=2(;F*-:0*5"*7FCM2+7F/QF+*.&02)F*3L
O2(3W+AM+I&)2MNJ2MNJ* B * B 2 R 7EKG7EOE2 [O6 KF3ESE+OCM7FKO2 C7IN-3QGUR7E"J7C*JB * B . GN*=7I"1*M* B * B 3N[D*(	I2=6(3P:-*1*)6(GM.-GN")*MC*M+CB * B * B 7IR-7HN +ECT+OCF3R
I+HCT3H;A3DN 3O[E3FOI3I;ET7S"J7C*JB * B . GN6=GM2*&(*-&1*MBJ* B 2 : 226=+Q"*/IF-2)2+"-61*JB * B 2 ?D. "120* *=21M7Q*JB * B . GN.=GN"+61*JB * B . KN.=KN"+61*JB .1B82 ?C7EKF.(GN6)J=.(KN")*MC*M+CB * B * B 7IR-7HN +ECT+OCF3L[E3T" 3ASN2 ?C3E[F3I	C7ESNS*MC*M* B
* B +DCO.2B0. 7J216,P*M* B * B /N613J6-P*M* B * B /N62+M+Q*(7I"16)*JB * B . 7K+M+P*(7I*1.)J*M* B * B 3CWO+FL/K6).0B.*MBJ* B 2 R /OF *9B0/J7J216,Q*M* B * B /N61+N.1M7P*JB * B . KN.=KN"+61*JB .1B92 ?C3E3F*(	K2=?C3E3F*(	K*+R+N&12*?C7EKF.(KN")*M. J *0B03CWO+F
/K6)3CWO+FL+K>)3C;A3R&(")*M. J *1B03C;O3T;IU7E*JB .2B22 WR7TKUN*M* B * B 3ESN&M*J"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