?? main.asm
字號:
;Updated 2008/12/18 by junson
;1. 按鍵debounce 從10ms提高到20個ms
;=============================================================
SEI
JSR UserInita
CLI
LDX #200
JSR IRDelay
LDX #200
JSR IRDelay
LDX #200
JSR IRDelay
LDX #200
JSR IRDelay
IR_START:
; JSR F_SendIdle
JSR F_GetKeyCode
JSR F_SendIRCode
JSR F_GotoSleep
JMP IR_START
;========================function:F_GetKeyCode
F_GetKeyCode:
STZ KeyFlag
LDA BP0
AND #(SWING + CODE00+ CODE11 + YELLOW + BLUE + GREEN)
STA KeyTemp0
LDA BP1
AND #(UP + LEFT+ DOWN + RIGHT)
STA KeyTemp1
LDA KeyTemp0
AND #SWING ;?swing key pressed
BEQ L_GetKey
STZ Count38k
LDX #20 ;debounce 10 ms
JSR IRDelay
;get key code again
LDA BP0
AND #(SWING + CODE00+ CODE11 + YELLOW + BLUE + GREEN)
CMP KeyTemp0
BNE QuitKeyGet
LDA BP1
AND #(UP + LEFT+ DOWN + RIGHT)
CMP KeyTemp1
BNE QuitKeyGet
LDA KeyTemp0
CMP KeyBP0
BNE L_GetKey ;if oldkey != newkey Set key change flag
LDA KeyTemp1
CMP KeyBP1
BNE L_GetKey ;if oldkey != newkey Set key change flag
L_QuitKeyGet: ;如果一直有按鍵被按下，并且被按下的按鍵不是code00,code11,則需要不停的發(fā)碼
LDA KeyTemp0
;***************************************當code00,code11一直保持某個狀態(tài)時，不再發(fā)碼。200812/11
AND #(SWING + YELLOW + BLUE + GREEN)
CMP #(SWING + YELLOW + BLUE + GREEN)
BNE L_KeyPressed
; AND #(CODE00+ CODE11 + YELLOW + BLUE + GREEN)
; CMP #(CODE00+ CODE11 + YELLOW + BLUE + GREEN)
; BNE L_KeyPressed
LDA KeyTemp1
AND #(UP + LEFT+ DOWN + RIGHT)
CMP #(UP + LEFT+ DOWN + RIGHT)
BNE L_KeyPressed
; JSR F_SendIdle
; STZ KeyPressedTime
JMP QuitKeyGet
L_GetKey: ;有鍵改變
LDA KeyTemp0
STA KeyBP0
LDA KeyTemp1
STA KeyBP1
STZ SleepTime
STZ SleepTime+1
lda #1
sta KeyFlag
; STZ KeyPressedTime
JMP QuitKeyGet
L_KeyPressed: ;按鍵一直被按下
LDA KeyTemp0
STA KeyBP0
LDA KeyTemp1
STA KeyBP1
; LDX #200
; JSR IRDelay
lda #1
sta KeyFlag
QuitKeyGet:
RTS
;=======================function:F_SendIRCode
F_SendIRCode:
lda KeyFlag
beq L_SendIREnd
LDA Run_FRIST
BEQ M_SendIR
STZ Run_FRIST
JMP L_SendIREnd
M_SendIR:
STZ CodeVerify
LDA KeyBP0
ASL A
ASL A
STA CodeTmp
LDX #6
JSR F_GetVerifyByte
LDA KeyBP1
ASL A
ASL A
ASL A
ASL A
STA CodeTmp
LDX #4
JSR F_GetVerifyByte
LDA CodeVerify
CMP #8
BEQ L_SendIREnd
LDY #3
L_SendIRCodeLP:
; JSR SendStartCode
JSR SendIRCode0
JSR SendIRCode1
JSR SendVerifyCode
JSR SendStopCode ;send stop bit code for stop the transmit
LDX #20
JSR IRDelay
DEY
TYA
BNE L_SendIRCodeLP
L_SendIREnd:
RTS
;=======================function:F_GoToSleep
F_GotoSleep:
LDA SleepTime+1
SEC
SBC #2
BCS _NeedSleep
JMP _ExitSleep
_NeedSleep:
SEI
LDA !BP0EN_F
PHA
; LDA #(YELLOW + BLUE + GREEN)
; STA !BP0EN_F ;CODE00+ CODE11 + SWING key cann't wake up unit
LDA #(CODE00+ CODE11 +YELLOW + BLUE + GREEN) ;SWING key cann't wake up unit
STA !BP0EN_F
LDA #(UP + LEFT+ DOWN + RIGHT)
STA !BP1EN_F
CLI
LDA #01H ;sleep
STA STOP
NOP
NOP
PLA
STA !BP0EN_F
STZ !BP1EN_F
STZ SleepTime
STZ SleepTime+1
_ExitSleep:
RTS
;=======================function:F_SendIdle
F_SendIdle:
LDA KeyFlag
BNE QiutIdle
SEI
LDA #(CODE00+ CODE11 + SWING + YELLOW + BLUE + GREEN)
STA !BP0EN_F
LDA #(UP + LEFT+ DOWN + RIGHT)
STA !BP1EN_F
CLI
LDA #01H ;sleep
STA STOP
NOP
NOP
LDA #SWING
STA !BP0EN_F
STZ !BP1EN_F
QiutIdle:
RTS
;=======================function:F_GetVerifyByte
F_GetVerifyByte:
GetVerifyLP:
CLC
ASL CodeTmp
BCS L_GetVerifyLP
INC CodeVerify
; LDA CodeVerify
; EOR #80H
; STA CodeVerify
L_GetVerifyLP:
DEX
BNE GetVerifyLP
RTS
;=======================function:SendStartCode ;send Start code:0
SendStartCode:
STZ IRCode
LDX #1
JSR SendIRCode
RTS
;=======================function:SendIRCode0 ;send code (SWING + CODE00+ CODE11 + YELLOW + BLUE + GREEN)
SendIRCode0:
LDA KeyBP0
ASL A
ASL A
STA IRCode
LDX #6
JSR SendIRCode
RTS
;=======================function:SendIRCode1 ;send code (UP + LEFT+ DOWN + RIGHT)
SendIRCode1:
LDA KeyBP1
ASL A
ASL A
ASL A
ASL A
STA IRCode
LDX #4
JSR SendIRCode
RTS
;=======================function:SendVerifyCode ;send Verify code
SendVerifyCode:
LDA CodeVerify
ASL A
ASL A
ASL A
ASL A
ASL A
STA IRCode
LDX #3
JSR SendIRCode
RTS
;=======================function:SendStopCode ;send Stop code: 0
SendStopCode:
LDA #1
STA IRCode
LDX #1
JSR SendIRCode
RTS
;=======================function:SendIRCode
SendIRCode:
SND_LP: ;
LDA #80H
TSB BP0C
STZ Count38k
CLC
ASL IRCode
BCC SND_CODE_L
SND_CODE_H: ;為1 高:低 = 1:1
LDA Count38k
SEC
SBC #46 ;46/2=23, 1t = 23*(1/38khz)=600us
BCC SND_CODE_H
LDA #80H
TRB BP0C
STZ Count38k
SND_LP1:
LDA Count38k
SEC
SBC #46 ;46/2=23, 1t = 23*(1/38khz)=600us
BCC SND_LP1
JMP SND_GO
SND_CODE_L: ;為0 高:低 = 1:2
LDA Count38k
SEC
SBC #46 ;46/2=23, 1t = 23*(1/38khz)=600us
BCC SND_CODE_L
LDA #80H
TRB BP0C
STZ Count38k
SND_LP2:
LDA Count38k
SEC
SBC #92 ;92/2=46, 1t = 46*(1/38khz)=1200us
BCC SND_LP2
SND_GO:
DEX
BNE SND_LP
RTS
;=============================function:UserInita
UserInita:
LDA #FFH
STA BP0D
STA BP1D
STA BP0M
STA BP1M
STZ !IEF0
STZ !IEF1
LDA #0FH ;BP00~BP05 AS INPUT
TSB BP0M
TSB BP0D
LDA #07H ;BP10~BP13 AS INPUT
TSB BP1M
TSB BP1D
LDA #10H ;BP07 AS IR OUT BP06 AS IO OUT
TSB BP0M
lda #10H
TRB BP0D
LDA #C0H
TSB BP0
; LDA #(SWING + CODE00+ CODE11 + YELLOW + BLUE + GREEN)
; TSB !BP0EN_F
; LDA #(UP + LEFT+ DOWN + RIGHT)
; TSB !BP1EN_F
; LDA #SWING
; TSB !BP0EN_F
LDA #01H
TSB !IEF0
LDA #0BH
STA TMG0C
LDA #(FCLK/(4*8192)-1) ;4HZ=250ms for timeout counter
STA TMG0V
LDA #01H
TSB TMG0C
LDA #08H
TSB !IEF0
LDA #01H
STA TM1C
LDA #(FCLK/(2*38000*2)-1) ;38KHZ
STA TM1V
LDA #01H
TSB TM1C
LDA #04H ;Open Timer1 interrput for Count38k
TSB IEF0
LDA #80H
TRB BP0C ;平時關IR_LED
TRB BP0 ;平時為低
; LDA #3FH
; STA KeyBP0
; LDA #0FH
; STA KeyBP1
LDA #1
STA Run_FRIST
RTS
;=======================function:IRDelay 1ms* X = X ms
IRDelay:
IRDelayLP:
STZ Count38k
Dey1ms:
LDA Count38k
SEC
SBC #76 ;76/2=38, 1t = 38*(1/38khz)=1ms
BCC Dey1ms
DEX
BNE IRDelayLP
RTS
ENDS
;==========================================================================
; ASSIGN INTERRUPT VECTORS INSIDE THIS SECTION
;==========================================================================
VECTOR: SECTION
ORG 1000H
DW 0040H ;DO NOT REMOVE
DW 0000H ;DO NOT REMOVE
ORG 100EH
DW 0990H ;IV OF BRK
ORG 1010H
DW TM0_ISR ;TIMER 0 ISR ;DO NOT REMOVE
DW TM1_ISR ;TIMER 1 ISR ;DO NOT REMOVE
DW TMG0_ISR ;TIEMRG 0 ISR ;DO NOT REMOVE
DW TMG1_ISR ;TIMERG 1 ISR
DW PORT_ISR ;DO NOT REMOVE
ORG 101AH
DW 0000H
DW MAIN_START ;IV OF RESET
DW IRQ_ISR ;IV OF IRQ
ORG 102EH
DW 0584H ;DO NOT REMOVE
ENDS
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -