File DTHEP.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 6710 0305 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 6710 1305 6715 2311 
6705 0240 6717 4714 6316 6717 6311 6301 6723 3640 6311 4324 6240 7311 6704 0305 
6305 2316 6705 2316 6215 1612 5240 0240 5240 0240 5240 0240 6640 3240 6301 4722 
6301 6302 6705 4240 6640 1711 6640 1324 6701 1716 6706 1317 6315 2305 6240 7724 
5240 0301 6320 6317 6331 7716 6315 0711 6714 3640 6311 4324 6240 7311 6704 0305 
6305 2316 6705 2316 6215 1612 5240 0240 5240 0240 5240 0240 6640 3240 6301 4722 
6301 6302 6705 5240 6654 3640 6710 1305 6705 4240 5275 5301 6332 1253 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 6324 2710 6320 0650 5254 6302 6320 6317 
5254 6316 6703 3654 6317 5722 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 5301 0240 5240 0240 6255 3240 
6701 2303 5317 0322 5317 0306 6314 7311 6705 1301 6240 2724 5322 0315 5311 0316 
6707 3311 5305 0316 6314 7311 6705 1301 6640 1324 6701 1716 6706 1317 6715 2301 
6311 7317 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 6726 1301 6311 1301 
4314 6705 5212 0303 5240 0240 5240 0240 5240 0240 5240 0302 5240 0240 5240 0255 
6303 7317 6323 0724 5316 0324 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 6320 6317 5240 0240 6255 1640 6317 3305 6306 1711 
6311 7305 6724 3240 6705 2303 5317 0322 5317 0306 6320 6317 6331 7716 6315 0711 
5314 4240 6722 1705 6725 2314 6701 2316 6240 0726 6314 2725 4251 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 5316 0240 
5240 0240 6255 2240 6311 2715 6316 4723 5317 0316 5317 0306 6303 2717 6306 4706 
6303 2711 5316 0324 6326 1705 6724 1317 6240 7720 6314 0640 5316 0304 4303 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5303 0240 5240 0240 6255 1640 6317 3305 
6306 1711 6311 7305 6724 3240 6705 2303 5317 0322 5317 0306 6707 3311 5305 0316 
6705 0330 6701 1716 6311 7317 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 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 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 5240 6650 6303 1654 6251 4640 6716 4240 6240 7724 
6240 4324 6705 1240 6301 3716 5305 4240 5332 6314 5332 4722 6240 7311 5240 0332 
6327 2710 4322 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 6332 5275 4255 
6303 1253 6251 0657 6240 7301 6704 5240 5322 4275 6303 1255 6251 0657 4256 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6706 1317 6240 4707 6326 7305 6240 6332 
6654 5240 6322 0640 5316 0304 6703 3640 6305 4240 6301 2726 5640 6701 5262 7703 
6650 1332 6255 6332 6251 0640 4316 6704 5212 0303 5240 0240 5240 0240 5240 0240 
5640 6702 5255 4303 5332 5722 5332 4714 6657 5250 6722 5255 4314 6651 4212 6703 
5212 0303 5240 0240 5240 0240 6640 2723 6302 7722 6325 4724 6716 1705 6240 7301 
6304 3240 6325 1716 6324 7711 6716 1640 6725 0302 6322 3717 6322 6701 6723 1240 
6705 2721 6311 2722 4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 6316 7317 
4305 5215 4303 5215 5303 0240 5240 0240 5240 0240 6715 2305 6310 2317 6215 1612 
5240 0240 5240 0240 5240 0240 6640 2240 5310 0305 6324 0722 6316 3323 6317 6722 
6301 4724 5317 0316 5311 0323 6702 1701 5305 0304 5317 0316 6324 2710 6240 2722 
6703 1325 6322 7305 5303 0305 6705 2721 6301 4724 4317 6716 5212 0303 5240 0240 
5240 0240 5240 0240 6240 7706 6322 4240 6305 6722 6311 2724 6240 7720 6314 7331 
6317 4715 6701 1714 5240 4310 6716 4254 4251 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6310 7250 5253 6261 5730 6651 5262 4252 6330 4252 5250 6316 5330 6651 
6316 4252 5250 6716 6661 4254 5251 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 4305 6730 
5212 0303 5240 0240 5240 0240 5240 0240 6240 4324 6705 1640 6305 7703 5316 0304 
5311 0323 6324 2710 6640 1301 6307 6725 6705 2316 4256 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6323 0724 6322 4724 5316 0307 6326 6301 6725 1705 6640 1301 
6305 4240 5250 6260 5730 6651 6261 4254 5250 6261 5730 6651 6662 4252 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 5252 4310 5711 0655 5254 4730 
6654 1640 6325 6715 5305 0304 6317 2726 6322 4640 6640 1306 5317 0315 6661 2240 
6317 7240 4251 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 6324 2710 6320 0650 5254 6302 6320 6317 5254 6316 
6703 3654 6317 5722 4251 5215 4303 5215 5240 0240 5240 0240 6304 6711 6705 1716 
6311 7317 6240 7720 5714 0650 6251 1654 5250 4661 6254 7727 5322 4313 4261 6651 
5212 0240 5240 0240 6240 7704 6325 6302 6705 0240 6322 1705 6311 4723 5317 0316 
6301 1254 6254 7720 6314 1654 6254 7727 5322 6313 6710 0254 6254 4706 6254 2330 
5654 0330 6215 1612 6215 1612 5240 0240 5240 0240 6640 2240 6705 2323 6240 3317 
6240 4704 6315 7305 6323 7711 4316 5215 5240 0240 5240 0240 5311 4306 5716 0655 
5251 6262 5661 1654 6215 1612 6215 1612 5240 0240 5240 0240 6240 2240 6311 2715 
6316 4723 5317 0316 6714 1705 6723 2240 6310 7301 4240 6662 5212 0240 5640 0640 
6240 7720 5714 0650 6251 1675 5250 4661 5215 0212 5240 0240 6662 1240 6705 2724 
4322 6716 4212 6703 5212 0240 5640 1640 6240 2330 5275 5701 4301 5215 5240 0240 
5240 0240 5730 6660 6302 1253 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 4706 
5275 7262 4304 6660 4212 6703 5212 0303 5240 0240 5240 0240 6240 0703 6714 2703 
6714 2301 6305 1640 6317 3305 6306 1711 6311 7305 6724 3240 6705 2303 5317 0322 
5317 0306 6716 4305 6324 4240 6305 6722 6311 2724 6240 7720 6314 7331 6317 4715 
4301 6714 5212 0303 5240 0240 5240 0240 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 6252 2330 6253 7727 5322 4313 6262 5652 5255 4662 5652 0330 
6255 4706 6252 7727 5322 4313 6262 5652 5255 4663 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 6665 0240 5317 4314 5713 0655 6651 0275 
5317 4314 5713 0655 6251 4253 5252 4303 4312 6651 5212 0240 5240 0240 6240 7727 
5322 4313 6262 5252 5255 4661 5275 7260 4304 6660 5212 0240 5240 0240 6240 7727 
5322 4313 6262 5252 6651 0275 6252 2330 5215 0212 5240 0240 6240 3240 6311 3275 
5711 1253 5656 0304 5215 0212 5240 0240 6666 0240 5317 4314 5712 6651 6303 5250 
6651 3652 6317 5722 5250 5262 4312 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 



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