;PROGRAM-17) 8-bit’lik sayıların çıkarılmasına örnek program ;(büyük sayıdan küçük sayıyı çıkarma). PORTB saklayıcısı ;içerisindeki h’5A’ sayısından W saklayıcı içerisindeki h’53’ ;sayısını çıkarır, sonucu PORTB’ye bağlı LED’lerde gösteriri. ;Çıkarma sonucunun negatif veya pozitif olduğunu RA3’e bağlı LED’de gösterir. ;===PROG17.ASM====17/05/2005================================ LIST P=16F628A INCLUDE "P16F628A.INC" __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _BODEN_OFF & _LVP_OFF & _DATA_CP_OFF & _CP_OFF ;----------------------------------------------------------- ORG h'00' CLRF PORTB ;PORTB'deki LED'leri söndür CLRF PORTA ;PORTA'daki LED'leri söndür BANKSEL TRISB ;BANK1'e geç MOVLW b'11110111' ;PORTA.3 çıkış MOVWF TRISA CLRF TRISB ;PORTB tüm uçlar çıkış BANKSEL PORTB ;BANK0'a geç MOVLW h'5A' ;W ? h’5A’ MOVWF PORTB ;PORTB ? W MOVLW h'53' ;W ? h’53’ SUBWF PORTB, F ;PORTB ? PORTB - W BTFSC STATUS,0 ;STATUS C=1 mi? BSF PORTA,3 ;Evet, çıkarma sonucu pozitif DONGU GOTO DONGU END ;----------------------------------------------------------