migrēšana no PIC16C54 līdz PIC16F84

J

JJFORTY

Guest
Hi guys ..

Man ir vajadzīga neliela palīdzība no visiem, kas gudri cilvēki, kas tur.Būtībā, iedodiet man kādu ieteikumus, lai kodu zemāk darbojas, izmantojot PIC16F84.

Thank you very much iepriekš.Kods:

d 16c54 ciparu vadības oscilators, sacensība REGULĀRASTRT MOVLW 0

TRIS PORTB; Uzstādīt ostas B produkcija

MOVWF PHASL; Inicializēt posms

MOVWF PHASM

MOVWF PHASH

MOVWF ZER; Constant = 256

MOVLW 64

MOVWF MAX; Constant = 64; Izveidot neizpildes biežuma, šeit 1000 HzMOVLW 64

MOVWF FREQL

MOVLW 150

MOVWF FREQM

MOVLW 1

MOVWF FREQHIet DONE; Izveidot atpakaļ ar noteiktu izbraukšanas adresi kaudzeRETX CALL RETY

Goto LOOP; Sākt ražošanas jaudaRETY RETLW 0; Dummy noteikt atpakaļadresiParakstīts CALL RETX; Izveidot atgriešanās noteiktā adrese; Look-up atpakaļ reenters šajā brīdī ar sine paraugu WLOOP BTFSC TEMP, INV; Test ja inversijas vajadzīga

; Aizstāt iepriekšējo norādījumu BTFSC PHASH, INV

; Ja BPSK modulācija nav vajadzīga.SUBWF ZER, 0; Apgrieziet produkcija

MOVWF PORTB; izeja paraugs; Pārbaudiet, vai lietotājs vēlas ielādēt jaunu frekvenčuBTFSC PORTA, DAT, Tests pārmaiņām karogu

Goto NEW; Saņemt jaunu lietotāju biežums; Trīs baitu papildus kontroles pakāpeniski akumulatorsMOVF FREQL, 0; Get biežums zemu baits

ADDWF PHASL, 1; Pieaugums posms zemu baits

MOVF STATUSS, 0

1 ANDLW; W = veikt

ADDWF PHASM, 1; Pievienot veikt

BTFSC STATUSS, CY; Pāriet ja veikt

INCF PHASH, 1; pavairot veikt

MOVF FREQM, 0; Get frekvenču vidus baits

ADDWF PHASM, 1; Pieaugums fāzes viduspunktam baits

BTFSC STATUSS, CY; Pāriet ja veikt

INCF PHASH, 1; pavairot veikt

MOVF FREQH, 0; Get biežums augstu baits

ADDWF PHASH, 1; Pieaugums fāzes augstas baitsSWAPF PORTA, MOD, Modulation ievadi 7 bitu

XORWF PHASH, 0; XOR inversijas bit

MOVWF TEMP; Saglabāt inversijas bit; Noņemt virs trīs instrukcijas, ja modulācijas nav nepieciešams.MOVF PHASH, 0

63 ANDLW; Get galda indekss

BTFSC PHASH, REV; testu, ja maiņa vajadzīga; Aizstāt virs rīkojums BTFSC TEMP, REV par QPSKSUBWF MAX, 0; Reverse indekss virziena

ADDWF PC, 1; Pārlēkt uz galda; Daļēja sine meklēt-up tabulu

; 65 ieraksti = Sinešas pirmo kvadrantuRETLW 128

RETLW 131

RETLW 134

;

;

RETLW 255
 

Welcome to EDABoard.com

Sponsor

Back
Top