Subversion Repositories svnkaklik

Compare Revisions

No changes between revisions

Ignore whitespace Rev 5 → Rev 6

/programy/ASM/ir_blik/16C84.INC
0,0 → 1,102
;
; Definice registru a zakladnich maker pro 16C84
;
processor 16f84
radix D
 
__16C84__: ; Priznak modulu 16C84
 
; Definice registru
 
IND0 equ 00H ; 0&1 Pristup na neprimou adresu
TMR0 equ 01H ; 0 Real Time clock counter
PCL equ 02H ; 0&1 Spodni cast PC
STATUS equ 03H ; 0&1 Stavove bity
_CARRY equ 0
_DC equ 1
_ZERO equ 2
_PD equ 3
_TO equ 4
_RP0 equ 5
_RP1 equ 6
_IRP equ 7
FSR equ 04H ; 0&1 Ukazatel pro neprime adresovani
PORTA equ 05H ; 0&1 Data a rizeni portu A
PORTB equ 06H ; 0&1 Data a rizeni portu B
EEDATA_0 equ 08H ; 0 Data EEPROM
EECON1_1 equ 08H ; 1 Rizeni EEPROM
_EERD equ 0
_EEWR equ 1
_EEWREN equ 2
_EEWRERR equ 3
_EEIF equ 4
EEADR_0 equ 09H ; 0 Adresa EEPROM
EECON2_1 equ 09H ; 1 Aktivacni pseudoregistr
PCLATH equ 0AH ; 0&1 Horni cast PC pro move
INTCON equ 0BH ; 0&1 Rizeni preruseni
_RBIF equ 0 ;
_INTF equ 1
_T0IF equ 2
_RBIE equ 3
_INTE equ 4
_T0IE equ 5
_EEIE equ 6
_GIE equ 7
 
page0 macro
bcf STATUS,_RP0
endm
 
page1 macro
bsf STATUS,_RP0
endm
;
; Sada maker pro porovnani a skoky
;
 
;--- Compare ---
CMP macro ZNAK, PROCEDURA ; if W=ZNAK then goto PROCEDURA
xorlw ZNAK ; if W#ZNAK then zachovej W a neskakej
btfsc STATUS,_ZERO
goto PROCEDURA
xorlw ZNAK
endm
 
;--- Skip if Carry ---
SC macro
btfss STATUS,_CARRY
endm
 
;--- Skip if not Carry ---
SNC macro
btfsc STATUS,_CARRY
endm
 
;--- Skip if Zero ---
SZ macro
btfss STATUS,_ZERO
endm
 
;--- Skip if not Zero ---
SNZ macro
btfsc STATUS,_ZERO
endm
 
;--- Skip if Borrow ( Negative ) --- ( po odecitani )
SB macro
btsfsc STATUS,_CARRY
endm
SN macro
btfsc STATUS,_CARRY
endm
 
;--- Skip if not Borrow ( Positive ) --- ( po odecitani )
SNB macro
btfss STATUS,_CARRY
endm
SP macro
btfss STATUS,_CARRY
endm
 
cblock 0CH ; Prvni volny registr
endc
/programy/ASM/ir_blik/DELAY.$$$
0,0 → 1,50
;--- Macro na spozdeni 1ms az 255ms ---
Delay macro ms
movlw ms
movwf xxx
call Delay1ms
endm
 
;--- Spozdeni v nasobcich 1.002ms ----
Jednou:
nop
Delay1ms:
movlw 99 ; 1 ms
movwf yyy ; goto 2 takty decfsz 1 kdyz 1 jinak 2
call us10
 
decfsz xxx, f
goto Jednou
;---------------------------------
return ;2us
 
;--- Spozdeni v nasobcich 10us ----
us10: ; Prodleva (yyy * 10us)+3us
nop
nop
nop
nop
nop
nop
decfsz yyy, f
goto us10
nop
nop
nop
nop
nop
return
;-------------------------
 
;----------------------------
; Definice promenych
;----------------------------
 
cblock
 
yyy
xxx
 
endc
 
/programy/ASM/ir_blik/OVLAD.$$$
0,0 → 1,75
#include 16C84.INC
 
org 0
 
goto Start
;--------------------
org 4
;--------------------
goto Start
 
#include Delay.asm
Start:
page1
movlw 00000000B ; inicializace citace a prescaleru
movwf TMR0
movlw 00000000B ; konfigurace preruseni
movwf INTCON
 
page1
movlw 00000000B ; nastaveni portu na vstup nebo vystup
movwf PORTA ; 1=vstup 0=vystup
movlw 01000011B
movwf PORTB
 
bsf TMR0, 7 ; vypni pull-up na PORTB (OPTION registr)
 
page0
 
clrw ; vynulovani portu
movwf PORTA
movwf PORTB
 
MainLoop:
bsf PORTB, 3 ; Pridrz napajeni
bsf PORTB, 4
bsf PORTA, 3 ;Rozsvit LED
Delay 250ms
 
bcf PORTA, 3 ;Zhasni LED
 
Delay 250ms
 
 
bcf PORTA, 2
bcf PORTA, 1
smycka:
btfss PORTB, 0
goto LEDon
goto smycka
LEDon:
bsf PORTA, 3 ;Rozsvit LED
Delay 250ms
bcf PORTA, 3 ;Zhasni LED
Delay 250ms
goto smycka
;---------------
 
 
 
 
 
;----------------------------
; Definice promenych
;----------------------------
 
cblock
 
CT1
CT2
 
endc
 
end
/programy/ASM/ir_blik/OVLAD.BKX
0,0 → 1,8
:020000000428D2
:08000800831600308100003076
:100010008B008316003085004330860081178312E1
:100020000301850086008615061685152320851197
:10003000232005118510061C1E281B28851523204A
:10004000851123201B28FF308C008D008C0B262867
:060050008D0B26280800BC
:00000001FF
/programy/ASM/ir_blik/OVLAD.COD
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/ASM/ir_blik/OVLAD.ERR
--- OVLAD.HEX (nonexistent)
+++ OVLAD.HEX (revision 6)
@@ -0,0 +1,11 @@
+:020000001A28BC
+:080008001A28000063308C008F
+:100010000C208D0B052808000000000000000000E7
+:10002000000000008C0B0C28000000000000000005
+:100030000000080083160030810000308B0083161A
+:10004000003085004330860081178312030185004C
+:100050008600861506168515FA308D000620851156
+:10006000FA308D00062005118510061C3828352829
+:100070008515FA308D0006208511FA308D00062096
+:02008000352821
+:00000001FF
/programy/ASM/ir_blik/OVLAD.LST
0,0 → 1,361
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 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 OVLAD.ASM 7-12-2002 20:18:51 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
0000 00003 org 0
00004
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 PAGE 3
 
 
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
 
0000 281A 00005 goto Start
00006 ;--------------------
0004 00007 org 4
00008 ;--------------------
0004 281A 00009 goto Start
00010
00011 #include Delay.asm
00001 ;--- Macro na spozdeni 1ms az 255ms ---
00002 Delay macro _ms
00003 movlw _ms
00004 movwf xxx
00005 call Delay1ms
00006 endm
00007
00008 ;--- Spozdeni v nasobcich 1.002ms ----
0005 00009 Jednou:
0005 0000 00010 nop
0006 00011 Delay1ms:
0006 3063 00012 movlw 99 ; 1 ms
0007 008C 00013 movwf yyy ; goto 2 takty decfsz 1 kdyz 1 jinak 2
0008 200C 00014 call us10
00015
0009 0B8D 00016 decfsz xxx, f
000A 2805 00017 goto Jednou
00018 ;---------------------------------
000B 0008 00019 return ;2us
00020
00021 ;--- Spozdeni v nasobcich 10us ----
000C 00022 us10: ; Prodleva (yyy * 10us)+3us
00023
000C 0000 00024 nop
000D 0000 00025 nop
000E 0000 00026 nop
000F 0000 00027 nop
0010 0000 00028 nop
0011 0000 00029 nop
0012 0B8C 00030 decfsz yyy, f
0013 280C 00031 goto us10
0014 0000 00032 nop
0015 0000 00033 nop
0016 0000 00034 nop
0017 0000 00035 nop
0018 0000 00036 nop
0019 0008 00037 return
00038 ;-------------------------
00039
00040 ;----------------------------
00041 ; Definice promenych
00042 ;----------------------------
00043
00044 cblock
00045
0000000C 00046 yyy
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 PAGE 4
 
 
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
 
0000000D 00047 xxx
00048
00049 endc
00050
00012
001A 00013 Start:
00014 page1
001A 1683 M bsf STATUS,_RP0
001B 3000 00015 movlw 00000000B ; inicializace citace a prescaleru
001C 0081 00016 movwf TMR0
001D 3000 00017 movlw 00000000B ; konfigurace preruseni
001E 008B 00018 movwf INTCON
00019
00020 page1
001F 1683 M bsf STATUS,_RP0
0020 3000 00021 movlw 00000000B ; nastaveni portu na vstup nebo vystup
0021 0085 00022 movwf PORTA ; 1=vstup 0=vystup
0022 3043 00023 movlw 01000011B
0023 0086 00024 movwf PORTB
00025
0024 1781 00026 bsf TMR0, 7 ; vypni pull-up na PORTB (OPTION registr)
00027
00028 page0
0025 1283 M bcf STATUS,_RP0
00029
0026 0103 00030 clrw ; vynulovani portu
0027 0085 00031 movwf PORTA
0028 0086 00032 movwf PORTB
00033
0029 00034 MainLoop:
0029 1586 00035 bsf PORTB, 3 ; Pridrz napajeni
002A 1606 00036 bsf PORTB, 4
002B 1585 00037 bsf PORTA, 3 ;Rozsvit LED
00038
00039 Delay 250
002C 30FA M movlw 250
002D 008D M movwf xxx
002E 2006 M call Delay1ms
00040
002F 1185 00041 bcf PORTA, 3 ;Zhasni LED
00042
00043 Delay 250
0030 30FA M movlw 250
0031 008D M movwf xxx
0032 2006 M call Delay1ms
00044
00045
0033 1105 00046 bcf PORTA, 2
0034 1085 00047 bcf PORTA, 1
0035 00048 smycka:
0035 1C06 00049 btfss PORTB, 0
0036 2838 00050 goto LEDon
0037 2835 00051 goto smycka
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 PAGE 5
 
 
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
 
0038 00052 LEDon:
0038 1585 00053 bsf PORTA, 3 ;Rozsvit LED
00054 Delay 250
0039 30FA M movlw 250
003A 008D M movwf xxx
003B 2006 M call Delay1ms
003C 1185 00055 bcf PORTA, 3 ;Zhasni LED
00056 Delay 250
003D 30FA M movlw 250
003E 008D M movwf xxx
003F 2006 M call Delay1ms
0040 2835 00057 goto smycka
00058 ;---------------
00059
00060
00061
00062
00063
00064 ;----------------------------
00065 ; Definice promenych
00066 ;----------------------------
00067
00068 cblock
00069
0000000E 00070 CT1
0000000F 00071 CT2
00072
00073 endc
00074
00075 end
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 PAGE 6
 
 
SYMBOL TABLE
LABEL VALUE
 
CMP
CT1 0000000E
CT2 0000000F
Delay
Delay1ms 00000006
EEADR_0 00000009
EECON1_1 00000008
EECON2_1 00000009
EEDATA_0 00000008
FSR 00000004
IND0 00000000
INTCON 0000000B
Jednou 00000005
LEDon 00000038
MainLoop 00000029
PCL 00000002
PCLATH 0000000A
PORTA 00000005
PORTB 00000006
SB
SC
SN
SNB
SNC
SNZ
SP
STATUS 00000003
SZ
Start 0000001A
TMR0 00000001
_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
_RP0 00000005
_RP1 00000006
_T0IE 00000005
_T0IF 00000002
_TO 00000004
_ZERO 00000002
__16C84__ 00000000
__16F84 00000001
MPASM 02.80 Released OVLAD.ASM 7-12-2002 20:18:51 PAGE 7
 
 
SYMBOL TABLE
LABEL VALUE
 
page0
page1
smycka 00000035
us10 0000000C
xxx 0000000D
yyy 0000000C
 
 
MEMORY USAGE MAP ('X' = Used, '-' = Unused)
 
0000 : X---XXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
0040 : X--------------- ---------------- ---------------- ----------------
 
All other memory blocks unused.
 
Program Memory Words Used: 62
Program Memory Words Free: 962
 
 
Errors : 0
Warnings : 0 reported, 0 suppressed
Messages : 0 reported, 0 suppressed
 
/programy/ASM/ir_blik/PRG.BAT
0,0 → 1,9
@echo off
picpgr reset PIC16F84
picpgr erase PIC16F84
cls
picpgr program ovlad.hex hex PIC16f84 XT_ON PWRTE_ON WDTE_OFF CP_OFF
picpgr run
pause
picpgr stop
pause
/programy/ASM/ir_blik/PRG.PIF
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/ASM/ir_blik/RUN.PIF
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/ASM/ir_blik/delay.asm
0,0 → 1,50
;--- Macro na spozdeni 1ms az 255ms ---
Delay macro _ms
movlw _ms
movwf xxx
call Delay1ms
endm
 
;--- Spozdeni v nasobcich 1.002ms ----
Jednou:
nop
Delay1ms:
movlw 99 ; 1 ms
movwf yyy ; goto 2 takty decfsz 1 kdyz 1 jinak 2
call us10
 
decfsz xxx, f
goto Jednou
;---------------------------------
return ;2us
 
;--- Spozdeni v nasobcich 10us ----
us10: ; Prodleva (yyy * 10us)+3us
nop
nop
nop
nop
nop
nop
decfsz yyy, f
goto us10
nop
nop
nop
nop
nop
return
;-------------------------
 
;----------------------------
; Definice promenych
;----------------------------
 
cblock
 
yyy
xxx
 
endc
 
/programy/ASM/ir_blik/ovlad.asm
0,0 → 1,75
#include 16C84.INC
 
org 0
 
goto Start
;--------------------
org 4
;--------------------
goto Start
 
#include Delay.asm
Start:
page1
movlw 00000000B ; inicializace citace a prescaleru
movwf TMR0
movlw 00000000B ; konfigurace preruseni
movwf INTCON
 
page1
movlw 00000000B ; nastaveni portu na vstup nebo vystup
movwf PORTA ; 1=vstup 0=vystup
movlw 01000011B
movwf PORTB
 
bsf TMR0, 7 ; vypni pull-up na PORTB (OPTION registr)
 
page0
 
clrw ; vynulovani portu
movwf PORTA
movwf PORTB
 
MainLoop:
bsf PORTB, 3 ; Pridrz napajeni
bsf PORTB, 4
bsf PORTA, 3 ;Rozsvit LED
Delay 250
 
bcf PORTA, 3 ;Zhasni LED
 
Delay 250
 
 
bcf PORTA, 2
bcf PORTA, 1
smycka:
btfss PORTB, 0
goto LEDon
goto smycka
LEDon:
bsf PORTA, 3 ;Rozsvit LED
Delay 250
bcf PORTA, 3 ;Zhasni LED
Delay 250
goto smycka
;---------------
 
 
 
 
 
;----------------------------
; Definice promenych
;----------------------------
 
cblock
 
CT1
CT2
 
endc
 
end
/programy/ASM/ir_blik/ovlad.pjt
0,0 → 1,85
[PROJECT]
Target=OVLAD.HEX
Development_Mode=1
Processor=0x684a
ToolSuite=Microchip
 
[Fuses]
Frequency=4000000.000000
ClockSource=1
Mode=0
WDTEnable=0
WDTBreak=0
WDTPrescale=710
StackBreak=0
Freeze=1
EmulatorMemory=1
ShortWrites=0
PwrSetting=0
OSC_Settings=0
ProgBankRegEnable=0
BankRegStartAddress=0
BankRegEndAddress=0
DisableIoPins=0
12CXXX_MCLR_ENABLE=0
CPP2_ENABLE=0
LPSC_ENABLE=0
MCLRPU_ENABLE=0
 
[Directories]
Include=.
Library=
LinkerScript=
 
[Target Data]
FileList=OVLAD.ASM;
BuildTool=MPASM
OptionString=
AdditionalOptionString=
BuildRequired=0
 
[OVLAD.ASM]
Type=4
Path=
FileList=
BuildTool=
OptionString=
AdditionalOptionString=
 
[Trace-Config]
GetAddress=1
AddressWidth=5.000000
GetOpcode=1
OpcodeWidth=5.000000
GetLabel=1
LabelWidth=8.000000
GetInstruction=1
InstructionWidth=10.000000
InstructionRaw=1
GetSrcAddr=1
SrcAddrWidth=4.000000
SrcAddrRaw=1
GetSrcValue=1
SrcValueWidth=4.000000
GetDstAddr=1
DstAddrWidth=4.000000
DstAddrRaw=1
GetDstValue=1
DstValueWidth=4.000000
GetExtInputs=1
ExtInputsWidth=9.000000
ExtInputsHexFmt=0
GetTimeStamp=1
TimeStampWidth=11.000000
TimeStampDiplay=0
TraceLines=100
TraceFull=0
CodeCoverageReset=0
 
[mru-list]
1=d:\@kaklik\programy\ir_blik\delay.asm
2=d:\@kaklik\programy\ir_blik\ovlad.asm
3=d:\@kaklik\programy\prenos\main.asm
4=d:\@kaklik\programy\prenos\servo.asm
5=d:\@kaklik\programy\ØÍzenÍ~1\chodba\main2.asm
 
/programy/ASM/ir_blik/run.BAT
0,0 → 1,4
@echo off
picpgr run
pause
picpgr stop
/programy/ASM/ir_blik/vssver.scc
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property