;===============================================================
; Subroutine: INIT	Initialize
;===============================================================
;	Preset Value
;===============================================================
;				;INTCON Initialize
S_INTC	EQU	B'10100000'	;TMR0 Onry
;                 |||||||+------ GPIF
;                 ||||||+------- INTF
;                 |||||+-------- T0IF   TMR0 Over Flow Flag
;                 ||||+--------- GPIE 0:Disable
;                 |||+---------- INTE 0;Enable
;                 ||+----------- T0IE 1:Enable
;                 |+------------ PEIE 0:Disable
;                 +------------- GIE  1:Enable
;---------------------------------------------------------------
;TMR0 Pre Set Value  256-(T*F/P)=ccc  F:4MHz, P:2, T:416uS
;S_TMR0	EQU	53  ;0x35  実験値(OK範囲:28〜35〜3C)
;---------------------------------------------------------------
;				;TMR0/WDT Control
;S_OPTF	EQU	B'00000000'	;Pre Scaler=TMR0:1/2(4MHz)12F675
S_OPTF	EQU	B'00000001'	;Pre Scaler=TMR0:1/4(8MHz)12F683
;S_OPTF	EQU	B'00000010'	;Pre Scaler=TMR0:1/n(Test)12F683
;                 |||||+++------ 1/nn=000:1/1, 001:1/2, 010:1/4
;                 ||||+--------- Pre Scaler 1:WDT
;                 |||+---------- T0SE  0:L-->H, H-->L
;                 ||+----------- T0SC  0:Int Clock
;                 |+------------ 0=INTEDG:falldown
;                 +------------- /GPIO Pul Up  0:Enable
;===============================================================
;
;---------------------------------------------------------------
INIT	CLRF	INTCON
;-------------------------------; Oscillator Control  12F683
;	MOVLW	B'01010000'	;2MHz
;	MOVLW	B'01100000'	;4MHz
	MOVLW	B'01110000'	;8MHz
;		   ||||||+------;0:FOSC<2:0>
;		   |||+++-------;(Osc.Status)
;		   +++----------;111:IRCF<2:0>
;
	BSF	STATUS,RP0	;BANK=1
	MOVWF	OSCCON		;
	BCF	STATUS,RP0	;BANK=0
;---------------------------------------------------------------



;-------------------------------; TMR0, WDT Control
;	BSF	STATUS,RP0
	MOVLW	S_OPTF		;TMR0 Pre Scaler/WDT Init
	MOVWF	OPTREG		;OPTION Register
	BCF	STATUS,RP0
;-------------------------------; Timer count work preset
;WT_02S	EQU	0x27	;Timer count 20mS
;WT_SEC	EQU	0x28	;  //   //    1 Sec
;WT010S	EQU	0x29	;  //   //  100mS	[2014/06/26]
	MOVLW	48
	MOVWF	WT_02S
	MOVLW	50
	MOVWF	WT_SEC



;---------------------------------------------------------------
; Preset From EEPROM Data
;---------------------------------------------------------------
;-------------------------------; S_TMR0 Timer0 preset data
;	DE	0x35		;0x6F:TMR0 data(S_TMR0)
;				;実験値:0x35=55
;				;OK範囲:0x28〜(0x35)〜0x3C
	MOVLW	0x6F		;
	BSF	STATUS,RP0	;BANK=1
	MOVWF	EEADR
	BSF	EECON1,0	;RD
	MOVF	EEDATA,W
	BCF	STATUS,RP0	;BANK=0
;
	MOVWF	S_TMR0
;				;調整範囲(28〜3C)のチェック
	SUBLW	0x3C		;0x3C - S_TMR0
	BTFSS	STATUS,C
	GOTO	STMRER		;     <　	3D 以上
;		OK		;     >=	3C 以下
	MOVF	S_TMR0,W
	SUBLW	0x27		;0x27 - S_TMR0
	BTFSS	STATUS,C
	GOTO	STMROK		;     <　	28 以上
;		ERR		;     >=	27 以下
;				;異常値の場合初期値をセット
STMRER	MOVLW	0x35		;Default Val.
	MOVWF	S_TMR0		;Temp Set
STMROK
;	MOVF	S_TMR0,W
;	MOVWF	TMR0
;
;---------------------------------------------------------------
; Buffer,Work Initialize
;---------------------------------------------------------------
;******	CLRF	WRXDT_		;
	CLRF	WRXDTB		;
;******	CLRF	WRXCC_		;
;******	CLRF	WTRBC_		;
	CLRF	WTXDT_		;
;******	CLRF	WTXCC_		;
	CLRF	WTRSTS		;
	BSF	WTRSTS,5	;TX Done flag set
;---------------------------------------------------------------
;
	GOTO	MAIN

;===============================================================
;       Reset Process
;===============================================================
	ORG	0x000		;Reset vector
	GOTO	INIT		;Initialize
;
	ORG	0x004		;Interrupt vector
;===============================================================
; Interrupt Service
;===============================================================
;---------------------------------------------------------------
;				;save register
;---------------------------------------------------------------
PUSH	MOVWF	W_WREG		;Save W reg.
	SWAPF	W_WREG,1
	SWAPF	STATUS,0	;Get status
	MOVWF	W_STAT		;Save it
	MOVF	FSR,W		;Save SFR
	MOVWF	W_FSR_
;
;---------------------------------------------------------------
;	Interrupt source analize
;---------------------------------------------------------------
	BCF	STATUS,RP0	;BANK0
	BTFSS	INTCON,T0IF	;TMR0 Over Flow ?
	GOTO	INIINT		;init
;
;---------------------------------------------------------------
;	TMR0 Service		416uS 毎割込
;---------------------------------------------------------------
INTRTC
	MOVF	S_TMR0,W	;TMR0 data (from EEPROM)
;*****	MOVLW	S_TMR0		;TMR0 Pre Set
	MOVWF	TMR0
;
	BCF	INTCON,T0IF	;clr int flag
;
;---------------------------------------------------------------
;				;RX data input
;---------------------------------------------------------------
;			;RX status              _________
;	WTRSTS,0	;RX Busy flag  _________ RX Busy ______
;	WTRSTS,1	;RX Done flag  ______            ______
;			;              (read)____________ Done
;---------------------------------------------------------------
	BTFSC	WTRSTS,0	;
	GOTO	INTRX1		;    RX Busy
;				;not RX Busy
;				;---------- bit 0 process ------
	BTFSC	GPIO,3		;RX Start Bit Check
	GOTO	INTTX0		;   not Start
;				;   Start
;---------------------------------------------------------------
	BTFSC	WTRSTS,1	;RX Over run Err Check
	BSF	WTRSTS,2	;RX Over run Err Flag set
;				;(OverRun)でも次の文字を読む
;	GOTO	INTRX9		;(OverRun)では次の文字を読まない
;
;	MOVLW	16		;---------- Start bit process --
	MOVLW	8		;---------- Start bit process --
;******	MOVF	C_CLKC,W
	MOVWF	WRXCC_
	BCF	STATUS,C
	RRF	WRXCC_,F	;1/2:half bit time set
	MOVLW	0xF0
	ANDWF	WTRBC_,F	;Clear RX bit count
	BSF	WTRSTS,0	;RX Busy set
	GOTO	INTTX0
;
;INTRX9	BSF	WTRSTS,2	;RX Over run Err Flag set
;	BSF	WTRSTS,1	;RX Done Flag set
;	BCF	WTRSTS,0	;RX Busy flag reset
;	GOTO	INTTX0
;
INTRX1	DECFSZ	WRXCC_,F	;---------- 1 bit time counter -
	GOTO	INTTX0		;WRXCC_><0
;				;       =0
;	MOVLW	16		;---------- Start bit process --
	MOVLW	8		;---------- Start bit process --
;******	MOVF	C_CLKC,W
	MOVWF	WRXCC_
;				;---------- bit 0-9 process ----
	MOVF	WTRBC_,W	;WTRBC_,3:0   RX bit count
	ANDLW	0x0F
	SUBLW	8		;8-(W)
	BTFSC	STATUS,C
	GOTO	INTRXR		;8   >= count
;				;8(9)<  count
;				;1BYTE input conplete
	MOVF	WRXDT_,W
	MOVWF	WRXDTB		;set RX buffer
;-------------------------------;[Ctrl-C]check
	BCF	WTRSTS,3	;Cancel Flag clear
	ANDLW	0x7F
	SUBLW	0x03
	BTFSC	STATUS,Z
	BSF	WTRSTS,3	;Receve [Ctrl-C] (Flag set)
	BTFSC	WTRSTS,3
	BCF	WTXMST,3
;-------------------------------;
	CLRF	WRXDT_
;*****	BCF	WTRSTS,2	;Over run or Frameing Err
	BSF	WTRSTS,1	;RX Done Flag set
	BCF	WTRSTS,0	;RX Busy flag reset
	MOVLW	0xF0
	ANDWF	WTRBC_,F	;Clear RX bit count
;				;-------------------------------
	BTFSC	GPIO,3		;RX Stop Bit Check
	GOTO	INTTX0		;Stop Bit:1  OK
	BSF	WTRSTS,2	;Over run or Frameing Err
;				;-------------------------------
	GOTO	INTTX0
;
INTRXR	BSF	STATUS,C
	BTFSS	GPIO,3		;  ---> C
	BCF	STATUS,C
	RRF	WRXDT_,F	;C ---> WRXDT_   1bit input
	INCF	WTRBC_,F
;
;---------------------------------------------------------------
;				;TX data output
;---------------------------------------------------------------
INTTX0
	BTFSC	WTRSTS,5
	GOTO	INTTX9		;TX Done
;				;   Start
	BTFSC	WTRSTS,4	;
	GOTO	INTTXB		;TX Busy
;				;   not Busy
;				;       =0
;	MOVLW	16		;-------- clk counter set(1st)
	MOVLW	8		;-------- clk counter set(1st)
;******	MOVF	C_CLKC,W
	MOVWF	WTXCC_		;
;				;---------- Start bit process
	BSF	WTRSTS,4	;TX Busy flag set
	MOVLW	0x0F
	ANDWF	WTRBC_,F	;Clear TX bit count
	GOTO	INTTXL		;0 count [Start Bit ---> Lo]
;
INTTXB	DECFSZ	WTXCC_,F	;---------- 1 bit time counter
	GOTO	INTTX9		;WTXCC_><0
;				;       =0
;	MOVLW	16		;---------- clk counter set(1st)
	MOVLW	8		;---------- clk counter set(1st)
;******	MOVF	C_CLKC,W
	MOVWF	WTXCC_
;
	SWAPF	WTRBC_,W	;WTRBC_,7:4   TX bit count
	ANDLW	0x0F
	SUBLW	10		;10-(W)
	BTFSS	STATUS,Z
	GOTO	INTTXT		;10><(W)
;				;10= (W)
;				;---------- TX Done ------------
	BSF	GPIO,1		;keep Hi
	BSF	WTRSTS,5	;TX Done flag set
	BCF	WTRSTS,4	;TX Busy flag reset
	GOTO	INTTX9
;
INTTXT	SWAPF	WTRBC_,W	;WTRBC_,7:4   TX bit count
	ANDLW	0x0F
	SUBLW	9		;9-(W)
	BTFSC	STATUS,Z
;				;9 count [Stop Bit ---> Hi]
	GOTO	INTTXH		;---------- Stop bit process ---
;				;9><(W)
	BSF	STATUS,C
	RRF	WTXDT_,F	;1 ---> [7]---[0] ---> C
	BTFSC	STATUS,C
	GOTO	INTTXH		;Hi
;				;Lo
INTTXL	BCF	GPIO,1		;output Lo,   [Start Bit]
	GOTO	INTRTZ
;
INTTXH	BSF	GPIO,1		;output Hi,   [Stop Bit]
;
INTRTZ	MOVLW	0x10
	ADDWF	WTRBC_,F	;INC TX bit count
INTTX9
;
;---------------------------------------------------------------
;　◆その他の割込み処理◆
;---------------------------------------------------------------
;
	GOTO	PULL
;---------------------------------------------------------------
;				;Restore register
;---------------------------------------------------------------
INIINT	MOVLW	S_INTC		;init
	MOVWF	INTCON
;
PULL	MOVF	W_FSR_,W	;Restore FSR
	MOVWF	FSR
	SWAPF	W_STAT,0	;Restore status
	MOVWF	STATUS
	SWAPF	W_WREG,0	;Restore W reg.
	RETFIE
;---------------------------------------------------------------
;				End of Interrupt Service
;---------------------------------------------------------------

;===============================================================
;	定数の設定
;===============================================================
;［104μS タイマの設定］	8	1200bps
;　TMR0 割込の場合(初期値→$FF→$00)
;  T*F/P=104*2/1=208(-a)=196	;TMR0 Comper Value
;  T=104uS, F=OSC/4=2MHz, P=4(1/4), a=4(実験値)
;
_TMR0	EQU	200	;
;
;===============================================================
;       Work Area    (counter/timer/flag/buffer  tempolary work)
;===============================================================
WTRSTS	EQU	0x09	;TX, RX status
;-----------------------;                            _____
RXBUSY	EQU	0	;RX Busy flag  __________  Busy_____
RXBFUL	EQU	1	;RX Done flag  ______  RX      _____
;			;              (read)__________ Done
RXOVFE	EQU	2	;RX Over run Err or RX Frameing Err
;*****	EQU	3	;                       _______
TXBUSY	EQU	4	;TX Busy flag  _________ Busy  _____
TXDNST	EQU	5	;TX Done/Start _____ TX        _____
;			;              start___________ Done
;*****	EQU	6	;
STRCNT	EQU	7	;Start control Flag
;---------------------------------------------------------------
WRXDT_	EQU	0x0A	;RX data receive work
WRXDTB	EQU	0x0B	;RX data buffer
WRXCC_	EQU	0x0C	;RX clk count
WRXBC_	EQU	0x0D	;RX bit count
WTXDTB	EQU	0x0E	;TX data buffer
WTXCC_	EQU	0x0F	;TX clk count
WTXBC_	EQU	0x10	;TX bit count
;*****	EQU	0x11	;
;*****	EQU	0x12	;
TXBFCT	EQU	0x13	;送信待ちデータ数
;			; 0の時何もしない
;			; 1の時[LF]を送信 0にする
;			; 2の時[CR]を送信 1にする
TXBF_0	EQU	0x14	; 3の時送信 2にする
TXBF_1	EQU	0x15	; 4の時送信 3にする
TXBF_2	EQU	0x16	; 5の時送信 4にする
TXBF_3	EQU	0x17	; 6の時送信 5にする
;
WADRES	EQU	0x18	;A/D data
WPWMCT	EQU	0x19	;PWM counter
WADRSL	EQU	0x1A	;A/D Average work L
WADRSH	EQU	0x1B	;A/D Average work H
;	EQU	0x1C	;
WXHEXL	EQU	0x1D	;HEXL work
WT_02S	EQU	0x1E	;Timer count 20 mS	416uSx48=20mS
WT_SEC	EQU	0x1F	;  //   //    1 Sec x50=1Sec
;
;===============================================================
;       Reset Process
;===============================================================
;*****	ORG	0x1FF		;
;*****	MOVLW	XX		;int OSC calibration val.
	ORG	0x000		;Reset vector
	MOVWF	OSCCAL		;oscillator calibration
;
	MOVLW	B'10011001'	;通信速度変更 (1200bps)
;		  :::::+++------;PS2:PS0=0001(1/4) 8MHz
;		  ::::+---------;PSA=0:TMR0 (1:WDT)
;		  :::+----------;T0SE=1(Hi-->Lo transition)
;		  ::+-----------;T0CS=0(Internal Fosc/4)
;		  :+------------;/GPPU=0(Enable) 1(Disabled)
;		  +-------------:/GPWU=1(Disabled)
	OPTION			;Load OPTION Register
;
	MOVLW	B'00000111'	;GP0:2=Hi
	MOVWF	GPIO
;
	MOVLW	B'01000011'	;ADCON0 Set value
;		  ::--:::+------;0:A/D-OFF, 1:A/D-ON
;		  ::  ::+-------;GO/DONE  1:Start, 0:Done
;		  ::  ++--------;Channel select 00:ch0, ..
;		  :+------------;ANS0 AN/DIO 1:AN, 0:DIO
;		  +-------------;ANS1 AN/DIO 1:AN, 0:DIO
	MOVWF	ADCON0		;A/D Control Reg.
;
	MOVLW	B'00001001'	;
;		      :::+------;GP0=AN (A/D)
;		      ::+-------;GP1=OUT(LED1)
;		      :+--------;GP2=OUT(TX)
;		      +---------;GP3=IN (RX)
	TRIS	GPIO		;Load TRIS Register
;
;
;-------------------------------;Work init
	CLRF	WTRSTS
;*****	MOVLW	48		;TM0=416uS
	MOVLW	192		;TM0=104uS
	MOVWF	WT_02S
;				;Startup timer Value
	MOVLW	50		;50:1Sec, 100:2Sec, ...
	MOVWF	WT_SEC
;
	CLRF	WTRSTS		;TX, RX status
	CLRF	WRXDT_		;RX data reg.
	CLRF	WRXDTB		;RX data receive work
	CLRF	WRXCC_		;RX clock count
	CLRF	WRXBC_		;RX bit count
	CLRF	WTXDTB		;TX data reg.
	CLRF	WTXCC_		;TX clock count
	CLRF	WTXBC_		;RX bit count
;
	CLRF	TXBFCT

LOOP	CLRF	TMR0
;
;===============================================================
;	TMR0 Service	104uS 毎処理
;===============================================================
;
;-------------------------------;【DEBUG】
;*****	BSF	GPIO,GP2	;【DEBUG】信号発生 GP2:ON
;-------------------------------;【DEBUG】
;
;---------------------------------------------------------------
;				;RX data input
;---------------------------------------------------------------
	BTFSC	WTRSTS,RXBUSY	;
	GOTO	RXBITR		;RX Busy  -->1 bit Receve
;				;RX not Busy
;				;---------- bit 0 process
	BTFSC	GPIO,3		;RX Start Bit Check
	GOTO	INTTX0		;   not Start
;				;   Start
;				;--------------------------
	BTFSC	WTRSTS,RXBFUL	;OverRun Check(If RX Done)
	BSF	WTRSTS,RXOVFE	;RX Over run Err Flag set
;				;------- Start bit process
;*****	MOVLW	16		;16clock / 1bit
	MOVLW	8		; 8clock / 1bit
	MOVWF	WRXCC_
	BCF	STATUS,C
	RRF	WRXCC_,F	;clock Count*(1/2)(half bitset)
;
	CLRF	WRXBC_		;Clear RX bit count
	BSF	WTRSTS,RXBUSY	;RX Busy set
	GOTO	INTTX0
;
RXBITR				;1 bit Receve
	DECFSZ	WRXCC_,F	;1 bit time counter ?
	GOTO	INTTX0		;WRXCC_>>0
;				;       =0
;				;-------- Clock count set
;*****	MOVLW	16		;16clock / 1bit
	MOVLW	8		; 8clock / 1bit
	MOVWF	WRXCC_
;				;-------- bit 0-9 process
	MOVLW	9
	SUBWF	WRXBC_,W	;(WRXBC_)-9  RX bit count check
	BTFSC	STATUS,C
	GOTO	RX1BYT		;count >= 9   (-)
;				;count >  9   (+)
;				;get 1 bit
RX1BIT	BSF	STATUS,C	;C=1
	BTFSS	GPIO,3
	BCF	STATUS,C	;GP3=0  C=0
	RRF	WRXDT_,F	;C ---> WRXDT_   1bit input
;
	INCF	WRXBC_,F	;RX bit count
	GOTO	INTTX0
;
;-------------------------------;１バイト取込完了
RX1BYT
	MOVF	WRXDT_,W	;1BYTE input conplete
	MOVWF	WRXDTB		;set RX buffer
	CLRF	WRXDT_
	CLRF	WRXBC_		;Clear RX bit count
;
	BTFSS	GPIO,3		;RX Stop Bit Check
	BSF	WTRSTS,RXOVFE	;Stop=0 Frameing Err
;				;Stop=1 OK
	NOP	;avoidance of behavior "Read-modify-write"
	BSF	WTRSTS,RXBFUL	;RX Done Flag set
	NOP	;avoidance of behavior "Read-modify-write"
	BCF	WTRSTS,RXBUSY	;RX Busy flag reset
;
;---------------------------------------------------------------
;				;TX data output
;---------------------------------------------------------------
INTTX0	BTFSC	WTRSTS,TXDNST
	GOTO	EXRXTX		;TX Done  (1)
;				;   Start (0)
	BTFSC	WTRSTS,TXBUSY	;
	GOTO	INTTXB		;TX Busy  (1)
;				;not Busy (0)
;				;-- clock counter set(1st)
;*****	MOVLW	16		;16clock / 1bit
	MOVLW	8		; 8clock / 1bit
	MOVWF	WTXCC_
;				;------ Start bit process
	BSF	WTRSTS,TXBUSY	;TX Busy flag set
	CLRF	WTXBC_		;Clear TX bit count
	GOTO	INTTXL		;0 count[Start Bit: Lo]
;
INTTXB	DECFSZ	WTXCC_,F	;----- 1 bit time counter
	GOTO	EXRXTX		;WTXCC_>>0
;				;       =0
;				;----- clock counter set
;*****	MOVLW	16		;16clock / 1bit
	MOVLW	8		; 8clock / 1bit
	MOVWF	WTXCC_
;
	MOVLW	10
	SUBWF	WTXBC_,W	;(WTXBC_)-10 TX bit count check
	BTFSS	STATUS,Z
	GOTO	INTTXT		;count>>10
;				;count= 10
;				;---------- TX Done
	BSF	GPIO,GP2	;keep Hi
	BSF	WTRSTS,TXDNST	;TX Done flag set
	NOP	;avoidance of behavior "Read-modify-write"
	BCF	WTRSTS,TXBUSY	;TX Busy flag reset
	GOTO	EXRXTX
;
INTTXT	MOVLW	9
	SUBWF	WTXBC_,W	;(WTXBC_)-10 TX bit count check
	BTFSC	STATUS,Z
	GOTO	INTTXH		;count= 9 [Stop Bit: Hi]
;				;count>>9
;				;------ Stop bit process
	BSF	STATUS,C
	RRF	WTXDTB,F	;1 ---> [7]---[0] ---> C
	BTFSC	STATUS,C
	GOTO	INTTXH		;Hi
;				;Lo
INTTXL	BCF	GPIO,GP2		;output Lo, [Start Bit]
	GOTO	INTRTZ
;
INTTXH	BSF	GPIO,GP2		;output Hi, [Stop Bit]
;
INTRTZ	INCF	WTXBC_,F	;INC TX bit count
;---------------------------------------------------------------
EXRXTX				;Exit RX, TX Process
;---------------------------------------------------------------

; ここにメイン処理を置く

;---------------------------------------------------------------
;	TMR0の時間になるまで時間調整する（時間潰し）
;---------------------------------------------------------------
CKTMR0
;-------------------------------;【DEBUG】
;*****	BCF	GPIO,GP2	;【DEBUG】
;-------------------------------;【DEBUG】
;
CKTM0L	MOVLW	_TMR0
	SUBWF	TMR0,W		;TMR0 -  _TMR0
	BTFSS	STATUS,C
	GOTO	CKTM0L		;TMR0 >  _TMR0
	GOTO	LOOP		;TMR0 >= _TMR0
;===============================================================

; 以下にサブルーチンを置く（ネスト：２レベル以内）