📄 slq01.asm
字号:
INCLUDE "SLQ.H"
INCLUDE "P16C65.INC"
LIST P=16C65
START ORG .0
GOTO MAIN
NOP
NOP
NOP
ZD00 ORG .4
MOVWF TMP_W
MOVF STATUS , .0
MOVWF TMP_OPTION
BTFSC INTCON ,INTF
GOTO ZD01
BCF INTCON,T0IF
;BTFSS WB, .0
;GOTO ZD02
;BCF WB, .0
;MOVLW .1
;MOVWF JS
ZD02 INCFSZ JS, .0
GOTO ZD110
GOTO ZD100
ZD110 MOVF TMPORTB, .0
MOVWF PORTB
MOVF TMPORTC, .0
MOVWF PORTC
MOVF TMPORTD, .0
MOVWF PORTD
BTFSS TMPORTE, .0
GOTO ZD101 ;BCF PORTE, .0
BSF PORTE, .0
ZD102 MOVF JS, .0
CALL TABLE
MOVWF TMR0
MOVF JS, .0
SUBWF L1, .0
BTFSS STATUS ,C
GOTO ZD03
BSF TMPORTE, .0
ZD04 MOVF JS, .0
SUBWF L2, .0
BTFSS STATUS,C
GOTO ZD05
BSF TMPORTB, .1
ZD06 MOVF JS, .0
SUBWF L3, .0
BTFSS STATUS,C
GOTO ZD07
BSF TMPORTB, .2
ZD08 MOVF JS, .0
SUBWF L4, .0
BTFSS STATUS,C
GOTO ZD09
BSF TMPORTB, .3
ZD10 MOVF JS, .0
SUBWF L5, .0
BTFSS STATUS,C
GOTO ZD11
BSF TMPORTB, .4
ZD12 MOVF JS, .0
SUBWF L6, .0
BTFSS STATUS, C
GOTO ZD13
BSF TMPORTB, .5
ZD14 MOVF JS, .0
SUBWF L7, .0
BTFSS STATUS ,C
GOTO ZD15
BSF TMPORTB, .6
ZD16 MOVF JS, .0
SUBWF L8, .0
BTFSS STATUS ,C
GOTO ZD17
BSF TMPORTB, .7
ZD18 MOVF JS , .0
SUBWF L9, .0
BTFSS STATUS, C
GOTO ZD19
BSF TMPORTC, .0
ZD20 MOVF JS , .0
SUBWF L10, .0
BTFSS STATUS ,C
GOTO ZD21
BSF TMPORTC, .1
ZD22 MOVF JS , .0
SUBWF L11, .0
BTFSS STATUS ,C
GOTO ZD23
BSF TMPORTC, .2
ZD24 MOVF JS , .0
SUBWF L12, .0
BTFSS STATUS ,C
GOTO ZD25
BSF TMPORTC, .3
ZD26 MOVF JS , .0
SUBWF L13, .0
BTFSS STATUS ,C
GOTO ZD27
BSF TMPORTC, .4
ZD28 MOVF JS , .0
SUBWF L14, .0
BTFSS STATUS ,C
GOTO ZD29
BSF TMPORTC, .5
ZD30 MOVF JS , .0
SUBWF L15, .0
BTFSS STATUS ,C
GOTO ZD31
BSF TMPORTC, .6
ZD32 MOVF JS , .0
SUBWF L16, .0
BTFSS STATUS ,C
GOTO ZD33
BSF TMPORTC, .7
ZD34 MOVF JS , .0
SUBWF L17, .0
BTFSS STATUS ,C
GOTO ZD35
BSF TMPORTD, .0
ZD36 MOVF JS , .0
SUBWF L18, .0
BTFSS STATUS ,C
GOTO ZD37
BSF TMPORTD, .1
ZD38 MOVF JS , .0
SUBWF L19, .0
BTFSS STATUS ,C
GOTO ZD39
BSF TMPORTD, .2
ZD40 MOVF JS , .0
SUBWF L20, .0
BTFSS STATUS ,C
GOTO ZD41
BSF TMPORTD, .3
ZD42 MOVF JS , .0
SUBWF L21, .0
BTFSS STATUS ,C
GOTO ZD43
BSF TMPORTD, .4
ZD44 MOVF JS , .0
SUBWF L22, .0
BTFSS STATUS ,C
GOTO ZD45
BSF TMPORTD, .5
ZD46 MOVF JS , .0
SUBWF L23, .0
BTFSS STATUS ,C
GOTO ZD47
BSF TMPORTD, .6
ZD48 MOVF JS , .0
SUBWF L24, .0
BTFSS STATUS ,C
GOTO ZD49
BSF TMPORTD, .7
ZD50 DECF JS, .1
ZD51 MOVF TMP_OPTION , .0
MOVWF STATUS
MOVF TMP_W, .0
RETFIE
ZD01 BCF INTCON,INTF
;BSF WB, .0
INCF FB, .1
MOVLW .24
MOVWF JS
BSF INTCON,T0IE
GOTO ZD02
TABLE ADDWF PCL, .1
RETLW W24
RETLW W23
RETLW W22
RETLW W21
RETLW W20
RETLW W19
RETLW W18
RETLW W17
RETLW W16
RETLW W15
RETLW W14
RETLW W13
RETLW W12
RETLW W11
RETLW W10
RETLW W9
RETLW W8
RETLW W7
RETLW W6
RETLW W5
RETLW W4
RETLW W3
RETLW W2
RETLW W1
RETLW .229
DY00 MOVLW .2
SUBWF FB, .0
BTFSS STATUS, Z
GOTO DY00
CLRF FB
INCF CHI, .1
MOVLW .24
SUBWF CHI, .0
BTFSC STATUS, Z
GOTO DY01
DY03 MOVF SSH, .0
ADDWF SSH, .0
ADDWF PCL, .1
NOP
NOP
CALL H100
GOTO DY00
CALL H200
GOTO DY00
CALL H300
GOTO DY00
CALL H400
GOTO DY00
CALL H500
GOTO DY00
CALL H600
GOTO DY00
CALL H700
GOTO DY00
CALL H800
GOTO DY00
CALL H900
GOTO DY00
CALL HA00
GOTO DY00
DY01 INCF MIAO, .1
MOVF SST, .0
SUBWF MIAO, .0
BTFSC STATUS, Z
GOTO DY02
CLRF CHI
GOTO DY03
DY02 CLRF CHI
CLRF MIAO
RETURN
ZD03 BCF TMPORTE, .0
GOTO ZD04
ZD05 BCF TMPORTB, .1
GOTO ZD06
ZD07 BCF TMPORTB, .2
GOTO ZD08
ZD09 BCF TMPORTB, .3
GOTO ZD10
ZD11 BCF TMPORTB, .4
GOTO ZD12
ZD13 BCF TMPORTB, .5
GOTO ZD14
ZD15 BCF TMPORTB, .6
GOTO ZD16
ZD17 BCF TMPORTB, .7
GOTO ZD18
ZD19 BCF TMPORTC, .0
GOTO ZD20
ZD21 BCF TMPORTC, .1
GOTO ZD22
ZD23 BCF TMPORTC, .2
GOTO ZD24
ZD25 BCF TMPORTC, .3
GOTO ZD26
ZD27 BCF TMPORTC, .4
GOTO ZD28
ZD29 BCF TMPORTC, .5
GOTO ZD30
ZD31 BCF TMPORTC, .6
GOTO ZD32
ZD33 BCF TMPORTC, .7
GOTO ZD34
ZD35 BCF TMPORTD, .0
GOTO ZD36
ZD37 BCF TMPORTD, .1
GOTO ZD38
ZD39 BCF TMPORTD, .2
GOTO ZD40
ZD41 BCF TMPORTD, .3
GOTO ZD42
ZD43 BCF TMPORTD, .4
GOTO ZD44
ZD45 BCF TMPORTD, .5
GOTO ZD46
ZD47 BCF TMPORTD, .6
GOTO ZD48
ZD49 BCF TMPORTD, .7
GOTO ZD50
ZD100 CLRF PORTC
CLRF PORTD
BCF PORTE, .0
CLRF PORTB
BCF INTCON,T0IE ;CLOSE TIME
GOTO ZD51 ;RETURN
ZD101 BCF PORTE, .0
GOTO ZD102
H100 INCF ZTE, .1
MOVF ZTE, .0
SUBWF ZTD, .0
BTFSS STATUS,Z
H101 RETURN
CLRF ZTE
INCF ZTC, .1
MOVLW .49
SUBWF ZTC, .0
BTFSS STATUS,Z
GOTO H102
CLRF ZTC
H102 CLRF HHA
CLRF HHD
CLRF HHE
CLRF HHF
CLRF HHG
CLRF HHH
MOVLW .1
MOVWF HHI
MOVLW L1
MOVWF FSR
H103 INCF HHA, .1
MOVLW .4
SUBWF HHA, .0
BTFSS STATUS,Z
GOTO H104
MOVLW .1
MOVWF HHA
MOVF ZTA, .0
ADDWF HHE, .1
H104 MOVLW .1
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H105
MOVLW .2
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H106
MOVF ZTB, .0
ADDWF ZTB, .0
MOVWF HHD
H107 MOVF HHD, .0
ADDWF HHE, .0
ADDWF ZTC, .0
MOVWF HHF
H108 MOVF HHF, .0
MOVWF HHG
MOVLW .48
SUBWF HHF, .1
BTFSC STATUS,C
GOTO H108
MOVLW .24
SUBWF HHG, .0
MOVWF HHH
BTFSC STATUS,C
GOTO H109
MOVF HHG, .0
MOVWF .0
H110 INCF FSR, .1
INCF HHI, .1
MOVLW .25
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H103
GOTO H101
H105 CLRF HHD
GOTO H107
H106 MOVF ZTB, .0
MOVWF HHD
GOTO H107
H109 MOVF HHG, .0
SUBLW .48
MOVWF .0
GOTO H110
H200 INCF ZTE, .1
MOVF ZTE, .0
SUBWF ZTD, .0
BTFSS STATUS,Z
H201 RETURN
CLRF ZTE
INCF ZTA, .1
INCF ZTB, .1
INCF ZTC, .1
MOVLW .49
SUBWF ZTA, .0
BTFSS STATUS,Z
GOTO H202
CLRF ZTA
H202 MOVLW .47
SUBWF ZTB, .0
BTFSS STATUS,Z
GOTO H203
CLRF ZTB
H203 MOVLW .45
SUBWF ZTC, .0
BTFSS STATUS,Z
GOTO H204
CLRF ZTC
H204 CLRF HHA
CLRF HHD
MOVLW .1
MOVWF HHI
MOVLW L1
MOVWF FSR
H205 INCF HHA, .1
MOVLW .4
SUBWF HHA, .0
BTFSS STATUS,Z
GOTO H206
MOVLW .1
MOVWF HHA
H206 MOVLW .1
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H208
MOVLW .2
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H209
MOVF ZTC, .0
MOVWF HHD
MOVLW .22
SUBWF HHD, .0
BTFSS STATUS,C
GOTO H207
MOVF HHD, .0
SUBLW .44
MOVWF HHD
H207 MOVF HHD, .0
MOVWF .0
INCF FSR, .1
INCF HHI, .1
MOVLW .25
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H205
GOTO H201
H208 MOVF ZTA, .0
MOVWF HHD
MOVLW .24
SUBWF HHD, .0
BTFSS STATUS,C
GOTO H207
MOVF HHD, .0
SUBLW .48
MOVWF HHD
GOTO H207
H209 MOVF ZTB, .0
MOVWF HHD
MOVLW .23
SUBWF HHD, .0
BTFSS STATUS,C
GOTO H207
MOVF HHD, .0
SUBLW .46
MOVWF HHD
GOTO H207
H300 INCF ZTF, .1
MOVF ZTG, .0
SUBWF ZTF, .0
BTFSS STATUS,Z
H301 RETURN
CLRF ZTF
MOVLW .1
SUBWF ZTB, .0
BTFSS STATUS,Z
GOTO H302
MOVLW .8
SUBWF ZTH, .0
BTFSS STATUS,Z
GOTO H302
BTFSS ZTI, .0
GOTO H303
MOVF ZTC, .0
SUBWF ZTG, .0
MOVWF HHA
BTFSS STATUS,C
GOTO H305
MOVF HHA, .0
SUBWF ZTD, .0
BTFSS STATUS,C
GOTO H304
BCF ZTI, .0
H304 BTFSS ZTI, .0
GOTO H306
MOVF ZTC, .0
SUBWF ZTG, .1
H302 MOVLW .1
MOVWF HHI
MOVLW L1
MOVWF FSR
MOVF L1, .0
MOVWF L25
MOVF L2, .0
MOVWF L26
MOVF L3, .0
MOVWF L27
H307 MOVLW .3
ADDWF FSR, .1
MOVF .0, .0
MOVWF HHD
MOVLW .1
SUBWF ZTE, .0
BTFSS STATUS,Z
GOTO H308
INCF HHD, .1
MOVLW .25
SUBWF HHD, .0
BTFSS STATUS,Z
GOTO H308
CLRF HHD
H308 MOVLW .3
SUBWF FSR, .1
MOVF HHD, .0
MOVWF .0
INCF FSR, .1
INCF HHI, .1
MOVLW .25
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H307
INCF ZTH, .1
MOVLW .9
SUBWF ZTH, .0
BTFSS STATUS,Z
GOTO H301
MOVLW .1
MOVWF ZTH
GOTO H301
H303 MOVF ZTC, .0
ADDWF ZTG, .0
MOVWF HHA
MOVF ZTA, .0
SUBWF HHA, .0
BTFSS STATUS,C
GOTO H304
BSF ZTI, .0
GOTO H304
H305 BCF ZTI, .0
GOTO H304
H306 MOVF ZTC, .0
ADDWF ZTG, .1
GOTO H302
H400 INCF ZTE, .1
MOVF ZTA, .0
SUBWF ZTE, .0
BTFSS STATUS,Z
GOTO H401
CLRF ZTE
MOVLW .1
MOVWF HHI
MOVWF HHC
MOVLW L1
MOVWF .4
CLRF HHB
CLRF HHA
CLRF HHD
CLRF HHE
CLRF HHF
CLRF HHH
CLRF HHG
MOVF ZTF, .1
BTFSC STATUS,Z
GOTO H402
DECF ZTG, .1
MOVLW .0
SUBWF ZTG, .0
BTFSS STATUS,Z
GOTO H403
BCF ZTF, .0
H403 MOVLW .3
ADDWF ZTG, .0
MOVWF HHA
H420 MOVLW .11
SUBWF HHA, .0
BTFSC STATUS,C
GOTO H404
MOVLW .4
SUBWF HHA, .0
BTFSS STATUS,C
GOTO H404
MOVF ZTB, .0
MOVWF HHD
CLRF HHC
H405 MOVF HHA, .0
SUBWF HHC, .0
BTFSS STATUS,Z
GOTO H406
H407 MOVF HHD, .0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -