File DRHARM.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 KD7HKAM*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B 3F;I+DCS3TWH2 ?F3U	R+ECR3CWO3F	F3CWI7NOT2 [O2 ;O3ER 3IWM3N	S3OGN3LR 3OK
L7E*JCC* B * B * B 6 KP3E	C3S?I7NJ 3E3A2 GDT7A"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 KD7HKA3MF(*,3M7I[N*,3S3IWF+R	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 F * B * 6 * CA7DWO3BWL6 KP3E	C3S?I7NZ 7ESCO7R*JCC* B * B * 
 * B * B * B +ACS7ICN+U3T2 ?C3NGT7ION2 ;O3ER 3IWM3N	S3OGN7LJ 3E3A2 GD+T;A* CAI7S*JCC* B * B * B * B * B * B 22:**+B47CKO3E2 3OGC3T?I+N3S2 W3EWR* CN.=J 2*6*..J **CN3RGEL*M+CB * B * B * B * B * B 2 : 3UKM7EOR6 KA7EB +UCT7ISN7OR +HCE7FKI+SCT22:*2 ?C+RCE3LOO3
	T7OON2MNJ* B * B * B * B * B * B 2 [O" 7A*JCC* B * B * B * B * B * B +ACS7OSU7PSU2,F 2 ?C3NGT7ION2 T3EZ 7OKU7IKE2 ?C3E[F3I	C7ESNS*M+CB * B * B * B * B * B 2 F .0J/.,CB*=20+A21+B21+A22+B22*.:.2,;A*/22/B7N60J 7ECS7ESC3IWV+LCYI7N*JCC* B * B * B * B * B * B 
TWH2 	F7RSS2 :2*+B27CKO3E2 3OGC3T?I+NCS+OCFA*M+CB * B * B * B +MB * B 2-F 3N& 3NWT7GKE2 W3IC2 WD7TKE3M;I+ECS3TWH2 	S+ZCE+OCF3TWH2 WV3C?TR*M+CB * B * B * B * B * B 2 F 6.R +HCE7S+I3E> 3FF 6 OI* *2*(*2**	M* B+"4*M+CB * B * B * B 7I[N* B 2-F 2 WV3C?T7R^ 3O/R
 KA+ECA7FKO2 	B3TF +NCD3ISN+ECX3M;A7IWP7LSA3I;O2 [O2MNJ* B * B * B * B * B * B 2 	D3M;E3S?I3N> +NCE3E
I3HT2 T3E: 3UKM+ECR+OCF3RGE3L& 7NWP+TB,7V+I".6,*JCC* B * B * B * B * B * B *(>1*8*)*2"**2**M6)*JCC* B * B * B * CS* B * B-3AR 3OKU+LCE3PWR7COI3I;O2 WV3C?T7R^ 3O/R6 KA+ECA7FKO2 	S+NCE3TKA7LOE2MNJ* B * B * B * B * B * B 2 	W+TCH3D7I7EON3I;O2 T7EN 3AWM6 OA2 
IV*M+CB * B * B * B 3IWF+RCR2-F 2 WR7TKU3NSE2 GV3LWU2 [O* B13MGE+NCS3TGH3T6 6 OI2 WL+SCS3TGH/NN 6 KO2MNJ* B * B * B * B * B * B 6 KG7ESA+ECR3TGH/NJ *0B.3OT7E
R3IWS2 [I7EKR6 OI2 WS/T6 " 60"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T+ICS3SKU7RWO3T;I3E^ 3IWV7SR +HCE7FWO3RWI3RN 3O[E3FOI3I;E+TCS+OCF*2"**2**M6)*JCC* B * B * B 2 WR+ACL3P	O7NOT6.N +ECE3SKU7RWO3T;I3ER 7HKA3MZ +OCR7TKH+ECE3D7I7EON3I;O+A3L2MNJ* B * B *
B 2 R 3OKU+LCE3PWR7COI3I;O2,N 7OCM7LE2 ?F3U	R+ECR3TGR3N[S3O7RS6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3DGHR7M"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH2 ?F3U	R+ECR3CWO3F	F3CWI7NOT. CA.,CB*=20+A21+B21*.:.2,;A2,;B*=B03AWR2MNJ* B * B * B 2 > 3BGT3IWN3DZ +OCR7ICN+UCT+X3J. 7J.0F,*,22*.:.2,:2*-B17FKO2 T3EZ 3O3L3O	WN7G*JC
* B * B * B 6 GE7USA3I;O6 B(/I6 * :3.1F4*5:9*.&.2MNJ2MNJ* B * B * B * B * B 2 : *-B1* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B " 7J*JCC* B 2 +X.=F(*/&2+A.03S7U2 F(3KN*+OS+P+I3J.**/	N2+/B2*	S7NB(3I****?K+N&).+F(*/&2+AN*-&12MNJ* B * B * B *
B * B 2 . "=61"J7C*JCC* B * B * B 2 WS7EJ 3EWF3R;E+CCE3USN+ECR3SKU7RWO3T;I3ER 7HKAM*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 KD7HKA3MF(*,3M7I[N*,3S3IWF+R	R*MBJ* B 2 R
3IWM3N	S+OCN/AF(2)2,*(&32,;I/VF(6)N,*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3A+S3I/AGP+I3M+F3N+C3O7CKI3EF,3P&27MN,6,OS2,WD3LN,3I7I6,CA21WR",*M* B . F 2 ;C3IWR2,OS2,	S3SF,7PJ23EN,3N	IM*M* B * B 7IOF/E7T"1*M* B * B /LF(2)6=*MBJ* B 2 2 *(&2"=60*JB * B * L.36)"
*M* B * B 3N?T/TJ=2*6**MBJ* B 2 : 7TSO.26 * *23N?TT*M* B * B +FCN2=: 7TSO*MBJ* B 2 R +OB * B3/I6 * 223N?T+T22"2*M* B *3B 3A&(.)6 2 F-*(	I*MBJ* B 2 R +OB * B6/I6 * 213N?TT62*JB * B6* A+IB)2=F *(	I2/;F*MBJ* B 2 N 3A3L2 D3A7R*(3A3L&,+N3V3S&,3FWS3T&,7FKER6)"J
C*JCC* B 2 ?M+VCE7LOA3T" 3A[L2 [O* A7JN)2 ?D+WCN3OWN2 3S+OCT3ASN2 SA3DF *(	N6 SA2 ?B3T?T7MR O*M+CB * B 7G[I3EF 3RGR3YZ +OCR7AB13R7I3EF +NCD7AB23R7I3EN 3AOL3UGL3T?IN*MC*M* B *2B1+DCO. J5. 7I21:,7TSO",62*JB * B . CJ6=SN/OKT*+62I*M* B * B 3A*(.06)3A*(.0J-")*
* B *5B23A*(.0F+2)F=.(CJ*-&1*MBJ* B 2 F 6(SN/OKT*+&3*=A"16)*JB * B * A3N?T+T.2.46)/AJ(")*MC*M+CB * B 3C3A3C3U3AWT. GA3P	R7MOE2 ;A7DN 7TKO3E& 3NZ 7IOR3T: 2 3S7OOT2MNJ* B 2 N 3AOL3UGL+TCE7AB23R7I+ECS3ASN6 SS3OWR2 ;I2 WS3C;O3D: 2 3S7OOT2 ;I2 WR7VKE+SCE3OSRE7
*JB * B . CK6=SN+O/T"1*M* B * B +DCO.1R0. 7I21.,.0J,*MBJ* B 2 . 21:=7TSO22&-"+64*JB * B 6 CA21WR.=V.2*F(*(	I*+A+K&1")*M* B * B /AKP/R7E.-V.2*F(*(/I*1.)3A.(.1F+")6)*JB * B 6 CA217I.=V.**6(3A&(*+&1*+A+K.1*1&)*MBJ* B 2 F 3P&2+M6=*.*5*(A+I6)3A.(*1&)*MBJ* B 2 
 *(	I6=CA21WR*MBJ* B 2 F *(/I.16)/AGPI7M*JB * B * A+K&16=CA22WR*MBJ. B124F .(GK*+&16=CA227I*MBJ* B 2 : +TCO2=: 7TSO"/62*JB .1B16 SN6=SN/OF+*MBJ* B 2 R /E7L.3F..4V1.9Z2.5V3.8^9*9>33D3F7OSA6(SN+O	T*MBJ* B 6 N 3SR=3S;I2(WDL6)*JB * B 2 OS2=OD+OS3D3E")*M* B * 
 /S7I.0B.*MBJ* B 2 N /OF=".60"J7C*JCC* B 2 ?C7MWP+TCE3C*(*)CS7FKO. 7J60R 7HWR. 7JN*M. F *1B4+DCO.1Z1. 7I21:,T*M* B * B /K663N?T+T6222&*"+65*JB * B 6 CA22WR*=A+K&62*?C*+A+K.6*1*)S7I*JB * B 6 CA227I2=F-.([K6)N*3IF+.([K*+&12*?C*MBJ* B 2 N 3IWR.=V.2*F(*(*2/IF
2)F+7PJ2E6)*JB * B 2 	C/I7M*.*5*(A22&*2)F+3P&2M6)*JB * B 2 ;C3IWR.=V.2*F(*(*2/IF-2)F-7PJ2E6)*JB * B 2 ;C3I7I.=V.2*F(*(*2+I6)/AKP+I	M*MBJ* B 2 F *(*2/IF-2)N=3IWR*MBJ* B 2 F *(*2/I6)3C	IM*M* B * B 3A.(.66)3C	NR7E*JB * B * A+K.6.16)2-;C3I7I*MBJ* B 6 N /I7SS7
*JB * B 2 	S2=	S2*OS2+?C6*OS*MBJ. F126N 3ON=7ON*7CN-+I+SS7S"J7C*JCC* B 2 S7ISF* C7JN)2 ?F3R* *=?N.2F+2 ?T. 7J7NV 3P> +NCE3S?LT*M* B * B +DCO.1^1. 7I21:,7TSO",62*JB * B . K6=SN+O/T24&+*MBJ* B 2 F .(K*-&2*=A+K&8*MBJ. F127F .(K*-&1*=A+K.8"16)*JB * B 2 ?D. B5
0& *=233N?T+T22"2*M* B * B 3A&(.)6 * :2* B*3A&(")*M. V *0B03A&(* B+*1B)*=6 *2B.2*F *(CI.+F ")*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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