LIST P=16F877-4 #INCLUDE __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_ON & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;PICGN220.ASM 21 APR 2000 - JOHN BECKER - EPE PIC FUNCTION GEN + FREQ COUNT ;PIC16F877-4, 3.2768Hz, WDT OFF, POR ON, XTAL XT ;Config register bits (all PIC TOOLKIT MK2 defaults) ; CP1 CP0 DBG NIL WRT CPD LVP BOR CP1 CP0 POR WDT OS1 OS0 ; 1 1 1 1 1 1 0 0 1 1 0 0 0 1 ;N.B. Logic 1/0 do NOT necessarily mean that the function is On/Off ;respectively - refer to PIC '87 data sheet. ;#DEFINE PAGE0 BCF 0x03,0x5 ;#DEFINE PAGE1 BSF 0x03,0x5 INDF: EQU 0x00 ;page 0, 1, 2, 3 TMR0: EQU 0x01 ;page 0, 2 OPTION: EQU 0x01 ;page 1, 3 PCL: EQU 0x02 ;page 0, 1, 2, 3 STATUS: EQU 0x03 ;page 0, 1, 2, 3 FSR: EQU 0x04 ;page 0, 1, 2, 3 PORTA: EQU 0x05 ;page 0 ; TRISA: EQU 0x05 ;page 1 PORTB: EQU 0x06 ;page 0, 2 ; TRISB: EQU 0x06 ;page 1, 3 PORTC: EQU 0x07 ;page 0 ; TRISC: EQU 0x07 ;page 1 PORTD: EQU 0x08 ;page 0 ; TRISD: EQU 0x08 ;page 1 PORTE: EQU 0x09 ;page 0 ; TRISE: EQU 0x09 ;page 1 INTCON: EQU 0x0B ;page 0, 1, 2, 3 ADCON0: EQU 0x1F ;page 0 ; ADCON1: EQU 0x1F ;page 1 LOOPA: EQU 0x20 ;loop used by LCD send routine LOOPB: EQU 0x21 ;general loop STORE: EQU 0x22 ;general store STORE1: EQU 0x23 ;general store STORE2: EQU 0x24 ;general store STORE3: EQU 0x25 ;general store RSLINE: EQU 0x26 ;LCD function flag store SWITCH: EQU 0x27 ;switch status store MARK1: EQU 0x28 ;freq count polarity marker 1 MARK2: EQU 0x29 ;freq count polarity marker 2 DEC1: EQU 0x2A ;decimalisation byte 1 DEC2: EQU 0x2B ; byte 2 DEC3: EQU 0x2C ; byte 3 DEC4: EQU 0x2D ; byte 4 DEC5: EQU 0x2E ; byte 5 DEC6: EQU 0x2F ; byte 6 (dummy) ANSA1: EQU 0x30 ;decimalisation answer store 1 ANSA2: EQU 0x31 ; answer 2 ANSA3: EQU 0x32 ; answer 3 ANSA4: EQU 0x33 ; answer 4 ANSA5: EQU 0x34 ; answer 5 FREQ0: EQU 0x35 ;frequency counter lsb FREQ1: EQU 0x36 ;frequency counter nsb FREQ2: EQU 0x37 ;frequency counter nsb FREQ3: EQU 0x38 ;frequency counter nsb FREQ4: EQU 0x39 ;frequency counter msb CLKCNT: EQU 0x3A ;timing counter SLOWIT: EQU 0x3B ;delay factor for PAUSE LOOPX: EQU 0x3C ;delay loop for LCDOUT OUT7: EQU 0x3D ;8 bytes for freq store and output to LCD OUT6: EQU 0x3E OUT5: EQU 0x3F OUT4: EQU 0x40 OUT3: EQU 0x41 OUT2: EQU 0x42 OUT1: EQU 0x43 OUT0: EQU 0x44 LCDSTOR1: EQU 0x45 LCDSTOR2: EQU 0x46 STOREC: EQU 0x47 STORED: EQU 0x48 TENFLG: EQU 0x49 TENCNT: EQU 0x4A RANGE: EQU 0x4B ;frequency cap selection SHAPE: EQU 0x4C ;waveform shape selection SAMPLE: EQU 0x4D ;1sec/10sec flag CLKVAL1: EQU 0x4E CLKVAL2: EQU 0x4F W: EQU 0 F: EQU 1 C: EQU 0 DC: EQU 1 Z: EQU 2 RP0: EQU 5 ;STATUS reg RP1: EQU 6 ;STATUS reg GIE: EQU 7 ;INTCON reg ORG 0x0004 ;Interrupt vector address GOTO START ;Jump to interrupt routine on interrupt ORG 0x0005 ;Start of program memory clrf INTCON GIEOFF: BCF INTCON,GIE ;turn off global interrupts BTFSC INTCON,GIE goto GIEOFF goto START TABLCD: ;LCD initialisation table, itt állítja be a kijelzőt addwf PCL,F ;PCL-->PC+1 és mivel az akkuban 0 van, ezért nem változik a PCL értéke retlw B'00110011' ;visszateszi az értéket az akkuba, initialise lcd - first byte retlw B'00110011' ;2nd byte (repeat of first) retlw B'00110010' ;set for 4-bit operation retlw B'00101100' ;set for 2 lines retlw B'00000110' ;set entry mode to increment each address retlw B'00001100' ;set display on, cursor off, blink off retlw B'00000001' ;clear display retlw B'00000010' ;return home, cursor & RAM to zero ;end initialisation table TBDEC1: ;table for decimalisation lsb addwf PCL,F ;add program counter retlw 0x10 ;lsb of 10000 retlw 0xE8 ;lsb of 1000 retlw 0x64 ;lsb of 100 retlw 0x0A ;lsb of 10 TBDEC2: ;table for decimalisation msb addwf PCL,F ;add program counter retlw 0x27 ;msb of 10000 retlw 0x03 ;msb of 1000 retlw 0 ;msb of 100 retlw 0 ;msb of 10 RANGIT: addwf PCL,F ;range control vals retlw B'11111111' retlw B'11111101' retlw B'11111011' retlw B'11110111' retlw B'11101111' retlw B'11011111' retlw B'10111111' retlw B'01111111' WAVEIT: addwf PCL,F ;waveform message routing goto SQUARE goto TRNGLE goto SINE SINE: movf LOOPA,W addwf PCL,F ;sine message route retlw 'S' retlw 'I' retlw 'N' retlw '.' SQUARE: movf LOOPA,W addwf PCL,F ;square message route retlw 'S' retlw 'Q' retlw 'R' retlw '.' TRNGLE: movf LOOPA,W addwf PCL,F ;triangle message route retlw 'T' retlw 'R' retlw 'I' retlw '.' ;.............. START: bcf STATUS,RP0 ;BANK0 kiválasztása bcf STATUS,RP1 clrf PORTA ;kimenetek törlése clrf PORTB clrf PORTC clrf PORTD clrf PORTE ; PAGE1 ;---------------------------------------------------------EZT MÓDOSÍTOTTAM bsf STATUS,RP0 ;BANK1 kiválasztása bcf STATUS,RP1 clrf TRISA ;PORTA kimenet movlw B'00111111' movwf TRISB ;PORTB bemenet movlw 255 movwf TRISC ;PORTC bemenet movlw B'11001111' movwf TRISD ;RD0-RD3, RD6-RD7 bemenet, RD4-RD5 kimenet movlw B'00000111' movwf TRISE ;PORTE bemenet movlw B'00000111' ;RA0-RA4 digitális kimenet movwf ADCON1 movlw B'10000110' ;EREDETI: B'10000110' PORTB felhúzó ell. kikapcs., timer 1:128 (1/25th sec) movwf OPTION_REG ; PAGE0 ;---------------------------------------------------------EZT MÓDOSÍTOTTAM bcf STATUS,RP0 ;BANK0-ra váltás bcf STATUS,RP1 call PAUSIT ;késleltető rutin meghívása LCDSET: clrf LOOPB ;általános hurok törlése clrf RSLINE ;törli az RS vonalat LCDST2: movf LOOPB,W ;loopb értékét az akkuba teszi call TABLCD ;itt állítja be a kijelzőt call LCDOUT incf LOOPB,F btfss LOOPB,3 ;16X lefut ez a rutin goto LCDST2 call PAUSIT clrf MARK2 clrf SWITCH clrf FREQ0 clrf FREQ1 clrf FREQ2 clrf FREQ3 clrf FREQ4 clrf ANSA1 clrf ANSA2 clrf ANSA3 clrf ANSA4 clrf ANSA5 clrf DEC1 clrf DEC2 clrf DEC3 clrf DEC4 clrf DEC5 clrf DEC6 clrf TENFLG clrf TENCNT clrf MARK1 clrf MARK2 clrf RANGE clrf SAMPLE movlw 0 ;......2 movwf SHAPE call WAVE1 movlw 25 movwf CLKVAL1 movlw 250 movwf CLKVAL2 movf CLKVAL1,W movwf CLKCNT bsf PORTD,4 ;reset counter IC6 bcf PORTD,4 bsf PORTD,5 ;enable clock input movlw 4 movwf RANGE bcf INTCON,2 goto SHWRNG ;............................ END OF SETUP MAIN: btfss INTCON,2 goto MF1 bcf INTCON,2 movf PORTE,W ;is a range switch pressed? btfss STATUS,Z goto RANGESW ;yes btfsc PORTB,0 ;is waveshape switch pressed? call WAVEFRM ;yes decfsz CLKCNT,F ;dec timing counter, is it 0 goto MF1 ;no goto GETFREQ ;yes MF1: call INCCNT goto MAIN INCCNT: btfss PORTC,0 goto MF2 bsf MARK2,0 return MF2: btfss MARK2,0 ;is MARK2 = 1? return ;no bcf MARK2,0 incfsz FREQ2,F ;yes, inc counters accordingly return ;(responds to negative-going aspect of IC6 Q12) incfsz FREQ3,F return incf FREQ4,F return ;............show freq routine GETFREQ: bcf PORTD,5 ;turn off clock input nop nop call INCCNT ;***** movf PORTD,W ;get pins which include Q0-Q3 movwf STORED movf PORTC,W movwf STOREC bsf PORTD,5 ;turn on clock input bcf STATUS,C ;shift freq counters right by 4 places rrf FREQ4,F rrf FREQ3,F rrf FREQ2,F rrf FREQ1,F bcf STATUS,C rrf FREQ4,F rrf FREQ3,F rrf FREQ2,F rrf FREQ1,F bcf STATUS,C rrf FREQ4,F rrf FREQ3,F rrf FREQ2,F rrf FREQ1,F bcf STATUS,C rrf FREQ4,F rrf FREQ3,F rrf FREQ2,F rrf FREQ1,F btfsc STORED,1 ;Q1 bsf FREQ0,0 btfsc STORED,2 ;Q2 bsf FREQ0,1 btfsc STORED,3 ;Q3 bsf FREQ0,2 btfsc STOREC,4 ;Q4 bsf FREQ0,3 btfsc STOREC,6 ;Q5 bsf FREQ0,4 btfsc STOREC,7 ;Q6 bsf FREQ0,5 btfsc STOREC,5 ;Q7 bsf FREQ0,6 btfsc STOREC,3 ;Q8 bsf FREQ0,7 btfsc STORED,0 ;Q9 bsf FREQ1,0 btfsc STOREC,2 ;Q10 bsf FREQ1,1 btfsc STOREC,1 ;Q11 bsf FREQ1,2 btfsc STOREC,0 ;Q12 bsf FREQ1,3 movlw FREQ0 call DECIML ;decimalise digits 1 to 4 movf DEC1,W ;copy answer into OUT-OUT3 movwf OUT0 movf ANSA1,W movwf OUT1 movf ANSA2,W movwf OUT2 movf ANSA3,W movwf OUT3 GF3: movf ANSA4,W ;copy overflow val into prev freq positions movwf FREQ0 movf ANSA5,W movwf FREQ1 clrf FREQ2 clrf FREQ3 clrf FREQ4 movlw FREQ0 call DECIML ;now decimal digits 5 to 8 movf ANSA3,W ;copy answer into OUT4 to OUT7 movwf OUT7 movf ANSA2,W movwf OUT6 movf ANSA1,W movwf OUT5 movf DEC1,W movwf OUT4 GF4: call LCD5 ;output freq data to LCD bsf RSLINE,4 clrf MARK1 ;clear leading zero flag movlw OUT7 movwf FSR movlw 8 movwf LOOPA MAINA: movf INDF,W btfss STATUS,Z ;is val = 0? goto MAINB ;no btfsc MARK1,0 ;has val >0 been output? goto MAINB ;yes movf LOOPA,W ;is it the last byte of the loop? xorlw 1 btfsc STATUS,Z goto MAINB ;yes movlw ' ' ;clear leading zero goto MAINC MAINB: bsf MARK1,0 ;format as ASCII decimal val andlw 15 iorlw 48 MAINC: call LCDOUT incf FSR,F decfsz LOOPA,F goto MAINA btfss SAMPLE,0 goto GF5 call LCD12 bsf RSLINE,4 movlw '.' call LCDOUT decf FSR,F movf INDF,W andlw 15 iorlw 48 call LCDOUT goto GF6 GF5: movlw ' ' call LCDOUT GF6: movlw 'H' call LCDOUT movlw 'z' call LCDOUT MAINX: clrf FREQ0 ;clear freq counters clrf FREQ1 clrf FREQ2 clrf FREQ3 clrf FREQ4 clrf MARK2 movf CLKVAL1,W btfsc SAMPLE,0 ;is 10sec rate on? movf CLKVAL2,W movwf CLKCNT bsf PORTD,4 ;reset counter IC6 bcf PORTD,4 bsf PORTD,5 ;enable clock input clrf TMR0 bcf INTCON,2 ;clear interrupt goto MAIN ;start sampling next batch ;............. PAUSIT: ;Ez egy sima késleltető rutin. movlw 7 ;ide 7 KELL movwf SLOWIT bcf INTCON,2 PAUSE: btfss INTCON,2 goto PAUSE bcf INTCON,2 decfsz SLOWIT goto PAUSE return ;................ LCD1: movlw B'10000000' ;LCD cell position codes - not all used goto LCDLIN LCD5: movlw B'10000101' goto LCDLIN LCD6: movlw B'10000110' goto LCDLIN LCD7: movlw B'10000111' goto LCDLIN LCD9: movlw B'10001001' goto LCDLIN LCD12: movlw B'10001100' goto LCDLIN LCD21: movlw B'11000000' goto LCDLIN LCD24: movlw B'11000100' goto LCDLIN LCD25: movlw B'11000101' goto LCDLIN LCD26: movlw B'11000110' goto LCDLIN LCD27: movlw B'11000111' goto LCDLIN LCD28: movlw B'11001000' goto LCDLIN LCD29: movlw B'11001001' goto LCDLIN LCDLIN: BCF RSLINE,4 LCDOUT: movwf STORE movlw 50 movwf LOOPX DELAY: decfsz LOOPX,F goto DELAY call SENDIT SENDIT: swapf STORE,F movf STORE,W andlw 15 iorwf RSLINE,W movwf LCDSTOR1 clrf LCDSTOR2 movlw 6 movwf LOOPX SHIFT: bcf STATUS,C ;rearrange bits to suit PORTA pin order rrf LCDSTOR1,F rlf LCDSTOR2,F decfsz LOOPX,F goto SHIFT movf LCDSTOR2,W movwf PORTA bsf PORTA,0 ;toggle LCD line E bcf PORTA,0 bsf PORTA,5 ;turn on IC2 sync output line return ;..............convert binary to hex - not used in final model LCDHEX: movwf STORE2 ;split & format decimal byte as HEX for LCD swapf STORE2,W ;get tens nibble andlw 15 movwf STORE1 addlw 6 btfss STATUS,DC goto HEX2 movf STORE1,W addlw 55 ;set as alpha goto HEX3 HEX2: movf STORE1,W iorlw 48 ;set as numeral HEX3: call LCDOUT ;send it movf STORE2,W ;get units andlw 15 movwf STORE1 addlw 6 btfss STATUS,DC goto HEX4 movf STORE1,W addlw 55 ;set as alpha goto HEX5 HEX4: movf STORE1,W iorlw 48 ;set as numeral HEX5: call LCDOUT return ;........... used to convert binary bytes to decimal for LCD DECIML: ;decimalise binary number ;copy source into working area at DEC ;source address is brought in on W ;DEC1-5 becomes source ;answer goes into ANSA call COPYFD ;copy data at FSR into DEC clrf STORE1 clrf STORE3 clrf ANSA5 movlw ANSA4 ;set answer store address movwf FSR clrf LOOPA DCML0: movf LOOPA,W call TBDEC1 ;subtract lsb from source value subwf DEC1,F btfsc STATUS,C ;is there a borrow? goto DCML1 ;no, so sub msb movlw 1 subwf DEC2,F ;yes so decrement next byte btfsc STATUS,C ;is there a borrow? goto DCML1 ;no, so sub msb movlw 1 ;yes subwf DEC3,F btfsc STATUS,C ;is there a borrow? goto DCML1 ;no, so sub msb movlw 1 ;yes subwf DEC4,F btfsc STATUS,C ;is there a borrow? goto DCML1 ;no, so sub msb movlw 1 ;yes subwf DEC5,F btfsc STATUS,C ;is there a borrow? goto DCML1 ;no, so sub msb DCML3: movf LOOPA,W ;yes, so re-add last table values lsb call TBDEC1 addwf DEC1,F btfss STATUS,C ;is there a carry? goto DCML5 ;no so exit loop incf DEC2,F ;yes so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML5 ;no so exit loop incf DEC3,F ;yes btfss STATUS,Z ;is there a carry? (is it zero) goto DCML5 ;no so exit loop incf DEC4,F ;yes btfss STATUS,Z ;is there a carry? (is it zero) goto DCML5 ;no so exit loop incf DEC5,F ;yes goto DCML5 ;exit loop DCML1: movf LOOPA,W call TBDEC2 ;subtract msb from source value subwf DEC2,F btfsc STATUS,C ;is there a borrow? goto DCML2 ;no movlw 1 subwf DEC3,F ;yes so decrement next byte btfsc STATUS,C ;is there a borrow? goto DCML2 ;no movlw 1 subwf DEC4,F ;yes so decrement next byte btfsc STATUS,C ;is there a borrow? goto DCML2 ;no movlw 1 subwf DEC5,F ;yes so decrement next byte btfss STATUS,C ;is there a borrow? goto DCML4 ;yes DCML2: incfsz STORE1,F ;inc counter & continue looping till zero goto DCML0 incf STORE3,F goto DCML0 DCML4: movf LOOPA,W ;re-add last table values lsb call TBDEC1 addwf DEC1,F btfss STATUS,C ;is there a carry? goto DCML4A ;no so add msb incf DEC2,F ;yes so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML4A ;no so add msb incf DEC3,F ;yes, so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML4A ;no so add msb incf DEC4,F ;yes, so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML4A ;no so add msb incf DEC5,F ;yes, so inc next byte DCML4A: movf LOOPA,W ;re-add last table values msb call TBDEC2 addwf DEC2,F btfss STATUS,C ;is there a carry? goto DCML5 ;no incf DEC3,F ;yes, so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML5 ;no incf DEC4,F ;yes, so inc next byte btfss STATUS,Z ;is there a carry? (is it zero) goto DCML5 ;no incf DEC5,F ;yes, so inc next byte DCML5: movf STORE3,W btfss STATUS,Z movwf ANSA5 movf STORE1,W ;store counter and loop for next values movwf INDF ;INDF here is ANSA group clrf STORE1 clrf STORE3 decf FSR,F incf LOOPA,F btfss LOOPA,2 ;is it = 4? goto DCML0 ;no DCML6: return COPYFD: movwf FSR ;copy data at FSR to DEC movf INDF,W movwf DEC1 incf FSR,F movf INDF,W movwf DEC2 incf FSR,F movf INDF,W movwf DEC3 incf FSR,F movf INDF,W movwf DEC4 incf FSR,F movf INDF,W movwf DEC5 clrf DEC6 return ;...........range switch RANGESW: btfsc PORTE,2 goto SAMRATE call OK btfsc PORTE,1 goto DECRNG INCRNG: incf RANGE,W goto SHWRNG DECRNG: decf RANGE,W SHWRNG: andlw 7 movwf RANGE call LCD21 bsf RSLINE,4 movlw 'R' call LCDOUT movlw 'a' call LCDOUT movlw 'n' call LCDOUT movlw 'g' call LCDOUT movlw 'e' call LCDOUT movf RANGE,W sublw 7 iorlw 48 call LCDOUT movf PORTB,W andlw B'11000000' movwf PORTB bcf PORTD,6 bcf PORTD,7 movf RANGE,W call RANGIT andlw B'00111111' PAGE1 movwf TRISB PAGE0 movf RANGE,W call RANGIT andlw B'11000000' iorlw B'00001111' ; PAGE1 ;---------------------------------------------------------EZT MÓDOSÍTOTTAM bsf STATUS,RP0 ;BANK1 kiválasztása bcf STATUS,RP1 movwf TRISD ; PAGE0 ;---------------------------------------------------------EZT MÓDOSÍTOTTAM bcf STATUS,RP0 ;BANK0-ra váltás bcf STATUS,RP1 call PAUSIT call PAUSIT movf PORTE,W andlw D'3' btfss STATUS,Z goto RANGESW goto SAM1 ;...........set sample rate 1sec/10sec SAMRATE: incf SAMPLE,F bcf SAMPLE,1 call OK SAM1: clrf FREQ0 ;clear freq counters clrf FREQ1 clrf FREQ2 clrf FREQ3 clrf FREQ4 clrf MARK2 call LCD27 bsf RSLINE,4 movlw 'T' call LCDOUT movlw 'i' call LCDOUT movlw 'm' call LCDOUT movlw 'e' call LCDOUT movlw '1' call LCDOUT movlw ' ' btfsc SAMPLE,0 movlw '0' call LCDOUT movlw 's' call LCDOUT movlw 'e' call LCDOUT movlw 'c' call LCDOUT SAM3: movf PORTE,W andlw 7 btfss STATUS,Z goto SAM3 call LCD5 ;output freq data to LCD bsf RSLINE,4 movlw ' ' call LCDOUT movlw ' ' call LCDOUT movlw 'C' call LCDOUT movlw 'O' call LCDOUT movlw 'U' call LCDOUT movlw 'N' call LCDOUT movlw 'T' call LCDOUT movlw 'I' call LCDOUT movlw 'N' call LCDOUT movlw 'E' call LCDOUT movlw ' ' call LCDOUT movf CLKVAL1,W btfsc SAMPLE,0 movf CLKVAL2,W movwf CLKCNT bsf PORTD,4 ;reset counter IC6 bcf PORTD,4 goto MAIN OK: call LCD5 ;output freq data to LCD bsf RSLINE,4 movlw ' ' call LCDOUT movlw ' ' call LCDOUT movlw 'O' call LCDOUT movlw 'K' call LCDOUT movlw 7 movwf LOOPA OK2: movlw ' ' call LCDOUT decfsz LOOPA,F goto OK2 movlw 0 call LCDOUT return ;........ WAVEFRM: incf SHAPE,F movf SHAPE,W xorlw B'00000011' btfsc STATUS,Z clrf SHAPE WAVE1: call LCD1 ;output freq data to LCD bsf RSLINE,4 clrf LOOPA WAVE2: movf SHAPE,W call WAVEIT call LCDOUT incf LOOPA,F btfss LOOPA,2 goto WAVE2 swapf SHAPE,W movwf STORE rlf STORE,F rlf STORE,W andlw B'11000000' movwf STORE movf PORTB,W andlw B'00111111' iorwf STORE,W movwf PORTB WAVE3: btfsc PORTB,0 goto WAVE3 call PAUSIT return END