ObjSR_SG_DoMap:
        lea Scalers+4.w,a1
        moveq   #16-1,d2

.loop       jsr RandomNumber.w
        andi.w  #$7F0F,d0
        move.w  d0,(a1)+

        jsr RandomNumber.w
        andi.w  #$60FF,d0
        move.w  d0,d1
        andi.w  #$6000,d1
        cmp.w   #$6000,d1
        bne.s   .ok
        bclr    #13,d0
.ok     move.w  d0,(a1)+

        jsr RandomNumber.w
        andi.w  #$007F,d0
        move.w  d0,(a1)+
        dbf d2,.loop