alpha.mms

* 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