h.asm

M62446的源代码

            xorlw 0xe2
            btfsc _z
            goto sw_vold
            movf 0x71,0
            xorlw 0xe1
            btfsc _z
            goto key31 
            movf 0x71,0
            xorlw 0xe0
            btfsc _z
            goto key32 



            movf 0x71,0
            xorlw 0xbd
            btfsc _z
            goto key35 
            movf 0x71,0
            xorlw 0xbc
            btfsc _z
            goto key36 

            movf 0x71,0
            xorlw 0xbb;;;;;;;;;
            btfsc _z
            goto master_volu
            movf 0x71,0
            xorlw 0xb9
            btfsc _z
            goto key39 
            movf 0x71,0
            xorlw 0xb7
            btfsc _z
            goto master_vold
            movf 0x71,0
            xorlw 0xb5
            btfsc _z
            goto key43 
            movf 0x71,0
            xorlw 0xb4
            btfsc _z
            goto phanton
            movf 0x71,0
            xorlw 0xb2
            btfsc _z
            goto wide  
            movf 0x71,0
            xorlw 0xb1
            btfsc _z
            goto trembleu
            movf 0x71,0
            xorlw 0xb0
            btfsc _z
            goto trembled
            movf 0x71,0
            xorlw 0xab
            btfsc _z
            movf 0x71,0
            goto normal
            return    
closekeyb   movf 0x71,0
            xorlw 0xfd
            btfss _z  
            return
            goto pp1 
closekeybb  movf 0x71,0
            xorlw 0xff
            btfss _z  
            return
            goto pp1


keyp         bsf pclath,3
            goto pro_logic    
                                 
key1        bsf pclath,3
            goto mute
       
key3        bsf pclath,3
            goto test
key4        bsf pclath,3
            goto loudness
                 
key6        bsf pclath,3
            goto ld   
        
key7        bsf pclath,3
            goto cd 
key8        bsf pclath,3
            goto vcd  
         
key9        bsf pclath,3
            goto dsp8  
               
key10       bsf pclath,3
            goto dsp7  
                
key11       bsf pclath,3
            goto dsp6  
               
key12       bsf pclath,3
            goto dsp5  
               
key13       bsf pclath,3
            goto dsp4  
              
key14       bsf pclath,3
            goto dvd_6ch
        
key15       bsf pclath,3
            goto aux  
         
key16       bsf pclath,3
            goto tape 
         
key17       bsf pclath,3
            goto dvd_2ch
         
key18       bsf pclath,3
            goto display
                 
key22       bsf pclath,3
            goto delay_timeu
         
key23       bsf pclath,3
            goto delay_timed
        
key28       bsf pclath,3
            goto balance_r
         
key31       bsf pclath,3 
            goto balance_l
         
key32       bsf pclath,3
            goto dsp1  
      
key35       bsf pclath,3
            goto dsp3  
       
key36       bsf pclath,3
            goto dsp2  
               
key39       bsf pclath,3
            goto bassd
              
key43       bsf pclath,3
            goto bassu
                      
keyd        bsf pclath,3
            goto balance
               
keye        bsf pclath,3
            goto dsp  
  
         

             
 
alps    
           bcf _rp0 
           bcf flag,0
           bsf porta,4
           clrf tmr1l
           clrf tmr1h 
qqqq       movf tmr1h,0
           sublw 0x20
           btfss _c            
           return
           btfss porta,4 
           goto qqqq 
           clrf tmr1l
           clrf tmr1h 
qw         movf tmr1h,0
           sublw 0x20
           btfss _c            
           return
           btfsc porta,4
           goto qw
           btfss portb,1
           goto L2        ;反转L2 +2db

v1         bsf portc,1
           bsf pclath,3
           call dbdisp
           bcf pclath,3                        
           decf count,1           ;正转-2DB 
           decf lcount,1 
           decf rrcount,1 
           decf cencount,1 
           decf scount,1  
           decf swcount,1

           movf count,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto LL1
           incf count,1 
            
           movlw 0 
           call disps
           movlw 0 
           call dispg
            

LL1        movf lcount,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto LL2
           incf lcount,1 

LL2        movf rrcount,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto LL3
           incf rrcount,1
LL3        movf cencount,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto LL4
           incf cencount,1 

LL4        movf scount,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto LL5
           incf scount,1 
 
LL5        movf swcount,0
           xorlw 0xff             ;count=0?
           btfss _z 
           goto L1
           incf swcount,1
           goto L1
           return

L1         
           movf count,0
           call binbcd
           movf msd,0
           call disps
           movf lsd,0
           call dispg 
        
        
           bsf portc,1  

           shuju lcount
           movwf txbuf1
           shuju rrcount
           movwf txbuf2
           movlw b'01000000'
           movwf txbuf3
           call m62446

           shuju cencount
           movwf txbuf1
           shuju swcount
           movwf txbuf2
           movlw b'10000000'
           movwf txbuf3
           call m62446

           shuju scount
           movwf txbuf1
           shuju scount
           movwf txbuf2
           movlw b'11000000'
           movwf txbuf3
           call m62446  
           call chli
           return          
           
L2         incf count,1   ;正转-2DB
           incf lcount,1 
           incf rrcount,1 
           incf cencount,1 
           incf scount,1  
           incf swcount,1  
           bsf pclath,3   
           call dbdisp 
           bcf pclath,3   
           movf count,0
           xorlw 81
           btfss _z 
           goto LL6
           decf count,1 
           
           movlw 8 
           call disps
           movlw 0 
           call dispg
LL6        movf lcount,0
           xorlw 81             ;count=0?
           btfss _z 
           goto LL7
           decf lcount,1 

LL7        movf rrcount,0
           xorlw 81             ;count=0?
           btfss _z 
           goto LL9
           decf rrcount,1 
LL9        movf cencount,0
           xorlw 81             ;count=0?
           btfss _z 
           goto LL8
           decf cencount,1 


LL8        movf scount,0
           xorlw 81             ;count=0?
           btfss _z 
           goto LL10
           decf scount,1   

LL10       movf swcount,0
           xorlw 81             ;count=0?
           btfss _z 
           goto L1
           decf swcount,1
           goto L1
           return
binbcd
          clrf msd 
          movwf lsd
g         movlw 10
          subwf lsd,0
          btfss _c
          goto over
          movwf lsd
          incf msd,1
          goto g
over      retlw 0          

dispg 
           movwf offset
           addwf offset,0
           addwf offset,1
           movf offset,0
           xorlw 30
           btfsc _z 
           return 
           movlw 2
           movwf count2
           call orderen1  
           movlw b'10101011'
           call output1
           bcf stb 
LK         movlw HIGH tablealps
           movwf pclath
           movf offset,w
           call tablealps 
           bcf pclath,3
           movwf y
           movf count2,0
           xorlw 2
           btfss _z 
           goto d1
           movf y,0
           movwf sreg5  
           goto d2
d1         movf y,0
           movwf sreg6  
d2         bsf pclath,3
           call scheckdisp ;output1
           bcf pclath,3
           incf offset,1
           decfsz count2,1
           goto LK
           clrf offset
           call dispon1  
        ;   call delay20;;;;;;;;;;;;;
           return 
 
      


disps      movwf offset
           addwf offset,0
           addwf offset,1
           movf offset,0
           xorlw 30
           btfsc _z
           return 
           call orderen1  
           movlw b'00011011'
           call output1
           bcf stb  
           movlw 2
           movwf count2  

L11        movlw HIGH tablealps
           movwf pclath
           movf offset,w
           call tablealps 
           bcf pclath,3
           movwf x
           movf count2,0
           xorlw 2
           btfss _z 
           goto yy1
           movf x,0
           movwf sreg7  
           goto yy2
yy1        movf x,0
           movwf sreg8  
yy2        incf offset,1
           decfsz count2,1
           goto L11
           clrf offset
           call dispon1  
           return 

           

       
cen_vold  btfsc pinflag2,2
           goto ced1 
           btfsc pinflag2,3
           goto ced1 
           btfsc inflag,5
           goto ced1
           movf pinflag1,0
           xorlw 0
           btfsc _z
           return
ced1      bsf pclath,3
          call cendisp
          bcf pclath,3   
        
          incf cencount,1
          movf cencount,0
          xorlw 81
          btfss _z
          goto cen1
          decf cencount,1 
         ; goto cen1
cen1      movf cencount,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 

surr_volu  btfsc pinflag2,3
           goto suu1 
           btfsc inflag,5
           goto suu1  
          movf pinflag1,0
          xorlw 0
          btfsc _z
          return
          
suu1      bsf pclath,3
         call sdisp
         bcf pclath,3   
         decf  scount,1
         movf scount,0
         xorlw 0xff
         btfss _z 
         goto y2
         incf scount,1 
y2       movf scount,0        
         call binbcd
         movf msd,0
         call disps
         movf lsd,0
         call dispg 

         shuju scount
         movwf txbuf1 
         shuju scount
         movwf txbuf2 
         movlw b'11000000'
         movwf txbuf3
         call m62446  
         call delay20
         return
surr_vold 
         btfsc pinflag2,3
         goto sdd1 
         btfsc inflag,5
         goto sdd1  
         movf pinflag1,0
         xorlw 0
         btfsc _z
         return


sdd1    bsf pclath,3
        call sdisp
        bcf pclath,3   
      
        incf scount,1
        movf scount,0
        xorlw 81
        btfss _z
        goto y2
        decf scount,1  
        goto y2
        return

        

cen_volu 
           btfsc pinflag2,2
           goto ceu1 
           btfsc pinflag2,3
           goto ceu1 
           btfsc inflag,5
           goto ceu1
           movf pinflag1,0
           xorlw 0
           btfsc _z
           return
           

ceu1    bsf pclath,3
        call cendisp
        bcf pclath,3   
    
        decf cencount,1
        movf cencount,0
        xorlw 0xff
        btfss _z
        goto cen1
        incf cencount,1
        goto cen1 
d3_stereo 
          btfsc inflag,5
          return   
          bcf muteflag,5 
          movf muteflag,0
          movwf txbuf
          movlw 8
          movwf tcount 
          call output595

          movlw b'00000000'
          movwf txbuf1
          movlw b'00100000'
          movwf txbuf2
          call njw1102  
          movlw b'00010101'