File DSINV.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 6711 3316 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 4640 6316 2726 
5322 0324 6301 3640 6311 2726 6716 1640 6331 6715 6705 1324 5311 0303 6720 1717 
6311 4724 5326 0305 6304 3305 6311 4716 5324 0305 6715 2301 6722 4311 6215 1612 
6215 1612 5240 0240 5240 0240 6640 2640 6323 3701 4305 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6303 6301 6314 2240 6323 7311 6326 0650 5254 6316 6705 1720 
6254 2711 4322 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 6640 6240 7704 6325 6302 
6705 0240 6322 1705 6311 4723 5317 0316 6725 0320 5305 0322 6324 4722 6301 3716 
6325 0714 6722 0240 6701 2322 6240 3317 6240 4707 6326 7305 6215 1612 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1640 6331 6715 6705 1324 
5311 0303 6720 1717 6311 4724 5326 0305 6304 3305 6311 4716 5324 0305 6316 1240 
6331 7240 6240 7703 6305 3306 6311 4703 6705 2316 6215 1612 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 6640 6701 1324 5311 7330 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 7640 6716 1240 
6705 2724 5322 0316 6301 1640 6717 2316 6301 7311 6723 2240 5310 0305 6722 1705 
6725 2314 6701 2316 6640 0325 6720 1305 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6640 2240 6322 0711 6716 2707 6714 1301 6240 0715 
6324 4722 6330 4640 6316 2240 6317 1325 5314 0305 6320 2722 6703 1711 6311 7317 
4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 5316 0240 5240 0240 5240 0255 
6324 2710 6640 2716 6315 2702 6322 7640 6706 1240 6717 1727 6240 1650 6717 2714 
6715 1716 6251 4640 6316 3640 6311 2726 6316 6640 6701 1324 5311 7330 6215 1612 
5240 0240 5240 0240 5240 0240 6240 2640 5320 0323 5240 0240 6655 1640 6311 3716 
5314 0305 6320 2722 6703 1711 6311 7317 6240 7311 6720 2325 6240 7703 6716 2323 
6701 2316 6240 4327 6311 4303 6640 1711 6640 1725 4305 6704 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1701 6240 2722 6714 2301 
6311 2726 6240 7724 6714 1305 6301 1716 6305 3240 5317 0322 6724 1705 6324 7640 
6316 6240 6717 1723 6240 3317 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6640 1640 6311 7307 6311 4706 6303 7301 5303 7305 6215 1612 
5240 0240 5240 0240 5240 0240 6240 4640 5305 0322 5240 0240 6655 1240 6705 2723 
6314 4724 5316 0307 6705 1322 5317 0322 6720 1301 6301 2715 6724 1305 6240 7703 
6304 2305 6640 1701 6240 7706 6314 7714 4327 6723 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 2711 5722 0275 5240 6640 6240 7716 
6640 1305 6722 1317 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 4640 5705 6722 5255 0261 6255 7240 6717 1240 6705 2723 5314 0324 
6302 1705 6701 1725 6305 7640 6706 3640 6322 7317 6307 4640 6716 2720 6724 0240 
6301 0722 5315 6705 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6640 2240 5305 0322 6316 7640 6322 1240 
6305 0703 6325 2723 6240 7723 5315 0305 6322 2301 6311 0703 5316 0304 5311 0323 
6316 7317 4255 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6720 1717 6311 4724 5326 0305 6250 0715 
6324 4722 6330 0640 6640 1711 6240 7716 6724 0240 6317 4723 6724 3311 4305 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6304 3305 6311 4716 5324 6305 6240 7720 6323 4723 6702 4714 
6640 2704 6705 2240 6317 6240 6717 1723 6240 3317 6240 4723 6307 4716 4255 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6306 1711 6301 1716 4305 6651 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 2711 6322 5675 5240 6640 6240 0727 
6322 4716 5316 0307 6327 4710 5303 0310 6311 2316 6311 0703 6724 1705 6240 7714 
5323 0323 5317 0306 6323 3711 6316 3311 4311 6655 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 0703 
6316 2703 6656 2240 5310 0305 6322 2301 6311 0703 5316 0304 6706 1317 6315 2305 
6640 2301 6240 0706 6303 7724 6722 5311 4301 6655 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 4724 
5317 0316 6323 2724 6320 5640 5253 0261 6727 1701 6640 2323 6311 6314 6240 7720 
6723 2311 6311 2726 6640 2702 6324 7240 4317 5215 5303 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6314 7317 
6707 1305 6640 1307 6705 2301 5305 0322 6324 0710 6316 0640 5302 4323 6705 1720 
5252 4301 5713 0653 5254 5713 5261 4651 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 0325 6720 1305 6640 1324 6311 7301 6307 6325 5301 0322 6720 1301 
6324 7640 6306 3640 6311 2726 6316 6640 6701 1324 5311 0330 5311 0323 6701 1723 
6325 2715 6704 2240 6317 1240 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6323 7724 6322 2305 6240 7703 6314 6725 6316 4727 5323 0305 5311 0316 5316 4252 
5716 0653 5651 1257 6640 2723 6303 2703 6323 4723 5326 0305 6323 7724 6322 3701 
6305 6240 6317 0703 6324 7711 5316 7323 6215 1612 5240 0240 5240 0240 5240 0240 
6240 4640 6716 2240 5310 0305 6323 6701 6705 1640 6724 1317 6301 2707 6240 7714 
6703 2301 6311 7317 6723 2240 5310 0305 6722 1705 6725 2314 6311 3716 6640 0325 
6720 1305 6640 1324 6311 7301 5307 6725 6215 1612 5240 0240 5240 0240 5240 0240 
6240 6240 5301 0322 6715 2301 6722 4311 6640 1711 6640 2323 6317 2722 6304 1640 
6717 2714 6715 3716 6311 2723 6240 7724 4317 6656 5212 0303 5240 0240 5240 0240 
5240 0240 6240 4324 6705 0240 6322 1717 6705 2704 5322 0305 6707 3311 5305 0323 
6722 1705 6725 2314 6323 4640 6306 7240 6640 1711 6640 1307 6705 2301 5305 0322 
6324 0710 5716 0240 6240 7301 6304 0640 4314 6714 5212 0303 5240 0240 5240 0240 
5240 0240 6240 0703 6714 2703 6714 2301 5305 0304 6322 2301 6311 0703 6716 1704 
6640 1301 6705 0240 6317 4723 6724 3311 4305 6656 4212 6703 5212 0303 5240 0240 
5240 0240 6640 2723 6302 7722 6325 4724 6716 1705 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 6304 3315 4323 6704 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 5311 0323 6304 7317 6705 2640 
6323 7311 6307 3240 6701 2303 6317 4722 6732 2301 6311 7317 6640 4702 6640 2723 
6302 7722 6325 4724 5316 0305 6304 3315 5323 7304 6215 1612 6215 1612 5240 0240 
5240 7240 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 6656 4212 6703 
5212 0240 5240 0240 6640 2723 6302 7722 6325 4724 5316 0305 6304 4723 5316 4326 
6301 7254 6654 0305 6323 4654 5305 4722 6215 1612 6215 1612 5215 0212 5240 0240 
6240 2240 6311 2715 6316 4723 5317 0316 5701 0650 4251 5215 5240 0240 5240 0240 
6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6316 0640 6254 4704 6716 3654 
6317 5722 6215 1612 6215 1612 5240 0240 5240 0240 6240 3240 6701 2303 6317 4722 
5332 0305 6707 3311 5305 0316 6715 2301 6722 4311 6640 4702 6240 2715 6701 1716 
6240 3317 6640 2723 6302 7722 6325 4724 5316 0305 6304 3315 4323 6704 5212 0303 
5240 0240 5240 0240 5240 0301 6675 2240 6322 7301 6323 7720 5323 4305 5324 0251 
6652 2240 5215 0212 5240 0240 6240 1640 6301 6314 6240 6704 6306 2323 5250 6301 
6316 2654 5320 6323 6711 1305 4251 5215 5240 0240 5240 0240 5311 4306 6711 1305 
5651 4640 5254 6261 4261 5215 4303 5215 5303 0240 5240 0240 5240 0240 6711 3316 
6705 2322 6640 0325 6720 1305 6640 1324 6311 7301 6307 6325 5301 0322 6715 2301 
6722 4311 4240 6724 5212 0303 5240 0240 5240 0240 6640 1320 6305 0720 5322 0305 
6711 3316 6705 1722 6311 7317 6255 7714 4317 6720 5212 0240 5640 0640 6640 0311 
5711 6726 5316 4252 5716 0653 5651 1257 5215 0212 5240 0240 6240 4640 5716 6704 
6311 4720 4326 5215 4303 5215 5303 0240 5240 0240 5240 0240 6311 4716 6324 0711 
6714 5311 6305 4640 6316 2726 6322 4723 5317 6716 6314 7717 4320 5215 5240 0240 
5240 0240 5304 0317 6266 4640 5275 6261 4316 5215 5240 0240 5240 0240 6304 7311 
5275 7261 5304 7660 6301 4650 6720 3311 4251 5215 5240 0240 5240 0240 6301 4650 
6720 3311 6251 2275 4311 6716 5212 0240 5240 0240 6240 4715 6316 7275 5215 0212 
5240 0240 6240 5640 6305 2316 5275 6711 4261 5215 5240 0240 5240 0240 6314 7301 
6306 7275 6255 2713 4316 6704 5212 0240 5240 0240 6240 3311 6250 2713 5316 4704 
5240 6265 5665 1254 5215 0212 5240 0240 6262 5240 6275 7311 4304 5215 4303 5215 
5303 0240 5240 0240 5240 0240 6311 4716 6324 0711 6714 5311 6705 1240 5317 6727 
6314 7717 4320 5215 5240 0240 5240 0240 5304 0317 6264 5640 5275 6261 6313 7305 
4304 5215 5240 0240 5240 0240 6727 1317 5713 0275 5656 0304 5215 0212 5240 0240 
6240 6640 5711 6716 6315 7311 4255 6661 5212 0240 5240 0240 6240 4314 5717 6722 
6311 4720 4326 5215 5240 0240 5240 0240 6314 2726 6322 5275 6215 1612 6215 1612 
5240 0240 5240 0240 6640 1640 6724 1301 6324 4640 6316 2716 6322 6240 6717 0317 
5215 0212 5240 0240 6240 2240 5717 1640 5640 6714 6314 7301 6306 6654 4311 6716 
5212 0240 5240 0240 6640 3314 5705 6722 6314 2726 5722 0653 5215 0212 5240 0240 
6240 6240 6710 1317 6275 4314 5317 5722 4314 5215 5240 0240 5240 0263 6727 1317 
6713 3675 6317 5722 5253 4301 6314 2726 5322 5251 6301 6250 6710 1317 4251 5215 
5303 0240 5240 0240 5240 0240 6305 2316 6240 3317 6240 7311 6716 1305 6240 7714 
4317 6720 4212 6703 5212 0240 5240 0240 5240 4301 5712 6651 6255 7727 5322 5313 
6304 7311 5215 0212 5240 0240 6264 5240 5275 6712 6315 7311 6215 1612 5240 0240 
5240 0240 6240 2640 5316 0304 5317 0306 6722 3717 6255 7714 4317 6720 4212 6703 
5212 0240 5640 2640 6640 0311 5711 6726 6311 4720 6326 6655 4311 6716 5212 0240 
5640 3240 6240 7311 6304 4675 5316 6704 4261 5215 5303 0240 5240 0240 5240 0240 
6305 2316 6240 3317 6240 7311 6726 1305 6323 7711 6316 6255 6717 0317 6215 1612 
6215 1612 5240 0240 5240 0240 6240 1640 6301 1714 6325 0714 5324 0305 6711 3316 
6705 1722 6305 0650 6251 1240 6331 6640 6305 7301 6323 7640 6306 4640 6316 2726 
6322 2723 5250 4724 6215 1612 5240 0240 5240 0240 6240 4640 6316 2726 6322 2723 
5250 4701 5240 0275 6711 3316 6705 1722 6705 2250 5251 5240 6640 1324 6701 1716 
6720 1717 6305 4650 6316 2726 6322 2723 5250 4724 4251 5215 5303 0240 5240 0240 
5240 0240 6311 4716 6324 0711 6714 5311 6305 6640 6725 2314 6311 6320 6311 0703 
6324 7711 6316 6255 6717 0317 5215 0212 5240 0240 6240 2240 5717 4240 5640 6711 
6261 7254 5215 0212 5240 0240 6240 4640 6720 3311 6675 0311 5311 5726 4311 5215 
5240 0240 5240 0240 6312 4675 6720 3311 6215 1612 6215 1612 5240 0240 5240 0240 
6240 4640 6716 2311 6311 6301 6311 2732 6240 7722 6327 6255 6717 0317 5215 0212 
5240 0240 6240 2240 5717 4240 5640 6713 6311 7254 5215 0212 5240 0240 6640 3640 
6317 5722 5275 7260 4304 6660 5212 0240 5240 0240 6240 4314 5717 6722 4312 5215 
4303 5215 5303 0240 5240 0240 5240 0240 6323 0724 5322 0324 6311 7316 5305 0322 
6314 7717 4320 5215 5240 0240 5240 0240 5304 0317 6267 6240 5275 6313 4316 5215 
5240 0240 5240 0240 6314 2726 6322 6275 6710 1317 5253 6713 4311 5215 5240 0240 
5240 0240 6727 1317 6713 3675 6317 5722 5253 4301 6314 7710 5322 5251 6301 6250 
6726 1305 4251 5215 5240 0240 5240 0267 6314 7710 6322 6275 6710 1317 4253 6714 
5212 0303 5240 0240 5240 0240 6240 7305 6304 7640 6306 4640 6316 2716 6322 6240 
6717 0317 6215 1612 5215 0212 5240 0240 6240 0640 5250 4712 6275 7727 4322 6713 
5212 0240 5640 4240 5640 6712 6312 5653 6215 1612 5240 0240 5240 0240 6240 2640 
5316 0304 5317 0306 6722 3717 6255 0640 5316 0304 6315 6325 6724 0311 6314 1711 
6301 4724 5317 6716 6314 7717 4320 5215 4303 5215 5240 0240 5240 0271 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 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