Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Demoprogramm: Fehler melden, wenn IIAR nicht gefunden Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 1.03.2024 18:23)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
' ===========================================================================
' Demoprogramm: Fehler melden, wenn IIAR nicht gefunden
' In OCBASIC 1.11a für alle OM-Controller von Dietmar Harlos am 1. März 2024
' ===========================================================================

' Fehler melden, wenn INLINE-Interrupt-Assemblerroutine nicht gefunden wurde.

' Auf den OM-Mikrocontrollern werden System-Erweiterungen oft mit Hilfe von
' sogenannten INLINE-Interrupt-Assemblerroutinen, kurz IIAR, realisiert.
' Diese müssen hinter den Definitionen, aber vor dem ersten Befehl des
' Programms positioniert werden. Viele OM-Anwender beachten das nicht und
' deshalb stürzt die OM sang- und klanglos ab. Aus diesem Grund wird in
' diesem Beispielprogramm eine Fehlermeldung ausgegeben, falls die IIAR nicht
' vom OM-Betriebssystem gefunden werden kann.

' --- Definitionen ----------------------------------------------------------

'INCLUDE "om.def"           'Definitionen für die Open-Micro und Open-Mini
'INCLUDE "omid.def"         'Definitionen für die Open-Midi
'INCLUDE "omac.def"         'Definitionen für die Open-Macro
INCLUDE "omax.def"         'Definitionen für die Open-Maxi

DIM a,b,c,d,e BYTE         'Eigene Definitionen

' --- Systemerweiterungen einbinden (müssen vor dem ersten Befehl stehen) ---

'INCLUDE "omax32.iia"       '32-Bit-Erweiterung einbinden (für Open-Maxi)

' --- Hauptprogramm ---------------------------------------------------------

#main

PrintSpc=ON    'Bei PRINT dezimale Zahlen mit führendem Leerzeichen ausgeben
End2Host=ON    'Bei Programmende (siehe END) gleich in den Host-Modus wechseln

PRINT
PRINT "Demoprogramm: Fehler melden, wenn IIAR nicht gefunden"
PRINT "====================================================="
PRINT

IF NOT IiarFnd THEN ?"INLINE-Interrupt-Assemblerroutine nicht gefunden!" : END

'URTok=ON                   '32-Bit-Erweiterung aktivieren

?:?"Programmende."
END            'Zurück in den Hostmodus. Neustart mit RETURN-Taste.

' --- Programmende ---------------------------------------------------------


Passender Link: Infosite zu den OM-Mikrocontrollern

Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten:

Re: Demoprogramm: Fehler melden, wenn IIAR nicht gefunden (von Christian - 2.03.2024 18:27)
    Re: Demoprogramm: Fehler melden, wenn IIAR nicht gefunden (von Dietmar - 2.03.2024 18:58)