aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/lib/forth2012/core/sm-slash-rem.frt
blob: baf07cfed21b7968f1dfddd7866a97e5210ab837 (plain)
1
2
3
4
5
6
7
8

: sm/rem ( d1 n1 -- n2 n3 )
  2dup xor >r
  over >r
  abs >r dabs r> um/mod
  swap r> ?negate
  swap r> ?negate
;