est Bewegung durch eine 3D-Landschaft mit ... - David Zaadstra
est Bewegung durch eine 3D-Landschaft mit ... - David Zaadstra
est Bewegung durch eine 3D-Landschaft mit ... - David Zaadstra
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Projektarbeit 2002, BKIK 2/1<br />
<strong>David</strong> <strong>Zaadstra</strong>, Alexander Fuchs<br />
<strong>Bewegung</strong> <strong>durch</strong> <strong>eine</strong> <strong>3D</strong>-<strong>Landschaft</strong> <strong>mit</strong> Fernbedienung<br />
Elektronikschule Tettnang<br />
; Programmname : Fernbed.a51<br />
; ProgFunktion : Auswerten der ankommenden Fernbedienungssignale und<br />
; Weiterleiten an den PC<br />
; Programmierer : Alexander Fuchs und <strong>David</strong> <strong>Zaadstra</strong><br />
; Datum : 26.2.2002 - 3.4.2002<br />
$ ERRORPRINT<br />
$ NOSYMBOLS<br />
$ NOMOD51<br />
$ NOLIST<br />
$ INCLUDE (reg515.INC)<br />
$ INCLUDE(macros.inc)<br />
$ LIST<br />
;--------------------------------------------------------------------------<br />
ORG 400BH<br />
jmp<br />
INT_TIMER0<br />
;------------------------------------------------------<br />
ORG 4100H<br />
; serielle Kommunikation vorbereiten<br />
InitV24<br />
; Stackpointer initialisieren<br />
mov SP,#80h<br />
; Interrupts initialisieren<br />
setb eal<br />
setb et0<br />
START:<br />
; wenn R7 != 0, dann Signal vorbei<br />
mov r7, #0<br />
; auf langes High warten (bevor das Signal beginnt)<br />
WAIT_HIGH<br />
; Timer 0 starten<br />
setb eal<br />
mov tmod, #1<br />
mov th0, #0ffh<br />
mov tl0, #9bh<br />
setb tr0<br />
; in R2 wird die Zahl der Impulse + Pausen abgelegt<br />
mov r2, #0<br />
; hier werden die Impulslängen gespeichert<br />
mov dptr, #0c000h<br />
; in R1 werden die High-Impulslängen gezählt<br />
; in R0 werden die Low-Impulslängen gezählt<br />
mov R1, #0<br />
- 34 -