GRIX.IT FORUM - AIUTO MODIFICARE ASSEMBLER MASM su Pic Micro

FORUM: Pic Micro
Tutto quanto riguarda questi microprocessori... progetti, suggerimenti, aiuti, discussioni...ecc

	AIUTO MODIFICARE ASSEMBLER MASM

Autore

Messaggio

opzioni

cavallo_leo

postato il:
09.01.2021, alle ore 14:13

AIUTO MODIFICARE ASSEMBLER MASM

MI POTREBBE, PER FAVORE MODIFICARE IL PROGRMMA (ASSEMBLER MASM)
DELLA MIA STELLA DI NATALE DI MODO CHE LAMPEGGI PIU VELOCE.
IO NON SONO IN GRADO MASM DI FARLO... GRAZIE A TUTTI

VIDEO DELLA MIA STELLA: https://imgur.com/a/WweARMO

LINK: http://www.grix.it/viewer.php?page=8814

FILE MASM: http://www.grix.it/UserFiles/mard80/File/file%20parsic.r…

ASSEMBLER PROGRAMMA MASM:

; Source created with Parsic Version 3.x

; at : 03/11/2010 8.04.10

; Project File : C:\Documents and Settings\MARD\Desktop\stellla.pic

; Project Version : 1.0.30

; Created : 14/09/2010 21.06.00

; Last change : 03/11/2010 8.03.32

PROCESSOR 16F84A

INCLUDE P16F84A.INC

RADIX DEC

__IDLOCS H'0100'

__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _XT_OSC

; Diverses

ZERO EQU Z ; ZERO-Flag
CARRY EQU C ; CARRY-Flag

; Variable

SYS_WSAV = 12 ; located in Bank 0, 1
SYS_SSAV = 13 ; located in Bank 0, 1
TR1 = 14 ; located in Bank 0, 1
TR1_HI = 15 ; located in Bank 0, 1
S2 = 16 ; located in Bank 0, 1
S0 = 17 ; located in Bank 0, 1
SYS_TMP1 = 18 ; located in Bank 0, 1
SYS_TMP2 = 19 ; located in Bank 0, 1
ZR1 = 20 ; located in Bank 0, 1
ZR1_FD = 21 ; located in Bank 0, 1
S1 = 22 ; located in Bank 0, 1
RAM = 23 ; located in Bank 0, 1

ERRORLEVEL -302 ; disable warning (Bankswitching)
ERRORLEVEL -306 ; disable warning (Pageswitching)

;****************************************
;Programmanfang
;****************************************

ORG 0

CLRF STATUS ; switch to RAM-Bank 0
GOTO SYS_INIT
NOP
NOP

;****************************************
;Interrupt-Adress
;****************************************

MOVWF SYS_WSAV ; save register
SWAPF STATUS,W
CLRF STATUS ; bank 0
MOVWF SYS_SSAV

BCF INTCON,T0IF ; Interrupt quitieren

INCFSZ TR1,F
GOTO SYS_INT_LABEL_0
INCF TR1_HI,F

SYS_INT_LABEL_0

EXITINT

SWAPF SYS_SSAV,W ; Register zurück
MOVWF STATUS
SWAPF SYS_WSAV,F
SWAPF SYS_WSAV,W

RETFIE

;****************************************
; Subroutines
;****************************************

;****************************************
; Direct jump into a table
;****************************************

SYSTABJMP
BCF INTCON,GIE
BTFSC INTCON,GIE
GOTO SYSTABJMP
MOVFW SYS_TMP2
MOVWF PCLATH
MOVFW SYS_TMP1
MOVWF PCL

;****************************************
;Initialisierung
;****************************************

SYS_INIT

MOVLW B'00100000'
MOVWF INTCON

; Set output before direction

BCF STATUS,RP0 ; Bank 0
MOVLW B'00000000'
MOVWF PORTA

MOVLW B'00000000'
MOVWF PORTB

MOVLW 15
BSF STATUS,RP0 ; Bank 1
MOVWF OPTION_REG

; Richtung setzen

MOVLW B'11110000'
MOVWF TRISA

MOVLW B'00000000'
MOVWF TRISB

; init vars

; Clear RAM

MOVLW 12
MOVWF FSR
CR1
CLRF INDF
INCF FSR,F
MOVFW FSR
SUBLW 80
BTFSS STATUS,ZERO
GOTO CR1

BCF STATUS,RP0 ; Bank 0
CLRF TMR0
BCF INTCON,T0IF
BSF INTCON,GIE ; Interrupt freigeben

;**********************************
;******* Haupt-Programm ***********
;**********************************

MAIN

;***************************************************
; Timer -> TR1
;***************************************************

MOVLW 19 ; Test auf >=
SUBWF TR1_HI,W ;F-W -> W
BTFSS STATUS,ZERO
GOTO LABEL_TR1_CHECK
MOVLW 19
SUBWF TR1,W ;F-W -> W
LABEL_TR1_CHECK
BTFSS STATUS,CARRY
GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
MOVLW 19 ; Test auf >=
SUBWF TR1_HI,F ;F-W -> F
MOVLW 19
SUBWF TR1,F ;F-W -> F
BTFSS STATUS,CARRY
DECF TR1_HI,F

LABEL_TR1_SET ; toggel output
BTFSC S2,0
GOTO LABEL_TR1_CLR
BSF S2,0
GOTO LABEL_TR1_ENDE
LABEL_TR1_CLR
BCF S2,0
LABEL_TR1_ENDE

;***************************************************
; Call subroutine NO
;***************************************************

MOVLW LOW NO
MOVWF SYS_TMP1
MOVLW HIGH NO
MOVWF SYS_TMP2

MOVFW ZR1
ADDWF SYS_TMP1,F
BTFSC STATUS,CARRY
INCF SYS_TMP2,F

CALL SYSTABJMP

MOVWF S0

BSF INTCON,GIE
;***************************************************
; Zähler -> ZR1
;***************************************************

BTFSS S2,1 ; Reset ?
GOTO LABEL_ZR1_COUNT
CLRF ZR1
GOTO LABEL_ZR1_SETOUT

LABEL_ZR1_COUNT

; Test auf positive Flanke

BTFSC ZR1_FD,0
GOTO LABEL_ZR1_SETFD
BTFSS S2,0
GOTO LABEL_ZR1_SETFD

INCF ZR1,F

LABEL_ZR1_SETOUT

LABEL_ZR1_SETFD

BTFSS S2,0
GOTO LABEL_ZR1_SETFD2
BSF ZR1_FD,0
GOTO LABEL_ZR1_END
LABEL_ZR1_SETFD2
BCF ZR1_FD,0
LABEL_ZR1_END

;***************************************************
; Verteiler -> BV1
;***************************************************

BTFSC S0,0
GOTO LABEL_BV1_0
BCF STATUS,RP0 ; Bank 0
BCF PORTB,0
GOTO LABEL_BV1_0_END
LABEL_BV1_0
BCF STATUS,RP0 ; Bank 0
BSF PORTB,0
LABEL_BV1_0_END

;**********************************************

BTFSC S0,1
GOTO LABEL_BV1_1
BCF PORTB,1
GOTO LABEL_BV1_1_END
LABEL_BV1_1
BSF PORTB,1
LABEL_BV1_1_END

;**********************************************

BTFSC S0,2
GOTO LABEL_BV1_2
BCF PORTB,2
GOTO LABEL_BV1_2_END
LABEL_BV1_2
BSF PORTB,2
LABEL_BV1_2_END

;**********************************************

BTFSC S0,3
GOTO LABEL_BV1_3
BCF PORTB,3
GOTO LABEL_BV1_3_END
LABEL_BV1_3
BSF PORTB,3
LABEL_BV1_3_END

;**********************************************

BTFSC S0,4
GOTO LABEL_BV1_4
BCF PORTB,4
GOTO LABEL_BV1_4_END
LABEL_BV1_4
BSF PORTB,4
LABEL_BV1_4_END

;**********************************************

BTFSC S0,5
GOTO LABEL_BV1_5
BCF PORTB,5
GOTO LABEL_BV1_5_END
LABEL_BV1_5
BSF PORTB,5
LABEL_BV1_5_END

;**********************************************

BTFSC S0,6
GOTO LABEL_BV1_6
BCF PORTB,6
GOTO LABEL_BV1_6_END
LABEL_BV1_6
BSF PORTB,6
LABEL_BV1_6_END

;**********************************************

BTFSC S0,7
GOTO LABEL_BV1_7
BCF PORTB,7
GOTO LABEL_BV1_7_END
LABEL_BV1_7
BSF PORTB,7
LABEL_BV1_7_END

;**********************************************

;***************************************************
; Vergleich -> IF1
;***************************************************

MOVFW ZR1
SUBLW 101 ; K - W -> W

LABEL_IF1_CHECK
BTFSC STATUS,CARRY ; Test auf -> <
GOTO LABEL_IF1_FALSE

LABEL_IF1_TRUE
BSF S2,1
GOTO LABEL_IF1_EXIT

LABEL_IF1_FALSE
BCF S2,1

LABEL_IF1_EXIT
;***************************************************
; Verteiler -> BV2
;***************************************************

BTFSC S1,0
GOTO LABEL_BV2_0
BCF STATUS,RP0 ; Bank 0
BCF PORTA,0
GOTO LABEL_BV2_0_END
LABEL_BV2_0
BCF STATUS,RP0 ; Bank 0
BSF PORTA,0
LABEL_BV2_0_END

;**********************************************

BTFSC S1,1
GOTO LABEL_BV2_1
BCF PORTA,1
GOTO LABEL_BV2_1_END
LABEL_BV2_1
BSF PORTA,1
LABEL_BV2_1_END

;**********************************************

BTFSC S1,2
GOTO LABEL_BV2_2
BCF PORTA,2
GOTO LABEL_BV2_2_END
LABEL_BV2_2
BSF PORTA,2
LABEL_BV2_2_END

;**********************************************

BTFSC S1,3
GOTO LABEL_BV2_3
BCF PORTA,3
GOTO LABEL_BV2_3_END
LABEL_BV2_3
BSF PORTA,3
LABEL_BV2_3_END

;**********************************************

;***************************************************
; Call subroutine TAB
;***************************************************

MOVLW LOW TAB
MOVWF SYS_TMP1
MOVLW HIGH TAB
MOVWF SYS_TMP2

MOVFW ZR1
ADDWF SYS_TMP1,F
BTFSC STATUS,CARRY
INCF SYS_TMP2,F

CALL SYSTABJMP

MOVWF S1

BSF INTCON,GIE
;****************************************

GOTO MAIN

;***************************************************
; Table -> NO
;***************************************************

NO

RETLW 255 ; // INDEX 0
RETLW 0 ; // INDEX 1
RETLW 255 ; // INDEX 2
RETLW 0 ; // INDEX 3
RETLW 255 ; // INDEX 4
RETLW 0 ; // INDEX 5
RETLW 1 ; // INDEX 6
RETLW 3 ; // INDEX 7
RETLW 7 ; // INDEX 8
RETLW 15 ; // INDEX 9
RETLW 31 ; // INDEX 10
RETLW 63 ; // INDEX 11
RETLW 127 ; // INDEX 12
RETLW 255 ; // INDEX 13
RETLW 255 ; // INDEX 14
RETLW 255 ; // INDEX 15
RETLW 255 ; // INDEX 16
RETLW 255 ; // INDEX 17
RETLW 0 ; // INDEX 18
RETLW 255 ; // INDEX 19
RETLW 0 ; // INDEX 20
RETLW 255 ; // INDEX 21
RETLW 0 ; // INDEX 22
RETLW 255 ; // INDEX 23
RETLW 0 ; // INDEX 24
RETLW 255 ; // INDEX 25
RETLW 255 ; // INDEX 26
RETLW 255 ; // INDEX 27
RETLW 255 ; // INDEX 28
RETLW 127 ; // INDEX 29
RETLW 63 ; // INDEX 30
RETLW 31 ; // INDEX 31
RETLW 15 ; // INDEX 32
RETLW 7 ; // INDEX 33
RETLW 3 ; // INDEX 34
RETLW 1 ; // INDEX 35
RETLW 0 ; // INDEX 36
RETLW 255 ; // INDEX 37
RETLW 0 ; // INDEX 38
RETLW 255 ; // INDEX 39
RETLW 0 ; // INDEX 40
RETLW 255 ; // INDEX 41
RETLW 0 ; // INDEX 42
RETLW 85 ; // INDEX 43
RETLW 170 ; // INDEX 44
RETLW 85 ; // INDEX 45
RETLW 170 ; // INDEX 46
RETLW 85 ; // INDEX 47
RETLW 170 ; // INDEX 48
RETLW 0 ; // INDEX 49
RETLW 255 ; // INDEX 50
RETLW 0 ; // INDEX 51
RETLW 255 ; // INDEX 52
RETLW 0 ; // INDEX 53
RETLW 255 ; // INDEX 54
RETLW 0 ; // INDEX 55
RETLW 254 ; // INDEX 56
RETLW 253 ; // INDEX 57
RETLW 251 ; // INDEX 58
RETLW 247 ; // INDEX 59
RETLW 239 ; // INDEX 60
RETLW 223 ; // INDEX 61
RETLW 191 ; // INDEX 62
RETLW 127 ; // INDEX 63
RETLW 255 ; // INDEX 64
RETLW 255 ; // INDEX 65
RETLW 255 ; // INDEX 66
RETLW 255 ; // INDEX 67
RETLW 254 ; // INDEX 68
RETLW 253 ; // INDEX 69
RETLW 251 ; // INDEX 70
RETLW 247 ; // INDEX 71
RETLW 239 ; // INDEX 72
RETLW 223 ; // INDEX 73
RETLW 191 ; // INDEX 74
RETLW 127 ; // INDEX 75
RETLW 255 ; // INDEX 76
RETLW 255 ; // INDEX 77
RETLW 255 ; // INDEX 78
RETLW 255 ; // INDEX 79
RETLW 0 ; // INDEX 80
RETLW 255 ; // INDEX 81
RETLW 0 ; // INDEX 82
RETLW 255 ; // INDEX 83
RETLW 0 ; // INDEX 84
RETLW 255 ; // INDEX 85
RETLW 0 ; // INDEX 86
RETLW 251 ; // INDEX 87
RETLW 247 ; // INDEX 88
RETLW 239 ; // INDEX 89
RETLW 223 ; // INDEX 90
RETLW 189 ; // INDEX 91
RETLW 123 ; // INDEX 92
RETLW 247 ; // INDEX 93
RETLW 239 ; // INDEX 94
RETLW 223 ; // INDEX 95
RETLW 191 ; // INDEX 96
RETLW 126 ; // INDEX 97
RETLW 253 ; // INDEX 98
RETLW 251 ; // INDEX 99

;***************************************************
; Table -> TAB
;***************************************************

TAB

RETLW 15 ; // INDEX 0
RETLW 0 ; // INDEX 1
RETLW 15 ; // INDEX 2
RETLW 0 ; // INDEX 3
RETLW 15 ; // INDEX 4
RETLW 0 ; // INDEX 5
RETLW 0 ; // INDEX 6
RETLW 0 ; // INDEX 7
RETLW 0 ; // INDEX 8
RETLW 0 ; // INDEX 9
RETLW 0 ; // INDEX 10
RETLW 0 ; // INDEX 11
RETLW 0 ; // INDEX 12
RETLW 0 ; // INDEX 13
RETLW 1 ; // INDEX 14
RETLW 3 ; // INDEX 15
RETLW 7 ; // INDEX 16
RETLW 15 ; // INDEX 17
RETLW 0 ; // INDEX 18
RETLW 15 ; // INDEX 19
RETLW 0 ; // INDEX 20
RETLW 15 ; // INDEX 21
RETLW 0 ; // INDEX 22
RETLW 15 ; // INDEX 23
RETLW 0 ; // INDEX 24
RETLW 7 ; // INDEX 25
RETLW 3 ; // INDEX 26
RETLW 1 ; // INDEX 27
RETLW 0 ; // INDEX 28
RETLW 0 ; // INDEX 29
RETLW 0 ; // INDEX 30
RETLW 0 ; // INDEX 31
RETLW 0 ; // INDEX 32
RETLW 0 ; // INDEX 33
RETLW 0 ; // INDEX 34
RETLW 0 ; // INDEX 35
RETLW 0 ; // INDEX 36
RETLW 15 ; // INDEX 37
RETLW 0 ; // INDEX 38
RETLW 15 ; // INDEX 39
RETLW 0 ; // INDEX 40
RETLW 15 ; // INDEX 41
RETLW 0 ; // INDEX 42
RETLW 5 ; // INDEX 43
RETLW 10 ; // INDEX 44
RETLW 5 ; // INDEX 45
RETLW 10 ; // INDEX 46
RETLW 5 ; // INDEX 47
RETLW 10 ; // INDEX 48
RETLW 0 ; // INDEX 49
RETLW 15 ; // INDEX 50
RETLW 0 ; // INDEX 51
RETLW 15 ; // INDEX 52
RETLW 0 ; // INDEX 53
RETLW 15 ; // INDEX 54
RETLW 0 ; // INDEX 55
RETLW 15 ; // INDEX 56
RETLW 15 ; // INDEX 57
RETLW 15 ; // INDEX 58
RETLW 15 ; // INDEX 59
RETLW 15 ; // INDEX 60
RETLW 15 ; // INDEX 61
RETLW 15 ; // INDEX 62
RETLW 15 ; // INDEX 63
RETLW 14 ; // INDEX 64
RETLW 13 ; // INDEX 65
RETLW 75 ; // INDEX 66
RETLW 71 ; // INDEX 67
RETLW 15 ; // INDEX 68
RETLW 15 ; // INDEX 69
RETLW 15 ; // INDEX 70
RETLW 15 ; // INDEX 71
RETLW 15 ; // INDEX 72
RETLW 15 ; // INDEX 73
RETLW 15 ; // INDEX 74
RETLW 15 ; // INDEX 75
RETLW 14 ; // INDEX 76
RETLW 13 ; // INDEX 77
RETLW 11 ; // INDEX 78
RETLW 7 ; // INDEX 79
RETLW 0 ; // INDEX 80
RETLW 15 ; // INDEX 81
RETLW 0 ; // INDEX 82
RETLW 15 ; // INDEX 83
RETLW 0 ; // INDEX 84
RETLW 15 ; // INDEX 85
RETLW 0 ; // INDEX 86
RETLW 14 ; // INDEX 87
RETLW 13 ; // INDEX 88
RETLW 11 ; // INDEX 89
RETLW 7 ; // INDEX 90
RETLW 15 ; // INDEX 91
RETLW 15 ; // INDEX 92
RETLW 14 ; // INDEX 93
RETLW 13 ; // INDEX 94
RETLW 11 ; // INDEX 95
RETLW 7 ; // INDEX 96
RETLW 15 ; // INDEX 97
RETLW 14 ; // INDEX 98
RETLW 13 ; // INDEX 99

END

cavallo_leo

postato il:
09.01.2021, alle ore 14:14

UNA STELLA NATALIZIA COMANDATA DA UNA PIC 16F84A

gianmagna

postato il:
09.01.2021, alle ore 14:56

se hai un quarzo da 8 Mhz lo metti al posto di quello da 4Mhz e già gira al doppio

Gianmagna

Aforisma di Albert Einstein
La teoria è quando si sa tutto e niente funziona. La pratica è quando tutto funziona e nessuno sa il perchè. Noi abbiamo messo insieme la teoria e la pratica: non c'è niente che funzioni... e nessuno sa il perchè

gianmagna

postato il:
09.01.2021, alle ore 16:15

ciao Leo
ho ritrovato una vecchia versione del parsic proverò ,sempre se mi ricordo come
si fa, a mettere a 1500ms al posto dei 2500ms poi ti mando il file hex

GioRock

postato il:
09.01.2021, alle ore 17:12

Il codice da modificare è questo:

[CODE];***************************************************
; Timer -> TR1
;***************************************************

MOVLW 19 ; Test auf >=
SUBWF TR1_HI,W ;F-W -> W
BTFSS STATUS,ZERO
GOTO LABEL_TR1_CHECK
MOVLW 19
SUBWF TR1,W ;F-W -> W
LABEL_TR1_CHECK
BTFSS STATUS,CARRY
GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
MOVLW 19 ; Test auf >=
SUBWF TR1_HI,F ;F-W -> F
MOVLW 19
SUBWF TR1,F ;F-W -> F
BTFSS STATUS,CARRY
DECF TR1_HI,F[CODE]

Bisogna diminuire MOVLW 19 per ridurre il tempo, tipo:

[CODE];***************************************************
; Timer -> TR1
;***************************************************

MOVLW 4 ; Test auf >=
SUBWF TR1_HI,W ;F-W -> W
BTFSS STATUS,ZERO
GOTO LABEL_TR1_CHECK
MOVLW 4
SUBWF TR1,W ;F-W -> W
LABEL_TR1_CHECK
BTFSS STATUS,CARRY
GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
MOVLW 4 ; Test auf >=
SUBWF TR1_HI,F ;F-W -> F
MOVLW 4
SUBWF TR1,F ;F-W -> F
BTFSS STATUS,CARRY
DECF TR1_HI,F[/CODE]

Gio

GioRock

postato il:
09.01.2021, alle ore 17:15

Non serve ne MASM per WINDOWS ne PARSIC, ma MPASM per PIC, qui il file HEX:

:020000040000FA
:1000000083011828000000008C00030E83018D007E
:100010000B118E0F0C288F0A0D0E83008C0E0C0E08
:1000200009008B138B1B112813088A001208820009
:1000300020308B00831200308500003086000F30A6
:1000400083168100F0308500003086000C3084007B
:100050008001840A0408503C031D28288312810172
:100060000B118B1701300F02031D382801300E02CF
:10007000031C452801308F0201308E02031C8F03C0
:1000800010184428101445281010B1309200003088
:100090009300140892070318930A112091008B17FC
:1000A000901C54289401592815185928101C5928B7
:1000B000940A101C5D2815145E2815101118632869
:1000C0008312061065288312061491186928861079
:1000D0006A28861411196E2806116F2806159119C1
:1000E0007328861174288615111A78280612792823
:1000F0000616911A7D2886127E288616111B8228E4
:10010000061383280617911B8728861388288617CD
:100110001408653C03188E2890148F289010161828
:1001200094288312051096288312051496189A288D
:1001300085109B28851416199F280511A0280515E0
:100140009619A4288511A52885151530920001302F
:100150009300140892070318930A112096008B1736
:100160003228FF340034FF340034FF3400340134CB
:10017000033407340F341F343F347F34FF34FF34EB
:10018000FF34FF34FF340034FF340034FF340034D4
:10019000FF340034FF34FF34FF34FF347F343F3406
:1001A0001F340F340734033401340034FF34003477
:1001B000FF340034FF3400345534AA345534AA34A3
:1001C0005534AA340034FF340034FF340034FF3493
:1001D0000034FE34FD34FB34F734EF34DF34BF3405
:1001E0007F34FF34FF34FF34FF34FE34FD34FB34FE
:1001F000F734EF34DF34BF347F34FF34FF34FF345F
:10020000FF340034FF340034FF340034FF34003452
:10021000FB34F734EF34DF34BD347B34F734EF3460
:10022000DF34BF347E34FD34FB340F3400340F34FC
:1002300000340F340034003400340034003400340F
:100240000034003400340134033407340F340034F4
:100250000F3400340F3400340F34003407340334C7
:1002600001340034003400340034003400340034ED
:10027000003400340F3400340F3400340F340034B1
:1002800005340A3405340A3405340A3400340F3492
:1002900000340F3400340F3400340F340F340F3473
:1002A0000F340F340F340F340F340E340D344B34FD
:1002B00047340F340F340F340F340F340F340F34EE
:1002C0000F340E340D340B34073400340F34003443
:1002D0000F3400340F3400340E340D340B34073433
:1002E0000F340F340E340D340B3407340F340E3406
:0202F0000D34CB
:0402F20000340034A0
:084000000000010000000000B7
:02400E00F13F80
:00000001FF

Gio

cavallo_leo

postato il:
09.01.2021, alle ore 17:21

gianmagna:
ciao Leo
ho ritrovato una vecchia versione del parsic proverò ,sempre se mi ricordo come
si fa, a mettere a 1500ms al posto dei 2500ms poi ti mando il file hex

Io ho quarzo da 4mhz.. scambiare 8 mhz quale rischio??

cavallo_leo

postato il:
09.01.2021, alle ore 17:22

cavallo_leo:

gianmagna:
ciao Leo
ho ritrovato una vecchia versione del parsic proverò ,sempre se mi ricordo come
si fa, a mettere a 1500ms al posto dei 2500ms poi ti mando il file hex

Io ho quarzo da 4mhz.. scambiare 8 mhz quale rischio??

mi puo mandare email mich_zoff@alice.it

cavallo_leo

postato il:
09.01.2021, alle ore 17:27

GioRock:
Il codice da modificare è questo:

;***************************************************
; Timer -> TR1
;***************************************************

MOVLW 19 ; Test auf >=
SUBWF TR1_HI,W ;F-W -> W
BTFSS STATUS,ZERO
GOTO LABEL_TR1_CHECK
MOVLW 19
SUBWF TR1,W ;F-W -> W
LABEL_TR1_CHECK
BTFSS STATUS,CARRY
GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
MOVLW 19 ; Test auf >=
SUBWF TR1_HI,F ;F-W -> F
MOVLW 19
SUBWF TR1,F ;F-W -> F
BTFSS STATUS,CARRY
DECF TR1_HI,F[CODE]

Bisogna diminuire MOVLW 19 per ridurre il tempo, tipo:

[CODE];***************************************************
; Timer -> TR1
;***************************************************

MOVLW 4 ; Test auf >=
SUBWF TR1_HI,W ;F-W -> W
BTFSS STATUS,ZERO
GOTO LABEL_TR1_CHECK
MOVLW 4
SUBWF TR1,W ;F-W -> W
LABEL_TR1_CHECK
BTFSS STATUS,CARRY
GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
MOVLW 4 ; Test auf >=
SUBWF TR1_HI,F ;F-W -> F
MOVLW 4
SUBWF TR1,F ;F-W -> F
BTFSS STATUS,CARRY
DECF TR1_HI,F[/CODE]

GRAZ

GioRock:
Non serve ne MASM per WINDOWS ne PARSIC, ma MPASM per PIC, qui il file HEX:

[code]:020000040000FA
:1000000083011828000000008C00030E83018D007E
:100010000B118E0F0C288F0A0D0E83008C0E0C0E08
:1000200009008B138B1B112813088A001208820009
:1000300020308B00831200308500003086000F30A6
:1000400083168100F0308500003086000C3084007B
:100050008001840A0408503C031D28288312810172
:100060000B118B1701300F02031D382801300E02CF
:10007000031C452801308F0201308E02031C8F03C0
:1000800010184428101445281010B1309200003088
:100090009300140892070318930A112091008B17FC
:1000A000901C54289401592815185928101C5928B7
:1000B000940A101C5D2815145E2815101118632869
:1000C0008312061065288312061491186928861079
:1000D0006A28861411196E2806116F2806159119C1
:1000E0007328861174288615111A78280612792823
:1000F0000616911A7D2886127E288616111B8228E4
:10010000061383280617911B8728861388288617CD
:100110001408653C03188E2890148F289010161828
:1001200094288312051096288312051496189A288D
:1001300085109B28851416199F280511A0280515E0
:100140009619A4288511A52885151530920001302F
:100150009300140892070318930A112096008B1736
:100160003228FF340034FF340034FF3400340134CB
:10017000033407340F341F343F347F34FF34FF34EB
:10018000FF34FF34FF340034FF340034FF340034D4
:10019000FF340034FF34FF34FF34FF347F343F3406
:1001A0001F340F340734033401340034FF34003477
:1001B000FF340034FF3400345534AA345534AA34A3
:1001C0005534AA340034FF340034FF340034FF3493
:1001D0000034FE34FD34FB34F734EF34DF34BF3405
:1001E0007F34FF34FF34FF34FF34FE34FD34FB34FE
:1001F000F734EF34DF34BF347F34FF34FF34FF345F
:10020000FF340034FF340034FF340034FF34003452
:10021000FB34F734EF34DF34BD347B34F734EF3460
:10022000DF34BF347E34FD34FB340F3400340F34FC
:1002300000340F340034003400340034003400340F
:100240000034003400340134033407340F340034F4
:100250000F3400340F3400340F34003407340334C7
:1002600001340034003400340034003400340034ED
:10027000003400340F3400340F3400340F340034B1
:1002800005340A3405340A3405340A3400340F3492
:1002900000340F3400340F3400340F340F340F3473
:1002A0000F340F340F340F340F340E340D344B34FD
:1002B00047340F340F340F340F340F340F340F34EE
:1002C0000F340E340D340B34073400340F34003443
:1002D0000F3400340F3400340E340D340B34073433
:1002E0000F340F340E340D340B3407340F340E3406
:0202F0000D34CB
:0402F20000340034A0
:084000000000010000000000B7
:02400E00F13F80
:00000001FF

GRAZIE, PROVERO'..

cavallo_leo

postato il:
10.01.2021, alle ore 14:44

x GioRock
GRAZIE MOLTO, ADESSO FUNZIONA BENE, DOVE HAI TROVATO IL PROGRAMMA PER CONVERTIRE DA ASM A HEX ?

SALUTI

segui questo thread con grixFC, per questa funzione devi aver installato il software grixFC

torna su

Come utente anonimo puoi leggere il contenuto di questo forum ma per aprire una discussione
o per partecipare ad una discussione esistente devi essere registrato ed accedere al sito

indietro | homepage | torna su