Отправлено Sasha 24 февраля 2002 г. 16:54

; PIC 12C508A

indf equ 00h
tmr0 equ 01h
pcl equ 02h

status equ 03h
c equ 0
dc equ 1
z equ 2
pd equ 3
to equ 4
pa equ 5
gpwuf equ 7

fsr equ 04h
oscall equ 05h
gpio equ 06h

#define k1 10h
#define k2 11h

#define sec 12h
#define min 13h
#define hor 14h
#define day 15h

#define tsec 16h
#define tmin 17h
#define thor 18h
#define tday 19h
#define temp 1ah
;------------------------------------------------------

start movlw b'11000111'
; |||||||+--
; ||||||+--- 128
; |||||+----
; ||||+----- предделитель к TMR0
; |||+------ активный фронт
; ||+------- Fosc/4 синхронный машинным циклом так сигн
; |+-------- подтяг рез выкл
; +--------- запрет выхода из SLEEP
option

;
; ВОПРОС
; Нижние три строчки в MPLAB работают как положено
; на запрограмированном PICе на выходе GPIO,2 и
; остальных никакой реакции , генератор работает
; вывод просто висит в третьем состоянии
;
; Подскажите в чём проблема
;
;
;
;
;
movlw b'00111011'
tris gpio ;(GPIO = 06h)
bsf gpio,2
;-------------------------------

movlw 07h
movwf fsr
cl1 clrf indf
incf fsr,f
movf fsr,w
xorlw b'11100000'
btfss status,z
goto cl1
;-------------------------------

;-------------------------------
movlw 00h
movwf tsec

movlw 01h
movwf tmin

movlw 00h
movwf thor

movlw 00h
movwf tday
;-------------------------------
;основной цикл задержки на 8085;
; 56H = 8085cyc
cyc movlw 4ch ; 55h = 7991cyc
movwf k2 ;
;
c1 movlw 1eh ;
movwf k1 ; 8085cyc
;
rot decfsz k1 ; на программу
goto rot ; 107cyc
;
decfsz k2 ;
goto c1 ;
;
bsf gpio,2
; movlw b'00000100' ; вкл свдиод
; movwf gpio ; на выв RA2
movlw 0bbh ;
movwf k1 ;
led nop ;
nop ;
decfsz k1 ;
goto led ;
bcf gpio,2 ;
; movlw b'00000000' ; выкл свдиод
; movwf gpio ; на выв RA2
nop ;
nop ;
;-------------------------------

• Ответ: Хм.... мыслей по существу нет, но вот нашел фривольное обращение с FSR.... — Билдер++_   (25.02.2002 08:13, 1284 байт)