Load_Iscry:
        bsr.w   SingleObjLoad
        bne.s   @No_LoadObj
        move.b  #$8D,(a1)
@No_LoadObj 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
        neg.w   d0
        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
        neg.w   d0
        move.w  d0,$10(a1)      ; загрузить скорость по вертикали
        dbf d2,Load_Iscry       ; создавать X искр
        rts
; ===========================================================================