step motor.asm

微型电机的驱动

#pragma debug scope 1 1
#line 15 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
__acsr EQU [023H]
__adcr EQU [022H]
__adrh EQU [021H]
__adrl EQU [020H]
__pwm EQU [01aH]
__pdc EQU [019H]
__pd EQU [018H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
__tmrc EQU [0eH]
__tmr EQU [0dH]
__intc EQU [0bH]
__status EQU [0aH]
__tblh EQU [08H]
__tblp EQU [07H]
__pcl EQU [06H]
__acc EQU [05H]
__mp1 EQU [03H]
__iar1 EQU [02H]
__mp0 EQU [01H]
__iar0 EQU [00H]
@@isr_8 .SECTION AT 08H 'CODE'
JMP _isr_8
@isr_8 .SECTION 'CODE'
_isr_8 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
L1:
#pragma debug scope 2 1 ; 15 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_8 ENDP
@isr_8 .SECTION 'DATA'
#line 17 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@@isr_14 .SECTION AT 014H 'CODE'
JMP _isr_14
@isr_14 .SECTION 'CODE'
_isr_14 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
#pragma debug scope 3 1 ; 17 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 17 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
NOP
#line 18 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
NOP
#line 19 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
NOP
L2:
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_14 ENDP
@isr_14 .SECTION 'DATA'
#line 22 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@@isr_4 .SECTION AT 04H 'CODE'
JMP _isr_4
@isr_4 .SECTION 'CODE'
_isr_4 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
L3:
#pragma debug scope 4 1 ; 23 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_4 ENDP
@isr_4 .SECTION 'DATA'
#line 26 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@io_init .SECTION 'CODE'
PUBLIC _io_init
_io_init PROC
#pragma debug scope 5 1 ; 27 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 27 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CLR __pac
#line 28 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,0f0h
MOV __pa,A
#line 29 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
SET __pbc
#line 30 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CLR __pb
L4:
RET
_io_init ENDP
#line 34 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@left_1 .SECTION 'CODE'
PUBLIC _left_1
_left_1 PROC
#pragma debug scope 6 1
#line 33 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
PUBLIC left_10
LOCAL left_10 DB ? ; left
#pragma debug variable 7 6 left_10 left
#pragma debug scope 6 1 ; 37 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 37 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,080h
MOV __acc,A
#line 38 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,__acc
AND A,left_10
MOV b0_5,A
MOV A,b0_5
MOV CR1,A
#line 39 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,CR1
MOV __acc,A
#line 40 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CLR [0AH].0
RLCA left_10
MOV CR2,A
#line 41 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,CR2
MOV __acc,A
#line 42 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
SZ CR1
JMP L12
JMP L6
L12:
#pragma debug scope 7 6 ; 43 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 43 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
INC __acc
L6:
#line 45 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#pragma debug scope 6 1 ; 45 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,__acc
MOV CR1,A
#line 46 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,CR1
MOV __pa,A
#line 47 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,0f0h
MOV __pa,A
#line 48 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CLR _u
#line 48 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
JMP L11
L8:
L9:
#line 48 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
INC _i
L11:
#line 48 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,_u
SUB A,064h
SNZ [0ah].0
JMP L8
L5:
RET
LOCAL b0_5 DB ?
#line 35 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
LOCAL CR1 DB ? ; result
#pragma debug variable 7 6 CR1 result
#line 36 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
LOCAL CR2 DB ? ; mid
#pragma debug variable 7 6 CR2 mid
_left_1 ENDP
#line 51 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 8 1 ; 54 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 54 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CALL _io_init
#line 55 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,0f0h
MOV __pa,A
#line 57 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,0f7h
MOV CR3,A
#line 59 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
CLR _i
#line 59 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
JMP L17
L14:
#pragma debug scope 9 8 ; 61 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 61 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,CR3
MOV left_10,A
CALL _left_1
MOV CR3,A
#line 62 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,07fh
XOR A,CR3
SNZ [0ah].2
JMP L18
#pragma debug scope 10 9 ; 63 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#line 63 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,0f7h
MOV CR3,A
L18:
L15:
#line 59 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
#pragma debug scope 8 1 ; 59 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
INC _i
L17:
#line 59 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
MOV A,_i
SUB A,064h
SNZ [0ah].0
JMP L14
L13:
#line 65 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
JMP $
#line 53 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
LOCAL CR3 DB ? ; c_result
#pragma debug variable 7 8 CR3 c_result
_main ENDP
PUBLIC _u
@u .SECTION 'DATA'
#line 6 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
_u DB ? ; u
#pragma debug variable 8 1 _u u
PUBLIC _i
@i .SECTION 'DATA'
#line 6 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
_i DB ? ; i
#pragma debug variable 8 1 _i i
PUBLIC _percent_light
@percent_light .SECTION 'DATA'
#line 5 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
_percent_light DB ? ; percent_light
#pragma debug variable 8 1 _percent_light percent_light
PUBLIC _highbit
@highbit .SECTION 'DATA'
#line 4 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
_highbit DB ? ; highbit
#pragma debug variable 8 1 _highbit highbit
PUBLIC _mtp
@mtp .SECTION 'DATA'
#line 3 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
_mtp DB ? ; mtp
#pragma debug variable 7 1 _mtp mtp
#line 50 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN VA:BYTE
EXTERN VS:BYTE
#line 50 "D:\PROJECT\STEP MOTOR\STEP MOTOR.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP
ROMBANK 0 @DUMMYNOP 
@DUMMYNOP .SECTION AT 03ffh 'CODE'
nop