.org 0
  jmp begin
a: 0
b: 10
c: 20
d: 5
tmp: 0
.org 100H
begin:
  lda b
  add c
  sta tmp
  lda d
  xor #-1
  add #1
  sta d
  lda tmp
  add d
  sta a
  jsr 1001
.end
