Generador de números pseudoaleatorios en display de 7segmentos

Este proyecto,  desarrollado en PICBASIC PRO  para el micro 16F630, tiene por objeto mostrar en un display de 7 segmentos números pseudoaleatorios de 4 dígitos.
Para ello utilizamos la función RANDOM del compilador, la cual genera números de 16 bits ( 0 - 65635 ). Como disponemos de cuatro dígitos en el display, solo se mostrarán los primeros cuatro dígitos del número generado.

El programa se muestra a continuación:

'**************************************************************** '* Name : rnd00.BAS * '* Author : JLG * '* Notice : Copyright (c) 2015 * '* Device : 16F630 * '* Date : 24/05/2015 * '* Version : 1.0 * '* Notes : * '**************************************************************** @ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF vars: i Var byte r var word digit var byte A var byte D var byte init: TRISA = %1000 ' PORTA output except pin 3 (MCLR) TRISC = 0 ' PORTC output CMCON = 7 ' No comparator Define OSCCAL_1K 1 ' Set OSCCAL for 1K flash DEFINE OSC 4 ' 4 MHz OSC PORTA=0 PORTC=0 mainloop: random r for i= 1 to 100 gosub display_n next i for i= 1 to 20 gosub display_g next i goto mainloop End display_n: D = %01 : DIGIT = r dig 3 : gosub LOOk D = %10 : DIGIT = r dig 2 : gosub LOOk D = %0100 : DIGIT = r dig 1 : gosub LOOk D = %1000 : DIGIT = r dig 0 : gosub LOOk PORTA.5 = 0 Return display_g: DIGIT = 10 D = %01 : gosub LOOk D = %10 : gosub LOOk D = %0100 : gosub LOOk D = %1000 : gosub LOOk PORTA.5 = 0 Return LOOK : PORTC.4 = 0 PORTC.5 = 0 PORTA.4 = 0 PORTA.5 = 0 Lookup DIGIT,[%1000000,%1111001,%0100100,%0110000,%11001,%10010,%00011,%1111000,%00000,%11000,%0111111],A PORTA.0 = A PORTA.1 = A >> 1 PORTA.2 = A >> 2 PORTC.0 = A >> 3 PORTC.1 = A >> 4 PORTC.2 = A >> 5 PORTC.3 = A >> 6 PORTC.4 = D PORTC.5 = D >> 1 PORTA.4 = D >> 2 PORTA.5 = D >> 3 pause 5 RETURN
Como tenemos que multiplexar los dígitos, utilizamos un lazo que muestra el número generado durante unos segundos. Luego mostramos cuatro guiones en el display para indicar que se va a generar un nuevo número.