C:\SYMSYN\DES.SSL


   1.     pc1 : 56
   2.      : 48
   3.      : 40
   4.      : 32
   5.      : 24
   6.      : 16
   7.      : 8
   8.      : 0
   9.      : 57
  10.      : 49
  11.      : 41
  12.      : 33
  13.      : 25
  14.      : 17
  15.      : 9
  16.      : 1
  17.      : 58
  18.      : 50
  19.      : 42
  20.      : 34
  21.      : 26
  22.      : 18
  23.      : 10
  24.      : 2
  25.      : 59
  26.      : 51
  27.      : 43
  28.      : 35
  29.      : 62
  30.      : 54
  31.      : 46
  32.      : 38
  33.      : 30
  34.      : 22
  35.      : 14
  36.      : 6
  37.      : 61
  38.      : 53
  39.      : 45
  40.      : 37
  41.      : 29
  42.      : 21
  43.      : 13
  44.      : 5
  45.      : 60
  46.      : 52
  47.      : 44
  48.      : 36
  49.      : 28
  50.      : 20
  51.      : 12
  52.      : 4
  53.      : 27
  54.      : 19
  55.      : 11
  56.      : 3
  57.     Pc2 : 13
  58.      : 16
  59.      : 10
  60.      : 23
  61.      : 0
  62.      : 4
  63.      : 2
  64.      : 27
  65.      : 14
  66.      : 5
  67.      : 20
  68.      : 9
  69.      : 22
  70.      : 18
  71.      : 11
  72.      : 3
  73.      : 25
  74.      : 7
  75.      : 15
  76.      : 6
  77.      : 26
  78.      : 19
  79.      : 12
  80.      : 1
  81.      : 40
  82.      : 51
  83.      : 30
  84.      : 36
  85.      : 46
  86.      : 54
  87.      : 29
  88.      : 39
  89.      : 50
  90.      : 44
  91.      : 32
  92.      : 47
  93.      : 43
  94.      : 48
  95.      : 38
  96.      : 55
  97.      : 33
  98.      : 52
  99.      : 45
 100.      : 41
 101.      : 49
 102.      : 35
 103.      : 28
 104.      : 31
 105.     P : 15
 106.      : 6
 107.      : 19
 108.      : 20
 109.      : 28
 110.      : 11
 111.      : 27
 112.      : 16
 113.      : 0
 114.      : 14
 115.      : 22
 116.      : 25
 117.      : 4
 118.      : 17
 119.      : 30
 120.      : 9
 121.      : 1
 122.      : 7
 123.      : 23
 124.      : 13
 125.      : 31
 126.      : 26
 127.      : 2
 128.      : 8
 129.      : 18
 130.      : 12
 131.      : 29
 132.      : 5
 133.      : 21
 134.      : 10
 135.      : 3
 136.      : 24
 137.     Ebit : 31
 138.      : 0
 139.      : 1
 140.      : 2
 141.      : 3
 142.      : 4
 143.      : 3
 144.      : 4
 145.      : 5
 146.      : 6
 147.      : 7
 148.      : 8
 149.      : 7
 150.      : 8
 151.      : 9
 152.      : 10
 153.      : 11
 154.      : 12
 155.      : 11
 156.      : 12
 157.      : 13
 158.      : 14
 159.      : 15
 160.      : 16
 161.      : 15
 162.      : 16
 163.      : 17
 164.      : 18
 165.      : 19
 166.      : 20
 167.      : 19
 168.      : 20
 169.      : 21
 170.      : 22
 171.      : 23
 172.      : 24
 173.      : 23
 174.      : 24
 175.      : 25
 176.      : 26
 177.      : 27
 178.      : 28
 179.      : 27
 180.      : 28
 181.      : 29
 182.      : 30
 183.      : 31
 184.      : 0
 185.     DesIP : 57
 186.      : 49
 187.      : 41
 188.      : 33
 189.      : 25
 190.      : 17
 191.      : 9
 192.      : 1
 193.      : 59
 194.      : 51
 195.      : 43
 196.      : 35
 197.      : 27
 198.      : 19
 199.      : 11
 200.      : 3
 201.      : 61
 202.      : 53
 203.      : 45
 204.      : 37
 205.      : 29
 206.      : 21
 207.      : 13
 208.      : 5
 209.      : 63
 210.      : 55
 211.      : 47
 212.      : 39
 213.      : 31
 214.      : 23
 215.      : 15
 216.      : 7
 217.      : 56
 218.      : 48
 219.      : 40
 220.      : 32
 221.      : 24
 222.      : 16
 223.      : 8
 224.      : 0
 225.      : 58
 226.      : 50
 227.      : 42
 228.      : 34
 229.      : 26
 230.      : 18
 231.      : 10
 232.      : 2
 233.      : 60
 234.      : 52
 235.      : 44
 236.      : 36
 237.      : 28
 238.      : 20
 239.      : 12
 240.      : 4
 241.      : 62
 242.      : 54
 243.      : 46
 244.      : 38
 245.      : 30
 246.      : 22
 247.      : 14
 248.      : 6
 249.     DesIPIV : 39
 250.      : 7
 251.      : 47
 252.      : 15
 253.      : 55
 254.      : 23
 255.      : 63
 256.      : 31
 257.      : 38
 258.      : 6
 259.      : 46
 260.      : 14
 261.      : 54
 262.      : 22
 263.      : 62
 264.      : 30
 265.      : 37
 266.      : 5
 267.      : 45
 268.      : 13
 269.      : 53
 270.      : 21
 271.      : 61
 272.      : 29
 273.      : 36
 274.      : 4
 275.      : 44
 276.      : 12
 277.      : 52
 278.      : 20
 279.      : 60
 280.      : 28
 281.      : 35
 282.      : 3
 283.      : 43
 284.      : 11
 285.      : 51
 286.      : 19
 287.      : 59
 288.      : 27
 289.      : 34
 290.      : 2
 291.      : 42
 292.      : 10
 293.      : 50
 294.      : 18
 295.      : 58
 296.      : 26
 297.      : 33
 298.      : 1
 299.      : 41
 300.      : 9
 301.      : 49
 302.      : 17
 303.      : 57
 304.      : 25
 305.      : 32
 306.      : 0
 307.      : 40
 308.      : 8
 309.      : 48
 310.      : 16
 311.      : 56
 312.      : 24
 313.     DesS1 :  14
 314.      :  0
 315.      :  4
 316.      :  15
 317.      :  13
 318.      :  7
 319.      :  1
 320.      :  4
 321.      :  2
 322.      :  14
 323.      :  15
 324.      :  2
 325.      :  11
 326.      :  13
 327.      :  8
 328.      :  1
 329.      :  3
 330.      :  10
 331.      :  10
 332.      :  6
 333.      :  6
 334.      :  12
 335.      :  12
 336.      :  11
 337.      :  5
 338.      :  9
 339.      :  9
 340.      :  5
 341.      :  0
 342.      :  3
 343.      :  7
 344.      :  8
 345.      :  4
 346.      :  15
 347.      :  1
 348.      :  12
 349.      :  14
 350.      :  8
 351.      :  8
 352.      :  2
 353.      :  13
 354.      :  4
 355.      :  6
 356.      :  9
 357.      :  2
 358.      :  1
 359.      :  11
 360.      :  7
 361.      :  15
 362.      :  5
 363.      :  12
 364.      :  11
 365.      :  9
 366.      :  3
 367.      :  7
 368.      :  14
 369.      :  3
 370.      :  10
 371.      :  10
 372.      :  0
 373.      :  5
 374.      :  6
 375.      :  0
 376.      :  13
 377.     S2 :  15
 378.      :  3
 379.      :  1
 380.      :  13
 381.      :  8
 382.      :  4
 383.      :  14
 384.      :  7
 385.      :  6
 386.      :  15
 387.      :  11
 388.      :  2
 389.      :  3
 390.      :  8
 391.      :  4
 392.      :  14
 393.      :  9
 394.      :  12
 395.      :  7
 396.      :  0
 397.      :  2
 398.      :  1
 399.      :  13
 400.      :  10
 401.      :  12
 402.      :  6
 403.      :  0
 404.      :  9
 405.      :  5
 406.      :  11
 407.      :  10
 408.      :  5
 409.      :  0
 410.      :  13
 411.      :  14
 412.      :  8
 413.      :  7
 414.      :  10
 415.      :  11
 416.      :  1
 417.      :  10
 418.      :  3
 419.      :  4
 420.      :  15
 421.      :  13
 422.      :  4
 423.      :  1
 424.      :  2
 425.      :  5
 426.      :  11
 427.      :  8
 428.      :  6
 429.      :  12
 430.      :  7
 431.      :  6
 432.      :  12
 433.      :  9
 434.      :  0
 435.      :  3
 436.      :  5
 437.      :  2
 438.      :  14
 439.      :  15
 440.      :  9
 441.     S3 :  10
 442.      :  13
 443.      :  0
 444.      :  7
 445.      :  9
 446.      :  0
 447.      :  14
 448.      :  9
 449.      :  6
 450.      :  3
 451.      :  3
 452.      :  4
 453.      :  15
 454.      :  6
 455.      :  5
 456.      :  10
 457.      :  1
 458.      :  2
 459.      :  13
 460.      :  8
 461.      :  12
 462.      :  5
 463.      :  7
 464.      :  14
 465.      :  11
 466.      :  12
 467.      :  4
 468.      :  11
 469.      :  2
 470.      :  15
 471.      :  8
 472.      :  1
 473.      :  13
 474.      :  1
 475.      :  6
 476.      :  10
 477.      :  4
 478.      :  13
 479.      :  9
 480.      :  0
 481.      :  8
 482.      :  6
 483.      :  15
 484.      :  9
 485.      :  3
 486.      :  8
 487.      :  0
 488.      :  7
 489.      :  11
 490.      :  4
 491.      :  1
 492.      :  15
 493.      :  2
 494.      :  14
 495.      :  12
 496.      :  3
 497.      :  5
 498.      :  11
 499.      :  10
 500.      :  5
 501.      :  14
 502.      :  2
 503.      :  7
 504.      :  12
 505.     S4 :  7
 506.      :  13
 507.      :  13
 508.      :  8
 509.      :  14
 510.      :  11
 511.      :  3
 512.      :  5
 513.      :  0
 514.      :  6
 515.      :  6
 516.      :  15
 517.      :  9
 518.      :  0
 519.      :  10
 520.      :  3
 521.      :  1
 522.      :  4
 523.      :  2
 524.      :  7
 525.      :  8
 526.      :  2
 527.      :  5
 528.      :  12
 529.      :  11
 530.      :  1
 531.      :  12
 532.      :  10
 533.      :  4
 534.      :  14
 535.      :  15
 536.      :  9
 537.      :  10
 538.      :  3
 539.      :  6
 540.      :  15
 541.      :  9
 542.      :  0
 543.      :  0
 544.      :  6
 545.      :  12
 546.      :  10
 547.      :  11
 548.      :  1
 549.      :  7
 550.      :  13
 551.      :  13
 552.      :  8
 553.      :  15
 554.      :  9
 555.      :  1
 556.      :  4
 557.      :  3
 558.      :  5
 559.      :  14
 560.      :  11
 561.      :  5
 562.      :  12
 563.      :  2
 564.      :  7
 565.      :  8
 566.      :  2
 567.      :  4
 568.      :  14
 569.     S5 :  2
 570.      :  14
 571.      :  12
 572.      :  11
 573.      :  4
 574.      :  2
 575.      :  1
 576.      :  12
 577.      :  7
 578.      :  4
 579.      :  10
 580.      :  7
 581.      :  11
 582.      :  13
 583.      :  6
 584.      :  1
 585.      :  8
 586.      :  5
 587.      :  5
 588.      :  0
 589.      :  3
 590.      :  15
 591.      :  15
 592.      :  10
 593.      :  13
 594.      :  3
 595.      :  0
 596.      :  9
 597.      :  14
 598.      :  8
 599.      :  9
 600.      :  6
 601.      :  4
 602.      :  11
 603.      :  2
 604.      :  8
 605.      :  1
 606.      :  12
 607.      :  11
 608.      :  7
 609.      :  10
 610.      :  1
 611.      :  13
 612.      :  14
 613.      :  7
 614.      :  2
 615.      :  8
 616.      :  13
 617.      :  15
 618.      :  6
 619.      :  9
 620.      :  15
 621.      :  12
 622.      :  0
 623.      :  5
 624.      :  9
 625.      :  6
 626.      :  10
 627.      :  3
 628.      :  4
 629.      :  0
 630.      :  5
 631.      :  14
 632.      :  3
 633.     S6 :  12
 634.      :  10
 635.      :  1
 636.      :  15
 637.      :  10
 638.      :  4
 639.      :  15
 640.      :  2
 641.      :  9
 642.      :  7
 643.      :  2
 644.      :  12
 645.      :  6
 646.      :  9
 647.      :  8
 648.      :  5
 649.      :  0
 650.      :  6
 651.      :  13
 652.      :  1
 653.      :  3
 654.      :  13
 655.      :  4
 656.      :  14
 657.      :  14
 658.      :  0
 659.      :  7
 660.      :  11
 661.      :  5
 662.      :  3
 663.      :  11
 664.      :  8
 665.      :  9
 666.      :  4
 667.      :  14
 668.      :  3
 669.      :  15
 670.      :  2
 671.      :  5
 672.      :  12
 673.      :  2
 674.      :  9
 675.      :  8
 676.      :  5
 677.      :  12
 678.      :  15
 679.      :  3
 680.      :  10
 681.      :  7
 682.      :  11
 683.      :  0
 684.      :  14
 685.      :  4
 686.      :  1
 687.      :  10
 688.      :  7
 689.      :  1
 690.      :  6
 691.      :  13
 692.      :  0
 693.      :  11
 694.      :  8
 695.      :  6
 696.      :  13
 697.     S7 :  4
 698.      :  13
 699.      :  11
 700.      :  0
 701.      :  2
 702.      :  11
 703.      :  14
 704.      :  7
 705.      :  15
 706.      :  4
 707.      :  0
 708.      :  9
 709.      :  8
 710.      :  1
 711.      :  13
 712.      :  10
 713.      :  3
 714.      :  14
 715.      :  12
 716.      :  3
 717.      :  9
 718.      :  5
 719.      :  7
 720.      :  12
 721.      :  5
 722.      :  2
 723.      :  10
 724.      :  15
 725.      :  6
 726.      :  8
 727.      :  1
 728.      :  6
 729.      :  1
 730.      :  6
 731.      :  4
 732.      :  11
 733.      :  11
 734.      :  13
 735.      :  13
 736.      :  8
 737.      :  12
 738.      :  1
 739.      :  3
 740.      :  4
 741.      :  7
 742.      :  10
 743.      :  14
 744.      :  7
 745.      :  10
 746.      :  9
 747.      :  15
 748.      :  5
 749.      :  6
 750.      :  0
 751.      :  8
 752.      :  15
 753.      :  0
 754.      :  14
 755.      :  5
 756.      :  2
 757.      :  9
 758.      :  3
 759.      :  2
 760.      :  12
 761.     S8 :  13
 762.      :  1
 763.      :  2
 764.      :  15
 765.      :  8
 766.      :  13
 767.      :  4
 768.      :  8
 769.      :  6
 770.      :  10
 771.      :  15
 772.      :  3
 773.      :  11
 774.      :  7
 775.      :  1
 776.      :  4
 777.      :  10
 778.      :  12
 779.      :  9
 780.      :  5
 781.      :  3
 782.      :  6
 783.      :  14
 784.      :  11
 785.      :  5
 786.      :  0
 787.      :  0
 788.      :  14
 789.      :  12
 790.      :  9
 791.      :  7
 792.      :  2
 793.      :  7
 794.      :  2
 795.      :  11
 796.      :  1
 797.      :  4
 798.      :  14
 799.      :  1
 800.      :  7
 801.      :  9
 802.      :  4
 803.      :  12
 804.      :  10
 805.      :  14
 806.      :  8
 807.      :  2
 808.      :  13
 809.      :  0
 810.      :  15
 811.      :  6
 812.      :  12
 813.      :  10
 814.      :  9
 815.      :  13
 816.      :  0
 817.      :  15
 818.      :  3
 819.      :  3
 820.      :  5
 821.      :  5
 822.      :  6
 823.      :  8
 824.      :  11
 825.     DesShifts :  1
 826.      :  1
 827.      :  2
 828.      :  2
 829.      :  2
 830.      :  2
 831.      :  2
 832.      :  2
 833.      :  1
 834.      :  2
 835.      :  2
 836.      :  2
 837.      :  2
 838.      :  2
 839.      :  2
 840.      :  1
 841.     DesHex : 0
 842.      :   0
 843.      :   0
 844.      :   0
 845.      :   0
 846.      :   0
 847.      :   0
 848.      :   1
 849.      :   0
 850.      :   0
 851.      :   1
 852.      :   0
 853.      :   0
 854.      :   0
 855.      :   1
 856.      :   1
 857.      :   0
 858.      :   1
 859.      :   0
 860.      :   0
 861.      :   0
 862.      :   1
 863.      :   0
 864.      :   1
 865.      :   0
 866.      :   1
 867.      :   1
 868.      :   0
 869.      :   0
 870.      :   1
 871.      :   1
 872.      :   1
 873.      :   1
 874.      :   0
 875.      :   0
 876.      :   0
 877.      :   1
 878.      :   0
 879.      :   0
 880.      :   1
 881.      :   1
 882.      :   0
 883.      :   1
 884.      :   0
 885.      :   1
 886.      :   0
 887.      :   1
 888.      :   1
 889.      :   1
 890.      :   1
 891.      :   0
 892.      :   0
 893.      :   1
 894.      :   1
 895.      :   0
 896.      :   1
 897.      :   1
 898.      :   1
 899.      :   1
 900.      :   0
 901.      :   1
 902.      :   1
 903.      :   1
 904.      :   1
 905.    
 906.     DesC     : 28 0
 907.     DesD     : 28 0
 908.     DesL     : 32 0
 909.     DesR     : 32 0
 910.     DesL1    : 32 0
 911.     DesR1    : 32 0
 912.     DesEK    : 48 0
 913.     DesK     : 768 0
 914.     DesWds   : 64 0
 915.    
 916.     DesI     : 0
 917.     DesJ     : 0
 918.     DesJJ    : 0xf000
 919.     DesIter  : 0
 920.     DesSNum  : 0
 921.     OldDesKeyW : -1
 922.     DesKeyW  : 0
 923.     DesDataW : 0
 924.     DesKey   = DesKeyW 
 925.     DesData  = DesDataW
 926.     K : 0
 927.     Kc = K
 928.    
 929.     kprime : x'0e329232ea6d0d73'
 930.    
 931.     dprime : x'8787878787878787'
 932.    
 933.      kprime deskey
 934.      dprime desdata
 935.      call dodeskey
 936.      call encryptdes
 937.      desdata $s
 938.      unpackhex $s
 939.      $s []
 940.      stop
 941.    
 942.     Data2Wds
 943.             63 DesJJ
 944.             7 DesI
 945.             if DesI GE 0
 946.                DesData.DesI D
 947.                DesJ
 948.                if DesJ LE 7
 949.                   and 1 D D1
 950.                   D1 DesWds.DesJJ
 951.                   shr D 1
 952.                   - DesJJ
 953.                   + DesJ
 954.                   goif
 955.                endif
 956.                - DesI
 957.                goif
 958.             endif
 959.             return
 960.     Wds2Data                                                                       
 961.             DesJJ             
 962.             DesI              
 963.             if DesI LE 7      
 964.                 DesJ          
 965.                 if DesJ LE 7              
 966.                    shl D 1       
 967.                    if DesWds.DesJJ NE 0          
 968.                        + D       
 969.                    endif
 970.                    + DesJJ
 971.                    + DesJ
 972.                    goif
 973.                 endif             
 974.                 D DesData.DesI      
 975.                 + DesI
 976.                 goif
 977.             endif
 978.             return
 979.    
 980.     Key2Wds
 981.        63 DesJJ                    
 982.        7 DesI                      
 983.        if DesI GE 0                
 984.           DesKey.DesI K            
 985.           DesJ                     
 986.           if DesJ LE 7             
 987.              and K 1 K1
 988.              K1 DesWds.DesJJ       
 989.          shr K 1               
 990.              - DesJJ               
 991.              + DesJ                
 992.              goif                  
 993.           endif                    
 994.           - DesI                   
 995.           goif                     
 996.        endif                       
 997.        return                      
 998.    
 999.     func
1000.         DesI
1001.         if DesI LE 47
1002.            Ebit.DesI rx
1003.            DesR.rx DesEK.DesI
1004.            + DesI
1005.            goif
1006.         endif
1007.         * 48 DesIter DesJ
1008.         DesI
1009.         if DesI LE 47
1010.            + DesI DesJ IJ
1011.            xor DesEK.DesI DesK.IJ DesEK.DesI
1012.            + DesI
1013.            goif
1014.         endif
1015.         DesI
1016.         DesSNum
1017.         if DesSNum LE 7
1018.            DesEK.DesI ss
1019.            shl ss 1
1020.            + DesI
1021.            + DesEK.DesI ss
1022.            shl ss 1
1023.            + DesI
1024.            + DesEK.DesI ss
1025.            shl ss 1
1026.            + DesI
1027.            + DesEK.DesI ss
1028.            shl ss 1
1029.            + DesI
1030.            + DesEK.DesI ss
1031.            shl ss 1
1032.            + DesI
1033.            + DesEK.DesI ss
1034.            + DesI
1035.            DesSNum DesS1x
1036.            Shl DesS1x 6
1037.            + ss DesS1x
1038.            DesS1.DesS1x DesHexx
1039.            shl DesHexx 2
1040.            DesSNum DesWdsx
1041.            shl DesWdsx 2
1042.            DesHex.DesHexx DesWds.DesWdsx 4
1043.            + DesSNum
1044.            goif
1045.         endif
1046.         DesI
1047.         if DesI LE 31
1048.            P.DesI DesJ
1049.            DesWds.DesJ DesR.DesI
1050.            + DesI
1051.            goif
1052.         endif
1053.         return
1054.    
1055.     DoDesKey
1056.         if DesKeyW EQ OldDesKeyW
1057.            if DesJJ NE 0xf000
1058.               return
1059.            endif
1060.         endif
1061.         DesKeyW OldDesKeyW
1062.         call Key2Wds
1063.         DesI
1064.         if DesI LE 55
1065.            Pc1.DesI Pcx
1066.            DesWds.Pcx DesC.DesI
1067.            + DesI
1068.            goif
1069.         endif
1070.         DesJJ
1071.         DesI
1072.         if DesI LE 15
1073.            DesC.0 DesWd
1074.            DesC.1 DesC 27
1075.            DesWd DesC.27
1076.            DesD.0 DesWd
1077.            DesD.1 DesD 27
1078.            DesWd DesD.27
1079.            if DesShifts.DesI EQ 2
1080.                DesC.0 DesWd
1081.                DesC.1 DesC 27
1082.                DesWd DesC.27
1083.                DesD.0 DesWd
1084.                DesD.1 DesD 27
1085.                DesWd DesD.27
1086.            endif
1087.            DesJ
1088.            if DesJ LE 47
1089.               Pc2.DesJ DesCx
1090.               DesC.DesCx DesK.DesJJ
1091.               + DesJJ
1092.               + DesJ
1093.               goif
1094.            endif
1095.            + DesI
1096.            goif
1097.         endif
1098.         return
1099.    
1100.     EncryptDes
1101.          Call Data2Wds
1102.          DesI
1103.          if DesI LE 63
1104.             DesIP.DesI DesWdsx
1105.             DesWds.DesWdsx DesL.DesI
1106.             + DesI
1107.             goif
1108.          endif
1109.          DesIter
1110.          if DesIter LE 15
1111.             DesR DesL1 32
1112.             call func
1113.             DesJ
1114.             if DesJ LE 31
1115.                xor DesL.DesJ DesR.DesJ
1116.                + DesJ
1117.                goif
1118.             endif
1119.             DesL1 DesL 32
1120.             + DesIter
1121.             goif
1122.          endif
1123.          DesL DesR1 32
1124.          DesR DesL1 32
1125.          DesI
1126.          if DesI LE 63
1127.             DesIPIV.DesI DesL1x
1128.             DesL1.DesL1x DesWds.DesI
1129.             + DesI
1130.             goif
1131.          endif
1132.    
1133.          call Wds2Data
1134.          return
1135.    
1136.     DecryptDes
1137.          Call Data2Wds
1138.          DesI
1139.          if DesI LE 63
1140.             DesIP.DesI DesWdsx
1141.             DesWds.DesWdsx DesL.DesI
1142.             + DesI
1143.             goif
1144.          endif
1145.          15 DesIter
1146.          if DesIter GE 0
1147.             DesR DesL1 32
1148.             call func
1149.             DesJ
1150.             if DesJ LE 31
1151.                xor DesL.DesJ DesR.DesJ
1152.                + DesJ
1153.                goif
1154.             endif
1155.             DesL1 DesL 32
1156.             - DesIter
1157.             goif
1158.          endif
1159.          DesL DesR1 32
1160.          DesR DesL1 32
1161.          DesI
1162.          if DesI LE 63
1163.             DesIPIV.DesI DesL1x
1164.             DesL1.DesL1x DesWds.DesI
1165.             + DesI
1166.             goif
1167.          endif
1168.          call Wds2Data
1169.          return
1170.    
1171.    

FIRST INSTRUCTION AT LINE 933
PROGRAM SIZE = 17336 BYTES
VERSION = 4676056717743235575.0




Placed in the Public Domain 2017 by Symsyn Group