REM Zum Kompilieren diese Datei in zahler02.bas umbenennen
REM Zählt nach dem Einschalten bis 65535
REM und zeigt es auf einer billigen 1x16 Punktmatrix-Anzeige an.
REM für PIC16F84A und einem 4 MHZ-Quarz und
REM billiger Punktmatrixanzeige 1x16.
REM Volker Lange-Janson, DH7UAF
REM 28. Juni und 29. Juni 2006, und 30. Juni 2006

         $OBJ2HEX                   REM damit ein HEX-Code erzeugt wird

         define device 16C83,xt_osc,wdt_off,protect_off,pwrte_on 
         REM Trotzdem einen PIC16F84A verwenden, in der DEMO-Version immer 16C83 
         REM hinschreiben. Leider werden die Prozessor-Einstellungen nicht
         REM übernommen.
         
         xtal 4.00                  REM 4-MHZ-Quarz verwenden
         
         define abcd=$40 as word    REM geht bis 65535, Definieren der Variable


LCDINIT RB,2,16          REM 1X16 Punktmatrixanzeige (Billige Anzeige mit nur einem IC)
                         REM am Port B
neustart:                         
LET abcd=0               REM setzt die Variable abcd auf 0       
start:                   REM Sprungmarke
LCDDELAY 3               REM Pause, damit LCD-Anzeige nicht spinnt.
LCDWRITE 1,1,abcd        REM Anzeige der Zahl
LCDDELAY 3               REM Pause, damit LCD-Anzeige nicht spinnt.
LCDWRITE 2,1,"Sekunden"  REM Anzeigen des Schriftzuges Sekunden 
High ra,3                REM Rote LED an PIN 1 leuchtet, LED über 330 bis 1k nach Masse
low ra,2                 REM Grüne LED an Pin 2 leuchtet nicht
Wait 500                 REM Eine halbe Sekunde warten
High ra,2
low ra,3
Wait 500
INC abcd                                           REM erhöht den Wert von abcd um 1
IF abcd = 65535 then goto neustart else goto start REM Verzweigung bei Überlauf