Last active
October 20, 2017 13:24
-
-
Save bulentsiyah/86ec93c753a2eb6afdba7d2036ffc21f to your computer and use it in GitHub Desktop.
Yapay Sinir Ağı ile XOR Kapısı (PIC Assembly) -- http://www.bulentsiyah.com/yapay-sinir-agi-ile-xor-kapisi-pic-assembly/
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;====xorkps.ASM========BULENTSİYAH=== | |
LIST P=16F84 | |
INCLUDE "P16F84.INC" | |
SINIRA EQU h'0C' ; | |
SINIRB EQU h'0D' ; | |
SINIRC EQU h'0E' ; | |
SINIRD EQU h'0F' ; | |
SINIRE EQU h'10' ; | |
SINIRF EQU h'11' ; | |
SINIRBİAS EQU h'12' ; | |
HSONUC EQU h'13' ; | |
OGRENME EQU h'14' ; | |
WAC EQU h'15' ; | |
WAD EQU h'16' ; | |
WAE EQU h'17' ; | |
WBC EQU h'18' ; | |
WBD EQU h'19' ; | |
WBE EQU h'1A' ; | |
WCF EQU h'1B' ; | |
WDF EQU h'1C' ; | |
WEF EQU h'1D' ; | |
WBİAS EQU h'1E' ; | |
BCARPAN EQU h'1F' ; | |
ICARPAN EQU h'20' ; | |
WTOPLA EQU h'21' | |
SAYAC EQU h'22' | |
WTASMA EQU h'23' | |
WAZALTBIR EQU h'24' | |
WAZALTIKI EQU h'25' | |
AKTIVDEGER EQU h'26' | |
RASTGELE EQU h'27' | |
RASTAGIRLIK EQU h'28' | |
EGITIMSAYAC EQU h'29' | |
WAC00 EQU h'2A' ; | |
WAD00 EQU h'2B' ; | |
WAE00 EQU h'2C' ; | |
WBC00 EQU h'2D' ; | |
WBD00 EQU h'2E' ; | |
WBE00 EQU h'2F' ; | |
WCF00 EQU h'30' ; | |
WDF00 EQU h'31' ; | |
WEF00 EQU h'32' ; | |
WBİAS00 EQU h'33' | |
WAC01 EQU h'34' ; | |
WAD01 EQU h'35' ; | |
WAE01 EQU h'36' ; | |
WBC01 EQU h'37' ; | |
WBD01 EQU h'38' ; | |
WBE01 EQU h'39' ; | |
WCF01 EQU h'3A' ; | |
WDF01 EQU h'3B' ; | |
WEF01 EQU h'3C' ; | |
WBİAS01 EQU h'3D' ; | |
WAC11 EQU h'3E' ; | |
WAD11 EQU h'3F' ; | |
WAE11 EQU h'40' ; | |
WBC11 EQU h'41' ; | |
WBD11 EQU h'42' ; | |
WBE11 EQU h'43' ; | |
WCF11 EQU h'44' ; | |
WDF11 EQU h'45' ; | |
WEF11 EQU h'46' ; | |
WBİAS11 EQU h'47' ; | |
SONUC00 EQU h'48' ; | |
SONUC01 EQU h'49' ; | |
SONUC11 EQU h'4A' ; | |
SONUCKNT EQU h'4B' ; | |
CLRW | |
MOVWF PORTA | |
MOVWF PORTB | |
BSF STATUS,5 | |
CLRW | |
MOVWF TRISB | |
MOVLW h'FF' | |
MOVWF TRISA | |
BCF STATUS,5 | |
;**************************** | |
DEGERATAMA | |
MOVLW h'01' | |
MOVWF SINIRBİAS | |
MOVLW h'02' | |
MOVWF OGRENME | |
MOVLW h'00' | |
MOVWF RASTGELE | |
MOVLW h'00' | |
MOVWF RASTAGIRLIK | |
MOVLW h'00' | |
MOVWF EGITIMSAYAC | |
;**************************** | |
AGIRLIKLARIDISARIDANAL | |
BTFSS PORTA,0 | |
GOTO AGIRLIKLARIDISARIDANAL | |
AGIRLIKLARIDISARIDANAL2 | |
INCF RASTGELE,F | |
MOVF RASTGELE,W | |
MOVWF PORTB | |
BTFSC PORTA,0 | |
GOTO AGIRLIKLARIDISARIDANAL2 | |
MOVLW H'07' | |
ANDWF RASTGELE,F | |
INCF RASTGELE,F | |
INCF RASTGELE,F | |
MOVF RASTGELE,W | |
MOVWF PORTB | |
MOVLW H'01' | |
ADDWF RASTAGIRLIK,F | |
MOVLW H'0B' | |
SUBWF RASTAGIRLIK,W | |
BTFSC STATUS,0 | |
GOTO BASLAMAKICINTIKLA | |
GOTO DEGERTABLO | |
TABLODONUSU | |
GOTO AGIRLIKLARIDISARIDANAL | |
DEGERTABLO | |
MOVF RASTAGIRLIK,W | |
ADDWF PCL,F | |
GOTO TABLODONUSU | |
GOTO DEGERWAC | |
GOTO DEGERWAD | |
GOTO DEGERWAE | |
GOTO DEGERWBC | |
GOTO DEGERWBD | |
GOTO DEGERWBE | |
GOTO DEGERWCF | |
GOTO DEGERWDF | |
GOTO DEGERWEF | |
GOTO DEGERWBİAS | |
DEGERWAC | |
MOVF RASTGELE,W | |
MOVWF WAC | |
MOVWF WAC00 | |
MOVWF WAC01 | |
MOVWF WAC11 | |
GOTO TABLODONUSU | |
DEGERWAD | |
MOVF RASTGELE,W | |
MOVWF WAD | |
MOVWF WAD00 | |
MOVWF WAD01 | |
MOVWF WAD11 | |
GOTO TABLODONUSU | |
DEGERWAE | |
MOVF RASTGELE,W | |
MOVWF WAE | |
MOVWF WAE00 | |
MOVWF WAE01 | |
MOVWF WAE11 | |
GOTO TABLODONUSU | |
DEGERWBC | |
MOVF RASTGELE,W | |
MOVWF WBC | |
MOVWF WBC00 | |
MOVWF WBC01 | |
MOVWF WBC11 | |
GOTO TABLODONUSU | |
DEGERWBD | |
MOVF RASTGELE,W | |
MOVWF WBD | |
MOVWF WBD00 | |
MOVWF WBD01 | |
MOVWF WBD11 | |
GOTO TABLODONUSU | |
DEGERWBE | |
MOVF RASTGELE,W | |
MOVWF WBE | |
MOVWF WBE00 | |
MOVWF WBE01 | |
MOVWF WBE11 | |
GOTO TABLODONUSU | |
DEGERWCF | |
MOVF RASTGELE,W | |
MOVWF WCF | |
MOVWF WCF00 | |
MOVWF WCF01 | |
MOVWF WCF11 | |
GOTO TABLODONUSU | |
DEGERWDF | |
MOVF RASTGELE,W | |
MOVWF WDF | |
MOVWF WDF00 | |
MOVWF WDF01 | |
MOVWF WDF11 | |
GOTO TABLODONUSU | |
DEGERWEF | |
MOVF RASTGELE,W | |
MOVWF WEF | |
MOVWF WEF00 | |
MOVWF WEF01 | |
MOVWF WEF11 | |
GOTO TABLODONUSU | |
DEGERWBİAS | |
MOVF RASTGELE,W | |
MOVWF WBİAS | |
MOVWF WBİAS00 | |
MOVWF WBİAS01 | |
MOVWF WBİAS11 | |
GOTO TABLODONUSU | |
;**************************** | |
BASLAMAKICINTIKLA | |
MOVLW H'0F' | |
MOVWF PORTB | |
BTFSS PORTA,1 | |
GOTO BASLAMAKICINTIKLA | |
GOTO EGITIMDEGERVER | |
;**************************** | |
EGITIMDEGERVER | |
MOVLW H'01' | |
ADDWF EGITIMSAYAC,F | |
MOVLW H'04' | |
SUBWF EGITIMSAYAC,W | |
BTFSC STATUS,0 | |
GOTO SONUCGOSTER | |
GOTO EGITIMTABLO | |
EGITIMTABLODONUSU | |
GOTO EGITIMDEGERVER | |
EGITIMTABLO | |
MOVF EGITIMSAYAC,W | |
ADDWF PCL,F | |
GOTO EGITIMTABLODONUSU | |
GOTO EGITSIFIRSIFIR | |
GOTO EGITSIFIRBIR | |
GOTO EGITBIRBIR | |
EGITSIFIRSIFIR | |
MOVLW h'00' | |
MOVWF SINIRA | |
MOVLW h'00' | |
MOVWF SINIRB | |
MOVLW h'00' | |
MOVWF HSONUC | |
MOVF WAC00,W | |
MOVWF WAC | |
MOVF WAD00,W | |
MOVWF WAD | |
MOVF WAE00,W | |
MOVWF WAE | |
MOVF WBC00,W | |
MOVWF WBC | |
MOVF WBD00,W | |
MOVWF WBD | |
MOVF WBE00,W | |
MOVWF WBE | |
MOVF WCF00,W | |
MOVWF WCF | |
MOVF WDF00,W | |
MOVWF WDF | |
MOVF WEF00,W | |
MOVWF WEF | |
MOVF WBİAS00,W | |
MOVWF WBİAS | |
MOVLW h'00' | |
MOVWF SAYAC | |
GOTO EGITIM | |
EGITSIFIRBIR | |
MOVLW h'01' | |
MOVWF SINIRA | |
MOVLW h'00' | |
MOVWF SINIRB | |
MOVLW h'01' | |
MOVWF HSONUC | |
MOVF WAC01,W | |
MOVWF WAC | |
MOVF WAD01,W | |
MOVWF WAD | |
MOVF WAE01,W | |
MOVWF WAE | |
MOVF WBC01,W | |
MOVWF WBC | |
MOVF WBD01,W | |
MOVWF WBD | |
MOVF WBE01,W | |
MOVWF WBE | |
MOVF WCF01,W | |
MOVWF WCF | |
MOVF WDF01,W | |
MOVWF WDF | |
MOVF WEF01,W | |
MOVWF WEF | |
MOVF WBİAS01,W | |
MOVWF WBİAS | |
MOVLW h'00' | |
MOVWF SAYAC | |
GOTO EGITIM | |
EGITBIRBIR | |
MOVLW h'01' | |
MOVWF SINIRA | |
MOVLW h'01' | |
MOVWF SINIRB | |
MOVLW h'00' | |
MOVWF HSONUC | |
MOVF WAC11,W | |
MOVWF WAC | |
MOVF WAD11,W | |
MOVWF WAD | |
MOVF WAE11,W | |
MOVWF WAE | |
MOVF WBC11,W | |
MOVWF WBC | |
MOVF WBD11,W | |
MOVWF WBD | |
MOVF WBE11,W | |
MOVWF WBE | |
MOVF WCF11,W | |
MOVWF WCF | |
MOVF WDF11,W | |
MOVWF WDF | |
MOVF WEF11,W | |
MOVWF WEF | |
MOVF WBİAS11,W | |
MOVWF WBİAS | |
MOVLW h'00' | |
MOVWF SAYAC | |
GOTO EGITIM | |
;**************************** | |
SONUCUKAYDET | |
MOVLW H'04' | |
SUBWF EGITIMSAYAC,W | |
BTFSC STATUS,0 | |
GOTO SONUCGOSTER | |
GOTO SONUCTABLO | |
SONUCDONUSU | |
GOTO SONUCGOSTER | |
SONUCTABLO | |
MOVF EGITIMSAYAC,W | |
ADDWF PCL,F | |
GOTO SONUCDONUSU | |
GOTO SONUCSIFIRSIFIR | |
GOTO SONUCSIFIRBIR | |
GOTO SONUCBIRBIR | |
SONUCSIFIRSIFIR | |
MOVF SINIRF,W | |
MOVWF SONUC00 | |
MOVF WAC,W | |
MOVWF WAC00 | |
MOVF WAD,W | |
MOVWF WAD00 | |
MOVF WAE,W | |
MOVWF WAE00 | |
MOVF WBC,W | |
MOVWF WBC00 | |
MOVF WBD,W | |
MOVWF WBD00 | |
MOVF WBE,W | |
MOVWF WBE00 | |
MOVF WCF,W | |
MOVWF WCF00 | |
MOVF WDF,W | |
MOVWF WDF00 | |
MOVF WEF,W | |
MOVWF WEF00 | |
MOVF WBİAS,W | |
MOVWF WBİAS00 | |
GOTO EGITIMDEGERVER | |
SONUCSIFIRBIR | |
MOVF SINIRF,W | |
MOVWF SONUC01 | |
MOVF WAC,W | |
MOVWF WAC01 | |
MOVF WAD,W | |
MOVWF WAD01 | |
MOVF WAE,W | |
MOVWF WAE01 | |
MOVF WBC,W | |
MOVWF WBC01 | |
MOVF WBD,W | |
MOVWF WBD01 | |
MOVF WBE,W | |
MOVWF WBE01 | |
MOVF WCF,W | |
MOVWF WCF01 | |
MOVF WDF,W | |
MOVWF WDF01 | |
MOVF WEF,W | |
MOVWF WEF01 | |
MOVF WBİAS,W | |
MOVWF WBİAS01 | |
GOTO EGITIMDEGERVER | |
SONUCBIRBIR | |
MOVF SINIRF,W | |
MOVWF SONUC11 | |
MOVF WAC,W | |
MOVWF WAC11 | |
MOVF WAD,W | |
MOVWF WAD11 | |
MOVF WAE,W | |
MOVWF WAE11 | |
MOVF WBC,W | |
MOVWF WBC11 | |
MOVF WBD,W | |
MOVWF WBD11 | |
MOVF WBE,W | |
MOVWF WBE11 | |
MOVF WCF,W | |
MOVWF WCF11 | |
MOVF WDF,W | |
MOVWF WDF11 | |
MOVF WEF,W | |
MOVWF WEF11 | |
MOVF WBİAS,W | |
MOVWF WBİAS11 | |
GOTO EGITIMDEGERVER | |
;**************************** | |
SONUCGOSTER | |
BTFSS PORTA,4 | |
GOTO SONUCGOSTERDEVAM | |
GOTO SONUCRESETEKRANI | |
SONUCGOSTERDEVAM | |
MOVF PORTA,W | |
MOVWF SONUCKNT | |
BTFSS SONUCKNT,2 | |
GOTO IKINCISIFIR | |
GOTO IKINCIBIR | |
SONUCDONDUR | |
GOTO SONUCGOSTER | |
IKINCIBIR | |
BTFSS SONUCKNT,3 | |
GOTO SIFIRBIR | |
GOTO BIRBIR | |
IKINCISIFIR | |
BTFSS SONUCKNT,3 | |
GOTO SIFIRSIFIR | |
GOTO SIFIRBIR | |
GOTO SONUCDONDUR | |
SIFIRBIR | |
MOVF SONUC01,W | |
MOVWF PORTB | |
GOTO SONUCDONDUR | |
BIRBIR | |
MOVF SONUC11,W | |
MOVWF PORTB | |
GOTO SONUCDONDUR | |
SIFIRSIFIR | |
MOVF SONUC00,W | |
MOVWF PORTB | |
GOTO SONUCDONDUR | |
;**************************** | |
SONUCRESETEKRANI | |
INCF SAYAC,F | |
MOVLW H'0F' | |
ANDWF SAYAC,F | |
SONUCRESETEKRANI2 | |
BTFSS PORTA,1 | |
GOTO SONUCRESETEKRANIDEVAM | |
GOTO SONUCGOSTER | |
SONUCRESETEKRANIDEVAM | |
BTFSS PORTA,2 | |
GOTO RRIKINCISIFIR | |
GOTO RRIKINCIBIR | |
RRSONUCDONDUR | |
GOTO SONUCRESETEKRANI2 | |
RRIKINCIBIR | |
BTFSS PORTA,3 | |
GOTO RRSIFIRBIR | |
GOTO RRBIRBIR | |
RRIKINCISIFIR | |
BTFSS PORTA,3 | |
GOTO RRSIFIRSIFIR | |
GOTO RRSIFIRBIR | |
RRSIFIRBIR | |
MOVF SAYAC,W | |
MOVWF EGITIMSAYAC | |
MOVLW B'00000011' | |
ANDWF EGITIMSAYAC,F | |
MOVF EGITIMSAYAC,W | |
MOVWF PORTB | |
GOTO RRSONUCDONDUR | |
RRBIRBIR | |
MOVF SAYAC,W | |
MOVWF EGITIMSAYAC | |
MOVLW B'00000010' | |
ANDWF EGITIMSAYAC,F | |
MOVF EGITIMSAYAC,W | |
MOVWF PORTB | |
GOTO RRSONUCDONDUR | |
RRSIFIRSIFIR | |
MOVF SAYAC,W | |
MOVWF EGITIMSAYAC | |
MOVLW B'00000001' | |
ANDWF EGITIMSAYAC,F | |
MOVF EGITIMSAYAC,W | |
MOVWF PORTB | |
GOTO RRSONUCDONDUR | |
;**************************** | |
;**************************** | |
;**************************** | |
EGITIM | |
MOVLW H'01' | |
ADDWF SAYAC,F | |
;CSINIRAGI | |
MOVLW h'00' | |
MOVWF SINIRC | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF WAC,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRC,F | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF WBC,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRC,F | |
MOVF WBİAS,W | |
CALL CARPMABIRINCI | |
MOVF SINIRBİAS,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRC,F | |
MOVF SINIRC,W | |
CALL AKTİVASYONUYGULA | |
MOVWF SINIRC | |
;DSINIRAGI | |
MOVLW h'00' | |
MOVWF SINIRD | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF WAD,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRD,F | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF WBD,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRD,F | |
MOVF WBİAS,W | |
CALL CARPMABIRINCI | |
MOVF SINIRBİAS,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRD,F | |
MOVF SINIRD,W | |
CALL AKTİVASYONUYGULA | |
MOVWF SINIRD | |
;ESINIRAGI | |
MOVLW h'00' | |
MOVWF SINIRE | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF WAE,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRE,F | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF WBE,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRE,F | |
MOVF WBİAS,W | |
CALL CARPMABIRINCI | |
MOVF SINIRBİAS,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRE,F | |
MOVF SINIRE,W | |
CALL AKTİVASYONUYGULA | |
MOVWF SINIRE | |
;FSINIRAGI | |
MOVLW h'00' | |
MOVWF SINIRF | |
MOVF SINIRC,W | |
CALL CARPMABIRINCI | |
MOVF WCF,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRF,F | |
MOVF SINIRD,W | |
CALL CARPMABIRINCI | |
MOVF WDF,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRF,F | |
MOVF SINIRE,W | |
CALL CARPMABIRINCI | |
MOVF WEF,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF SINIRF,F | |
MOVF SINIRF,W | |
CALL AKTİVASYONUYGULA | |
MOVWF SINIRF | |
;AĞIRLIK HESABI ÖNCESİ EĞİTİMİN EĞİMİ | |
MOVF SINIRF,W | |
SUBWF HSONUC,W | |
BTFSC STATUS,C | |
GOTO AGIRLIKEKLEVEYAESITLE | |
GOTO AGIRLIKCIKART | |
AGIRLIKDON | |
MOVLW H'10' ;SAYAÇ | |
SUBWF SAYAC,W | |
BTFSC STATUS,C | |
GOTO SONUCUKAYDET | |
GOTO EGITIM | |
;**************************** | |
CARPMABIRINCI | |
MOVWF BCARPAN | |
RETURN | |
CARPMAIKINCI | |
MOVWF ICARPAN | |
RETURN | |
CARP | |
MOVF BCARPAN,W | |
DECFSZ ICARPAN,F | |
GOTO CARPMA | |
MOVF BCARPAN,W | |
RETURN | |
CARPMA | |
ADDWF BCARPAN,F | |
DECFSZ ICARPAN,F | |
GOTO CARPMA | |
MOVF BCARPAN,W | |
RETURN | |
;**************************** | |
AKTİVASYONUYGULA | |
MOVWF AKTIVDEGER | |
MOVLW h'06' ;eşik değer 10.(7F) | |
SUBWF AKTIVDEGER,W | |
BTFSC STATUS,C | |
GOTO AKTIFBUYUK | |
GOTO AKTIVKUCUK | |
AKTIFBUYUK | |
MOVLW H'01' | |
RETURN | |
AKTIVKUCUK | |
MOVLW H'00' | |
RETURN | |
;**************************** | |
AGIRLIKEKLEVEYAESITLE | |
BTFSC STATUS,Z | |
GOTO AGIRLIKDON | |
;WAC | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WAC,F | |
MOVF WAC,W | |
CALL AGIRLIKTASMA | |
MOVWF WAC | |
;WAD | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WAD,F | |
MOVF WAD,W | |
CALL AGIRLIKTASMA | |
MOVWF WAD | |
;WAE | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WAE,F | |
MOVF WAE,W | |
CALL AGIRLIKTASMA | |
MOVWF WAE | |
;WBC | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WBC,F | |
MOVF WBC,W | |
CALL AGIRLIKTASMA | |
MOVWF WBC | |
;WBD | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WBD,F | |
MOVF WBD,W | |
CALL AGIRLIKTASMA | |
MOVWF WBD | |
;WBE | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WBE,F | |
MOVF WBE,W | |
CALL AGIRLIKTASMA | |
MOVWF WBE | |
;WCF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRC,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WCF,F | |
MOVF WCF,W | |
CALL AGIRLIKTASMA | |
MOVWF WCF | |
;WDF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRD,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WDF,F | |
MOVF WDF,W | |
CALL AGIRLIKTASMA | |
MOVWF WDF | |
;WEF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRE,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WEF,F | |
MOVF WEF,W | |
CALL AGIRLIKTASMA | |
MOVWF WEF | |
;WBİAS | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF OGRENME,W | |
CALL CARPMABIRINCI | |
MOVF SINIRBİAS,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
ADDWF WBİAS,F | |
MOVF WBİAS,W | |
CALL AGIRLIKTASMA | |
MOVWF WBİAS | |
GOTO AGIRLIKDON | |
;**************************** | |
AGIRLIKTASMA | |
MOVWF WTASMA | |
MOVLW H'0A' | |
SUBWF WTASMA,W | |
BTFSC STATUS,C | |
GOTO AGIRLIKDUZELT | |
GOTO AGIRLIKDUZELTME | |
AGIRLIKDUZELT | |
MOVLW H'09' | |
RETURN | |
AGIRLIKDUZELTME | |
MOVF WTASMA,W | |
RETURN | |
;**************************** | |
AGIRLIKCIKART | |
;WAC | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WAC,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WAC | |
;WAD | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WAD,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WAD | |
;WAE | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRA,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WAE,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WAE | |
;WBC | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WBC,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WBC | |
;WBD | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WBD,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WBD | |
;WBE | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRB,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WBE,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WBE | |
;WCF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRC,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WCF,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WCF | |
;WDF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRD,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WDF,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WDF | |
;WEF | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF SINIRE,W | |
CALL CARPMABIRINCI | |
MOVF OGRENME,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WEF,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WEF | |
;WBİAS | |
MOVLW h'00' | |
MOVWF WTOPLA | |
MOVF OGRENME,W | |
CALL CARPMABIRINCI | |
MOVF SINIRBİAS,W | |
CALL CARPMAIKINCI | |
CALL CARP | |
ADDWF WTOPLA,F | |
MOVF WTOPLA,W | |
CALL AGIRLIKBIRINCI | |
MOVF WBİAS,W | |
CALL AGIRLIKIKINCI | |
CALL AGIRLIKAZALT | |
MOVWF WBİAS | |
GOTO AGIRLIKDON | |
;**************************** | |
AGIRLIKBIRINCI | |
MOVWF WAZALTBIR | |
RETURN | |
AGIRLIKIKINCI | |
MOVWF WAZALTIKI | |
RETURN | |
AGIRLIKAZALT | |
MOVF WAZALTBIR,W | |
SUBWF WAZALTIKI,F | |
BTFSC STATUS,C | |
GOTO AGAZALTMA | |
GOTO AGAZALT | |
AGAZALTMA | |
MOVF WAZALTIKI,W | |
RETURN | |
AGAZALT | |
MOVLW H'01' | |
RETURN | |
;**************************** | |
END |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment