From 82704187f9240eae1f357c5712d4e2377f9c3ae7 Mon Sep 17 00:00:00 2001 From: nilspolek Date: Tue, 23 Jan 2024 22:15:49 +0100 Subject: [PATCH] Arrays work now --- programs/newFraction.asm | 71 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 programs/newFraction.asm diff --git a/programs/newFraction.asm b/programs/newFraction.asm new file mode 100644 index 0000000..23aba02 --- /dev/null +++ b/programs/newFraction.asm @@ -0,0 +1,71 @@ +_newFraction: + asf 4 + pushl -4 + pushc 0 + lt + brf __5 + pushc 0 + pushl -4 + sub + popl 0 + jmp __6 +__5: + pushl -4 + popl 0 +__6: + pushl -3 + pushc 0 + lt + brf __7 + pushc 0 + pushl -3 + sub + popl 1 + jmp __8 +__7: + pushl -3 + popl 1 +__8: + pushl 0 + pushl 1 + call _gcd + drop 2 + pushr + popl 2 + new 2 + popl 3 + pushl -4 + pushc 0 + lt + pushl -3 + pushc 0 + lt + ne + brf __9 + pushl 3 + pushc 0 + pushl 0 + sub + pushl 2 + div + putf 0 + jmp __10 +__9: + pushl 3 + pushl 0 + pushl 2 + div + putf 0 +__10: + pushl 3 + pushl 1 + pushl 2 + div + putf 1 + pushl 3 + popr + jmp __4 +__4: + rsf + ret +