From 4722fb6484a281bc1d6bb6c38f2a67bd7687d78a Mon Sep 17 00:00:00 2001
From: carolili <28659273+carolili@users.noreply.github.com>
Date: Fri, 1 Oct 2021 23:29:23 +0200
Subject: [PATCH] Proof KEYRUPT_UPRUPT * Fix typo UPCK -> UPOK. Row 86. * Ref.
 https://www.ibiblio.org/apollo/ScansForConversion/Luminary099/1339.jpg

---
 Luminary099/KEYRUPT_UPRUPT.agc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Luminary099/KEYRUPT_UPRUPT.agc b/Luminary099/KEYRUPT_UPRUPT.agc
index ac8d035..37090f9 100644
--- a/Luminary099/KEYRUPT_UPRUPT.agc
+++ b/Luminary099/KEYRUPT_UPRUPT.agc
@@ -83,7 +83,7 @@ UPRPT1		CAF	LOW5		# TEST FOR TRIPLE CHAR REDUNDANCY
 		COM
 		TC	UPTEST
 
-UPCK		CS	ELRCODE		# CODE IS GOOD. IF CODE = 'ERROR RESET',
+UPOK		CS	ELRCODE		# CODE IS GOOD. IF CODE = 'ERROR RESET',
 		AD	KEYTEMP1	# CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
 		EXTEND			# IF CODE DOES NOT = 'ERROR RESET', ACCEPT
 		BZF	CLUPLOCK	# CODE ONLY IF UPLOCKFL IS CLEAR (=0).