URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [alpha.mms] - Rev 66
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