From a76977af62010a392c16010c367185e61e856ffe Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 30 Oct 2019 20:04:56 +0100 Subject: mv to docs --- docs/j1demo/firmware/sprite.fs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 docs/j1demo/firmware/sprite.fs (limited to 'docs/j1demo/firmware/sprite.fs') 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 ; + -- cgit v1.2.3