diff --git a/wip-hugo/routines/arithmatic/div.s b/wip-hugo/routines/arithmatic/div.s index 3305f5e..64d5c02 100644 --- a/wip-hugo/routines/arithmatic/div.s +++ b/wip-hugo/routines/arithmatic/div.s @@ -1,5 +1,5 @@ ;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*- -.proc div; user-procedure :clobbers (A,X) :clobbers-arguments 3 +.proc div; user-procedure :clobbers (A X) :clobbers-arguments 3 ;; https://en.wikipedia.org/wiki/Division_algorithm#Restoring_division ;;VAL_A / VAL_B = X ;; Remainder (after) = VAL_A diff --git a/wip-hugo/routines/arithmatic/mult.s b/wip-hugo/routines/arithmatic/mult.s index ee8dc9d..f22f76f 100644 --- a/wip-hugo/routines/arithmatic/mult.s +++ b/wip-hugo/routines/arithmatic/mult.s @@ -5,7 +5,7 @@ ;;= X + X*%1000 *%11111 ;; to remember this for later, for duuqnds papper -.proc mult; user-procedure :clobbers (A,X) :clobbers-arguments 2 +.proc mult; user-procedure :clobbers (A X) :clobbers-arguments 2 ;; https://en.wikipedia.org/wiki/Ancient_Egyptian_multiplication#Russian_peasant_multiplication