File DASCR.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 ?F3RR 3AGT2 OS3RWE3N;I+G6 2 GD7SKC2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 B 3E[R3O7R2 GD+TCA7SKC3E;E3I
N2 GC7LWC7LSA3I;O3S> 3NF 2 WS3T> 3F> 3BWS3RGV3T?IN7S"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3SKUS7T*JCC* B * B * B 2 GTB61*JCC* B * B * B 2 ?LC*M+CB * B * B * B 3B?OL*M+CB * B * B * B 7HOIT*M+CB * B * B * B 7MSAI7N"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 7DKE3IWV* CA3SKU7SSE2 [O2 KO7SKE7VSA3I;O7SN 3A	T7S	F3I
N2 WC3RGTI7N*JCC* B * B * B 2 ?C3N	D3T?I+NCS+OCN3TWH2 GV3RGI3BWL+SB.7FKO2 T+ICS3SKU7SSE6,R +HCE3FWR3QWU7N	C2MNJ* B * B * B 2 > 3FF 2 WS3LOE3TSE2 GV3RGI3BWL6 [O+ECR7G[I+ECN3CGL+SCS7ISN7E[R7AOL6 OI2MNJ* B * B * B 2 > 3BGT3IWN+DB.3T	H3S& 7SB 7LSO3TSE2 ;I2 T3
Z 3O7R2 [O* CA7HOI3T
O3R7A".*M+CB * B * B * B 7TSO+A3L6 [A3EGR+G3E6 SS3ASN3ASR2 WD3VGI3T?I+NB,3M;I7IWM+MB,3ASN2 GM3X7IU7M*JCC* B * B * B 6 KA3EF 3L?S2 GC7LWC7LSA+E;D2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB
* B 2 	D3M;E3S?I3NF .(B1*0&0*,C*6&32,KU/ON(6)N,.(B2*02)/RJ(*12)3FWR/QJ(*02)*MBJ* B 6 B1+CT*2&06,SS7AOT*(&5*MBJ* B 2 V 3XWT3RGN3LJ 3O3O*MBJ. F 20Z 3O7R+AT.1GH.,J23HGD+TCA7SKC3E;E3I
N6 KP3O3B+E3M+I&3*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(+H2024"23ION7OKR7ESC6 WN3MWB3R> 3FR 3AGT2 GC7ROD2 ?F3R6 7AKT+ICX.,SI
)*M* B *1B47FKO7MSA2("1.0F,28
H3O> 7NR 3O: 7ESX2 GC+S	E*MBJ. F 25Z 3O7R+AT.1CH.,F13H;E3D> 3FN 3AWS")*M* B *1B67FKO7MSA*("7+F:220Z,.1B..,
F*.&0")*M* B *1B77FKO7MSA2(Z3*1:0"06)*JB . "12 ?F3RGM/TF(+H2021"33SKU7SSE2 WV3C?T+R>,*/&/*MBJ. F 29Z 3O7R+AT*1CH.,OI.,WF*.&0*MBJ. J 20Z 3O7R+AT.1GH.,J37HWS3MGM+RCY3SGT7TOI3TOI3SZ +OCR7VKA3IKA+LCE.,OI")*M* B *2B17FKO7MSA2("1.0^,3H?T3T3A* 2=/FB1*.23*23X29GH
VKE3AWG* 2=/FB1*.23*23X22"03SGT3NGD+RCD7D[E*MBJ* B 2 &13A	T+OCN2=Z,*1:0.3J,/X&,3H	M3N7I+UCM2=Z,*1:0.3J,/X&,3HGM3X7I+UCM2=Z,*1:0"36)*JB . J22 ?F3RGM/TJ(+I&22MNJ2I?D3U3B7EB 3ROE3I	S+OCN7TCM3F3I2,	FL7E"J	C3OWP+N" 3U	N/TV=2,R 3E	V/C7E2	SC+R2	2 OA7COE+S^=7SGE+

N")*M3C>I3P;E6 V(7NSI*=262 WD3VOI+E^=7LSP*	B,3AOC7EOS6=N	3E?Q+U
T")*M3CZI3IWL* B=7TCM3F3I6(N	+S
P")*M3C>I3P;E6 V(7NSI*=292 WD3VOI+E^=3D/S*	B,3F3I3EZ=3IWL2,F 3CWC/S7S2	WS3Q;I7OSU"	6,"J	C21RI7ICS3OWS2=R	3EWL+T
E")*MC*M* B * B /K7C"0*M* B *2B4/K7C+K/C"1*M* B * B 3C3A3L6 3A	T3N&(3CSO*,3A.1B020:,3O:,3V6,3S&,+E	R*MBJ* B 2 & 3F:(+OB)*225*520"265*JB . V22 [I2(WI/RF-.)R .0N,.0N,"5*M* B *3B03W	R+TE.6F,*1B)3I?CD*M* B * B 3W	R+TE.6F,"46)*JB * B 2 ?G2 ?T. R2*MBJ. N 65^ 7R
I/EZ(.,N1")*M* B * B 3W	R+TE.6F,"26)*JB * B 2 ?G2 ?T. B5*MBJ. R 60J 3ESA*(25*2&2+N3C7N[OA7R*JB * B 2 OJ2=ON"*63*JB * B 2 WR+AD.5F,*6")3C&(2)&,*=21+J	C*MBJ* B 6 J 3ESA*(25*1&72(KU3O&(2)&,*=21"36)*JB * B 2 GC+LCL3SKU+ST3AN,*,3R3B?O7LN,2,?N6,[N2,ON")*M* B * 
 3W	R+TE.6F,20.)C*M* B * B 3W	R+TE.6F,"86)*JB * B 6 KW3IWT*(26*1&92 &(*,S+I2)/IF=2,?N")*M* B * B 3C3A7LR /AGB*(3A3S:,3OGV7RV,+B3O3FWR7QB,+C3T3SGT+T3S+N3O+N	V*MBJ* B 6 ^ 7RSI/EZ(.,B22): 3OGVR*M* B * B 3W	R+TE.6J,*1")3SGT+TS+I2)/IF=*,&5*MBJ* B 2 * 7ZV=+BO"2
)*JB * B 2 GC+LCL7HOI3T.(3CZ,7RGE6,+J")*M* B * B 3W	R+TE.6F,"56)*JB * B 2 ?G2 ?T. R2*MBJ. V 20NI7OSN7IWNE*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

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