From 178968cc2fc4c32fb918ebb4ccd24d78b64cd73f Mon Sep 17 00:00:00 2001
From: Javier Degirolmo
Date: Fri, 7 Oct 2011 12:17:54 -0300
Subject: Initial upload, Echo 0.8 UNSTABLE VERSION

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

(limited to 'src-68k/video/bg.68k')

diff --git a/src-68k/video/bg.68k b/src-68k/video/bg.68k
new file mode 100644
index 0000000..c64e287
--- /dev/null
+++ b/src-68k/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