Эмулятор Renault Sirius32

  LIST P=16F84A
  INCLUDE P16F84A.INC
  __CONFIG _XT_OSC&_PWRTE_ON&_WDT_OFF&_CP_OFF&_WDTE_OFF
  CBLOCK 0dH
  byte_DATA_D
  byte_DATA_E
  ENDC
  ORG 0x00
  GOTO START
START ORG 0x4F
  MOVLW 0xFF
  TRIS PORTA
  MOVLW 0xFC
  TRIS PORTB
  CLRF PORTA
  CLRF PORTB
  CALL Delay_251_007_ms
  BSF PORTB,RB0
  GOTO MAIN

Delay_13_059_ms
  MOVLW 0x0D
  GOTO LOOP1
Delay_25_107_ms
  MOVLW 0x19
  GOTO LOOP1
Delay_37_155_ms
  MOVLW 0x25
  GOTO LOOP1
Delay_38_159_ms
  MOVLW 0x26
  GOTO LOOP1
Delay_50_207_ms
  MOVLW 0x32
  GOTO LOOP1
Delay_63_259_ms
  MOVLW 0x3F
  GOTO LOOP1
Delay_125_507_ms
  MOVLW 0x7D
  GOTO LOOP1
Delay_251_007_ms
  MOVLW 0xFA
  GOTO LOOP1
LOOP1
  MOVWF byte_DATA_D
LOOP2
  MOVLW 0xC8
  MOVWF byte_DATA_E
LOOP3
  NOP
  CLRWDT
  DECFSZ byte_DATA_E,F
  GOTO LOOP3
  DECFSZ byte_DATA_D,F
  GOTO LOOP2
  RETLW 0

MAIN
  BSF PORTB,RB0
  BSF PORTB,RB1
  CALL Delay_125_507_ms
  BCF PORTB,RB1
  BCF PORTB,RB0
  CALL Delay_63_259_ms
  bsf PORTB, RB0
  call Delay_13_059_ms
  bcf PORTB, RB0
  call Delay_50_207_ms
  bsf PORTB, RB0
  call Delay_25_107_ms
  bcf PORTB, RB0
  call Delay_38_159_ms
  bsf PORTB, RB0
  call Delay_37_155_ms
  bcf PORTB, RB0
  call Delay_25_107_ms
  bsf PORTB, RB0
  call Delay_13_059_ms
  bcf PORTB, RB0
  call Delay_13_059_ms
  bsf PORTB, RB0
  GOTO MAIN
  END

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

Исправлено. Можно пробовать на любом пике. Только конфиг исправить ну и порты... кварц 4 MHz.

  LIST P=16F84A
  INCLUDE P16F84A.INC
  __CONFIG _XT_OSC&_PWRTE_ON&_WDT_OFF&_CP_OFF&_WDTE_OFF
  CBLOCK 20H
  J
  K
  ENDC
  ORG 0x00
  BSF STATUS,RP0
  BCF STATUS,RP1
  MOVLW 0xFF
  MOVWF TRISA
  MOVLW 0xFE
  MOVWF TRISB
  BCF STATUS,RP0
  BCF STATUS,RP1
  CLRF PORTA
  CLRF PORTB
  CALL Delay_251_007_ms
  BSF PORTB,RB0
  GOTO MAIN

MAIN
  BSF PORTB,RB0
  CALL Delay_125_507_ms
  BCF PORTB,RB0
  CALL Delay_63_259_ms
  bsf PORTB, RB0
  call Delay_13_059_ms
  bcf PORTB, RB0
  call Delay_50_207_ms
  bsf PORTB, RB0
  call Delay_25_107_ms
  bcf PORTB, RB0
  call Delay_38_159_ms
  bsf PORTB, RB0
  call Delay_37_155_ms
  bcf PORTB, RB0
  call Delay_25_107_ms
  bsf PORTB, RB0
  call Delay_13_059_ms
  bcf PORTB, RB0
  call Delay_13_059_ms
  bsf PORTB, RB0
  GOTO MAIN
  END

  LIST P=12F629
  INCLUDE P12F629.INC
  __CONFIG _XT_OSC&_PWRTE_ON&_WDTE_OFF&_CP_OFF&_CPD_OFF&_MCLRE_OFF&_BOREN_OFF
  CBLOCK 20H
  J
  K
  ENDC
  ORG 0x00
  BCF STATUS,RP0 ;Bank 0
  CLRF GPIO ;Init GPIO
  MOVLW 07h ;Set GP<2:0> to
  MOVWF CMCON ;digital IO
  BSF STATUS,RP0 ;Bank 1
  MOVLW 00h ;Set GP<3:2> as inputs
  MOVWF TRISIO ;and set GP<5:4,1:0> as outputs
  BCF STATUS,RP0 ;Bank 0
  CALL Delay_251_007_ms
  BSF GPIO,GP2
  GOTO MAIN

Delay_13_059_ms
  MOVLW 0x0D
  GOTO LOOP
Delay_25_107_ms
  MOVLW 0x19
  GOTO LOOP
Delay_37_155_ms
  MOVLW 0x25
  GOTO LOOP
Delay_38_159_ms
  MOVLW 0x26
  GOTO LOOP
Delay_50_207_ms
  MOVLW 0x32
  GOTO LOOP
Delay_63_259_ms
  MOVLW 0x3F
  GOTO LOOP
Delay_125_507_ms
  MOVLW 0x7D
  GOTO LOOP
Delay_251_007_ms
  MOVLW 0xFA
  GOTO LOOP
LOOP
  MOVWF J
LOOPJ
  MOVLW 0xC8
  MOVWF K
LOOPK
  NOP
  CLRWDT
  DECFSZ K,F
  GOTO LOOPK
  DECFSZ J,F
  GOTO LOOPJ
  RETLW 0
MAIN
  BSF GPIO,GP2
  CALL Delay_125_507_ms
  BCF GPIO,GP2
  CALL Delay_63_259_ms
  bsf GPIO,GP2
  call Delay_13_059_ms
  bcf GPIO,GP2
  call Delay_50_207_ms
  bsf GPIO,GP2
  call Delay_25_107_ms
  bcf GPIO,GP2
  call Delay_38_159_ms
  bsf GPIO,GP2
  call Delay_37_155_ms
  bcf GPIO,GP2
  call Delay_25_107_ms
  bsf GPIO,GP2
  call Delay_13_059_ms
  bcf GPIO,GP2
  call Delay_13_059_ms
  bsf GPIO,GP2
  GOTO MAIN
  END

Информация о материале: Создано: 13 февраля 2015; Просмотров: 23590