⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 tc328.asm

📁 用 PIC16F73 做的温控器,压缩包中有硬件排版图、原程序、还有编译好的 HEX 文件。
💻 ASM
📖 第 1 页 / 共 2 页
字号:
;----------------------------
;For SL338.PCB
;----------------------------
HCZ       EQU    02H        ; 回差
CSZ       EQU    0AH        ; 初值


;2005-09-16  取消包含文件
;2005-09-16  不以 KLSD 值判 闪烁结束
;2005-09-16  加热温差改为 HCZ(12) 度
;2005-09-15  初始设定温度 CSZ(15) 度
;----------------------------
;#INCLUDE "328.INC"
;----------------------------
#define   F1_0    21H,0     ; 上电
#define   F1_AD   21H,1     ; AD
#define   F1_DS   21H,2     ; 显示
#define   F1_ER   21H,4     ; 出错
#define   F1_HTT  21H,5     ; 加热
#define   F1_DSM  21H,6     ; 闪灭
#define   F1_DSS  21H,7     ; 闪烁

#define   F3_0    23H,0     ; 4key
#define   F3_1    23H,1     ;
#define   F3_2    23H,2     ;
#define   F3_3    23H,3     ;
#define   F3_4    23H,4     ;
#define   F3_5    23H,5     ;
#define   F3_6    23H,6     ;
#define   F3_7    23H,7     ;

F0_FLG    EQU    20H
F1_FLG    EQU    21H
F2_FLG    EQU    22H
F3_FLG    EQU    23H

CT10      EQU    24H
CT320     EQU    25H

KEYT      EQU    26H
KEYD      EQU    27H
KLSD      EQU    29H

LEDL      EQU    30H
LEDR      EQU    31H
DISH      EQU    32H
DISB      EQU    33H
SETT      EQU    34H
ADTT      EQU    35H
ADT0      EQU    36H
ADP0      EQU    37H
AD_P      EQU    38H
AD_L      EQU    39H
AD_N      EQU    3AH

AD_BUF    EQU    40H   ;( 40.4F.50.5F.60.6F )
AD_BFM    EQU    58H
AD_BFD    EQU    6FH

STO_FSR   EQU    07CH
STO_PCH   EQU    07DH
STO_S     EQU    07EH
STO_W     EQU    07FH

;+80H
STO_FSR1  EQU    07CH
STO_PCH1  EQU    07DH
STO_S1    EQU    07EH
STO_W1    EQU    07FH       ; FFH

;---------------------------
   List   P =    PIC16C73
W	  EQU	 0
F	  EQU	 1
INDF	  EQU	 00H
TMR0	  EQU	 01H
PCL	  EQU	 02H
STATUS	  EQU	 03H        ; Z.2, C.0
FSR	  EQU	 04H
PORTA	  EQU	 05H
PORTB	  EQU	 06H
PORTC	  EQU	 07H
PCLATH	  EQU	 0AH
INTCON	  EQU	 0BH
PIR1	  EQU	 0CH
PIR2	  EQU	 0DH
TMR1L	  EQU	 0EH
TMR1H	  EQU	 0FH
T1CON	  EQU	 10H
TMR2	  EQU	 11H
T2CON	  EQU	 12H
SSPBUF	  EQU	 13H
SSPCON	  EQU	 14H
CCPR1L	  EQU	 15H
CCPR1H	  EQU	 16H
CCP1CON   EQU	 17H
RCSTA	  EQU	 18H
TXREG	  EQU	 19H
RCREG	  EQU	 1AH
CCPR2L	  EQU	 1BH
CCPR2H	  EQU	 1CH
CCP2CON   EQU	 1DH
ADRESH	  EQU	 1EH
ADCON0	  EQU	 1FH

;Page 01  as	+80H
OPTION_R  EQU	 01H
TRISA	  EQU	 05H
TRISB	  EQU	 06H
TRISC	  EQU	 07H
PIE1	  EQU	 0CH
PIE2	  EQU	 0DH
PCON	  EQU	 0EH
SSPCON2   EQU	 11H
PR2	  EQU	 12H
SSPADD	  EQU	 13H
SSPSTAT   EQU	 14H
TXSTA	  EQU	 18H
SPBRG	  EQU	 19H
ADRESL	  EQU	 1EH
ADCON1	  EQU	 1FH

;STATUS. Bits
#define   IRP	 STATUS,7
#define   RP1	 STATUS,6
#define   RP0	 STATUS,5
#define   NOT_TO STATUS,4
#define   NOT_PD STATUS,3
#define   SZ  	 STATUS,2
#define   DC	 STATUS,1
#define   SC	 STATUS,0

;INTCON. Bits
#define   GIE	 INTCON,7
#define   EEIE	 INTCON,6
#define   T0IE	 INTCON,5
#define   INTE	 INTCON,4
#define   RBIE	 INTCON,3
#define   T0IF	 INTCON,2
#define   INTF	 INTCON,1
#define   RBIF	 INTCON,0

#define   RCIF	 PIR1,5
#define   TXIF	 PIR1,4
#define   TMR2IF PIR1,1
#define   TMR1IF PIR1,0
#define   CCP2IF PIR2,0

#define   RX9D	 RCSTA,0
#define   OERR   RCSTA,1
#define   FERR   RCSTA,2
#define   CREN	 RCSTA,4
#define   RX9	 RCSTA,6
#define   SPEN	 RCSTA,7

#define   TX9D	 TXSTA,0
#define   TRMT	 TXSTA,1
#define   BRGH	 TXSTA,2
#define   SYNC	 TXSTA,4
#define   TXEN	 TXSTA,5
#define   TX9	 TXSTA,6

;--------------------------------
#define   KINC	 5H,5   ; I    ; H L
#define   KDEC	 5H,4   ; I    ; H L
#define   VREF   5H,3   ; I    ; H
#define   JK 	 5H,2   ; O    ; L H
#define   NUL	 5H,1   ; I    ; H
#define   RT	 5H,0   ; I    ; H

#define   Le	 6H,7   ; O    ; H L
#define   Lf	 6H,6   ; O    ; H L
#define   La	 6H,5   ; O    ; H L
#define   Lb	 6H,4   ; O    ; H L
#define   Lg	 6H,3   ; O    ; H L
#define   Lc	 6H,2   ; O    ; H L
#define   Ld	 6H,1   ; O    ; H L
#define   INT	 6H,0   ; O    ; H

#define   Re	 7H,7   ; O    ; H L
#define   Rf	 7H,6   ; O    ; H L
#define   Ra	 7H,5   ; O    ; H L
#define   Rb	 7H,4   ; O    ; H L
#define   Rg	 7H,3   ; O    ; H L
#define   Rc	 7H,2   ; O    ; H L
#define   Rd	 7H,1   ; O    ; H L
#define   LED	 7H,0   ; O    ; H L
;------------------------------------

	  ORG	 0000H
  START:  CLRWDT
          CLRF   STATUS
          CLRF   PCLATH
          GOTO	 BEGIN

          ORG	 0004H
	  MOVWF	 STO_W
	  SWAPF	 STATUS,W
          MOVWF	 STO_S
	  MOVF	 PCLATH,W
	  MOVWF	 STO_PCH
	  CLRF	 PCLATH
	  MOVF	 FSR,W
	  MOVWF	 STO_FSR
          CLRF	 STATUS
          GOTO   I_PRO

DIS_D:	  CLRF	 PCLATH
	  ANDLW  0FH
	  ADDWF  PCL,F
	  RETLW  009H	    ; 0
	  RETLW  0EBH	    ; 1
	  RETLW  045H	    ; 2
	  RETLW  0C1H	    ; 3
	  RETLW  0A3H	    ; 4
	  RETLW  091H	    ; 5
	  RETLW  011H	    ; 6
	  RETLW  0CBH	    ; 7
	  RETLW  001H	    ; 8
	  RETLW  081H	    ; 9
	  RETLW  0FFH	    ; A
	  RETLW  0FFH	    ; B
	  RETLW  0FFH	    ; C
	  RETLW  0FFH	    ; D
	  RETLW  0FFH	    ; E
	  RETLW  0F7H	    ; -

;---------------------------
GET_T:	  CLRF	 PCLATH

;         MOVF  28H,W       ; For Test Only
	  ADDWF  PCL,F
	  RETLW  0F9H	    ; 00  :-9
	  RETLW  0F9H	    ; 01  :-9
	  RETLW  0F9H	    ; 02  :-9
	  RETLW  0F8H	    ; 03  :-8
	  RETLW  0F8H	    ; 04  :-8
	  RETLW  0F8H	    ; 05  :-8
	  RETLW  0F7H	    ; 06  :-7
	  RETLW  0F7H	    ; 07  :-7
	  RETLW  0F6H	    ; 08  :-6
	  RETLW  0F6H	    ; 09  :-6
	  RETLW  0F6H	    ; 10  :-6
	  RETLW  0F5H	    ; 11  :-5
	  RETLW  0F5H	    ; 12  :-5
	  RETLW  0F5H	    ; 13  :-5
	  RETLW  0F4H	    ; 14  :-4
	  RETLW  0F4H	    ; 15  :-4
	  RETLW  0F3H	    ; 16  :-3
	  RETLW  0F3H	    ; 17  :-3
	  RETLW  0F3H	    ; 18  :-3
	  RETLW  0F2H	    ; 19  :-2
	  RETLW  0F2H	    ; 20  :-2
	  RETLW  0F2H	    ; 21  :-2
	  RETLW  0F1H	    ; 22  :-1
	  RETLW  0F1H	    ; 23  :-1
	  RETLW  0F1H	    ; 24  :-1
	  RETLW  000H	    ; 25  :00
	  RETLW  000H	    ; 26  :00
	  RETLW  000H	    ; 27  :00
	  RETLW  001H	    ; 28  :01
	  RETLW  001H	    ; 29  :01
	  RETLW  001H	    ; 30  :01
	  RETLW  002H	    ; 31  :02
	  RETLW  002H	    ; 32  :02
	  RETLW  002H	    ; 33  :02
	  RETLW  003H	    ; 34  :03
	  RETLW  003H	    ; 35  :03
	  RETLW  003H	    ; 36  :03
	  RETLW  004H	    ; 37
	  RETLW  004H	    ; 38
	  RETLW  004H	    ; 39
	  RETLW  005H	    ; 40
	  RETLW  005H	    ; 41
	  RETLW  005H	    ; 42
	  RETLW  006H	    ; 43
	  RETLW  006H	    ; 44
	  RETLW  006H	    ; 45
	  RETLW  007H	    ; 46
	  RETLW  007H	    ; 47
	  RETLW  007H	    ; 48
	  RETLW  008H	    ; 49
	  RETLW  008H	    ; 50
	  RETLW  008H	    ; 51
	  RETLW  009H	    ; 52
	  RETLW  009H	    ; 53
	  RETLW  009H	    ; 54
	  RETLW  00AH	    ; 55
	  RETLW  00AH	    ; 56
	  RETLW  00AH	    ; 57
	  RETLW  00BH	    ; 58
	  RETLW  00BH	    ; 59
	  RETLW  00BH	    ; 60
	  RETLW  00CH	    ; 61
	  RETLW  00CH	    ; 62
	  RETLW  00CH	    ; 63
	  RETLW  00DH	    ; 64
	  RETLW  00DH	    ; 65
	  RETLW  00DH	    ; 66
	  RETLW  00EH	    ; 67
	  RETLW  00EH	    ; 68
	  RETLW  00EH	    ; 69
	  RETLW  00EH	    ; 70
	  RETLW  00FH	    ; 71
	  RETLW  00FH	    ; 72
	  RETLW  00FH	    ; 73
	  RETLW  010H	    ; 74
	  RETLW  010H	    ; 75
	  RETLW  010H	    ; 76
	  RETLW  011H	    ; 77
	  RETLW  011H	    ; 78
	  RETLW  011H	    ; 79
	  RETLW  012H	    ; 80
	  RETLW  012H	    ; 81
	  RETLW  012H	    ; 82
	  RETLW  013H	    ; 83
	  RETLW  013H	    ; 84
	  RETLW  014H	    ; 85
	  RETLW  014H	    ; 86
	  RETLW  014H	    ; 87
	  RETLW  015H	    ; 88
	  RETLW  015H	    ; 89
	  RETLW  015H	    ; 90
	  RETLW  016H	    ; 91
	  RETLW  016H	    ; 92
	  RETLW  016H	    ; 93
	  RETLW  017H	    ; 94
	  RETLW  017H	    ; 95
	  RETLW  017H	    ; 96
	  RETLW  018H	    ; 97
	  RETLW  018H	    ; 98
	  RETLW  018H	    ; 99
	  RETLW  019H	    ; 100
	  RETLW  019H	    ; 101
	  RETLW  01AH	    ; 102
	  RETLW  01AH	    ; 103
	  RETLW  01AH	    ; 104
	  RETLW  01BH	    ; 105
	  RETLW  01BH	    ; 106
	  RETLW  01BH	    ; 107
	  RETLW  01CH	    ; 108
	  RETLW  01CH	    ; 109
	  RETLW  01DH	    ; 110
	  RETLW  01DH	    ; 111
	  RETLW  01DH	    ; 112
	  RETLW  01EH	    ; 113
	  RETLW  01EH	    ; 114
	  RETLW  01FH	    ; 115
	  RETLW  01FH	    ; 116
	  RETLW  01FH	    ; 117
	  RETLW  020H	    ; 118
	  RETLW  020H	    ; 119
	  RETLW  021H	    ; 120
	  RETLW  021H	    ; 121
	  RETLW  022H	    ; 122
	  RETLW  022H	    ; 123
	  RETLW  022H	    ; 124
	  RETLW  023H	    ; 125
	  RETLW  023H	    ; 126
	  RETLW  024H	    ; 127
	  RETLW  024H	    ; 128
	  RETLW  025H	    ; 129
	  RETLW  025H	    ; 130
	  RETLW  026H	    ; 131
	  RETLW  026H	    ; 132
	  RETLW  027H	    ; 133
	  RETLW  027H	    ; 134
	  RETLW  028H	    ; 135
	  RETLW  028H	    ; 136
	  RETLW  029H	    ; 137
	  RETLW  029H	    ; 138
	  RETLW  02AH	    ; 139
	  RETLW  02AH	    ; 140
	  RETLW  02BH	    ; 141
	  RETLW  02BH	    ; 142
	  RETLW  02CH	    ; 143
	  RETLW  02DH	    ; 144
	  RETLW  02DH	    ; 145
	  RETLW  02EH	    ; 146
	  RETLW  02EH	    ; 147
	  RETLW  02FH	    ; 148
	  RETLW  030H	    ; 149
	  RETLW  030H	    ; 150
	  RETLW  031H	    ; 151
	  RETLW  031H	    ; 152
	  RETLW  032H	    ; 153
	  RETLW  033H	    ; 154
	  RETLW  033H	    ; 155
	  RETLW  034H	    ; 156
	  RETLW  035H	    ; 157
	  RETLW  036H	    ; 158
	  RETLW  036H	    ; 159
	  RETLW  037H	    ; 160
	  RETLW  038H	    ; 161
	  RETLW  039H	    ; 162
	  RETLW  03AH	    ; 163
	  RETLW  03BH	    ; 164
	  RETLW  03BH	    ; 165
	  RETLW  03CH	    ; 166
	  RETLW  03DH	    ; 167
	  RETLW  03EH	    ; 168
	  RETLW  03FH	    ; 169
	  RETLW  040H	    ; 170
	  RETLW  041H	    ; 171
	  RETLW  042H	    ; 172

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -