АНМ ПОС 16F84-С

[Guest]

Можно ли преобразовать эту Pic 16F84 ASM код и положить его на языке Си.; Порожденных WinPicProg 1.91, (C) Найджел Гудвин 2002.

LIST P = 16F84, F = INHX8M
INCLUDE "P16F84.inc"
__CONFIG 0x3FFF

ORG 0x0000

MOVLW 0xFA
CALL Label_0001
MOVLW 0x80
CALL Label_0001
CLRF PORTA
ADDLW 0x7F
ВАРИАНТ
MOVLW 0xFF
TRIS PORTB
ТРИС PORTA
CLRF 0x20
BSF 0x20, 02
Label_0004 CALL Label_0002
CALL Label_0003
BSF 0x20, 02
BTFSC PORTB, 01
BCF 0x20, 02
GOTO Label_0004
Label_0003 MOVWF 0x2A
CLRF 0x2b
COMF 0x2A, F
MOVLW 0x08
MOVWF 0x28
BSF PORTB, 00
MOVLW 0xFE
TRIS PORTB
BCF PORTB, 00
MOVF PORTB, W
RLF 0x2b, F
NOP
NOP
Label_0005 NOP
NOP
ANDLW 0xFE
0x2A BTFSC, 07
IORLW 0x01
MOVWF PORTB
RLF 0x2A, F
DECFSZ 0x28, F
GOTO Label_0005
NOP
NOP
NOP
NOP
NOP
NOP
BSF PORTB, 00
ВОЗВРАЩЕНИЕ
Label_0002 MOVLW 0x09
MOVWF 0x28
0x20 BTFSC, 02
GOTO Label_0006
Label_0007 BTFSS PORTA, 00
GOTO Label_0007
Label_0008 BTFSC PORTA, 00
GOTO Label_0008
MOVLW 0x05
CALL Label_0001
Label_0009 MOVLW 0x03
CALL Label_0001
NOP
NOP
BCF STATUS, C
BTFSS PORTA, 00
BSF STATUS, C
RLF 0x2A, F
DECFSZ 0x28, F
GOTO Label_0009
СБР 0x2A, F
MOVF 0x2A, W
MOVWF 0x30
ВОЗВРАЩЕНИЕ
Label_0006 BTFSS PORTA, 00
GOTO Label_0006
Label_000A BTFSC PORTA, 00
GOTO Label_000A
MOVLW 0x0D
CALL Label_0001
Label_000B MOVLW 0x0A
CALL Label_0001
NOP
NOP
BCF STATUS, C
BTFSS PORTA, 00
BSF STATUS, C
RLF 0x2A, F
DECFSZ 0x28, F
GOTO Label_000B
СБР 0x2A, F
MOVF 0x2A, W
MOVWF 0x30
ВОЗВРАЩЕНИЕ
Label_0001 MOVWF 0x29
Label_000C DECFSZ 0x29, F
GOTO Label_000C
RETLW 0x00КОНЕЦ

 

[IanP]

Самым простым способом:

# АНМ

..Ваш код

# endasm

Привет,
IanP