X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=blobdiff_plain;f=progs%2Ffibmmem.s;h=e7bcc862fc31d72d6574ef31ac8a060e28c36355;hp=827c8da43aa3586dd6bd86d0021db9ec7207f064;hb=c9b5494d6e0bb103cdc070f8517dfb829de33463;hpb=a3f2e6bb36ab614639c74e6fae9aca02b3a48578

diff --git a/progs/fibmmem.s b/progs/fibmmem.s
index 827c8da..e7bcc86 100644
--- a/progs/fibmmem.s
+++ b/progs/fibmmem.s
@@ -20,19 +20,23 @@ main:
 	call u_send_newline
 
 	call t_init
+	call t_stop
 	ldis r1, 0
 	call t_valset
 	call t_start
 
+	; fib start
 	ldi r1, 9;
 	ldi r10, list@lo ; global pointer
 	ldih r10, list@hi
 	call+ fibcall;
+	; fib ende
 
 	push r0
-	call t_init
-	call t_stop
-	call t_valget
+	call+ t_init
+	call+ t_stop
+	call+ t_valget
+	subi r0, r0, 0xd ; offset abziehen
 	pop r3
 	push r0
 	push r3