aboutsummaryrefslogtreecommitdiff
path: root/examples/keyboard_reader.asm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/keyboard_reader.asm')
-rw-r--r--examples/keyboard_reader.asm20
1 files changed, 20 insertions, 0 deletions
diff --git a/examples/keyboard_reader.asm b/examples/keyboard_reader.asm
new file mode 100644
index 0000000..9c7e88f
--- /dev/null
+++ b/examples/keyboard_reader.asm
@@ -0,0 +1,20 @@
+; Reading characters from the keyboard
+; by Markus Persson
+
+#macro nextkey(target) {
+ push(i)
+ set i,[keypointer]
+ add i,0x9000
+ set target,[i]
+ ife target,0
+ jmp end
+
+ set [i],0
+ add [keypointer], 1
+ and [keypointer], 0xf
+:end
+ pop(i)
+}
+
+:keypointer
+dat 0