diff --git a/d/dcpu.dasm b/d/dcpu.dasm
new file mode 100644
index 00000000..073cb7f1
--- /dev/null
+++ 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!"
\ No newline at end of file
diff --git a/readme.md b/readme.md
index 6e59c601..546cb2d4 100644
--- a/readme.md
+++ b/readme.md
@@ -8,7 +8,7 @@ Thanks to everyone who continues to contribute; new languages are created every
 Make sure to see [contributing.md](/contributing.md) for instructions on contributing to the project!
 
 <!--Languages start-->
-## Languages (723 total)
+## Languages (724 total)
 
 * [05Ab1E](%23/05AB1E)
 * [0815](%23/0815.0815)
@@ -236,6 +236,7 @@ Make sure to see [contributing.md](/contributing.md) for instructions on contrib
 * [Dbase](d/dBase.dbf)
 * [Dc](d/dc.dc)
 * [Dcl](d/DCL)
+* [Dcpu](d/dcpu.dasm)
 * [Dd Dd](d/dd_dd.dd)
 * [Decimal](d/Decimal.dec)
 * [Delphi](d/delphi.delphi)