File DCSP.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 4323 6720 4212 6703 5212 0303 5240 0240 5240 0240 6640 2720 
6322 7720 4323 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 7703 6715 2720 
5324 0305 6324 2710 6240 0726 6314 2725 6323 7640 6706 2240 5310 0305 6323 4710 
6306 2724 6304 1640 6310 1305 6331 4323 5305 0326 6320 6317 6331 7716 6315 0711 
4314 6723 5212 0303 5240 0240 5240 0240 5240 0240 6640 1724 5250 6316 5330 0251 
6706 1317 6640 1301 6307 6725 6705 2316 5240 0330 6301 2316 6640 1317 6704 1305 
5723 0240 6640 0325 6240 7724 5240 7316 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 5250 6331 6330 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 1705 6724 1317 6240 3317 6240 4704 6315 7305 
6323 7711 6316 7240 5253 0261 6303 7317 6324 4701 6316 7311 6707 2240 5310 0305 
6326 6301 6725 1705 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 3317 6240 4323 6711 2306 5305 0304 6303 2710 6702 1731 6710 3305 
6240 7720 6314 7331 6317 4715 6701 1714 6240 3317 6640 1317 6704 1305 5240 0260 
5325 0320 5324 0317 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 3240 5317 0322 6707 3311 5305 0316 6301 3722 6325 2715 5316 0324 
4330 6656 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 5317 7322 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 0726 
6314 2725 6323 0640 5322 0305 6317 2322 6305 2722 6304 3240 6322 6717 6240 7714 
6727 2240 6317 4240 6311 4307 6640 1317 6704 1305 6215 1612 5240 0240 5240 0240 
5240 0240 6640 4240 5240 0240 5240 6640 6640 1301 6307 6725 6705 2316 6240 3317 
6240 4323 6711 2306 5305 0304 6303 2710 6702 1731 6710 3305 6240 7720 6314 7331 
6317 4715 4301 6714 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 6656 5212 0303 5240 0240 5240 0240 5240 0240 5240 0316 5240 0240 
5240 0255 6317 2322 5305 0322 5317 0306 6323 4710 6306 2724 6304 1640 6310 1305 
6331 4323 5305 0326 6320 6317 6331 7716 6315 0711 4314 5215 4303 5215 5303 0240 
5240 0240 5240 0240 6322 6705 6301 5722 4323 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6316 6240 6705 1723 6240 4324 5301 0316 6260 4640 6723 2240 6322 0705 
6324 2305 6640 1701 6240 3311 5240 0316 6727 1305 5705 0240 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 6305 0726 6314 0725 6324 7711 6316 4640 6323 1240 
6301 2723 6304 7640 6716 2240 5310 0305 6322 1705 6725 1322 6305 1716 6305 2640 
6321 0725 6324 7711 6316 3240 4317 6722 5212 0303 5240 0240 5240 0240 5240 0240 
6240 4323 6711 2306 5305 0304 6303 2710 6702 1731 6710 3305 6240 7720 6314 7331 
6317 4715 6701 1714 6640 1724 5250 6316 4330 6651 5212 0303 5240 0240 5240 0240 
5240 0240 6640 1724 5250 5716 6661 4254 5251 4275 6664 4252 5255 4662 6652 1724 
5250 6316 5330 6651 5324 4323 5716 0655 5254 4730 4254 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6327 2710 5322 0305 6324 2710 6240 4706 6722 2323 6240 2724 
5322 0315 5311 0316 6302 0722 6303 2713 5324 0323 5311 0323 6324 2710 6640 1317 
6704 1305 4254 5215 5303 0240 5240 0240 5240 0240 5240 0240 6324 2710 6240 2723 
6303 7317 6304 4640 6723 2240 5310 0305 6301 3722 6325 2715 5316 7324 6215 1612 
5240 0240 5240 0240 5240 0240 6640 1640 6724 1301 6324 7311 6707 3240 6701 2714 
5305 0323 6301 2722 6640 1724 5250 6260 5730 6651 5261 0254 5324 4323 6661 4254 
5651 1275 5252 6730 4261 6656 4212 6703 5212 0303 5240 0240 5240 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 4256 5215 4303 5215 5240 0240 5240 0240 
6323 1325 6722 2717 6324 7311 6305 2240 6703 0323 5250 6331 6330 7254 4251 5215 
4303 5215 5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 5240 4331 4261 6651 
5212 0240 5240 0240 6240 7704 6325 6302 6705 0240 6322 1705 6311 4723 5317 0316 
6731 4254 4254 6706 4212 6703 5212 0303 5240 0240 5240 0240 6240 2724 5323 0324 
5317 0306 6317 2322 4305 6722 5212 0240 5240 0240 5240 4331 5661 6651 6261 2256 
4260 5215 5240 0240 5240 0240 5311 4306 5716 0651 5254 6261 4262 5215 5240 0240 
5240 0261 6722 2305 6325 7322 6215 1612 5215 0212 5240 0240 6662 4640 5250 4662 
5275 5730 5730 0655 5656 0304 5215 0212 5240 0240 6240 4640 6306 7250 5255 4661 
5661 0654 4254 6663 4212 6703 5212 0303 5240 0240 5240 0240 6240 7311 6311 4724 
6301 4714 6732 2301 6311 7317 5215 0212 5240 0240 6263 3240 5275 4331 5262 5651 
5731 1250 4251 5215 4303 5215 5240 0240 5240 0240 5304 0317 6264 4640 5275 6262 
4316 5215 5240 0240 5240 0264 6331 4650 5253 4661 5275 5306 6331 4650 6651 4655 
5250 6711 4261 6651 5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 5240 0240 
5240 0240 6305 2316 4615 5212 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 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