📄 1550-v01.lst
字号:
MPASM 4.00 Released 1550-V01.ASM 2-16-2006 11:00:59 PAGE 1
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00001 ; AL7.ASM: COME AL6.ASM. AGGIUSTATI I TEMPI DI BRUCIATURA
00002 ; AL6.ASM: RESETTA IL TIMER DI BRUCIATURA QUANDO LA LINEA TORNA A 1
00003 ; (ERRORE DELLA VERISONE AL5.ASM)
00004 ; BRUCIA A STEP DI 1 SEC E POI CONTROLLA LINEA PER SEI VOLTE
00005 ; DOPO AVER BRUCIATO, RICOLLEGA LINEA E LA MONITORIZZA:
00006 ; SE LINEA A 0, NON REPLICA (NON C'E' PIU' HW RESET)
00007 ; DOPO LA BRUCIATURA, ANCHE SE LINEA A 1, ASPETTA 5 SEC PRIMA DI
00008 ; TORNARE A REPLICARE
00009
00010
00011 ; AL3.ASM E' UGUALE A AL2.ASM: SONO STATE TOLTE DELLE ROUTINE INUTILI
00012 ; ALIMENTATORE DIGITALE --- AL2.ASM
00013 ; RISPETTO AD AL1.ASM, INTRODOTTA ROUTINE LAMPEGGIO LED
00014
00015
00016 ; SONO STATI INSERITE MOLTE ISRUZIONI "CLRWDT" PERCHE' IL PRESCALER
00017 ; E' ASSEGNATO AL TIMER ==> IL WDT DURA CIRCA 18 mSEC ;hardware watchtime 18ms
00018
Warning[205]: Found directive in column 1. (list)
00019 list c=120 , P=16C54
Warning[205]: Found directive in column 1. (__CONFIG)
0FFF 0FF5 00020 __CONFIG 0XFF5
00021
00022 ;==============ASSEGNAZIONI COSTANTI ====================
00023
00024
00025 ;DEST1 EQU .39 ; CODICE DESTINATARIO
00026 ;DEST2 EQU .15 ; CODICE DESTINATARIO
00027 ;CMD EQU .10 ; COMANDO
00028 ;COLL EQU 2 ; PER FLAG DI COLLISIONE
00029
00030 ;==============ASSEGNAZIONI REGISTRI ====================
00031 ;
00032
00000001 00033 RTCC EQU .1 ; REAL TIME COUNTER
00000003 00034 STATUS EQU .3 ; REG DI STATO
00000005 00035 PORTA EQU .5 ; PORTA
00000006 00036 PORTB EQU .6 ; PORTB
00000007 00037 FLAG EQU .7 ; REGISTRO DI FLAG
00000008 00038 C_TIM EQU .8 ; REGISTRO CONTEGGIO TEMPO
00000009 00039 FUSIB EQU .9 ; REGISTRO CONTEGGIO TEMPO PER BRUCIATURA FUSIBILE
0000000A 00040 CHKS EQU .10 ; REGISTRO PER CHECK SUM
0000000B 00041 CHECK EQU .11 ; REGISTRO PER CONTROLLO COLLISIONE LINEA
0000000C 00042 COUNT EQU .12 ; REGISTRO PER CONTEGGIO BIT DA TRASMETTERE
0000000D 00043 REG1 EQU .13 ; REGISTRO PER TRASMISSIONE BIT
0000000E 00044 REG2 EQU .14
0000000F 00045 MOMEN EQU .15
00046
00047
00048
00049 ;========ASSEGNAZIONE DEI BIT RELATIVI AL PORTB=============
00050
00000000 00051 RB0 EQU 0 ; NON UTILIZZATA
MPASM 4.00 Released 1550-V01.ASM 2-16-2006 11:00:59 PAGE 2
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00000001 00052 REL1 EQU 1 ; RELE' 35 VOLT
00000002 00053 TXP EQU 2 ; TRASMISSIONE DA PIC A PORTA
00000003 00054 RXP EQU 3 ; RICEZIONE DA PORTA A PIC
00000004 00055 RXM EQU 4 ; RICEZIONE DA MONTANTE A PIC
00000005 00056 TXM EQU 5 ; TRASMISSIONE DA PIC A MONTANTE
00000006 00057 REL2 EQU 6 ; RELE' CHE SGANCIA INTERFACCIA LINEA MONTANTE
00000007 00058 LED EQU 7 ; LED ALLARME MONTANTE GUASTO
00059
00060
00061 ;============ASSEGNAZIONE BIT DI USCITA PORTA==============
00062
00000000 00063 RA0 EQU 0 ; NON UTILIZZATA
00000001 00064 RA1 EQU 1 ; NON UTILIZZATA
00000002 00065 RA2 EQU 2 ; NON UTILIZZATA
00000003 00066 RA3 EQU 3 ; NON UTILIZZATA
00067
00068 ;===========================================================
00069 ; ASSEGNAZIONE FUNZIONE DEI FLAG LOGICI DEL PROGRAMMA
00070 ; AZZERATI ALL'ACCENSIONE
00071 ;===========================================================
00072 ; REGISTRO FLAG VERO =1 FALSO =0
00073 ;
00074 ; AZZERATO ALLA PARTENZA E DA OGNI RESET FREDDO
00075 ;
00076
00077
Warning[205]: Found directive in column 1. (ORG)
0000 00078 ORG 0
Warning[203]: Found opcode in column 1. (GOTO)
0000 0A44 00079 GOTO START
00080
00081 ;====================================================================
00082 ; LE ROUTINE DEVONO TROVARSI NELLA MEMORIA CHE
00083 ; VA DA 000 A 0FF (PRIMA SEMIPAGINA)
00084 ;====================================================================
00085
00086 ;====================================================================
00087 ; ROUTINE PER GENERARE 50 uSEC DI RITARDO A 4 MHz
00088 ;====================================================================
0001 0C09 00089 DEL50 MOVLW .9 ;1
0002 0A0C 00090 GOTO DELAY+1 ;2
00091
00092 ;====================================================================
00093 ; ROUTINE PER GENERARE 70 uSEC DI RITARDO A 4 MHz
00094 ;====================================================================
0003 0C0D 00095 DEL70 MOVLW .13
0004 0A0C 00096 GOTO DELAY+1
00097
00098 ;====================================================================
00099 ; ROUTINE PER GENERARE 88 uSEC DI RITARDO A 4 MHz
00100 ;====================================================================
0005 0C10 00101 DEL88 MOVLW .16
0006 0A0C 00102 GOTO DELAY+1
MPASM 4.00 Released 1550-V01.ASM 2-16-2006 11:00:59 PAGE 3
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00103
00104
00105 ;====================================================================
00106 ;2) RITARDO PER GENERAZIONE DI BAUD RATE BIT 1MS CIRCA @ 4MHz CLOCK
00107 ;====================================================================
00108 ;delay 208us,1/4 bit
00109 ;DEL250 MOVLW .38 ; delay 208 uS , 1/4 BIT
Warning[207]: Found label after column 1. (DEL250)
0007 0C28 00110 DEL250 MOVLW .40
0008 0A0C 00111 GOTO DELAY+1
00112 ;delay 416us,1/2 bit
00113
0009 0C52 00114 DELAY1 MOVLW .82 ;3) RITARDO PER GENERAZIONE DI
000A 0A0C 00115 GOTO DELAY+1 ;1/2 BIT .416 MS CIRCA @ 4MHz CLOCK
00116 ; delay 833us,1bit
00117
000B 0CA5 00118 DELAY MOVLW .165 ; SI CARICA IL REGISTRO MOMEN CON IL NUMERO
000C 002F 00119 MOVWF MOMEN ; NECESSARIO A REALIZZARE IL RITARDO PARI A
000D 0000 00120 RPT NOP ; I BIT DA 0.833 MS A 4MHZ
000E 0000 00121 NOP
Message[305]: Using default destination of 1 (file).
000F 02EF 00122 DECFSZ MOMEN ;
0010 0A0D 00123 GOTO RPT ;
0011 0000 00124 NOP
0012 0800 00125 RETLW .0 ;
00126
00127
00128
0013 090B 00129 DELAY2 CALL DELAY
0014 0000 00130 NOP
0015 090B 00131 CALL DELAY
0016 0000 00132 NOP
0017 0800 00133 RETLW .0 ; FINE DELAY.
00134
00135
00136
00137
00138 ;=================================================
00139 ;SUBROUTINE CHE FA LAMPEGGIARE LED PER PROG OK
00140 ;=================================================
00141 ;=================================================
00142 ; LED frash
00143 ;=================================================
0018 00144 LAMP
0018 0CFF 00145 MOVLW .255
0019 002D 00146 MOVWF REG1
001A 05E6 00147 BSF PORTB,LED ; LED on
001B 090B 00148 LAMP_1 CALL DELAY ;delay 0.8ms
001C 0004 00149 CLRWDT
Message[305]: Using default destination of 1 (file).
001D 02ED 00150 DECFSZ REG1
001E 0A1B 00151 GOTO LAMP_1
00152
MPASM 4.00 Released 1550-V01.ASM 2-16-2006 11:00:59 PAGE 4
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00153
001F 0CFF 00154 MOVLW .255
0020 002D 00155 MOVWF REG1
0021 04E6 00156 BCF PORTB,LED ; LED SPENTO
0022 090B 00157 LAMP_2 CALL DELAY
0023 0004 00158 CLRWDT
Message[305]: Using default destination of 1 (file).
0024 02ED 00159 DECFSZ REG1
0025 0A22 00160 GOTO LAMP_2
00161
0026 0800 00162 RETLW .0
00163 ;=======================================================
00164 ; 短路保护
00165 ;=======================================================
0027 00166 BRUCIA
0027 05C6 00167 BSF PORTB,REL2 ; 脱开1550和本单元的LIN支接线
0028 0526 00168 BSF PORTB,REL1 ; 将24V电压变到35V电压，并将35V电压连到本单元的LIN支
线
00169
00170
0029 0CFF 00171 MOVLW .255 ;250MS DELAY
002A 002D 00172 MOVWF REG1
002B 090B 00173 BRC_1 CALL DELAY ;DELAY 833US
002C 0004 00174 CLRWDT
Message[305]: Using default destination of 1 (file).
002D 02ED 00175 DECFSZ REG1
002E 0A2B 00176 GOTO BRC_1
00177
002F 0CFF 00178 MOVLW .255 ;250MS DELAY
0030 002D 00179 MOVWF REG1
0031 090B 00180 BRC_2 CALL DELAY
0032 0004 00181 CLRWDT
Message[305]: Using default destination of 1 (file).
0033 02ED 00182 DECFSZ REG1
0034 0A31 00183 GOTO BRC_2
00184
00185
00186 ;以下这条语句,在意大利源程序中是有的,现应汪工要求,当LIN OUT端短路没恢复时,RB6端口要一直输出⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -