MPASM CODE FÜR DRUCKTASTER

[Prinsloo]

Liebe Mitglieder
in C pls) for this :

Wie schreibe ich einen Code (nicht
in C pls) für Sie:<img src="http://images.elektroda.net/34_1186944639_thumb.jpg" border="0" alt="MPASM CODE FOR PUSH BUTTON" title="MPASM CODE FÜR DRUCKTASTER"/> when I switch on the PIC.

Die LED muss deaktiviert sein,
wenn ich auf der PIC-Schalter.Wenn ich die Taste drücken, sobald sie wechseln muss die LED auf.

Grüße

 

[news]

Kilka dni temu Samsung zaprezentował już czwartą odsłonę phabletu Galaxy Note. Jego sprzedaż ma ruszyć już za nieco ponad miesiąc, bo już 10 pażdziernika. Jego parametry są oszałamiające. Phablet wyposażony został w ekran o przekątnej 5,7 cala i rozdzielczości 2560 x 1440 pikseli. Sercem Galaxy Note 4 jest SoC Snapdragon 805, który posiada 4-rdzeni...

Read more...

 

[BlackOps]

hier ist der Code, um ein-und ausschalten LED mit unterbrechen, ich habe es vor:

Code:;=========================

; Einrichtung und Konfiguration

;=========================

Prozessor 16F84A

gehören <p16f84A.inc>

__CONFIG _XT_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF;================================================= ====

; Variablen im PIC-RAM

;================================================= ====cblock 0x0d; Start des Blocks

count2; ISR counter

old_w; Kontext Speichern

old_STATUS; Idem

Delay1; eingrenzen zwei Datei-Register für die

count1ENDC;================================================= =======

; ********** ********** START PROGRAMM

;================================================= =======

org 0; Programm beginnen bei Adresse 0

Goto Main;=============================

; Interrupt-Handler

;=============================

org 0x04

goto IntServ;=============================

; MAIN PROGRAM

;=============================

main:

bsf STATUS, RP0; Wählen Sie Bank1

bcf OPTION_REG, INTEDG; Set Interrupt auf fallende Flanke

; Von Clearing-INTEDG wenig OPTION_REGmovlw b'00000001 '; PORTB Bit 0

movwf TRISB; ist Input, alle anderen Bits sind Outputbcf STATUS, RP0; Zurück zur Bank0clrf PORTB; Frei PORTB; bsf PORTB, 0; set PORTB Bit 0; SETUP INTERRUPTS

bcf INTCON, INTF Klare externen Interrupt Flag (INTF = Bit 1)

bsf INTCON, GIE; Aktivieren globalen Interrupts (GIE = Bit 7)

bsf INTCON, INTE, aktivieren RB0 Interrupt (INTE = Bit 4);============================

, LED-Blitz

;============================

Loop:nop

nop

nop
goto Loop

; clrf PORTB;================================================= ======

; Interrupt Service Routine

;================================================= ======IntServ:; zuerst testen, ob Quelle ist ein RB0 unterbrechen

btfss INTCON, INTF; INTF Flagge unterbrechen RB0

goto notRB0; gehen, wenn nicht RB0 Herkunft; Speichern Rahmen

movwf old_w; Save w registrieren

swapf STATUS, w; STATUS w, um

movwf old_STATUS; speichern STATUS

; Stellen Sie sicher, dass auf der fallenden Flanke aufgetreten unterbrechen

; Des Signals.
Wenn nicht, Abbruch-Handler

btfsc PORTB, 0; Ist Bit gesetzt war?

goto exitISR; gehen, wenn sie klar;=========================

; Interrupt-Aktion

;=========================

; clrf PORTB

movlw 10; Anzahl der Wiederholungen

movwf count2; im Widerspruch zu

Wartezeit:; Überprüfen Sie, dass Port-B Bit 0 sehen, ist immer noch 0

, Wenn nicht, warten, bis er sich

btfsc PORTB, 0; Ist Bit gesetzt war?

goto exitISR; Gehen Sie, wenn etwas nicht 0

; An diesem Punkt ist klar, RB0 Bit

decfsz count2, f; Graf dieser Iteration

goto warten, weiter, wenn nicht gleich Null

; Interrupt Aktion besteht darin, Makeln Bit 2 von

; Port-B zu drehen LED ein-und ausschalten

; ACTION!!movlw b'10000000 '; XOR-Verknüpfung mit einem 1-Bit-produziert

xorwf PORTB, 1; Complement Bit 2, Port-B
;=========================

; Ausfahrt ISR

;=========================

exitISR:; Restore Rahmenswapf old_STATUS, w; Gespeichert STATUS w, um

swapf old_w, f; Swap-Datei zu registrieren, in sich

swapf old_w, w; re-Swap zurück zu wnotRB0:; Reset zu unterbrechen,

bcf INTCON, INTF Klare INTCON Bit 1

retfieVerzögerung:

movlw 4

movwf count1; Shop-Wert in-Schalter

Wiederholung:

decfsz count1, f; Decrement counter

goto wiederholen; Weiter, wenn nicht 0

zurückEnde