;=======STEP4.ASM====================================3/22/00==
list p=16f84a
__config h'3ff1'
radix hex
;-------------------------------------------------------------
; cpu equates (memory map)
pc equ 0x02
status equ 0x03
portb equ 0x06
ncount equ 0x0c
mcount equ 0x0d
pointer equ 0x0e
;-------------------------------------------------------------
; bit equates
z equ 2
;-------------------------------------------------------------
org 0x000
;
start movlw 0x00
tris portb
clrf portb
clrf pointer
again call step_cw
call pause
goto again
;
step_cw movf pointer,w
call bits
movwf portb
movf pointer,w
sublw 0x03
btfss status,z
goto inc_ptr
clrf pointer
return
inc_ptr incf pointer,f
return
;
bits addwf pc,f
retlw 0x03
retlw 0x06
retlw 0x0c
retlw 0x09
;
pause movlw 0xff
movwf mcount
loadn movlw 0xff
movwf ncount
decn decfsz ncount,f
goto decn
decfsz mcount,f
goto loadn
return
;
end