Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

Bird Programming Language: Part 1

, 1 Jan 2013 GPL3
A new general purpose language that aims to be fast, high level and simple to use.
Bird-noexe.zip
Bird
Archives
crt2.o
crtbegin.o
crtend.o
libadvapi32.a
libcomctl32.a
libcomdlg32.a
libgcc.a
libgdi32.a
libglu32.a
libkernel32.a
libmingw32.a
libmingwex.a
libmoldname.a
libmsvcrt.a
libopengl32.a
libshell32.a
libstdc++.a
libuser32.a
libwinmm.a
libwsock32.a
Libraries
BirdCore
Array.bird
BigInteger.bird
BinaryRW.bird
BirdCore.a
BirdCore.blib
CategoryData.dat
Console.bird
Convert.bird
Debug.bird
Entry.bird
Environment.bird
Exception.bird
Float.bird
LEB128.bird
Math.bird
Memory.bird
Object.bird
Random.bird
Reflection.bird
StandardC.bird
Stream.bird
String.bird
ToLowerData.dat
ToUpperData.dat
Types.bird
ValueType.bird
Win32.bird
x86Helper.bird
BlitzMax
.bmx
Launcher.bmx.gui.release.win32.x86.o
appstub.release.win32.x86.a
bank.release.win32.x86.a
bankstream.release.win32.x86.a
blitz.release.win32.x86.a
BlitzMax.a
BlitzMax.bird
BlitzMax.blib
d3d7max2d.release.win32.x86.a
d3d9max2d.release.win32.x86.a
directx.release.win32.x86.a
dxgraphics.release.win32.x86.a
event.release.win32.x86.a
filesystem.release.win32.x86.a
font.release.win32.x86.a
glgraphics.release.win32.x86.a
glmax2d.release.win32.x86.a
graphics.release.win32.x86.a
hook.release.win32.x86.a
keycodes.release.win32.x86.a
Launcher.bmx
libpng.release.win32.x86.a
linkedlist.release.win32.x86.a
math.release.win32.x86.a
max2d.release.win32.x86.a
opengl.release.win32.x86.a
pixmap.release.win32.x86.a
pngloader.release.win32.x86.a
polledinput.release.win32.x86.a
standardio.release.win32.x86.a
stdc.release.win32.x86.a
stream.release.win32.x86.a
system.release.win32.x86.a
textstream.release.win32.x86.a
win32.release.win32.x86.a
zlib.release.win32.x86.a
PrgLinec.bmx
Samples
Circles
Circles.bird
CppMain.bird
Fire
Fire.bird
Higher Order Functions
C#
Higher Order Functions.v11.suo
Properties
Test.bird
msvcrt.lib
Reflection
Reflection.bird
Squares
Squares.bird
Template
Template.bird
Source
Base
Bird.v11.suo
Expressions
Identifiers
Languages
NativeCode
Properties
Recognizers
Expressions
Scopes
x86
Thumbs.db
Bird.zip
crt2.o
crtbegin.o
crtend.o
libadvapi32.a
libcomctl32.a
libcomdlg32.a
libgcc.a
libgdi32.a
libglu32.a
libkernel32.a
libmingw32.a
libmingwex.a
libmoldname.a
libmsvcrt.a
libopengl32.a
libshell32.a
libstdc++.a
libuser32.a
libwinmm.a
libwsock32.a
Binaries
ar.exe
Bird.exe
fasm.exe
ld.exe
libiconv-2.dll
libintl-8.dll
Array.bird
BigInteger.bird
BinaryRW.bird
BirdCore.a
BirdCore.blib
CategoryData.dat
Console.bird
Convert.bird
Debug.bird
Entry.bird
Environment.bird
Exception.bird
Float.bird
LEB128.bird
Math.bird
Memory.bird
Object.bird
Random.bird
Reflection.bird
StandardC.bird
Stream.bird
String.bird
ToLowerData.dat
ToUpperData.dat
Types.bird
ValueType.bird
Win32.bird
x86Helper.bird
Launcher.bmx.gui.release.win32.x86.o
appstub.release.win32.x86.a
bank.release.win32.x86.a
bankstream.release.win32.x86.a
blitz.release.win32.x86.a
BlitzMax.a
BlitzMax.bird
BlitzMax.blib
d3d7max2d.release.win32.x86.a
d3d9max2d.release.win32.x86.a
directx.release.win32.x86.a
dxgraphics.release.win32.x86.a
event.release.win32.x86.a
filesystem.release.win32.x86.a
font.release.win32.x86.a
glgraphics.release.win32.x86.a
glmax2d.release.win32.x86.a
graphics.release.win32.x86.a
hook.release.win32.x86.a
keycodes.release.win32.x86.a
Launcher.bmx
libpng.release.win32.x86.a
linkedlist.release.win32.x86.a
math.release.win32.x86.a
max2d.release.win32.x86.a
opengl.release.win32.x86.a
pixmap.release.win32.x86.a
pngloader.release.win32.x86.a
polledinput.release.win32.x86.a
standardio.release.win32.x86.a
stdc.release.win32.x86.a
stream.release.win32.x86.a
system.release.win32.x86.a
textstream.release.win32.x86.a
win32.release.win32.x86.a
zlib.release.win32.x86.a
PrgLinec.bmx
PrgLinec.exe
Circles.bird
CppMain.bird
Fire.bird
Higher Order Functions.v11.suo
Test.bird
msvcrt.lib
Reflection.bird
Squares.bird
Template.bird
Bird.v11.suo
Thumbs.db
examples.zip
Examples
As.exe
AsLibs.a
PerfTest
Launcher.bmx
Squares
.bmx
Launcher.bmx
Template
Launcher.bmx
source.zip
Anonymus 7_1
Anonymus.csproj.user
Anonymus.idc
Anonymus.pidb
Anonymus.suo
Anonymus.userprefs
Base
Expressions
Lib
Long
LongDivTest.bmx
ULongConv.bmx
Math
MISZ
AsLibs.a
PerfTest
Launcher.bmx
Squares
Launcher.bmx
Template
Launcher.bmx
PrgLinec.bmx
PrgLinec.exe
Properties
Scopes
Txt
Asm.docx
Code.docx
Lib.aslib
~$Code.docx
x86
	format MS COFF
	public _LongDiv				; ascall
	public _ULongDiv			; ascall
	
section ".code" code readable executable

;------------------------------------------------
_LongDiv:
	push ebx
	xor bx, bx
	test edx, 80000000h
	jz _LongDiv_1
	mov bl, 1
	neg eax
	adc edx, 0
	neg edx
_LongDiv_1:
	test dword[esp + 12], 80000000h
	jz _LongDiv_2
	mov bh, 1
	neg dword[esp + 8]
	adc dword[esp + 12], 0
	neg dword[esp + 12]
_LongDiv_2:
	push dword[esp + 12]
	push dword[esp + 12]
	call _ULongDiv
	xor bl, bh
	jz _LongDiv_3
	neg eax
	adc edx, 0
	neg edx
_LongDiv_3:
	pop ebx
	ret 8
	
;------------------------------------------------
_ULongDiv:
	push ebx
	cmp dword[esp + 12], 0
	jne _ULongDiv_Hard
	mov ecx, eax
	mov eax, edx
	xor edx, edx
	div dword[esp + 8]
	mov ebx, eax
	mov eax, ecx
	div dword[esp + 8]
	mov edx, ebx
	pop ebx
	ret 8
	
_ULongDiv_Hard:
	push esi
	push edi
	sub esp, 8
	mov dword[esp], eax
	mov dword[esp + 4], edx
	xor eax, eax
	xor edx, edx
	
_ULongDiv_Hard_3:
	mov esi, dword[esp + 24]
	mov edi, dword[esp + 28]
	
	cmp dword[esp + 4], edi
	ja _ULongDiv_Hard_13
	jb _ULongDiv_Hard_2
	cmp dword[esp], esi
	jbe _ULongDiv_Hard_2

_ULongDiv_Hard_13:
	;------------------
	; osztand�
	;------------------
	cmp dword[esp + 4], 0
	je _ULongDiv_Hard_4
	bsr ebx, dword[esp + 4]
	add ebx, 32
	jmp _ULongDiv_Hard_5
_ULongDiv_Hard_4:
	bsr ebx, dword[esp]
_ULongDiv_Hard_5:
	mov ecx, ebx

	;------------------
	; oszt�
	;------------------
	cmp edi, 0
	je _ULongDiv_Hard_6
	bsr ebx, edi
	add ebx, 32
	jmp _ULongDiv_Hard_7
_ULongDiv_Hard_6:
	bsr ebx, esi
_ULongDiv_Hard_7:
	sub ecx, ebx
	
	;------------------
	; shift left
	;------------------
	cmp cl, 32
	ja _ULongDiv_Hard_8
	shld edi, esi, cl
	shl esi, cl
	jmp _ULongDiv_Hard_9
_ULongDiv_Hard_8:
	and cl, 31
	xor edi, edi
	shl esi, cl
	
	;------------------
	; shift right 1, ha oszt� > osztand�
	;------------------
_ULongDiv_Hard_9:
	cmp edi, dword[esp + 4]
	ja _ULongDiv_Hard_10
	jb _ULongDiv_Hard_11
	cmp esi, dword[esp]
	jbe _ULongDiv_Hard_11
_ULongDiv_Hard_10:
	shrd esi, edi, 1
	shr edi, 1
	dec cl
_ULongDiv_Hard_11:

	;------------------
	; osztand� - tmp oszt�
	;------------------
	sub dword[esp], esi
	sbb dword[esp + 4], edi
	
	cmp cl, 32
	ja _ULongDiv_Hard_12
	bts eax, ecx
	jmp _ULongDiv_Hard_3
_ULongDiv_Hard_12:
	and cl, 31
	bts edx, ecx
	jmp _ULongDiv_Hard_3
	
_ULongDiv_Hard_2:
	add esp, 8
	pop edi
	pop esi
	pop ebx
	ret 8

	

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The GNU General Public License (GPLv3)

Share

About the Author

Dávid Kocsis
Student
Hungary Hungary
I've been programming for 8 years. My first big project was a remake of a nice bomberman game called Dyna Blaster. When i was little i played a lot with it. Now i'm working on a new programming language and code generator.
I would like to work with someone, so feel free to contact me about it.

| Advertise | Privacy | Mobile
Web03 | 2.8.141022.1 | Last Updated 1 Jan 2013
Article Copyright 2011 by Dávid Kocsis
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid