home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Software / CWARS21.ZIP / SHUFFLE.RDC < prev    next >
Encoding:
Text File  |  1989-04-28  |  4.0 KB  |  357 lines

  1.  
  2. prime    equ    37
  3.  
  4. start    sub    #666,dest
  5.     mov    shuffle+2,<dest
  6.     mov    shuffle+1,<dest
  7.     mov    shuffle+0,<dest
  8.     spl    @dest
  9. dest    jmp    start
  10.  
  11. b    dat    0
  12.  
  13. shuffle    mov    @a    <b
  14.     add    #1    a
  15.     jmp    shuffle
  16. a    dat    0
  17.     end
  18.     
  19.     MOV    1    0
  20.     ADD    2    0
  21.     SUB    3    0
  22.     JMP    4
  23.     JMZ    5    0
  24.     JMN    6    0
  25.     DJN    7    0
  26.     MOV    <8    <0
  27.     ADD    <9    <0
  28.     SUB    <10    <0
  29.     JMP    <11
  30.     JMZ    <12    <0
  31.     JMN    <13    <0
  32.     DJN    <14    <0
  33.     MOV    #15    @0
  34.     ADD    #16    0
  35.     SUB    <17    @0
  36.     JMP    -18
  37.     JMZ    -19    @0
  38.     JMN    -20    0
  39.     DJN    -21    @0
  40.     MOV    1    0
  41.     ADD    2    0
  42.     SUB    3    0
  43.     JMP    4
  44.     JMZ    5    0
  45.     JMN    6    0
  46.     DJN    7    0
  47.     MOV    <8    <0
  48.     ADD    <9    <0
  49.     SUB    <10    <0
  50.     JMP    <11
  51.     JMZ    <12    <0
  52.     JMN    <13    <0
  53.     DJN    <14    <0
  54.     MOV    #15    @0
  55.     ADD    #16    0
  56.     SUB    <17    @0
  57.     JMP    -18
  58.     JMZ    -19    @0
  59.     JMN    -20    0
  60.     DJN    -21    @0
  61.     MOV    1    0
  62.     ADD    2    0
  63.     SUB    3    0
  64.     JMP    4
  65.     JMZ    5    0
  66.     JMN    6    0
  67.     DJN    7    0
  68.     MOV    <8    <0
  69.     ADD    <9    <0
  70.     SUB    <10    <0
  71.     JMP    <11
  72.     JMZ    <12    <0
  73.     JMN    <13    <0
  74.     DJN    <14    <0
  75.     MOV    #15    @0
  76.     ADD    #16    0
  77.     SUB    <17    @0
  78.     JMP    -18
  79.     JMZ    -19    @0
  80.     JMN    -20    0
  81.     DJN    -21    @0
  82.     MOV    1    0
  83.     ADD    2    0
  84.     SUB    3    0
  85.     JMP    4
  86.     JMZ    5    0
  87.     JMN    6    0
  88.     DJN    7    0
  89.     MOV    <8    <0
  90.     ADD    <9    <0
  91.     SUB    <10    <0
  92.     JMP    <11
  93.     JMZ    <12    <0
  94.     JMN    <13    <0
  95.     DJN    <14    <0
  96.     MOV    #15    @0
  97.     ADD    #16    0
  98.     SUB    <17    @0
  99.     JMP    -18
  100.     JMZ    -19    @0
  101.     JMN    -20    0
  102.     DJN    -21    @0
  103.     MOV    1    0
  104.     ADD    2    0
  105.     SUB    3    0
  106.     JMP    4
  107.     JMZ    5    0
  108.     JMN    6    0
  109.     DJN    7    0
  110.     MOV    <8    <0
  111.     ADD    <9    <0
  112.     SUB    <10    <0
  113.     JMP    <11
  114.     JMZ    <12    <0
  115.     JMN    <13    <0
  116.     DJN    <14    <0
  117.     MOV    #15    @0
  118.     ADD    #16    0
  119.     SUB    <17    @0
  120.     JMP    -18
  121.     JMZ    -19    @0
  122.     JMN    -20    0
  123.     DJN    -21    @0
  124.     MOV    1    0
  125.     ADD    2    0
  126.     SUB    3    0
  127.     JMP    4
  128.     JMZ    5    0
  129.     JMN    6    0
  130.     DJN    7    0
  131.     MOV    <8    <0
  132.     ADD    <9    <0
  133.     SUB    <10    <0
  134.     JMP    <11
  135.     JMZ    <12    <0
  136.     JMN    <13    <0
  137.     DJN    <14    <0
  138.     MOV    #15    @0
  139.     ADD    #16    0
  140.     SUB    <17    @0
  141.     JMP    -18
  142.     JMZ    -19    @0
  143.     JMN    -20    0
  144.     DJN    -21    @0
  145.     MOV    1    0
  146.     ADD    2    0
  147.     SUB    3    0
  148.     JMP    4
  149.     JMZ    5    0
  150.     JMN    6    0
  151.     DJN    7    0
  152.     MOV    <8    <0
  153.     ADD    <9    <0
  154.     SUB    <10    <0
  155.     JMP    <11
  156.     JMZ    <12    <0
  157.     JMN    <13    <0
  158.     DJN    <14    <0
  159.     MOV    #15    @0
  160.     ADD    #16    0
  161.     SUB    <17    @0
  162.     JMP    -18
  163.     JMZ    -19    @0
  164.     JMN    -20    0
  165.     DJN    -21    @0
  166.     MOV    1    0
  167.     ADD    2    0
  168.     SUB    3    0
  169.     JMP    4
  170.     JMZ    5    0
  171.     JMN    6    0
  172.     DJN    7    0
  173.     MOV    <8    <0
  174.     ADD    <9    <0
  175.     SUB    <10    <0
  176.     JMP    <11
  177.     JMZ    <12    <0
  178.     JMN    <13    <0
  179.     DJN    <14    <0
  180.     MOV    #15    @0
  181.     ADD    #16    0
  182.     SUB    <17    @0
  183.     JMP    -18
  184.     JMZ    -19    @0
  185.     JMN    -20    0
  186.     DJN    -21    @0
  187.     MOV    1    0
  188.     ADD    2    0
  189.     SUB    3    0
  190.     JMP    4
  191.     JMZ    5    0
  192.     JMN    6    0
  193.     DJN    7    0
  194.     MOV    <8    <0
  195.     ADD    <9    <0
  196.     SUB    <10    <0
  197.     JMP    <11
  198.     JMZ    <12    <0
  199.     JMN    <13    <0
  200.     DJN    <14    <0
  201.     MOV    #15    @0
  202.     ADD    #16    0
  203.     SUB    <17    @0
  204.     JMP    -18
  205.     JMZ    -19    @0
  206.     JMN    -20    0
  207.     DJN    -21    @0
  208.     MOV    1    0
  209.     ADD    2    0
  210.     SUB    3    0
  211.     JMP    4
  212.     JMZ    5    0
  213.     JMN    6    0
  214.     DJN    7    0
  215.     MOV    <8    <0
  216.     ADD    <9    <0
  217.     SUB    <10    <0
  218.     JMP    <11
  219.     JMZ    <12    <0
  220.     JMN    <13    <0
  221.     DJN    <14    <0
  222.     MOV    #15    @0
  223.     ADD    #16    0
  224.     SUB    <17    @0
  225.     JMP    -18
  226.     JMZ    -19    @0
  227.     JMN    -20    0
  228.     DJN    -21    @0
  229.     MOV    1    0
  230.     ADD    2    0
  231.     SUB    3    0
  232.     JMP    4
  233.     JMZ    5    0
  234.     JMN    6    0
  235.     DJN    7    0
  236.     MOV    <8    <0
  237.     ADD    <9    <0
  238.     SUB    <10    <0
  239.     JMP    <11
  240.     JMZ    <12    <0
  241.     JMN    <13    <0
  242.     DJN    <14    <0
  243.     MOV    #15    @0
  244.     ADD    #16    0
  245.     SUB    <17    @0
  246.     JMP    -18
  247.     JMZ    -19    @0
  248.     JMN    -20    0
  249.     DJN    -21    @0
  250.     MOV    1    0
  251.     ADD    2    0
  252.     SUB    3    0
  253.     JMP    4
  254.     JMZ    5    0
  255.     JMN    6    0
  256.     DJN    7    0
  257.     MOV    <8    <0
  258.     ADD    <9    <0
  259.     SUB    <10    <0
  260.     JMP    <11
  261.     JMZ    <12    <0
  262.     JMN    <13    <0
  263.     DJN    <14    <0
  264.     MOV    #15    @0
  265.     ADD    #16    0
  266.     SUB    <17    @0
  267.     JMP    -18
  268.     JMZ    -19    @0
  269.     JMN    -20    0
  270.     DJN    -21    @0
  271.     MOV    1    0
  272.     ADD    2    0
  273.     SUB    3    0
  274.     JMP    4
  275.     JMZ    5    0
  276.     JMN    6    0
  277.     DJN    7    0
  278.     MOV    <8    <0
  279.     ADD    <9    <0
  280.     SUB    <10    <0
  281.     JMP    <11
  282.     JMZ    <12    <0
  283.     JMN    <13    <0
  284.     DJN    <14    <0
  285.     MOV    #15    @0
  286.     ADD    #16    0
  287.     SUB    <17    @0
  288.     JMP    -18
  289.     JMZ    -19    @0
  290.     JMN    -20    0
  291.     DJN    -21    @0
  292.     MOV    1    0
  293.     ADD    2    0
  294.     SUB    3    0
  295.     JMP    4
  296.     JMZ    5    0
  297.     JMN    6    0
  298.     DJN    7    0
  299.     MOV    <8    <0
  300.     ADD    <9    <0
  301.     SUB    <10    <0
  302.     JMP    <11
  303.     JMZ    <12    <0
  304.     JMN    <13    <0
  305.     DJN    <14    <0
  306.     MOV    #15    @0
  307.     ADD    #16    0
  308.     SUB    <17    @0
  309.     JMP    -18
  310.     JMZ    -19    @0
  311.     JMN    -20    0
  312.     DJN    -21    @0
  313.     MOV    1    0
  314.     ADD    2    0
  315.     SUB    3    0
  316.     JMP    4
  317.     JMZ    5    0
  318.     JMN    6    0
  319.     DJN    7    0
  320.     MOV    <8    <0
  321.     ADD    <9    <0
  322.     SUB    <10    <0
  323.     JMP    <11
  324.     JMZ    <12    <0
  325.     JMN    <13    <0
  326.     DJN    <14    <0
  327.     MOV    #15    @0
  328.     ADD    #16    0
  329.     SUB    <17    @0
  330.     JMP    -18
  331.     JMZ    -19    @0
  332.     JMN    -20    0
  333.     DJN    -21    @0
  334.     MOV    1    0
  335.     ADD    2    0
  336.     SUB    3    0
  337.     JMP    4
  338.     JMZ    5    0
  339.     JMN    6    0
  340.     DJN    7    0
  341.     MOV    <8    <0
  342.     ADD    <9    <0
  343.     SUB    <10    <0
  344.     JMP    <11
  345.     JMZ    <12    <0
  346.     JMN    <13    <0
  347.     DJN    <14    <0
  348.     MOV    #15    @0
  349.     ADD    #16    0
  350.     SUB    <17    @0
  351.     JMP    -18
  352.     JMZ    -19    @0
  353.     JMN    -20    0
  354.     DJN    -21    @0
  355.  
  356.  
  357.