⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 h.asm

📁 M62446的源代码
💻 ASM
📖 第 1 页 / 共 5 页
字号:
          movwf txbuf1
          movlw b'00100000'
          movwf txbuf2
          call njw1102
          clrf dbflag 
          clrf pinflag2

          bsf dbflag,1 
          bsf dbflag,4 
          bsf pclath,3 
          bcf reg6,2
          bcf reg14,2
          call clrd 
          clrf pinflag1 
          clrf pinflag2
          bsf pinflag2,2
          call checkdisp
          bsf pclath,3 
          call d3disp 
          call normaldisp 
          call demute;;;;;;;;;;;;

          bcf pclath,3
          return
stereo    
          btfsc inflag,5
          return  
          
          
          call csmute
          bsf dbflag,0
          clrf pinflag1
          clrf pinflag2 
          bsf pinflag2,0   

          bsf pclath,3  
          bcf reg14,2
          bsf reg6,2  
          clrf reg15
          clrf reg16 
          bsf reg16,3
          call clrd
          call checkdisp
          bsf pclath,3 
          call demute;;;;;;;;;;;
          bsf pclath,3
          call ch2disp 
          bcf pclath,3
          movlw b'00100000'
          movwf txbuf1
          movlw b'00100000'
          movwf txbuf2
          call njw1102  
          movlw b'01011001'
          movwf txbuf1
          movlw b'00100000'
          movwf txbuf2
          call njw1102 
          return   
      
cson      bcf muteflag,5 
          goto jr1
csmute    bsf muteflag,5 
jr1         movf muteflag,0
          movwf txbuf
          movlw 8
          movwf tcount 
          call output595 
          return

direct  ;tran data to njw1102,62446  
           btfsc inflag,5
           return 
          
           call csmute
           bsf dbflag,3 
           clrf pinflag2
           clrf pinflag1
           bsf pinflag2,1
         ; call dispoff4
           bsf pclath,3
           bsf reg14,2
           bcf reg6,2 
           clrf reg15
           clrf reg16 
           bsf reg16,3
           call clrd
           call checkdisp
           bsf pclath,3
           call ch2disp 
           call demute;;;;;;;;;;;;
           bcf pclath,3
           movlw b'00100000'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102  
           movlw b'01010001'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           movlw b'00000000'
           movwf txbuf1
           movlw b'00000010'
           movwf txbuf2
           movlw b'00000000'
           movwf txbuf3
           call m62446 
           clrf dbflag
           bsf  dbflag,3
           return

sw_vold     btfsc pinflag2,3
            goto swdd1 
            btfsc inflag,5
            goto swdd1   
            movf pinflag1,0
            xorlw 0
            btfsc _z
            return

        
swdd1      bsf pclath,3
           call swdisp 
           bcf pclath,3   
           incf swcount,1
           movf swcount,0
           xorlw 81
           btfss _z
           goto sw1
           decf swcount,1 
sw1        movf swcount,0
           call binbcd
           movf msd,0
           call disps
           movf lsd,0
           call dispg 
 
           shuju cencount
           movwf txbuf1
           shuju swcount
           movwf txbuf2
           movlw b'10000000'       ;address
           movwf txbuf3 
           call m62446    
           call delay20 
           return

sw_volu     btfsc pinflag2,3
            goto swuu1 
            btfsc inflag,5
            goto swuu1 
            movf pinflag1,0
            btfsc _z
            return

swuu1      bsf pclath,3   
           call swdisp
           bcf pclath,3   
           decf swcount,1
           movf swcount,0
           xorlw 0xff
           btfss _z
           goto sw1
           incf swcount,1 
           goto sw1
                   
master_volu
           call delay40
           goto v1
            


master_vold
           call delay40 
           goto L2
         
phanton           
           btfsc dbflag,0
           return 
           btfsc dbflag,3                                                        
           return
           btfsc dbflag,1
           return  
           movf pinflag1,0
           xorlw 0
           btfss _z
           return
           bcf dbflag,4
           bsf dbflag,5
           bcf dbflag,6 
           bsf pclath,3
           call phantondisp  
           bcf pclath,3  
           movlw b'00100000'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2 
           call njw1102
           movlw b'00001001'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           return
wide     
         
           btfsc dbflag,0
           return 
           btfsc dbflag,3                
           return  
           movf pinflag1,0
           xorlw 0
           btfss _z
           return
           bsf pclath,3
           call widedisp 
           bcf pclath,3 
           movlw b'00000000'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           bcf dbflag,4
           bcf dbflag,5
           bsf dbflag,6  
           btfsc dbflag,1 
           goto wide1
           btfsc dbflag,2
           goto wide2
           return
wide1      movlw b'00010001'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           return
wide2
           movlw b'00000001'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           return

normal     btfsc dbflag,0
           return 
           btfsc dbflag,3                                         
           return 
           movf pinflag1,0
           xorlw 0
           btfss _z
           return
           bcf dbflag,5
           bcf dbflag,6
           bsf dbflag,4 
           bsf pclath,3 
           call normaldisp
           bcf  pclath,3 
           movlw b'00000000'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
                         
           btfsc dbflag,1 
           goto norm1           
           btfsc dbflag,2
           goto norm2
           return
norm1    
           movlw b'00010101'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           return
norm2
           movlw b'00000101'
           movwf txbuf1
           movlw b'00100000'
           movwf txbuf2
           call njw1102
           return
                      
          
trembleu   btfsc pinflag2,1
           return
           bsf pclath,3       ;tremcount =10
           call delayfa
           call tremdisp
           
           bcf pclath,3 
         
           incf tremcount,1
           incf tremcount,1
           movf tremcount,0
           xorlw 22
           btfss _z           ;z=1,=22
           goto a1
           decf tremcount,1
           decf tremcount,1  
           goto a1
a1               
           movf tremcount,0
           xorlw 0
           btfsc _z
           goto tr1 
           movf tremcount,0
           xorlw 2
           btfsc _z
           goto tr2
           movf tremcount,0
           xorlw 4
           btfsc _z
           goto tr3
           movf tremcount,0
           xorlw 6
           btfsc _z
           goto tr4
           movf tremcount,0
           xorlw 8
           btfsc _z
           goto tr5
           movf tremcount,0
           xorlw 10
           btfsc _z
           goto tr6
           movf tremcount,0
           xorlw 12
           btfsc _z
           goto tr7
           movf tremcount,0
           xorlw 14
           btfsc _z
           goto tr8
           movf tremcount,0
           xorlw 16
           btfsc _z
           goto tr9
           movf tremcount,0
           xorlw 18
           btfsc _z
           goto tr10
           movf tremcount,0
           xorlw 20
           btfsc _z
           goto tr11
           return
tr1        movlw b'11100000'
           movwf tremcount1 
           call tonet
           movlw 1
           call disps        ;+   
           call n_disp 
           movlw 0
           call dispg 
           return 
tr2        movlw b'11000000'
           movwf tremcount1 
           call tonet
           call n_disp
           movlw 8
           call dispg 
           return
tr3        movlw b'10110000'
           movwf tremcount1 
           call tonet        ;+  
           call n_disp
           movlw 6
           call dispg 
           return
tr4        movlw b'10100000'
           movwf tremcount1 
           call tonet 
           call n_disp
           movlw 4
           call dispg 
           return
tr5        movlw b'10010000'
           movwf tremcount1 
           call tonet  
           call n_disp
           movlw 2
           call dispg 
           return
tr6        movlw b'00000000'
           movwf tremcount1 
           call tonet
           movlw 0
           call dispg 
           return
tr7        movlw b'00010000'
           movwf tremcount1
           call tonet 
           call p_disp 
           movlw 2
           call dispg 
           return
tr8        movlw b'00100000'
           movwf tremcount1 
           call tonet
           call p_disp
           movlw 4
           call dispg 
           return
tr9        movlw b'00110000'
           movwf tremcount1 
           call tonet
           call p_disp 
           movlw 6
           call dispg 
           return
tr10       movlw b'01000000'
           movwf tremcount1 
           call tonet   
           call p_disp
           movlw 8
           call dispg 
           return
tr11       movlw b'01100000'
           movwf tremcount1 
           call tonet
           movlw 1
           call disps        ;+ 
           call p_disp
           movlw 0
           call dispg 
           return  
n_disp  
          movlw 0x02
          movwf sreg9
          clrf sreg10 
          return
p_disp    movlw 0x22
          movwf sreg9 
          movlw 0x20
          movwf sreg10
          return

tonet       
           movf tremcount1,0 
           movwf txbuf1
           rrf basscount1,0
           movwf txbuf2 
           movlw b'00000000'
           movwf txbuf3
           call m62446 
           return   
        
          
trembled   btfsc pinflag2,1
           return
           bsf pclath,3      
           call delayfa
           call tremdisp
           bcf pclath,3   
           decf tremcount,1
           decf tremcount,1  
           movf tremcount,0
           xorlw 0xfe
           btfss _z           ;z=1,=22
           goto a1
           incf tremcount,1
           incf tremcount,1  
           goto a1
       
down       call delay20
           btfsc vflag,2
           goto cen_vold
           btfsc vflag,3
           goto surr_vold  
           btfsc vflag,4
           goto sw_vold  
           btfsc vflag,5
           goto g1;;;;;;;;;;;;;;;   
           btfsc vflag,6
           goto trembled
           btfsc vflag,7
           goto g4
           return   
g1         bsf pclath,3
           goto bassd

g4         bsf pclath,3
           goto balance_r

up         call delay20
           btfsc vflag,2
           goto cen_volu
           btfsc vflag,3
           goto surr_volu  
           btfsc vflag,4
           goto sw_volu 
           btfsc vflag,5
           goto g2;     bassu   
           btfsc vflag,6
           goto trembleu
           btfsc vflag,7
           goto g5
           return  
g2         bsf pclath,3
           goto bassu   
g5         bsf pclath,3
           goto balance_l


treble     btfsc pinflag2,1
           return
           clrf vflag
           bsf vflag,6
           bsf pclath,3
           call tremdisp
           bcf pclath,3  
           goto a1
           return    
inih       movlw 2
           movwf count2
           clrf flag
           return

H1         shuju lcount
           movwf txbuf1
           shuju rrcount
           movwf txbuf2
           movlw b'01000000'       ;address
           movwf txbuf3 
           call m62446          
           call inih
           bsf flag,7
           movf balancount,0
           call binbcd
           movf msd,0    ;11g
           call bdisp 
           call inih
           bsf flag,6
           movf lsd,0
           call bdisp 
           call inih
           bsf flag,5
           movf balan2count,0
           call binbcd
           movf msd,0            ;7g
           call bdisp 
           call inih
           bsf flag,4
           movf lsd,0            ;6g
           call bdisp   
           bsf pclath,3
           call scheckdisp 
           bcf pclath,3 
           call delay20
           return
 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -