Exemplo de Gerador Randômico em MikroBasic (MicroControladores)

Segue o Exemplo de Código para auxiliar no desenvolvimento do trabalho:


sub procedure DO_RANDOM(dim min as word, dim max as word)
    RANDOM = byte(RANDOM)  ' force bank setting for the following assembly
    do
      asm
         RLF     MAIN_GLOBAL_RANDOM,W
         RLF     MAIN_GLOBAL_RANDOM,W
         BTFSC   MAIN_GLOBAL_RANDOM,4
         XORLW   1
         BTFSC   MAIN_GLOBAL_RANDOM,5
         XORLW   1
         BTFSC   MAIN_GLOBAL_RANDOM,3
         XORLW   1
         MOVWF   MAIN_GLOBAL_RANDOM
      end asm
    loop until ((RANDOM < max) AND (RANDOM > min))
end sub

....

DO_RANDOM(0,6)
colore = RANDOM
...