📄 slq.asm
字号:
INCF HHI, .1
MOVLW .9
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H615
MOVLW .7
SUBWF HHG, .0
BTFSC STATUS,Z
GOTO H616
GOTO H601
H616 MOVF ZTE, .0
MOVWF ZTB
MOVF ZTF, .0
MOVWF ZTC
MOVF ZTG, .0
MOVWF ZTD
MOVF ZTH, .0
MOVWF ZTE
MOVF ZTI, .0
MOVWF ZTF
MOVF ZTJ, .0
MOVWF ZTG
CLRF HHG
GOTO H601
YS00 MOVWF TMR2
BSF T2CON,TMR2ON
YS01 NOP
NOP
BTFSS PIR1,TMR2IF
GOTO YS01
BCF T2CON,TMR2ON
BCF PIR1,TMR2IF
RETURN
KL00 MOVLW L1
MOVWF FSR
CLRF HHI
MOVLW .1
MOVWF HHA
KL01 MOVLW .1
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO KL02
MOVLW .2
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO KL03
MOVLW .3
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO KL04
KL06 INCF HHA, .1
MOVLW .4
SUBWF HHA, .0
BTFSS STATUS,Z
GOTO KL05
CLRF HHA
KL05 INCF HHI, .1
INCF FSR, .1
MOVLW .24
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO KL01
RETURN
KL02 MOVF RE, .0
MOVWF .0
GOTO KL06
KL03 MOVF YE, .0
MOVWF .0
GOTO KL06
KL04 MOVF BL, .0
MOVWF .0
GOTO KL06
KM00 MOVLW L1
MOVWF FSR
CLRF HHA
KM01 MOVF ZTA, .0
MOVWF .0
INCF FSR, .1
INCF HHA, .1
MOVLW .24
SUBWF HHA, .0
BTFSS STATUS, .0
GOTO KM01
RETURN
KN00 MOVLW L1
MOVWF FSR
ADDWF ZTA, .0
MOVWF FSR
MOVLW .1
SUBWF FSR, .1
BTFSC ZTB, .0
GOTO KN01
CLRF .0
RETURN
KN01 MOVLW .24
MOVWF .0
RETURN
H700 INCF ZTB, .1
MOVF ZTA, .0
SUBWF ZTB, .0
BTFSS STATUS,Z
H701 RETURN
CLRF ZTB
CLRF HHI
CLRF HHA
CLRF HHB
CLRF HHC
MOVLW L1
MOVWF FSR
H702 MOVF .0, .0
MOVWF L25
INCF FSR, .1
MOVF .0, .0
MOVWF L26
INCF FSR, .1
MOVF .0, .0
MOVWF L27
INCF FSR, .1
MOVF .0, .0
MOVWF HHA
INCF FSR, .1
MOVF .0, .0
MOVWF HHB
INCF FSR, .1
MOVF .0, .0
MOVWF HHC
MOVLW .5
SUBWF FSR, .1
MOVF HHA, .0
MOVWF .0
INCF FSR, .1
MOVF HHB, .0
MOVWF .0
INCF FSR, .1
MOVF HHC, .0
MOVWF .0
INCF FSR, .1
MOVF L25, .0
MOVWF .0
INCF FSR, .1
MOVF L26, .0
MOVWF .0
INCF FSR, .1
MOVF L27, .0
MOVWF .0
INCF FSR, .1
INCF HHI, .1
MOVLW .4
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H702
RETURN
H800 INCF ZTB, .1
MOVF ZTA, .0
SUBWF ZTB, .0
BTFSS STATUS,Z
H801 RETURN
CLRF ZTB
CLRF HHA
CLRF HHB
CLRF HHC
MOVLW .1
MOVWF HHI
MOVLW L1
MOVWF FSR
H802 BTFSS ZTI, .0
GOTO H803
MOVF ZTC, .0
MOVWF HHA
MOVF ZTD, .0
MOVWF HHB
MOVF ZTE, .0
MOVWF HHC
H804 MOVF HHA, .0
MOVWF .0
INCF FSR, .1
MOVF HHB, .0
MOVWF .0
INCF FSR, .1
MOVF HHC, .0
MOVWF .0
INCF FSR, .1
COMF ZTI, .1
INCF HHI, .1
MOVLW .9
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H802
COMF ZTI, .1
RETURN
H803 MOVF ZTF, .0
MOVWF HHA
MOVF ZTG, .0
MOVWF HHB
MOVF ZTH, .0
MOVWF HHC
GOTO H804
H900 INCF ZTB, .1
MOVF ZTA, .0
SUBWF ZTB, .0
BTFSS STATUS,Z
H901 RETURN
INCF ZTH, .1
MOVLW .48
SUBWF ZTH, .0
BTFSC STATUS,Z
GOTO H922
H923 CLRF ZTB
MOVLW .1
MOVWF HHI
CLRF HHD
CLRF HHG
CLRF HHA
CLRF HHE
CLRF HHF
MOVLW L1
MOVWF FSR
H902 BTFSS ZTC, .7
GOTO H903
BTFSS ZTD, .1
GOTO H904
CLRF HHE
H905 MOVLW .1
MOVWF HHA
H906 MOVLW .1
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H907
MOVLW .2
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO H908
MOVF ZTI, .0
ADDWF ZTI, .0
MOVWF HHD
H909 MOVF HHE, .0
ADDWF HHD, .0
ADDWF ZTH, .0
MOVWF HHF
H910 MOVF HHF, .0
MOVWF HHG
MOVLW .48
SUBWF HHF, .1
BTFSC STATUS,C
GOTO H910
MOVLW .24
SUBWF HHG, .0
BTFSC STATUS,C
GOTO H911
MOVF HHG, .0
MOVWF .0
H912 INCF FSR, .1
INCF HHA, .1
MOVLW .4
SUBWF HHA, .0
BTFSS STATUS,Z
GOTO H906
H913 RLF ZTC, .1
BTFSS STATUS,C
GOTO H920
BSF ZTC, .0
H921 INCF HHI, .1
MOVLW .9
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO H902
GOTO H901
H920 BCF ZTC, .0
GOTO H921
H903 BTFSS ZTD, .0
GOTO H913
MOVF ZTE, .0
MOVWF .0
INCF FSR, .1
MOVF ZTF, .0
MOVWF .0
INCF FSR, .1
MOVF ZTG, .0
MOVWF .0
INCF FSR, .1
GOTO H913
H904 MOVF ZTJ, .0
ADDWF HHE, .1
GOTO H905
H907 CLRF HHD
GOTO H909
H908 MOVF ZTI, .0
MOVWF HHD
GOTO H909
H911 MOVF HHG, .0
SUBLW .48
MOVWF .0
GOTO H912
H922 CLRF ZTH
GOTO H923
HA00 INCF ZTJ, .1
BTFSC HHA, .2
GOTO HA02
GOTO HA01
HA01 MOVF ZTH, .0
SUBWF ZTJ, .0
BTFSS STATUS,Z
HA03 RETURN
BSF HHA, .2
GOTO HA04
HA02 MOVF ZTI, .0
SUBWF ZTJ, .0
BTFSS STATUS,Z
GOTO HA03
BCF HHA, .2
GOTO HA04
HA04 CLRF ZTJ
CLRF HHB
CLRF HHC
CLRF HHD
CLRF HHE
MOVLW .1
MOVWF HHI
MOVLW L1
MOVWF FSR
BTFSC HHA, .2
GOTO HA06
GOTO HA05
HA05 MOVF ZTB, .0
MOVWF HHB
MOVF ZTC, .0
MOVWF HHC
MOVF ZTD, .0
MOVWF HHD
BTFSC HHA, .1
GOTO HA07
GOTO HA08
HA07 HONG ZTB,HHB,DOG01,DOG02
HONG ZTC,HHC,DOG03,DOG04
HONG ZTD,HHD,DOG05,DOG06
GOTO HA08
HA06 MOVF ZTE, .0
MOVWF HHB
MOVF ZTF, .0
MOVWF HHC
MOVF ZTG, .0
MOVWF HHD
BTFSC HHA, .0
GOTO HA09
GOTO HA08
HA09 HONG ZTE,HHB,DOG07,DOG08
HONG ZTF,HHC,DOG09,DOG10
HONG ZTG,HHD,DOG11,DOG12
GOTO HA08
HA08 INCF HHE, .1
MOVLW .4
SUBWF HHE, .0
BTFSS STATUS,Z
GOTO HA10
MOVLW .1
MOVWF HHE
HA10 MOVLW .1
SUBWF HHE, .0
BTFSC STATUS,Z
GOTO HA11
MOVLW .2
SUBWF HHE, .0
BTFSC STATUS,Z
GOTO HA12
MOVF HHD, .0
MOVWF .0
HA14 INCF FSR, .1
INCF HHI, .1
MOVLW .25
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO HA08
GOTO HA03
HA11 MOVF HHB, .0
MOVWF .0
GOTO HA14
HA12 MOVF HHC, .0
MOVWF .0
GOTO HA14
HB00 INCF ZTJ, .1
MOVF ZTA, .0
SUBWF ZTJ, .0
BTFSS STATUS,Z
HB01 RETURN
CLRF ZTJ
INCF HHA, .1
MOVLW .7
SUBWF HHA, .0
BTFSC STATUS,Z
GOTO HB02
HB03 MOVLW .1
MOVWF HHI
MOVWF HHB
MOVWF HHJ
MOVLW L1
MOVWF FSR
CLRF HHC
CLRF HHD
CLRF HHE
CLRF HHF
CLRF HHG
CLRF HHH
HB04 MOVF ZTB, .0
SUBWF HHB, .0
BTFSC STATUS,Z
GOTO HB05
BTFSS ZTI, .0
GOTO HB06
HB07 MOVLW .1
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB08
MOVLW .2
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB09
MOVLW .3
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB10
HB27 MOVF HHB, .0
SUBWF HHJ, .0
BTFSS STATUS,Z
GOTO HB11
HB15 INCF HHC, .1
MOVLW .49
SUBWF HHC, .0
BTFSS STATUS,Z
GOTO HB16
CLRF HHC
HB16 MOVLW .1
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB17
MOVLW .2
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB18
MOVLW .3
SUBWF HHI, .0
BTFSC STATUS,Z
GOTO HB19
HB20 INCF HHI, .1
MOVLW .1
MOVWF HHJ
MOVLW .4
SUBWF HHI, .0
BTFSS STATUS,Z
GOTO HB07
GOTO HB21
HB02 MOVLW .1
MOVWF HHA
INCF ZTB, .1
MOVLW .9
SUBWF ZTB, .0
BTFSS STATUS,Z
GOTO HB03
MOVLW .1
MOVWF ZTB
GOTO HB03
HB05 MOVF ZTC, .0
MOVWF .0
INCF FSR, .1
MOVF ZTD, .0
MOVWF .0
INCF FSR, .1
MOVF ZTE, .0
MOVWF .0
GOTO HB01
HB06 MOVF ZTF, .0
MOVWF .0
INCF FSR, .1
MOVF ZTG, .0
MOVWF .0
INCF FSR, .1
MOVF ZTH, .0
MOVWF .0
INCF FSR, .1
INCF HHB, .1
GOTO HB04
HB08 MOVLW L1
MOVWF FSR
MOVF ZTF, .0
MOVWF HHC
GOTO HB27
HB09 MOVLW L2
MOVWF FSR
MOVF ZTG, .0
MOVWF HHC
GOTO HB27
HB10 MOVLW L3
MOVWF FSR
MOVF ZTH, .0
MOVWF HHC
GOTO HB27
HB11 MOVF HHC, .0
ADDWF HHE, .0
MOVWF HHD
HB12 MOVF HHD, .0
MOVWF HHG
MOVLW .48
SUBWF HHD, .1
BTFSC STATUS,C
GOTO HB12
MOVLW .24
SUBWF HHG, .0
MOVWF HHH
BTFSC STATUS,C
GOTO HB13
MOVF HHG, .0
MOVWF .0
HB14 MOVLW .3
ADDWF FSR, .1
MOVLW .3
ADDWF HHE, .1
INCF HHJ, .1
GOTO HB27
HB13 MOVF HHG, .0
SUBLW .48
MOVWF HHH
MOVF HHH, .0
MOVWF .0
GOTO HB14
HB17 MOVF HHC, .0
MOVWF ZTF
GOTO HB20
HB18 MOVF HHC, .0
MOVWF ZTG
GOTO HB20
HB21 MOVF ZTB, .0
MOVWF HHB
GOTO HB04
HB19 MOVF HHC, .0
MOVWF ZTH
GOTO HB20
MAIN CLRF TB
CLRF FB
BSF STATUS,RP0
CLRF TRISC
CLRF TRISD
CLRF PIE1
BCF STATUS,RP0
BCF STATUS,RP1
BCF STATUS,IRP
MOVLW .13
MOVWF TG
MOVLW .1
MOVWF HS
MOVWF SG
MOVWF JS
BSF STATUS,RP0
MOVLW .0
MOVWF TRISE
MOVLW .48
MOVWF TRISA
MOVLW .1
MOVWF TRISB
BSF PCON,NOT_POR
MOVLW .199
MOVWF OPTION_REG
BCF STATUS,RP0
MOVLW .123
MOVWF T2CON
MOVLW .240
MOVWF INTCON
BCF INTCON,GIE
;
;
;
DEBUG MOVLW .1
MOVWF ZTA
MOVLW .0
MOVWF ZTB
MOVLW .1
MOVWF ZTC
MOVLW .2
MOVWF ZTD
MOVLW .3
MOVWF ZTE
MOVLW .5
MOVWF ZTF
MOVLW .6
MOVWF ZTG
MOVLW .7
MOVWF ZTH
MOVLW .0
MOVWF ZTI
MOVLW .0
MOVWF ZTJ
MOVLW .0
MOVWF HHA
TEST MOVLW .2
SUBWF FB, .0
BTFSC STATUS,Z
GOTO TEST
CLRF FB
CALL ZD00
GOTO TEST
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -