aboutsummaryrefslogtreecommitdiff
path: root/docs/j1demo/firmware/sprite.fs
diff options
context:
space:
mode:
Diffstat (limited to 'docs/j1demo/firmware/sprite.fs')
-rw-r--r--docs/j1demo/firmware/sprite.fs20
1 files changed, 20 insertions, 0 deletions
diff --git a/docs/j1demo/firmware/sprite.fs b/docs/j1demo/firmware/sprite.fs
new file mode 100644
index 0000000..877917a
--- /dev/null
+++ b/docs/j1demo/firmware/sprite.fs
@@ -0,0 +1,20 @@
+( Sprite low-level JCB 15:23 11/15/10)
+
+: vga-line@
+ begin
+ vga_line @
+ vga_line @
+ over xor
+ while
+ drop
+ repeat
+;
+
+: waitblank begin vga-line@ d# 512 = until ;
+
+: sprite! ( x y spr -- )
+ 2* cells vga_spritey + tuck ! 2- ! ;
+
+: hide \ hide all the sprites at (800,800)
+ d# 8 0do d# 800 dup i sprite! loop ;
+