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

diff --git a/progs/fibmmem.s b/progs/fibmmem.s
index 6ec5aa1..e7bcc86 100644
--- a/progs/fibmmem.s
+++ b/progs/fibmmem.s
@@ -19,12 +19,28 @@ main:
 	call+ u_recv_byte
 	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
+	subi r0, r0, 0xd ; offset abziehen
+	pop r3
+	push r0
+	push r3
+
 	call u_init ; weil r10 ueberschrieben wird
 	ldis r1, str@lo
 	ldih r1, str@hi
@@ -34,6 +50,9 @@ main:
 	pop r1
 	call+ u_send_uint
 	call u_send_newline
+	pop r1
+	call+ u_send_uint
+	call u_send_newline
 
 hang:
 	br hang