;PIC 16F627
TRISA equ 85h
TRISB equ 86h
PORTA equ 05h
PORTB equ 06h
STATUS equ 03h
RP0 equ 05h
TMP0 equ 20h
TMP1 equ 21h
TMP2 equ 22h
org0
	BSF STATUS,RP0
	MOVLW B'00000000'
	MOVWF TRISA
	MOVLW B'00000000'
	MOVWF TRISB
	BCF STATUS,RP0
;------------------------------	
	MOVLW D'30' 
        MOVWF TMP2
        MOVLW D'30'
        MOVWF TMP1
        MOVLW D'30'
        MOVWF TMP0
        DECFSZ TMP0,F
        GOTO $-1
        DECFSZ TMP1,F
        GOTO $-5
        DECFSZ TMP2,F
        GOTO $-9
;------------------------------
FIRST	MOVLW B'00000100'	
	MOVWF PORTB
;
	MOVLW D'30' 
        MOVWF TMP2
        MOVLW D'30'
        MOVWF TMP1
        MOVLW D'30'
        MOVWF TMP0
        DECFSZ TMP0,F
        GOTO $-1
        DECFSZ TMP1,F
        GOTO $-5
        DECFSZ TMP2,F
        GOTO $-9	
;       
	MOVLW B'00000000'	
	MOVWF PORTB

;
	MOVLW D'30' 
        MOVWF TMP2
        MOVLW D'30'
        MOVWF TMP1
        MOVLW D'30'
        MOVWF TMP0
        DECFSZ TMP0,F
        GOTO $-1
        DECFSZ TMP1,F
        GOTO $-5
        DECFSZ TMP2,F
        GOTO $-9
	GOTO FIRST
;
END