File AVDAT.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 [A7DSA2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 B 3LOA3ER 3AGT2 ?F3RF 3N3A3Y	S3S> 7FZ 3A	R3AON3E& 7NB 7RCO3E3R3YR 7ISS
RKI3UWTD*M+CB * B * B * B 7POO3I	T7OON2 [O6 SS3OGR+G;E6 R 7HOI6 WS3B?R3U	T+NCE+ICS7NKO3M3A+LCY3F3O7L
OE7D*JCC* B * B * B 6 	B2 GC7LOL2 ?T6 [A3C3A2 ;A3D6 3E;A7QN 7UKB7OSU3IWN3S& 7NR +HCE7PKE7FKO3M;AC7E*JCC* B * B * B 2 [O2 ;A7A	L7SOI2 [O2 GV3RGI3NWC2 ?F3RF 2 ?C3M3P3EWT2 GF3C?T3RGI3LR 3E	S+G;N2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 3VGD+T" 3K2,3EWV3L:,*,3X3L&,3SWT3P.,3O;UT6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CK* B * B-3N7U7BKE2 [O2 GV3RGI3BWL+S" 3FOA7TKO+S:)* CK7MOU3TJ +E: +G;T2 ;OE6.*JCC* B * B * B 2 WL3V3E* B-7ICN+UCT3V
E7TKO2 [O2 WL7NSG3H. 2 ?C3NGT3I	N+NCG7L[E7EOL2 N(3AWT"-*M+CB * B * B * B * B * B 2 ^ 3O	R+E	S2 	W3T	H3NV 3AC2 GV3RGI3BWL".*M+CB * B * B * B +NB * B 6-R 3OGT3L: 3UKM+ECR+OCF7DSA7AB 3O;I+TCS3RGE3D& N6.*JCC* B * B * B * CX* B * B-3WWH7NR +HCE3SKU7RWO3T;I3E& 
SN 3A3L+E3D2 T+ICS3VOE7TKO2 ?C3NGT7ION2MNJ* B * B * B * B * B * B 2 GD+TCA+ICN3LOO3A	T7OON* X*1B)7TKH3O
U7H" *(	N*.B 3U?P7NJ 7EWT3R	NN7G*JCC* B * B * B * B * B * B +TCO3TWH2 GC3L	L+NCG7RWO3T;I+EB,3TWH2 WV3C?T3RN 7OSN3A;I7SR +HCE7DSAA*M+CB * B * B * B * B * B 2 & 7NB 7RCO3E3R7YJ 3E	D7SKT7IWB3TSE2 ?L7CSA3I;O3S> 7FZ 7ESC+OCRX6.*JCC* B * B * B * B * B * B 3TWH2
WL7NSG3H> 7FZ 7ESC+OCR3X& 3SN 3AOL3UGL3TSE6 	B. F(2)F 3D	DN7G*JCC* B * B * B * B * B * B 3OWN2 ?T2 GE+CCH7L[E+ECL+OCF7VKA3IKA+LCE3ASN. J(2)> 3BGT3I	N+NCG3TWH2MNJ* B * B * B * B * B * B 6 WC3M3U3A	T+VCE3P?R3DOU3T> 3FF +LCL7L[E7EOL*.B 2(T3E2 3E
N+TCHO7F*JCC* B * B * B * B * B * B /X6 2 2(3EWV/LF(.)F+*)"*7L[E+EL*2.)*1*)*.:.2*2(3EWV3L.(.)F+*)&.2MNJ* B * B * B 2 2 * B * 6 6 WO7TWP7TZ 3A	R3A3B3EN 7OSN3A;I3I
N2 T7EB 3O	S3T?I3N& 7NZ 7ESC+OCRX*M+CB * B * B * B * B * B 6 ^ 7HKE7ER +HCE7LOA3T& 7NWP3TR 3AGT6 OI6 SS3OWRD6.*JCC* B * B * B 6 OI7TCE* B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH3KN 7OSN3A;I3I
N2 ?C7NKT+OCL3SWTP7S*JCC* B * B * B * B * B * B 3W	H+CCH3AWR6 OU+ECD+TCO3LOO3AWT2 GD+TCA+ICN3P?R7PKE2 ?P7SSI3I;OS*M+CB * B * B * B * B * B 2 > 7FZ 7ESC+OCRX6.*JCC* B * B * B 2 ?K7USN* B-7WKO3K;I7GZ 7ESC+OCR+OCF3L;E3GT* ;K2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* 
 * B * B 2 & 7NWP3TR 3AGT6 WM+SCT+BCE7AKR3A
N+ECD+ICN3TWH2 ?F3L?L3W;I3G6 3A;N+E;R2MNJ* B * B * B 2 N 7OON3IWD7RR +HCE63Z-3A	R3A3B3EF 3N3A3Y	S3S> 7FZ 3A	R3AON3ER 3E	S+G3N2 W3EWR2MNJ* B * B * B 2 > +NCE7VKA3IKA+LCE7HOA* B37L[E7EOL2 ;A7DR +HCE3OT+ECR3T?W2 GV3RGI3BWL3S" 3AWV2MNJ* B * B * B . J 2 WL3V3E
SB.2 T3ER 3AGT2 GM3YJ 7EJ 7EKP3EWS3NWT3D& 7NR +HCE7FKO7M" *(3I3J.,")6,*JCC* B * B * B . 7I.1J,*,B3. 7J.1J,2 . *=21*2B.2 ;I6 KA3R;A3G;I3GR 3AGT6,R +HCE3I;NE7R*JCC* B * B * B 6 WS3BOS7RCI+TB,3N7A7E	L* 3I2 C3A
N+ECS7FKI+S;T6 ^ 3H;E. 7I*3B,3TWH2 WNX7T*JCC* B * B * B 2 ;I7NKE6 WS3BOS7RCI+TB,+JB,3CGH3NWG3SF +NCD+SCO+OCN7USN+ICL/IN=2,* *=222 ;AD*M+CB * B * B * B /KJ=".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3
WN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T3E6 3ET+OCD+ICS7BOA+ECD+OCN3TWH2 WT3C;H7IWQ3ER 3IOS7UOS+ECD+BCY+HB.O6.*JCC* B * B * B 2 GH3R3T+ECY+ICN2	GM3TWH7MSA3IGC3L6 3ET7OOD2 ?F3RR 3I	G3T3A2 ?C7MWP7TKE+S2	2MNJ* B * B * B 2 V 7DSI+ECD+BCY+AB.3R3A3S?T3NF
+NCD+HB.3W3I+FB,3JO7N^ 3IWL3YF +NCD3S;OS6,*JCC* B * B * B . &1*6222 C7ASP+ECR*2:02MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3ASV+ACT*(3K7L[E+E3L7N",*,3L7ISS+E3P7KWO+N
T*MBJ* B 2 R 3IWM3N	S+OCN7L[E+EL*12)/XF(2)&,3SWT/PF(2).,3O;U/TF(")*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 2 & 3FF 2 ?D3U3B7EB 3ROE3I	S+OCN7VKE3S?I3N> 7FR 7HOI2 ?R3U	T+NCE+ICS7DOE
IWR+DB,3TWH2MNJ* B * B 2 N 2 ;I2 ?C3L7U/NF 2 S3O3U3DJ 7EJ 3E?M3VSE6 KF+OCM3TWH2 ?D3U3B7EB 3ROE3I	SO7N*JCC* B * B 6 SS3AWT3M;E7T^ 3HOI3HZ 3O3L7OOW".*MC*M+CB * B 7DWO3BWL6 KP3E	C3S?I7N" 2MNJ2MNJ* B * B 6 R +HCE3C6 7USS2 3A+SCO+BCE3R7E3OWV3DZ 3R7O2 ?D3U3B7EB
3ROE3I	S+OCN3SGT3T7E7ESNS*M+CB * B * B 7ACP7EKA3I
N2 ;I6 SO7HKE2 ?R3U	T7NOE6 OU+ECD+ICN3C;O3J;U3C	T+OCN7WSI7HR 7HOI2MNJ* B * B 6 J 7OSU3IWN".*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 2 N 3AOL3UGL+TCE7TSO+ACL7DSA3AF 3RGE2 WR3Q	U3RSE2MN
*MBJ* B 2 6 2=WL3V3E*(&1"+61*JB * B 2 ?D. B125& *=22K*M. F *0B53M6=2*2(3EWV3L&(.)F+")*MC*M+CB * B 7M[O3ER 3AGT2 ?T2 T7EV 3PWP7RB 7ASR2 [O2 T3EF 3RGR7Y" 2MNJ* B 2 Z +OCR3TWH6 WP3R?P+SCE+OCF3RGE3RGR3NWG3M;ET*MC*M* B * B /N61/MF+*MBJ* B 2 : 22:="+61*JB * B 2
?D. B127& *=21N*M* B * B /N61+N61"1*M* B * B /N62+N62"1*M. F *0B73X:(.16)3X:("26)"J7C*JCC* B 2 GC7LWC7LSA3E6 7USL3I3P7IKE7SR 3OJ 7EV 3SSE2 ;I2 	F3N	D+NCG3S?T3R
A3E2 3OGC3T?I+NCS7FKO2MNJ* B 2 & 7NWP3TR 3AGT2MNJ*MBJ* B 2 & 3SWT/PF(.)F=*MBJ* B 2 R /OF *1B0/IJ=",7K*JB .1B16 OI7TCE*(	I6=OI7TCE*(7I*1*)2(WL3V3E*(7I*1.)"16)*JB * B 2 ?D. F125& *=21K*M. F *1B57KWO+NT/I6)"1*MC*M+CB * B 3PGL+CCE7DSA3A& 7NB 7RCO+ECR3LOO3A	T7
ON2MNJ*MBJ* B 2 : 21:=.1F-*MBJ* B 2 R /OF *3B5/IF=",7N*JB * B . 7L7KWO+NT"16)*JB * B 2 ?D. J120* *=22K*M. F *2B03L2=6+OI7TCE*(	J2*.(3O;U3T*(.)F-")*M* B * B /N61+N.1"1*M* B * B 3X2(6)"=.(GN")*M* B * B +DCO.1B3. 7J21.,*MBJ* B 2 & 3F.(3O;U3T*(2)2-3EWV3L*(*)B
.1R2.,F *225. J1"4*M. F *2B47KWO+NT/J6)7KWO+NT+J.)"1*M* B * B +GCO+TCO.1V3*MBJ. J125. 3O;U3T*(.)F=*MBJ. N120N 7OSN7IWNE*M. F *3B53C;O3T;IU7E*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

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