OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [coolcomb.mms] - Blame information for rev 320

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 15 hellwig
* The "cool-lex" combinations of Ruskey and Williams, ex 7.2.1.3--55(b)
2
s     IS    4   % the number of 0-bits in each combination
3
t     IS    3   % the number of 1-bits in each combination; s+t<=8 here
4
bits  GREG  0
5
ptr   GREG  0
6
      LOC   #100
7
Main  LDA   ptr,Data_Segment  % assemble this with the -x switch!
8
      SET   bits,(1<
9
1H    PUSHJ $0,Visit
10
      ADDU  $0,bits,1
11
      AND   $0,$0,bits
12
      SUBU  $1,$0,1
13
      XOR   $1,$1,$0
14
      ADDU  $0,$1,1
15
      AND   $1,$1,bits
16
      AND   $0,$0,bits
17
      ODIF  $0,$0,1
18
      SUBU  $1,$1,$0
19
      ADDU  bits,bits,$1
20
      SRU   $0,bits,s+t
21
      PBZ   $0,1B
22
      TRAP  0,Halt,0           % simulate this with the -I switch!
23
Visit STBU  bits,ptr,0
24
      INCL  ptr,1
25
      POP   0,0
26
 
27
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.