TẠI SAO doạn chương trình này không thể viết gọn lại

[phamthanhkhuyen]

Đây là đoạn chương trình con nằm trong chương trình ngắt Timer0 ;pic6f877a





;phần khai báo biến
CBLOCK 0X20
;DIGIx : là các con số BCD nén
DIGI1 ;4 BIT CAO =NHIETmax_DONVI 4 BIT THẤP=NHIETdoduoc_DONVI
DIGI2 ;4 BIT CAO =NHIETmax_CHUC 4 BIT THẤP=NHIETdoduoc_CHUC
DIGI3 ;4 BIT CAO =NHIETmax_TRAM 4 BIT THẤP=NHIETdoduoc_TRAM
.......
ENDC

........



;chương trình so sánh khi Nhiệt đo được < Nhiệt max --->on_relay
;khi : Nhiệt đo được >= Nhiệt max --->off_relay


;XAC DINH VI TRI LED TRAM
MOVLW 0X22
MOVWF FSR


SO_SANH

;XAC DINH POINT_OFF TRAM: ;NHIETmax DUOC THIET LAP DO THAO TAC BAN PHIM
MOVLW B'11110000' ;NHIETmax : NAM TRONG 4 BIT CAO
ANDWF INDF, W ;NHIETdoduoc: NAM TRONG 4 BIT THAP
MOVWF POINT_ONOFF ;POINT_ONOFF = NHIETmax
SWAPF POINT_ONOFF, F
;LUU Y :NEU POINT_ONOFF=15 THI XOA
;POINT_ONOFF=<9:0> chỉ =15 khi tắt sự hiển thị
POINT_ONOFF=0
MOVLW 0X0F
XORWF POINT_ONOFF, W
BTFSC STATUS, Z
CLRF POINT_ONOFF

MOVLW B'00001111'
ANDWF INDF, W ;NHIETdoduoc = 4 BIT THAP
SUBWF POINT_ONOFF, W ;POINT_ONOFF - NHIETdoduoc
BTFSS STATUS, C
GOTO OFF_RELAY ;C=0 POINT_ONOFF < NHIETdoduoc
;C=1 POINT_ONOFF >= NHIETdoduoc

BTFSS STATUS, Z ;NEU : NHIETdoduoc = POINT_ONOFF THI Z=1
GOTO ON_RELAY ;POINT_ONOFF > NHIETdoduoc
;THOAT RA TIEP TUC XET LED CAP DUOI


DECF FSR, F
;XAC DINH POINT_OFF CHUC : ;NHIETmax DUOC THIET LAP DO THAO TAC BAN PHIM
MOVLW B'11110000' ;NHIETmax : NAM TRONG 4 BIT CAO
ANDWF INDF, W ;NHIETdoduoc: NAM TRONG 4 BIT THAP
MOVWF POINT_ONOFF ;POINT_ONOFF = NHIETmax
SWAPF POINT_ONOFF, F
;LUU Y :NEU POINT_ONOFF=15 THI XOA--> POINT_ONOFF=0
MOVLW 0X0F
XORWF POINT_ONOFF, W
BTFSC STATUS, Z
CLRF POINT_ONOFF

MOVLW B'00001111'
ANDWF INDF, W ;NHIETdoduoc = 4 BIT THAP
SUBWF POINT_ONOFF, W ;POINT_ONOFF - NHIETdoduoc
BTFSS STATUS, C
GOTO OFF_RELAY ;C=0 POINT_ONOFF < NHIETdoduoc
;C=1 POINT_ONOFF >= NHIETdoduoc

BTFSS STATUS, Z ;NEU : NHIETdoduoc = POINT_ONOFF THI Z=1
GOTO ON_RELAY ;POINT_ONOFF > NHIETdoduoc
;THOAT RA TIEP TUC XET LED CAP DUOI


DECF FSR, F
;XAC DINH POINT_OFF DONVI : ;NHIETmax DUOC THIET LAP DO THAO TAC BAN PHIM
MOVLW B'11110000' ;NHIETmax : NAM TRONG 4 BIT CAO
ANDWF INDF, W ;NHIETdoduoc: NAM TRONG 4 BIT THAP
MOVWF POINT_ONOFF ;POINT_ONOFF = NHIETmax
SWAPF POINT_ONOFF, F
;LUU Y :NEU POINT_ONOFF=15 THI XOA POINT_ONOFF=0
MOVLW 0X0F
XORWF POINT_ONOFF, W
BTFSC STATUS, Z
CLRF POINT_ONOFF

MOVLW B'00001111'
ANDWF INDF, W ;NHIETdoduoc = 4 BIT THAP
SUBWF POINT_ONOFF, W ;POINT_ONOFF - NHIETdoduoc
BTFSS STATUS, C
GOTO OFF_RELAY ;C=0 POINT_ONOFF < NHIETdoduoc
;C=1 POINT_ONOFF >= NHIETdoduoc

BTFSS STATUS, Z ;NEU : NHIETdoduoc = POINT_ONOFF THI Z=1
GOTO ON_RELAY ;POINT_ONOFF > NHIETdoduoc
;THOAT RA TIEP TUC XET LED CAP DUOI



;---------------------------------------
ON_RELAY
....
GOTO EXIT_RELAY
OFF_RELAY
....
EXIT_RELAY RETURN

[phamthanhkhuyen]

tôi viết theo cách này thì chương trình nó không chịu chạy




;XAC DINH VI TRI LED TRAM
MOVLW 0X23
MOVWF FSR
MOVLW .3
MOVWF TEMP

SO_SANH
DECF FSR, F

;XAC DINH POINT_OFF TRAM: ;NHIETmax DUOC THIET LAP DO THAO TAC BAN PHIM
MOVLW B'11110000' ;NHIETmax : NAM TRONG 4 BIT CAO
ANDWF INDF, W ;NHIETdoduoc: NAM TRONG 4 BIT THAP
MOVWF POINT_ONOFF ;POINT_ONOFF = NHIETmax
SWAPF POINT_ONOFF, F
;LUU Y :NEU POINT_ONOFF=15 THI XOA POINT_ONOFF=0
MOVLW 0X0F
XORWF POINT_ONOFF, W
BTFSC STATUS, Z
CLRF POINT_ONOFF

MOVLW B'00001111'
ANDWF INDF, W ;NHIETdoduoc = 4 BIT THAP
SUBWF POINT_ONOFF, W ;POINT_ONOFF - NHIETdoduoc
BTFSS STATUS, C
GOTO OFF_RELAY ;C=0 POINT_ONOFF < NHIETdoduoc
;C=1 POINT_ONOFF >= NHIETdoduoc

BTFSS STATUS, Z ;NEU : NHIETdoduoc = POINT_ONOFF THI Z=1
GOTO ON_RELAY ;POINT_ONOFF > NHIETdoduoc
;THOAT RA TIEP TUC XET LED CAP DUOI

DECFSZ TEMP, F
GOTO SO_SANH

ON_RELAY
....
GOTO EXIT_RELAY
OFF_RELAY
....
EXIT_RELAY RETURN

[namqn]

Hai đoạn code đó về nguyên tắc thì phải chạy giống nhau, trừ khi bạn khai báo biến TEMP không tốt (mang địa chỉ một thanh ghi đặc biệt nào đó, hay trùng với một trong các biến khác) hay còn một lý do nào khác mà tôi chưa biết. Góp ý một chút: viết code toàn bằng chữ in thì sẽ gây khó khăn cho mắt khi đọc code.

Thân,