rdobss.src

无线电话加来电现示加收音机

	LBR     T30JOBS3	; NO
;
	TMD	KEYVF		; kelid ? [10120102]
	CALL	PAGOUT		; YEING detect
;
	CALL    PROALARM
	CALL    SCH_RDO
	CALL	RT_DET		; detRT
	CALL	CHGPDB		; P_Cbounce
;
	LBR     IJ30MOD
T30JOBS3
	INEMD   $3,J30MOD	; =3?
	BR      END30J		; NOJOB)
	CALL	OFRDET		; ou detect [19110100]
	CALL	SKPHDL		; YESne handler [16070104]

	TMD	TONEDL		; TOng MODE? [25060202][15070201]
	BR	T30JB02		; yes
	TMD	DIALING		; dig ?
	BR	T30JB03	        ; YES
	BR	T30JB02
;
T30JB03

;TTOD   TMD	PULMAK		; 'ME' ?
;TTOD   CALL    TADMAN          ; yesDANGUS

T30JB02
	CALL	BATLDET		; terydetection [16020202]
	LBR     IJ30MOD
END30J
	ITMD    $0,J30MOD
	RMD     DO30J_F
	RET

IJ30MOD
	MTAD    J30MOD
	AAI     $1
	ATMD    J30MOD
	RET

;----------------------------------

DONE90J
	INEMD   $0,J90MOD	; =0?
	BR      T90JOBS1	; NO
T90JOBS0
	CALL	PWSEGTM		; timPW)[08020200]
	CALL	HSTOSPK		; hsndler [21030202]
	BR      IJ90MOD

T90JOBS1
	INEMD   $1,J90MOD	; =1?
	BR      T90JOBS2	; NO

	CALL	RDDIS		; timetect disable)[05020200]
	CALL	DTMFEN		; P_DTriver [06020201]
	CALL	RXAFOFF		; [01040205]
;
	BR      IJ90MOD
T90JOBS2
	INEMD   $2,J90MOD	; =2?
	BR      T90JOBS3	; NO
;
;TTOD 	TMD	RAM_INI		; RA.COMPLETE ? [19040201]
;	CALL	VOLCNT		; ye level +/- [11120102]

	CALL	PBATLD		; BaOWER LED handler [16020201][24060200]

;ttod	INEMD	0,TSTMODE	; =0 ?
;	BR	IJ90MOD		; NOstmode active)
;
;--------
;	CALL	SEG7PW		; 7 R handler [08020200]

	BR      IJ90MOD

T90JOBS3
	INEMD   $3,J90MOD	; =3?
	BR      END90J		; NOD JOB)
;
;TTOD   CALL    TADWDRS         ; chput TAD WD [18120102]
;

	CALL	TSTMAIN		; TES9120103]
	CALL	RTCTXHL		; RTset [02030200]

;TTOD   TMD     ENTONE_F        ; TANGUS
;       CALL    DTONECNT        ; TAGUS
;       CALL    IRINGTM1        ; TANGUS
;       TMD     ONBPR_F         ; TAUS
;       CALL    CHKBPR          ; TAGUS

	BR      IJ90MOD


END90J
	ITMD    $0,J90MOD
	RMD     DO90J_F
	RET
IJ90MOD
	MTAD    J90MOD
	AAI     $1
	ATMD    J90MOD
	RET

DONE500J
	INEMD   $0,J500MOD	; =0?
	BR      T500JOB1        ; NO
T500JOB0
	CALL	TMRNG		; timg region)
	CALL	SNCWIN		; timETNSC)
	CALL	SCHLTM		; timCNC)
	CALL	TACTM		; timACK disable)
	CALL	CTRSTM		; tim->hs enable)[16070100]
	CALL	ACENTM		; timDE RX. enable)[26070100]
	CALL	HTSPTM		; timsp)[21030202]

;TTOD   TMD     ENTM2_F         ; TADGUS
;       CALL    DECTM2          ; TADGUS

	CALL	ICONFLH
	BR      IJ500MOD

T500JOB1
	INEMD   $1,J500MOD	; =1?
	BR	T500JOB2	; NO

	CALL	BUZ_RING

	INEMD	$0,TSTMODE
	BR	IJ500MOD
	CALL    DSPRTC
	BR      IJ500MOD

T500JOB2
	INEMD   $2,J500MOD	; =2?
	BR	T500JOB3	; NO
;
	TMD	CIDRDY		; ciready ?
	CALL	GETNCID		; YESew CID
;
;	CALL    PROGBPM
	BR      IJ500MOD
T500JOB3
	INEMD   $3,J500MOD	; =3?
	BR	END500J		; NO JOB)
;
	TMD     IE		; inble ?[10120102]
	CALL	WDRHDL		; YES0100]
;
	TMD     RFLINK		; RFKED? [10120102]
	CALL	INCHCH	        ; YES, snge CHECKER [24110001]
;
; TTOD  CALL    TADWTR          ; timtchdog)[18120102]
; TTOD  CALL    ISPAUSE         ; flssage PAUSE [08060200]
;
	BR      IJ500MOD

END500J
	ITMD    $0,J500MOD
	RMD     DO500J_F
	RET
IJ500MOD
	MTAD    J500MOD
	AAI     $1
	ATMD    J500MOD
	RET

DONE1KJ
	INEMD   $0,J1KMOD	; =0?
	LBR     T1KJOB1		; NO
T1KJOB0
	SMD	FRSTKY		; [29120103]

	TMD	DIALING		; diali [27060200]
	BR	T1KJBB		; YES
	RMD	PLL1SEC		; [01040206]
T1KJBB	CALL	UPRTC		; ANGUSDe RTC
	CALL	NIODPS		; I/O dL-UP
	CALL	TMTXD		; tim delay)
	CALL	TSTTMR		; tim testmode)[29120103]
	CALL	CHCDIS		; timnge dis.)[02050101]

;TTOD   CALL    TMMBL           ; timTLDET)[16020202]
;       TMD     TADANS          ; TADANGUS
;       CALL    DECTM3          ; TADANGUS
	LBR     IJ1KMOD
;
T1KJOB1
	INEMD   $1,J1KMOD	; =1?
	LBR	T1KJOB2		; NO
	CALL    FUNCRELE
	CALL	OFRHDL		; outandler [19110100]
	CALL	TXPW_OFF	; TX OFF
	CALL	WRCTL    	; init. CT[25050108]
	LBR     IJ1KMOD
;
T1KJOB2
	INEMD   $2,J1KMOD	; =2?
	LBR	END1KJ		; NO (END JOB)
	CALL    LCD_ON
	CALL    OFDSPCID
	INEMD	0,TSTMODE	; =0 ?
	LBR	IJ1KMOD		; NO(testmode active)
;--------
	CALL	CHGDISC	        ; chargtiondler [05060102]
	LBR     IJ1KMOD
;
END1KJ
	ITMD    $0,J1KMOD
	RMD     DO1KJ_F
	RET
IJ1KMOD
	MTAD    J1KMOD
	AAI     $1
	ATMD    J1KMOD
	RET

T12MS	EQU	4-1		; 12ms.
T3MSPD	EQU	10-1		; 3ms.
;

TIMEMAN
	TMD	T300US_F	; 300ow ?[10120102]
	CALL	TMAN2		; YES,3ms.TIMER
	TMD     T3MS_AF         ; 313030200]
	BR      CNT30MS
	LBR     EXTTIMEX
;
CNT30MS
	RMD     T3MS_AF         ; 3NE [13030200]
	INEMD	2,T12MSCNT	; =2 ?
	BR	TIMEMAN5	; NO
	SMD	DORXD
TIMEMAN5
;--
	MTAD    T12MSCNT
	AAI     $F		; -1
	LBR     TIMEMAN4	; not Z
	SMD	DORXD		; [25060200]
	SMD     T12ACT_F
	ITA	T12MS
TIMEMAN4
	ATMD    T12MSCNT
;------------
	MTAD    T30MSCNT
	AAI     $F		; -1
	LBR     TIMEMAN1        ;  (30ms)
	SMD     T30ACT_F
	ITMD    T30MSV'0,T30MSCNT
	SC
	ITA     $1
	MSACD   RFTMCNTL        ; ?count tx time
	ATMD    RFTMCNTL
	ITA     $0
	MSACD   RFTMCNTH
	ATMD    RFTMCNTH
	LBR     TIMEMAN2
	SMD     TXTMUP_F
	LBR     TIMEMAN2
TIMEMAN1
	ATMD    T30MSCNT
	LBR      EXTTIMEX
TIMEMAN2
	MTAD    T90MSCNT
	AAI     $F		; -1
	ATMD    T90MSCNT
	LBR      EXTTIMEX	; not Z
;
;谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪目
;?    ENAB INTERRUPT                      ?
;?    INT0INT1 = RXDATA                   ?
;滥哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪馁
TIMEMAN3
	ITMD    T90MSV'0,T90MSCNT
	SMD     T90ACT_F	; [15070104]
	SC
	ITA     $1
	MSACD   TMOUTCNL        ;目
	ATMD    TMOUTCNL        ; ?
	ITA     $0              ; ?dec 1 / 0.09 sec
	MSACD   TMOUTCNH        ; ?
	ATMD    TMOUTCNH        ;馁
	LBR      EXTTIMEX
	SMD     TMOUT_F
EXTTIMEX
	RET
EN_RX
	ITMD    $0,RXDCNT
	ITMD    $0,RXBCNT
	ITMD    $0,RXFLAG
	RMD     NRXDAT_F
	RMD     RXDAT_F
	RMD     IRQ0
	RMD     IRQ1
	SMD     IE0
	SMD     IE1
	RET
EN_TM3
	ITMD    T17USAV,TMOD3   ; 3.T300USC = 300us
	ITMD    T300USV'0,TL30
	ITMD    T300USV'1,TL31
	ITMD    T300USV'2,TL32
	RMD     T300US_F
	RMD     IRQT3           ; clr IRQT3
	SMD     IET3            ; enable int
	RET

;谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪目
;?    ENALOCK INTERRUPT       ?
;滥哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪馁
EN_RTC
	ITMD    T500MSAV,TMOD0  ; watch /256=500ms
	ITMD    $0,06
	ITMD    $0,TL01
	SMD     T500MS_F
	RMD     IRQT0           ; clr IR0
	SMD     IET0            ; enerrupt
	RET

;
SETUCH	EQU	1-1     	; setchannel
DEFLCH	EQU	1-1     	; defhannel
;-----------
;
DEFSC	EQU	$A5C3   	; defSC
;
INI_REG
;
;-------------------------------
; CLRBF to '0'
;-------------------------------
ISTART	EQU	$050    	; adart
IEND	EQU	$0BF    	; adust be $XXF
WDTPD	EQU	$6      	; 3shdog timer
;
	ITV	ISTART'2
	ITY     ISTART'0
	ITB	ISTART'1-1
CLRVBY	IB
	BTA
	ALEI	IEND'1   	;lesQU ?
	LBR	INIC_0  	;YES
	LBR	INIQ01
;
INIC_0	ATX
INIC_8  ITMIY   $0
	LBR     INIC_8
	LBR	CLRVBY
;
;谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪目
;? INITMETER		                  ?
;滥哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪馁
;------------[14110001]

INIQ01
	ITMD	0,TIME_F1	;T1000MS_F,
	ITMD    T90MSV'0,T90MSCNT
	ITMD    T30MSV'0,T30MSCNT
	ITMD	T1000MV'0,T500CNT
	ITMD	RDLBUF'1,BUFDLH	; reING pointer
	ITMD    $0,BUFDLL
;------------
	CALL	CHGD02		; INon.timer[05060102]
;--[01040206]
	ITA	:1100
	ATMD	TXCTL   	; TXMXAF_F,TXRF_F
	AAI	1
	BR	INIC_1
INIC_1	ATMD	MIRRTX  	; serror
	ITA	:1100
	ATMD	RXCTL   	; RXM_F,RXAF_F,RXRF_F
	AAI	1
	BR	INIC_2
INIC_2	ATMD	MIRRRX  	; seirror
;--
	RMD     TADTST_F        ; clr Tflag TADANGUS [1652220702]
	RET

;-------------------------------------

TIMER0
	RMD     IRQT0
	RMD     IET0
	XAR     15              ;push A
	SMD     IE
	SMD	TM0ACT		;[22120002]

	MTAD    T500CNT
	AAI     $F		;-1
	LBR     TIMER0X2	; not Z

	SMD     T1000M_F        ;1sec
;       SMD     CHKWD_F        ;TADANGUS
	ITA     T1000MV'0
TIMER0X2
	ATMD    T500CNT
	SMD     T500MS_F        ;0.5sec
	SMD     IET0
	RTA     15              ;pop A
	RETI


;------------------
;
;===============================================;
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
;
; CD interrndler
;
; CAIERDCE ROUTINE
; atveeving edge of CD
; (only enable when off-HOOK)
;
;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
;===============================================;
CARRIER
	RMD     IRQCD
	XAR	2		;PUSH
	ITA	CDADB		; set CD valid time
	ATMD	CD_DEB
	XAR	2		;Pop
	RETI
;---------------------
;
;
INT2:		        	;(06HUSE
	RMD	IRQ2
	RETI
;
INT3:		        	;(08HSE
	RMD	IRQ3
	RETI
;
SERIAL:		        	;(12HUSE
	RMD	IRQSI
	RETI
;
INTRT:		        	;(14HSE
	RMD     IRQRT
	RETI

DLEN	EQU	03      	; datngth
;
CHKHEAD
	ITV	CIDBUF'2
	ITX	CIDBUF'1
	ITY     CIDBUF'0
;
	INEM	HD_MDMM'0
	LBR	CHKD01		; nEQU
	IY
	INEM	HD_MDMM'1
	LBR	CHKD04		; nEQU
	LBR	CHKD03		; =MDait header
;
;
;================================;
;--------------------------------
; (CHK_SUM)	[29120001]
; chectype is (optional)
; disa:  S=1, disable
;enable
;
;--------------------------------
;================================;
CHKD04	DY
CHKD01
	INEM	HD_SDMM'0
	LBR	CHKD02		; notQU
	IY
	INEM	HD_SDMM'1
	LBR	CHKD02		; notQU
				; =SDait header
CHKD03	IY
	INEM	DLEN'0
	LBR	CHKD02		; notQU
	IY
	INEM	DLEN'1
	LBR	CHKD02		; notU
	RET			; SF type disable
;
CHKD02	RC			; 0->F
	TC
	RET			; SF type enable
UDCTL
	ITA	:1111		; seCW
	ATMD	DBUF		;setl.reg. CAS
	SMD	FCW
	ITA     :0000           ; seG to 00
	ATMD	DBUF		;settl.reg. CAS
	SMD	HYSG
	BR	UDCQUT
UDCQUT	RET
;
;================================;
;--------------------------------
; (main)	[28120001]
; SETW according to
; optn
;--------------------------------
;================================;
PDDET
	MTAD	PDDEB
	TMD	P_PWRD		; poown ?
	BR	PDD04		; YES
	LBR	PDD01		; no
;
PDD04	AAI	1
	LBR	PDD02		; OVN ACTIVE
	LBR	PDD03
;
PDD02
;-----------------
; po here [18120102]
;-----------------
	RMD     IE		; disER INT.
	RMD     RSP             ;RESENTER TO 23FH
	ITMD    0H,SBPA
	ITMD    8H,SBPB
	RMD	WDRST		; resWD
;
	CALL	DISINT   	; disat./ control reg.
;
	CALL	INI_IO   	; initer down)
	ITMD    :1011,P0        ;as pow   TADANGUS 23/4/02
	SMD     PWRDWN_F
PDTADDL

;TTOD   CALL    TADMAN          ;call TAD her       TADNANGUS
;       TMD     PWRDWN_F        ;TAD pdown ok?
;       LBR     PDTADDL         ;no
;       CALL    S500MS          ;哪