File TIPSCH.FT (FORTRAN source file)

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

7CB 3R
O3R7A7MR 7IOP+CCH3V;O2 7RP*M7CR +I7P3R3E7AOI2 J(7ISS3A	B+LB)6:* 3AE3L;U7GZ +OCN3SC3AWU3R;E3TGL3D;U3G;E2MNJ2 WB3FE+LCE7PCD*/686-J>+MCP":*M+CB 2 WR7GOI7TKE2/	B/TF ./F1* B:.5J326J 6 N 7TKA7TN/7TCO* B . B(6 SS7ASR*,B13S?TP6)"J	C.IF ./B1* B:* B 6"NI7LCO3EF * B
* B . F(* 2+*06 ")*MC&I* >1*9B *:BI* J 6IWM3L	T3P	L+ECR*1B *(&02MNJ*IBI.1"/. * *IB " &"7ROE+ECT* B * B * " "06)"J	C.IF */B7* B:* B *"B 6 J 3E?M+TCE3MSO+EB . B(")*MC&I* >4*1B16:R +I7P3R3E7AOI* BI* B * " 21F 7NWZ/GB,2 KA7WKUF6)"J	C.IR ./B1* B:3LSE" &I* B * 
 *(B13E;I*,B07AOU")*M3CR 3AWT7NJ +M7P6-B>+D?P.8* 2MNJ* B 7BSY3EJ/+ICT* 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*IBI.4F/*1B * B . * 2 OS3
3A7TKE2 	E3NF-U7S"J	C.IR ./B1* B * B * B:7TOA+TCE3R3E7AOI2-WW7COHE7L*JCC3A[N3A
N7SSS3E3L3U
N* B 6 WDA	L2IWD3Z7IA7L"J	C3R
E7ISS+ECR.1* . B0.0B *1B1.1B0. F0*1B . J "267"J	C.IJ * B:.0B0. B0.0B *0B0.0B0* B . B0"0*MC&I* B3.:B *0B0.0B0. B0.0B *0B0* B .0B02MNJ*IBI.4* . B0.0B *0B0.0B0. B0*0B . B "060"J	C.IV * B:.0B0. B0.0B *0B0.0B0* B . B0"0*MC&I* B6.:B *0B0.0B0. B0.0F *0B0* B .0R0
MNJ2 ?F7RKT+ACN+ICI2/> 3P	T+OCN2(?IH6)*JCC+SCR2:F +U;S+FCT2/& 7NSI6.SF* B/3E;I6.SF* B/3TSC24Z.+T> 2 KI+I;TS7B*JCC* B 6 J 3MKP+I;T+FCT2/J 3E3L6.SF2MNJ2 GD* B:3T7E2.GD"M&J3W	R+TE.1F,*0&0.MFJ"0&07FKO7MSA6(R	+I7P3K;O3T/A/T* 2 OS7HWA3EWR3N3T7AWD3NWG7N* 3AE3L;E
	6)"J&13W	R+TE.1F,*0&1.MFJ"0&17FKO7MSA.(B4*(6	*	&).MJJ2IWR+AD.1F,*0&2+I3RI7W.JB122ZI3O7R+AT*	B 2 	W3E	V+ECL3R3E7AOI* B?*:^ +I>32		W3E	VE7L.JFI2 WM7SWS3NWG/N> * B:.	SI")*M2IWR+AD.1F,*0&3+A3GA7F.JB123ZI3O7R+AT*	B * B * B 6 WA3SGG+B7E7GKE7ASE2 ;U3DR 3AWT/I* 
 F	*2>	.	[A")*M2IWR+AD.1F,*0&47LOIT*M.1R02I?F3RGM+T^(7MOE3SWW3RWT6 KD3U/C+ECN*?" /J7A21:,3E;I*=&0* B:.	GI")*M7CJ 3E	G3SWT3R& 3NF 3NGF7NOG3SWT7LWL+NCG7SSE3Z;E.MNJ2IGI.1J="2672J&I/A62.0B0"M&J/IOA.=B0"0*M2IGI.4B="0602J&I/A65.0B0"M&J/I[A.=B0"4*M.IGI2=GI"1*M.I
I2=GI"2*M.IOI2=GI"3*M.ISI2=GI"4*M.IWI2=GI"5*M.I[I2=GI"6*M2IGC+LCL3I	N3T&(+A21/IKA2,GI23&,+A24/IWA2,GI"66)*JCC3E;I6-WA7SN-3CGH3LWT3RV +ICN"?*M24&I7DJ=3MKP+IT.4F,21&,"66)2JNI3A3L2 WBL7L2J:I.1V="0*M3S*I+MCSS7G2J&I3F&(/DR)*,24"5*M3C: 3AC2 GC. V.* CS7TOE7T^ 3I
E3ER3OWLN*M"L&53C;O3T;IU7E2J:I.1F="060"J	S7JOM2 
S"M&J3C3A3L& 7NSI2(GI21&,+A22/IOA2,GI24&,+A25/I[A")*M2ISI2=7R3P	B/TR(.,F1.,[I")*M2I[I2(SI*)25.5^,2MNJ2 ;A3Z	E+GCE2:J 3EWR+ICT3FWU3R6 7EOS3U
N.M^J2IGC+LCL7SSE3B&(.4F,"06)2JNI3A3L6 WA/SF(*,24+I&42MNJ2 GT3SWT2 WR3L	A7S^-3EC3S3E2 	E/N> .M"J2ISI2=7R3P	B/TR(.,B1.,[I")*M2I[I2(SI*)29.9F,"0*M7CN 3I;G+ACL3GKEE7N"J&9/N61.2B0"M&J3C3A3LJ 3E3L6MNJ2I7J7SN G*M2I?G+TCO"8*M3C6 7EOS3U
N2 GL3E[UT*M"1&03C3A3L> 3OWP+N^(+P^16,R	+E
M")*M6IKW3IWT*(24.1V06)KI6,
I.MFJ"0&57FKO7MSA.(KA")*M2I?D. B5. 7M21&,R*M2I[I2(	L+S	T*221*221"260.JB26IKW3IWT*(21.1Z0*)3M3LWER6,.JB126ZI3O7R+AT6	R +ICP2&	*3B	*:^ +I&0"M&J3I7M"=63.JF22I?D. B4. 7N21&,W*M7CR 7IKP3EGL+ICS7A+N+U7G7ICM7UOL"M&J3C3A7LN 3EKT.(SI.,F1")*M2IGC+LCL7AOU*(2124&,"46
"J	S7JOM6 OM"4*M7C* 3AE7LKE6 SS7ASR"M&J3C3A7LN 3EKT.(GI*,&8"M&J3C3A7L* 7BSI.(GI.,F1")*M2IGC+LCL7AOU*(2121&,"16)*JCC7TCI3R3E7AOI2 KA7WKU3F&-7MWPL7S2JNI3A3L2 KZ+IT+I24*1&1"M&J3C3A3LF +US.1R,.,SI")*M3S*I+MCS/MSS2MNJ2 GZ3E3H+ECR3S?TP*M2IGC+LCL7SSE3B&(.1F,"16)
JNI3A3L6 WA/SF(*,21+I&12MNJ2 WM7S
S7ESR2 WU7BKE3NE3M;E"M&J3C3A7LR /CSD.([I6,+I")*M7C* 3AE7LKE2 WR7SSE"M&J3C3A7L* 7BSI.(GI*,&8"M&J3C3A3LF +US.1F,.,GI")*M3C6 7EOS7WKE3TF 7U
S7ESRE7N6J^I7RSI/ER(.,B125&)Z*M2I[I2(	L+S	T*320*320"262.JJ26IKW3IWT*(21.1^06)+I",*M.1^02I?F3RGM3T&("46)2J&I/M7M3I7M"+612J&I3F&(+M7M*1&7*320*223"263.JN22I7I/MB="M&J3W	R+TE.1F,*9&93LWER*M3C6 7EOS3U
N2 KA3BWR3CWH/N> .MNJ20&I7DJ=3MKP+IT.4F,21&,"66)2J&I3F&(/DV).1V,.1R,"0*M"4&03C;O3T;IU7E2JNL2 WR3L	A7S^-3EC3S3E" 6!2J&I3F&(3R6-.)V4.,"4.,V4.MRJ25:I.1J="060.J^42IGC+LCL3B3EL*M3S*I+MCSS7G2J&I7DJ=3MKP+IT.4F,20&,"66)2J&I3F&(/DR).7R,.7R,"8*M"4&8+IF3I7M.)B5.,B5.
&4.MRJ29ZI3I	N.MVJ20NI7OSN7IWNE*M"5&13C3A3L> 3C?LS7E2JNI3A3L2 ;I+IT/IGA2,GI22&,+A23/ISA2,GI25&,+A&6"M&J3W	R+TE.1F,*9&93LWER*M2IGC+LCL7ICO+EN.	GP*	^,3T7E"	6)2JNI3A3L2 ?O3P;E2(
A2,[A")*M2IWR+AD.4F,*0&5+I3RI7W6J^I7RSI/ER(.,B125&)3R&,W*M2I?D. B9. 7I21&,R*M2I?D. B9. 7J21&,W*M2IWR+AD.4F,*0&5I7Z6J*I6=+I.M&J60^I7RSI/ER(.,B168*).MFJ"0&87FKO7MSA.([A")*M2IGC+LCL3O3C3OWS"M&J3RGE/DF(.,&128&)D*M.1"92I?F3RGM+T^(6 ^ 7ESI3EWR2 WM7SWS+NCG*?" /J
A21:,3E;I*=&0* B:.	GI")*M2I[I2(SI.)&9.,&9.,"9.M&J68^I7RSI/EF(.,&1292)7EKE.MFJ"9&97FKO7MSA.(CI")*M2I?G+TCO"2*M"9&93C3A3LV 7XSI6MNJ/MSS.,BI*IB/246 7S* 7ESI2-OS3HWL3IWF6MNJ2I3CA*M7SRI+ACD.([K.0B06MNJ2IOD3AN T*M3SWDL&,7I+S6 SC6MNJ2I7J3PR E7L"J	S7JCM* CI/MSS6M
J+C3T"I606JOSG&,*0>I. GN**B47[OM7]* 7ESI3SC3L	EF7E2JRI/OF .0B0. 7I21:,"1*M3S*I+MCS/MSS.MFJ.0B02I?C3N	T3NWU6MNJ2I7J3P& 2 
S"M&J3ESN"M2JBZ

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