File ADSAM.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 7ACM+LCE3M	A7NB 3R
O3R7A2 ?F3R6 7AKT+ICX3ASD3I	T+OCN2-F 3DGSM*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B 7MSA7RI2 SA7DSI3I;O2 GS3M3P7EB 3R
O3R7A2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 GMD7D*JCC* B * B * B 2 GM3T;I2MNJ* B * B * B 2 6 7XWOT*M+CB * B * B * B 3LOO2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 6 
T3O& 7NWP3T6 7AKT3IWC3SF +RCE3RGE3DZ 3R7O2 T7EN 3T;A7DKA3D& 7NWP3TR 3E	V+C;E2MNJ* B * B * B 6 R 7H	E6 KA3EF 3DWD3DF +NCD3TWH2 WR3S3U3T;A3T6 7AKT+ICX+ICS7LOI3TSE2 ;O2MNJ* B * B * B 6 R +HCE3SGT3NGD+RCD7OSU7PSU2 WD3VOI+EB.3T	H3SN +ACN+BCE7RCE7ESA+ECD7FKO2 ;
Y*M+CB * B * B * B 3N7U7BKE2 [O2 GP7IOR2 [O2 GM3T	R7COE2 ;U3T3I* CA3BGL+NCK7CKA3D& S*M+CB * B * B * B 3EON3O;U7TKEE7D"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B 7MSA3ROI+ECS3AWR2 	
3M;E3S?I3NSE2 ?F/RF .0B02 3E3EWM7NOT6.R 7HKE3E?F+R3E6 KP7OWDC7T*JCC* B * B 2 [O6 WN3MWB3R> 7FJ 7OOW6 	B6 WN3MWB3R> 3FN 7OWL7MON2 GC3N?N3TV 3XWC+ECD.1B0"06."J7C*JB * B 2 	D3M;E3S?I3NF .(B1*0&0*,B.1B0*02)/RF(.0B0")*MC*M* B *1B07FKO7MSA2("1.1F,257H7AKT+ICX3A
D3I	T+O	N*MBJ. F 21Z 3O7R+AT.1CH.,R43H	D3M;E3S?I3NSE6 KA+ECA3T?O2 7S3A3L2 ?F3R& 7NWP3T6 7AKT+ICX.,SI")*M* B *1B27FKO7MSA2("1.0J,20WH3XOE3U	T+OCN7TKE3M;I3AWTD6)*JB . N12 ?F3RGM/TF(+H2023"27MSA7RI2 	D3M;E3S?I+NCS7NSO2 ?C3N	S3SWT+N	T*MBJ. F 24Z 3O7R+AT.1CH.,
43H;I7CKO3ROE3T: 3UKM+ECR+OCF7DSA3AN 3ASR3SZ +OCR7MSA7RI2 &,"46)*JB . V12 ?F3RGM/TF(+H2021"8+GCO+OCN+TCO7NE3TN 3AWS")*M* B *1B67FKO7MSA2("1.0F,21WH+NCD+OCF7COAE6)"J	C3OWP+N" 3U	N/TV=2,R 3E	V/C7E2	SC+R2	2 OA7COE+S^=7SGE+I
N")*M3C>I3P;E6 V(7NSI*=262 WD3VOI+E^=7LSP*	B,3AOC7EOS6=N	3E?Q+U
T")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 ^ 7RSI/EZ(.,B1")*M* B *2B03C3A3L6 3A	T3N&(3CSO3AF,.,B1*020+N3A+M3A3MGS2,WIR6)*JB * B 2 [I2(: +A& . V2.,V9.,V2*MBJ. J 25& 3F&(+E7R*1B)*420
320"365*JB . B36 KW3IWT*(26*1&12 OI3OGD*MBJ* B 2 ^ 7OR /OR "5*M* B *3B53W	R+TE.6F,*4B)3I?CD7A*JB . ^36 KW3IWT*(26*1&2*MBJ* B 2 ^ 7OR /O& "5*M* B *4B03C3A3L6 7XWO3T&(3CSO3AF,2,GN2,GM6,OM/AZ,.0F,*220"26)*JB . V42 GC+LCL7MSA+IN3I?C+D3B/BF,.0B02,KN2,KM6,OM3B&
+E	R*MBJ* B 2 & 3F&(+E7R*1B)*620*520"565*JB . B56 KW3IWT*(26*1&12 OI3OKD*MBJ* B 6 ^ 7RSI/EZ(.,V1")*M* B * B +GCO+TCO"260*JB . V56 KW3IWT*(26*1&42 OI3OKD*MBJ* B 2 ^ 7OR /ON "7*M* B *6B0+IF+N7A+N	B. V7.,B7.,V7*MBJ. ^ 20& 3F6(3A6-+BB)*725*820"765*JB . V76 KW
IWT*(26*1&3*MBJ* B 6 ^ 7RSI/EZ(.,V1")*M* B * B +GCO+TCO"260*JB . B82 GC+LCL3M?X+UT3I?C+D3B3B:,3B6,3B6,+S3B*620.1B2*,&2*MBJ* B 2 & 3CSO3R&=3CSO3A&+3CSOB*M* B * B 3C3A3L6 3ASD*(3A7BJ,2,GN2,GM6,OM3A6,+S	B*MBJ* B 2 6 /S7R3MGS*MBJ* B 2 & 3F6(+S7A3MKS.)& .0&,.0
,"5*M* B *8B57MKS6=OMB*M* B *9B03C3A3L6 7XWO3T&(3CSO7RJ,2,GN2,GM6,OM/RZ,.0F,*220"26)*JB * B 6 KW3IWT*(26*1&6*MBJ* B 2 ^ 7OR /OJ "0*M* B "9&53C;O3T;IU7E*JB * B 2 ;ED*M"ZB"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