name Long_Unary1

 text

* test long value

  global testlong,tstlong
tstlong
testlong puls x get return address
 pshs d
  ldd 4,s
  bne 1f
  ldd 2,s
1 puls d
 leas 4,s clean stack
 jmp 0,x return

* negate long value

  global neglong
neglong pshs d
  ldd #0
  subd 6,s
  std 6,s
  ldd #0
  sbcb 5,s
  sbca 4,s
  std 4,s
  puls d,pc