31 lines
745 B
Plaintext
31 lines
745 B
Plaintext
include print "./print.dsa"
|
|
include fib "./fib.dsa"
|
|
|
|
dw stack: 0x10000
|
|
db string: "An idiot admires complexity, a genius admires simplicity,
|
|
a physicist tries to make it simple, for an idiot anything the more complicated it is,
|
|
the more he will admire it, if you make something so clusterfucked he can't understand it he's
|
|
gonna think you're a god cause you made it so complicated nobody can understand it.
|
|
That's how they write journals in Academics, they try to make it so complicated people think you're a genius"
|
|
|
|
init:
|
|
ldw stack, bpr
|
|
mov bpr, spr
|
|
|
|
start:
|
|
lwi string, rg1
|
|
|
|
// push variables
|
|
push rg1 // string address.
|
|
push pcx // return address.
|
|
|
|
// call
|
|
jmp print::print
|
|
|
|
|
|
lli 25, rg0
|
|
push rg0
|
|
push pcx
|
|
jmp fib::fib_n
|
|
|
|
hlt |