starting to add timing to vm driver

[dcpu16] / tests / test_lem1802.dasm

diff --git a/tests/test_lem1802.dasm b/tests/test_lem1802.dasm
index 898808b10566484a10459c203362c980cd001c2a..c25858ff88ba9b7c4d7d8c8107452095b9474bba 100644 (file)
--- a/tests/test_lem1802.dasm
+++ b/tests/test_lem1802.dasm
@@ -15,23 +15,33 @@ HWN [num]
     HWI [num]
 
     ; set border
-    SET B, 0x0003
+    SET B, 0x0002
     SET A, 3
     HWI [num]
 
     ; show some text
-    SET I, string
+    SET I, string1
     SET J, 0x8000
-    ; color
     SET Z, 0x1e00
-:print
-    BOR [i], Z
-    STI [j], [i]
-    IFN [I], 0
-        SET PC, print
+    JSR print
+
+    SET I, string2
+    SET Z, 0x1e80
+    JSR print
 
-:wait
-    SET PC, wait
+:done
+    SET PC, done
+
+; prints string at I to vram at J in color Z
+:print  XOR [I], Z
+        SET [J], [I]
+        XOR [I], Z
+        ADD I, 1
+        ADD J, 1
+        IFE [I], 0
+            SET PC, POP
+        SET PC, print
 
 :num dat 0x0000
-:string dat "yerf!", 0
\ No newline at end of file
+:string1 dat "yerf!", 0
+:string2 dat "ortort?", 0
\ No newline at end of file