more work on tape support

2019-10-31 22:42:44 +01:00
1 parent 46aacc4ef0
commit c32fbadc7c
@@ -0,0 +1,28 @@
+
+//
+// Helper routines to blank/show screen
+//
+
+
+#if CONFIG_TAPE_NORMAL || CONFIG_TAPE_TURBO
+
+
+screen_blank:
+
+	lda VIC_SCROLY
+	and #($FF - $10)
+	sta VIC_SCROLY
+
+	rts
+
+
+screen_show:
+
+	lda VIC_SCROLY
+	ora #$10
+	sta VIC_SCROLY
+
+	rts
+
+
+#endif