File ROPL.FT (FORTRAN source file)

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

2I?C3M?M3NZ +L24+I3N+F3L/IGN2,3F21&,+N22/FKL2,;I23Z,+L23/ISN"M&J3D7I7EON3I;O2 ;I.(J1*82)+FL*02)/IGN.("42)Z,+L"1*02)/IKN.(B82)Z,+L"2*02)/ION.(V2"66)*JB * B *1B 2,3F.4B(2)Z,+L"3*02)/ISN.(B6.,B52)&,+CO*22)/NGI*(&12,	N.(B32)&,+I"1*12)+II*3&0*MBJ* B * B2* 2 7N
P.(B12)&,+NX.2Z52)&,+NY.2Z5")*M6ICN/RF(.)&="6*M6ICN/RJ(.)F="6602J:I+PR.36).2R2"M&J7NKP*(&4.="2"8*M6ICN/RV(.)N="5622J:I+PR.66).4Z1"M&J7NKP*(&7.="4"0*M6ICN/R"(.)V="4642J:I+PR.96).6"0"M&J7NKP.(B1*)6=.1N6"2*M2IKN+L6=.2F0"6*M2IWR+AD.1F,*0&03F3I3E:,U*M. F *0B02
Z 3O7R+AT2		F+L3E3U	N+T2	+A26+I&5"M&J3C3A3L> 3OWP+N^(3DGT*02	3F3IE6)2JNI3A3L6 SR3AWP*(21*624.5J12,;I2,WIR6)"J	S7JOM6IKE7RKO"M&J/N7N+IN"26)2J:I3T&=/NN(")*M6ICN2=;I*(&4"M&J/N7D+N+PN7T2J:I3W:=/TV+"M&J/N7S"1*M2IKN.=B8.MJJ20NI7OSN7IWNE*M2IGC+LCL3RGT+PE21:,/B^,
628+I3N7IKE")*M3S*IM	S7EKRO7R2JRI/OF1/IF=",69.JF12IGC+LCL/F^32(3F21&(")6)2J:I3R&=7FI2(3F.1F(")6)2J&I3F:(/SF-.)B2.,F2.,J2.MJJ21:I3S:=/SF+"M&J/N7B+N/B"2*M2I?G/TKO"0*M"2&23C;O3T;IU7E.JF32IGC+LCL3RGT+PE21:,/BJ+.2V,*122+I3N7IKE")*M3S*IM	S7EKRO7R2J:I6=SN6*SN"M&
/DOO.67I21:,.MNJ26NI3A3L. OF27Z(3L&(")6)"J	C3W	R+TE+N3U.1V32)&(.,7I21:,T6).JN125ZI3O7R+AT2/N	7LOA3S[I3IGC3T?I7NR 3A3B+E>	2	OA3TGU+L2	*63X*MBJ* B * B12 ^	7RWO7PR 3RWI+D>	6	KG7OCU.	R,/X&,.(KI6,"4")6)"J	C/DOO.77I21:,T*M3C&I+L"=/IF-2):*/TF+2MNJ2II2=3I6+SN"-61
JOC67^I7RSI3E:(/UF,*4&2+I",+FL+I	T6,SI2=3I2,I")*M.1J42I?F3RGM3T&(.3V,/X&,.(KF*.20*3	X")*M2IKN2=KN.+N2"M&J/N7S+N/S"1*M2I[I2(;I.("3*4&)*328*220"368.J"36IKW3IWT6(WN.,R1"06).JR120ZI3O7R+AT*	;C+CB.7FKO2 GE+CCH3T	R+A
L"/*M* B . F * ^ 3T	R+A
L6,"32,^	7RWO+P2	*33X2	OC*12	*83X2	OC*22	*83X2	OC*3&	"M&J/I7H"0*M6IOI/TB=.MVJ22&I3S&=+S/T"1*M2IGC+LCL3RGT+PE21:,/BR+.,V1*326+I3N7IKE")*M3S*IM	S7EKRO7R2JNI3A3L6 SR3AWP*(21+N/B*120.1N526&,/NF(.5^32)&,+E	R6MNJ2I7J3SVI3R?RR*M2ISN3E:=3N:/T*M2I;N21:=N*M2I;N3N:=
NN*"M&J/DSO.37I.1^,"668.JN42IGC+LCL/F^32(3F24&(")6)2J&I3F:(/NJ-*5&6*424*424"465.JR46IOI3T:=N*M2I?G/TSO"6*M"4&57ISS.=V2"6*M"4&6/DSO.77I+I3S7ISS"M&J/I7L+I/H"1*M2II2=3I"+622J.I*=.1*(7I*1>)3NWD2MNJ"4&73W	R+TE+N3U.1^4*)3I+K",/FSL*(	J.,7J+I3L+I	H.MRJ27NI7OSN7IW
E*M.1^42I?F3RGM/TJ(.(OI6,"4.)N,.(F*.24*3	X")*M2I[I2(;N6-OI/TV).0V,.0V,"1*M"5&1/N7B+N/B"9*M2I;N2=;N.-V2"6*M2I?G/TWO"2*M"5&0/B7X*6:0"M&J/B7Y*5:0"M&J3B
I*=:1/EB1"M&J3X	M3NJ=I7G6J"I7MA2=J-I7G6J&I3M;I2=	BG*M2I7Y/A7X2-	BG*M2I?D26&3*=213N;N",632J&I3FZ(+L"4+I6)3X	M/NZ).1Z,.1Z,"2*M"6&13X	M3NZ=+L"4I6).JJ62I[I2(3F24&(6)"-7MA.)N6.,N6.,R6.MZJ64"I7MA2=3F24&(")*M"6&33C;O3T;IU7E2JRI/ON7/IJ=2,;N/NN,"M&J+IF/FSL*(	I2-7Y
I	N*721*722"762.JF72I7Y/I7N/FSL*(	I.M^J22&I3FZ(+L"4+I6)3YGM/X^).3^,.3^,"4*M"7&43YGM3XZ=+L"4I6).JN72I?C3N	T3NWU"M&J/D7X2(7X+A7X3X	M+N>)B7X2JRI+Y"=3YGM7X&-3M;I2)J/Y*M6IKW3IWT6(WN.,Z160")3M;I2,7X+A3X3Y	M7N&,7MA6,D6,	D.MFJ"6&07FKO7MSA2(Z6*1:0"36)2JRI/OB8/IF=2
;N"1*M.I7J23&*"-622J&I+NX/I6)3I	F+X"(/FSL*(	J2-7X+I	N6/D.)F+.M"J20&I+NY/I6)3I	F+X"(/FSL*(/J*16)3Y	M+N>)+D	Y"+612JRI/O"8/IF=.,B6"M&J/DO.87J.1V,"0*M"8&8/ISN*(3I/J6)3N3B"M&J/DO.97I21:,N612J.I*=.1*(7I*1>)3NWD"M&J/L7X7IN*(	I"M&J/L7Y7I	N*(	I"M&J+IF/ISN6(L6,	L2)
-+B	L*824*825"864.JR82I;I242(3X2,/Y6)7NKP.(B1")*M2I?G/TO"9*M"8&5/ISN6(L6,	L2):=+PRK6).J&82I?C3N	T3NWU"M&J/D	O.07J.1V,"0*M"9&03W	R+TE+N3U.1B8*)3J2(;I24&(*,	J.,7I.1Z,"06).J"120ZI3O7R+AT+I23*23X26F0"16)2JNI3A3L2 OO7LOOE*M6ISSO7P"J	S3CGP+GCE"3*M7SKE2,*I+MCP3I
 3R?RR*M7SKE7RKO.,BI6MNJ2IGT7D2I7IKE6MNJ6I+SA*M3S"IL7T"J	S7JCM6IKE"M&J3ESN"M2JBLBZ

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