6502 MCU Programming Code

;;  2007.7.2 F1_Function Play speaker
;;==========================================================================================

Play_laba:                               

  LDA #7     
  LDX #0
  JSR F_PlaySpeechCh1
    
    over?:        
            %TestCh1
    BCS over?
    
   LDA #7     
  LDX #0
  JSR F_PlaySpeechCh1
    
    overDOUBLE?:        
            %TestCh1
    BCS overDOUBLE?
RTS

;;=====================================================================================
;;  Turn on/off the headlights
;;=================================================================================================================
Led_dadeng:
   
  LDA  P_0EH_IOC_Buffer
  EOR  #%00001000 
  STA  P_0EH_IOC_Buffer

  RTS

;; =====================================================================================
;;  Taillights on 
;; =  ... ​​ ​​
                   
  
  
  
 
  
                 
  
 

;;====================================================================================
;;  Turn off the left turn signal
;;================================================================================================================
Led_zhuoDown:   
  LDA  P_0EH_IOC_Buffer
  AND  #%11111101
  STA  P_0EH_IOC_Buffer
  
  RTS
  

;;====================================================================================
;;  Turn off the right turn signal
;;===============================================================================================================
Led_youDown:   
  LDA  P_0EH_IOC_Buffer
  AND  #%11111011
  STA  P_0EH_IOC_Buffer
  
  RTS  

;;==============================================================================
;;  闪左转灯
;;==============================================================================
Flash_zhuo:                     
  LDA R_zhuozhuancount
  BNE endif?
  LDA #50
  STA R_zhuozhuancount
  
  LDA   P_0EH_IOC_Buffer
  EOR   #%00000010
  STA   P_0EH_IOC_Buffer 
  
  endif?:
  
  RTS

 
;;==============================================================================
;;  闪右转灯
;;=============================================================================          
 
Flash_you:                   
  LDA R_youzhuancount
  BNE li4
  
  LDA #50
  STA R_youzhuancount
       
  LDA P_0EH_IOC_Buffer
  EOR #%00000100
  STA P_0EH_IOC_Buffer
  
  li4:
  
  RTS

;;====================================================================================
;;  Taillights off
;;=============================================================================================================
Led_weidengDown:   
  LDA  P_0EH_IOC_Buffer
  AND  #%11111110
  STA  P_0EH_IOC_Buffer
    
  RTS

;; =
...  ​  ​ ​​​ ​​ ​​ ​​ ​​ ​​ ​​ ​  ;;;;;;;;;;The tail light is on ORA  #%00000001 STA  P_0EH_IOC_Buffer LDA #3  LDX #1 JSR F_PlaySpeechCh1 overE: %TestCh1 BCS  overE

         
  
  
  
  
  
  
  
  
  
  
  
  
    
  
  
  
  
     
   
   
    
     
     
  
 

  LDA #100
  STA R_daochecount
  
  LDA #1
  STA R_daoche_Flag

  nextZ:
RTS

;; =
...  ​  ​ ​​ ​​ ​​ ​​ ​ ​ ​​ ​

                                       
  
  
  
  
               
  
  
  

  ;;;;;;;;;;;;Startup completedR_qidongover = 1
  LDA  #1
  STA  R_qidongover
  nextQ:
  
  RTS                   
    
         
;;==========================================================================================
;;  Playback acceleration 01
;;====================================================================================================== 

Play_jiashu01:
  
   LDA  R_jiashu01alltime
   BNE  qian
   
   LDA  #4
   LDX  #0
   JSR  F_PlaySpeechCh1
   
   LDA  #1
   STA  R_jiashu01alltime
   qian:
 
RTS

;;================================================= ==============================
;; 播放加速02
;;========================= ================================================== ============== 
 
Play_jiashu02:
  
   LDA  R_jiashu02alltime
   BNE  Bqian
   
   LDA  #4
   LDX  #1
   JSR  F_PlaySpeechCh1
   
   LDA  #1
   STA  R_jiashu02alltime
   Bqian:
 
RTS

;; =
...  ​  ​ ​ ​ ​​ ​​ ​​ ​​ ​  ;; = ...  ​  ​  ​ ​​ ​​ ​​ ​​ ​​ ​​ ​​ ​​ ​ STA  R_DownweidengCount RTS ;; =  ... ​  ​​​ ​ ​ ​​ ​​ ​​

   
     
  
      
      
   
 
    
   
        
                
      



  
   
   
   
  
   
   
   
   
   
   
   
   
   
     
  





 
 
 
  
  
  
  
  
 
 
  

RTS
;; =
...  ​  ​​​ ​ ​ ​​ ​​ ​​ ​