Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- lea ($FF0000).l,a1
- Load_Iscry jsr (RandomNumber).l ; записать случайное число
- moveq #0,d1
- move.w d0,d1
- move.l d1,d0
- divu.w #$E3,d0 ; поделить на $E3
- add.w #$140,d0 ; прибавить $140 или сделать число в диапозоне $140-$260
- move.w d0,$12(a1) ; загрузить скорость по вертикали
- jsr (RandomNumber).l ; записать случайное число
- moveq #0,d1
- move.w d0,d1
- move.l d1,d0
- divu.w #$61,d0 ; поделить на $E3
- add.w #$160,d0 ; прибавить $140 или сделать число в диапозоне $140-$260
- move.w d0,$10(a1) ; загрузить скорость по вертикали
- out 'X-Speed '
- outw $10(a1)
- break
- out 'Y-Speed '
- outw $12(a1)
- rts
Add Comment
Please, Sign In to add comment