📄 pedometer01.txt
字号:
NOP
SBIM ETL0,01H
BNZ STEP_LIP
;
SBI TEST_REG,05H
BAZ $+7
ADIM STEP_REG5,01H
DAA STEP_REG5
BNC END_COUNT
ADIM STEP_REG4,01H
DAA STEP_REG4
BNC END_COUNT
ADIM STEP_REG3,01H
DAA STEP_REG3
BNC END_COUNT
ADIM STEP_REG2,01H
DAA STEP_REG2
BNC END_COUNT
ADIM STEP_REG1,01H
DAA STEP_REG1
END_COUNT: SBI STEP_REG5,00H
BNZ END_COUNT1
SBI STEP_REG4,00H
BNZ END_COUNT1
SBI STEP_REG3,00H
BNZ END_COUNT1
SBI STEP_REG2,03H
BNZ NOT_3000
SBI STEP_REG1,00H
BAZ STEP_3000
JMP END_COUNT1
NOT_3000: SBI STEP_REG2,06H
BNZ NOT_6000
SBI STEP_REG1,00H
BAZ STEP_6000
JMP END_COUNT1
NOT_6000: SBI STEP_REG2,00H
BNZ END_COUNT1
SBI STEP_REG1,01H
BNZ END_COUNT1
JMP STEP_10000
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
STEP_3000: ORIM PORTA,0010B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,1101B
JMP END_COUNT1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
STEP_6000: ORIM PORTA,0100B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,1011B
JMP END_COUNT1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
STEP_10000: ORIM PORTA,1000B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,0111B
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
END_COUNT1: LDI PORTA,0001B
LDI PACR,1110B
LDI PORTB,1111B
LDI PBCR,0001B
LDI PMOD,1000B
ANDIM IRQ,0100B
ORIM IE,1101B
LDI SEN_REG,00H
RTNI
;********************************************************************
DO_KEY: SBI KEY_REG,05H
BNZ END_DO_KEY
;
LDI ETL0,00H
KEY_LIP: LDA PORTB
BA3 END_DO_KEY
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
SBIM ETL0,01H
BNZ KEY_LIP
;
SBI VOIC_REG,00H
BAZ VOIC_NUMB1
SBI VOIC_REG,01H
BAZ VOIC_NUMB2
SBI VOIC_REG,02H
BAZ VOIC_NUMB3
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
VOIC_NUMB1: ORIM PORTA,0010B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,1101B
LDI VOIC_REG,01H
JMP END_DO_KEY
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
VOIC_NUMB2: ORIM PORTA,0100B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,1011B
LDI VOIC_REG,02H
JMP END_DO_KEY
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
VOIC_NUMB3: ORIM PORTA,1000B
CALL DELAY_2MS
CALL DELAY_2MS
CALL DELAY_2MS
ANDIM PORTA,0111B
LDI VOIC_REG,00H
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
END_DO_KEY: LDI PORTA,0001B
LDI PACR,1110B
LDI PORTB,1111B
LDI PBCR,0001B
LDI PMOD,1000B
ANDIM IRQ,0100B
ORIM IE,1101B
LDI KEY_REG,00H
RTNI
;********************************************************************
TO_DISP: LDI DISP_REG1,0AH
LDI DISP_REG2,0AH
LDI DISP_REG3,0AH
LDI DISP_REG4,0AH
LDI DISP_REG5,0AH
LDI DISP_REG11,00H
LDI DISP_REG12,00H
LDI DISP_REG13,00H
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
LDA STEP_REG1
STA DISP_REG6
LDA STEP_REG2
STA DISP_REG7
LDA STEP_REG3
STA DISP_REG8
LDA STEP_REG4
STA DISP_REG9
LDA STEP_REG5
STA DISP_REG10
END_TO_DISP: RTNI
;******************************************************************
DISP_PROG: LDI TBR,0FH
LDA DISP_REG1
CALL DISP_TAB
STA 12H,06H
LDA DISP_REG11
BA0 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 11H,06H
;
LDI TBR,0FH
LDA DISP_REG2
CALL DISP_TAB
STA 10H,06H
LDA DISP_REG11
BA1 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 0FH,06H
;
LDI TBR,0FH
LDA DISP_REG5
CALL DISP_TAB
STA 14H,06H
LDA DISP_REG11
BA2 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 013H,06H
;
LDI TBR,0FH
LDA DISP_REG3
CALL DISP_TAB
STA 0EH,06H
LDA DISP_REG11
BA3 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 0DH,06H
;
LDI TBR,0FH
LDA DISP_REG4
CALL DISP_TAB
STA 0CH,06H
LDA DISP_REG12
BA0 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 0BH,06H
;
LDI TBR,0FH
LDA DISP_REG6
CALL DISP_TAB
STA 0AH,06H
LDA DISP_REG12
BA1 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 09H,06H
;
LDI TBR,0FH
LDA DISP_REG7
CALL DISP_TAB
STA 08H,06H
LDA DISP_REG13
BA2 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 07H,06H
;
LDI TBR,0FH
LDA DISP_REG8
CALL DISP_TAB
STA 06H,06H
LDA DISP_REG13
BA1 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 05H,06H
;
LDI TBR,0FH
LDA DISP_REG9
CALL DISP_TAB
STA 04H,06H
LDA DISP_REG13
BA0 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 03H,06H
;
LDI TBR,0FH
LDA DISP_REG10
CALL DISP_TAB
STA 02H,06H
LDA DISP_REG12
BA2 $+2
JMP $+2
ORIM TBR,0001B
LDA TBR
STA 01H,06H
;
LDA DISP_REG14
STA 00H,06H
RTNI
;******************************************************************
CLEAR_RAM: LDI DPL,00H
LDI DPM,02H
LDI DPH,00H
CLR_LOOP: LDI INX,00H
ADIM DPL,01H
BNZ CLR_LOOP
ADIM DPM,01H
SBI DPM,04H
BNZ CLR_LOOP
RTNI
;******************************************************************
DELAY_2S: LDI TL0,00H
LDI TL1,00H
LDI TL2,0FH
NOP
NOP
SBIM TL1,01H
BNZ $-3
SBIM TL0,01H
BNZ $-5
SBIM TL2,01H
BNZ $-7
RTNI
;******************************************************************
DELAY_2MS: NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RTNI
;******************************************************************
LCD_FULL: LDI NOP_TEMP,0FH ;LCD Full Display (SEG1~SEG21)
STA 0AH,06H
STA 08H,06H
STA 06H,06H
STA 04H,06H
STA 02H,06H
LDI NOP_TEMP,0EH
STA 09H,06H
STA 07H,06H
STA 05H,06H
STA 03H,06H
STA 01H,06H
RTNI
;******************************************************************
CLEAR_LCD: LDI DPH,06H
LDI DPM,00H
LDI DPL,00H
CLEAR_LIP: LDI INX,00H
ADIM DPL,01H
BNZ CLEAR_LIP
ADIM DPM,01H
SBI DPM,02H
BNZ CLEAR_LIP
RTNI
;******************************************************************
ORG 7EFH
DISP_TAB: TJMP ;bgch ,defa
RTNW 1010B,1111B ;0
RTNW 1010B,0000B ;1
RTNW 1100B,1011B ;2
RTNW 1110B,1001B ;3
RTNW 1110B,0100B ;4
RTNW 0110B,1101B ;5
RTNW 0110B,1111B ;6
RTNW 1010B,1000B ;7
RTNW 1110B,1111B ;8
RTNW 1110B,1101B ;9
RTNW 0000B,0000B ;A
RTNI ;B
RTNI ;C
RTNI ;D
RTNI ;E
RTNI ;F⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -