/prog/ - Basic Fibs

Name: Anonymous 2013-08-01 16:07

screen 12

dim as integer i = 0

dim as ulongint a = 0, b = 1, c = 0



input "? ", i

while i >= 0

    print a; " "; 

    c = b

    b = a + b

    a = c

    i -= 1

wend

sleep

And they said BASIC wasn't useful for anything.

Name: Anonymous 2013-08-02 0:21

format PE64 console

entry main

include 'win64a.inc'



section '.shit1' code readable writeable executable

main:

mov [x], 0

mov [x+8], 1

mov [x+16], 0

invoke printf, manyfibs

invoke scanf, prompt, many

stuff:

invoke printf, fib, [x]

mov rax, [x+8]

mov [x+16], rax

add rax, [x]

mov [x+8], rax

mov rax, [x+16]

mov [x], rax

dec [many]

cmp [many], 0

jnz stuff

mov eax, 0

ret



section '.shit2' import data readable writeable executable

library stdlib,'msvcrt.dll'

import stdlib, printf, "printf", scanf, "scanf"

fib db ' '

prompt db '%llu', 0

many dq 0

x dq 0,0,0

manyfibs db 'HOW MANY FIBS DO YOU WANT??? ',0

And they said FASM wasn't useful for anything.

Basic Fibs

1 Name: Anonymous 2013-08-01 16:07

17 Name: Anonymous 2013-08-02 0:21

Name: Anonymous 2013-08-01 16:07

Name: Anonymous 2013-08-02 0:21