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
; ------------------------
.proc laser
; but where are xdraw and ydraw ???? !!!!
; ------------------------
ldx TankNr
lda AngleTable,x
tay
clc
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
lda xtankstableH,x
adc #0
sta xbyte+1
sec
lda ytankstable,x
sbc EndOfTheBarrelY,y
sbc EndOfTheBarrelY,y ; correction of the end of the barrel point (Y)
sta ybyte
mva #0 ybyte+1
lda #$00
sbc #$00
sta ybyte+1
mva #0 drawFunction
mwa xdraw LaserCoordinate
mwa ydraw LaserCoordinate+2