Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-24 23:25:28 +00:00
Code Issues Projects Releases Wiki Activity

ootw: c4: laser now works reasonably well

Browse Source
This commit is contained in:
Vince Weaver 2019-08-09 23:17:18 -04:00
parent 1369a3aeda
commit 286ffa9582
2 changed files with 50 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
ootw/laser.s
View File

@ -12,7 +12,7 @@
laser0_out: .byte $0
laser0_start: .byte $0
laser0_length: .byte $0
laser0_end: .byte $0
laser0_y: .byte $0
laser0_direction: .byte $0
laser0_count: .byte $0
@ -54,14 +54,15 @@ fire_laser:
laser_left:
lda PHYSICIST_X
ldx PHYSICIST_X
dex
stx laser0_end
txa
sec
sbc #10
sta laser0_start
lda #10
sta laser0_length
jmp done_fire_laser
laser_right:
@ -71,8 +72,9 @@ laser_right:
adc #5
sta laser0_start
lda #10
sta laser0_length
clc
adc #10
sta laser0_end
done_fire_laser:
rts
@ -94,7 +96,12 @@ draw_laser:
sta hlin_mask_smc+1
ldy laser0_y
ldx laser0_length
sec
lda laser0_end
sbc laser0_start
tax
lda laser0_start
jsr hlin
@ -123,26 +130,37 @@ move_laser:
move_laser_left:
lda laser0_count
and #$fe
beq still_shooting_left
cmp #4
bcc still_starting_left
cmp #8
bcc still_shooting_left
continue_shooting_left:
still_shooting_left:
lda laser0_end
sec
sbc #10
sta laser0_end
still_starting_left:
lda laser0_start
sec
sbc #20
sbc #10
sta laser0_start
still_shooting_left:
lda #20
sta laser0_length
laser_edge_detect_left:
lda laser0_start
clc
adc laser0_length
lda laser0_end
bmi disable_laser
lda laser0_start
bpl no_move_laser
lda #0
sta laser0_start
jmp no_move_laser
@ -161,8 +179,10 @@ continue_shooting_right:
sta laser0_start
still_shooting_right:
lda #20
sta laser0_length
lda laser0_end
clc
adc #10
sta laser0_end
still_starting_right:
@ -173,15 +193,12 @@ laser_edge_detect_right:
cmp #40
bcs disable_laser
clc
adc laser0_length
lda laser0_end
cmp #40
bcc no_move_laser
lda #39
sec
sbc laser0_start
sta laser0_length
sta laser0_end
no_move_laser:
inc laser0_count

13
ootw/ootw_c4_city.s
View File

@ -550,11 +550,6 @@ no_fire_laser:
lda #0
sta LASER_OUT
;================
; draw laser
;================
jsr draw_laser
;================
; move laser
@ -563,6 +558,14 @@ no_fire_laser:
jsr move_laser
;================
; draw laser
;================
jsr draw_laser
;========================
; draw foreground cover
;========================