From 5ee7eb31667df4e9d891c16ded6179ea0aef11cc Mon Sep 17 00:00:00 2001
From: Rikard Nordgren <hrn@posteo.net>
Date: Mon, 21 Apr 2025 10:24:36 +0200
Subject: [PATCH] Not implemented error for calls if TRANSCENDENTAL_FUNCTIONS
 not defined

---
 src/basic/math_trans/b9ea.log_FAC1.s     | 2 ++
 src/basic/math_trans/bf71.sqr_FAC1.s     | 2 ++
 src/basic/math_trans/bf78.pwr_FAC2_MEM.s | 2 ++
 src/basic/math_trans/e043.poly1_FAC1.s   | 2 ++
 src/basic/math_trans/e059.poly2_FAC1.s   | 2 ++
 src/basic/math_trans/e264.cos_FAC1.s     | 2 ++
 src/basic/math_trans/e26b.sin_FAC1.s     | 2 ++
 src/basic/math_trans/e2b4.tan_FAC1.s     | 2 ++
 src/basic/math_trans/e30e.atn_FAC1.s     | 2 ++
 9 files changed, 18 insertions(+)

diff --git a/src/basic/math_trans/b9ea.log_FAC1.s b/src/basic/math_trans/b9ea.log_FAC1.s
index 5c9f7e2e..8b023ccf 100644
--- a/src/basic/math_trans/b9ea.log_FAC1.s
+++ b/src/basic/math_trans/b9ea.log_FAC1.s
@@ -66,4 +66,6 @@ log_FAC1:
     jmp mul_MEM_FAC1
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/bf71.sqr_FAC1.s b/src/basic/math_trans/bf71.sqr_FAC1.s
index a306389c..76f373ef 100644
--- a/src/basic/math_trans/bf71.sqr_FAC1.s
+++ b/src/basic/math_trans/bf71.sqr_FAC1.s
@@ -25,4 +25,6 @@ sqr_FAC1:
 	; FALLLTROUGH to sqr_FAC2
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/bf78.pwr_FAC2_MEM.s b/src/basic/math_trans/bf78.pwr_FAC2_MEM.s
index 26739c5d..be384011 100644
--- a/src/basic/math_trans/bf78.pwr_FAC2_MEM.s
+++ b/src/basic/math_trans/bf78.pwr_FAC2_MEM.s
@@ -27,4 +27,6 @@ pwr_FAC2_MEM:
 	; FALLTROUGH to pwr_FAC2_FAC1
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e043.poly1_FAC1.s b/src/basic/math_trans/e043.poly1_FAC1.s
index f1b3f46c..970c277e 100644
--- a/src/basic/math_trans/e043.poly1_FAC1.s
+++ b/src/basic/math_trans/e043.poly1_FAC1.s
@@ -35,4 +35,6 @@ poly1_FAC1:
     jmp mul_MEM_FAC1
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e059.poly2_FAC1.s b/src/basic/math_trans/e059.poly2_FAC1.s
index f98081a4..64617c7b 100644
--- a/src/basic/math_trans/e059.poly2_FAC1.s
+++ b/src/basic/math_trans/e059.poly2_FAC1.s
@@ -72,4 +72,6 @@ store_YA_in_ZP:     ; Used also by poly1
     rts
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e264.cos_FAC1.s b/src/basic/math_trans/e264.cos_FAC1.s
index cdb002cc..9376777b 100644
--- a/src/basic/math_trans/e264.cos_FAC1.s
+++ b/src/basic/math_trans/e264.cos_FAC1.s
@@ -25,4 +25,6 @@ COS:
     ; FALLTHROUGH to SIN
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e26b.sin_FAC1.s b/src/basic/math_trans/e26b.sin_FAC1.s
index 23792f2c..93ce1660 100644
--- a/src/basic/math_trans/e26b.sin_FAC1.s
+++ b/src/basic/math_trans/e26b.sin_FAC1.s
@@ -57,4 +57,6 @@ sin_next:
     jmp poly1_FAC1
     
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e2b4.tan_FAC1.s b/src/basic/math_trans/e2b4.tan_FAC1.s
index e2958993..db9277ee 100644
--- a/src/basic/math_trans/e2b4.tan_FAC1.s
+++ b/src/basic/math_trans/e2b4.tan_FAC1.s
@@ -31,4 +31,6 @@ tan_FAC1:
     jmp div_FAC2_FAC1           ; FAC1 = tan(x)
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }
diff --git a/src/basic/math_trans/e30e.atn_FAC1.s b/src/basic/math_trans/e30e.atn_FAC1.s
index 08ebda58..c58a811c 100644
--- a/src/basic/math_trans/e30e.atn_FAC1.s
+++ b/src/basic/math_trans/e30e.atn_FAC1.s
@@ -60,4 +60,6 @@ atn_out:
     rts
 
 
+} else {
+    jmp do_NOT_IMPLEMENTED_error
 }