File DTCSP.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 6640 2304 6703 0323 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 0640 6240 2723 
6322 2711 6323 2640 6330 0720 6316 4723 5317 0316 5311 0316 6323 4710 6306 2724 
6304 1640 6310 1305 6331 4323 5305 0326 6320 6317 6331 7716 6315 0711 5314 0323 
6727 2311 4310 5215 5303 0240 5240 0240 5240 0240 5240 0240 6311 2316 6305 2720 
6316 2704 5316 0324 6726 1301 6311 1301 5314 0305 6330 4640 6723 2240 6322 7301 
6323 7706 6322 2715 6704 2240 6317 0640 6240 7720 6314 7331 6317 4715 5301 0314 
6727 2311 4310 5215 5303 0240 5240 0240 5240 0240 5240 0240 6311 2316 6305 2720 
6316 2704 5316 0324 6726 1301 6311 1301 5314 0305 5332 0254 6327 2710 5322 0305 
6330 0675 5252 5732 4302 6656 4212 6703 5212 0303 5240 0240 5240 0240 6640 1725 
6301 2707 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6301 6314 6640 2304 
6703 0323 5250 6301 6702 0254 5317 6314 6316 1654 6254 7727 5322 4713 6215 1612 
6215 1612 5240 0240 5240 0240 6240 2240 6305 1723 6722 0311 6324 7711 6316 7640 
6706 0240 6301 0722 6715 2305 6705 1722 6215 1612 5240 0240 5240 0240 5240 0240 
6240 0640 5240 0240 5240 6640 6240 0706 6303 7724 6322 7640 6306 6240 6311 2716 
5301 0322 6724 1305 6315 4640 6316 3640 6311 2726 6316 6240 6311 2716 5301 0322 
6324 0722 6316 3323 6317 6722 6301 4724 4317 6716 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 5302 0240 5240 0240 6255 1640 6717 1716 6324 7301 6724 2240 6305 6722 
6240 7311 6240 4707 6326 7305 6240 4714 6316 0705 6722 2240 6322 7301 6323 7706 
6322 0715 6324 7711 4316 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 6640 0240 5317 0314 
5240 6640 6240 7703 6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6322 7640 
6706 0240 6717 4714 6316 6717 6311 6301 6640 1250 6705 2723 6314 0724 5316 0324 
6326 6301 5325 4705 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 7703 6305 3306 6311 4703 6705 2316 6323 0640 5322 0305 6317 2322 
6305 2722 6304 3240 6322 6717 6240 7714 6727 2240 6317 4240 6311 4307 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 7704 6325 6302 
6705 0240 6322 1705 6311 4723 5317 0316 6326 1705 6724 1317 6215 1612 5240 0240 
5240 0240 5240 0240 6240 7240 5240 0240 5240 6640 6240 4704 6315 7305 6323 7711 
6316 7640 6306 1640 6317 3305 6306 1711 6311 7305 6724 3240 6705 2303 6717 1722 
6240 7720 6314 0640 5316 0304 4303 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5303 0240 5240 0240 6255 3640 6311 2726 6316 1640 6317 3305 6306 1711 6311 7305 
6724 3240 6705 2303 5317 0322 5317 0306 6705 0330 6701 1716 6311 7317 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 7720 6314 0640 
5316 0304 6303 6640 5301 0331 5302 0305 6311 2704 6316 4724 6303 6301 5314 0331 
6314 1717 6301 2724 4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 1640 6317 3305 6306 1711 6311 7305 5324 0323 6301 2722 6640 1317 
6704 1305 5305 0304 6306 7722 6315 6240 5317 0327 5324 0317 6310 3711 4310 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 2726 6303 7724 4322 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6727 1317 5313 0240 6655 3640 6317 5722 6311 3716 
6640 2323 6317 0722 5307 0305 5317 0306 6304 6711 6705 1716 6311 7317 5240 5262 
4316 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 6640 1301 6722 4701 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 6722 1713 6215 1612 5240 0240 
5240 0240 5240 0240 6240 1640 6317 3305 6306 1711 6311 7305 6724 3240 6705 2303 
5317 0322 6703 1240 6305 0715 6711 1716 6240 7325 6303 0710 6316 2707 6304 4640 
6306 7240 5317 0324 6303 4717 6316 4703 6304 7311 4307 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6727 2311 6310 1640 6317 3305 6306 1711 6311 7305 6724 3240 
6705 2303 5317 0322 6320 6317 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6317 2720 6722 2301 6311 7317 6640 1711 6640 4702 6720 1701 6323 2305 6240 7311 
6240 0703 5323 0305 6316 6240 6705 1723 6240 4324 5301 0316 4261 6656 5212 0303 
5240 0240 5240 0240 5240 0240 6240 4324 6305 6240 6311 2716 5301 0322 6324 0722 
6316 3323 6317 6722 6301 4724 5317 0316 6330 0675 5252 5732 6302 7640 6722 5240 
5675 0650 5257 4701 5250 6730 5302 0251 6324 0722 6316 3323 6317 6722 4323 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6324 2710 6240 0722 6316 2707 5640 0250 
5254 4661 6240 7311 5240 0330 5324 0317 6324 2710 6240 0722 6316 2707 6640 5250 
6714 5254 5322 0251 5311 0316 5332 0254 6327 2710 4322 6705 5212 0303 5240 0240 
5240 0240 5240 0240 6240 6332 6275 1255 5257 0301 6301 2316 6640 1332 5675 0650 
5255 4702 5257 7301 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 5317 0322 
6707 3311 5305 0316 5332 6314 6640 1332 6240 2727 6240 0710 5326 0305 5701 0675 
6657 5250 6722 5255 5314 0251 6301 2316 5640 6702 6255 6332 6657 5250 6722 5255 
5314 7251 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 6324 2710 6640 1324 
6701 1716 6706 1317 6715 2301 6311 7317 6640 1711 6240 0702 6323 2305 6240 7317 
6240 4324 6705 1240 6705 2703 6322 2722 6316 2703 6640 0705 6725 2301 6311 7317 
6240 7706 4322 5215 5303 0240 5240 0240 5240 0240 5240 0240 6323 4710 6306 2724 
6304 1640 6310 1305 6331 4323 5305 0326 6320 6317 6331 7716 6315 0711 5314 0323 
5324 4323 6716 4254 4251 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 6251 6215 1612 5240 0240 5240 0240 5240 0240 6640 3640 
6710 1305 6705 2240 5310 0305 6706 1311 5323 0324 6724 1305 6315 4640 6316 1240 
6322 1701 6713 2305 6323 4640 6723 2240 5310 0305 6311 2316 5305 6330 6215 1612 
5240 0240 5240 0240 5240 0240 6640 2240 5310 0305 6323 1705 6317 2316 6640 1711 
6240 4324 6305 0640 6722 2707 6315 7305 4324 6656 5212 0303 5240 0240 5240 0240 
5240 0240 6640 2323 6701 2322 6311 3716 6240 0726 6314 2725 6323 0640 5322 0305 
5324 4323 6660 4254 5651 0675 6654 2240 5723 0650 5254 4730 5275 5262 5730 0655 
4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 6324 2710 6640 1324 6701 1716 
6706 1317 6715 2301 6311 7317 6640 1711 6240 6711 6320 4714 6703 2311 5314 0331 
6304 3305 6311 2716 6304 1240 6331 6640 6305 7301 6323 7640 4306 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6330 0675 5252 5732 6702 2240 6317 2707 6324 2710 
6722 3640 6311 4324 6215 1612 5240 0240 5240 0240 5240 0240 6640 1640 5325 4315 
6320 6317 5250 4711 5252 5332 6252 4650 5255 4661 6654 1640 6325 6715 5305 0304 
6317 2726 6322 4640 6640 1306 5317 0315 6661 2240 6317 7240 4251 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6675 2723 6315 1650 5250 4711 6652 1724 5250 6711 
6661 4254 5251 0254 6323 6725 6315 2305 6640 3317 5305 0322 6311 3240 6322 6717 
5240 0261 5324 0317 5316 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 6304 1724 5323 4320 6301 1254 6254 7720 
6314 7254 5254 6303 6727 1317 4313 6651 4212 6703 5212 0240 5240 0240 6240 4704 
6315 7305 6323 7711 6716 0240 5317 4314 5261 6251 5703 0650 6651 3654 6317 5722 
5250 4661 5215 0212 5240 0240 6240 2240 6317 1325 5314 0305 6320 2722 6703 1711 
6311 7317 5240 6301 6702 0254 5317 6314 6703 3654 6317 5722 5254 6310 6720 4254 
6704 4254 4260 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 6716 
5661 1251 5254 6261 4263 5215 4303 5215 5303 0240 5240 0240 5240 0240 6304 6711 
6705 1716 6311 7317 6240 2714 5323 0323 6324 0710 5716 1240 5215 0212 5240 0240 
6661 0240 5317 4314 5661 6651 5703 0650 4251 5215 5240 0240 5240 0262 6722 2305 
6325 7322 6215 1612 5215 0212 5240 0240 6663 4240 6304 0675 4253 6701 5212 0240 
5240 0240 5640 0330 5275 5702 5702 0655 5656 0304 5215 0212 5240 0240 6640 0240 
5317 4314 5661 6651 5703 0650 6251 1653 5250 4662 5652 0330 5215 0212 5240 0240 
6640 0240 5317 4314 5662 6651 5703 1250 6651 4252 4304 5215 5240 0240 5240 0240 
5311 4306 5716 1255 5251 6262 5662 2254 6215 1612 6215 1612 5240 0240 5240 0240 
6240 4640 6716 2311 6311 6301 6311 0732 6324 7711 4316 5215 5240 0240 5240 0264 
6727 1317 5713 0650 5651 0675 5656 0304 5215 0212 5240 0240 6640 3640 6317 5722 
5250 4662 5675 0330 5215 0212 5240 0240 6640 3640 6317 5722 5250 4663 5275 7260 
4304 6660 5212 0240 5240 0240 6240 7727 5322 4313 5664 6651 4330 6704 5212 0240 
5240 0240 6240 2330 6275 2330 6253 2330 5215 0212 5240 0240 6640 4240 6660 4275 
6660 4253 4260 5215 4303 5215 5303 0240 5240 0240 5240 0240 6303 6301 6303 6325 
6301 2724 6240 7703 6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6322 7640 
6306 7240 6705 2330 6240 4323 6711 2306 5305 0304 6303 2710 6702 1731 6710 3305 
6215 1612 5240 0240 5240 0240 6640 0240 6717 4714 6316 6717 6311 6301 6240 7301 
6304 0640 5304 0304 6315 6325 6724 0311 5314 0305 5317 0306 6324 4710 6723 3240 
6705 2303 5317 0322 5324 0317 6320 6317 6331 7716 6315 0711 6714 0240 4317 6714 
5212 0240 5240 0240 6240 7704 5240 0266 5712 1675 4254 6716 5212 0240 5240 0240 
5640 6720 6260 2256 4260 5215 4303 5215 5240 0240 5240 0240 5304 0317 6265 5640 
5275 6262 4312 5215 5240 0240 5240 0240 6710 0275 6255 7727 5322 4313 6262 5652 
5255 4663 5653 0330 6252 7727 5322 4313 6262 5652 5255 4662 5215 0212 5240 0240 
6640 0240 6275 7727 5322 4313 6262 5652 5255 4662 5215 0212 5240 0240 6640 3640 
6317 5722 5250 5262 5713 1255 6251 4275 5215 0212 5240 0240 6640 3640 6317 5722 
5250 5262 5713 1655 6651 0275 5215 0212 5240 0240 6640 0240 5317 4314 5713 0655 
6651 0275 5317 4314 5713 0655 6251 4253 5252 4303 4312 6651 5212 0240 5640 2640 
5640 6720 5330 5304 4320 5215 5240 0240 5240 0240 6727 1317 5713 1250 5252 6712 
5661 6651 6260 2256 4260 5215 5240 0240 5240 0240 6727 1317 5713 1250 5252 4712 
4275 6720 5212 0240 5640 3240 6240 7720 6314 5250 6251 1675 5250 4712 4252 6720 
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 



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