File MORTT.FT (FORTRAN source file)

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

3C6I7OSR3G
A3EF 7MKO7T+I3A	T+OCN3TKA+LCE3G;E3EGR7TKO"M6J"J*M3CZI3O7R+ACT3SGT3T7E7ESNS6:"J	C*-6-*-6-*-6-*-6-*-6-*-6-"M6J.JB1"0&07FKO7MSA*(>/"/6).JB1"0&17FKO7MSA*(B	7MKO3TGG+GCE3A?M3R	T7ZSA3I;O2 GT3BWL*	>,"/6).JB1"0&27FKO7MSA*(B	3A?M7USN2 [O2 ?L+ACN*=^ .,GF.0J.")*M.1B
23ZI3O7R+AT2	2 3O;A2 GR+TCE*(&%* B=2	Z,.5J.")*M.1B024ZI3O7R+AT2	2 3O;A2 WT+RCM2(WY7AOR.)6 * 2	+F:5"16).JB1"0&57FKO7MSA*(B	3M;O3T3H7YB 3A7Y7ESN/S6 * 2	+F:7*2>,")*M.1B026ZI3O7R+AT+F:8"26).JB1"0&77FKO7MSA*(2/*	B 2 R 3AWT* B 7ISN3EWR+SCT6 B 3R;I7CCI+LCE6 B 3R
I7CCI+L
E")*M.1B028ZI3O7R+AT*	B * B * B * B * B * B * B * B 2 GP3YWM+NCT6 J 3EGM3I	N+N
G*,&/.MFJ.0&02I?F3RGM+T>(")*M.1F020ZI3O7R+AT*	B 2	&,23&,*3^,* B 2	Z,.8J.*,B	* B 2	Z,.8J.*,B	* B 2	Z,.8J.")*M.1F021ZI3O7R+AT*/B	7LOA7TB 3A7Y7ESN* B=2	Z,.6J.")*M.1F022ZI3O7R+AT6	N 7TKA3T;I3G6 7OSN+H" +M	M*=^ ")*M.1F023ZI3O7R+AT6	N 7TKA3T;I7G& 7EKA6 &(/Y6)* 
	.MFJ.0R12I?F3RGM3T&("46).JB1"1&57FKO7MSA.(GF.0B.")*M.1F026ZI3O7R+AT*/^,2 ;I7TKE7ESS2 GP+ICD3T	H7S& 7EKA*=^ .,F*.&2.MFJ.0^12I?F3RGM+T>(*,B	7TSO+ACL7ISN3EWR+SCT3P	A+DB=2	Z,.8J.")*M.1F028ZI3O7R+AT*/^,7LOI3T;I3GR 3E	S3RSE* B?+[CY+OCR/N+]* &	.MFJ.0&12I?F3RGM/
F(+A&6"M2J7CBI3AWG" 62"J*M2MNJ2IWG3TJ 3A	S3C6 7OSR3G
A3ER 3AGT":*M+C6I*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6-"J*M61^I7RSI/EF(.,B1*0&1"M&J3W	R+TE.1F,.0J0")*M2IWR+AD.1F,.0V12)7A3O;UT*M6IKW3IWT*(21.1B0"36)6JJI3ESA*(21.1F065J)3AWT"M&J3W	R+TE.1F,.0R0")*M2IWR+AD.1F,.0V12)WTR7M"J*M2MNJ2IGC7LWC7LSA3E6 7OSN7H	L2 GP3YWM7NOT
MNJ*I6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"M6J.JB16IKR3AWT2=GR+T?E.(J1..F**0:0")*M6IST3E7R2=WT+R+M*1:2"M&J/DGE6=E3PF(3L
O*(:16+KR3AWT6)R*7TKEM6)2JRI/E62*1>./DGE"M&J/DOE*=:12-WD"2*M2IWD24F=7MWO+N+T3RGRT7E6JBI3A7Y2=R(+E>4/DOE*):+"0616J^I7RSI/EF(.,B1*0&57P	AM*M"M6J"J	C7LOI3T;I+GCS7DOE3IWR/D> 2MNJ*I6-*-6-*-6-*-6-*-6-*-6-"-*M"M&J/A7Y*	CY* B " 6	2JFI+N^=+NB * B "	*M"1&13W	R+TE.1
,.0"1")*M2IWR+AD.1F,.0&12);AS*M"1&2+IF7AON2-;A.)N1*,21"163.JN12I[I2(;A3SF-/YF).1F,.5F,"1*M"1&53W	R+TE.1F,.0J1")*M2IWR+AD.1F,.0R12)?M"M&J3W	R+TE.1F,.0N1")*M2IWR+AD.1F,.0R16)	IR*M2MNJ2I	L+SCT3HGE3D;I3G> 3N2 3IWN3P	R3NWTR*M+C6I*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6
"-6-"J*M"2&03W	R+TE.1F,.0B0")*M6IKW3IWT*(21.1B0"16)6J^I7RSI/EF(.,B1*0&23A?M7USN"M&J3W	R+TE.1F,.0N02)GRT7E6J^I7RSI/EF(.,B1*0&47TKEM*M6IKW3IWT*(21.1B065B)3A7Y"M&J3W	R+TE.1F,.0^0")*M6IKW3IWT*(21.1B0"86)2JNL2IGP+GCE"3*M"M6J"J	C3C7O7PSU+EZ 2 	L+SCT3A?M3R	T7ZSA
I;O2 GT3BWL2MNJ*I6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-*M.MNJ206I7OSN/HF="M&J3IWT/R7M7TKE/MF*"26.6JNI/TB=".*M6IST*=:0"M&J3P	R3N	C3PWL2=7A3O;UT*M"3&1+IF+M7O*1&3*323*322"363.JJ32I?M"=612J&I/Y7R7IKY"+616J^I7RSI/EF(.,B1*1&6S7T6J^I7RSI/EF(.,B1*0&9"M&J/T7
+T/TS7T6JNI/TB=".*M6IKW3IWT*(21.1B0"96).JN32I[I2(?M3NT6-SI3E7R.)R3.,Z3.,R3.MNJ64BI7ISN6=KP3ION3I3P7EJ*3AWT./F(*0:0.*J1".6)6JBI7OB=3A7Y2-	P+N7T..F0"M&J3P	R3N	C3PWL6=KP3ION3I3P7EB-O*M"3&53W	R+TE.1F,.0B12)?M6,	I7RB,7ISN2,?P6,KP3ION3I3PE*M6ISS6=SS2+	PN7T2J6I3
6=/OF+"M&J3M;O/T7H3M;O+T/H"1*M2I?G2 ?T. F3"M6J"J*M3CNI7OCM3UWT2 GL+SCT7P	A3M;ET*M+C6I*-6-*-6-*-6-*-6-*-6-*-6-"-*M.MNJ66BI7ISN6=KP3ION3I3P7EJ*3AWT./F(*0:0.*J1".6)6JBI7OB=3R;I7CCIL7E6JBI3R;I7CCI/L7E"06.6JRI/L7P+P/O3P;IT*M6IKW3IWT*(21.1F0206)3O&,+Y3R3P;I7TB,
OB,3R;I7CCIL7E6J^I7RSI/EF(.,B1*1&17TCL"M&J/S7T+S/T3P;IT*M6IKW3IWT*(21.1F066N)T*M6IST6=ST6+SS"M&J3W	R+TE.1F,.0^16)ST"M&J3W	R+TE.1F,.0B0")*M6IKW3IWT*(21.1B0"06)2J^I7OR /OF "M6J2JVIN7D&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