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 

 Schleifen Programmierung in Assembler für Open Mini Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Roland - 5.10.2005 20:10)
Roland nutzt:  Open-Mini
Hallo Leute !!

Habe ein kleines Programm in Assembler geschrieben, wo ich aber noch eine Unterstützung von Euch
benötige. Das Programm sollte an PAT1 ein Rechtecksignal ausgeben, was es aber nicht tut :-((
Habe schon alles mögliche probiert aber ohne Erfolg !

--------------------  Hier der Quellcode in Basic

define a byte[1]  'Nur eine Variable, da sich diese nicht gegenseitig beeinflussen können
define b port[2]  'Ausgang PTA1

#loop
sys &hfd00
goto loop

syscode "asm1.s19"

--------------------  Hier der Quellcode in Assembler ( asm1.asm )
  org $fd00

  lda #1          ;In den Akku den Wert 1 laden
  sta $80        ;Wert 1 Speichern

spr1:
  bclr #0,$00   ;Ausgang PAT1 auf logisch high setzten
  bset #1,$04  ;Als Ausgang definieren
  lda $80
  cmp #255     ;Schleife von 1 bis 255
  beq spr2       ;wenn 255 erreicht dann Sprung zu "spr2"
  inc $80         ;Wert um 1 erhöhen bis Abbruchbedingung erfüllt ist (255)
  bra spr1

spr2:
  lda #1         ;In den Akku den Wert 1 laden
  sta $80       ;Wert 1 Speichern

spr3:  
  bclr #1,$00   ;Ausgang PTA1 auf logisch "0" setzen
  bset #1,$04  ;Als Ausgang definieren
  lda $80
  cmp #255    ;Schleife von 1 bis 255
  beq spr4      ;wenn 255 erreicht dann Sprung nach "spr4"
  inc $80        ;Wert um 1 erhöhen bis Abbruchbedingung erfüllt ist (255)
  bra spr3
spr4:
  rts              ;Ruecksprung nach Basic hinter das "SYS"

Danke für Eure Unterstützung   mfg  Stotz Roland


                 

 Antwort schreiben

Bisherige Antworten:

Re: Schleifenprogrammierung in Assembler für Open Mini (von Dietmar - 6.10.2005 1:50)