* increment long value

 name Long_Unary2

 text

  global inclong
inclong inc 3,x
  bne 1f
  inc 2,x
  bne 1f
  inc 1,x
  bne 1f
  inc 0,x
1 rts

* decrement long value

  global declong
declong tst 3,x
  bne 4f
  tst 2,x
  bne 3f
  tst 1,x
  bne 2f
  dec 0,x
2 dec 1,x
3 dec 2,x
4 dec 3,x
  rts

* compliment long values

  global comlong
comlong com 2,s
  com 3,s
  com 4,s
  com 5,s
  rts