ShellDealay i proper file :)

2026-05-20 22:33:43 +02:00 · 2023-05-09 15:50:19 +02:00
parent 6cf4a6d989
commit 862ae9f640
7 changed files with 11743 additions and 18 deletions
@@ -556,6 +556,25 @@ MakeDarkScreen
    rts
 .endp

+;--------------------------------------------------
+.proc ShellDelay
+    lda CONSOL
+	and #%00000101	; Start + Option
+	bne @+
+	mva #$40 escFlag	
+@	and #%00000001
+    beq noShellDelay
+    ldx flyDelay
+DelayLoop
+      lda VCOUNT
+@       cmp VCOUNT
+      beq @-
+      dex
+    bne DelayLoop
+noShellDelay
+    rts
+.endp
+
 ;--------------------------------------------------
 .proc RmtSongSelect
 ;  starting song line 0-255 to A reg