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_utils.s"
.include "tfv_title.s"
.include "tfv_textentry.s"
.include "tfv_flying.s"
.include "tfv_worldmap.s"
.include "tfv_info.s"

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

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
	.word	$450,$4d0,$550,$5d0,$650,$6d0,$750,$7d0

.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_utils.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
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: initial screen copy routine 2017-05-12 18:29:21 +00:00			`; waste memory with a lookup table`
			`; maybe faster than using GBASCALC?`
tfv: more work on tfv 2017-06-25 04:00:16 +00:00
tfv: initial screen copy routine 2017-05-12 18:29:21 +00:00			`gr_offsets:`
			`.word $400,$480,$500,$580,$600,$680,$700,$780`
			`.word $428,$4a8,$528,$5a8,$628,$6a8,$728,$7a8`
			`.word $450,$4d0,$550,$5d0,$650,$6d0,$750,$7d0`

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"`