File DCSPS.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 7UKB7OSU3IWN2 OD7SOP2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT7SR +HCE3V3A+UCE+OCF+ACN7NR-3E7R6 E3P;A3S?I3N& 7NN 3H[I3TSE2
NJ* B * B * B 2 N 3HKE3YS+ECV3P3O3Y?N3MGI+LCS7WSI3HN 3O[E3FOI3I;E7TZ 7ESC+OCRC*M+CB * B * B * B 7FKO6 KA3G7U7ESN2 GV3LWU* ;X2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 7CCS7S&(*,3X3C:,")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +YB * B 6-J 7EWS+LCT3V3AU7E*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 3A	R3A3BE*M+CB * B * B * B +XB * B 2-F 7RWG3M;E7TZ 7AWLE*M+CB 
 B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 GV3RGI3BWL2MNJ* B * B * B 2 N * B * 6 2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3F^ 3IWV3NV 3XGP3N	SO7N*JCC* B * B * B * B * B * B 3CWO3F	F3CWI7NOT6 KA3E> 3RWD3RSE6 KF+OCM7L
O2 ?T2 	HG7H*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 7ESCO7R*JCC* B * B * B * CN* B * B-3D7I7EON3I;O2 [O2 ?C3E[F3I	C7ESN2 WV3C?T3RN 2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 > 7PKE3A	T+OCN+ICS7BCY7AOS+ECD+ICN7COA3E: 2 WL+SCS3TGH/NF 2MNJ2MNJ
 B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3D[E3I	N3T?IN*M+CB * B * B * B 7YN=+UM3C&(6)R*3S&(*-21+X2)6 WS3MWM3D> 7VKE* CI3F?R/MF 2 ?T* 	N".*M+CB * B * B * B 3EGV3
GU3T?I3N& 3SR 3OWN6 	B2 WM7AON2 [O2 GB7C
K3ASR2 WR7CKU3S?IN*M+CB * B * B * B 3U	S+NCG3TWH2 WR7CKU3R;E+CCE7EWQ3A	T+OCN7FKO2 S7ISFE7D*JCC* B * B * B 2 C7E	B3SWH7VB 7O	L3N7O3I3AS*M+CB * B * B * B +TS/NF+*,	X.=R(**7X*2*)+TS7N",6)R-3S:(*-21+X:)2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*
:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7DOC+PS7Y",*,3CN6)"J7C*JB * B 2 	D3M;E3S?I3NN *(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3C7Y",.,CH.,GH.,KH6,KAG*MC*M+CB * B * B 7TOE3T> 3FR 3IWM3N	SO7N*JB * B 2 [I*(	N.1F,",62*JB . F 2 
R7TKUN*MC*M* B * B2+IF/NJ-*)23.4R,*MBJ* B 63& *=C"16)*JB * B 2 WR7TKUN*MC*M+CB * B * B 3I	N3TGI7L+I3A	TO7N*JB . R 6 KA7G"=*+7X21R."0*M* B * B 3A
R6=KA3GF+R7G*JB * B . GH*=:0D60*JB * B . CH*=:0D60*JB * B 2 ?D* B5/IF=",7N*JB * B . 7K3N&-*MBJ* B 2 " 22"="1*M* B * B /H61H60*JB . V . CH6=KA3G"*21"-22N+*(/K"16)*JB * B . 7Y.0V.+D*0*(C*16)+H.2+H&0*MBJ* B 6 J 7EWTR7N*JB * B 2 ;ED*M"ZB"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