Notes
Notes - notes.io |
INCLUDE <P16F877A.INC>
__CONFIG _CP_OFF &_WDT_OFF &_HS_OSC &_PWRTE_OFF &_LVP_OFF
BIRLER EQU 24H
ONLAR EQU 25H
YUZLER EQU 26H
BINLER EQU 27H
TEMP EQU 28H
TEMP1 EQU 29H
TEMP2 EQU 2AH
TEMP3 EQU 2BH
TEMP4 EQU 2CH
ORG 0
GOTO START
BANK0 MACRO
BCF STATUS, 5 ;RP0
ENDM
BANK1 MACRO
BSF STATUS, 5 ;RP0
ENDM
START BANK1
CLRF TRISD
CLRF TRISB
BANK0
CLRF BIRLER
CLRF ONLAR
CLRF YUZLER
CLRF BINLER
LOOP MOVLW .10
MOVWF TEMP4 ; BINLER
COUNT4 MOVLW .10
MOVWF TEMP3 ; YUZLER
COUNT3 MOVLW .10
MOVWF TEMP2 ; ONLAR
COUNT2 MOVLW .10
MOVWF TEMP1 ; BIRLER
COUNT1 CALL GOSTER ; 0
INCF BIRLER, F
DECFSZ TEMP1, F
GOTO COUNT1
CLRF BIRLER
INCF ONLAR, F
DECFSZ TEMP2, F
GOTO COUNT2
CLRF ONLAR
INCF YUZLER, F
DECFSZ TEMP3, F
GOTO COUNT3
CLRF YUZLER
INCF BINLER, F
DECFSZ TEMP4, F
GOTO COUNT4
CLRF BINLER
GOTO LOOP
GOSTER MOVLW .100
MOVWF TEMP
GOSTER1 MOVLW b'00001000'
MOVWF PORTB
MOVF BIRLER, W ; W=BIRLER
MOVWF PORTD ; PORTD=W
CALL DELAY ; 4,5 MS BEKLER
MOVLW b'00000100'
MOVWF PORTB
MOVF ONLAR, W
MOVWF PORTD
CALL DELAY
MOVLW b'00000010'
MOVWF PORTB
MOVF YUZLER,W
MOVWF PORTD
CALL DELAY
MOVLW b'00000001'
MOVWF PORTB
MOVF BINLER,W
MOVWF PORTD
CALL DELAY
CLRF PORTB
DECFSZ TEMP,F
RETURN
DELAY MOVLW .4
MOVWF COUNT1
DELAY1 MOVLW .20
MOVWF COUNT2
DELAY2 MOVLW .20
MOVWF COUNT3
DELAY3 DECFSZ COUNT3, F
GOTO DELAY3
DECFSZ COUNT2, F
GOTO DELAY2
DECFSZ COUNT1, F
GOTO DELAY1
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
