Subversion Repositories svnkaklik

MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  1


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

                      00001 #include 16C84.INC
                      00001 ;
                      00002 ; Definice registru a zakladnich maker pro 16C84
                      00003 ;
                      00004                 processor       16f84
                      00005                 radix   D
                      00006 
0000                  00007 __16C84__:      ; Priznak modulu 16C84
                      00008 
                      00009 ; Definice registru
                      00010 
  00000000            00011 IND0            equ     00H     ; 0&1 Pristup na neprimou adresu
  00000001            00012 TMR0            equ     01H     ; 0   Real Time clock counter
  00000002            00013 PCL             equ     02H     ; 0&1 Spodni cast PC
  00000003            00014 STATUS          equ     03H     ; 0&1 Stavove bity
  00000000            00015 _CARRY                          equ     0
  00000001            00016 _DC                             equ     1
  00000002            00017 _ZERO                           equ     2
  00000003            00018 _PD                             equ     3
  00000004            00019 _TO                             equ     4
  00000005            00020 _RP0                            equ     5
  00000006            00021 _RP1                            equ     6
  00000007            00022 _IRP                            equ     7
  00000004            00023 FSR             equ     04H     ; 0&1 Ukazatel pro neprime adresovani
  00000005            00024 PORTA           equ     05H     ; 0&1 Data a rizeni portu A
  00000006            00025 PORTB           equ     06H     ; 0&1 Data a rizeni portu B
  00000008            00026 EEDATA_0        equ     08H     ; 0   Data EEPROM
  00000008            00027 EECON1_1        equ     08H     ;   1 Rizeni EEPROM
  00000000            00028 _EERD                           equ     0
  00000001            00029 _EEWR                           equ     1
  00000002            00030 _EEWREN                         equ     2
  00000003            00031 _EEWRERR                        equ     3
  00000004            00032 _EEIF                           equ     4
  00000009            00033 EEADR_0         equ     09H     ; 0   Adresa EEPROM
  00000009            00034 EECON2_1        equ     09H     ;   1 Aktivacni pseudoregistr
  0000000A            00035 PCLATH          equ     0AH     ; 0&1 Horni cast PC pro move
  0000000B            00036 INTCON          equ     0BH     ; 0&1 Rizeni preruseni
  00000000            00037 _RBIF                           equ     0       ;
  00000001            00038 _INTF                           equ     1
  00000002            00039 _T0IF                           equ     2
  00000003            00040 _RBIE                           equ     3
  00000004            00041 _INTE                           equ     4
  00000005            00042 _T0IE                           equ     5
  00000006            00043 _EEIE                           equ     6
  00000007            00044 _GIE                            equ     7
                      00045 
                      00046 page0   macro
                      00047         bcf     STATUS,_RP0
                      00048         endm
                      00049 
                      00050 page1   macro
                      00051         bsf     STATUS,_RP0
                      00052         endm
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  2


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

                      00053 ;
                      00054 ; Sada maker pro porovnani a skoky
                      00055 ;
                      00056 
                      00057 ;--- Compare ---
                      00058 CMP     macro   ZNAK, PROCEDURA         ; if W=ZNAK then goto PROCEDURA
                      00059         xorlw   ZNAK                    ; if W#ZNAK then zachovej W a neskakej
                      00060         btfsc   STATUS,_ZERO
                      00061         goto    PROCEDURA
                      00062         xorlw   ZNAK
                      00063         endm
                      00064 
                      00065 ;--- Skip if Carry ---
                      00066 SC      macro
                      00067         btfss   STATUS,_CARRY
                      00068         endm
                      00069 
                      00070 ;--- Skip if not Carry ---
                      00071 SNC     macro
                      00072         btfsc   STATUS,_CARRY
                      00073         endm
                      00074 
                      00075 ;--- Skip if Zero ---
                      00076 SZ      macro
                      00077         btfss   STATUS,_ZERO
                      00078         endm
                      00079 
                      00080 ;--- Skip if not Zero ---
                      00081 SNZ     macro
                      00082         btfsc   STATUS,_ZERO
                      00083         endm
                      00084 
                      00085 ;--- Skip if Borrow ( Negative ) --- ( po odecitani )
                      00086 SB      macro
                      00087         btsfsc  STATUS,_CARRY
                      00088         endm
                      00089 SN      macro
                      00090         btfsc   STATUS,_CARRY
                      00091         endm
                      00092 
                      00093 ;--- Skip if not Borrow ( Positive ) --- ( po odecitani )
                      00094 SNB     macro
                      00095         btfss   STATUS,_CARRY
                      00096         endm
                      00097 SP      macro
                      00098         btfss   STATUS,_CARRY
                      00099         endm
                      00100 
                      00101         cblock  0CH             ; Prvni volny registr
                      00102         endc
                      00002 
  00000001            00003 vys     EQU     1       ;vystupni portB protokol.asm
  00000002            00004 C1      EQU     2       ;pripojeni C1 na port B
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  3


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

  00000003            00005 C2      EQU     3       ;ptipojeni C2 na port B
                      00006 
0000                  00007         org     0
                      00008 
0000   284D           00009         goto    Start
                      00010         ;--------------------
0004                  00011         org     4
                      00012         ;--------------------
0004   284D           00013         goto    Start
                      00014 
                      00015 #include Delay.asm
                      00001 ;Pro krystal 4Mhz
                      00002 
                      00003 ;--- Macro na spozdeni 1ms az 255ms ---
                      00004 Delay   macro   ms
                      00005         movlw   ms
                      00006         movwf   xxx
                      00007         call    Delay1ms        
                      00008         endm
                      00009 
                      00010 ;--- Macro na spozdeni 0,1ms az 2,5ms (10-250) ---
                      00011 Delay01 macro   us
                      00012         movlw   us
                      00013         movwf   yyy
                      00014         call    Delay10us
                      00015         
                      00016         nop
                      00017         nop                     ; Z duvodu vyrovnani poctu potrebnych taktu jako na Delay1ms
                      00018         nop
                      00019         return  
                      00020         endm
                      00021 ;--- Spozdeni v nasobcich 1ms+2us ----
                      00022 
0005                  00023 Delay1ms:
0005   3063           00024         movlw   99              ; 1 ms
0006   008C           00025         movwf   yyy             ; goto 2 takty decfsz 1 kdyz 1 jinak 2
0007   200C           00026         call    Delay10us
                      00027 
0008   0B8D           00028         decfsz  xxx, f
0009   2805           00029         goto    Delay1ms
000A   0000           00030         nop
                      00031 ;---------------------------------
000B   0008           00032         return                  ;2us
                      00033 
                      00034 ;--- Spozdeni v nasobcich 10us ----
000C                  00035 Delay10us:                      ; Prodleva (CT1 * 10us)
000C   0000           00036         nop     
000D   0000           00037         nop
000E   0000           00038         nop
000F   0000           00039         nop
0010   0000           00040         nop
0011   0000           00041         nop
0012   0000           00042         nop
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  4


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

0013   0B8C           00043         decfsz  yyy, f
0014   280C           00044         goto    Delay10us
0015   0000           00045         nop
0016   0008           00046         return
                      00047         ;-------------------------
                      00048 
                      00049 ;----------------------------
                      00050 ; Definice promenych
                      00051 ;----------------------------
                      00052 
                      00053         cblock  
                      00054 
  0000000C            00055         yyy
  0000000D            00056         xxx
                      00057 
                      00058         endc
                      00059 
                      00016 #include Protokol.asm
0017                  00001 Sinchro:
0017   1486           00002         bsf     PORTB, vys
0018   200C           00003         call    Delay10us               
0019   200C           00004         call    Delay10us       
001A   200C           00005         call    Delay10us       
001B   1086           00006         bcf     PORTB, vys              ; 1. impuls (30us)
001C   200C           00007         call    Delay10us
001D   200C           00008         call    Delay10us
001E   200C           00009         call    Delay10us               
001F   1486           00010         bsf     PORTB, vys
0020   200C           00011         call    Delay10us               
0021   200C           00012         call    Delay10us       
0022   1086           00013         bcf     PORTB, vys              ; 2. impuls (20us)
0023   200C           00014         call    Delay10us
0024   200C           00015         call    Delay10us                       
0025   1486           00016         bsf     PORTB, vys
0026   200C           00017         call    Delay10us               
0027   1086           00018         bcf     PORTB, vys              ; 3. impuls (10us)
0028   200C           00019         call    Delay10us
                      00020         
                      00021         ;return
                      00022 
                      00023         ;-------------------------
0029                  00024 Protokol:
0029   3008           00025         movlw   8
002A   008F           00026         movwf   Bity                    ; nastaveni slova
002B   2017           00027         call    Sinchro
002C                  00028 VysBit:
002C   1C10           00029         btfss   Ramec, 0
002D   2033           00030         call    frek0
002E   2040           00031         call    frek1
002F                  00032 Rotace:
002F   0C90           00033         rrf     Ramec, f
0030   0B8F           00034         decfsz  Bity, f
0031   282C           00035         goto    VysBit
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  5


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

0032   0008           00036         return
                      00037 
                      00038         ;-------------------------
0033                  00039 frek0:
0033   303C           00040         movlw   60
0034   008E           00041         movwf   Frek
0035                  00042 smycka1:
0035   1486           00043         bsf     PORTB, vys                      ; 2000 Hz       60 impulsu      
                      00044         Delay   50
0036   3032               M         movlw   50
0037   008D               M         movwf   xxx
0038   2005               M         call    Delay1ms        
0039   1086           00045         bcf     PORTB, vys
                      00046         Delay   50
003A   3032               M         movlw   50
003B   008D               M         movwf   xxx
003C   2005               M         call    Delay1ms        
003D   0B8E           00047         decfsz  Frek,f
003E   2835           00048         goto    smycka1
003F   202F           00049         call    Rotace          
                      00050         ;-------------------------
0040                  00051 frek1:  
0040   302D           00052         movlw   45
0041   008E           00053         movwf   Frek
0042                  00054 smycka2:
0042   1486           00055         bsf     PORTB, vys                      ; 1500 Hz       45 impulsu
                      00056         Delay   150
0043   3096               M         movlw   150
0044   008D               M         movwf   xxx
0045   2005               M         call    Delay1ms        
0046   1086           00057         bcf     PORTB, vys
                      00058         Delay   150
0047   3096               M         movlw   150
0048   008D               M         movwf   xxx
0049   2005               M         call    Delay1ms        
004A   0B8E           00059         decfsz  Frek,f
004B   2842           00060         goto    smycka2
004C   202F           00061         call    Rotace                          
                      00062         ;-------------------------
                      00063 
                      00064 
                      00065 ;----------------------------
                      00066 ; Definice promenych
                      00067 ;----------------------------
                      00068 
                      00069         cblock  
                      00070         
  0000000E            00071         Frek
  0000000F            00072         Bity
  00000010            00073         Ramec
                      00074         
                      00075         endc
004D                  00017 Start:
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  6


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

                      00018         page1
004D   1683               M         bsf     STATUS,_RP0
004E   3000           00019         movlw   00000000B       ; inicializace citace a prescaleru
004F   0081           00020         movwf   TMR0
0050   3000           00021         movlw   00000000B       ; konfigurace preruseni
0051   008B           00022         movwf   INTCON
                      00023 
                      00024         page1
0052   1683               M         bsf     STATUS,_RP0
0053   30F3           00025         movlw   11110011B       ; nastaveni portu na vstup nebo vystup
0054   0085           00026         movwf   PORTA           ; 1=vstup 0=vystup
0055   30F1           00027         movlw   11110001B
0056   0086           00028         movwf   PORTB
                      00029 
0057   1781           00030         bsf     TMR0, 7         ; vypni pull-up na PORTB (OPTION registr)
                      00031 
                      00032         page0
0058   1283               M         bcf     STATUS,_RP0
                      00033 
0059   0103           00034         clrw                    ; vynulovani portu
005A   0085           00035         movwf   PORTA
005B   0086           00036         movwf   PORTB
                      00037 
005C   1585           00038         bsf     PORTA, 3        ; Pull-Up na tlacitka
                      00039 
005D   1086           00040         bcf     PORTB, 1        ; zhasnuti LED
005E   1106           00041         bcf     PORTB, 2
005F   1186           00042         bcf     PORTB, 3
                      00043 
0060                  00044 MainLoop:
0060   3002           00045         movlw   2
0061   0091           00046         movwf   volani          ; Nastavi pocet volani procedury vybito 
0062   1506           00047         bsf     PORTB, C1       ; Nabiti kondenzatoru1
0063   1586           00048         bsf     PORTB, C2       ; Nabiti kondenzatoru2
0064                  00049 dal:
0064   1D05           00050         btfss   PORTA, C1       ; Test kondenzatoru1
0065   206B           00051         call    vibito
                      00052 
0066   1D86           00053         btfss   PORTB, C2       ; Test kondenzatoru2
0067   206B           00054         call    vibito
                      00055 
0068   0A90           00056         incf    Ramec, f
0069   2864           00057         goto    dal
006A   2860           00058         goto    MainLoop
                      00059         ;---------------
                      00060 
006B                  00061 vibito:
006B   3004           00062         movlw   4
006C   0092           00063         movwf   CT1             ; uvolneni mista
006D                  00064 zapis:  
006D   0D90           00065         rlf     Ramec, f
006E   0B92           00066         decfsz  CT1, f
006F   286D           00067         goto    zapis
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  7


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

0070   0B91           00068         decfsz  volani, f
                      00069 
0071   2029           00070         call    Protokol
                      00071 
0072   2860           00072         goto    MainLoop
                      00073 
                      00074 
                      00075 ;----------------------------
                      00076 ; Definice promenych
                      00077 ;----------------------------
                      00078 
                      00079         cblock  
                      00080 
  00000011            00081         volani
  00000012            00082         CT1
                      00083 
                      00084         endc
                      00085 
                      00086         end
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  8


SYMBOL TABLE
  LABEL                             VALUE 

Bity                              0000000F
C1                                00000002
C2                                00000003
CMP                               
CT1                               00000012
Delay                             
Delay01                           
Delay10us                         0000000C
Delay1ms                          00000005
EEADR_0                           00000009
EECON1_1                          00000008
EECON2_1                          00000009
EEDATA_0                          00000008
FSR                               00000004
Frek                              0000000E
IND0                              00000000
INTCON                            0000000B
MainLoop                          00000060
PCL                               00000002
PCLATH                            0000000A
PORTA                             00000005
PORTB                             00000006
Protokol                          00000029
Ramec                             00000010
Rotace                            0000002F
SB                                
SC                                
SN                                
SNB                               
SNC                               
SNZ                               
SP                                
STATUS                            00000003
SZ                                
Sinchro                           00000017
Start                             0000004D
TMR0                              00000001
VysBit                            0000002C
_CARRY                            00000000
_DC                               00000001
_EEIE                             00000006
_EEIF                             00000004
_EERD                             00000000
_EEWR                             00000001
_EEWREN                           00000002
_EEWRERR                          00000003
_GIE                              00000007
_INTE                             00000004
_INTF                             00000001
_IRP                              00000007
_PD                               00000003
_RBIE                             00000003
_RBIF                             00000000
MPASM 02.80 Released             MAIN.ASM   8-9-2002  12:26:04         PAGE  9


SYMBOL TABLE
  LABEL                             VALUE 

_RP0                              00000005
_RP1                              00000006
_T0IE                             00000005
_T0IF                             00000002
_TO                               00000004
_ZERO                             00000002
__16C84__                         00000000
__16F84                           00000001
dal                               00000064
frek0                             00000033
frek1                             00000040
page0                             
page1                             
smycka1                           00000035
smycka2                           00000042
vibito                            0000006B
volani                            00000011
vys                               00000001
xxx                               0000000D
yyy                               0000000C
zapis                             0000006D


MEMORY USAGE MAP ('X' = Used,  '-' = Unused)

0000 : X---XXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
0040 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXX-------------

All other memory blocks unused.

Program Memory Words Used:   112
Program Memory Words Free:   912


Errors   :     0
Warnings :     0 reported,     0 suppressed
Messages :     0 reported,     0 suppressed