| /programs/develop/golang/example/Makefile |
|---|
| 0,0 → 1,26 |
| PROGRAM=example |
| OBJS=../syscalls.o colors.go.o colors.gox ../kos.go.o ../kos.gox $(PROGRAM).go.o |
| GOFLAGS=-m32 -c -nostdlib -nostdinc -fno-stack-protector -fno-split-stack -static -fno-leading-underscore -fno-common -fno-pie -g -I. |
| GO=gccgo |
| ASFLAGS=-g -f elf32 -F dwarf |
| NASM=nasm $(ASFLAGS) |
| OBJCOPY=objcopy |
| LDFLAGS=-n -T static.lds -m elf_i386 --no-ld-generated-unwind-info |
| all: $(OBJS) link |
| clean: |
| rm -f $(OBJS) $(PROGRAM).kex |
| link: |
| ld $(LDFLAGS) -o $(PROGRAM).kex $(OBJS) |
| $(OBJCOPY) $(PROGRAM).kex -O binary |
| %.gox: %.go.o |
| $(OBJCOPY) -j .go_export $< $@ |
| %.go.o: %.go |
| $(GO) $(GOFLAGS) -o $@ -c $< |
| %.o: %.asm |
| $(NASM) $< |
| /programs/develop/golang/example/colors.go |
|---|
| 0,0 → 1,20 |
| package colors |
| const( |
| Black = 0x000000 |
| Gray = 0x808080 |
| Silver = 0xc0c0c0 |
| White = 0xffffff |
| Fuchsia = 0xff00ff |
| Purple = 0x800080 |
| Red = 0xff0000 |
| Maroon = 0x800000 |
| Yellow = 0xffff00 |
| Olive = 0x808000 |
| Lime = 0x00ff00 |
| Green = 0x008000 |
| Aqua = 0x00ffff |
| Teal = 0x008080 |
| Blue = 0x0000ff |
| Navy =0x000080 |
| ) |
| /programs/develop/golang/example/example.go |
|---|
| 0,0 → 1,77 |
| package example |
| import ( |
| "colors" |
| "../kos" |
| ) |
| const ( |
| Btn1 = 2 |
| Btn2 = 3 |
| BtnExit = 1 |
| ) |
| type Button struct { // structure gui button |
| label string |
| x int |
| y int |
| id int |
| } |
| func NewButton() Button { |
| object := Button{"Text", 0, 0, Btn1} // default data |
| return object |
| } |
| func (button *Button) make() { |
| kos.CreateButton(button.x, button.y, len(button.label)*15, 30, button.id, colors.Blue) |
| kos.WriteText(button.x, button.y, 0x11000000|colors.White, button.label) |
| } |
| func RedrawAll(bar_pos int) { |
| kos.Redraw(1) |
| kos.Window(500, 250, 420, 200, "Example GoLang") |
| kos.DrawLine(32, 80, 150, 80, colors.Green) |
| kos.DrawBar(bar_pos, 90, 100, 30, colors.Red) |
| b1 := NewButton() |
| b1.label = " <- " |
| b1.x = 32 |
| b1.y = 128 |
| b1.id = Btn1 |
| b1.make() |
| b2 := NewButton() |
| b2.label = " -> " |
| b2.x = 310 |
| b2.y = 128 |
| b2.id = Btn2 |
| b2.make() |
| } |
| func Main() { |
| var pos = 160 |
| time := kos.GetTime() |
| kos.DebugOutStr("Time: ") |
| kos.DebugOutHex(time) |
| for { |
| switch kos.Event() { |
| case kos.EVENT_REDRAW: |
| RedrawAll(pos) |
| break |
| case kos.EVENT_BUTTON: |
| switch kos.GetButtonID() { |
| case Btn1: |
| pos -= 32 |
| RedrawAll(pos) |
| break |
| case Btn2: |
| pos += 32 |
| RedrawAll(pos) |
| break |
| case BtnExit: |
| kos.Exit() |
| } |
| } |
| } |
| } |
| /programs/develop/golang/example/static.lds |
|---|
| 0,0 → 1,31 |
| SECTIONS |
| { |
| . = 0x00000; |
| .text : |
| { |
| LONG(0x554e454D); |
| LONG(0x31305445); |
| LONG(1); |
| LONG(go.example.Main); |
| LONG(__end); |
| LONG(0x10000); |
| LONG(0x10000); |
| LONG(0); |
| LONG(0); |
| *(.text) |
| } |
| .eh_frame : { |
| *(.eh_frame) |
| } |
| .group : { |
| *(.group) |
| } |
| .data : { |
| *(.data) |
| } |
| .rodata : { |
| *(.rodata) |
| *(.rodata.*) |
| } |
| __end = .; |
| } |
| /programs/develop/golang/kos.go |
|---|
| 0,0 → 1,34 |
| package kos |
| const ( |
| EVENT_NONE = 0 /* Event queue is empty */ |
| EVENT_REDRAW = 1 /* Window and window elements should be redrawn */ |
| EVENT_KEY = 2 /* A key on the keyboard was pressed */ |
| EVENT_BUTTON = 3 /* A button was clicked with the mouse */ |
| EVENT_DESKTOP = 5 /* Desktop redraw finished */ |
| EVENT_MOUSE = 6 /* Mouse activity (movement, button press) was detected */ |
| EVENT_IPC = 7 /* Interprocess communication notify */ |
| EVENT_NETWORK = 8 /* Network event */ |
| EVENT_DEBUG = 9 /* Debug subsystem event */ |
| EVENT_IRQBEGIN = 16 |
| ) |
| func Sleep(uint32) |
| func GetTime()(time uint32) |
| func Event()(int) |
| func GetButtonID()(id int) |
| func CreateButton(x int, y int, xsize int, ysize int, id int, color uint32) |
| func Exit() |
| func Redraw(int) |
| func Window(y int, x int, w int,h int, title string) |
| func WriteText(x int ,y int , color uint32, text string) |
| func WriteText2(int ,int ,int, uint32,uint32) |
| func DrawLine(x1 int, y1 int, x2 int, y2 int, color uint32)(uint32) |
| func DrawBar(x int, y int, xsize int, ysize int, color uint32) |
| func DebugOutHex(uint32) |
| func DebugOutChar(byte) |
| func DebugOutStr(string) |
| func Pointer2byteSlice(ptr uint32) *[]byte __asm__("__unsafe_get_addr") |
| //func Pointer2uint32(ptr interface{}) uint32 __asm__("__unsafe_get_addr") |
| /programs/develop/golang/run.bat |
|---|
| 0,0 → 1,0 |
| qemu-system-i386 -fda C:\Users\rgimad\Documents\Programming_projects\KOS_IMAGES\latest_kolibri.img -boot a -m 512 -usbdevice tablet -drive file=fat:rw:. |
| /programs/develop/golang/syscalls.asm |
|---|
| 0,0 → 1,327 |
| SECTION .text |
| global go.kos.Sleep |
| global go.kos.Event |
| global go.kos.GetButtonID |
| global go.kos.CreateButton |
| global go.kos.Exit |
| global go.kos.Redraw |
| global go.kos.Window |
| global go.kos.WriteText |
| global go.kos.GetTime |
| global go.kos.DrawLine |
| global go.kos.DrawBar |
| global go.kos.DebugOutHex |
| global go.kos.DebugOutChar |
| global go.kos.DebugOutStr |
| global go.kos.WriteText2 |
| global runtime.memequal32..f |
| runtime.memequal32..f: |
| ret |
| global runtime.memequal8..f |
| runtime.memequal8..f: |
| ret |
| global runtime.memequal |
| runtime.memequal: |
| ret |
| global go.kos.SetByteString |
| go.kos.SetByteString: |
| push ebp |
| mov ebp, esp |
| mov eax, [ebp+8] |
| mov ebx, [ebp+12] |
| mov ecx, [ebp+16] |
| mov dh, [ebp+20] |
| mov byte[eax+ecx], dh |
| mov esp, ebp |
| pop ebp |
| ret |
| global __go_runtime_error |
| global __go_register_gc_roots |
| global __unsafe_get_addr |
| __unsafe_get_addr: |
| push ebp |
| mov ebp, esp |
| mov eax, [ebp+8] |
| mov esp, ebp |
| pop ebp |
| ret |
| __go_register_gc_roots: |
| __go_runtime_error: |
| ret |
| global runtime.writeBarrier |
| global runtime.gcWriteBarrier |
| runtime.writeBarrier: |
| mov eax, [esp+8] |
| mov ebx, [esp+12] |
| mov dword[eax], ebx |
| ret |
| global runtime.strequal..f |
| runtime.strequal..f: |
| mov eax,[esp+8] |
| mov ebx,[esp+16] |
| mov ecx,0 |
| strcmp_loop: |
| mov byte dl,[eax+ecx] |
| mov byte dh,[ebx+ecx] |
| inc ecx |
| cmp dl,0 |
| je strcmp_end_0 |
| cmp byte dl,dh |
| je strcmp_loop |
| jl strcmp_end_1 |
| jg strcmp_end_2 |
| strcmp_end_0: |
| cmp dh,0 |
| jne strcmp_end_1 |
| xor ecx,ecx |
| ret |
| strcmp_end_1: |
| mov ecx,1 |
| ret |
| strcmp_end_2: |
| mov ecx,-1 |
| ret |
| runtime.gcWriteBarrier: |
| mov eax, [esp+8] |
| mov ebx, [esp+12] |
| mov dword[eax], ebx |
| ret |
| global runtime.goPanicIndex |
| runtime.goPanicIndex: |
| ret |
| global runtime.registerGCRoots |
| runtime.registerGCRoots: |
| ret |
| global memcmp |
| memcmp: |
| push ebp |
| mov ebp,esp |
| mov esi, [ebp+8] ; Move first pointer to esi |
| mov edi, [ebp+12] ; Move second pointer to edi |
| mov ecx, [ebp+16] ; Move length to ecx |
| cld ; Clear DF, the direction flag, so comparisons happen |
| ; at increasing addresses |
| cmp ecx, ecx ; Special case: If length parameter to memcmp is |
| ; zero, don't compare any bytes. |
| repe cmpsb ; Compare bytes at DS:ESI and ES:EDI, setting flags |
| ; Repeat this while equal ZF is set |
| setz al |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.Sleep: |
| push ebp |
| mov ebp,esp |
| mov eax, 5 |
| mov ebx, [ebp+8] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.Event: |
| mov eax, 10 |
| int 0x40 |
| ret |
| go.kos.GetButtonID: |
| mov eax,17 |
| int 0x40 |
| test al,al |
| jnz .no_button |
| shr eax,8 |
| ret |
| .no_button: |
| xor eax,eax |
| dec eax |
| ret |
| go.kos.Exit: |
| mov eax, -1 |
| int 0x40 |
| ret |
| go.kos.Redraw: |
| push ebp |
| mov ebp,esp |
| mov eax, 12 |
| mov ebx, [ebp+8] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.Window: |
| push ebp |
| mov ebp,esp |
| mov ebx, [ebp+8] |
| shl ebx, 16 |
| or ebx, [ebp+16] |
| mov ecx, [ebp+12] |
| shl ecx, 16 |
| or ecx, [ebp+20] |
| mov edx, 0x14 |
| shl edx, 24 |
| or edx, 0xFFFFFF |
| mov esi, 0x808899ff |
| mov edi, [ebp+24] |
| xor eax, eax |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.WriteText: |
| push ebp |
| mov ebp,esp |
| mov eax,4 |
| mov ebx,[ebp+8] |
| shl ebx,16 |
| mov bx,[ebp+12] |
| mov ecx,[ebp+16] |
| mov edx,[ebp+20] |
| mov esi,[ebp+24] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.WriteText2: |
| push ebp |
| mov ebp,esp |
| mov eax,47 |
| mov ebx,[ebp+8] |
| shl ebx,16 |
| mov ecx,[ebp+12] |
| mov edx,[ebp+20] |
| shl edx,16 |
| add edx, [ebp+24] |
| mov esi,[ebp+28] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.DrawLine: |
| push ebp |
| mov ebp,esp |
| mov ebx,[ebp+8] |
| shl ebx,16 |
| mov bx,[ebp+16] |
| mov ecx,[ebp+12] |
| shl ecx,16 |
| mov cx,[ebp+20] |
| mov edx,[ebp+24] |
| mov eax,38 |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.DrawBar: |
| push ebp |
| mov ebp,esp |
| mov eax,13 |
| mov ebx,[ebp+8] |
| shl ebx,16 |
| mov bx,[ebp+16] |
| mov ecx,[ebp+12] |
| shl ecx,16 |
| mov cx,[ebp+20] |
| mov edx,[ebp+24] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| go.kos.GetTime: |
| mov eax, 3 |
| int 0x40 |
| ret |
| go.kos.DebugOutHex: |
| mov eax, [esp+4] |
| mov edx, 8 |
| .new_char: |
| rol eax, 4 |
| movzx ecx, al |
| and cl, 0x0f |
| mov cl, [__hexdigits + ecx] |
| pushad |
| mov eax, 63 |
| mov ebx, 1 |
| int 0x40 |
| popad |
| dec edx |
| jnz .new_char |
| ret |
| go.kos.DebugOutChar: |
| mov al, [esp+4] |
| pushf |
| pushad |
| mov cl,al |
| mov eax,63 |
| mov ebx,1 |
| int 0x40 |
| popad |
| popf |
| ret |
| go.kos.DebugOutStr: |
| mov edx,[esp+4] |
| mov eax,63 |
| mov ebx,1 |
| m2: |
| mov cl, [edx] |
| test cl,cl |
| jz m1 |
| int 40h |
| inc edx |
| jmp m2 |
| m1: |
| ret |
| go.kos.CreateButton: |
| push ebp |
| mov ebp,esp |
| mov eax, 8 |
| mov ebx, [ebp+8] |
| shl ebx, 16 |
| mov bx, [ebp+16] |
| mov ecx, [ebp+12] |
| shl ecx, 16 |
| mov cx, [ebp+20] |
| mov edx, [ebp+24] |
| mov esi, [ebp+28] |
| int 0x40 |
| mov esp,ebp |
| pop ebp |
| ret |
| SECTION .data |
| __hexdigits: |
| db '0123456789ABCDEF' |
| __test: |
| dd __hexdigits |
| dd 15 |