6502单片机编程代码

;;==============================================================================

;; 2007.7.2 F1_Function 播映喇叭
;;==============================================================================

Play_laba:

LDA#7
LDX#0
JSRF_PlaySpeechCh1

over?:
%TestCh1
BCS over?

LDA#7
LDX#0
JSRF_PlaySpeechCh1

overDOUBLE?:
%TestCh1
BCS overDOUBLE?
RTS

;;==============================================================================
;; 亮/灭大灯
;;==============================================================================
Led_dadeng:

LDAP_0EH_IOC_Buffer
EOR#%00001000
STAP_0EH_IOC_Buffer

RTS

;;==============================================================================
;; 亮尾灯
;;==============================================================================
Ledweideng:
LDAP_0EH_IOC_Buffer
EOR#%00000001
STAP_0EH_IOC_Buffer

RTS

;;==============================================================================
;; 灭左转灯
;;==============================================================================
Led_zhuoDown:
LDAP_0EH_IOC_Buffer
AND#%11111101
STAP_0EH_IOC_Buffer

RTS

;;==============================================================================
;; 灭右转灯
;;==============================================================================
Led_youDown:
LDAP_0EH_IOC_Buffer
AND#%11111011
STAP_0EH_IOC_Buffer

RTS

;;==============================================================================
;; 闪左转灯
;;==============================================================================
Flash_zhuo:
LDAR_zhuozhuancount
BNEendif?
LDA#50
STAR_zhuozhuancount

LDA P_0EH_IOC_Buffer
EOR #%00000010
STA P_0EH_IOC_Buffer

endif?:

RTS

;;==============================================================================
;; 闪右转灯
;;=============================================================================

Flash_you:
LDAR_youzhuancount
BNEli4

LDA#50
STAR_youzhuancount

LDAP_0EH_IOC_Buffer
EOR#%00000100
STAP_0EH_IOC_Buffer

li4:

RTS

;;==============================================================================
;; 灭尾灯
;;==============================================================================
Led_weidengDown:
LDAP_0EH_IOC_Buffer
AND#%11111110
STAP_0EH_IOC_Buffer

RTS

;;==============================================================================
;; 播映倒车 (尾灯)
;;=============================================================================
Play_daoche: ;(daoche)

;;加快中不播映倒车
LDAR_jiashu01over
BNEnextZ
LDAR_jiashu02over
BNEnextZ

LDAR_daochecount
BNEnextZ



LDAP_0EH_IOC_Buffer ;;;;;;;;;;尾灯亮
ORA#%00000001
STAP_0EH_IOC_Buffer


LDA #3
LDX #1
JSR F_PlaySpeechCh1
overE:
%TestCh1
BCS overE

LDA#100
STAR_daochecount

LDA#1
STAR_daoche_Flag

nextZ:
RTS

;;==============================================================================
;; 播映发动(发动一次不再发动)
;;=============================================================================
Play_qidong:
;;;;;;;;;;;;发动一次不再发动
LDA#1
CMPR_qidongover
BEQnextQ

LDA#8
LDX#0
JSRF_PlaySpeechCh1

;;;;;;;;;;;;;发动完R_qidongover = 1
LDA#1
STAR_qidongover
nextQ:

RTS


;;==============================================================================
;; 播映加快01
;;=============================================================================

Play_jiashu01:

LDAR_jiashu01alltime
BNEqian

LDA#4
LDX#0
JSRF_PlaySpeechCh1

LDA#1
STAR_jiashu01alltime
qian:

RTS

;;==============================================================================
;; 播映加快02
;;=============================================================================

Play_jiashu02:

LDAR_jiashu02alltime
BNEBqian

LDA#4
LDX#1
JSRF_PlaySpeechCh1

LDA#1
STAR_jiashu02alltime
Bqian:

RTS

;;==============================================================================
;; 播映空车
;;=============================================================================
Play_kongche:
%TestCh1
BCSoverB?
LDA #6
LDX #0
JSRF_PlaySpeechCh1
overB?:

RTS



;;==============================================================================
;; 播映刹车
;;=============================================================================
Play_shache:
LDAP_0EH_IOC_Buffer
ORA#%00000001
STAP_0EH_IOC_Buffer

LDA#2
LDX#0
JSRF_PlaySpeechCh1

LDA#1
STAR_Downweideng_Flag

LDA#100
STAR_DownweidengCount


RTS
;;==============================================================================
;; 播映加快01B
;;=============================================================================
Play_jiashu01B:

%TestCh1
BCStryW
LDA#5
LDX#0
JSRF_PlaySpeechCh1


tryW:

RTS
;;==============================================================================
;; 播映加快02B
;;=============================================================================
Play_jiashu02B:

%TestCh1
BCStryBW
LDA#5
LDX#1
JSRF_PlaySpeechCh1

tryBW:

RTS