Вопрос PIC`оводам: в чем написано?

aleksandr-zh · 24.08.2011, 13:14

Доброго дня всем
В далеком 2003-2004 писалась программа на ассемблере.
Код - сохранился,а вот сам транслятор - нет

Подскажите, чем это откомпилировать?

вот кусочек кода:

Код:

    LIST            F=INHX8M,N=75,X=OFF
    EXPAND
    PROCESSOR       16F84
    RADIX           DEC    ;-  Система счисления по умолчанию Десятичная
        __CONFIG        B'11001' ; RC
            ; 43210
            ; B4:   CODE PROTECTION, 1=OFF
            ; B3:   POWER UP, 1=TIMED
            ; B2:   WDOG, 1=ON
            ; B1-0: OSC SELECT, 01=XT, 11=RC

;    __IDLOCS    H'0001'
    include p16f84.inc
; ------------------------------------------------------
;BEEP OUTPUTS  Звуковые сигналы
;1*0.5=PROMPT,CHANGE PASSWORD IS OKay  Приглашение, пароль изменен
;2*0.5=COMMAND IS OKay                 Команда принята
;1*1.5=COMMAND IS FAILURE              Команда отменена
    ;       EQUATES
CHR_1    EQU    1    ;-------Присвоения
CHR_2    EQU    2
...

CONTROL    MACRO    Y,N    ;CONTROL RELAY1,OFF "Новая команда", управление реле
    IF    N == 0
    BCF     PORTB,Y
    ELSE
    BSF     PORTB,Y
    ENDIF
    ENDM



_BANK    MACRO    N                 ;Упрощение переключения банков 1\0   
    IF    N == 0
    BCF     STATUS,RP0      ; BACK TO LO REGS
    ELSE
    BSF     STATUS,RP0      ; OPTION & TRIS ARE HI REGS
    ENDIF
    ENDM
...
 ;    interrupt service

    ORG    4          
         BTFSC    INTCON,INTF
    GOTO    READY           ;---  Чтение байта из ПРИЁМНИКА
    BTFSC    INTCON,T0IF
    GOTO    TIMER
;---
;MEMORY WRITE DONE  

    RETFIE        ;---  выход из прерывания   и возврат в точку
                ;---  из  которой вышли в обработку прерывания
...

;*************************************************  *********
;**********   СТАРТ   Настройка регистров и портов  *******
; ---------------------------------------------------------
;       SETUP

START:
    _BANK 1
    MOVLW   B'01000111'
;          76543210
    ; B7:   RBPU   - ENABLE PORT B PULL-UP RES, 0=OFF
    ; B6:   INTEDG - RB0 INT EDGE SEL 0=-VE
    ; B5:   T0CS   - TMR0 SOURCE, 0=FOSC/4, 1=RA4 PIN
    ; B4:   T0SE   - RA4CLK PIN EDGE SELECT, 0=+VE
    ; B3:   PSA    - PRESCALE ASSIGN 0=TIMER, 1=WDG
    ; B2-0: PS2-0  - PRESCALE RATE 111=256 FOR TIMER (=127 FOR WDT)
    MOVWF   OPTION_REG

    MOVLW   B'00000001'     ; 0=OUTPUT
    MOVWF   TRISB
    MOVLW   B'11111'        ; 1=INPUT
    MOVWF   TRISA
;
    _BANK 0

    MOVLW   B'11111111'     ; PORT REGS TO DEFAULTS
;            76543210
    MOVWF   PORTA

    MOVLW   B'00000000'
;            76543210
    MOVWF   PORTB

    MOVLW   B'11110000'        
;          76543210
    ; B7: GIE  - GLOBAL INT ENABLE, 0=OFF
    ; B6: EEIE - EERAW WRITE DONE INT ENABLE, 0=OFF
    ; B5: T0IE - TMR0 O/FLOW INT ENABLE, 0=OFF
    ; B4: INTE - RB0 INT ENABLE, 0=OFF
    ; B3: RBIE - PORTB CHANGE-OF-STATE INT ENABLE, 0=OFF
    ; B2: T0IF - TMR0 O'FLOW FLAG, 1=O/FLOW, S/WARE MUST RESET
    ; B1: INTF - RB0 INT FLAG, ACTIVE HIGH
    ; B0: RBIF - PORTB CHANGE-OF-STATE FLAG, ACTIVE HIGH
    MOVWF   INTCON

;-- Закончили настройку
...

AJScorp · 24.08.2011, 13:21

Можно откомпилировать MPASMWIN. Идет в комплекте с Mplab и с протеусом.

Возможно придется поискать старую версию компилятора, ибо в последних мелкочип намудрил новый формат асм с секциями.

aleksandr-zh · 24.08.2011, 15:12

MPASMWIN! точно, помню эту программму !

Спасибо

зы
придется вспоминать ПИКи... И использовать 16F84A - у заказчика их много ))

dosikus · 24.08.2011, 19:17

Сообщение от aleksandr-zh

зы
придется вспоминать ПИКи... И использовать 16F84A - у заказчика их много ))

Александр , окстись...
Заставь заказчика продать раритет и на вырученные деньги купить бОльшее количество 16f88 ....

aleksandr-zh · 24.08.2011, 19:26

я б с удовольствие заставил продать в музеи, и купить АВР Мега8...
Но они бепринципны

а мне по барабану: вся переделка будет сводиться с удалению некоторых подпрограмм да добавлению в иные места имеющихся (благо комментариев я там наделал на каждый пшик)

ps
если не развалимся в 1 января...