max170.dt

用汇编语言实现模数转换芯片max170的控制

;Z-4ADC ,USE EM78P458 WITH WDT OFF
;**********************************

R0 	EQU	00H
R1 	EQU	01H
R2 	EQU	02H
R3 	EQU	03H
R4 	EQU	04H
P5	 EQU	05H
P6 	EQU	06H
DB1	EQU	20H
DB2	EQU	21H
DAX	EQU	22H
DAH	EQU	23H
DAL	EQU	24H
DAY	EQU	25H
RF 	EQU	0FH

;**********************************

;IOC50  EQU	0X05
;IOC60  EQU	0X06
IOCE0  EQU	0X0E
IOCF0  EQU	0X0F

;**********************************

       ORG	0X00
       JMP	STAR
       ORG	0X08
       JMP	INTR

STAR:

       
       
       MOV	A,@0B11000011
       IOW	P5
       CLRA
       IOW	P6

       MOV	A,@0B01111111
       IOW	IOCE0
       MOV	A,@0B00000100
       IOW	IOCF0
       CLR	RF
       MOV	A,@0B01011111
       CONTW
       ENI

NEXT:

       NOP
        JMP	NEXT

;************************************

INTR:  
       
       JBS	P5,1
       JMP	A0
       JMP	A1

A0:
       MOV	A,@0B00000000
       IOW	P6
       COM	DAH
       MOV	A,@0B00001111
       AND	DAH,A
       MOV	A,P5
       AND	A,@0B00110000
       OR 	DAH,A
       MOV	A,DAH
       MOV	P6,A
       
       JBC	P5,7
       JMP	P571
       JMP	P570

P571:
       JBC	P5,6
       JMP	CH1
       JMP	CH2

P570:
       JBC	P5,6
       JMP	CH3
       JMP	CH4

CH1:
       BC 	P5,5
       BC 	P5,4
       JMP	OVER

CH2:
       JBC	P5,4
       JMP	N2_0
       JMP	N2_1

N2_0:
       BC 	P5,5
       BC 	P5,4
       JMP	OVER
N2_1:
       BC 	P5,5
       BS 	P5,4
       JMP	OVER

CH3:
       JBC	P5,5
       JMP	N3_0
       JBS	P5,4
       JMP	N3_1
       JMP	N3_2

N3_0:
       BC 	P5,5
       BC 	P5,4
       JMP	OVER
N3_1:
       BC	 P5,5
       BS 	P5,4
       JMP	OVER
N3_2:
       BS 	P5,5
       BC 	P5,4
       JMP	OVER

CH4:
       JBC	P5,5
       JMP	P551
       JMP	P550

P551:  JBC	P5,4
       JMP	N4_0
       JMP	N4_3
P550:  JBC	P5,4
       JMP	N4_2
       JMP	N4_1

N4_0:
       BC 	P5,5
       BC 	P5,4
       JMP	OVER
N4_1:
       BC 	P5,5
       BS 	P5,4
       JMP	OVER
N4_2:
       BS 	P5,5
       BC 	P5,4
       JMP	OVER
N4_3:
       BS 	P5,5
       BS 	P5,4
       JMP	OVER

OVER:
       JMP	OVR

A1:
       
       BS 	P5,2
       BS 	P5,3
       BS 	P6,6
       MOV	A,@0B10000000
       IOW	P6
       CALL   DELY
       
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH	;CLK1


       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH 	;CLK2
       				
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH 	;CLK3,B11

       				
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH 	;CLK4,B10

       
       				
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH  	;CLK5,B9
       				
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAH
       BC	 P5,2
       				;CLK6,B8
       				
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK7,B7

       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK8,B6

       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK9,B5

       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK10,B4

       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK11,B3
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK12,B2
       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK13,B1

       BC 	P5,3
       RLC	P6
       BS 	P5,3
       RLC	DAL
       				;CLK14,B0

       MOV	A,@0B00000000
       IOW	P6
       COM	DAL
       MOV	A,DAL
       MOV	P6,A
    
OVR:
       
       CLR	RF
       RETI
       
;**************************

DELY:
       MOV	A,@0X02
       MOV	DAX,A
LO:    DJZ	DAX
       JMP	LO
       RET

;**************************


;************************************

END