LIST P=16F628 INDF EQU H'0000'
TMR0 EQU H'0001'
PCL EQU H'0002'
STATUS EQU H'0003'
FSR EQU H'0004'
PORTA EQU H'0005'
PORTB EQU H'0006'
PCLATH EQU H'000A'
INTCON EQU H'000B'
PIR1 EQU H'000C'
TMR1L EQU H'000E'
TMR1H EQU H'000F'
T1CON EQU H'0010'
TMR2 EQU H'0011'
T2CON EQU H'0012'
CCPR1L EQU H'0015'
CCPR1H EQU H'0016'
CCP1CON EQU H'0017'
RCSTA EQU H'0018'
TXREG EQU H'0019'
RCREG EQU H'001A'
CMCON EQU H'001F'
OPTION_REG EQU H'0081'
TRISA EQU H'0085'
TRISB EQU H'0086'
PIE1 EQU H'008C'
PCON EQU H'008E'
PR2 EQU H'0092'
TXSTA EQU H'0098'
SPBRG EQU H'0099'
EEDATA EQU H'009A'
EEADR EQU H'009B'
EECON1 EQU H'009C'
EECON2 EQU H'009D'
VRCON EQU H'009F'
CLRF PORTB
BSF STATUS,5
CLRF TRISB
MOVLW H'FF'
MOVWF TRISA
BCF STATUS,5
BASTMZ
CLRF PORTB
KLD
MOVLW h'10'
MOVWF PORTB
SG
BTFSC PORTA,1
GOTO SL
CALL CSG
SL
BTFSC PORTA,0
GOTO DSG
GOTO CSL
DSG
BTFSC PORTA,3
GOTO DSL
GOTO CSG
DSL
BTFSC PORTA,2
GOTO KLD
GOTO CSL
CLRF PORTB
CSG
MOVLW h'63'
MOVWF PORTB
GOTO SG
CSL
MOVLW h'ac'
MOVWF PORTB
GOTO SG
END