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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [alpha.mms] - Rev 274

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

* The "alpha channel" exercise in section 7.1.3
x     GREG
y     GREG
z     GREG
m     GREG
alpha GREG
t     IS  $255
l     GREG #0101010101010101
h     GREG #8080808080808080
mone  GREG -1
rodd  GREG #4020100804020101
lsh   GREG #0080402010080402

      LOC  #100
Main  XOR  t,x,y
      MOR  z,rodd,t
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,mone,t
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,lsh,alpha
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      AND  t,alpha,h
      MOR  m,t,mone
      PUT  rM,m
      MUX  x,z,x
      MUX  y,y,z
      MOR  alpha,alpha,lsh
      XOR  t,x,y
      MOR  z,t,rodd
      AND  t,x,y
      ADDU z,z,t
      TRAP 0,Halt,0

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

powered by: WebSVN 2.1.0

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