File DAPCH.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 7UKB7OSU3IWN2 GD3PC2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 N +ECT+UCP7NKO3M3A6 GE7USA3I;O3S> 3F2 7EOA7TN 3QGU7ROE2 	F3T& 7NR 3E7R3
> F*M+CB * B * B * B 3CWH7BOY7H[E2 ?P3L;Y3O	M7AOL2 ?F3RF 2 	G3V;E2 	D7SKC3EWT6 WF7NSC3I;O2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 3AOP3HR(3A	T*,3N+I3P+X3D+X207WKO3K&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 R 3A	T* 6 2 WV3C?T3R> 3FR 3IWM3N	S+OCN23:*2 >(3RR 3IWM3N	S+OCN22:**+&12MNJ* B * B * B * B * B * B 2 ?C3NGT3I	N+NCG3TW
2 	G3V;E6 KA3G7U7ESN+SB,3F3O7L
O+ECD+BCY3TWH2MNJ* B * B * B * B * B * B 6 WF7NSC3I;O2 GV3LWU3SF +NCD+N" 7ROE3POE7T[I7E	L* &12 WW3IGT*M+CB * B * B * B * B * B 6 Z 7AWL+E;S2 T3EN 7OSN7ESN2 [O2 WV3C?T3RR 3A	T2 WR3M	AN7S*JCC* B * B * B * B * B * B 3UON3H;A3GSE".*M+CB * B * B * B * B * B 2 
 3A	T6 WM+SCT+BCE+OCF7DWO3BWL6 KP3E	C3S?IN*M+CB * B * B * B +NB * B 2-: 3UKM+ECR+OCF7G[I+ECN3P	O7NOT2MNJ* B * B * B 2 & +PB * 6 2 	D3M;E3S?I3N> 3F2 7EOA7TN 3QGU7ROE2 	F+TB,3IV.2.: 3UKM+ECRO7F*JCC* B * B * B * B * B * B 3CWH7BOY7H[E2 ?P3L;Y3O	M7AOL6 OU+ECD
ACS3F;U3D7A7ESN+ACL3F;U3C	T7OON2MNJ* B * B * B * B * B * B 6 CI2 S3O3U3D: +OCT3EOX3ESE" 7N*JCC* B * B * B 2 SX* B * B-7ROE7USL7ASN6 WM3L	T3P	L7CSA3IWV2 ?C7NSS7ASN2 ?F3R2 3IWNA7R*JCC* B * B * B * B * B * B 3TGR3N[S3O7R3A	T+OCN+OCF3A
R3UWM+NCT3R;AG7E*JCC* B * B * B * B * B * B +XCD7MOU3TJ 3ER 3OKU+LCE3PWR7COI3I;O2MNJ* B * B * B 6 " *0B * 6 2 WR3S3U3T;A3TF 3D	D7T[I3EN 7OON3T;A3TZ +OCR3L;I7EKA2MNJ* B * B * B * B * B * B 6 KT7AON7FKO7MSA3I;O2 [O6 KA3G7U7ESN2 GR3NWG2MNJ* B * B * B * B * B
* B . CX6 WM+SCT+BCE7DWO3BWL6 KP3E	C3S?IN*M+CB * B * B * B 7WKO+KB 6-^ 3O/R3I
N6 SS3OGR+GCE+OCF3D7I7EON3I;O2 &(/PF+*)"*+I/P*2>)"2*M+CB * B * B * B * B * B 2 > 7NJ 7EWT+RCN7WKO3KN 7OSN3A;I7SR +HCE3S7Y7MSE3ROI2 ?C3E[F3I	C7ESN2MNJ* B * B * B * B * B * B 2 GM3T	R3X> 7FR +HCE7NKO3M3A6 GE7USA3I;O3S& 3NN 7OCM7ROE3SSE2 ?FR7M*JCC* B * B * B
* B * B * B 3F3O7L
O+ECD3I7M3E	D3AWT+LCY+BCY3R
I+HCT3H;A7DN 3IWD2MNJ* B * B * B * B * B * B 2 ;A7DN 3QGU+RCE3S7U2 [O6 WF7NSC3I;O2 GV3LWUS*M+CB * B * B * B * B * B 6 ^ 3O/R6 WM+SCT+BCE+OCF7DWO3BWL6 KP3E	C3S?IN*M+CB * B * B * B 7IKE* B 6-J 7EWS3L	T+NCG7EKR+OCR7PKA3AWM7TKE2MNJ* B * B * B * B * B * B 2 WI
R6 *-B13MGE+NCS7FKO3M3A6 KE7RKO3S& 3NR 3IWM3N	SO7N*JCC* B * B * B * B * B * B 7IKE* B=206 3E;A3S: 3OV 3R?RR7S*JCC* B * B * B * B * B * B 7IKE* B=216 3E;A3SN 3O;I3CSI3I
N6 KA3G7U7ESNS*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +NCO3W	E7GSH3SF +RCE3UWS3D& 7FR +HCE3V3A+UCE+OCF7DSA/IJ(**/N*1B)I7S*JCC* B * B * B 2 ?N7TB 3O	S7T[IE6.*JCC* B * B * B 6 E7EWC3T?I3N> 7FN 7UKB7OSU3IWN2 GD3PC6 OI* CA3PWR7PKA3A?T+RCY3SWT3PZ O7R*JCC* 
 * B * B 2 GC7LWC7LSA3I;O2 [O2 WL7ASS6 GS7UKA+ECS7FSI3S& 3NN 3HKE3YS+ECV3P3O3Y?N3MGIL7S*JCC* B * B * B 6 SI2 S3O3U3DJ 3EZ 3O3L3OWW3DJ 3YV 3XOE3U	T+OCN+OCF3SKU7RWO3T;I3ER 3A[PS*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MN
* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T3E2 7EOA7TN 3QGU+RCE7FSI6 OI2 WD7TKE3M;I+ECD3U	S+NCG3CWH7BOY7H[E2MNJ* B * B * B 6 B 7O	L3N7O3I3A3SF 3SZ 3USN3AWM3NGT3LZ 3UON3T?I7NN 7YSS+E;M2MNJ* B * B * B 6 R +HCE7MSE3HSO6 OI2 	D7SWC3SWS3D
 7NR +HCE7ASR3I3CE*M+CB * B * B * B 7AR.2.WB7RSZ7IOS2,2 7EOA7TN 3QGU7ROE2 	F3T	T+NCG+TCO7IKR7EWG7LKA+LCY3SGP3CSE2MNJ* B * B * B 2 R 3AGT6,N 3I7A2 WR3VWI+WB,3V3O*.266 OI/SN..,F .9R66,B +PB..2N0.-J2"76."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:
*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3AOP3HR(3A	T*,3N+I3P+X3D+X207WKO3K&,+E	R2MNJ2MNJ2MNJ* B * B 2 	D3M;E3S?I3NSE6 WD7M	M2 GV3RGI3BWLS*M* B * B 3D7I7EON3I;O2 GD+TI*12)7WKO/KF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I3NR 3A	T2,
W+R3K+X3D+X20+X3A+X3E+X3M+D3F7TN,U7M"J7C*JCC* B * B 2 C3E/C2 ?F3RZ 3O7R+ACL7EKR7OOR2 ;I6 CS3E	C3FWI3DR 3IWM3N	S7OON*MBJ* B 2 & 3F:(*-&1*129*220"1*M* B * B1+IF+I	P*129*129"2*MC*M+CB * B * B 3SGE3RC2 7S3A3L7ESS2 ;A3D2 3A
R7ESS6 KA3G7U7ESN*MBJ* B 22& 3F&(3P:-*)23.3F,"9*M* B * B3/X7A7DSA/IF(")*M* B * B /X60X7A*JB * B 2 WX*=:0D60*JB * B 2 ?D* B7/IF=",7N*JB * B 2 7X2=GD+TII6)*JB * B 2 [I2(GX2-7X*)25.5R,*MBJ* B 64" 7A"=M*M* B * B5+IF+X60+X	M.6^,",67*JB . Z . CX2=7X*MBJ* B 27N 
OSN7IWNE*MC*M+CB * B * B 3I	N3TGI7L+I3EN 3AOL3UGL3T?I3N> 3F: 3O7R+ACL7EWQ3A	T7OON*MBJ* B 6 " 7D"=60"-A*M* B * B +M"=+I+P6(CI*+&1.)J/*MBJ* B 2 & 3ESN*=/M+I/P"1*M* B * B /MKT6=CI6+CI*MBJ* B 2 6 3T626=SM.2F-2MNJ2MNJ* B * B 6 N +ECT7WKO3K;I7GN 7TKO3AWG2 ;A7DJ
3IG3T" 3ASN2 	S+DCE+TCO7ZKEO*M* B * B +DCO28& *=21I7P*JB * B . 7J/MKT"-7I*JB * B 2 ?W+RK/J6)20R."0*M* B * B 7WKO3K&(.)B=..CD*MBJ* B 2 . *=/MI*M* B * B87WKO3K.(.)B=..CD2MNJ2MNJ* B * B 2 N 3HOE3KZ +OCR3D
E3EWN7RSA3EF 7RWG3M;E7TJ 3A
NE*M* B * B +IF+X	D*220*220"9*MC*M+CB * B * B 3C3A3C3U3AWT2 ?C7NSS7ASN3SZ +OCR3RSE7USC3I;O2 [O6 KA3G7U7ESNS*M* B * B9/X606-"(60"++A>)X7D*JB * B 2 SX*=:2+D>0X7D*JB * B 6 WS/MB=..CD2MNJ2MNJ* B * B 6 N 7TKA3T^ 3RGE3T2 7OCO6 [O+ECR3A3L2 	G3V;E2 ?P7ISNS*M* B *
B +DCO*1B5/IF=",7N*JB * B . 7T7DSA3I&(6)"*7D"+"0*M* B * B 3J&="+7N*JB * B 2 [D2=GD+TIJ6)"J7C*JCC* B * B 2 GC7LWC7LSA3EF +NCD3S?T+RCE3V3A7UOE2 [O2 C7E	B3SWH7VB 7O	L3N7O3I3AS*M+CB * B * B 7FKO6 KA3G7U7ESN" 7T*JB * B 2 GX*=:1D60*JB * B 2 7X"=7T*JB * B 2 [I2(
D+TI22:**+&1.)F1.,F1.,B1*MBJ. F 20* *=/JN*M* B * B /X7A7DSA3I*(")*M* B * B /X7M7T"*A*M* B *1B17TR="+7T*JB * B 6 WS7MN=+U/M+D+F+D+FX7A*JB * B 2 [D2=[D2+[D*MBJ* B 2 * "=61*JB . J1. 7K3M*+*MBJ* B 6 ^ 3O/R*(	K2=?W+RK+K.)+D+FX7A*JB . N12 ?W+RK/J6)7WKO3K*(6)"+A
M* B * B +IF3J6-3T62.)R1.,V1.,V1*MBJ. F 24* *=/J"1*M* B * B /X7E7T"*7M"-A*M* B * B /X7AX7M*JB * B 2 7X2=WX*MBJ* B 2 & 3F*(6-CI.)J1.,J1.,N1*MBJ. F 25N 7OSN7IWNE*M* B * B 7WKO3K&(3ESN6)N=+U/M3S7U2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE7MSA7RI2 [O2 ?N3RGM3LV 3QGU3T?
N7S*JB * B 2 3L"=7M*JB * B 2 /K6=SM"27M*JB * B 2 +J"=61*JB * B . 7KK7K*JB * B 2 ?D. "1. 7J216,*MBJ* B 6 ^ 3O/R2(3L6)^=3O/R*(	K2+?W+RK+J	J*MBJ* B 2 2 3L2=/LF-*MBJ* B 2 & 3F.(2-+J.)Z1.,Z1.,^1*MBJ. F 26. 3K.=/KJ-*MBJ* B 2 . 2=/K*MBJ* B 2 * /JF=*MBJ* B 2 ^ 3O
T. "1*MBJ. F 27* 3J*=/JF+*MBJ* B 2 . *=7K"1*M* B *1B83C;O3T;IU7E*JB * B 2 WI/RB=*MBJ* B 6 J 7EWTR7N"J7C*JCC* B * B 6 KE7RKO2 WR7TKU3N& 3NN 3AWS2 [O2 ?F3RGM3LV 3R?RR7S*JB . &12 WI+R6="1*M* B * B 7RSE3U;R2MNJ2MNJ* B * B 2 V 3R?R7RJ 7EWT+RCN+ICN7COA3E> 3FN 3
;I3CSI3I
N6 KA3G7U7ESNS*M* B *2B07IKE"=61*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"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"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