dos33fsprogs/tfv/tfv_flying.s

1245 lines
25 KiB
ArmAsm
Raw Normal View History

2017-08-27 04:11:53 +00:00
;===========
; CONSTANTS
;===========
CONST_SHIPX EQU 15
CONST_TILE_W EQU 64
CONST_TILE_H EQU 64
CONST_MAP_MASK_X EQU (CONST_TILE_W - 1)
CONST_MAP_MASK_Y EQU (CONST_TILE_H - 1)
CONST_LOWRES_W EQU 40
CONST_LOWRES_H EQU 40
2017-11-26 01:30:13 +00:00
CONST_BETA_I EQU $ff
CONST_BETA_F EQU $80
CONST_SCALE_I EQU $14
CONST_SCALE_F EQU $00
2017-11-26 02:55:45 +00:00
CONST_LOWRES_HALF_I EQU $ec ; -(LOWRES_W/2)
2017-11-26 04:27:55 +00:00
CONST_LOWRES_HALF_F EQU $00
flying_start:
2017-09-11 19:09:51 +00:00
;===================
; Clear screen/pages
2017-09-11 19:09:51 +00:00
;===================
2017-09-11 18:52:32 +00:00
jsr clear_screens
jsr set_gr_page0
2017-11-26 00:37:02 +00:00
jsr init_multiply_tables
2017-09-11 19:09:51 +00:00
;===============
; Init Variables
2017-09-11 19:09:51 +00:00
;===============
lda #20
sta SHIPY
lda #0
sta TURNING
2017-09-07 05:32:31 +00:00
sta ANGLE
2017-08-27 04:11:53 +00:00
sta SPACEX_I
sta SPACEY_I
2017-09-11 03:42:47 +00:00
sta CX_I
sta CX_F
sta CY_I
sta CY_F
2017-09-11 19:09:51 +00:00
sta DRAW_SPLASH
sta SPEED
2017-10-09 19:36:25 +00:00
sta SPLASH_COUNT
lda #1
sta ANGLE
2017-11-26 05:10:58 +00:00
lda #2 ; initialize sky both pages
sta DRAW_SKY
2017-12-01 05:01:34 +00:00
lda #4 ; starts out at 4.5
sta SPACEZ_I
lda #$80
sta SPACEZ_F
2017-11-30 05:13:23 +00:00
jsr update_z_factor
flying_loop:
2017-11-24 04:57:30 +00:00
lda SPLASH_COUNT ; 3
beq flying_keyboard ; 2nt/3
dec SPLASH_COUNT ; decrement splash count ; 5
2017-09-11 19:09:51 +00:00
flying_keyboard:
2017-11-24 04:57:30 +00:00
jsr get_key ; get keypress ; 6
2017-09-11 19:09:51 +00:00
2017-11-24 04:57:30 +00:00
lda LASTKEY ; 3
; cmp #('Q') ; if quit, then return
; bne skipskip
; rts
2017-09-11 19:09:51 +00:00
;skipskip:
2017-11-24 04:57:30 +00:00
cmp #('W') ; 2
bne check_down ; 3/2nt
2017-09-11 19:09:51 +00:00
;===========
; UP PRESSED
2017-09-11 19:09:51 +00:00
;===========
lda SHIPY
cmp #17
2017-09-11 19:09:51 +00:00
bcc check_down ; bgt, if shipy>16
dec SHIPY
2017-09-11 19:09:51 +00:00
dec SHIPY ; move ship up
inc SPACEZ_I ; incement height
2017-11-30 05:13:23 +00:00
jsr update_z_factor
2017-10-09 19:36:25 +00:00
lda #0
sta SPLASH_COUNT
check_down:
cmp #('S')
bne check_left
2017-09-11 19:09:51 +00:00
;=============
; DOWN PRESSED
2017-09-11 19:09:51 +00:00
;=============
2017-09-11 19:09:51 +00:00
lda SHIPY
cmp #28
2017-10-09 19:36:25 +00:00
bcs splashy ; ble, if shipy < 28
inc SHIPY
2017-09-11 19:09:51 +00:00
inc SHIPY ; move ship down
dec SPACEZ_I ; decrement height
2017-11-30 05:13:23 +00:00
jsr update_z_factor
2017-10-09 19:36:25 +00:00
bcc check_left
splashy:
lda #10
sta SPLASH_COUNT
check_left:
cmp #('A')
bne check_right
2017-09-11 19:09:51 +00:00
;=============
; LEFT PRESSED
2017-09-11 19:09:51 +00:00
;=============
2017-09-11 19:58:23 +00:00
lda TURNING
bmi turn_left
beq turn_left
lda #$0
sta TURNING
clv
bvc check_right
turn_left:
lda #253 ; -3
sta TURNING
2017-09-11 03:42:47 +00:00
dec ANGLE
check_right:
cmp #('D')
2017-09-11 19:09:51 +00:00
bne check_speedup
2017-09-11 19:09:51 +00:00
;==============
; RIGHT PRESSED
2017-09-11 19:09:51 +00:00
;==============
2017-09-11 19:58:23 +00:00
lda TURNING ;; FIXME: optimize me
bpl turn_right
lda #0
sta TURNING
clv
bvc check_speedup
turn_right:
lda #3
sta TURNING
2017-09-11 03:42:47 +00:00
inc ANGLE
2017-09-11 19:09:51 +00:00
check_speedup:
cmp #('Z')
bne check_speeddown
;=========
; SPEED UP
;=========
lda #$8
2017-09-11 19:09:51 +00:00
cmp SPEED
beq check_speeddown
2017-09-11 19:09:51 +00:00
inc SPEED
check_speeddown:
cmp #('X')
bne check_brake
2017-09-11 19:09:51 +00:00
;===========
; SPEED DOWN
;===========
lda SPEED
beq check_brake
2017-09-11 19:09:51 +00:00
dec SPEED
check_brake:
cmp #(' '+128)
2017-09-11 19:09:51 +00:00
bne check_land
;============
; BRAKE
2017-09-11 19:09:51 +00:00
;============
lda #$0
sta SPEED
check_land:
cmp #13
bne check_help
;=====
; LAND
;=====
; finds value in space_x.i,space_y.i
; returns color in A
lda CX_I
sta SPACEX_I
lda CY_I
sta SPACEY_I
jsr lookup_map
cmp #COLOR_BOTH_LIGHTGREEN
2017-11-18 19:31:03 +00:00
bne must_land_on_grass
landing_loop:
jsr draw_background_mode7
; Draw Shadow
lda #>shadow_forward
sta INH
lda #<shadow_forward
sta INL
lda #(CONST_SHIPX+3)
sta XPOS
clc
lda SPACEZ_I
adc #31
and #$fe ; make sure it's even
sta YPOS
jsr put_sprite
lda #>ship_forward
sta INH
lda #<ship_forward
sta INL
lda #CONST_SHIPX
sta XPOS
lda SHIPY
sta YPOS
jsr put_sprite
jsr page_flip
dec SPACEZ_I
2017-11-30 05:13:23 +00:00
jsr update_z_factor
lda SPACEZ_I
bpl landing_loop
rts ; finish flying
2017-11-18 19:31:03 +00:00
must_land_on_grass:
lda #10
sta CH ; HTAB 11
2017-11-18 19:31:03 +00:00
lda #21
sta CV ; VTAB 22
2017-11-18 19:31:03 +00:00
lda #>(grass_string)
sta OUTH
lda #<(grass_string)
sta OUTL
2017-11-18 19:31:03 +00:00
jsr print_both_pages ; "NEED TO LAND ON GRASS!"
2017-09-11 19:09:51 +00:00
check_help:
cmp #('H')
bne check_done
;=====
; HELP
;=====
2017-11-18 20:17:28 +00:00
jsr print_help
lda #2
sta DRAW_SKY
check_done:
2017-09-11 19:09:51 +00:00
;================
; Wrap the Angle
;================
2017-11-24 04:57:30 +00:00
; FIXME: only do this in right/left routine?
lda ANGLE ; 3
and #$f ; 2
sta ANGLE ; 3
2017-09-07 05:32:31 +00:00
2017-09-11 19:09:51 +00:00
;================
; Handle Movement
;================
speed_move:
2017-11-24 04:57:30 +00:00
ldx SPEED ; 3
beq draw_background ; 2nt/3
;=============
lda ANGLE ; dx.i=fixed_sin[(angle+4)&0xf].i; // cos() ; 3
clc ; 2
adc #4 ; 2
and #$f ; 2
asl ; 2
tay ; 2
lda fixed_sin_scale,Y ; 4
sta DX_I ; 3
iny ; dx.f=fixed_sin[(angle+4)&0xf].f; // cos() ; 2
lda fixed_sin_scale,Y ; 4
sta DX_F ; 3
2017-11-24 04:57:30 +00:00
lda ANGLE ; dy.i=fixed_sin[angle&0xf].i; // sin() ; 3
and #$f ; 2
asl ; 2
tay ; 2
lda fixed_sin_scale,Y ; 4
sta DY_I ; 3
iny ; dx.f=fixed_sin[angle&0xf].f; // sin() ; 2
lda fixed_sin_scale,Y ; 4
sta DY_F ; 3
;============
; 54
speed_loop:
2017-11-24 04:57:30 +00:00
clc ; fixed_add(&cx,&dx,&cx); ; 2
lda CX_F ; 3
adc DX_F ; 3
sta CX_F ; 3
lda CX_I ; 3
adc DX_I ; 3
sta CX_I ; 3
2017-09-11 19:09:51 +00:00
2017-11-24 04:57:30 +00:00
clc ; fixed_add(&cy,&dy,&cy); ; 2
lda CY_F ; 3
adc DY_F ; 3
sta CY_F ; 3
lda CY_I ; 3
adc DY_I ; 3
sta CY_I ; 3
2017-09-11 19:09:51 +00:00
2017-11-24 04:57:30 +00:00
dex ; 2
bne speed_loop ; 2nt/3
;============
; 45
2017-09-11 19:09:51 +00:00
;====================
; Draw the background
;====================
2017-09-11 19:09:51 +00:00
draw_background:
2017-11-24 04:57:30 +00:00
jsr draw_background_mode7 ; 6
2017-10-09 19:36:25 +00:00
check_over_water:
; See if we are over water
lda CX_I ; 3
sta SPACEX_I ; 3
lda CY_I ; 3
sta SPACEY_I ; 3
jsr lookup_map ; 6
sec ; 2
sbc #COLOR_BOTH_DARKBLUE ; 2
sta OVER_LAND ; 3
;===========
; 31
2017-10-09 19:36:25 +00:00
; Calculate whether to draw the splash
2017-11-24 04:57:30 +00:00
lda #0 ; set splash drawing to 0 ; 2
sta DRAW_SPLASH ; 3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda SPEED ; if speed==0, no splash ; 3
beq no_splash ; 2nt/3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda TURNING ; 3
beq no_turning_splash ; 2nt/3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda SHIPY ; 3
cmp #27 ; 2
bcc no_turning_splash ; blt if shipy<25 skip ; 2nt/3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda #1 ; 2
sta SPLASH_COUNT ; 3
2017-10-09 19:36:25 +00:00
no_turning_splash:
lda OVER_LAND ; no splash if over land ; 3
bne no_splash ; 2nt/3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda SPLASH_COUNT ; no splash if splash_count expired ; 3
beq no_splash ; 2nt/3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda #1 ; 2
sta DRAW_SPLASH ; 3
2017-10-09 19:36:25 +00:00
no_splash:
;==============
; Draw the ship
;==============
2017-11-24 04:57:30 +00:00
clv ; 2
lda TURNING ; 3
beq draw_ship_forward ; 2nt/3
bpl draw_ship_right ; 2nt/3
bmi draw_ship_left ;; FIXME: optimize order ; 2nt/3
draw_ship_forward:
2017-11-24 04:57:30 +00:00
lda DRAW_SPLASH ; 2
beq no_forward_splash ; 2nt/3
2017-10-09 19:36:25 +00:00
; Draw Splash
2017-11-24 04:57:30 +00:00
lda #>splash_forward ; 2
sta INH ; 3
lda #<splash_forward ; 2
sta INL ; 3
lda #(CONST_SHIPX+1) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda SHIPY ; 3
adc #9 ; 2
and #$fe ; make sure it's even ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;==========
; 33
2017-10-09 19:36:25 +00:00
no_forward_splash:
2017-09-11 19:58:23 +00:00
; Draw Shadow
2017-11-24 04:57:30 +00:00
lda #>shadow_forward ; 2
sta INH ; 3
lda #<shadow_forward ; 2
sta INL ; 3
lda #(CONST_SHIPX+3) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda SPACEZ_I ; 3
adc #31 ; 2
and #$fe ; make sure it's even ; 2
sta YPOS ; 3
jsr put_sprite ; 6
lda #>ship_forward ; 2
sta INH ; 3
lda #<ship_forward ; 2
sta INL ; 3
bvc draw_ship ; 3
;===========
; 46
draw_ship_right:
2017-11-24 04:57:30 +00:00
lda DRAW_SPLASH ; 3
beq no_right_splash ; 2nt/3
2017-09-11 19:58:23 +00:00
2017-10-09 19:36:25 +00:00
; Draw Splash
2017-11-24 04:57:30 +00:00
lda #>splash_right ; 2
sta INH ; 3
lda #<splash_right ; 2
sta INL ; 3
lda #(CONST_SHIPX+1) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda #36 ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;===========
; 28
2017-10-09 19:36:25 +00:00
no_right_splash:
2017-09-11 19:58:23 +00:00
; Draw Shadow
2017-11-24 04:57:30 +00:00
lda #>shadow_right ; 2
sta INH ; 3
lda #<shadow_right ; 2
sta INL ; 3
lda #(CONST_SHIPX+3) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda SPACEZ_I ; 3
adc #31 ; 2
and #$fe ; make sure it's even ; 2
sta YPOS ; 3
jsr put_sprite ; 6
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
lda #>ship_right ; 2
sta INH ; 3
lda #<ship_right ; 2
sta INL ; 3
2017-10-09 19:36:25 +00:00
2017-11-24 04:57:30 +00:00
dec TURNING ; 5
2017-11-24 04:57:30 +00:00
bvc draw_ship ; 3
;==========
; 51
draw_ship_left:
2017-11-24 04:57:30 +00:00
lda DRAW_SPLASH ; 3
beq no_left_splash ; 2nt/3
2017-09-11 19:58:23 +00:00
2017-10-09 19:36:25 +00:00
; Draw Splash
2017-11-24 04:57:30 +00:00
lda #>splash_left ; 2
sta INH ; 3
lda #<splash_left ; 2
sta INL ; 3
lda #(CONST_SHIPX+1) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda #36 ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;===========
2017-11-27 00:20:58 +00:00
; 28
2017-10-09 19:36:25 +00:00
no_left_splash:
2017-09-11 19:58:23 +00:00
; Draw Shadow
2017-11-24 04:57:30 +00:00
lda #>shadow_left ; 2
sta INH ; 3
lda #<shadow_left ; 2
sta INL ; 3
lda #(CONST_SHIPX+3) ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
clc ; 2
lda SPACEZ_I ; 3
adc #31 ; 2
and #$fe ; make sure it's even ; 2
sta YPOS ; 3
jsr put_sprite ; 6
2017-09-11 19:58:23 +00:00
2017-11-24 04:57:30 +00:00
lda #>ship_left ; 2
sta INH ; 3
lda #<ship_left ; 2
sta INL ; 3
2017-11-24 04:57:30 +00:00
inc TURNING ; 5
;==========
; 48
2017-10-09 19:36:25 +00:00
draw_ship:
lda #CONST_SHIPX ; 2
2017-11-24 04:57:30 +00:00
sta XPOS ; 3
lda SHIPY ; 3
sta YPOS ; 3
jsr put_sprite ; 6
;===========
; 17
;==================
; flip pages
;==================
2017-11-24 04:57:30 +00:00
jsr page_flip ; 6
;==================
; loop forever
;==================
2017-11-24 04:57:30 +00:00
jmp flying_loop ; 3
2017-11-30 05:13:23 +00:00
update_z_factor:
; we only do the following if Z changes
; fixed_mul(&space_z,&BETA,&factor);
;mul1
lda SPACEZ_I ; 3
sta NUM1H ; 3
; interlude, update SPACEZ_SHIFTED
asl ; 2
asl ; 2
asl ; 2
asl ; 2
asl ; 2
sec ; 2
sbc #8 ; 2
sta spacez_shifted+1 ; 4
lda SPACEZ_F ; 3
sta NUM1L ; 3
lda #CONST_BETA_I ; BETA_I ; 2
sta NUM2H ; 3
lda #CONST_BETA_F ; BETA_F ; 2
sta NUM2L ; 3
sec ; don't reuse old values ; 2
jsr multiply ; 6
stx FACTOR_I ; 3
sta FACTOR_F ; 3
2017-11-30 05:13:23 +00:00
rts ; 6
;===========
; 60
;===========================
; Draw the Mode7 Background
;===========================
draw_background_mode7:
2017-11-29 17:53:29 +00:00
; Only draw sky if necessary
; (at start, or if we have switched to text, we never overwrite it)
2017-11-26 05:10:58 +00:00
2017-11-29 17:53:29 +00:00
lda DRAW_SKY ; 3
beq no_draw_sky ;^2nt/3
;==============
; 6
; Draw Sky
2017-11-29 17:53:29 +00:00
; not performance critical as this happens rarely
2017-11-29 17:53:29 +00:00
dec DRAW_SKY ; usually 2 as we redraw both pages ; 5
2017-11-23 04:50:43 +00:00
lda #COLOR_BOTH_MEDIUMBLUE ; MEDIUMBLUE color ; 2
sta COLOR ; 3
lda #0 ; 2
;===========
2017-11-26 05:10:58 +00:00
; 11
2017-10-09 19:36:25 +00:00
2017-08-25 05:34:14 +00:00
sky_loop: ; draw line across screen
ldy #39 ; from y=0 to y=6 ; 2
2017-11-23 04:50:43 +00:00
sty V2 ; 3
ldy #0 ; 2
pha ; 3
jsr hlin_double ; hlin y,V2 at A ; 63+(X*16)
pla ; 4
clc ; 2
adc #2 ; 2
cmp #6 ; 2
bne sky_loop ; 3/2nt
;=============
; (23+63+(X*16))*5
2017-11-26 02:55:45 +00:00
; Draw Hazy Horizon
2017-11-23 04:50:43 +00:00
lda #COLOR_BOTH_GREY ; Horizon is Grey ; 2
sta COLOR ; 3
lda #6 ; draw single line at 6/7 ; 2
ldy #39 ; 2
2017-11-23 04:50:43 +00:00
sty V2 ; hlin Y,V2 at A ; 3
ldy #0 ; 2
jsr hlin_double ; hlin 0,40 at 6 ; 63+(X*16)
;===========
; 63+(X*16)+14
2017-11-26 05:10:58 +00:00
no_draw_sky:
2017-11-29 17:53:29 +00:00
; setup initial odd/even color mask
2017-11-27 00:20:58 +00:00
lda #$f0 ; 2
sta COLOR_MASK ; 3
2017-11-29 17:53:29 +00:00
; start Y at 8 (below horizon line)
2017-11-23 04:50:43 +00:00
lda #8 ; 2
sta SCREEN_Y ; 3
2017-11-23 04:50:43 +00:00
;=============
2017-11-29 17:53:29 +00:00
; 10
2017-11-27 00:20:58 +00:00
2017-08-25 05:34:14 +00:00
screeny_loop:
2017-11-29 17:53:29 +00:00
and #$fe ; be sure SCREEN_Y used later is even ; 2
tay ; put in Y for lookup table later ; 2
2017-11-27 00:20:58 +00:00
2017-11-29 17:53:29 +00:00
lda COLOR_MASK ; flip mask for odd/even row plotting ; 3
2017-11-27 00:20:58 +00:00
eor #$ff ; 2
sta COLOR_MASK ; 3
2017-11-29 17:53:29 +00:00
sta mask_label+1 ; setup self-modifying code ; 4
2017-11-27 01:51:24 +00:00
2017-11-29 17:53:29 +00:00
eor #$ff ; setup self-modifying branch later ; 2
bmi odd_branch ; beq is $f0 (too clever FIXME) ; 2nt/3
lda #$d0 ; bne is $d0 ; 2
2017-11-27 01:51:24 +00:00
odd_branch:
2017-11-29 17:53:29 +00:00
sta mask_branch_label ; actually update branch ; 4
;============
; 27
2017-11-29 17:53:29 +00:00
setup_gr_addr:
lda gr_offsets,Y ; lookup low-res memory row address ; 4
sta GBASL ; store in GBASL zero-page pointer ; 3
iny ; point to high part of address ; 2
2017-11-29 17:53:29 +00:00
lda gr_offsets,Y ; load high part of address ; 4
clc ; clear carry for add ; 2
adc DRAW_PAGE ; add in draw page offset ; 3
2017-11-29 17:53:29 +00:00
sta GBASH ; store in GBASH zero-page pointer ; 3
2017-11-23 04:50:43 +00:00
;=============
2017-11-29 17:53:29 +00:00
; 21
calc_horizontal_scale:
; Calculate the horizontal scale using a lookup table
2017-11-27 00:20:58 +00:00
; horizontal_scale.i *ALWAYS* = 0
; unsigned char horizontal_lookup[7][32];
2017-09-02 04:23:38 +00:00
;horizontal_scale.f=
; horizontal_lookup[space_z.i&0xf][(screen_y-8)/2];
; horizontal_lookup[(space_z<<5)+(screen_y-8)]
2017-09-02 04:23:38 +00:00
2017-11-23 04:50:43 +00:00
clc ; 2
2017-11-30 05:13:23 +00:00
lda SCREEN_Y ; 3
spacez_shifted:
adc #0 ; self-modify, loads (spacez<<5)-8 ; 2
2017-11-23 04:50:43 +00:00
tay ; 2
lda horizontal_lookup,Y ; 4
2017-11-30 05:13:23 +00:00
sta NUM1L ; HORIZ_SCALE_F is input to next mul ; 3
2017-11-23 04:50:43 +00:00
;============
2017-11-30 05:13:23 +00:00
; 16
2017-11-26 02:55:45 +00:00
; mul2
2017-09-02 04:23:38 +00:00
; calculate the distance of the line we are drawing
; fixed_mul(&horizontal_scale,&scale,&distance);
2017-11-30 05:13:23 +00:00
lda #0 ; HORIZ_SCALE_I is always zero ; 2
2017-11-26 02:55:45 +00:00
sta NUM1H ; 3
2017-11-30 05:13:23 +00:00
; NUM1L was set to HORIZ_SCALE_F previously ;
2017-11-26 01:30:13 +00:00
lda #CONST_SCALE_I ; SCALE_I ; 2
2017-11-26 02:55:45 +00:00
sta NUM2H ; 3
2017-11-26 01:30:13 +00:00
lda #CONST_SCALE_F ; SCALE_F ; 2
2017-11-26 02:55:45 +00:00
sta NUM2L ; 3
2017-11-30 05:13:23 +00:00
sec ; don't reuse previous settings ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
stx DISTANCE_I ; 2
sta DISTANCE_F ; 2
2017-11-23 04:50:43 +00:00
;==========
2017-11-27 00:20:58 +00:00
; 27
2017-11-30 05:13:23 +00:00
; calculate the dx and dy to add to points in space
; we add to the starting values on each row to get the next
; space values
2017-09-02 04:23:38 +00:00
2017-11-30 05:13:23 +00:00
; dx.i=fixed_sin[(angle+8)&0xf].i // -sin()
lda ANGLE ; 3
2017-11-23 04:50:43 +00:00
clc ; 2
adc #8 ; 2
and #$f ; 2
asl ; 2
tay ; 2
2017-11-30 05:13:23 +00:00
lda fixed_sin,Y ; load integer half ; 4
sta NUM2H ; use as source in upcomnig mul ; 3
; dx.f=fixed_sin[(angle+8)&0xf].f; // -sin()
iny ; point to float half ; 2
lda fixed_sin,Y ; load it from lookup table ; 4
sta NUM2L ; use as source in upcoming mul ; 3
2017-11-23 04:50:43 +00:00
;==========
; 29
2017-11-30 05:13:23 +00:00
2017-11-26 02:55:45 +00:00
;mul3
2017-09-02 04:23:38 +00:00
; fixed_mul(&dx,&horizontal_scale,&dx);
2017-11-30 05:13:23 +00:00
; DX_I:DX_F already set in NUM2H:NUM2L
2017-11-26 02:55:45 +00:00
clc ; reuse HORIZ_SCALE in NUM1 ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
stx DX_I ; 3
sta DX_F ; 3
2017-11-23 04:50:43 +00:00
;==========
; 14
2017-09-02 04:23:38 +00:00
2017-11-30 05:13:23 +00:00
; dy.i=fixed_sin[(angle+4)&0xf].i; // cos()
lda ANGLE ; 3
2017-11-23 04:50:43 +00:00
clc ; 2
adc #4 ; 2
and #$f ; 2
asl ; 2
tay ; 2
2017-11-30 05:13:23 +00:00
lda fixed_sin,Y ; load integer half ; 4
sta NUM2H ; use as source in upcoming mul ; 3
; dy.f=fixed_sin[(angle+4)&0xf].f; // cos()
iny ; point to float half ; 2
lda fixed_sin,Y ; load from lookup table ; 4
sta NUM2L ; use as source in upcoming mul ; 3
2017-11-23 04:50:43 +00:00
;==========
; 29
2017-11-26 02:55:45 +00:00
;mul4
2017-09-02 04:23:38 +00:00
; fixed_mul(&dy,&horizontal_scale,&dy);
2017-11-30 05:13:23 +00:00
; DY_I:DY_F already in NUM2H:NUM2L
2017-11-26 02:55:45 +00:00
clc ; reuse horiz_scale in num1 ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
stx DY_I ; 3
sta DY_F ; 3
2017-11-23 04:50:43 +00:00
;==========
; 14
2017-09-11 03:42:47 +00:00
2017-11-30 05:13:23 +00:00
;=================================
2017-09-02 04:23:38 +00:00
; calculate the starting position
2017-11-30 05:13:23 +00:00
;=================================
2017-09-02 04:23:38 +00:00
2017-11-23 04:50:43 +00:00
; fixed_add(&distance,&factor,&space_x);
clc ; fixed_add(&distance,&factor,&space_y); ; 2
lda DISTANCE_F ; 3
adc FACTOR_F ; 3
sta SPACEY_F ; 3
sta SPACEX_F ; 3
2017-11-30 05:13:23 +00:00
2017-11-23 04:50:43 +00:00
lda DISTANCE_I ; 3
adc FACTOR_I ; 3
sta SPACEY_I ; 3
sta SPACEX_I ; 3
;==========
; 26
2017-09-10 21:05:26 +00:00
2017-11-30 05:13:23 +00:00
; temp.i=fixed_sin[(angle+4)&0xf].i; // cos()
lda ANGLE ; 3
2017-11-23 04:50:43 +00:00
clc ; 2
adc #4 ; 2
and #$f ; 2
asl ; 2
tay ; 2
lda fixed_sin,Y ; 4
2017-11-30 05:13:23 +00:00
sta NUM2H ; store as source for next mul ; 3
; temp.f=fixed_sin[(angle+4)&0xf].f; // cos()
iny ; 2
2017-11-23 04:50:43 +00:00
lda fixed_sin,Y ; 4
2017-11-30 05:13:23 +00:00
sta NUM2L ; store as source for next mul ; 3
2017-11-23 04:50:43 +00:00
;==========
; 29
2017-11-26 02:55:45 +00:00
; mul5
2017-11-23 04:50:43 +00:00
; fixed_mul(&space_x,&temp,&space_x);
lda SPACEX_I ; 3
2017-11-26 02:55:45 +00:00
sta NUM1H ; 3
2017-11-23 04:50:43 +00:00
lda SPACEX_F ; 3
2017-11-26 02:55:45 +00:00
sta NUM1L ; 3
2017-11-30 05:13:23 +00:00
; NUM2H:NUM2L already set above
sec ; don't reuse previous NUM1 ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
; SPACEX_I in X ;
; SPACEX_F in A ;
2017-11-23 04:50:43 +00:00
;==========
; 20
2017-11-23 04:50:43 +00:00
2017-11-30 05:13:23 +00:00
; fixed_add(&space_x,&cx,&space_x);
clc ; 2
; SPACEX_F still in A ;
2017-11-23 04:50:43 +00:00
adc CX_F ; 3
sta SPACEX_F ; 3
txa ; SPACEX_I was in X ; 2
2017-11-23 04:50:43 +00:00
adc CX_I ; 3
sta SPACEX_I ; 3
;===========
; 16
2017-11-23 04:50:43 +00:00
; temp.i=fixed_sin[angle&0xf].i; // sin()
lda ANGLE ; 3
2017-11-23 04:50:43 +00:00
and #$f ; 2
asl ; 2
tay ; 2
lda fixed_sin,Y ; 4
sta NUM2H ; store for next mul ; 3
; fixed_temp.f=fixed_sin[angle&0xf].f; // sin()
iny ; 2
2017-11-23 04:50:43 +00:00
lda fixed_sin,Y ; 4
sta NUM2L ; store for next mul ; 3
2017-11-23 04:50:43 +00:00
;==========
; 25
2017-09-02 04:23:38 +00:00
2017-11-26 02:55:45 +00:00
;mul6
2017-09-02 04:23:38 +00:00
; fixed_mul(&space_y,&fixed_temp,&space_y);
2017-11-23 04:50:43 +00:00
lda SPACEY_I ; 3
2017-11-26 02:55:45 +00:00
sta NUM1H ; 3
2017-11-23 04:50:43 +00:00
lda SPACEY_F ; 3
2017-11-26 02:55:45 +00:00
sta NUM1L ; 3
; NUM2H:NUM2L already set
sec ; don't reuse previous num1 ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
; SPACEY_I in X ;
; SPACEY_F in A ;
2017-11-23 04:50:43 +00:00
;==========
; 20
2017-11-23 04:50:43 +00:00
; fixed_add(&space_y,&cy,&space_y);
clc ; 2
; SPACEY_F in A
2017-11-23 04:50:43 +00:00
adc CY_F ; 3
sta SPACEY_F ; 3
txa ; SPACEY_I in X ; 2
2017-11-23 04:50:43 +00:00
adc CY_I ; 3
sta SPACEY_I ; 3
;==========
; 16
2017-11-26 02:55:45 +00:00
; mul7
; fixed_mul(&lowres_half,&dx,&temp);
lda #CONST_LOWRES_HALF_I ; 2
2017-11-26 02:55:45 +00:00
sta NUM1H ; 3
lda #CONST_LOWRES_HALF_F ; 2
2017-11-26 02:55:45 +00:00
sta NUM1L ; 3
lda DX_I ; 3
sta NUM2H ; 3
2017-11-27 01:51:24 +00:00
sta dxi_label+1 ; for self modify ; 4
2017-11-26 02:55:45 +00:00
lda DX_F ; 3
2017-11-27 01:51:24 +00:00
sta dxf_label+1 ; for self modify ; 4
2017-11-26 02:55:45 +00:00
sta NUM2L ; 3
sec ; don't reuse previous num1 ; 2
2017-11-26 02:55:45 +00:00
jsr multiply ; 6
; TEMP_I in X ;
; TEMP_F in A ;
2017-11-26 02:55:45 +00:00
;==========
; 38
2017-11-26 02:55:45 +00:00
; fixed_add(&space_x,&temp,&space_x);
clc ; 2
; TEMP_F in A
adc SPACEX_F ; 3
2017-11-26 02:55:45 +00:00
sta SPACEX_F ; 3
txa ; TEMP_I in X ; 2
adc SPACEX_I ; 3
2017-11-26 02:55:45 +00:00
sta SPACEX_I ; 3
;==========
; 16
2017-11-26 02:55:45 +00:00
;mul8
2017-09-02 04:23:38 +00:00
; fixed_mul(&fixed_temp,&dy,&fixed_temp);
2017-11-23 04:50:43 +00:00
lda DY_I ; 3
2017-11-26 02:55:45 +00:00
sta NUM2H ; 3
2017-11-27 01:51:24 +00:00
sta dyi_label+1 ; for self modify ; 4
2017-11-23 04:50:43 +00:00
lda DY_F ; 3
2017-11-26 02:55:45 +00:00
sta NUM2L ; 3
2017-11-27 01:51:24 +00:00
sta dyf_label+1 ; for self modify ; 4
clc ; reuse CONST_LOWRES_HALF from last time ; 2
2017-11-23 04:50:43 +00:00
jsr multiply ; 6
; TEMP_I in X
; TEMP_F in A
2017-11-23 04:50:43 +00:00
;==========
2017-11-27 01:51:24 +00:00
; 28
2017-11-23 04:50:43 +00:00
; fixed_add(&space_y,&temp,&space_y);
clc ; 2
; TEMP_F in A
adc SPACEY_F ; 3
2017-11-23 04:50:43 +00:00
sta SPACEY_F ; 3
txa ; TEMP_I in X ; 2
adc SPACEY_I ; 3
2017-11-23 04:50:43 +00:00
sta SPACEY_I ; 3
;==========
; 16
2017-11-23 04:50:43 +00:00
2017-11-30 04:17:32 +00:00
ldx #40 ; was SCREEN_X ; 2
2017-11-23 04:50:43 +00:00
;==========
; 2
2017-11-30 06:10:26 +00:00
;===================================================
; SCREEN_X LOOP!!!!
; every cycle in here counts for 32*40=1280 cycles
;===================================================
2017-08-25 05:34:14 +00:00
screenx_loop:
nomatch:
2017-12-01 05:01:34 +00:00
;====================================
; do a full lookup, takes much longer
2017-12-01 05:01:34 +00:00
; used to be a separate function but we inlined it here
;====================
; lookup_map
;====================
; finds value in space_x.i,space_y.i
; returns color in A
; CLOBBERS: A,Y
lda SPACEX_I ; 3
sta spacex_label+1 ; self modifying code, LAST_SPACEX_I ; 4
and #CONST_MAP_MASK_X ; wrap at 64 ; 2
sta SPACEX_I ; store i patch out ; 3
tay ; copy to Y for later ; 2
lda SPACEY_I ; 3
sta spacey_label+1 ; self modifying code, LAST_SPACEY_I ; 4
and #CONST_MAP_MASK_Y ; wrap to 64x64 grid ; 2
sta SPACEY_I ; 3
asl ; 2
asl ; 2
asl ; multiply by 8 ; 2
clc ; 2
adc SPACEX_I ; add in X value ; 3
; only valid if x<8 and y<8
; SPACEX_I is also in y
cpy #$8 ; 2
;============
2017-12-01 05:01:34 +00:00
; 39
bcs ocean_color ; bgt 8 ; 2nt/3
ldy SPACEY_I ; 3
cpy #$8 ; 2
;=============
; 7
bcs ocean_color ; bgt 8 ; 2nt/3
tay ; 2
lda flying_map,Y ; load from array ; 4
bcc update_cache ; 3
;============
; 11
ocean_color:
and #$1f ; 2
tay ; 2
lda water_map,Y ; the color of the sea ; 4
;===========
; 8
update_cache:
sta map_color_label+1 ; self-modifying ; 4
;===========
; 4
; rts ; 6
; jsr lookup_map ; get color in A ; 6
; ;============
; 6
match:
2017-11-27 01:51:24 +00:00
mask_label:
and #0 ; COLOR_MASK (self modifying) ; 2
ldy #0 ; 2
mask_branch_label:
2017-12-01 05:01:34 +00:00
beq big_bottom ; this branch is modified based on odd/even
; F0=beq, D0=bne ; 2nt/3
2017-12-01 05:01:34 +00:00
ora (GBASL),Y ; we're odd, or the bottom in ; 5
big_bottom:
2017-12-01 05:01:34 +00:00
sta (GBASL),Y ; plot double height pixel ; 6
inc GBASL ; point to next pixel ; 5
;============
2017-12-01 05:01:34 +00:00
; 22/18
2017-09-02 04:23:38 +00:00
2017-10-09 19:36:25 +00:00
2017-09-02 04:23:38 +00:00
; advance to the next position in space
2017-12-01 05:01:34 +00:00
; fixed_add(&space_x,&dx,&space_x);
clc ; 2
2017-11-23 04:50:43 +00:00
lda SPACEX_F ; 3
2017-11-27 01:51:24 +00:00
dxf_label:
2017-12-01 05:01:34 +00:00
adc #0 ; self modifying, is DX_F ; 2
2017-11-23 04:50:43 +00:00
sta SPACEX_F ; 3
lda SPACEX_I ; 3
2017-11-27 01:51:24 +00:00
dxi_label:
2017-12-01 05:01:34 +00:00
adc #0 ; self modifying, is DX_I ; 2
2017-11-23 04:50:43 +00:00
sta SPACEX_I ; 3
2017-12-01 05:01:34 +00:00
;==========
; 18
; fixed_add(&space_y,&dy,&space_y);
2017-11-23 04:50:43 +00:00
2017-12-01 05:01:34 +00:00
clc ; 2
2017-11-23 04:50:43 +00:00
lda SPACEY_F ; 3
2017-11-27 01:51:24 +00:00
dyf_label:
2017-12-01 05:01:34 +00:00
adc #0 ; self modifyig, is DY_F ; 2
2017-11-23 04:50:43 +00:00
sta SPACEY_F ; 3
lda SPACEY_I ; 3
2017-11-27 01:51:24 +00:00
dyi_label:
2017-12-01 05:01:34 +00:00
adc #0 ; self mofidying is DY_I ; 2
2017-11-23 04:50:43 +00:00
sta SPACEY_I ; 3
2017-12-01 05:01:34 +00:00
;============
; 18
2017-11-23 04:50:43 +00:00
2017-11-30 04:17:32 +00:00
dex ; decrement SCREEN_X ; 2
beq done_screenx_loop ; branch until we've done 40 ; 2nt/3
2017-11-23 04:50:43 +00:00
;=============
2017-12-01 05:01:34 +00:00
; 4/5
2017-11-23 04:50:43 +00:00
; cache color and return if same as last time
lda SPACEY_I ; 3
spacey_label:
2017-12-01 05:01:34 +00:00
cmp #0 ; self modify, LAST_SPACEY_I ; 2
bne nomatch ; 2nt/3
lda SPACEX_I ; 3
spacex_label:
2017-12-01 05:01:34 +00:00
cmp #0 ; self modify, LAST_SPACEX_I ; 2
bne nomatch ; 2nt/3
map_color_label:
2017-12-01 05:01:34 +00:00
lda #0 ; self modify, LAST_MAP_COLOR ; 2
jmp match ; 3
done_screenx_loop:
inc SCREEN_Y ; 5
2017-11-23 04:50:43 +00:00
lda SCREEN_Y ; 3
cmp #40 ; LOWRES height ; 2
beq done_screeny ; 2nt/3
2017-11-30 06:10:26 +00:00
jmp screeny_loop ; too far to branch ; 3
2017-11-23 04:50:43 +00:00
;=============
; 15
2017-09-02 04:23:38 +00:00
done_screeny:
2017-11-23 04:50:43 +00:00
rts ; 6
2017-08-25 05:34:14 +00:00
;====================
; lookup_map
;====================
; finds value in space_x.i,space_y.i
; returns color in A
; CLOBBERS: A,Y
2017-12-01 05:01:34 +00:00
; this is used to check if above water or grass
; the high-performance per-pixel version has been inlined
2017-08-25 05:34:14 +00:00
lookup_map:
2017-11-24 04:57:30 +00:00
lda SPACEX_I ; 3
and #CONST_MAP_MASK_X ; 2
sta SPACEX_I ; 3
2017-11-26 04:27:55 +00:00
tay ; 2
2017-08-27 04:11:53 +00:00
2017-11-24 04:57:30 +00:00
lda SPACEY_I ; 3
and #CONST_MAP_MASK_Y ; wrap to 64x64 grid ; 2
2017-11-26 23:35:50 +00:00
sta SPACEY_I ; 3
2017-09-11 03:42:47 +00:00
2017-11-24 04:57:30 +00:00
asl ; 2
asl ; 2
asl ; multiply by 8 ; 2
clc ; 2
adc SPACEX_I ; add in X value ; 3
2017-11-26 04:27:55 +00:00
; only valid if x<8 and y<8
2017-08-25 05:34:14 +00:00
2017-11-26 04:27:55 +00:00
; SPACEX_I is in y
cpy #$8 ; 2
2017-11-26 04:27:55 +00:00
;============
2017-12-01 05:01:34 +00:00
; 31
2017-11-26 04:27:55 +00:00
2017-12-01 05:01:34 +00:00
bcs ocean_color_outline ; bgt 8 ;^2nt/3
2017-11-24 04:57:30 +00:00
ldy SPACEY_I ; 3
cpy #$8 ; 2
2017-12-01 05:01:34 +00:00
bcs ocean_color_outline ; bgt 8 ; 2nt/3
2017-08-27 04:11:53 +00:00
2017-11-24 04:57:30 +00:00
tay ; 2
lda flying_map,Y ; load from array ; 4
2017-08-27 04:11:53 +00:00
2017-12-01 05:01:34 +00:00
bcc update_cache_outline ; 3
2017-08-27 04:11:53 +00:00
2017-12-01 05:01:34 +00:00
ocean_color_outline:
2017-11-24 04:57:30 +00:00
and #$1f ; 2
tay ; 2
lda water_map,Y ; the color of the sea ; 4
2017-12-01 05:01:34 +00:00
update_cache_outline:
2017-11-24 04:57:30 +00:00
rts ; 6
2017-12-01 05:01:34 +00:00
flying_map:
2017-08-25 05:34:14 +00:00
.byte $22,$ff,$ff,$ff, $ff,$ff,$ff,$22
.byte $dd,$cc,$cc,$88, $44,$44,$00,$dd
.byte $dd,$cc,$cc,$cc, $88,$44,$44,$dd
.byte $dd,$cc,$cc,$88, $44,$44,$44,$dd
.byte $dd,$cc,$99,$99, $88,$44,$44,$dd
.byte $dd,$cc,$99,$88, $44,$44,$44,$dd
.byte $dd,$cc,$99,$99, $11,$44,$44,$dd
.byte $22,$dd,$dd,$dd, $dd,$dd,$dd,$22
2017-08-27 04:11:53 +00:00
water_map:
.byte $22,$22,$22,$22, $22,$22,$22,$22
.byte $ee,$22,$22,$22, $22,$22,$22,$22
.byte $22,$22,$22,$22, $22,$22,$22,$22
.byte $22,$22,$22,$22, $ee,$22,$22,$22
2017-09-07 05:32:31 +00:00
.include "tfv_multiply.s"
2017-08-27 04:11:53 +00:00
2017-08-25 05:34:14 +00:00
; 8.8 fixed point
2017-09-02 04:23:38 +00:00
; should we store as two arrays, one I one F?
2017-08-25 05:34:14 +00:00
fixed_sin:
.byte $00,$00 ; 0.000000=00.00
.byte $00,$61 ; 0.382683=00.61
.byte $00,$b5 ; 0.707107=00.b5
.byte $00,$ec ; 0.923880=00.ec
.byte $01,$00 ; 1.000000=01.00
.byte $00,$ec ; 0.923880=00.ec
.byte $00,$b5 ; 0.707107=00.b5
.byte $00,$61 ; 0.382683=00.61
.byte $00,$00 ; 0.000000=00.00
.byte $ff,$9f ; -0.382683=ff.9f
.byte $ff,$4b ; -0.707107=ff.4b
.byte $ff,$14 ; -0.923880=ff.14
.byte $ff,$00 ; -1.000000=ff.00
.byte $ff,$14 ; -0.923880=ff.14
.byte $ff,$4b ; -0.707107=ff.4b
.byte $ff,$9f ; -0.382683=ff.9f
fixed_sin_scale:
.byte $00,$00
.byte $00,$0c
.byte $00,$16
.byte $00,$1d
.byte $00,$20
.byte $00,$1d
.byte $00,$16
.byte $00,$0c
.byte $00,$00
.byte $ff,$f4
.byte $ff,$ea
.byte $ff,$e3
.byte $ff,$e0
.byte $ff,$e3
.byte $ff,$ea
.byte $ff,$f4
;horizontal_lookup_20:
; .byte $0C,$0A,$09,$08,$07,$06,$05,$05,$04,$04,$04,$04,$03,$03,$03,$03
; .byte $26,$20,$1B,$18,$15,$13,$11,$10,$0E,$0D,$0C,$0C,$0B,$0A,$0A,$09
; .byte $40,$35,$2D,$28,$23,$20,$1D,$1A,$18,$16,$15,$14,$12,$11,$10,$10
; .byte $59,$4A,$40,$38,$31,$2C,$28,$25,$22,$20,$1D,$1C,$1A,$18,$17,$16
; .byte $73,$60,$52,$48,$40,$39,$34,$30,$2C,$29,$26,$24,$21,$20,$1E,$1C
; .byte $8C,$75,$64,$58,$4E,$46,$40,$3A,$36,$32,$2E,$2C,$29,$27,$25,$23
; .byte $A6,$8A,$76,$68,$5C,$53,$4B,$45,$40,$3B,$37,$34,$30,$2E,$2B,$29
; we can guarantee 4 cycle indexed reads if we page-aligned this
.align 256
2017-08-25 05:34:14 +00:00
horizontal_lookup:
.byte $0C,$0B,$0A,$09,$09,$08,$08,$07,$07,$06,$06,$06,$05,$05,$05,$05
.byte $04,$04,$04,$04,$04,$04,$04,$03,$03,$03,$03,$03,$03,$03,$03,$03
.byte $26,$22,$20,$1D,$1B,$19,$18,$16,$15,$14,$13,$12,$11,$10,$10,$0F
.byte $0E,$0E,$0D,$0D,$0C,$0C,$0C,$0B,$0B,$0A,$0A,$0A,$0A,$09,$09,$09
.byte $40,$3A,$35,$31,$2D,$2A,$28,$25,$23,$21,$20,$1E,$1D,$1B,$1A,$19
.byte $18,$17,$16,$16,$15,$14,$14,$13,$12,$12,$11,$11,$10,$10,$10,$0F
.byte $59,$51,$4A,$44,$40,$3B,$38,$34,$31,$2F,$2C,$2A,$28,$26,$25,$23
.byte $22,$21,$20,$1E,$1D,$1C,$1C,$1B,$1A,$19,$18,$18,$17,$16,$16,$15
.byte $73,$68,$60,$58,$52,$4C,$48,$43,$40,$3C,$39,$36,$34,$32,$30,$2E
.byte $2C,$2A,$29,$27,$26,$25,$24,$22,$21,$20,$20,$1F,$1E,$1D,$1C,$1C
.byte $8C,$80,$75,$6C,$64,$5D,$58,$52,$4E,$4A,$46,$43,$40,$3D,$3A,$38
.byte $36,$34,$32,$30,$2E,$2D,$2C,$2A,$29,$28,$27,$26,$25,$24,$23,$22
.byte $A6,$97,$8A,$80,$76,$6E,$68,$61,$5C,$57,$53,$4F,$4B,$48,$45,$42
.byte $40,$3D,$3B,$39,$37,$35,$34,$32,$30,$2F,$2E,$2C,$2B,$2A,$29,$28
2017-11-18 19:31:03 +00:00
grass_string:
.asciiz "NEED TO LAND ON GRASS!"