Lesson 2 - Program

PROGRAM

_RC_OSC EQU H’3FFF’

_WDT_OFF EQU H’3FFB’

STATUS EQU 03h

TRISA EQU 85h

PORTA EQU 05h

TRISB EQU 86h

PORTB EQU 06h

__CONFIG _WDT_OFF & _RC_OSC

Org 00h

Bsf STATUS, 5

Movlw 1Fh

Movwf TRISA

Movlw 00h

Movwf TRISB

Bcf STATUS, 5

Start

Btfsc PORTA, 0

Call F1

Btfsc PORTA, 1

Call F2

Btfsc PORTA, 2

Call F3

Btfsc PORTA, 3

Call F4

Btfsc PORTA, 4

Call F5

Btfsc PORTA, 5

Call F6

Btfsc PORTA, 6

Call F7

Btfsc PORTA, 7

Call F8

Goto Start

F1

Movlw b’11111111’

Movwf PORTB

Goto Start

F2

Movlw b’10101010’

Movwf PORTB

Goto Start

F3

Movlw b’01010101’

Movwf PORTB

Goto Start

F4

Movlw b’11001100’

Movwf PORTB

Goto Start

F5

Movlw b’00110011’

Movwf PORTB

F6

Movlw b’11110000’

Movwf PORTB

F7

Movlw b’00001111’

Movwf PORTB

F8

Movlw b’11000111’

Movwf PORTB

Goto Start

End