split: work on credits demo

asm_routines/text_print.s

@@ -39,7 +39,7 @@ print_string_loop:
 	iny
 	bne	print_string_loop
 done_print_string:
-	rts
+;	rts
 
 	;====================
 	; point_to_end_string

split_screen/Makefile

@@ -5,11 +5,12 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
 
 all:	split.dsk
 
-split.dsk:	BISHOP BISHOP.BAS RAINBOW.BAS RAINBOW KATC.BIN
+split.dsk:	BISHOP BISHOP.BAS RAINBOW.BAS RAINBOW KATC.BIN CREDITS
 	$(DOS33) -y split.dsk BSAVE -a 0x0300 BISHOP
 	$(DOS33) -y split.dsk SAVE A BISHOP.BAS
 	$(DOS33) -y split.dsk SAVE A RAINBOW.BAS
 	$(DOS33) -y split.dsk BSAVE -a 0x0c00 RAINBOW
+	$(DOS33) -y split.dsk BSAVE -a 0x1000 CREDITS
 #	$(DOS33) -y split.dsk BSAVE -a 0x2000 LENNA.BIN
 	$(DOS33) -y split.dsk BSAVE -a 0x2000 KATC.BIN
 
@@ -31,8 +32,16 @@ RAINBOW:	rainbow.o
 RAINBOW.BAS:	rainbow.bas
 	$(TOKENIZE) < rainbow.bas > RAINBOW.BAS
 
+credits.o:	credits.s
+	ca65 -o credits.o credits.s -l credits.lst
+
+CREDITS:	credits.o
+	ld65 -o CREDITS credits.o -C ../linker_scripts/apple2_1000.inc
+
+
+
 KATC.BIN:	kat.bmp
 	../bmp2dhr/b2d kat.bmp hgr dither
 
 clean:	
-	rm -f *~ *.o *.lst BISHOP RAINBOW
+	rm -f *~ *.o *.lst BISHOP RAINBOW CREDITS

split_screen/credits.s

@@ -0,0 +1,212 @@
+.include "zp.inc"
+
+	H2	= $2C
+;	V2	= $2D
+;	TEMPY	= $FB
+
+	HGR	= $F3E2
+	HPLOT0	= $F457
+	HCOLOR	= $F6EC
+;	HLINE	= $F819
+;	VLINE	= $F828
+;	COLOR	= $F864
+;	TEXT 	= $FB36
+;	HOME	= $FC58
+
+	jsr	TEXT
+	jsr	HOME
+
+	lda	#0
+	sta	DISP_PAGE
+	lda	#0
+	sta	DRAW_PAGE
+
+	lda	#0
+	sta	CH
+	sta	CV
+	lda	#<line1
+	sta	OUTL
+	lda	#>line1
+	sta	OUTH
+	jsr	move_and_print
+
+	inc	CV
+	jsr	move_and_print
+
+	inc	CV
+	jsr	move_and_print
+
+	inc	CV
+	jsr	move_and_print
+
+	inc	CV
+	jsr	move_and_print
+
+	inc	CV
+	jsr	move_and_print
+
+	; draw the moon
+	lda	#0
+	sta	CV
+	lda	#3
+	sta	CH
+	jsr	htab_vtab	; vtab(1); htab(4)
+	lda	#32	; inverse space
+	ldy	#0
+	sta	(BASL),Y
+
+	inc	CV
+	dec	CH
+	jsr	htab_vtab
+	lda	#32
+	ldy	#0
+	sta	(BASL),Y
+
+	inc	CV
+	jsr	htab_vtab
+	lda	#32
+	ldy	#0
+	sta	(BASL),Y
+
+	inc	CV
+	inc	CH
+	jsr	htab_vtab
+	lda	#32
+	ldy	#0
+	sta	(BASL),Y
+
+	; Wait
+
+	jsr	wait_until_keypressed
+
+	; GR part
+	bit	LORES
+	bit	SET_GR
+	bit	FULLGR
+
+	lda	#$44
+	sta	COLOR
+
+	lda	#39
+	sta	V2
+
+	lda	#28
+
+line_loop:
+	pha
+
+	ldy	#0
+
+	jsr	hlin_double
+
+	pla
+	clc
+	adc	#2
+	cmp	#48
+	bne	line_loop
+
+	; Wait
+
+	jsr	wait_until_keypressed
+
+	bit	HIRES
+
+
+	; Wait
+
+	jsr	wait_until_keypressed
+
+
+display_loop:
+	; each scan line 65 cycles
+	;	1 cycle each byte (40cycles) + 25 for horizontal
+	;	Total of 12480 cycles to draw screen
+	; Vertical blank = 4550 cycles (70 scan lines)
+	; Total of 17030 cycles to get back to where was
+
+	;	16666     = 17030      x=1021.8
+	;         1000        x
+
+
+	; TODO: find beginning of scan
+	;	Text mode for 6*8=48 scanlines (3120 cycles)
+	;	hgr for 64 scalines (4160 cycles)
+	;	gr for 80 scalines (5200 cycles)
+	;	vblank = 4550 cycles
+
+	; text
+	bit	SET_TEXT						; 4
+
+	ldy	#15							; 2
+loop2:
+
+	; 5*255+2 = 197
+
+	ldx	#39							; 2
+loop1:
+	dex								; 2
+	bne	loop1							; 2nt/3
+
+	dey								; 2
+	bne	loop2							; 2nt/3
+
+	; hgr
+	bit	HIRES							; 4
+	bit	SET_GR							; 4
+
+	ldy	#15							; 2
+loop3:
+
+	; 5*255+2 = 197
+
+	ldx	#39							; 2
+loop4:
+	dex								; 2
+	bne	loop4							; 2nt/3
+
+	dey								; 2
+	bne	loop3							; 2nt/3
+
+
+
+	; gr
+	bit	LORES
+
+	ldy	#15							; 2
+loop5:
+
+	; 5*255+2 = 197
+
+	ldx	#39							; 2
+loop6:
+	dex								; 2
+	bne	loop6							; 2nt/3
+
+	dey								; 2
+	bne	loop5							; 2nt/3
+
+
+
+
+	jmp	display_loop						; 3
+
+wait_until_keypressed:
+	lda	KEYPRESS			; check if keypressed
+	bpl	wait_until_keypressed		; if not, loop
+	bit	KEYRESET
+	rts
+
+line1:.asciiz	"   *                            .      "
+line2:.asciiz	"  *    .       T A L B O T          .  "
+line3:.asciiz	"  *           F A N T A S Y            "
+line4:.asciiz	"   *            S E V E N              "
+line5:.asciiz	" .                          .    .     "
+line6:.asciiz	"             .                         "
+
+.include "../asm_routines/gr_offsets.s"
+.include "../asm_routines/text_print.s"
+.include "../asm_routines/gr_hlin_double.s"
+
+.align	$1000
+
+.incbin	"KATC.BIN"