File DSE15.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 2661 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 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 0261 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 2661 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 
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 6316 4704 5715 2655 
5251 6263 5661 0654 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 6722 0305 
6301 2722 6240 7714 4317 6720 5212 0240 5640 0640 5640 6701 5731 0650 6651 4653 
5250 4661 5215 0212 5240 0240 6240 1640 5275 4331 5262 5651 5731 1250 4251 5215 
5240 0240 5240 0240 5302 7275 5662 0304 6252 0650 5253 4331 5261 5651 6703 4653 
5250 4663 5255 4331 5265 4651 5215 0212 5240 0240 6240 1640 5675 0656 5304 5260 
5250 5701 6301 1653 5253 4331 5262 5651 5731 1650 6651 4653 5250 4663 5253 4331 
5264 4651 6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6724 1301 6324 6240 
6717 0317 5215 0212 5240 0240 6240 2240 5717 1240 5640 6711 6265 7254 6304 6711 
5215 0212 5240 0240 6240 0640 4275 6702 5212 0240 5240 0240 5640 6702 4303 5215 
5240 0240 5240 0240 5303 7275 5662 0304 6652 4650 5250 6711 5264 5651 6331 4650 
5255 4663 5253 4331 5711 1255 6651 4653 5250 6711 5261 5651 6331 4650 4251 6651 
5212 0240 5640 1240 5240 4332 5711 2255 6251 0675 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 6706 2717 6322 1640 6717 0315 
6317 2716 6716 1724 5215 0212 5240 0240 6240 0640 5275 4331 6316 4704 5315 5651 
6331 7250 6304 6711 4251 5215 5611 6701 6256 2261 5260 4252 6301 0653 5253 4331 
6316 4704 5715 0655 6651 4653 6250 2316 5311 6715 5261 5651 6331 7250 6304 6711 
5255 4661 5253 4331 6316 4704 5715 1255 6651 4653 6250 2316 5311 6715 4262 6651 
5212 0240 5240 0240 5261 0240 5240 0240 6640 4653 6250 2316 5311 6715 5263 4651 
5215 0212 5240 0240 6640 5240 6250 2316 5311 6715 5663 6651 4302 5215 5240 0240 
5240 0240 6332 7250 6304 6711 5255 4662 4275 6703 5212 0240 5240 0240 5240 4332 
6316 4704 5715 0655 6251 0675 5215 0212 5240 0240 6640 5240 6250 2316 5311 4715 
5275 5701 6301 1655 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 4265 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 



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