d2: add text message

demos/d2/Makefile

@@ -6,12 +6,12 @@ HGR2PNG = ../../utils/hgr-utils/png2hgr
 LINKER_SCRIPTS = ../../linker_scripts
 TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
 
-all:	tiny_tracker.dsk text_to_tiny
+all:	hgr_d2.dsk text_to_tiny
 
-tiny_tracker.dsk:	HELLO D2
-	cp $(EMPTY_DISK)/empty.dsk ./tiny_tracker.dsk
-	$(DOS33) -y tiny_tracker.dsk SAVE A HELLO
-	$(DOS33) -y tiny_tracker.dsk -t BIN -a 0x6000 BSAVE D2
+hgr_d2.dsk:	HELLO D2
+	cp $(EMPTY_DISK)/empty.dsk ./hgr_d2.dsk
+	$(DOS33) -y hgr_d2.dsk SAVE A HELLO
+	$(DOS33) -y hgr_d2.dsk -t BIN -a 0x6000 BSAVE D2
 
 ####
 

demos/d2/clear_bottom.s

@@ -9,4 +9,4 @@ cbloop:
 	sta	$B00,X
 	dex
 	bne	cbloop
-
+	rts

demos/d2/d2.s

@@ -1,4 +1,4 @@
-; Demo2
+; HGR Demo2
 
 ; by deater (Vince Weaver) <vince@deater.net>
 
@@ -6,7 +6,6 @@
 	.include "zp.inc"
 	.include "hardware.inc"
 
-
 d2:
 
 	;===================
@@ -78,10 +77,14 @@ sin_done:
 	jsr	dsr_spin
 
 forever:
+	jsr	print_message
+
+	bit	TEXTGR
 
 	jsr	moving
 
 	jsr	fast_hclr
+
 	jsr	flip_page
 
 	jsr	wires
@@ -106,24 +109,45 @@ done_flip_page:
 
         rts
 
+	;===================
+	; print message
+	;===================
+print_message:
+	jsr	clear_both_bottoms
 
+	ldx	#35
+print_message_loop:
+	lda	message1,X
+	ora	#$80
+	sta	$650,X
+	sta	$A50,X
+	lda	message2,X
+	ora	#$80
+	sta	$6d0,X
+	sta	$AD0,X
+	dex
+	bpl	print_message_loop
+
+	rts
+
+
+;      01234567890123456789012345678901234567890"
+message1:
+.byte "THE APPLE II HAS NO PALETTE ROTATION"
+message2:
+.byte "WE ARE DOING THIS THE HARD WAY...   "
+
+.byte "CODE: DEATER",0
+.byte "MUSIC: MA2E",0
 
 .include	"dsr_shape.s"
 .include	"moving.s"
 .include	"wires.s"
 .include	"oval.s"
+.include	"clear_bottom.s"
 
 ; music
 .include	"peasant_music.s"
 .include        "interrupt_handler.s"
 ; must be last
 .include        "mockingboard_setup.s"
-
-; Moving
-;   moving, orange and green
-
-
-
-
-
-

demos/d2/interrupt_handler.s

@@ -27,7 +27,7 @@ interrupt_handler:
 	tya
 	pha			; save Y
 
-	inc	$0404		; debug (flashes char onscreen)
+;	inc	$0404		; debug (flashes char onscreen)
 
 
 ay3_irq_handler: