KSP/njvm
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed the fib program

Browse Source
This commit is contained in:
nilspolek 2024-01-23 15:49:05 +01:00
parent 69b4a1afb4
commit 1ea539ddea
2 changed files with 0 additions and 177 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

177
fib.asm
View File

@ -1,177 +0,0 @@
//
// version
//
.vers 6
//
// execution framework
//
__start:
call _main
call _exit
__stop:
jmp __stop
//
// Integer readInteger()
//
_readInteger:
asf 0
rdint
popr
rsf
ret
//
// void writeInteger(Integer)
//
_writeInteger:
asf 0
pushl -3
wrint
rsf
ret
//
// Character readCharacter()
//
_readCharacter:
asf 0
rdchr
popr
rsf
ret
//
// void writeCharacter(Character)
//
_writeCharacter:
asf 0
pushl -3
wrchr
rsf
ret
//
// Integer char2int(Character)
//
_char2int:
asf 0
pushl -3
popr
rsf
ret
//
// Character int2char(Integer)
//
_int2char:
asf 0
pushl -3
popr
rsf
ret
//
// void exit()
//
_exit:
asf 0
halt
rsf
ret
//
// void main()
//
_main:
asf 2
call _readInteger
pushr
popl 0
pushl 0
call _fib
drop 1
pushr
popl 1
pushl 0
call _writeInteger
drop 1
pushc 10
call _writeCharacter
drop 1
pushc 102
call _writeCharacter
drop 1
pushc 105
call _writeCharacter
drop 1
pushc 98
call _writeCharacter
drop 1
pushc 58
call _writeCharacter
drop 1
pushc 32
call _writeCharacter
drop 1
pushl 1
call _writeInteger
drop 1
pushc 10
call _writeCharacter
drop 1
__0:
rsf
ret
//
// Integer fib(Integer)
//
_fib:
asf 4
pushc 0
popl 0
pushc 1
popl 1
pushc 0
popl 2
pushc 1
popl 3
pushl -3
pushc 2
lt
brf __2
pushc 1
popr
jmp __1
jmp __3
__2:
jmp __5
__4:
pushl 0
pushl 1
add
popl 2
pushl 1
popl 0
pushl 2
popl 1
pushl 3
pushc 1
add
popl 3
__5:
pushl 3
pushl -3
lt
brt __4
__6:
pushl 2
popr
jmp __1
__3:
__1:
rsf
ret

BIN
fib.bin?inline=false
View File

Binary file not shown.