;PROGRAM-18) 8-bit’lik sayıların çıkarılmasına örnek program 
;(küçük sayıdan büyük sayıyı çıkarma). PORTB saklayıcısı içerisindeki 
;h’52’ sayısından W saklayıcısı içerisindeki h’53’ sayısını çıkaran, 
;sonucu PORTB’ye bağlı LED’lerde gösteren program. 

;===PROG18.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ç
BASLA
		MOVLW	h'53'		;W ? h’5A’
		MOVWF	PORTB		;PORTB ? W
		MOVLW	h'5A'		;W ? h’53’
		SUBWF	PORTB, F		;PORTB ? PORTB - W
		COMF	PORTB, F		;PORTB'yi tersle
		INCF	PORTB, F		;PORTB'ye 1 ekle
		BTFSC	STATUS,0		;STATUS C=1 mi?
		BSF	PORTA,3		;Evet, çıkarma sonucu pozitif
DONGU
		GOTO	DONGU
		END
;-----------------------------------------------------------
