AMARI     START
          LAD    GR1,7
          LAD    GR2,1
          LAD    GR3,7
          SRA    GR3,0,GR2
          SLA    GR3,0,GR2
          SUBA   GR1,GR3
          ST     GR1,DATA
          RET
DATA      DS     1
          END