projects
/
dcpu16
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
HWI [num]
; set border
- SET B, 0x000
3
+ SET B, 0x000
2
SET A, 3
HWI [num]
; show some text
SET A, 3
HWI [num]
; show some text
- SET I, string
+ SET I, string
1
SET J, 0x8000
SET J, 0x8000
- ; color
SET Z, 0x1e00
SET Z, 0x1e00
-
:
print
- BOR [i], Z
- S
TI [j], [i]
-
IFN [I],
0
-
SET PC,
print
+
JSR
print
+
+ S
ET I, string2
+
SET Z, 0x1e8
0
+
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
: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