Ideen gesucht: einfaches Programm in Assambler

[everdream]

Okay, ich wäre dann soweit:

Delphi-Quellcode:

fibo   start   0
   lda   5, '4094'
   
   ini   input      
   lda   0,'0'
   sta   0,fibs(0)
   lda   3,'2'
   lda   0,'1'
   sta   0,fibs(3)
   
   sub   5,'10'
   lda   0,'0'
   sta   0,2(5)
   lda   0,'1'
   sta   0,4(5)
   lda   0,'2'
   sta   0,6(5)
   la   0,rfib
   sta   0,0(5)
   b   fib
rfib   add   5,'6'
   lda   0,'0'
   sta   0,2(5)
   la   0,rput
   sta   0,0(5)
   b   put      
rput   eoj

input   DS   F
fibs   DS   25F

* Datenschachtel: fib;
* nr1 | 0(5) | Rücksprungadresse
* nr2 | 2(5) | 1. Parameter: a
* nr3 | 4(5) | 2. Parameter: b
* nr4 | 6(5) | 3. Parameter: n
* nr5 | 8(5) | lok. Variable: c
* Gesamtgröße: 10 bytes (-> Offset)

fib   lda   0,2(5)
   add   0,4(5)
   sta   0,8(5)
   lda   0,6(5)
   add   0,'1'
   cmp   0,input
   bh   p1
   ldr   4,5
   sub   5,'10'
   lda   0,4(4)
   sta   0,2(5)
   lda   0,8(4)
   sta   0,4(5)
   lda   0,6(4)
   add   0,'1'
   sta   0,6(5)
   la   0,rek
   sta   0,0(5)
   b   fib
rek   add   5,'10'
p1   lda   3,6(5)
   mul   3,'2'
   lda   0,8(5)
   sta   0,fibs(3)
   lda   0,0(5)
   br   0

* Datenschachtel: put;
* nr1 | 0(5) | Rücksprungadresse
* nr2 | 2(5) | lok. Variable
* Gesamtgröße: 2 bytes (-> Offset)

put   lda   3,2(5)
   mul   3,'2'
   outi   fibs(3)
   lda   0,2(5)
   add   0,'1'
   sta   0,2(5)
   cmp   0,input
   bnh   put
   lda   0,0(5)
   br   0

Geht bis fib(23), weil mehr in die 2 bytes leider nicht rein passen
Dafür wird auch wirklich alles schön ausgegeben...

Soooo, hat noch jemand was für mich?