Guest User

Untitled

a guest
Oct 21st, 2017
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         lea ($FF0000).l,a1
  2. Load_Iscry  jsr (RandomNumber).l    ; записать случайное число
  3.         moveq   #0,d1
  4.         move.w  d0,d1
  5.         move.l  d1,d0
  6.         divu.w  #$E3,d0         ; поделить на $E3
  7.         add.w   #$140,d0        ; прибавить $140 или сделать число в диапозоне $140-$260
  8.         move.w  d0,$12(a1)      ; загрузить скорость по вертикали
  9.         jsr (RandomNumber).l    ; записать случайное число
  10.         moveq   #0,d1
  11.         move.w  d0,d1
  12.         move.l  d1,d0
  13.         divu.w  #$61,d0         ; поделить на $E3
  14.         add.w   #$160,d0        ; прибавить $140 или сделать число в диапозоне $140-$260
  15.         move.w  d0,$10(a1)      ; загрузить скорость по вертикали
  16.         out 'X-Speed '
  17.         outw    $10(a1)
  18.         break
  19.         out 'Y-Speed '
  20.         outw    $12(a1)
  21.         rts
Add Comment
Please, Sign In to add comment