File DSE35.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 2663 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 5263 4265 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 2640 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 6331 4640 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 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 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 6240 4640 6706 4240 6640 1711 6240 4324 5305 4240 
6723 0325 6320 2722 6323 2723 5304 0251 6326 1705 6724 1317 6240 3317 6640 1301 
6307 6725 6705 2316 6240 0726 6314 2725 5323 0254 6324 2710 4316 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6305 1730 6705 2320 6640 2301 6240 4324 6705 0240 
6317 7311 5324 0323 5730 0650 6651 4254 5250 4662 5254 4330 6316 4704 5715 0655 
6251 0640 5316 0304 6330 7250 6304 6711 5251 0254 6305 1701 4310 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6323 7715 6317 4324 5305 0304 6326 6301 5325 0305 
6332 4650 6251 4640 6323 7640 6302 0724 6311 2716 6304 1240 6331 2640 6326 6301 
6725 2301 6311 3716 6640 2301 5240 4330 5311 0251 6324 2710 6215 1612 5240 0240 
5240 0240 5240 0240 6240 6240 6705 1701 6724 1655 6321 0725 6722 1705 6240 7720 
6314 7331 6317 4715 5301 0314 5317 0306 6304 3705 6322 2705 5240 0263 6322 6305 
6305 0726 5316 0324 5324 0317 6324 2710 4240 6665 5212 0303 5240 0240 5240 0240 
5240 0240 6640 2723 6303 2703 6323 4723 5326 0305 6320 4717 6716 1724 6640 4250 
5250 5711 5313 6251 6331 4650 5253 4713 6251 5640 5240 0275 5255 6262 5255 6261 
5256 7256 5254 7262 5240 4240 6323 2705 6215 1612 5240 0240 5240 0240 5240 0240 
6240 4240 6311 2314 6705 1302 6301 2316 6254 3240 5256 7302 6254 4640 6716 1324 
6717 2704 6303 4724 5317 0316 5324 0317 6316 6725 6305 4722 6303 6301 6240 7301 
6701 4714 6723 1711 4254 5215 5303 0240 5240 0240 5240 0240 5240 0240 5315 0303 
6307 0722 6327 4255 6311 6314 6254 7240 5305 0327 6731 1317 6713 2257 6317 7722 
6316 7724 6257 7714 6316 7704 5316 0254 5661 2671 5266 0254 5320 7320 5640 4662 
5665 1655 5260 7262 4251 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 1704 5705 2663 5250 6331 6332 7254 6304 6711 
6254 2711 4322 6651 4212 6703 4212 6703 5212 0240 5240 0240 6240 4704 6315 7305 
6323 7711 6716 4640 5250 4661 5254 4332 4261 6651 5212 0240 5240 0240 6240 7704 
6325 6302 6705 0240 6322 1705 6311 4723 5317 0316 6731 5254 5254 6301 6302 1654 
4254 6704 4212 6703 5212 0303 5240 0240 5240 0240 6240 2724 5323 0324 5317 0306 
6304 6711 6705 1716 6311 7317 5215 0212 5240 0240 6240 4640 6306 7250 6304 6711 
5255 4665 5664 0654 4254 6661 4212 6703 5212 0303 5240 0240 5240 0240 6640 1320 
6305 0720 5322 0305 6314 7717 4320 5215 5240 0240 5240 0261 6702 4675 5250 4661 
5215 0212 5240 0240 6240 1640 5275 4331 4262 6651 4212 6703 5212 0303 5240 0240 
5240 0240 6640 2323 6701 2322 6240 7714 4317 6720 5212 0240 5240 0240 6240 7704 
5240 0263 5711 2675 6254 2316 4311 6715 5212 0240 5240 0240 5640 6701 4302 5215 
5240 0240 5240 0240 6302 1675 5215 0212 5240 0240 6240 1640 5275 4331 5711 1255 
4251 5215 4303 5215 5303 0240 5240 0240 5240 0240 6307 7305 6305 0722 5324 0305 
6706 2717 6322 4324 6240 2703 6716 1324 5301 0314 6304 3311 6706 1305 6305 1716 
4305 5215 5240 0240 5240 0240 6304 1675 5255 6702 6331 4650 5255 4661 5215 0212 
5240 0240 6240 2240 5275 5704 6304 1653 5215 0212 5240 0240 6240 2240 5275 5704 
6304 0653 5253 4331 4311 6651 4212 6703 5212 0303 5240 0240 5240 0240 6240 4303 
6305 5703 6240 4706 6722 2323 6640 3724 6317 1640 6717 0315 6317 2716 6716 1724 
5215 0212 5240 0240 6240 4640 6306 4650 5255 4665 5662 1254 4254 6663 5212 0240 
5640 1240 5240 4332 5661 6651 5301 7255 5660 2261 5662 2670 5667 2261 5662 2670 
5667 2261 5662 3270 5304 5260 4304 5215 5240 0240 5240 0240 5732 1250 6251 1275 
5653 0256 5665 0667 5664 4262 5665 0667 5664 4262 5665 0667 6264 2263 6260 2252 
5215 0212 5240 0240 6663 5240 5250 6711 5662 6651 5303 7255 5660 2670 5667 2261 
5662 2670 5667 2261 5662 2670 6267 2261 6260 2252 6215 1612 5240 0240 5240 0240 
6240 2640 5316 0304 5317 0306 6314 7717 4320 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6325 2320 6301 2724 6240 0714 5323 0324 6324 7727 6240 7703 6315 7720 
6316 7305 4324 6723 5212 0240 5240 0240 5240 4332 6316 4704 5715 0655 6651 4675 
6250 2316 5311 6715 5261 5651 5656 2660 5667 2261 5662 2670 5667 2261 5662 2670 
5667 2261 5663 0304 4252 6704 5212 0240 5240 0240 5240 4332 6316 4704 5715 6651 
6331 7250 6304 6711 5251 7255 5660 2261 5662 2670 5667 2261 5662 2670 5667 2261 
5662 3270 5304 5260 4304 5215 5240 0240 5240 0240 6711 1305 4275 6660 5212 0240 
5240 0240 6240 2722 6724 1325 4316 5215 4303 5215 5303 0240 5240 0240 5240 0240 
6705 1322 5317 0322 6305 4730 6324 4640 6316 1640 6301 2723 6240 2316 5311 0315 
5311 0323 6714 1705 6723 2240 6310 7301 4240 6665 5212 0240 5640 2240 6240 2711 
5322 6675 4261 5215 5240 0240 5240 0240 6722 2305 6325 7322 5215 0212 5240 0240 
6240 2640 4316 6704 4212 0232 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