Laser is working properly.

But why!!!
Where do xdraw and ydraw come from in laser procedure!
This commit is contained in:
Pecusx
2022-06-03 11:59:11 +02:00
parent 777f5c341a
commit 0d7403d1c0
2 changed files with 7 additions and 3 deletions
BIN
View File
Binary file not shown.
+7 -3
View File
@@ -529,21 +529,25 @@ DiggerCharacter
.endp .endp
; ------------------------ ; ------------------------
.proc laser .proc laser
; but where are xdraw and ydraw ???? !!!!
; ------------------------
ldx TankNr ldx TankNr
lda AngleTable,x lda AngleTable,x
tay tay
clc clc
lda xtankstableL,x lda xtankstableL,x
adc EndOfTheBarrelX,y ; correction of the end of the barrel point adc EndOfTheBarrelX,y ; correction of the end of the barrel point (X)
sta xbyte sta xbyte
lda xtankstableH,x lda xtankstableH,x
adc #0 adc #0
sta xbyte+1 sta xbyte+1
sec sec
lda ytankstable,x lda ytankstable,x
sbc EndOfTheBarrelY,y sbc EndOfTheBarrelY,y ; correction of the end of the barrel point (Y)
sta ybyte sta ybyte
mva #0 ybyte+1 lda #$00
sbc #$00
sta ybyte+1
mva #0 drawFunction mva #0 drawFunction
mwa xdraw LaserCoordinate mwa xdraw LaserCoordinate
mwa ydraw LaserCoordinate+2 mwa ydraw LaserCoordinate+2