003
22.05.2015, 11:24 Uhr
PIC18F2550
|
Was ist daran Umständlich?
Ich arbeite zwar unter Linux damit aber es ist halt ein leistungsstarker Assembler mit vielen Funktionen.
Den Aufruf hab ich in eine Batchschleife gepackt.
Klicken = übersetzen Fehler werden angezeigt.
Er läuft unter DOS...Win8.1 das wird aber nur dadurch erreicht das er ohne Fenster allein in der cmd läuft.
| Quellcode: | ;-----------------------------------------------------------------------------
;
; Ju + Te 2013 BASIC-System
; PIC18F2550
;
;-----------------------------------------------------------------------------
;****************************************************************************
; Beginn Quellcode & Config Assembler
;****************************************************************************
if MOMPASS=1
message ""
message "+------------------------------+"
message "| Ju+Tu-Comp 2013 Configurator |"
message "| Edit by. PIC18F2550 |"
message "+------------------------------+"
endif
cpu z8601
include stddefz8.inc
;****************************************************************************
; Festlegung AS-Steuervariabeln
;****************************************************************************
ROMsize SET 4096
MONTYP SET "2K_NEU"
;MONTYP SET "4K"
;MONTYP SET "6K"
;MONTYP SET "PROP"
KEYTYP SET "JU+TE"
;KEYTYP SET "VPOHLERS"
;KEYTYP SET "KEYB"
;****************************************************************************
; Festlegung AS-Funktionen
;****************************************************************************
HI function x,(x>>8)&255
LO function x, x&255
;****************************************************************************
; Programmstart
;****************************************************************************
org 00000h
assume RP: 0000Ch ; keine Optimierung !
;-----------------------------------------------------------------------------
; Interupt-Verteiler
;-----------------------------------------------------------------------------
org 00000h
dw irq0
dw irq1
dw irq2
dw irq3
dw irq4
dw irq5
;-----------------------------------------------------------------------------
; MME-Basic
;-----------------------------------------------------------------------------
org 0000Ch
include MME_BASIC.asm
;-----------------------------------------------------------------------------
; OS begin
;-----------------------------------------------------------------------------
org 0800h
phase 0800h
if MONTYP = "2K_NEU" ; Original
irq0:
jp 0E000h ; IRQ 0
irq1:
jp 0E003h ; IRQ 1
irq2:
jp 0E006h ; IRQ 2
irq3:
jp 0E009h ; IRQ 3
irq4:
jp M_0ADA ; IRQ 4
irq5:
jp 0E00Fh ; IRQ 5
org 0812h
include OS_2_0.asm
elseif MONTYP == "4k"
org 0812h
elseif MONTYP == "6k"
org 0812h
elseif MONTYP == "PROP"
irq0:
jp M_0B5C ; IRQ 0
irq1:
jp M_0B5C ; IRQ 1
irq2:
jp M_0B5C ; IRQ 2
irq3:
jp M_0B5C ; IRQ 3
irq4:
jp M_0B5C ; IRQ 4
irq5:
jp M_0B5C ; IRQ 5
org 0812h
include OSP_0_0.asm
endif
end |
--
42  ist die Antwort auf die "Frage nach dem Leben, dem Universum und dem ganzen Rest" |
