hires border color and error beep

orlof · Feb 16, 2017 · 81aa3da · 81aa3da
1 parent 3bd87a2
commit 81aa3da
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/src/hires.dasm16 b/src/hires.dasm16
@@ -4,6 +4,10 @@
     set [screen_mode], hires__clear
     jsr hires__clear
 
+    set a, 3
+    set b, 0x0
+    hwi [pixie]
+
     set a, 0x10
     set b, 1
     hwi [pixie]
@@ -15,6 +19,11 @@
 ; WARNING this trash registers
 ;----------------------------------------------------------------
     set [screen_mode], screen_clear
+
+    set a, 3
+    set b, 0x7
+    hwi [pixie]
+
     jsr screen_clear
 
     set a, 0x10

diff --git a/src/stdlib.dasm16 b/src/stdlib.dasm16
@@ -109,6 +109,20 @@
     ife [screen_mode], hires__clear
         jsr hires__finish
 
+    ife [speaker], 0xffff
+        set pc, recover__no_beep
+
+    set a, 0
+    set b, 512
+    hwi [speaker]
+
+    set x, 500
+    jsr built_in_sleep__loop
+
+    set b, 0
+    hwi [speaker]
+
+:recover__no_beep
     set a, pop
     set z, [recovery_fp]
     set sp, [recovery_sp]