From d6e4a410e883c7ce6256aac862b54a8eec9d1bd1 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sat, 15 Oct 2022 14:35:50 -0700
Subject: Simplify Fibonacci program by using MQ register

---
 programs/fib.pal | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'programs/fib.pal')

diff --git a/programs/fib.pal b/programs/fib.pal
index 4d3fb1b..941b949 100644
--- a/programs/fib.pal
+++ b/programs/fib.pal
@@ -3,17 +3,15 @@
 *200
 
 LOOP,	CLA
-	TAD N
-	TAD NPLUS1
-	DCA NPLUS2
 	TAD NPLUS1
-	DCA N
-	TAD NPLUS2
+	MQL
+	TAD N
 	DCA NPLUS1
+	MQA
+	DCA N
 	JMP LOOP
 
 *300
 
 N,	0
 NPLUS1,	1
-NPLUS2,	0
-- 
cgit v1.2.3