variable support cleanup

2020-07-19 08:54:53 +02:00
1 parent 51aec45c8d
commit 09f85cea8a
@@ -0,0 +1,21 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Tries to convert PETSCII in .A to a digit (0-9 values), sets Carry to indicate failure
+//
+
+convert_PETSCII_to_digit:
+
+	sec
+	sbc #$30
+	bcc convert_PETSCII_to_digit_fail
+
+	cmp #$0A
+	rts
+
+convert_PETSCII_to_digit_fail:
+
+	sec
+	rts