Name Roulette;
Partno XXXXX;
Date 03/26/96;
Revision 01;
Designer Chip Willman;
Company Logical Devices Inc;
Assembly XXXXX;
Location XXXXX;
Device F1500;
/******************************************************************/
/* This is an examples of a game roulette */
/* In this examples the ATF1500 Controls the Flashing lights of */
/* the balls spinning around. It also controls the PAYOFF */
/* Ammount (7 segment LED Numerial Display). To simulate the */
/* clock slowing down we implimented */
/* A non-linear clock with a reset button (start the game) and */
/* spins the wheel. It should look kinda cool. ;) */
/* */
/* */
/******************************************************************/
/* Allowable Target Device Types: ATMEL ATF1500 */
/******************************************************************/
/**
Inputs:
The following inputs are needed.
Clock
Start
Done
**/
Pin 43 = CLK ; /* Global Clock for all registers */
Pin 2 = DONE ; /* Signal to tell the Chip to stop
Spinning around */
Pin 1 = !START ; /* Start the Simulation */
Pin 44 = !DEMO ; /* Demo Option */
/**
Outputs:
The following outputs are needed.
7 bit segment LED display
0
-----
| |
1 | | 2
-----
| 3 |
4 | | 5
-----
6
20 bit wheel (20 LED displays)
1 2 3
* * *
20* * 4
19*
18* * 5
17* * 6
16* * 7
15 * * 8
* 9
14 * * 10
* * *
13 12 11
RUN
DEMOOUT
**/
Pin [12,40..36] = ![L0..5] ; /* LED's 1-6 */
Pin [34,33,5,13] = ![L6..9] ; /* LED's 7-10 */
Pin [14,32,31,29,28,27] = ![L10..15] ; /* LED's 11-16 */
Pin [26..24,16] = ![L16..19] ; /* LED's 17-20 */
Pin [41,21] = [P0..1] ; /* Segment Display */
Pin [20,19,18,11] = [P2..5] ; /* Segment Display */
Pin 17 = P6 ; /* Segment Display */
Pin 7 = !RUN ; /* Run Simulation */
Pin 6 = FLASH;
/** nodes **/
pinnode = DEMOOUT ; /* Flash everthing Cool like */
pinnode = roll;
/** Declarations and Intermediate Variable Definitions **/
FIELD Wheel = [L0..19];
FIELD Payoff = [P0..6];
/** Logic Equations **/
$DEFINE S0 'h'00001
$DEFINE S1 'h'00002
$DEFINE S2 'h'00004
$DEFINE S3 'h'00008
$DEFINE S4 'h'00010
$define S5 'h'00020
$define S6 'h'00040
$define S7 'h'00080
$define S8 'h'00100
$define S9 'h'00200
$define S10 'h'00400
$define S11 'h'00800
$define S12 'h'01000
$define S13 'h'02000
$define S14 'h'04000
$define S15 'h'08000
$define S16 'h'10000
$define S17 'h'20000
$define S18 'h'40000
$define S19 'h'80000
Sequence Wheel {
PRESENT 'h'00000
NEXT S1;
PRESENT S0
If roll NEXT S1;
IF !RUN & !DEMOOUT NEXT S0;
IF DEMOOUT & !roll NEXT S7;
Present S1
IF roll NEXT S2;
IF !roll & !DEMOOUT NEXT S1;
IF DEMOOUT & !roll NEXT S8;
Present S2
IF roll NEXT S3;
IF !roll & !DEMOOUT NEXT S2;
IF DEMOOUT & !roll NEXT S9;
Present S3
IF roll NEXT S4;
IF !roll & !DEMOOUT NEXT S3;
IF DEMOOUT & !roll NEXT S10;
Present S4
IF roll NEXT S5;
IF !roll & !DEMOOUT NEXT S4;
IF DEMOOUT & !roll NEXT S11;
Present S5
IF roll NEXT S6;
IF !roll & !DEMOOUT NEXT S5;
IF DEMOOUT & !roll NEXT S12;
Present S6
IF !roll & !DEMOOUT NEXT S6;
IF DEMOOUT & !roll NEXT S13;
IF roll NEXT S7;
Present S7
IF !roll & !DEMOOUT NEXT S7;
IF DEMOOUT & !roll NEXT S14;
IF roll NEXT S8;
Present S8
IF !roll & !DEMOOUT NEXT S8;
IF DEMOOUT & !roll NEXT S15;
IF roll NEXT S9;
Present S9
IF !roll & !DEMOOUT NEXT S9;
IF DEMOOUT & !roll NEXT S16;
IF roll NEXT S10;
Present S10
IF !roll & !DEMOOUT NEXT S10;
IF DEMOOUT & !roll NEXT S17;
IF roll NEXT S11;
Present S11
IF !roll & !DEMOOUT NEXT S12;
IF DEMOOUT & !roll NEXT S18;
IF roll NEXT S12;
Present S12
IF !roll & !DEMOOUT NEXT S12;
IF DEMOOUT & !roll NEXT S19;
IF roll NEXT S13;
Present S13
IF !roll & !DEMOOUT NEXT S13;
IF DEMOOUT & !roll NEXT S0;
IF roll NEXT S14;
Present S14
IF !roll & !DEMOOUT NEXT S14;
IF DEMOOUT & !roll NEXT S1;
IF roll NEXT S15;
Present S15
IF !roll & !DEMOOUT NEXT S15;
IF DEMOOUT & !roll NEXT S2;
IF roll NEXT S16;
Present S16
IF !roll & !DEMOOUT NEXT S16;
IF DEMOOUT & !roll NEXT S3;
IF roll NEXT S17;
Present S17
IF !roll & !DEMOOUT NEXT S17;
IF DEMOOUT & !roll NEXT S4;
IF roll NEXT S18;
Present S18
IF !roll & !DEMOOUT NEXT S18;
IF DEMOOUT & !roll NEXT S5;
IF roll NEXT S19;
Present S19
IF !roll & !DEMOOUT NEXT S19;
IF DEMOOUT & !roll NEXT S6;
IF roll NEXT S0;
}
P0 = (L2 # L8 # L12 # L16 # L6 # L18 # L4)&!DEMOOUT
# (DEMOOUT & L0)
# (DEMOOUT & L8);
P1 = (L0 # L10 # L14 # L6 # L18 # L4)&!DEMOOUT
# (DEMOOUT & L7);
P2 = (!L6 & !L18 & !DEMOOUT)
# (DEMOOUT & L1)
# (DEMOOUT & L9);
P3 = (L2 # L8 # L12 # L16 # L0 # L10 # L14 # L6 # L18 # L4)&!DEMOOUT
# (DEMOOUT & L2)
# (DEMOOUT & L6);
P4 = (L2 # L8 # L12 # L16 # L6 # L18)&!DEMOOUT
# (DEMOOUT & L3);
P5 = (!L2 & !L8 & !L12 & !L16 & !DEMOOUT)
# (DEMOOUT & L5);
P6 = (L2 # L8 # L12 # L16 # L6 # L18 # L4)& !DEMOOUT
# (DEMOOUT & L4);
roll = START # roll & !DONE;
Wheel.ck = CLK;
Payoff.ck = CLK;
DEMOOUT.ck = CLK;
DEMOOUT.d = DEMO # DEMOOUT & !START & !roll # Wheel:'h'00000;
RUN = !START & roll # RUN & !DONE;
FLASH.d = !FLASH & !DEMOOUT & !roll;
FLASH.ck = CLK;