Examples

examples/clear_screen.asm

@@ -0,0 +1,30 @@
+.include _hwdefs.asm
+.include _clrdefs.asm
+
+;; Variables
+.org SYSRAM
+stack: byte[128]
+
+;; Main
+.org SYSROM
+lds stack
+jss cls
+
+hlt
+
+;; Clear the screen
+FUNC cls:
+  ldp screen.char
+  ldc $00 ;; Blank
+  ldq screen.color
+  ldb CLR_BLACK ;; Black
+  .cls_loop: {
+    stc *p++
+    stb *q++
+    lda pl
+    cmp (lo(COLOR))
+    jnz .cls_loop
+    lda ph
+    cmp (hi(COLOR))
+  jnz }
+rts