Notes
Notes - notes.io |
INCLUDE <P16F877A.INC>
__config _CP_OFF &_WDT_OFF &_HS_OSC &_PWRTE_OFF &_LVP_OFF
say0 equ 20h
say1 equ 21h
say2 equ 22h
say3 equ 23h
say4 equ 24h
say5 equ 25h
birler equ 26h
onlar equ 27h
yuzler equ 28h
binler equ 29h
temp equ 30h
temp1 equ 31h
temp2 equ 32h
temp3 equ 33h
temp4 equ 34h
temp5 equ 35h
temp6 equ 36h
temp7 equ 37h
temp8 equ 38h
temp9 equ 39h
temp10 equ 40h
GOTO START
BANK0 MACRO
BCF STATUS,RP0
ENDM
BANK1 MACRO
BSF STATUS,RP0
ENDM
START BANK1
CLRF TRISD
BANK0
LOOP
MOVLW .0
MOVWF birler
MOVLW .0
MOVWF onlar
MOVLW .0
MOVWF yuzler
MOVLW .0
MOVWF binler
CLRF PORTD
CLRF PORTB
MOVLW .2
MOVWF temp1
DONGU1 MOVLW .10
MOVWF temp2
DONGU2 MOVLW .6
MOVWF temp3
DONGU3 MOVLW .10
MOVWF temp4
DONGU4 CALL GOSTER
INCF birler,F
DECFSZ temp4,F
GOTO DONGU4
CLRF birler
INCF onlar,F
DECFSZ temp3,F
GOTO DONGU3
CLRF onlar
INCF yuzler,F
DECFSZ temp2,F
GOTO DONGU2
CLRF yuzler
INCF binler,F
DECFSZ temp1,F
GOTO DONGU1
CLRF binler
MOVLW .0
MOVWF birler
MOVLW .0
MOVWF onlar
MOVLW .0
MOVWF yuzler
MOVLW .2
MOVWF binler
CLRF PORTD
CLRF PORTB
MOVLW .0
MOVWF temp5
DONGU5 MOVLW .4
MOVWF temp6
DONGU6 MOVLW .6
MOVWF temp7
DONGU7 MOVLW .10
MOVWF temp8
DONGU8 CALL GOSTER
INCF birler,F
GOTO DONGU8
CLRF birler
INCF onlar,F
DECFSZ temp7,F
GOTO DONGU7
CLRF onlar
INCF yuzler,F
DECFSZ temp6,F
GOTO DONGU6
CLRF yuzler
GOTO LOOP
RETURN
GOSTER MOVLW .25
MOVWF temp
BASADON MOVLW b'00001000'
MOVWF PORTB
MOVF birler,W
MOVWF PORTD
CALL BEKLE
MOVLW b'00000100'
MOVWF PORTB
MOVF onlar,W
MOVWF PORTD
CALL BEKLE
MOVLW b'00000010'
MOVWF PORTB
MOVF yuzler,W
MOVWF PORTD
CALL BEKLE
MOVLW b'00000001'
MOVWF PORTB
MOVF binler,W
MOVWF PORTD
CALL BEKLE
CLRF PORTB
DECFSZ temp,F
GOTO BASADON
RETURN
BEKLE MOVLW .1
MOVWF say2
BEKLE1 MOVLW .10
movwf say1
BEKLE2 MOVLW .50
MOVWF say0
BEKLE3 DECFSZ say0
GOTO BEKLE3
DECFSZ say1
GOTO BEKLE2
DECFSZ say2
GOTO BEKLE1
RETURN
END
|
|
Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...
With notes.io;
- * You can take a note from anywhere and any device with internet connection.
- * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
- * You can quickly share your contents without website, blog and e-mail.
- * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
- * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.
Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.
Easy: Notes.io doesn’t require installation. Just write and share note!
Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )
Free: Notes.io works for 12 years and has been free since the day it was started.
You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;
Email: [email protected]
Twitter: http://twitter.com/notesio
Instagram: http://instagram.com/notes.io
Facebook: http://facebook.com/notesio
Regards;
Notes.io Team
