Beispiele
---------

Die Beispiele koennen mit dem ACME-Assembler uebersetzt werden.


Werte und Variablen laden und speichern:

  z.B. a := 5; b := a;

    +initstp
    +lit 5
    +sto VAR_A
    +lod VAR_A
    +sto VAR_B
    rts

  VAR_A
    !wo 0
  VAR_B
    !wo 0


Arithmetik:

  z.B. a := 5 * (b + 10);
  
    +initstp
    +lod var_b
    +lit 10
    jsr add     ; b + 10
    +lit 5
    jsr mul     ; * 5
    +sto var_a  ; speichern in a
    rts

  VAR_A
    !wo 0
  VAR_B
    !wo 0


Bedingte Verzweigung:

  z.B. if a = 5 then b := 10 else b := 0;
  
    +initstp
    +lod VAR_A
    +lit 5
    jsr lss     ; a < 5
    +jpc LBL1   ; Sprung bei False
    +lit 10
    +sto VAR_B  ; b := 10
    jmp LBL2
  LBL1:
    +lit 0
    +sto VAR_B  ; b := 0
  LBL2:
    rts
  
  VAR_A
    !wo 0
  VAR_B
    !wo 0


Schleifen und Ausgabe von Werten:

  z.B. a := 1;
       while a < 11 do
         begin
           writeln a * 5; a := a + 1;
         end;

    +initstp
    +lit 1
    +sto VAR_A
  LBL1:
    +lod VAR_A
    +lit 11
    jsr lss     ; a < 11
    +jpc LBL2   ; Sprung bei False
    +lod VAR_A
    +lit 5
    jsr mul     ; a * 5
    jsr outdec  ; als Zahlenwert ausgeben
    +lit 13
    jsr outchr  ; Zeilenumbruch ausgeben
    +lod VAR_A
    jsr incr
    +sto VAR_A  ; a := a + 1
    jmp LBL1
  LBL2:
    rts
  
  VAR_A
    !wo 0


Zugriff auf Basic-Integervariablen:

  z.B. BC% = A% * 15

    +initstp
    +litv 'A', 0   ; A% laden
    jsr lodint
    +lit 15        ; * 15
    jsr mul
    +litv 'B', 'C' ; als BC% speichern
    jsr stoint
    rts