more I/O work in BASIC

2020-06-22 21:25:23 +02:00
1 parent 524d532433
commit e1d21e287f
@@ -0,0 +1,20 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+//
+// Tries to fetch device number - sets Carry if failure
+//
+
+
+helper_load_fetch_devnum:
+
+	// Fetch the device number
+
+	jsr fetch_coma_uint8
+	bcs !+
+
+	sta FA
+!:
+	rts