$regfile = "m32def.dat"
$crystal = 16000000
$romstart = &H0000
Config Porta = Input
Config Portd = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Disable Interrupts
Dim A As Byte
Do
Fm:
A.0 = Pina.0
A.1 = Pina.1
A.2 = Pina.2
A.3 = Pina.3
A.4 = Pina.4
A.5 = Pina.5
A.6 = Pina.6
A.7 = Pina.7
Select Case A
Case &B00000001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00000011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00000101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00000111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00001000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B00001100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B00010000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B00010010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B00100001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00100011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00100101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00100111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00101000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B00101001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00101011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00101100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B00101101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00110000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B00110001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00110010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B00110011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00110101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00110110
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00110111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111000
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111100
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111110
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B00111111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B01000001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B01000011
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01000101
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01000110
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01000111
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01001000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01001001
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01001010
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01001011
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01001100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01001101
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01001110
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01001111
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010001
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010011
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010100
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010101
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010110
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01010111
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011001
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011011
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011100
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011101
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011110
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01011111
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01100001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B01100111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B01101000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01101100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01110000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B01110010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B10000001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B10000011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B10000101
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10000111
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001001
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001010
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001011
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001101
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001110
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10001111
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10010000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B10010001
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10010010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B10010011
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10010100
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B10010101
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10010110
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10010111
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B01001100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011001
Pwm1a = 1023
Pwm1b = 0
Goto Fm :
Case &B10011010
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011011
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011101
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011110
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10011111
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10100001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B10101000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10101100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B10110000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B10110010
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B11000001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B11001000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B11001100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B11010000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B11010010
Pwm1a = 0
Pwm1b = 1023
Goto Fm :
Case &B11100001
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B11100011
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B11100101
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B11100111
Pwm1a = 1023
Pwm1b = 1023
Goto Fm:
Case &B11101000
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B11101100
Pwm1a = 1023
Pwm1b = 0
Goto Fm:
Case &B11110000
Pwm1a = 0
Pwm1b = 1023
Goto Fm:
Case &B11110010
Pwm1a = 0
Pwm1b = 1023
Loop
End Select
End