Ðăng Nhập

View Full Version : mih dang rat dien dau ve ngon ngu asm cho den giao thong nga 4 co ai giup mih khong


tuanvn
06-11-2011, 12:48 PM
truoc het den xanh la 10s vang la 2s con lai den do 12s
minh da vik dc 1 tru nhug con lai trụ thứ 2 vik ko dc, minh k bik làm sao, mình chỉ vik dc xanh 1 sang 10s xong nhay qua vàng 1 và nhay qua đỏ, minh khong bik làm sao vik khi xanh 1 sang va dỏ 2 cung sang sau do da vang 1 sáng và dò 2 luc nay cung sang, minh chi can ai chi minh nhieu do roi may cai con lai minh tu vik
day la code cua minh :
PROCESSOR 16F877A
#INCLUDE <P16F877A.INC>
__CONFIG _CP_OFF&_WDT_OFF&_BODEN_OFF&_PWRTE_ON&_XT_OSC&_WRT _OFF&_LVP_OFF&_CPD_OFF
DEM1 EQU 20H
TAM1 EQU 21H
DONVI EQU 22H
CHUC EQU 23H
ORG 0000H
BCF STATUS,6
BSF STATUS,5
CLRF TRISB
BCF TRISA,0
BCF TRISA,1
BCF TRISD,0
BCF TRISD,1
BCF TRISD,2
BCF STATUS,5
CLRF PORTB
CLRF PORTA
CLRF PORTD
MAIN
DENXANH
MOVLW D'1'
MOVWF CHUC
MOVLW D'0'
MOVWF DONVI
BcF PORTD,0
BsF PORTD,1
BsF PORTD,2
GIAY1
MOVLW D'50'
MOVWF TAM1
XULY1
BCF PORTA,1
BSF PORTA,0
MOVF DONVI,0
CALL BANG
MOVWF PORTB
CALL DELAY
BCF PORTA,0
BSF PORTA,1
MOVF CHUC,0
CALL BANG
MOVWF PORTB
CALL DELAY
DECF TAM1,1
MOVLW D'0'
XORWF TAM1,0
BTFSS STATUS,2
GOTO XULY1
MOVLW D'0'
XORWF DONVI,0
BTFSS STATUS,2
GOTO GIAMDV1;KHAC 0
GOTO KTCHUC1;=0
KTCHUC1
MOVLW D'0'
XORWF CHUC,0
BTFSS STATUS,2
GOTO GIAMDV2;KHAC0
GOTO DENVANG;=0
GIAMDV2
MOVLW D'9'
MOVWF DONVI
DECF CHUC
GOTO GIAY1
GIAMDV1
DECF DONVI
GOTO GIAY1
DENVANG
MOVLW D'0'
MOVWF CHUC
MOVLW D'2'
MOVWF DONVI
BcF PORTD,1
BsF PORTD,0
BsF PORTD,2
GIAY2
MOVLW D'50'
MOVWF TAM1
XULY2
BCF PORTA,1
BSF PORTA,0
MOVF DONVI,0
CALL BANG
MOVWF PORTB
CALL DELAY
BCF PORTA,0
BSF PORTA,1
MOVF CHUC,0
CALL BANG
MOVWF PORTB
CALL DELAY
DECF TAM1,1
MOVLW D'0'
XORWF TAM1,0
BTFSS STATUS,2
GOTO XULY2
MOVLW D'0'
XORWF DONVI,0
BTFSS STATUS,2
GOTO GIAMDV4;KHAC 0
GOTO DENDO
GIAMDV4
DECF DONVI
GOTO GIAY2
DENDO
MOVLW D'1'
MOVWF CHUC
MOVLW D'2'
MOVWF DONVI
BCF PORTD,2
BSF PORTD,0
BSF PORTD,1
GIAY5
MOVLW D'50'
MOVWF TAM1
XULY5
BCF PORTA,1
BSF PORTA,0
MOVF DONVI,0
CALL BANG
MOVWF PORTB
CALL DELAY
BCF PORTA,0
BSF PORTA,1
MOVF CHUC,0
CALL BANG
MOVWF PORTB
CALL DELAY
DECF TAM1,1
MOVLW D'0'
XORWF TAM1,0
BTFSS STATUS,2
GOTO XULY5
MOVLW D'0'
XORWF DONVI,0
BTFSS STATUS,2
GOTO GIAMDV5;KHAC 0
GOTO KTCHUC5;=0
KTCHUC5
MOVLW D'0'
XORWF CHUC,0
BTFSS STATUS,2
GOTO GIAMDV6;KHAC0
GOTO DENXANH;=0
GIAMDV6
MOVLW D'9'
MOVWF DONVI
DECF CHUC
GOTO GIAY5
GIAMDV5
DECF DONVI
GOTO GIAY5
BANG
ADDWF PCL,1
RETLW B'11000000'
RETLW B'11111001'
RETLW B'10100100'
RETLW B'10110000'
RETLW B'10011001'
RETLW B'10010010'
RETLW B'10000010'
RETLW B'11111000'
RETLW B'10000000'
RETLW B'10010000'
DELAY
BSF STATUS,5
BCF STATUS,6
BCF OPTION_REG,3
BCF OPTION_REG,2
BCF OPTION_REG,1
BSF OPTION_REG,0
BCF STATUS,5
MOVLW D'10'
MOVWF DEM1
BATDAU
MOVLW D'5'
MOVWF TMR0
BSF STATUS,5
BCF OPTION_REG,5
BCF STATUS,5
LOOP
BTFSS INTCON,2
GOTO LOOP
BCF INTCON,2
DECFSZ DEM1,1
GOTO BATDAU
RETURN
END
duoi day la file protus mo phong

tuanvn
07-11-2011, 12:38 AM
không co pro nao giup mìh sao