File TIP.FT (FORTRAN source file)

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

7CB 3R
O3R7A7MR 7IOPC7H*JCC7TCI2-?K3NGT+KCT6:* 3AE3L;U7GZ +OCN3SC3AWU3R;E3TGL3D;U3G;E2MNJ2MNJ2IWR7GOI7TKE* >1*1B1.:V .3Z2* CB6 SS7ASR6/SSO7P"J	C.IF ./B1* B:* B 6"NI7LCO3EF 2MNJ*IBI.1&/. * *IB " &"3M3U7TCI3LWI/RF 2MNJ*IBI.1"/. * *IB " &"7ROEE7T"J	C.IF */B7* B:* B
*"B 6 J 3E?M+TCE3MSOE*MC*MC&I* >4*1B16:B 7ZJ-3EGL+ICS2(?P7LKA3IGT+ECT20F=7BWW+R	F2MNJ*IBI.4F/.0* 2 
H2-WR3L	A+S" 7TCI2-WB3TWA3T
I3U
N")*MC&I* >4*9B 2:2 7ACM3EV +I7N7AOU2MNJ*IBI.4"/. * 2 GL3MWP2 	T7P^-3EC3S3E2MNJ2MNJ2IGD3T;E* B * >0*1:1..B.*/B8.:V .3Z2* CB2 ?CL61"J	C.IB */:7*.:..0R/" &:*"B * B 3C3O"2*MC&I* >1*1:1..F.*/B8*:B * B"* B 2 ?CL63"J	C.IF */:7*.:..1R/* B:* J * B 2 N /OSL2MNJ*IB
.2F/*1:.*.>2.8* * B *"B * B 3C3O"5*MC&I* >2*7:...J.*/B4*:B * B"* B 2 ?CL66"J	C.IN ./F1*.:..3"/* B:* J * B 2 N /O
L2MNJ*IBI.3^/*.:.*.>3.4* * B *"B * B 3C3O"9*MC*MC&I* >4*1B16:N 3CGH3LWT3RV +I7N7AOU2MNJ*IBI.4F/.0* 2 GT3SWT2 	T7P^-3EC3S3E2MNJ2MNJ2 ;A3F;A7GOS3T3E3L;U+GB 2 R 3U3A2IRI3E	Z3M3A2MNJ2IWR7GOI7TKE* B1.:B *1B0.0F1. B1.0B *1B1* B .1V2"1*MC&I* B2.:B *0B1.0F1. F1.1
 *1B1* B . Z7"7*MC&I* B3.:B *1B1.0F1. F1.1F *1B1* B .1&7"1*MC&I* B4.:B *0B0.1B0. B0.0B *0B0* B . V2"6*MC&I* B5.:B *1B0.1B0. B0.0B *0B0* B .1"2"0*MC&I* B6.:B *0B1.1B0. B0.0F *0B0* B . ^7"2*M3CZ 7OSR3R;A2 	I* B/7OSP3I;O2 >(H6)*JCC+SCR2:& 7NSI6.SF* B/7OSU6.S
* B/7DSA6.SF* B/3I	B7TN.+B> 2 OT3DZ.T*M3CN /H* 2 7R7PN.V*M6IKW3IWT*(21.1B0")*M.1B02I?F3RGM+T^(7TCI2-?K3NGT+KCT6:N 3CGH7UKE7ESN3LSA3U
N+ECN3ZWA3HWL+N>	*4"0*	^-")6).JB12IWR+AD.1F,*0&6+I3RI7W.JB126ZI3O7R+AT*	B 2 	W3E	V+ECL3R3E7AOI* B?*:^ +I>32		W3E	VE7L.JFI2 WM7SWS3NWG/N> * B:.	SI")*M2IWR+AD.1F,*0&8+A3G+A3F.MFJ"0&87FKO7MSA*(B	* B * B 2 F 3U
S3AWB2-WG3RWA7TV +NCD7DSA+ECI*:^ +A^22/F	"66)6J^I7RSI/EF(.,B1222)7EKE"M&J3RGE/DF(.,V1202)7ISS.MFJ"5&07FKO7MSA2(6	7EOS7WKE+TCE7DWR3CWK/N> 2 *(/AF=2,WN/I7N*0B)*:^ +I&1"M&J/I7N"0*M2I7I/MB="M&J/I	Z"=60*JCC+ICN3A[N3A
N7SSS3E3L3U
N2 WS3TWZN*M21&I.160.1V2"1*M.IKI.0B=.7^6"M&J/IB3.=^1"9612J&I.460.0V2"6*M.IWI.0F=.2B8"M&J/IB6.=^0"7622J&I21&="1602J&I22&="2602J&I23&="3602J&I24&="4602J&I25&="5602J&I26&="6602JNI3A3L2 ;I+IT/IB1.,KI20&,*320/IB4.,WI20&,*6&0.MJJ2IGC+LCL7DSA2(;I")*M2ISI2=KI+IT+
3N*1&1"M&J+IF+I	D.2J,",63*JCC3NOA/HF * CS3E;I6-WA7SN-3CGH3LWT3R: 3OC2 	E3NGM7LR 7ESSE7N"J&3+DCO27& *=21"560"J	S7JOM6 OM"166"J&73C;O3T;IU7E2JNI3A3L2 ;I+IT/IB1.,KI20&,*320+I24/IB5.,[I"06)2JNI3A3L2 GD3T&(N6)2J&I3D&=7BSI2(;I.,F1")*M2I[I2(SI*)21.1",2MNJ2 ;A3Z	
+GCE2:6 7EOS3U
N2 GL3E[UT*M28NI3A3L2 WS+TB+I24"96)2JNI3A3L6 WO3T&(.4F,")*M2IGC+LCL7OCO+EN+A3G+A	F"M&J3W	R+TE.4F,*0&5+I3RI7W.JB125ZI3O7R+AT+A&2"M&J+DCO*5B0/MF=6,KI"M&J+IF7LOI/TR).8R,.8R,"7*M"4&73W	R+TE.1F,*1&03M2,7EKE",*M.1B12I?F3RGM+T^(3R3E7AOI* ^+I^3* B:2 &	"06)2J&I/M7
"3*M"4&8+DCO*4B0/NF=6,
I"M&J+DCO*2B2/I7J.1J,"860"J	S7JOM6 OM"166.JJ22I?C3N	T3NWU2MNJ2 ?P7LKA3IGT+ECT7A+NU7G"J&43C3A7LN 3EKT.(SI.,F1")*M2IGC+LCL7OSU.(SI*,&16MNJ2I7J3S6 /SZ12MNJ2 	T3PF 7NWZ3G&-7MWPL7S2JNI3A3L2 WS+TB+I24*1&0"M&J3C3A3L> +UT+I24"16)2JNI3A3L2 KZ+IT+I24*1&0"M&J3C3A3L>
+UT+I24"16)*JCC3ZWA3HWL7RJ 3EWS3TV 3NWD"M&J3C3A7LN 3EKT.(GI*,&8"M&J3C3A3L> +UT+I21"16)*JCC3ZWA3HWL7RN 7TKAT*M2IGC+LCL3Z	B3T&(.1F,"16)2JNI3A3L6 WO3T&(.1F,")*M3S*I+MCS/MGS"6*M7CB 3OGL7RSI7ASE2 KA7WKUF*M2IGC+LCL3Z	B3T&(.4F,"16)2JNI3A3L6 WO3T&(.4F,")*M3S*I+MC
/MGS"6*M3S*I+MCS/MGS"6*M7CR +ICP7A
B3U[R2-7I3P3US*M2IGC+LCL7SSE3B&(.4F,"06)2JNI3A3L6 WO3T&(.4F,")*M2IGC+LCL3Z	B3T&(.4F,"06)2JNI3A3L6 WO3T&(.4F,")*M3S*I+MCS/MGS"6*M3S*I+MCS/MGS"6*M7C* 3AE7LKE6 SSO7P2JNI3A3L2 WS+TB+I21*1&1"M&J3C3A3L> +UT+I21"16)"J	S7JOM6 OM"166*JCC7MOE3SWW+RCT3UKE3E;R3E7H+EC
3USN6 WA3SWW3RWTN*M2IGC+LCL3TSC2(;I.,[I*,3Z/I	Z")*M7C* 3AE7LKE2 WR7SSE"M&J3C3A7L* 7BSI.(GI*,&8"M&J3C3A3L> +UT+I21"16)2J&I3F2(7ISS.)^7.,^7.,"7.M^J28.I7Z*="M&J3W	R+TE.1F,*0&1+K3Z.MFJ"0&17FKO7MSA.(WI")*M"7&73W	R+TE.4F,*0&9Z*M.1&02I?F3RGM3TF("66)2J&I3F2(7ISS.
B4.,B4.,B8.M"J20&I/M7M3I7M"+612J&I3F&(+M7M*1&4*420*129"169.J&12I7I/MB="M&J3W	R+TE.1F,*0&23LWER*M.1J02I?F3RGM3T&("06).JB42I?C3N	T3NWU"M&J+IF+I7R/MV).0V,.0N,"9*M7CJ 3EGL+I7S3WOE3HWS3LF 3NWZ3IWG.MNJ29NI3A3L2 WS+TB+I24"86)2JNI3A3L6 WO3T&(.4F,")*M7CJ 3EGL+I7S3
OE3HWS3LJ 3E;E7DSE" 6?2JNI3A3L2 WS+TB+I26"96)2JNI3A3L6 WO3T&(.6F,")*M"4&13C3A3LR +AT+I	N"M&J/I7D3I	B3T&(/NF,"06)2J&I3F&(/DR).1R,.1R,"2*M7CJ 3EGL+I7S3WOE3HWS3LJ 3E;E7DSE.MRJ22NI3A3L2 KZ+IT+I24"86)2JNI3A3L6 WO3T&(.4F,")*M2IGC+LCL3Z	B3T&(.6&,")*M2IGC+LCL7OSU
([I*,&1"M&J3W	R+TE.1F,*0&23LWER*M2I7I/MB=2MNJ2 	E3NF-+U7S3SC7ASL+ECR3NOO3HV +ICN"?*M2IGC+LCL3Z	B3T&(.6F,"16)2JNI3A3L2 KZ+IT+I26*1&0"M&J3C3A7LN 3EKT.([I*,&9"M&J3C3A3L> +UT+I26"16)2JNI3A3L2 GD3T&(N6)2J&I3D&=7BSI2(;I.,F1")*M2I[I2(SI.)N5.,N5.,B5.MVJ20NI7OSN7I
NE*M2IGC+LCL3O3C3OWS.MVJ23NI3A3L2 ;I+IT/IB1.,KI20&,*320/IB4.,WI20&,*6&0"M&J3W	R+TE.1F,*0&23LWE3R2,7EKE.M^J20NI3A3L2 C3A;I6(J	+M
P")*M7SOM*1262I3CA*M3SRI+CCAC7T2JSS+E3L6IOI3ZN T*M3S*I+MCP3D3E6MNJ2I7J3P& 6 OM"1662JOST&,"0*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