Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

tfv: flying at speed more or less works

This commit is contained in:
Vince Weaver 2017-09-11 15:28:56 -04:00
parent a3b2fd9108
commit 6f1ece4a0e
1 changed files with 46 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
tfv/tfv_flying.s
View File

@ -153,27 +153,27 @@ check_speedup:
;=========
lda #$3
cmp SPEED
bne check_speeddown
beq check_speeddown
inc SPEED
check_speeddown:
cmp #('X')
bne check_done
bne check_brake
;===========
; SPEED DOWN
;===========
lda SPEED
beq check_break
beq check_brake
dec SPEED
check_break:
cmp #(' ')
check_brake:
cmp #(' '+128)
bne check_land
;============
; BREAK
; BRAKE
;============
lda #$0
sta SPEED
@ -210,23 +210,52 @@ check_done:
; Handle Movement
;================
speed_loop:
speed_move:
ldx SPEED
beq draw_background
;; int ii;
lda ANGLE ; dx.i=fixed_sin[(angle+4)&0xf].i; // cos()
clc
adc #4
and #$f
asl
tay
lda fixed_sin_scale,Y
sta DX_I
iny ; dx.f=fixed_sin[(angle+4)&0xf].f; // cos()
lda fixed_sin_scale,Y
sta DX_F
;; dx.i = fixed_sin_scale[(angle+4)&0xf].i; // cos
;; dx.f = fixed_sin_scale[(angle+4)&0xf].f; // cos
;; dy.i = fixed_sin_scale[angle&0xf].i; // sin
;; dy.f = fixed_sin_scale[angle&0xf].f; // sin
lda ANGLE ; dy.i=fixed_sin[angle&0xf].i; // sin()
and #$f
asl
tay
lda fixed_sin_scale,Y
sta DY_I
iny ; dx.f=fixed_sin[angle&0xf].f; // sin()
lda fixed_sin_scale,Y
sta DY_F
speed_loop:
clc ; fixed_add(&cx,&dx,&cx);
lda CX_F
adc DX_F
sta CX_F
lda CX_I
adc DX_I
sta CX_I
clc ; fixed_add(&cy,&dy,&cy);
lda CY_F
adc DY_F
sta CY_F
lda CY_I
adc DY_I
sta CY_I
;; for(ii=0;ii<speed;ii++) {
;; fixed_add(&cx,&dx,&cx);
;; fixed_add(&cy,&dy,&cy);
;; }
dex
jmp speed_loop
bne speed_loop
;====================