PIC Vietnam - View Single Post - Code cho pic 16f877a-quét 8 Led đơn

**ladykiller** · 21-11-2011, 01:04 AM

chạy led đơn ở portb tích cực mức thấp tổng hợp 10 kiểu chạy, bạn có thể tham khảo
PROCESSOR 16F877A
#INCLUDE<P16F877A.INC>
DEM1 EQU 20H
DEM2 EQU 21H
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
ORG 0000H
BCF STATUS,6
BSF STATUS,5
CLRF TRISB
BCF STATUS,5
CLRF PORTB
MAIN
CHAY0
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY

CHAY1
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY

MOVLW B'10000000'
MOVWF PORTB
CALL DELAY
MOVLW B'11000000'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTB
CALL DELAY
MOVLW B'11111000'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111000'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTB
CALL DELAY
MOVLW B'11000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY
MOVLW B'11000000'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTB
CALL DELAY
MOVLW B'11111000'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111000'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTB
CALL DELAY
MOVLW B'11000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY

MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000011'
MOVWF PORTB
CALL DELAY
MOVLW B'00000111'
MOVWF PORTB
CALL DELAY
MOVLW B'00001111'
MOVWF PORTB
CALL DELAY
MOVLW B'00011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00001111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000011'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000011'
MOVWF PORTB
CALL DELAY
MOVLW B'00000111'
MOVWF PORTB
CALL DELAY
MOVLW B'00001111'
MOVWF PORTB
CALL DELAY
MOVLW B'00011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00001111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000011'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY

CHAY2

MOVLW B'10101010'
MOVWF PORTB
CALL DELAY
MOVLW B'01010101'
MOVWF PORTB
CALL DELAY
MOVLW B'10101010'
MOVWF PORTB
CALL DELAY
MOVLW B'01010101'
MOVWF PORTB
CALL DELAY
MOVLW B'10101010'
MOVWF PORTB
CALL DELAY
MOVLW B'01010101'
MOVWF PORTB
CALL DELAY
MOVLW B'10101010'
MOVWF PORTB
CALL DELAY
MOVLW B'01010101'
MOVWF PORTB
CALL DELAY
CHAY3

MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY

CHAY4

MOVLW B'10000000'
MOVWF PORTB
CALL DELAY
MOVLW B'01000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00100000'
MOVWF PORTB
CALL DELAY
MOVLW B'00010000'
MOVWF PORTB
CALL DELAY
MOVLW B'00001000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000100'
MOVWF PORTB
CALL DELAY
MOVLW B'00000010'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000010'
MOVWF PORTB
CALL DELAY
MOVLW B'00000100'
MOVWF PORTB
CALL DELAY
MOVLW B'00001000'
MOVWF PORTB
CALL DELAY
MOVLW B'00010000'
MOVWF PORTB
CALL DELAY
MOVLW B'00100000'
MOVWF PORTB
CALL DELAY
MOVLW B'01000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY

CHAY5

MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11100111'
MOVWF PORTB
CALL DELAY
MOVLW B'11000011'
MOVWF PORTB
CALL DELAY
MOVLW B'10000001'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000001'
MOVWF PORTB
CALL DELAY
MOVLW B'11000011'
MOVWF PORTB
CALL DELAY
MOVLW B'11100111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY

CHAY6

MOVLW B'01111110'
MOVWF PORTB
CALL DELAY
MOVLW B'00111100'
MOVWF PORTB
CALL DELAY
MOVLW B'00011000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00011000'
MOVWF PORTB
CALL DELAY
MOVLW B'00111100'
MOVWF PORTB
CALL DELAY
MOVLW B'01111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY

CHAY7

MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'10011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11001111'
MOVWF PORTB
CALL DELAY
MOVLW B'11100111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110011'
MOVWF PORTB
CALL DELAY
MOVLW B'11111001'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111001'
MOVWF PORTB
CALL DELAY
MOVLW B'11110011'
MOVWF PORTB
CALL DELAY
MOVLW B'11100111'
MOVWF PORTB
CALL DELAY
MOVLW B'11001111'
MOVWF PORTB
CALL DELAY
MOVLW B'10011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY

CHAY8
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY

MOVLW B'01111110'
MOVWF PORTB
CALL DELAY
MOVLW B'10111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11011110'
MOVWF PORTB
CALL DELAY
MOVLW B'11101110'
MOVWF PORTB
CALL DELAY
MOVLW B'11110110'
MOVWF PORTB
CALL DELAY
MOVLW B'11111010'
MOVWF PORTB
CALL DELAY
MOVLW B'11111100'
MOVWF PORTB
CALL DELAY

MOVLW B'01111100'
MOVWF PORTB
CALL DELAY
MOVLW B'10111100'
MOVWF PORTB
CALL DELAY
MOVLW B'11011100'
MOVWF PORTB
CALL DELAY
MOVLW B'11101100'
MOVWF PORTB
CALL DELAY
MOVLW B'11110100'
MOVWF PORTB
CALL DELAY
MOVLW B'11111000'
MOVWF PORTB
CALL DELAY

MOVLW B'01111000'
MOVWF PORTB
CALL DELAY
MOVLW B'10111000'
MOVWF PORTB
CALL DELAY
MOVLW B'11011000'
MOVWF PORTB
CALL DELAY
MOVLW B'11101000'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTB
CALL DELAY

MOVLW B'01110000'
MOVWF PORTB
CALL DELAY
MOVLW B'10110000'
MOVWF PORTB
CALL DELAY
MOVLW B'11010000'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTB
CALL DELAY

MOVLW B'01100000'
MOVWF PORTB
CALL DELAY
MOVLW B'10100000'
MOVWF PORTB
CALL DELAY
MOVLW B'11000000'
MOVWF PORTB
CALL DELAY

MOVLW B'01000000'
MOVWF PORTB
CALL DELAY
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY

CHAY9

MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'00000000'
MOVWF PORTB
CALL DELAY
CALL DELAY
MOVLW B'11111111'
MOVWF PORTB
CALL DELAY
CALL DELAY

GOTO MAIN
DELAY
MOVLW D'200'
MOVWF DEM1
LOOP
DECFSZ DEM1
GOTO LOOP1
GOTO THOAT
LOOP1
MOVLW D'250'
MOVWF DEM2
LOOP3
DECFSZ DEM2
GOTO LOOP3
GOTO LOOP
THOAT
NOP
RETURN
RETURN
END

21-11-2011, 01:04 AM	#7
ladykiller Đệ tử 3 túi Tham gia ngày: Nov 2011 Bài gửi: 58 :	chạy led đơn ở portb tích cực mức thấp tổng hợp 10 kiểu chạy, bạn có thể tham khảo PROCESSOR 16F877A #INCLUDE<P16F877A.INC> DEM1 EQU 20H DEM2 EQU 21H __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF ORG 0000H BCF STATUS,6 BSF STATUS,5 CLRF TRISB BCF STATUS,5 CLRF PORTB MAIN CHAY0 MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'10111111' MOVWF PORTB CALL DELAY MOVLW B'11011111' MOVWF PORTB CALL DELAY MOVLW B'11101111' MOVWF PORTB CALL DELAY MOVLW B'11110111' MOVWF PORTB CALL DELAY MOVLW B'11111011' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111011' MOVWF PORTB CALL DELAY MOVLW B'11110111' MOVWF PORTB CALL DELAY MOVLW B'11101111' MOVWF PORTB CALL DELAY MOVLW B'11011111' MOVWF PORTB CALL DELAY MOVLW B'10111111' MOVWF PORTB CALL DELAY MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'10111111' MOVWF PORTB CALL DELAY MOVLW B'11011111' MOVWF PORTB CALL DELAY MOVLW B'11101111' MOVWF PORTB CALL DELAY MOVLW B'11110111' MOVWF PORTB CALL DELAY MOVLW B'11111011' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111011' MOVWF PORTB CALL DELAY MOVLW B'11110111' MOVWF PORTB CALL DELAY MOVLW B'11101111' MOVWF PORTB CALL DELAY MOVLW B'11011111' MOVWF PORTB CALL DELAY MOVLW B'10111111' MOVWF PORTB CALL DELAY CHAY1 MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'11000000' MOVWF PORTB CALL DELAY MOVLW B'11100000' MOVWF PORTB CALL DELAY MOVLW B'11110000' MOVWF PORTB CALL DELAY MOVLW B'11111000' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'11111000' MOVWF PORTB CALL DELAY MOVLW B'11110000' MOVWF PORTB CALL DELAY MOVLW B'11100000' MOVWF PORTB CALL DELAY MOVLW B'11000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'11000000' MOVWF PORTB CALL DELAY MOVLW B'11100000' MOVWF PORTB CALL DELAY MOVLW B'11110000' MOVWF PORTB CALL DELAY MOVLW B'11111000' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'11111000' MOVWF PORTB CALL DELAY MOVLW B'11110000' MOVWF PORTB CALL DELAY MOVLW B'11100000' MOVWF PORTB CALL DELAY MOVLW B'11000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'00000001' MOVWF PORTB CALL DELAY MOVLW B'00000011' MOVWF PORTB CALL DELAY MOVLW B'00000111' MOVWF PORTB CALL DELAY MOVLW B'00001111' MOVWF PORTB CALL DELAY MOVLW B'00011111' MOVWF PORTB CALL DELAY MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'00011111' MOVWF PORTB CALL DELAY MOVLW B'00001111' MOVWF PORTB CALL DELAY MOVLW B'00000111' MOVWF PORTB CALL DELAY MOVLW B'00000011' MOVWF PORTB CALL DELAY MOVLW B'00000001' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'00000001' MOVWF PORTB CALL DELAY MOVLW B'00000011' MOVWF PORTB CALL DELAY MOVLW B'00000111' MOVWF PORTB CALL DELAY MOVLW B'00001111' MOVWF PORTB CALL DELAY MOVLW B'00011111' MOVWF PORTB CALL DELAY MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'00011111' MOVWF PORTB CALL DELAY MOVLW B'00001111' MOVWF PORTB CALL DELAY MOVLW B'00000111' MOVWF PORTB CALL DELAY MOVLW B'00000011' MOVWF PORTB CALL DELAY MOVLW B'00000001' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CHAY2 MOVLW B'10101010' MOVWF PORTB CALL DELAY MOVLW B'01010101' MOVWF PORTB CALL DELAY MOVLW B'10101010' MOVWF PORTB CALL DELAY MOVLW B'01010101' MOVWF PORTB CALL DELAY MOVLW B'10101010' MOVWF PORTB CALL DELAY MOVLW B'01010101' MOVWF PORTB CALL DELAY MOVLW B'10101010' MOVWF PORTB CALL DELAY MOVLW B'01010101' MOVWF PORTB CALL DELAY CHAY3 MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY CHAY4 MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'01000000' MOVWF PORTB CALL DELAY MOVLW B'00100000' MOVWF PORTB CALL DELAY MOVLW B'00010000' MOVWF PORTB CALL DELAY MOVLW B'00001000' MOVWF PORTB CALL DELAY MOVLW B'00000100' MOVWF PORTB CALL DELAY MOVLW B'00000010' MOVWF PORTB CALL DELAY MOVLW B'00000001' MOVWF PORTB CALL DELAY MOVLW B'00000010' MOVWF PORTB CALL DELAY MOVLW B'00000100' MOVWF PORTB CALL DELAY MOVLW B'00001000' MOVWF PORTB CALL DELAY MOVLW B'00010000' MOVWF PORTB CALL DELAY MOVLW B'00100000' MOVWF PORTB CALL DELAY MOVLW B'01000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY CHAY5 MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11100111' MOVWF PORTB CALL DELAY MOVLW B'11000011' MOVWF PORTB CALL DELAY MOVLW B'10000001' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'10000001' MOVWF PORTB CALL DELAY MOVLW B'11000011' MOVWF PORTB CALL DELAY MOVLW B'11100111' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY CHAY6 MOVLW B'01111110' MOVWF PORTB CALL DELAY MOVLW B'00111100' MOVWF PORTB CALL DELAY MOVLW B'00011000' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY MOVLW B'00011000' MOVWF PORTB CALL DELAY MOVLW B'00111100' MOVWF PORTB CALL DELAY MOVLW B'01111110' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY CHAY7 MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'10011111' MOVWF PORTB CALL DELAY MOVLW B'11001111' MOVWF PORTB CALL DELAY MOVLW B'11100111' MOVWF PORTB CALL DELAY MOVLW B'11110011' MOVWF PORTB CALL DELAY MOVLW B'11111001' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'11111001' MOVWF PORTB CALL DELAY MOVLW B'11110011' MOVWF PORTB CALL DELAY MOVLW B'11100111' MOVWF PORTB CALL DELAY MOVLW B'11001111' MOVWF PORTB CALL DELAY MOVLW B'10011111' MOVWF PORTB CALL DELAY MOVLW B'00111111' MOVWF PORTB CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CHAY8 MOVLW B'01111111' MOVWF PORTB CALL DELAY MOVLW B'10111111' MOVWF PORTB CALL DELAY MOVLW B'11011111' MOVWF PORTB CALL DELAY MOVLW B'11101111' MOVWF PORTB CALL DELAY MOVLW B'11110111' MOVWF PORTB CALL DELAY MOVLW B'11111011' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111101' MOVWF PORTB CALL DELAY MOVLW B'11111110' MOVWF PORTB CALL DELAY MOVLW B'01111110' MOVWF PORTB CALL DELAY MOVLW B'10111110' MOVWF PORTB CALL DELAY MOVLW B'11011110' MOVWF PORTB CALL DELAY MOVLW B'11101110' MOVWF PORTB CALL DELAY MOVLW B'11110110' MOVWF PORTB CALL DELAY MOVLW B'11111010' MOVWF PORTB CALL DELAY MOVLW B'11111100' MOVWF PORTB CALL DELAY MOVLW B'01111100' MOVWF PORTB CALL DELAY MOVLW B'10111100' MOVWF PORTB CALL DELAY MOVLW B'11011100' MOVWF PORTB CALL DELAY MOVLW B'11101100' MOVWF PORTB CALL DELAY MOVLW B'11110100' MOVWF PORTB CALL DELAY MOVLW B'11111000' MOVWF PORTB CALL DELAY MOVLW B'01111000' MOVWF PORTB CALL DELAY MOVLW B'10111000' MOVWF PORTB CALL DELAY MOVLW B'11011000' MOVWF PORTB CALL DELAY MOVLW B'11101000' MOVWF PORTB CALL DELAY MOVLW B'11110000' MOVWF PORTB CALL DELAY MOVLW B'01110000' MOVWF PORTB CALL DELAY MOVLW B'10110000' MOVWF PORTB CALL DELAY MOVLW B'11010000' MOVWF PORTB CALL DELAY MOVLW B'11100000' MOVWF PORTB CALL DELAY MOVLW B'01100000' MOVWF PORTB CALL DELAY MOVLW B'10100000' MOVWF PORTB CALL DELAY MOVLW B'11000000' MOVWF PORTB CALL DELAY MOVLW B'01000000' MOVWF PORTB CALL DELAY MOVLW B'10000000' MOVWF PORTB CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CHAY9 MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'00000000' MOVWF PORTB CALL DELAY CALL DELAY MOVLW B'11111111' MOVWF PORTB CALL DELAY CALL DELAY GOTO MAIN DELAY MOVLW D'200' MOVWF DEM1 LOOP DECFSZ DEM1 GOTO LOOP1 GOTO THOAT LOOP1 MOVLW D'250' MOVWF DEM2 LOOP3 DECFSZ DEM2 GOTO LOOP3 GOTO LOOP THOAT NOP RETURN RETURN END