File AXIS.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE3A	X7S"(3P
A7E&,3P
A3E&,3BSC2,ON7HKA6,A3L;E2,;A3GWL2,	F7RSS3VR,7ESL+A	V2MNJ2MNJ2IGP3R7A3EWT7RN 7E+T+ECN":*MC*M3CNI3A3L6 A+ICS6(SX7IOC6,SY7IOC*,203MSO+U3L.9&96.*,*,3T.0B.")*MC*M2I	D3M;E3S?I3N& 3BSC*(&22MNJ"M&J7EWQ3IGV3L;E+CCE2(3X3SJ,*)",3XOL*,	D6,&(3V3A*,	A2MNJ2MNJ6ISS3ASN3A
R2 WW3RWT6 WF+ECR3TOI* B-3LWA3NWG2 ;U7D* 3EOI3H;E3HWOH7E"J	C3SGT3NGD+RCD7WKE+TCE3FWU7RR +ICC2-F 7BSS3ASN2 ;U3DJ 3EOS3H	R7FWTN7G"J7C"J	C7DSA7AR *,3Z+Z3H+Z223X	T+C3S3Y	T+CCS./B *.B2.,B ..^2* B,.0F.*3B5.,B ..R5" 6,"J	C.1F *.B0.,J *.B0"/*MC*M*ICT.=B ".626J*I*
B=.0N."5*M2IZ* B=.0F."7656J*I.26 * :0"7*M6ISX7IOC* B="16.6J&I3TOI/S6 * :22MNJ2MNJ2IGP3R7A3EWT7RN 7E+T+ECN"?*MC*M2I[I2 F(3XWL/N&-*9:9.)V .0F,.1B0.,B52MNJ.MVJ60NI* B=3T	S3NF(3N3GE6)2JNI* B=3T?C3SF(3N3GE6)2JFI* B=.1B."M&J/B6 * :2"0*M*ICD.=F ".602J&I+ECX.=B "
&J+NCC2=: 3CGHR*MC*M2I[I2 :(+CB).1B0.,B3.0N,"060.JB120FI* B="-7A2JJI* B=.3B."M&J/D6 * :3"0*M2ION* B=2-ON2MNJ.MNJ"0&03L3F+ACG.=B "M&J3D3E/T6 2 KA3SR(7ESL+A	V.MRJ"0&0+ICF2(WD+L7T.1B0*.B).5B0.,V4.0R,"560.JV420RI7ESL* B=3D3E/TB*".612J&I+ECX2=& +E7X"1*M2I?G+TC
.4B0.MVJ"0&0+ICF2(WD+L7T.0B.*1B).5B5.,B6.0Z,"060.JV520&I+F" 3D3E/TF-*.&0. Z5.0Z,*020.6B0.MVJ"6&03D3E/T6 2 WD+L+T*1:0"0*M2IWI/X6 2 WI/XF+"M&J7GSO/OV "560.JB660"I*1B0.=F .0B.2*&*E7X6J"I3V3A* B=7FKI7S[T.*GX"0*M2IWD+LCT2=R 7ESL+A+V/XB12MNJ"M&J+DCX*=6 Z*M6I	D*
B=+A"*7D**7HR+")*M2I;X* B=3XGP+G/E+D+X3CR-7YN*"M&J+YCN6=& 3P
A3ER+7XN*6+	D"*7C"J7C2JRI/X6 6 A3L;E**:025Z-3LGO3T:(+C*)Z7H2J&I+F" 7IE.)Z *520.6B6.,V6"0*M.6B56ID* B=+D7X+Z+H3F?L+AT3IKA3S&(+E	X")*M.6B66I	D* B=+A"*7B***+	T"M&J+XCT6=" 3P
A3ER+3XN*6-	D"*7S6J&I/T6 6 CY3AWG6+D**/S+D+YC*MC*M2I7X+OCD2=F +BS3XGV+L.)7AOB2(WD+L+T3A3X+E	N2+KA7S"(*1&0"M&J+ICF2(7I+O	D. ^6.0Z,*820.6B7.MZJ"7&03X?M3D&=3MSO.MZJ"8&0+XCL6=" 3P
AE*M2I3Y* B=3YGPG7E6J"I+LCS6=" 3TOI7SN*"M&J3XOL* B=3X	T+C+SC*MC*M6I	D* B=3TF*"M&J+DCX6=N 6*	D"M&J+DCY2=N 6*	D2MNJ"M&J7MA* B=3A3X+E?N3Y	TC7S2JRI/OF .0B0* CI.=B * B,7MA"M&J3YGV/L6 2 7A+OD3XGV7L",3MSO")*M*ICJ.=J "M&J+ICF2(	A+NT3YGV+L6)3YGV+LB).7B0.,&6.0^,"06
.J&620*I* B="-61.JB720NI3A3L6 WN3MWB+R" +X3N+Y3N7Z&,3V3A2,;A3GWL*,	J"M&J+ICF2([L3L
A.)^ *220.7B1.,J7"0*M.7B12I[I2 &(2-GM/XJ/.)^ *220.7V1.,J7"0*M.7V12I[L3L
A* B="1*M.7B22I[I2 2(3FGL+GB).9B0.,B9.0^,"360.JN720NI3A3L6 	S3M?B+L" +X3T+Y3T3Z&,3BSC2,;A3GWL2,ON")*M2I[I2 &(+E	X. R7.0",*020.7B4.M^J"4&03C3A7LN 3YKM+OCL.(&9*92..9&96.*,*,B	**^ 2,;A3GWL*,&3"M&J7IE.16 2 WIX*M2I[I2 &(/EGX.)^ *520.7B6.,Z7"0*M.7B52IWI+XB1*=6 
1*M.7B62IGC+LCL3N7U7BKE. &(*9:9.,&9*92./ZF,.0B.**"*2-WI+X2)3A
N+L3E7IE"16).JB8202I3FGL/G6 . F-.M&J"0&0+XCN6=" 7N&+3TOI3SN*"M&J+YCN6=& 7N&+3TOI7SN*"M&J3XGV/L6 6 [X+A/L3Y	T+C+S3D3ET*M2IGC+LCL3P?L+T" +X3L+Y3L"36)2J&I+F" 3I6-+A	X. F9.0F,.0B5.,F9"0*M.9B1*ICK6=& 3TOI3SF/3MSO6(SX7IOC6,SY7IOC*+:1*07E"66)2JRI/O& *5B0/J6 * B1
,. "M&J3C3A7LB 7LSO6 "(3LR-7X&,3LR+/YJ,")*M2IGC+LCL3P?L+T" +X3L+Y3L"26)6J"I/L6 2 3X2+3XC*M2I3Y* B=+Y/L7XOL"M&J3C3A7LB 7LSO6 "(7L&,/LJ,")*M2IGC+LCL3P?L+T" +X7L+D3X+Y/L+D3Y"26).JV920NI7OSN7IWNE*M.1B020NI7OSN7IWNE*M.1V060JI7EWTR7N"J7C"J	C7PKA3AWM7TKE2 WU7BKE
NE3M;E2MNJ.MFJ.1B02I[I2 F(3N3G+EB).1F1.0F,.1B5.,F1"160.JF1"1&0/Z6 2 ;A3GWL"M&J+ZB2.=J *.*0Z*M2IZ* B=.0V."*7Z.JF1"5&0+ICF2(	F7RSS+VB).1Z1.0F,.1B7.,F1"660.JF1"6&0/T6 2 	F7RSSV*M.1^120&I+F" 3XGP+G	E. F1*820.1&1.0F,.1B8.MFJ.1B86ISX7IOC* B=3XGPG7E.JF1"9&0+ICF6
CY3AWG.)F .2B0.,J1*120.1B2"0*M.1B260&I3TOI/S6 6 CY3AWG.MFJ.2B12I7I+OCD2=: 3CGHR*M2IWR7TKUN*M2I;ED*MBLBZ

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