From 3862092ce2fda837e309dffd95413fc32a206ed5 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Tue, 8 Jul 2025 11:38:39 +0200 Subject: [PATCH] Fix incorrect user procedure declarations in assembly routines --- wip-hugo/routines/arithmatic/div.s | 2 +- wip-hugo/routines/arithmatic/mult.s | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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