File DRTNI.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 1304 6324 4716 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6717 1640 
6717 3314 6305 3640 6305 2716 6322 6301 6240 7716 6316 4714 6316 0705 6322 2640 
6321 0725 6324 7711 5316 0323 5317 0306 6324 2710 6240 7706 5322 0315 6706 4250 
5651 0275 6215 1612 5240 0240 5240 0240 5240 0240 6240 1240 6331 6640 6305 7301 
6323 7640 6306 7240 6705 2327 5317 6716 6323 4640 6724 1305 6301 4724 5317 0316 
6715 2305 6310 2317 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 6704 2322 
5316 0311 5250 6330 6306 2254 6305 3322 6254 1706 6724 4254 5323 6324 6705 1720 
6254 2711 5316 6304 6711 1305 4251 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6720 1301 6301 2715 6724 1305 6240 1706 6724 1240 6705 2721 6311 2722 6323 0640 
6316 2640 6330 2724 6322 0716 6714 1640 6724 2301 6305 2715 5316 7324 6215 1612 
6215 1612 5240 0240 5240 0240 6240 2240 6305 1723 6722 0311 6324 7711 6316 7640 
6706 0240 6301 0722 6715 2305 6705 1722 6215 1612 5240 0240 5240 0240 5240 0240 
6640 4240 5240 0240 5240 0240 6255 2240 6317 1325 5314 0305 6320 2722 6703 1711 
6311 7317 6240 2722 6323 6325 6324 7301 6724 1240 6717 2317 6240 3317 6640 0705 
6725 2301 6311 7317 5240 4306 5730 6651 4260 6656 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0306 5240 0240 5240 6640 6240 7704 6325 6302 6705 0240 6322 1705 
6311 4723 5317 0316 6722 1705 6725 2314 6701 2316 6640 2706 6716 2303 6311 7317 
6240 0726 6314 2725 6640 2301 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6640 1240 6717 2317 5240 7330 6215 1612 5240 0240 5240 0240 
5240 0240 6240 2240 6305 3322 5240 0240 6255 2240 6317 1325 5314 0305 6320 2722 
6703 1711 6311 7317 6240 2722 6323 6325 6324 7301 6724 3240 6701 2714 6305 7640 
6306 2240 6305 4722 6726 2301 6311 2726 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 0640 6724 1240 6717 2317 5240 7330 6215 1612 
5240 0240 5240 0240 5240 0240 6240 3240 5303 0324 5240 0240 6255 7240 6301 2715 
6240 3317 6240 4324 6305 2640 6330 2724 6322 0716 6714 1640 6725 1302 6717 2325 
6311 2716 6640 1725 5305 7304 6640 2311 6240 7703 6715 2720 6724 1705 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 2240 6317 3640 
6311 2726 6316 0640 6722 2707 6315 7305 6724 4240 6640 2706 6716 2303 6311 7317 
6240 0726 6314 2725 5240 0306 6301 2316 6240 2704 6722 3311 6301 4724 4326 6705 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 2704 
5322 7306 6640 2311 6723 0240 6301 0722 6715 2305 5305 0322 6714 1711 6324 6640 
6725 2323 6240 2702 5240 6330 6306 2254 6305 3322 6654 3640 6710 1305 4305 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6301 6314 
6240 0720 6322 6701 6305 2724 5322 0323 6301 2722 6240 7704 6325 6302 6705 0240 
6322 1705 6311 4723 5317 7316 6215 1612 5240 0240 5240 0240 5240 0240 6640 4240 
5323 0324 5240 0240 6255 2240 6317 1325 5314 0305 6320 2722 6703 1711 6311 7317 
6240 7311 6720 2325 6240 0726 6314 2725 6240 4327 6311 4303 6640 0323 6305 4703 
6306 2711 6723 2240 4310 6705 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 7311 6311 4724 5301 0314 6307 2725 5323 0323 5317 0306 
6324 2710 6240 7722 5317 0324 4330 6656 5212 0303 5240 0240 5240 0240 5240 0240 
6640 0305 5323 0240 5240 6640 6240 4723 6316 6307 6705 0240 6322 1705 6311 4723 
5317 0316 6711 0316 5325 0324 6326 6301 5325 0305 6327 4710 5303 0310 6323 2720 
6303 3311 6711 1705 6240 4324 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6725 0320 5305 0322 6702 2717 5316 0304 5317 0306 
6324 2710 6640 1305 6722 1317 6240 3317 6240 2722 6323 6325 6724 4240 4256 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6311 7305 5304 0240 5240 0255 6715 4301 
6711 2715 6315 7240 6325 1315 5305 0322 5317 0306 6311 2724 6722 2301 6311 7317 
6640 2323 6705 1720 6640 0323 6305 4703 6306 2711 4304 6656 5212 0303 5240 0240 
5240 0240 5240 0240 6240 2711 5322 0240 5240 6640 6240 2722 6323 6325 6324 7301 
6324 2640 6322 7722 6722 0240 6301 0722 6715 2305 5305 0322 6303 2317 5305 0304 
5301 0323 6306 6317 6714 3717 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 2711 5722 0275 5240 0255 5316 0317 6705 1322 
5317 6322 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6711 1305 5275 0261 6255 7240 6317 1640 6717 3316 6305 3722 6305 1716 
6305 0640 6306 2724 6322 4640 6305 2316 6640 2311 6305 0722 6324 7711 6716 1640 
6724 0305 4323 6654 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 4640 5705 6722 5262 6640 6640 2301 6240 7301 6331 4640 6724 1305 
6301 4724 5317 0316 6323 2724 6320 2240 6305 4722 6726 2301 6311 2726 6240 2704 
5322 0306 6727 1701 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 2640 6321 0725 6714 2240 6717 5240 
6305 7722 4256 5215 4303 5215 5303 0240 5240 0240 5240 0240 6322 6705 6301 5722 
4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 6324 2710 6640 1320 6317 2703 
6704 1325 6305 4640 6323 1240 6331 0720 6323 2723 6304 0640 5316 0304 6707 3311 
5305 0323 6324 2710 6640 1305 6722 1317 6240 2715 6323 0723 5307 0305 6711 1305 
4275 6662 5212 0303 5240 0240 5240 0240 5240 0240 6240 3311 6640 2301 6240 7301 
6331 4640 6724 1305 6301 4724 5317 0316 6323 2724 6320 2240 6305 4722 6726 2301 
6311 2726 6240 3317 5240 4306 5330 0251 5311 0323 6705 2721 5301 0314 5324 0317 
4260 6656 5212 0303 5240 0240 5240 0240 5240 0240 6240 7720 6323 4723 6702 4714 
6240 4324 6705 0240 6322 1717 6705 2704 5322 0305 6727 2717 5314 0304 5302 0305 
6323 1725 6703 1705 6723 2706 6314 4640 6306 4640 6324 4640 6723 1640 6724 1301 
6324 2305 6215 1612 5240 0240 5240 0240 5240 0240 6240 7640 6316 2703 6240 7715 
5322 0305 6727 2311 6310 0640 6716 2317 6710 1305 6240 7311 6311 4724 5301 0314 
6307 2725 5323 0323 6730 2323 4256 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 6640 2240 5310 0305 6705 2330 6305 7322 5301 0314 
6323 1325 6722 2717 6324 7311 6305 3240 5303 4324 6330 3254 6254 2704 5322 4706 
6640 2715 5323 0324 5302 0305 6706 1325 6716 1711 6310 2305 6215 1612 5240 0240 
5240 0240 5240 0240 6240 1240 6731 2240 5310 0305 6325 2723 4322 6656 4212 6703 
5212 0303 5240 0240 5240 0240 6240 2715 6324 7710 4304 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6323 6317 6325 4724 5317 0316 5317 0306 6705 2721 6301 4724 
5317 0316 6706 4250 5651 0275 6640 1711 6240 7704 5316 0305 5302 0331 6315 0705 
5316 0323 5317 0306 6716 3705 6324 7317 4255 6723 5212 0303 5240 0240 5240 0240 
5240 0240 6640 2311 6305 0722 6324 7711 6316 6640 6305 4324 5317 6304 6240 4327 
6311 4303 6640 2323 6701 2322 6323 0640 6724 2240 5310 0305 6311 4716 6324 0711 
6314 3640 6725 1705 6723 4240 5323 0324 4317 6706 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0301 6322 7717 6724 4240 6256 1640 6717 3316 6305 3722 6305 1716 
6305 4640 6723 0640 6325 2301 6722 2301 5311 0303 5311 0306 6324 2710 6240 2704 
6722 3311 6301 4724 5326 0305 4317 6706 5212 0303 5240 0240 5240 0240 5240 0240 
5240 4306 5330 0251 5301 0324 6322 7717 6724 4240 6640 1711 6240 7716 6324 2640 
6321 0725 6714 2240 6717 5240 6305 7722 6256 7640 5316 0305 6311 2724 6722 2301 
6311 7317 6640 2323 4305 6720 5212 0303 5240 0240 5240 0240 5240 0240 6240 2722 
6321 4725 6722 1705 6240 7317 6305 2640 6326 6301 6725 2301 6311 7317 6240 3317 
5240 4306 5330 0251 6301 2316 6240 7317 6305 2640 6326 6301 6725 2301 6311 7317 
6240 3317 6240 4324 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 6704 1305 
6311 0726 6724 3311 6305 7640 6306 3240 5250 4730 6256 3240 5317 0322 6724 1705 
6324 7640 6716 1640 6301 4724 6323 0706 6303 7724 5322 0331 6301 1703 6325 0722 
5303 0331 6323 2705 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 6317 6722 
6325 0714 5305 4240 5262 0251 5317 0306 6715 2301 6310 6705 6301 4724 6303 6301 
6240 2704 6723 1303 6711 2320 6311 7317 4256 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6706 1317 6240 2722 6706 1305 6305 1716 5305 0254 6323 2705 5240 7322 
6640 2732 6722 2715 6305 6310 6654 0240 6322 5701 6724 1711 6303 2710 6240 0715 
6324 2710 6715 2301 5311 0313 6306 2725 4322 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6311 3716 6305 4716 6705 1325 6705 2640 5316 0304 6720 4710 6323 5711 
5305 6322 6640 0323 6322 7311 6707 1305 6254 1240 6305 6322 5311 7716 6307 2717 
6324 4724 6316 2707 4316 6657 5212 0303 5240 0240 5240 0240 5240 0240 6240 2710 
6311 2704 6314 2702 5322 6307 5640 4661 5266 6263 6640 0320 5656 1261 5655 3661 
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 1304 6324 4716 5250 6330 6306 2254 6305 3322 6254 1706 6724 4254 
5323 6324 6705 1720 6254 2711 5316 6304 6711 1305 4251 5215 4303 5215 4303 5215 
5240 0240 5240 0240 6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6716 4240 
5254 6306 6704 1305 6706 4254 5323 6324 6324 6317 6254 7724 5314 6306 5304 6330 
4301 5215 4303 5215 5303 0240 5240 0240 6320 2722 6720 1301 6305 4640 6724 1305 
6301 4724 4317 6716 5212 0240 5240 0240 6240 2711 5722 0275 5215 0212 5240 0240 
6640 4240 6675 1730 4324 5215 5240 0240 5240 0240 6324 6317 4275 6730 5212 0240 
5240 0240 6240 0703 5314 0314 6706 2303 6250 7724 6314 3254 6254 2704 5322 4706 
5215 0212 5240 0240 6640 2240 6317 3314 5675 0261 5260 5256 6705 1720 6215 1612 
6215 1612 6215 1612 5240 0240 6640 1640 6724 1301 6324 4640 6724 1305 6301 4724 
5317 0316 6314 7717 4320 5215 5240 0240 5240 0240 5304 0317 6266 4640 5275 6261 
6311 7305 4304 5215 5240 0240 5240 0240 5311 4306 5706 0651 5254 6267 4261 5215 
4303 5215 5303 0240 5240 0240 6705 2721 6301 4724 5317 0316 5311 0323 6716 2317 
6240 0723 6724 1711 6306 2711 6304 1240 6731 4240 5215 0212 5240 0240 6261 4640 
6306 2250 6305 3322 5251 6262 5670 1254 6215 1612 6215 1612 5240 0240 6240 4640 
6724 1305 6301 4724 5317 0316 5311 0323 6720 1717 6323 1311 4314 6705 5212 0240 
5640 1240 6640 4304 5275 7706 6704 1305 4306 5215 5240 0240 5240 0240 6730 4275 
6655 4304 5215 0212 5240 0240 6640 2240 5717 6714 4330 5215 5240 0240 5240 0240 
6303 6301 6314 3240 5303 4324 6324 6317 5254 6306 6704 1305 4306 6651 4212 6703 
5212 0303 5240 0240 6240 2724 5323 0324 5317 0316 6723 2301 6311 3323 6701 2303 
6717 4722 6240 1701 6703 1325 6701 4703 5215 0212 5240 0240 6640 2240 5717 6714 
6705 1720 5215 0212 5240 0240 6240 0640 6275 0704 5302 4323 4330 6651 5212 0240 
5240 0240 6240 3311 5250 6701 6261 2256 5660 2251 5254 6264 4263 5215 5240 0240 
5240 0263 6324 6317 6275 7724 6314 0652 5215 0212 5240 0240 6264 4640 6306 2250 
6701 1702 6650 4304 6651 2255 5317 4714 5665 2654 4254 6666 5212 0240 5640 2640 
6240 3311 6250 0704 5302 4323 5306 6651 6324 6317 5706 3651 5254 6267 4266 5215 
5240 0240 5240 0266 6303 7317 6324 7311 4325 6705 5212 0303 5240 0240 6240 7305 
6304 7640 6306 4640 6724 1305 6301 4724 5317 0316 6314 7717 4320 5215 4303 5215 
4303 5215 5303 0240 5240 0240 5316 0317 6303 7317 6726 1305 6307 7305 5303 0305 
6701 2306 5305 0322 6311 7305 6304 4640 6724 1305 6301 4724 5317 0316 6323 2724 
5320 7323 6640 1305 6722 1317 6240 2722 6724 1325 4316 6656 5212 0240 5240 0240 
6240 2711 5722 0675 5215 0212 5240 0240 6667 1240 6705 2724 4322 6716 4212 6703 
5212 0303 5240 0240 6640 1305 6722 1317 6240 2722 6724 1325 6316 4640 6316 1640 
6301 2723 6240 3317 6240 2732 5322 0317 6704 3311 6311 7723 4322 5215 5240 0240 
5240 0270 6711 1305 4275 6662 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 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