Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-05-28 17:41:29 +00:00
Code Issues Projects Releases Wiki Activity

tfv: more work on tfv

Browse Source
This commit is contained in:
Vince Weaver 2017-06-25 00:00:16 -04:00
parent 43731c2b2d
commit 81acd5a8a5
4 changed files with 62 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tfv/FIGHTING.ED Normal file
View File

@ -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

BIN
tfv/HIGHWIND.ED Normal file
View File

Binary file not shown.

4
tfv/Makefile
View File

@ -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

63
tfv/tfv.s
View File

@ -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