Mercurial > repos > simple16

diff bgcolor.s16 @ 50:8e39a877c651

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch from RGB 444 to RGB 565 for palette entries
author Michael Pavone <pavone@retrodev.com>
date Wed, 31 Aug 2016 20:29:45 -0700
parents 6e7bfe83d2b0
children
line wrap: on
line diff
--- a/bgcolor.s16	Tue Aug 30 22:04:29 2016 -0700
+++ b/bgcolor.s16	Wed Aug 31 20:29:45 2016 -0700
@@ -19,9 +19,12 @@
 	ldim 1, r2
 	ldim 5, r3
 	ldimh 1, r3
-	ldim 16, r7
+	ldim 32, r7
 	ldim 0, r8
 	
+	ldim increments, r9
+	ldimh increments, r9
+	
 waitfirst
 	ini $C, r5
 	cmp r5, r3
@@ -30,6 +33,7 @@
 	bra waithblank
 	
 linestart
+	ld16 r9, r8, r2
 waitline
 	ini $C, r5
 	cmp r5, r3
@@ -43,25 +47,14 @@
 	outi 14, r0
 	outi 14, r1
 	add r2, r1, r1
-	addi 2, r3
+	addi 1, r3
 	
 	addi -1, r7
 	bne normal
-	ldim 16, r7
+	ldim 32, r7
 	ldim 0, r1
 	
-	addi 1, r8
-	cmpi 3, r8
-	beq cyan
-	cmpi 5, r8
-	beq magenta
-	cmpi 6, r8
-	beq grey
-	;TODO: replace with lsli once it works in the assembler
-	add r2, r2, r2
-	add r2, r2, r2
-	add r2, r2, r2
-	add r2, r2, r2
+	addi 2, r8
 	
 	
 normal
@@ -69,16 +62,16 @@
 	bcs top
 	bra linestart
 	
-cyan
-	ldim $11, r2
-	bra normal
-magenta
-	ldim $01, r2
-	ldimh $01, r2
-	bra normal
-grey
-	ldim $11, r2
-	ldimh $01, r2
-	bra normal
+increments:
+	dc.w $0001
+	dc.w $0040
+	dc.w $0800
+	dc.w $0041
+	dc.w $0840
+	dc.w $0801
+	dc.w $0841
+	dc.w $0841
 	
 
+	
+