File DCSPS.FT (FORTRAN source file)

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

4303 5215 5303 0240 5240 0240 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 
6311 2716 6240 1704 6723 1720 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6717 0315 
6325 2724 6723 2240 5310 0305 6326 6301 5325 0305 5317 0306 5301 0316 6716 2255 
6305 6722 6640 4305 6320 7301 6323 7711 6316 4640 6716 1640 6310 3311 6324 2305 
6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6310 1305 6331 4323 5305 0326 
6320 6317 6331 7716 6315 0711 5314 0323 6727 2311 6310 1640 6317 3305 6306 1711 
6311 7305 6724 3240 6705 2303 5317 0322 4303 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6706 1317 6640 1301 6307 6725 6705 2316 6240 0726 6314 2725 5240 7330 
6215 1612 6215 1612 5240 0240 5240 0240 6640 2640 6323 3701 4305 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6303 6301 6314 2240 6703 0323 6723 4650 5254 6330 
6303 7254 4251 5215 4303 5215 5303 0240 5240 0240 5240 0240 6704 1705 6303 4722 
6320 4724 5317 0316 5317 0306 6720 1301 6301 2715 6724 1305 4323 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5331 0240 5240 0240 6655 1240 6705 2723 5314 0324 
6326 6301 4325 6705 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6716 3240 6301 4722 
6301 6302 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5330 0240 5240 0240 
6255 0640 6722 2707 6315 7305 6724 3240 6701 2714 4305 5215 5303 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 2240 6317 1325 5314 0305 6320 2722 
6703 1711 6311 7317 6240 0726 6322 0711 6302 2714 6215 1612 5240 0240 5240 0240 
5240 0240 6240 1640 5240 0240 5240 6640 6240 7703 6305 3306 6311 4703 6705 2316 
6240 2726 6303 7724 6322 7640 6306 3640 6311 2726 6316 2640 6330 0720 6316 4723 
4317 6716 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6303 2717 6306 4706 6303 2711 6716 1724 6640 1301 6305 7640 6322 2704 6322 2305 
6640 1306 5317 0315 6714 3717 6240 7724 6240 4710 4307 6710 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6704 2717 6302 2714 6640 1320 
6305 4703 6323 7711 6716 3240 6705 2303 4317 6722 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0316 5240 0240 5240 0255 6304 6711 6705 1716 6311 7317 6240 3317 
6240 7703 6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6322 1640 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 6722 1713 6215 1612 5240 0240 
5240 0240 5240 0240 6240 7640 6720 1305 6301 4724 5317 0316 5311 0323 6702 0331 
6701 1723 5305 0304 5311 0316 6703 1701 6305 7240 6240 2714 5323 0323 6324 0710 
5716 0640 6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 
6311 2716 6323 0640 5316 0304 6306 7325 6303 4724 5317 0316 6323 1325 6320 7722 
6307 0722 5315 0323 6722 0705 6725 1311 4305 6704 5212 0303 5240 0240 5240 0240 
5240 0240 6240 7716 4316 6705 4212 6703 5212 0303 5240 0240 5240 0240 6240 2715 
6324 7710 4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 6304 3305 6311 4716 
6324 7711 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 6731 1675 5325 4315 
6303 4650 6651 2252 6323 4650 5255 6261 5330 6251 6640 2723 6315 2715 6304 7640 
6726 1305 5240 0311 6306 7722 5715 0640 6240 7724 5240 4716 4256 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6305 0726 6314 0725 6324 7711 6316 4640 6323 2240 
6317 2716 6640 4702 6240 2715 6701 1716 6240 3317 6240 0702 6703 3713 6301 2322 
6240 2722 6703 1325 6323 7711 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6325 4723 5316 0307 6324 2710 6240 2722 6703 1325 6322 7305 5303 0305 6705 2721 
6301 4724 5317 0316 6706 1317 6240 4323 6711 2306 4305 6704 5212 0303 5240 0240 
5240 0240 5240 0240 6240 4303 6705 4702 6323 2710 6726 0240 6717 4714 6316 6717 
6311 6301 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 5324 4323 5716 0653 
5254 4730 5675 2250 5252 6730 5262 5251 5324 4323 6716 4254 6651 2255 6323 7250 
5255 6261 5330 7251 6215 1612 6215 1612 5240 0240 5240 7240 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 4256 6656 4212 6703 5212 0240 5240 0240 6640 2723 
6302 7722 6325 4724 5316 0305 6704 1703 5320 4323 6731 4254 5254 6303 4316 6651 
4212 6703 5212 0240 5240 0240 6240 4704 6315 7305 6323 7711 6316 1640 5250 4661 
5215 0212 5240 0240 6240 2240 6317 1325 5314 0305 6320 2722 6703 1711 6311 7317 
5240 6303 6731 4254 5654 0310 5654 0710 5654 1310 6654 1301 4307 5215 4303 5215 
5303 0240 5240 0240 5240 0240 6724 1705 6324 7640 6306 2240 6311 2715 6316 4723 
4317 6716 5212 0240 5240 0240 6240 3311 5250 4716 5661 0654 4254 6662 5212 0240 
5640 0640 6240 2722 6724 1325 4316 5215 4303 5215 5240 0240 5240 0262 5311 4306 
5716 1255 5251 6263 5664 2254 5215 0212 5240 0240 6663 4640 5275 4303 4261 6651 
5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6311 4716 6324 0711 6714 5311 6301 4724 4317 6716 5212 0240 5640 2240 
6640 1301 6707 4275 5253 6730 6261 2256 4260 5215 5240 0240 5240 0240 6301 3722 
6675 1301 6307 0653 4322 6707 5212 0240 5240 0240 5640 0710 5275 7260 4304 6660 
5212 0240 5240 0240 5640 0310 5275 7260 4304 6660 5212 0240 5240 0240 6240 7704 
5240 0265 5711 0675 4254 6716 5212 0240 5240 0240 5640 6713 6316 4655 5215 0212 
5240 0240 6240 4240 6262 4275 4261 5215 5240 0240 5240 0240 5710 6661 4310 6660 
5212 0240 5640 2640 5640 0310 6675 1301 6307 4252 6261 4255 6262 1653 5250 5713 
4261 6651 5212 0240 5240 0240 5640 6731 5660 2656 5304 5260 5250 4303 5261 6651 
5310 5662 5310 4660 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 5212 0240 
5240 0240 6240 7305 4304 5215 4232 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 



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