tfv: more work on tfv

tfv/FIGHTING.ED

@@ -0,0 +1 @@
+˙˙l˙˙˙`˙˙˙P˙`˙l˙`˙l˙ä˙l˙ä˙˙˙l˙˙˙`˙˙˙P˙`˙l˙`˙l˙ä˙l äŔlŘfŘlŘPŘlŘH˙P˙V˙`˙V˙`˙lŘPŘlŘPŘPlPHPPHPPrV6V0`+`(V$V?V9V`˙l˙`˙P`l`lälä˙l˙`˙P`l`lälälPlPlHPV`V`lPlPlHPPV`V`˙˙?˙älVVVäää
lllä
˙<1C><18><12><0C><1C><12>6
 <12>$˙<1C><1C><>
˙˙˙?˙älVVVäää
lllä
˙<1C><18><12><0C><1C><12>6
 <12>$˙<1C><1C><>
˙?˙9˙˙Ŕ¬9<>˙˙˙˙˙0˙˙Ŕ¬9<>˙9˙?˙&ä9`V?˙9˙˙Ŕ¬9<>˙˙˙˙˙˙?˙&Ŕ9¬<18>˙?˙$˙?˙˙˙˙Ŕ¬<18>˙˙˙˙˙˙˙˙Ŕ¬<18>˙˙˙9ä`V˙˙˙Ŕ¬<18>˙˙˙˙˙˙˙˙˙9Ŕ¬<15>˙˙9˙˙$$<24>?<3F>9<>9˙9äHl$<12><1F><1C>˙äH
l$?˙9˙˙älH`$˙˙˙Ř<ä`$`lll```lll``$`lll`˙lŘä<18>?˙$˙˙˙˙˙˙˙˙9˙?˙9˙$˙$?˙$˙?˙9˙?˙?ä?l?r$0`+`+l$(`$`$l?`$`9l?`?˙?l?ä?Ř?<3F>$˙$r˙$6˙$0˙+˙$$˙$+˙+ä+l+r$``l$``l`$
`l`˙lŘä<1F>$?˙$9˙$˙$˙Hl$äV`lä˙l˙`˙P`l`läl

tfv/Makefile

@@ -5,10 +5,12 @@ PNG2GR = ../gr-utils/png2gr
 
 all:	tfv.dsk
 
-tfv.dsk:	TITLE.GR TFV ED
+tfv.dsk:	TITLE.GR TFV ED HIGHWIND.ED FIGHTING.ED
 	$(DOS33) -y tfv.dsk BSAVE -a 0x1000 TFV
 	$(DOS33) -y tfv.dsk BSAVE -a 0x400 TITLE.GR
 	$(DOS33) -y tfv.dsk BSAVE -a 0x900 ED
+	$(DOS33) -y tfv.dsk BSAVE -a 0x2000 HIGHWIND.ED
+	$(DOS33) -y tfv.dsk BSAVE -a 0x2000 FIGHTING.ED
 
 TFV:	tfv.o
 	ld65 -o TFV tfv.o -C ./apple2_1000.inc

tfv/tfv.s

@@ -4,8 +4,8 @@ KEYPRESS	EQU	$C000
 KEYRESET	EQU	$C010
 
 ;; SOFT SWITCHES
-GR		EQU	$C050
-TEXT		EQU	$C051
+SET_GR		EQU	$C050
+SET_TEXT	EQU	$C051
 FULLGR		EQU	$C052
 TEXTGR		EQU	$C053
 PAGE0		EQU	$C054
@@ -19,6 +19,7 @@ PTRIG		EQU	$C070
 
 
 ;; MONITOR ROUTINES
+TEXT	EQU $FB36
 HLINE	EQU $F819			;; HLINE Y,$2C at A
 VLINE	EQU $F828			;; VLINE A,$2D at Y
 CLRSCR	EQU $F832			;; Clear low-res screen
@@ -90,14 +91,46 @@ OUTH		EQU	$FF
 	lda	#20
 	sta	XPOS
 
-main_loop:
+title_screen:
 
 	jsr	gr_copy
 
+	jsr	wait_until_keypressed
+
+
+enter_name:
+
+	jsr	TEXT
+	jsr	HOME
+
+	lda     #>(enter_name_string)
+        sta     OUTH
+	lda     #<(enter_name_string)
+        sta     OUTL
+
+	jsr	print_string
+
+
+
+	jsr	wait_until_keypressed
+
+
+
+flying_start:
+
+	jsr     set_gr_page0
+
+flying_loop:
+	jsr	gr_copy
+
 	jsr	put_sprite
 
 	jsr	wait_until_keypressed
 
+
+
+
+
 	lda	LASTKEY
 
 	cmp	#('Q')
@@ -125,7 +158,7 @@ check_right:
 	inc	XPOS
 
 check_done:
-	jmp	main_loop
+	jmp	flying_loop
 
 
 
@@ -263,7 +296,7 @@ set_gr_page0:
 	bit	PAGE0			; set page 0
 	bit	LORES			; Lo-res graphics
 	bit	TEXTGR			; mixed gr/text mode
-	bit	GR			; set graphics
+	bit	SET_GR			; set graphics
 	rts
 
 	;=========================================================
@@ -510,9 +543,29 @@ put_sprite_done_draw:
 
 	rts				; return
 
+print_string:
+	ldy	#0
+print_string_loop:
+	lda	(OUTL),Y
+	beq	done_print_string
+	ora	$80
+	jsr	COUT1
+	iny
+	bne	print_string_loop
+done_print_string:
+	rts
+
+
+enter_name_string:
+	.asciiz	"PLEASE ENTER A NAME:"
+
+name:
+	.byte $0,$0,$0,$0,$0,$0,$0,$0
+
 
 	; waste memory with a lookup table
 	; maybe faster than using GBASCALC?
+
 gr_offsets:
 	.word	$400,$480,$500,$580,$600,$680,$700,$780
 	.word 	$428,$4a8,$528,$5a8,$628,$6a8,$728,$7a8