From 6ab75ecb612fbbe2ec939bd758bbbe620e6d5040 Mon Sep 17 00:00:00 2001
From: Javier Degirolmo
Date: Tue, 14 Aug 2012 22:49:32 -0300
Subject: Renamed Echo Tester directory from src-68k to tester

---
 tester/video/bg.68k | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 tester/video/bg.68k

(limited to 'tester/video/bg.68k')

diff --git a/tester/video/bg.68k b/tester/video/bg.68k
new file mode 100644
index 0000000..c64e287
--- /dev/null
+++ b/tester/video/bg.68k
@@ -0,0 +1,43 @@
+;****************************************************************************
+; DrawBG
+; Draws the background
+;****************************************************************************
+
+DrawBG:
+    lea     ($C00004), a2
+    lea     ($C00000), a1
+
+    lea     (@BGData), a0
+    move.l  #$60000003, d0
+    moveq   #28-1, d6
+@YLoop:
+    move.l  d0, (a2)
+    moveq   #40-1, d7
+@XLoop:
+    move.w  (a0)+, (a1)
+    dbf     d7, @XLoop
+    add.l   #$00800000, d0
+    dbf     d6, @YLoop
+
+    lea     (@BGData), a0
+    move.l  #$60000002, d0
+    moveq   #28-1, d6
+@YLoop2:
+    move.l  d0, (a2)
+    moveq   #40-1, d7
+@XLoop2:
+    move.w  (a0)+, d1
+    bset.l  #11, d1
+    move.w  d1, (a1)
+    dbf     d7, @XLoop2
+    add.l   #$00800000, d0
+    dbf     d6, @YLoop2
+
+    rts                             ; End of subroutine
+
+;****************************************************************************
+; Background data
+;****************************************************************************
+
+@BGData:
+    incbin  "data/bg.bin"
-- 
cgit v1.2.3