File DTLAP.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 6714 0301 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 6314 3701 6725 1305 
5322 0305 6320 6317 6331 7716 6315 0711 5314 0323 6727 2311 6310 4640 6316 2704 
6320 7305 6304 7305 4324 5215 5303 0240 5240 0240 5240 0240 5240 0240 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 6310 4640 6316 2704 
6320 7305 6304 7305 4324 5215 5303 0240 5240 0240 5240 0240 5240 0240 6726 1301 
6311 1301 5314 0305 5332 0254 6327 2710 5322 0305 6330 0675 5252 5732 4302 5215 
4303 5215 5303 0240 5240 0240 5240 0240 6325 0723 4307 6705 5212 0303 5240 0240 
5240 0240 5240 0240 6240 0703 5314 0314 6304 6324 5301 4320 6301 1254 6254 7720 
6314 7254 5254 6303 6727 1317 4313 6651 4212 6703 5212 0303 5240 0240 5240 0240 
6240 2704 6723 1303 6711 2320 6311 7317 6240 3317 6240 0720 6322 6701 6305 2724 
4322 6723 5212 0303 5240 0240 5240 0240 5240 0240 5240 0301 5240 0240 5240 0255 
6306 1701 6724 1317 6240 3317 6240 4714 6316 0705 6722 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 6240 1240 5240 0240 5240 6640 
6240 7703 6716 2323 6701 2316 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 6240 7720 5314 0240 5240 0255 6303 2717 6306 4706 
6303 2711 5316 0324 6326 1705 6724 1317 6240 3317 6240 7720 6314 7331 6317 4715 
5301 0314 6250 2722 6323 6325 6324 7301 6724 3240 6701 2714 4305 6651 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 5322 0323 6320 6317 6240 7301 6304 1640 
6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 5240 0240 5240 6640 6240 4707 
6326 7305 6240 7703 6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6322 7640 
6306 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 
6320 6317 6240 7301 6304 1640 6240 0715 6331 1240 6305 4640 6304 7305 6324 1711 
6301 6314 6331 6240 6317 0703 6324 2305 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 6640 3640 
6317 5722 5240 6640 6240 7727 6322 4713 5316 0307 6323 7724 6322 3701 6305 7640 
6306 2240 6311 2715 6316 4723 5317 0316 6262 7252 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 6701 1322 4301 6731 4212 6703 5212 0303 5240 0240 5240 0240 
6240 2722 6715 1301 4313 6723 5212 0303 5240 0240 5240 0240 5240 0240 6240 7703 
6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6322 1640 6240 2722 6315 4701 
5316 0323 6325 1716 6310 7301 6307 2305 6240 3311 6240 7716 6324 1640 6317 7311 
6303 2311 6311 3716 6215 1612 5240 0240 5240 0240 5240 0240 6640 3640 6311 4324 
6240 7703 6305 3306 6311 4703 6705 2316 6240 2726 6303 7724 6722 0240 5317 7314 
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 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6324 2710 6240 4714 6316 0705 6722 2240 6322 7301 6323 7706 6322 0715 6324 7711 
6716 4240 5275 5301 6332 1253 6640 1317 5640 6732 5250 7661 5301 4251 6330 1255 
6651 2240 6322 7301 6323 7706 6722 1715 6215 1612 5240 0240 5240 0240 5240 0240 
6640 2240 5310 0305 6322 7301 5307 0305 5250 6260 5303 0251 5311 0316 6730 2240 
6717 2240 5310 0305 6322 7301 5307 0305 6250 6332 6654 1332 6251 4640 6716 5240 
6654 3640 6710 1305 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5732 6714 
5255 7702 6301 0640 5316 0304 5732 6722 5250 6703 5302 7651 4301 6656 5212 0303 
5240 0240 5240 0240 5240 0240 6240 7706 6322 3640 6311 2726 6716 5240 5314 0254 
5332 0322 6301 2316 5240 0303 5327 0305 6710 3301 6305 0640 5275 7703 6650 1332 
6255 6332 6251 0640 4316 6704 5212 0303 5240 0240 5240 0240 5240 0240 5640 6702 
5255 5303 5332 7714 6650 1332 6255 6332 4251 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6323 1325 6722 2717 6324 7311 5305 0323 6301 2316 6640 2706 6716 2303 
6311 7317 6640 2723 6702 1320 6717 1307 6701 1715 6240 2722 6321 4725 6322 2305 
6215 1612 5240 0240 5240 0240 5240 0240 6240 7240 6317 2716 6215 1612 6215 1612 
5240 0240 5240 0240 6240 6640 6305 4324 4317 6704 5212 0303 5240 0240 5240 0240 
5240 0240 6240 4324 6705 2240 6322 7301 6323 7706 6322 0715 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 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6706 1317 6240 0714 6307 2725 6322 2722 6240 7720 6314 7331 6317 4715 6701 1714 
5240 4314 6716 4254 4251 5215 5303 0240 5240 0240 5240 0240 5240 0240 6314 7250 
5253 6261 5730 6651 6262 6252 5250 6316 5330 6651 6314 7250 5255 6261 5330 6651 
5650 0650 5253 4730 5252 4314 6716 4254 6251 6255 5250 6716 6661 4254 5251 7651 
5250 5716 5261 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 5714 0250 
5254 4730 5275 6261 5240 4314 6661 4254 5651 0675 5255 7330 6215 1612 5240 0240 
5240 0240 5240 0240 6640 2240 5310 0305 6324 0722 6316 3323 6317 6722 6301 4724 
5317 0316 5311 0323 6711 0315 6314 1711 6311 6324 6331 2240 6305 4706 6316 2305 
6640 4702 6240 2715 6701 1716 6240 3317 6215 1612 5240 0240 5240 0240 5240 0240 
6640 4240 5275 5301 6332 1253 6240 7724 6707 2305 6710 1305 6240 4727 4324 6710 
5212 0303 5240 0240 5240 0240 5240 0240 6640 2723 6715 0250 5317 4314 5311 5251 
5332 5252 5250 6711 5261 6251 6640 2723 6315 2715 6304 7640 6726 1305 5240 0311 
6306 7722 5715 0640 6240 7724 5240 4716 6215 1612 5240 0240 5240 0240 5240 0240 
5640 6640 6323 6725 5250 4303 5311 5251 6314 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 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 5215 0212 5240 0240 6640 1640 6725 1302 6717 2325 
6311 2716 6640 2304 6714 0301 5250 6301 6702 0254 5317 6314 6316 1654 6254 7727 
5322 4713 6215 1612 5215 0212 5240 0240 6240 2240 6311 2715 6316 4723 5317 0316 
6320 6317 5250 4661 5254 4303 5261 6251 6727 1317 5713 0650 4251 5215 5240 0240 
5240 0240 6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6316 0640 5254 6302 
6320 6317 5254 6303 6727 1317 6313 4254 5254 6320 6721 0654 6661 0654 6262 3254 
4311 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 0240 5317 4314 5661 6651 5703 0650 6251 1653 
5250 4662 5255 5302 5703 1250 4251 5215 5240 0240 5240 0240 6320 6317 5250 4662 
6275 1655 5250 4662 4252 6701 5212 0240 5240 0240 6240 3311 5250 6716 5662 1251 
5254 6262 4264 5215 4303 5215 5303 0240 5240 0240 5240 0240 6311 4716 6324 0711 
6714 5311 6301 4724 4317 6716 5212 0240 5640 2240 6240 7727 5322 4313 5661 6651 
6261 2256 4260 5215 5240 0240 5240 0240 6727 1317 5713 1250 5651 0675 5656 0304 
4255 6702 5212 0240 5240 0240 6240 7727 5322 4313 5663 6651 6260 2256 4260 5215 
5240 0240 5240 0240 6727 1317 5713 2250 5251 6675 4301 5215 5240 0240 5240 0240 
5706 6711 6261 2256 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 0714 6307 2725 6322 2722 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 6240 4706 6275 4706 
5253 7261 4304 6660 5212 0240 5240 0240 5640 6721 6261 2256 6260 3257 4311 5215 
5240 0240 5240 0240 5721 6661 5721 0655 5656 0304 5215 0212 5240 0240 6640 0640 
5662 0675 5656 0304 5655 0721 5255 5302 4321 5215 5240 0240 5240 0240 6721 0675 
4252 6701 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 5310 6675 
6720 0652 6253 7727 5322 4313 6262 5652 5255 4662 5652 1321 6253 7727 5322 4313 
6262 5652 5255 4663 5652 0721 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 
5251 6675 6721 0252 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 



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