Add DASM

https://web.archive.org/web/20120704091855/http://dcpu.com/ Fixes: #57
2021-01-21 02:35:09 +13:00
parent 0d3fa4f1ba
commit bbe9c969fb
2 changed files with 38 additions and 1 deletions
--- a/d/dcpu.dasm
+++ b/d/dcpu.dasm
@@ -0,0 +1,36 @@
+  set i, 0xf615
+  set j, 0x7349
+  hwn z
+  sub z, 1
+
+:device_detect_loop
+  hwq z
+
+  ife a, i
+    ife b, j
+      set pc, device_detect_ret
+
+  sub z, 1
+  ifa z, 0xffff
+    set pc, device_detect_loop
+
+:device_detect_ret
+  set a, 0
+  set b, [vidmem]
+  hwi z
+
+  set i, [vidmem]
+  set j, string
+  set c, 0xc
+
+:memcpy_loop
+  bor [j], 0xf000 ; OR with font style.
+  sti [i], [j]
+  sub c, 1
+  ife c, 0
+    sub pc, 1
+  set pc, memcpy_loop
+
+:display dat 0
+:vidmem dat 0x8000
+:string dat "Hello World!"