File AVCAL.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 [A3C3A2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 B 3E[R3O7R2 T3EN 3AOL7UWL3S> 3FF 2 GF3C?T3RGI3LV 3XWP3R7I7ESN6 OU3I
N2MNJ* B * B * B 2 > 7PKE3A?T7RN 3I7G3AF +NCD3OWP7RSA+OCR3D3E+T;A6 R 7HOI6 WS3B?R3U	T+NCEI7S*JCC* B * B * B 6 KP3EWC3DSE6 	B6 WS3B?R3U	T+NCE7A[D+ACT3ASN2 ?F3L?L3WSE6 	B6 WS3B?R3U	TN7E*JCC* B * B * B 2 WM7AGN2 ;I2 T7EB 3E[R3O7R3AON3E> 3FF 3N3A3Y	S3S> 7FZ 3
	R3AON3EZ +OCRA*M+CB * B * B * B 3C7O3PWL+TCE3FOA7TKO3I3A2 WD3S
IN6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 [A3C3A2 .(2,WL3V3E*,3X3L&,3SWT3P2,7ASSS6)"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 * 
 2 WL3V3E* B-7ICN+UCT3VOE7TKO2 [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 +XB * B 2-& 7NWP7TZ 7ESC+OCR3C;O3T	A3N;I3GR 3AGT*.B 7DSA3A" 3AWV2 WB+ECN3PGL3CSE2MNJ* B * B
* B * B * B * B 2 ;I2 WV3C?T7R" 6 	B6 WS3B?R3U	T+NCE3ASV+A;T6 R +HCE3L;E3GT2 [O" 7X*JCC* B * B * B * B * B * B +ICS2(WL3V3E*(&1*+&12*2(3EWV/LJ(.)F+*):**.*.2(WL3V3E*(	K*+&1".*M+CB * B * B * B +LB * B 6-R +HCE7POO3I	T+OCN+ICN3VOE7TKO* CX3WWH+RCE3TWH2 GL+SCT
ICN+UCT7DSAA*M+CB * B * B * B * B * B 2 & 3S2 3OGC3TSE*.B 3L" +ACS3BWE3NN 3AOL3UGL3TSE6 	B6 WS3B?R3U	TN7E*JCC* B * B * B * B * B * B 3ASV+A;T2MNJ* B * B * B 2 & 3SWT+P6 2 ;I7PSU2 WV3C?T3R> 3F2 3E
N+TCH3KN 7OSN3A;I3I
N6 SS3OGR+GCE3C;O3T?RL*M+CB * B * B * B * B * B 6 N 7TCE7S^ 3HOI3H" 3AWV2 WB+ECN3C3A3C3U3AWT3DJ 7YN 7UKB7OSU3IWN2MNJ* B * B * B * B * B * B 6 [A7DSA".*M+CB * B * B * B 7LOA+TCS6-^ 3O/R3I
N2 WV3C?T3R> 3F2 3E
N+TCHK6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T+ICS3SKU7RWO3T;I3E6 7USS2 ?F3L?L7WN 7UKB7OSU3IWN6 [A7DSA".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 
 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,*J
C* B * B * B . &1*6222 C7ASP+ECR*2:02MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3AOV+ACL*(3K7L[E+E3L3X2,6,OI7TCE2,GL7SOT")*M* B * B 3D7I7EON3I;O2 WL3V3E*(&1*,X*12)7ISS
EP*12)7LOA+TS"16)"J7C*JCC* B * B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B +ICF3AR 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7SJ 7OSU3IWN6 OI2 WD7SKI+E3D2 TE*M+CB * B * B 3C& 3NN 7OWL+MCN61N 7HWO+
CD+BCE3R7E3OWV3DZ 3R7O2 T3ER 3OKU+LCE3PWR7COI3I;O2MNJ* B * B 6 N 7TSA3EWM+NCT3W	H+CCH3F3O7L
OS6."J7C*JCC* B 2 ?D3U3B7EB 3ROE3I	S+OCN7XN,U7M"J7C*JCC* B * B 2 T3EN 6 WM+SCT7AOL3OJ 7EJ 3E?M3VSE6 KF+OCM7DWO3BWL6 KP3E	C3S?I7NN 7TSA3EWM7NOT2MNJ* B * B 2 F 3PWP3A	R+NCG+ICN3OT+ECR7RWO3T;I+ECS3UWS3D& 3NN 3O+N3UON3T?I7N^ 3IT2 TI7S*JCC* B * B 2 ?R3U	T+N;E2
NJ2MNJ* B * B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JCC* B 2 GC7LWC7LSA7ER +HCE7LOA3TR 3AGT2 ?P7SSI3I;O2 [O2 GE+CCH3FOA7TKO2MNJ*MBJ* B 2 2 7ASS/SF(2)2="+61*JB * B 2 ?D. R125& *=22K*M. F *4B57LOA+TS/I6
7LOA+TS/IF-2)&+3SWT3P&(")*MC*M+CB * B 7PKE7FKO3MN 3AOL7UWL3S> 3F> 7PKE3A	TO7N"J7C*JB .1B52 ?D. ^125& *=21K*M* B * B /LF=*MBJ* B 2 2 /LF=*MBJ* B 6 N /U7M.0B.*MBJ* B 2 : 3N2=3EWV3L&(")*M* B * B /F7NN7N*JB * B 2 ;I3CWR6=OI7TCE*(	I*MBJ* B 2 2 7ASS2=GL7SOT*(	I
MNJ2MNJ* B 6 N 3I7G3A> 7PKE3A	TO7N"J7C*JB .1V52 ?D. Z120* *=21N7N*JB * B 6 WS7MN=+U/M3X2(")*M. F *6B03L2=2+;I3CWR*MBJ* B 6 " *(	L6=WSM*MC*M+CB * B 3D3E+TCA3OWP7RSA3I;O2MNJ*MBJ* B 2 R /OF *6B5/JF=2,;N*MBJ* B 6 " 2(3L2)Z=7N"*2(3L6)N-U7M*JB .1V62 3L2=3L2+;I3
WR*MBJ* B 6 N /U7M.0B.*MBJ* B 2 & 3F2(2-GL+S	T. Z1*7B,.1V7.,F "765*JB .1^62 [I*(7L7LOA3T&+7NKC+EB).1"6.,F *628. ^1"0*M. F *6B83L2=2+;I3CWR*MBJ* B 2 2 3L2=3L&+7NKCE*M* B * B +GCO+TCO.1V5*MBJ. ^1202 *=/L3ION+R/E212-7ASS*MBJ* B 2 2 3L2=3L&+7NKC/EF+2-GLS7T*JB
* B 2 ?G2 ?T. V1"5*M. F *7B53C;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"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