File DSE13.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 1704 5705 1661 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6317 1640 
6717 0315 6325 2724 5240 0301 6326 1705 6724 1317 6240 3317 6240 6723 6717 2317 
6310 2305 6640 2706 6716 2303 6311 7317 6240 0726 6314 2725 6323 3640 6311 2726 
6316 0640 6215 1612 5240 0240 5240 0240 5240 0240 6640 3240 6705 2303 5317 0322 
5317 0306 6306 7325 6303 4724 5317 0316 6326 6301 6725 1705 6240 4327 6317 2723 
6240 7305 6324 4722 5305 0323 6703 1317 6722 1705 6320 7317 6704 2240 4317 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6705 2721 6311 4704 6323 0724 6316 6324 
6731 1640 6320 1701 5305 0304 6301 3722 6325 2715 5316 0324 6326 6301 6725 1705 
4256 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 2723 5261 4263 6731 5254 
6254 2316 5311 6315 6711 1305 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 5255 0240 
6707 3311 5305 0316 6326 1705 6724 1317 6240 3317 6240 7704 6325 6302 6705 0240 
6322 1705 6311 4723 5317 0316 6306 7325 6303 4724 5317 0316 6326 6301 6725 1705 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 4240 
6304 6711 6705 1716 6311 7317 6240 2316 5311 4715 6215 1612 5240 0240 5240 0240 
5240 0240 6640 5240 5240 0240 5240 6640 6640 1240 6705 2723 6314 4724 5316 0307 
6326 1705 6724 1317 6240 3317 6240 7704 6325 6302 6705 0240 6322 1705 6311 4723 
5317 0316 6323 7715 6317 4324 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6640 2706 6716 2303 6311 7317 6240 0726 6314 2725 
5323 4240 6304 6711 6705 1716 6311 7317 6240 2316 5311 4715 6215 1612 5240 0240 
5240 0240 5240 0240 6240 7240 6304 6711 5240 6640 6240 2240 6311 2715 6316 4723 
5317 0316 5317 0306 6326 1705 6724 1317 6723 4640 6240 7301 6704 5240 6215 1612 
5240 0240 5240 0240 5240 0240 6240 4640 5305 0322 5240 6640 6640 1240 6705 2723 
6314 4724 5316 0307 6705 1322 5317 0322 6720 1301 6301 2715 6724 1305 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 4640 5305 0322 
5275 6640 5261 0240 6255 7240 6304 6711 6640 1711 6240 2714 5323 0323 6324 0710 
5716 1640 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 4640 5305 0322 5275 0240 5260 0240 6255 7240 6317 2640 6322 7722 4322 5215 
4303 5215 5303 0240 5240 0240 5240 0240 6322 6705 6301 5722 4323 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5250 4661 6240 4640 6306 4640 5705 6722 5255 0261 
6324 2710 5322 0305 6710 1701 6240 2702 5305 0316 5316 0317 6303 6717 6720 2325 
6301 4724 5317 7316 6215 1612 5240 0240 5240 0240 5240 0240 5240 4240 5262 0251 
6640 5240 6240 0703 6316 4240 6301 2726 6240 4324 6705 1640 6301 2715 6640 2323 
6317 0722 5307 0305 6301 6314 6317 0703 6324 7711 6316 0640 6723 4640 5256 0240 
5311 0306 4331 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5311 0323 6704 1711 6324 7311 5303 0324 6306 7722 6715 5240 6654 2240 6310 7305 
6640 2311 6640 1711 6240 7716 6324 2240 6705 2323 6722 4717 5305 7304 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 6311 2716 6323 0640 
5316 0304 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 5311 0306 6330 4640 6723 2240 5310 0305 6650 2723 6720 1320 6705 1723 
5305 4704 6240 2726 6303 7724 6322 7640 6306 0640 6722 2707 6315 7305 6724 3240 
6701 2714 5305 6323 6240 4324 4305 6716 5212 0303 5240 0240 5240 0240 5240 0240 
6640 4305 6703 0305 6324 0640 6724 2240 5310 0305 6305 2316 6320 4717 6716 1724 
5240 4330 5261 0251 6301 2316 5240 4330 6316 4704 5315 6251 6240 0705 5303 0310 
6323 7715 6317 4324 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 6240 0726 
6314 2725 5240 4332 5311 0251 5311 0323 6717 2302 6301 7311 5305 0304 5302 0331 
6305 0726 6314 0725 6324 7311 6307 0640 6724 4240 5250 4711 6240 4324 6305 6240 
6705 1701 4324 6655 5212 0303 5240 0240 5240 0240 5240 0240 6640 0723 6725 1301 
5305 0323 6320 6317 6331 7716 6315 0711 6314 7640 6306 2240 6705 1307 5305 0305 
6661 1240 6305 2714 6326 7301 6724 2240 6717 2240 5310 0305 6663 1640 6325 1703 
6705 1723 6311 2726 6215 1612 5240 0240 5240 0240 5240 0240 6640 0240 6317 7311 
5324 0323 5250 4330 6311 5653 6651 4654 5250 5711 5313 4651 5240 0313 5275 6640 
5661 0254 5254 7261 5240 4240 6323 2705 6240 4710 6314 2704 6302 0722 5316 6304 
5240 7306 5302 6256 6215 1612 5240 0240 5240 0240 5240 0240 6240 4640 6716 1324 
6717 2704 6303 4724 5317 0316 5324 0317 6316 6725 6305 4722 6303 6301 6240 7301 
6701 4714 6723 1711 6254 6640 6303 3640 6722 3701 6255 4710 5314 6314 6240 2716 
6727 4640 6317 5722 4257 5215 5303 0240 5240 0240 5240 0240 5240 0240 6724 1317 
6717 2316 6317 6257 6317 2316 5317 6316 5640 4661 5265 6266 6640 0320 5656 1240 
5271 6665 5663 1260 4256 6651 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 5723 0705 6663 4650 5254 6332 6316 4704 
6315 4654 5305 4722 6215 1612 5215 0212 5240 0240 6240 2240 6311 2715 6316 4723 
5317 0316 5731 0650 6651 5254 5250 4661 5215 0212 5240 0240 6240 2240 6317 1325 
5314 0305 6320 2722 6703 1711 6311 7317 5240 6331 6332 0654 5254 6302 4303 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 6250 2316 5311 6715 5663 1651 
5254 6261 4261 5215 4303 5215 5303 0240 5240 0240 5240 0240 6320 2722 6720 1301 
6305 6240 6717 0317 5215 0212 5240 0240 6261 1240 5675 0656 5666 3266 5666 3266 
5666 3266 5666 3266 5666 3266 5667 0304 5652 2650 5656 0304 5252 4331 5261 5651 
5731 1250 6651 4653 5250 4662 5255 4331 5263 4651 5215 0212 5240 0240 6240 1640 
5675 0656 5666 3266 5666 3266 5666 3266 5666 3266 5666 3266 5267 4252 6265 2256 
6660 4652 6250 2316 5311 4715 5253 4331 6316 4704 5715 0655 6651 4653 6250 2316 
5311 6715 5261 6651 6331 7250 6304 6711 5255 4662 4251 5215 4303 5215 5303 0240 
5240 0240 5240 0240 6323 0724 5322 0324 6314 7717 4320 5215 5240 0240 5240 0240 
5304 0317 6262 4640 5275 6263 6316 4704 4315 5215 5240 0240 5240 0240 6301 1275 
5215 0212 5240 0240 6240 1240 5675 1656 5663 1663 5663 1663 5663 1663 5663 1663 
5663 1663 5663 0304 6652 4650 5250 6711 5262 5651 6331 4650 5255 4661 5253 4331 
5311 4651 5215 0212 5240 0240 6662 5240 5250 6711 5662 6651 4301 5215 5303 0240 
5240 0240 5240 0240 6305 2316 6240 3317 6240 7714 4317 6720 4212 6703 5212 0303 
5240 0240 5240 0240 6640 0325 6704 2301 6305 6240 6701 2323 6640 3724 6317 1640 
6717 0315 6317 2716 6716 1724 5215 0212 5240 0240 6640 5240 6250 2316 5311 6715 
5661 6651 4302 5215 5240 0240 5240 0240 6332 7250 6304 6711 6251 1675 5215 0212 
5240 0240 6240 4640 5705 6722 4260 5215 5240 0240 5240 0240 6722 2305 6325 7322 
6215 1612 6215 1612 5240 0240 5240 0240 6240 2640 6322 7722 6322 2640 6730 2311 
6240 7311 6240 0703 5323 0305 6316 4704 6315 4640 6323 6240 6705 1723 6240 4324 
5301 0316 4263 5215 5240 0240 5240 0263 6711 1305 5675 0655 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 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