ASSEMBLY ACİL YARDIMM

quote:

Orijinalden alıntı: lordsansar

ARKADASLAR kahve makınesıne benzer bır aletın para ustu hesaplayan kısmında takıldım kucuk bır parcasını buraya aktardım. atılan parayı urun fıyatından cıkartıp aradakı farka gore para ustu veren.(1lıra yada 50 kurus) tam sonuc alamıyorum sonuc hatalı cıkıyor anlayan bırı yardımcı olsun lutfen.


BTFSS STATUS,Z
BTFSC STATUS,0 : bu kısım fark ın 1lıraya esıt mı buyuk mu yada kucuk mu olduguna bakıyor


LIST P=16F877
INCLUDE "P16F877.INC"


FARK EQU h'29'
_1_LIRA EQU h'30'
VERILECEK_50_KURUS EQU h'54'
_50_KURUS EQU h'55'
VERILECEK_1_LIRA EQU h'42'
URUN_BEDELI EQU h'50'
ATILACAK_TOPLAM_PARA EQU h'51'

CLRF h'29'
CLRF h'30'
CLRF h'42'
CLRF h'50'
CLRF h'51'
CLRF h'54'
CLRF h'55'

MOVLW d'50'
MOVWF _50_KURUS

MOVLW d'100'
MOVWF _1_LIRA

MOVLW d'60'
MOVWF URUN_BEDELI
MOVLW d'250'
MOVWF ATILACAK_TOPLAM_PARA

BANKSEL TRISB
MOVLW h'06'
MOVWF ADCON1
MOVLW h'00'
MOVWF TRISA
MOVWF TRISB
MOVWF TRISC
MOVWF TRISD
BANKSEL PORTB


MOVF URUN_BEDELI,W
SUBWF ATILACAK_TOPLAM_PARA,W
MOVWF FARK

IF1
MOVLW _1_LIRA
SUBWF FARK,W
BTFSS STATUS,Z
BTFSC STATUS,0
GOTO ISLEM
GOTO IF2
ISLEM
INCF VERILECEK_1_LIRA,F
MOVLW _1_LIRA
SUBWF FARK,F
GOTO IF1

IF2
MOVLW _50_KURUS
SUBWF FARK,W
BTFSS STATUS,Z
BTFSC STATUS,0
GOTO ISLEM2
GOTO GOSTER

ISLEM2
INCF VERILECEK_50_KURUS,F
MOVLW _50_KURUS
SUBWF FARK,F
GOTO IF2

GOSTER
MOVF FARK,W
MOVWF PORTB
MOVF VERILECEK_1_LIRA,W
MOVWF PORTC
MOVF VERILECEK_50_KURUS,W
MOVWF PORTD
GOTO SON


SON
GOTO SON
END