tfv: minimal worldmap support

tfv/tfv_worldmap.s

@@ -1,6 +1,103 @@
+ODD		EQU	$7B
+DIRECTION	EQU	$7C
+REFRESH		EQU	$7D
 
+; In Town
+
+; Puzzle Room
+; Get through office
+; Have to run away?  What happens if die?  No save game?  Code?
+
+; Construct the LED circuit
+; Zaps through cloud
+; Susie joins your party
+
+; Final Battle
+; Play music, lightning effects?
+; TFV only hit for one damage, susie for 100
+
+;	Map
 ;
+;	0	1	2	3
+;
+; 0	BEACH	ARCTIC	ARCTIC	BELAIR
+;		TREE	MOUNATIN
+;
+; 1	BEACH	LANDING	GRASS	FOREST
+;	PINETREE	MOUNTAIN
+;
+; 2	BEACH	GRASS	GRASS	FOREST
+;	PALMTREE	MOUNTAIN
+;
+; 3	BEACH	DESERT	COLLEGE	BEACH
+;		CACTUS	PARK
+
+
 
 world_map:
-	rts
 
+	;===================
+	; Clear screen/pages
+	;===================
+
+	jsr     clear_screens
+	jsr     set_gr_page0
+
+	;===============
+	; Init Variables
+	;===============
+
+	lda	#$0
+	sta	ODD
+
+	lda	#$1
+	sta	DIRECTION
+	sta	REFRESH
+
+worldmap_loop:
+
+worldmap_keyboard:
+
+	jsr     get_key		; get keypress
+
+	lda     LASTKEY
+
+	cmp     #('Q')          ; if quit, then return
+	bne     worldmap_check_up
+        rts
+
+worldmap_check_up:
+
+
+	lda	REFRESH
+	beq	worldmap_copy_background
+
+	jsr	load_map_bg
+
+	dec	REFRESH
+
+worldmap_copy_background:
+
+	jsr	gr_copy_to_current
+        jsr	page_flip
+
+	jmp	worldmap_loop
+
+
+
+load_map_bg:
+
+	lda	#$0c
+	sta	BASH
+	lda	#$00
+	sta	BASL		; load image off-screen 0xc00
+
+	lda	#>(landing_rle)
+	sta	GBASH
+        lda	#<(landing_rle)
+        sta	GBASL
+        jsr	load_rle_gr
+
+	;; grsim_unrle(landing_rle,0x800);
+
+	rts