discard X
1: .globl release 2: .globl discard 3: .globl iget,succ 4: 5: discard: 6: jsr pc,iget 7: mov (r0),r1 8: jsr pc,release 9: jmp succ