File EXTERN.FT (FORTRAN source file)

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

C*M3C6I3A;I6 KP+OCG7ESX3E;R6.SF2MNJ2MNJ2 T+ICS3P?R3GGR3M& 7NWP/TZ */>5*7B83S7U7MKA3Y> 7FB 3TR 3AGT2 N *.;R2MNJ2MNJ7ABI3R
O3R7A6 CU7DSA+EB 3J;A./B86 R A7M"J7C2J&I3NWT7GKE6 KA+R"2.5B5*,&26,KA/RJ2.(B5.,J16)N,3CSO+E213S?C/DKE2,SE3CGLS6,*JB * B 6*BI3CSO3E6,7GSM*(&22,
A/EZ(*,&76,KD+UG.3N,2)R,3R
U.2&(*,&3",*M* B * * 2IGI3RGE.(B16)R,3I3T/E"(*02)3I	D+AG*52)3P?C3DGE.(B1")*M2I?C3M?M3NF /RKR2,	T3TWL6,KA/RJ22,GI3RGE2,?K7USN2,OT3O;U3T&,7CWO+N3T3T?K7USN"M&J7DSA3A& 7F[I/EV/"/*M2IGD+TCA3IWZ3R2,7ZKE2,KI+L?K*0^,.0B0*02	*	^ "/*M2IWR3W;I/D" "M&J7R
E3ISN" 69"J&17R
E3ISN" 67"J7C*JCC*B72-& 7NWP3TR 3AGT. "* B-7SWT3D;E3T: +U;M* N *96 2 ?C+I?T7CCOT*MC*M6IKW3IWT*(24.9&9"96).J&9"9&97FKO7MSA*(B	7TSI+LCE6(CU2 ?T. B82 C7AOR*.^)")*M2IWR+AD.4F,*1&02(	T3TWL*(	I.,7I.1","06)6J^I7RSI/ER(.,B6"06).JB620ZI3O7R+AT2	& 3SN 7OCM7LSE7EJ +
CN7DOE3IWR+D" *0B)+OCR3S7U7MKA+Y" .1>)"	6)6JJI3ESA*(24.6F02)& 7AON2MNJ+AB 2 [I3L
A*=B3+ICS3S7U7MKA3Y> 3RV +NCD+OCF3AN 7OCM7LSE7EJ U7N2J&I3FGL/GF="M&J+IF3I;A3SV./QF.2)& 3FGL/GN=.MZJ"0&17FKO7MSA.(OI")*MC*M+CCA2 F /RKR*26 6 KA7R	A2 ?F7RR +HCE7CCO3TN 3OWD2 ;A7A	L7SOI.MJJ2I?D. B1. 7J.1V,"0*M2I?D. B12 +J*=21"162.JB16IKA/RJ2*(3J+J	J"=60"J7C2
GC* B 7AKR*26 2 ?C+ICT3CSO7ER 3A3L3YZ +OCR3P	R7MKA3YF +NCD3SOE3OSN7A	R6 E7PKE3I;E7COE.MFJ"6&0+DCO.1F6. 7J.1V,"5602JRI/OF *6B1/KF=",62.JZ121FI/RKR*(3J/K6)"0*M2I?D. Z123* *=21"6*M2I?D. Z123. *=21"7*M.1N62I
A3E*(*,	K"=602JRI/OF *6B4/JF=",692JRI/OF *6B4/KF=",63.JZ124RI3R
U22*(*,	K"=602JRI/OF *6B6/JF=.,B1.MFJ"6&67IKA+EA/J6)"0*M+CCA2 . 3O;U+T6 2 ?T3T3A* B+OCF3DGI3G?N7SOI2MNJ+AB 2 OI3O;U+T6 2 ?T3T3A2 [O2 WS3C;O7DKA3YV 3XWP3RWI3NWCS*M+CCA6 R 7CWO+NCT6-R 3OGT3L: 3UKM+ECR+OCF7PSA3I;ET7S2JGC* B 3T?K7USN* B-3N7U7BKE2 [O6 KP3IGM+R
Y7ECX3E	R3EONE7S"J7C2J.I3O;U/TB="M&J3I?C7USN"=606JRI7CWO/N7T"0*M2I/T3O;U/TB="M&J3J3F/A7G"0*M2I[I2([I3L
A6.GE*.&33J3F/A7G"1*M2I[I2([I3L
A6.GE*.&37GSO/OF "065.J"12IGC+LCL3C/H3E[O2(?EF6)*JB 2IWR+AD.8F,*0&13S?C/DGE.MFJ"0&17FKO7MSA.(SI")*M.1J02I?F3RGM/TJ(3X&,"46)6J^I7RSI/ER(.,B1*2B)3S?C/DGE"M&J+DCO*1B9/JF=.,B1.MFJ69BI3CSO+EA/J6)"0*M2I[I2(?E3F:./EB.2)[I3L
A"=63.JB165JI3E	W+NCD"7*M2IWR+AD.7F,*1&02(	T3TWL*(	I.,7I.1","06).JF120ZI3O7R+AT28F0"16)"J7C2JGC* B 3I3F+ACG*=B17ICM3LWI3S& 3N	D+VB.3B/R3D;W2;& 3FGL/GN=2 7I3P	L+ECS3S7U7MKAY*MC*M6ICJ"=602J*I/P7P"1*M6ICI"=602JGC* B 7ICP* B-3TWH6 KP7ASC3IWC6 	TP7E"J7C2J&I/P7
"1*M"2&03C3A3LN 3HWK+OF3E[O")*M+CCA6 N 3CSO/E627SWT3D;E3T& /D. 2 OP3OWD6=KP3EWC3P?T3R& /D. 2 GI6=KP7ASC3IWC6 	TP7E2JGC* B 3P;T/U7M7PSA3I;E+TN * B;3EOD7LOA2=SE+UCC3CGL+SCS* B;3I	D+AG/X6)7CCO3T& 2,	I2MNJ+AB 2 SI3I
A*(	X2=?C+ICT3I&,3I&,I7I*JB 2IWR+AD.7F,*2&03S?C/DKE2,OP3OWD2,GI6,SP3N7U2,SE3CGL3S&,3DGI/GF(")6,*JB * B 2*&I3DGI/GJ(2)&,3AWG6,OI+E3X3IGR+C3E3I?T3N&,3FWI+L3D3I	B+O",3I	D+AG+I2)*MBJ* B " &*/IN=*,&52,
M+MT*12)7DWR/GF(*,&16,KD+UG.1J,2)R,3R
U*(22*12)*MBJ* B " &*7DWR/GJ(*,&26,KD+UG.3F,2)R,3R
U*(23"26)2J&I3FV(+O;F+N;E20F.+N;D3J3F+A;G+E;Q20^)3O?T" 622J&I3FV(+O;F+N;E20^)3O?T. Z9"M&J+IF+I;A+E;Q3I	F+V	E+GCO+TCO"260"J	C3W	R+TE.3&,*1&12 OS3OWD"2*M.9F12I?F3RGM/TJ(3X&,"46)2J&I3F&(3FGL3GV./QN.2)?G+TCO"3612J&I7FN(3CSO+E623S?C/DGE.)B2.,F2.1J,"0*M.2F16ICJ
=CJ"+612J*I3FGL/GF=2MNJ6IKW3IWT*(24.1F06)N 3CSOE622J&I3F*(3PV./QF.2)OP3OWD/AF(6)B=3CSOE*M2I[I2(OP3OWD3A*(+P	P2-OP3OWD.)F2.,N2.,F2.MFJ"2&07FKO7MSA6("1.,SI.,OI.,GI.,[I.,GI6,"12,&223&,.2V,+I21*33X.3OI2,&7"16)"J7C.JF26ICJ3P*=+P/P"1*M2I[I6(CJ3P^./TF.20*)/P7P"1
06JBI3CSO+EA7JCP6)B=3CSOE*M2I?G+TCO"263.JN26ICI6=CI"+612J&I3F&(3PV./QF.2)GI3RGE*(&12=GI"M&J+IF7IKA+EA7ICP2)&-/AJ)*225*320.2V2.MJJ"2&57ICP6=CI/PF+"M&J+IF7ICP6.SG..B16)CI/PF="0*M2IGI3RGE6(CI/P6)I7A2J^I3O?T. B32MNJ3P
AE*M.LB32I?C3N	T3NWU2MNJ" *M7CR 7CWO+NCT6-B 3R7I7A	R6 E7PKE3I;E7COE2MNJ2 OI3O;U+T6 2 WS3C;O7DKA3YV 3XWP3RWI3NWCS*M"3&1+IF3EOD7LOA6.GE*.&13T?C7USN2=OT3O;U/TF+"M&J+IF3EOD7LOA2.WN*.&13I?C7USN2=OI3O;U/TF+2MNJ+AB 2 [I2 SE3CGL3S& 3S: +OCT21> /RJ 2 C3A/L6 SI6 CU
 OA* CA3SOE3OSN7A	R6 E7PKE3I;EC7E2J&I3FV(3D3C+A;S+N;E21V)3D3C/A7S"2*M2I?D. R32 	K*=21"2*M2I[I2(SI3I
A2(	K2)V./QV.*0&23EOD7LOA"=622J&I3F&(3DGI3G.(+I:)+E;Q.5N02)SE3CGL/SJ="M&J+DCO*3B3/K62.5Z0.,B5"8*M"3&3+IF3I	D+AG+K	I6.GE..KK2)SE3CGL/SJ=.MNJ24NI7OSN7IWNE*M+CCA2 & 7NKC3EWM+NCT3N7U7BKE2 [O2 GP3TWI7NOT2 WSE7N6JRI7KWO/N7T3T?K7USN"+612JRI/O^ 27& *=21"5*M2I[I2(
I3I
A*(	I2.WL*.:0+O;R3I	D+AG+I:)+G;T.5B52)^ 3O?T. ^7"M&J+IF3I2./TN.2)^ 3O?T. V7"M&J+IF3I	D+AG+I:)+G;T.5B02)?G2 ?T. ^72MNJ+AB 2 ;I3CWR3M;E7TR +HCE3N7U7BKE2 [O2 ?C+ICT3SWEN*M2I?K7USN2=?K7USN"+61.JV72I[I*(;I+L;T23F.+N;D3I	D+AG+I:)+L;T.5F02)?G2 ?T. ^7"M&J7AKR22&(
DGI3G&(2)V,3D3C+A	S6=KA+R"23I	D+AG+I2)3EOD7LOA.)F+.M^J27NI7OSN7IWNE*M2I[I2(GI+G;E+L;E26&)3OWN"=612J&I3F&(3AWG6.SG*.:63ASN2.GI+G;E+L;E*1&73I;O/EJ="M&J+IF3I
A3E^./TF.27F.+N;D3I
A3E2./EN.20&)3OWN"=632J&I3F&(3AWG6.SG..B32.;A3D&.3AWG2.WL..B42)?I/N7E"4*M2I[I2(GI+G;E+G;T*4:03ASN2.GI+G;E+L;E*6&03I;O/EV="M&J+IF3I
A3E^./TZ.20&)3OWN"=66"J7C2J&I3F&(7SE6.GE*.&17I
T/OF="M&J+IF3IWS3X:./EF.6)SI/W7O"2*M2I
A3E&(3OWN6,SI+W	O2=
A3E&(3OWN6,SI+W	O"+612JFI+GE3I;O/EN,2)F=+GE3I;O/EN,.)F+"M&J+IF3I?T3NV./QF.2)
A3E&(3OWN*,&42=
A3E&(3OWN*,&4"+612J&I3F&(3FWI+L;D+E;Q21F)+GE3I;O/EV,2)F=+GE3I;O/EV,.)F+"M&J+IF3I	B3OV./QF.2)
A3E&(3OWN*,&62=
A3E&(3OWN*,&6"+61*JCC* B * B 3P?R3CWE7DKU3ER/3R
U2 ;A7A	L7SOI2 ?F3RN 7OSP2 WS3C	TO7N2JRI/O^ 29. /RF=",622J&I3F&(3DGI3G.(+R:)+L;E.5B06.KO2.SI3I
A6(KK2)^./TV.*5&07GSO/O^ "9*M2I[I2(SI3I
A6(KK2)^./TV.*0&03I	D+AG+K	R2=SI3I
A6(KK.)V-"0602J&I3F&(3T;O6.GE*.:13ASN2.SI3I
A6(KK2):./EB.")*M* B * * *IB 6 KA/RJ22(SI3I
A6(KK.)F,.06)7AKR*2"23I	D+AG+K	R.,B1.)F+"M&J+IF3I	B3OV./QF.2.;A3D&.3DGI3G.(+R:)+N;E"06)*JB * B **BI2 F /RKR22&(3DGI3G.(+R2)*1&16=KA/RJ22(SI3I
A6(KK.)F,*1.)"1*M2I[I2([I3I3E3DV./QF.2.;A3D&.3DGI3G.(+R:)+N;E"06)*JB * B **BI2 F /RKR22&(3DGI3G.(+R2)*1&26=KA/RJ22(SI3I
A6(KK.)F,*2.)"1*M2I?D. &72 /J/RF=",632J&I3FR(3R
U2(/J/RF,2):./EB.2.;A3D&.3DGI3G.(+R:)+N;E20F.+N;D*MBJ* B " &*7DWR3G*(+K3R*1:)+L;E"86)*JB * B **BI2 F /RKR22&(3DGI3G.(+R2)7DWR3G*(+K3R*1&)"=*M* B * * *IB * B * B 2 F /RKR22&(3DGI3G.(+R2)7DWR3G*(+K3R*1&)"+61.J&72I?C3N	T3NWU2MNJ"M&J+DCO*8B0/JF=",632J&I3FR(3R
U*(3J*1:)+E;Q21>.3RR.3R
U*(3J*1:)+E;Q23^)3O?T. N82MNJ2 R 3R
U*(3J*1:.6.KO*.:.*3B)3AWR6 	M+DB.+OCR3COY7LCO".*M"8&03C;O3T;IU7E2J^I3O?T. V8.M"J23FI+GE3I;O/E^,2)F=+GE3I;O/E^,.)F+.M"J25RI/O& 20* *=21"3*M2I[I6(KD+UG/JF,2)V./QB.2)?G+TCO"9602J&I3FR(3R
U*(3J*2:)+G;T23>.3RR.3R
U*(3J*2:)+L;T21R)3R
U*(3J.26)"1*M6IKD/UKG6(KD+UG/JF,2)R,3R
U*(3J*2&)6=KD/UKG6(KD+UG/JF,2)R,3R
U*(3J*2&)"+61.JB92I?C3N	T3NWU"M&J7GSO/OJ "0*M"9&5+IF3I3F+A;G+E;Q21^)3O?T. Z92MNJ6IKW3IWT*(26.9B56)N 3CSOE61.JV920ZI3O7R+AT*	^ .,SA")*M2I?G+TCO.1B6.M&J26NI3A3L6 WO7TWP7TN(3CSO+E213I3F+A3G3P?C3DGE2,
A3ER,3R
U"26)2J&I3F&(3FGL3G:./EN.2)?G+TCO"2*M6ISSO7P2JVIN7D&J*L

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