dos33fsprogs/tfv/tfv.s

.include "tfv_zp.inc"

	;================================
	; Clear screen and setup graphics
	;================================

	jsr	HOME
	jsr	set_gr_page0

	lda	#0
	sta	DISP_PAGE	; Forgot to set initially
				; real hardware and AppleWin default
				; to different values

	;===================================
	; zero out the zero page that we use
	;===================================

	; memset()

	;===================================
	; Clear top/bottom of page 0 and 1
	;===================================

	jsr	clear_screens

	;==========================
	; Do Opening
	;==========================

	jsr	opening

	;======================
	; show the title screen
	;======================

	jsr	title_screen

	;======================
	; get name
	;======================

	jsr	enter_name

	;=====================
	; Flying
	;=====================

	jsr	flying_start

	;=====================
	; World Map
	;=====================

	jsr	world_map

	;=====================
	; Game Over
	;=====================

	jsr	game_over

	;=====================
	; All finished
	;=====================
exit:

	lda	#$4
	sta	BASH
	lda	#$0
	sta	BASL			; restore to 0x400 (page 0)
					; copy to 0x400 (page 0)

	; call home
	jsr	HOME


	; Return to BASIC?
	rts


;===============================================
; External modules
;===============================================

.include "tfv_opener.s"
.include "tfv_title.s"
.include "tfv_textentry.s"
.include "tfv_flying.s"
.include "tfv_worldmap.s"
.include "tfv_info.s"

.include "../asm_routines/gr_fast_clear.s"
.include "../asm_routines/gr_hlin.s"
.include "../asm_routines/pageflip.s"
.include "../asm_routines/gr_setpage.s"
.include "../asm_routines/keypress.s"
.include "../asm_routines/gr_putsprite.s"
.include "../asm_routines/text_print.s"
.include "../asm_routines/memset.s"
.include "../asm_routines/gr_vlin.s"
.include "../asm_routines/gr_copy.s"
.include "../asm_routines/gr_unrle.s"
.include "../asm_routines/gr_offsets.s"

;===============================================
; Variables
;===============================================

enter_name_string:
	.asciiz	"PLEASE ENTER A NAME:"

name:
	.byte $0,$0,$0,$0,$0,$0,$0,$0


.include "tfv_sprites.inc"
.include "tfv_backgrounds.inc"
tfv: rename files to have tfv_ in front makes it easire to keep track of things 2017-08-23 17:09:52 +00:00			`.include "tfv_zp.inc"`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: back to where we were before we started messing with page flipping 2017-08-17 03:09:49 +00:00			`;================================`
			`; Clear screen and setup graphics`
			`;================================`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`jsr HOME`
			`jsr set_gr_page0`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: fix opener bug only seen on real hardware was depending on random setting of value in zero page 2017-11-17 21:29:33 +00:00			`lda #0`
			`sta DISP_PAGE ; Forgot to set initially`
			`; real hardware and AppleWin default`
			`; to different values`

tfv: back to where we were before we started messing with page flipping 2017-08-17 03:09:49 +00:00			`;===================================`
			`; zero out the zero page that we use`
			`;===================================`

tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`; memset()`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: back to where we were before we started messing with page flipping 2017-08-17 03:09:49 +00:00			`;===================================`
tfv: better clear screen display 2017-09-11 18:52:32 +00:00			`; Clear top/bottom of page 0 and 1`
tfv: back to where we were before we started messing with page flipping 2017-08-17 03:09:49 +00:00			`;===================================`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: better clear screen display 2017-09-11 18:52:32 +00:00			`jsr clear_screens`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`;==========================`
			`; Do Opening`
			`;==========================`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`jsr opening`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
tfv: some more progress on the name entry screen 2017-06-27 04:55:41 +00:00			`;======================`
			`; show the title screen`
			`;======================`

tfv: back to where we were before we started messing with page flipping 2017-08-17 03:09:49 +00:00			`jsr title_screen`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
tfv: split files up to be more like C version 2017-08-17 03:18:59 +00:00			`;======================`
			`; get name`
			`;======================`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
tfv: split files up to be more like C version 2017-08-17 03:18:59 +00:00			`jsr enter_name`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
tfv: some more progress on the name entry screen 2017-06-27 04:55:41 +00:00			`;=====================`
tfv: split files up to be more like C version 2017-08-17 03:18:59 +00:00			`; Flying`
tfv: some more progress on the name entry screen 2017-06-27 04:55:41 +00:00			`;=====================`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
tfv: split files up to be more like C version 2017-08-17 03:18:59 +00:00			`jsr flying_start`
tfv: transparent sprite mostly working 2017-05-12 20:35:52 +00:00
tfv: add info and worldmap 2017-09-13 01:56:11 +00:00			`;=====================`
			`; World Map`
			`;=====================`

			`jsr world_map`

			`;=====================`
			`; Game Over`
			`;=====================`

			`jsr game_over`
tfv: transparent sprite mostly working 2017-05-12 20:35:52 +00:00
tfv: split files up to be more like C version 2017-08-17 03:18:59 +00:00			`;=====================`
			`; All finished`
			`;=====================`
tfv: transparent sprite mostly working 2017-05-12 20:35:52 +00:00			`exit:`

tfv: have RLE image loading working forgot how much I hate 6502 assembler 2017-05-06 23:29:19 +00:00			`lda #$4`
			`sta BASH`
			`lda #$0`
tfv: initial screen copy routine 2017-05-12 18:29:21 +00:00			`sta BASL ; restore to 0x400 (page 0)`
			`; copy to 0x400 (page 0)`

tfv: transparent sprite mostly working 2017-05-12 20:35:52 +00:00			`; call home`
			`jsr HOME`

tfv: have RLE image loading working forgot how much I hate 6502 assembler 2017-05-06 23:29:19 +00:00
			`; Return to BASIC?`
			`rts`

tfv: initial screen copy routine 2017-05-12 18:29:21 +00:00
tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`;===============================================`
			`; External modules`
			`;===============================================`
tfv: some more progress on the name entry screen 2017-06-27 04:55:41 +00:00
tfv: rename files to have tfv_ in front makes it easire to keep track of things 2017-08-23 17:09:52 +00:00			`.include "tfv_opener.s"`
			`.include "tfv_title.s"`
			`.include "tfv_textentry.s"`
			`.include "tfv_flying.s"`
tfv: add info and worldmap 2017-09-13 01:56:11 +00:00			`.include "tfv_worldmap.s"`
tfv: map mostly working 2017-11-18 21:08:46 +00:00			`.include "tfv_info.s"`
tfv: implement opener in assembly slower than I thought it would be. monitor vlin is that slow? also some flicker as I'm not doing page flipping 2017-06-25 05:00:57 +00:00
mode7: update fast clear routines 2017-12-31 20:22:38 +00:00			`.include "../asm_routines/gr_fast_clear.s"`
			`.include "../asm_routines/gr_hlin.s"`
tfv: more splitting up of utils 2017-12-16 19:11:46 +00:00			`.include "../asm_routines/pageflip.s"`
			`.include "../asm_routines/gr_setpage.s"`
			`.include "../asm_routines/keypress.s"`
			`.include "../asm_routines/gr_putsprite.s"`
			`.include "../asm_routines/text_print.s"`
			`.include "../asm_routines/memset.s"`
			`.include "../asm_routines/gr_vlin.s"`
			`.include "../asm_routines/gr_copy.s"`
			`.include "../asm_routines/gr_unrle.s"`
mode7: update fast clear routines 2017-12-31 20:22:38 +00:00			`.include "../asm_routines/gr_offsets.s"`
tfv: more splitting up of utils 2017-12-16 19:11:46 +00:00
tfv: working on updating the opener for pageflipping doesn't work 2017-08-16 22:59:08 +00:00			`;===============================================`
			`; Variables`
			`;===============================================`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
			`enter_name_string:`
			`.asciiz "PLEASE ENTER A NAME:"`

			`name:`
			`.byte $0,$0,$0,$0,$0,$0,$0,$0`

tfv: transparent sprite mostly working 2017-05-12 20:35:52 +00:00
tfv: add sprites 2017-08-23 17:25:44 +00:00			`.include "tfv_sprites.inc"`
tfv: rename files to have tfv_ in front makes it easire to keep track of things 2017-08-23 17:09:52 +00:00			`.include "tfv_backgrounds.inc"`