]> wirehaze git hosting - BOS.git/blob - kernel/krl_incs/commands.inc

wirehaze git hosting

projects / BOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
made it assemble under os x, moved loading position of kernel + install script for osx
[BOS.git] / kernel / krl_incs / commands.inc
1 ;----------------------------------------------------------;
2 ; BOS kernel Christoffer Bubach, 2003-2005. ;
3 ;----------------------------------------------------------;
4 ; ;
5 ; Command table and some commands for the shell. ;
6 ; ;
7 ;----------------------------------------------------------;
8
9 ; I should really do something about this file, divide it into
10 ; smaller ones or something. I'm just too lazy. Next version..
11
12
13 commands: db 'ver', 0
14 db 'help', 0
15 db '?', 0
16 db 'about', 0
17 db 'cls', 0
18 db 'clrscr', 0
19 db 'reboot', 0
20 db 'regdump', 0
21 db 'time', 0
22 db 'date', 0
23 db 'delay', 0
24 db 'vgatest', 0
25 db 'memtest', 0
26 db 'fddtest', 0
27 db 0xFF ; end of command table
28
29
30 call_table: dd show_ver ; commands.inc
31 dd show_help ; commands.inc
32 dd show_help ; commands.inc
33 dd show_about ; commands.inc
34 dd clrscr ; commands.inc
35 dd clrscr ; comamnds.inc
36 dd reboot ; commands.inc
37 dd dump_regs ; debug.inc
38 dd print_time ; time_date.inc
39 dd print_date ; time_date.inc
40 dd delay_test ; commands.inc
41 dd vga_test ; commands.inc
42 dd mem_test ; commands.inc
43 dd fdd_test ; commands.inc
44
45
46
47 ;--------------------------;
48 ; not a valid command ;
49 ;--------------------------;
50 not_a_valid_cmd db 13,10,'No such command or program exists.', 0
51
52 no_such_cmd:
53 push esi
54 push bx
55
56 mov esi, not_a_valid_cmd
57 mov bl, 0x04
58 call print
59
60 pop bx
61 pop esi
62 ret
63
64
65 ;-------------------;
66 ; show version ;
67 ;-------------------;
68 bos_ver_str db 13,10,'BOS version 0.04 by Christoffer Bubach, 2003-2005.', 0
69 show_ver:
70 push esi
71 push bx
72
73 mov esi, bos_ver_str
74 mov bl, 0x07
75 call print
76
77 pop bx
78 pop esi
79 ret
80
81
82 ;--------------------;
83 ; show BOS help ;
84 ;--------------------;
85 bos_help_str db 13,10,13,10,' BOS 0.04 by Christoffer Bubach, 2003-2005.',13,10,\
86 '--------------------------------------------',13,10,\
87 'Type a command and press ENTER to execute it.',13,10,13,10,\
88 '"help" or "?" - Displays this text.',13,10,\
89 '"ver" - Shows version information.',13,10,\
90 '"about" - Shows information about the OS.',13,10,\
91 '"cls" or "clrscr" - Clears the screen.',13,10,\
92 '"memtest" - Shows memory info (and allocates/frees some, to test).',13,10,\
93 '"vgatest" - Test some VGA stuff.',13,10,\
94 '"fddtest" - Read and print bootsector from A:',13,10,\
95 '"delay" - Tests the delay function for 5 s.',13,10,\
96 '"time" - Prints current time.',13,10,\
97 '"date" - Prints current date.',13,10,\
98 '"regdump" - Dump some standard registers.',13,10,\
99 '"reboot" - Restarts the computer.',0
100 show_help:
101 push esi
102 push bx
103
104 mov esi, bos_help_str
105 mov bl, 0x07
106 call print
107
108 pop bx
109 pop esi
110 ret
111
112
113 ;-----------------;
114 ; show about ;
115 ;-----------------;
116 bos_about_str db 13,10,'About BOS',13,10,\
117 'Hmm.. I started with OS-dev in late 2003.. Anyway..',13,10,13,10,\
118 'Thanks for helping me get this far goes to:',13,10,\
119 'all people at mega-tokyo.com, osdever.net and flatassembler.net',13,10,\
120 'Robert ',153,'stling for Primula, http://ostling.no-ip.com/',13,10,\
121 'J.Thim for EelOS, http://www.ludd.luth.se/~ivileel/',13,10,\
122 'Tomasz Grysztar for fasm and fasmw, http://flatassembler.net/',13,10,\
123 'ASHLEY4, Candy, John S. Fine and Petroff Heroj.',0
124 show_about:
125 push esi
126 push bx
127
128 mov esi, bos_about_str
129 mov bl, 0x07
130 call print
131
132 pop bx
133 pop esi
134 ret
135
136
137 ;-----------------------;
138 ; clear the screen ;
139 ;-----------------------;
140 clrscr:
141 call cls ; text.inc
142 mov esi, prompt
143 mov bl, 0x0E
144 call print
145 mov edi, cmd_buffer
146 jmp shell ; no normal return, as it gives an extra line feed
147
148
149
150 ;-------------;
151 ; reboot ;
152 ;-------------;
153 reboot:
154 call kbd_wait
155 mov al, 0xFE
156 out 0x64, al
157 jmp $
158 ret
159
160
161 ;-----------------;
162 ; delay test ;
163 ;-----------------;
164 bos_delay_str db 13,10,'~1 second has passed.', 0
165 delay_test:
166 mov ecx, 5
167 .loop:
168 push ecx
169 mov ecx, 100
170 call delay
171 pop ecx
172 mov esi, bos_delay_str
173 mov bl, 0x07
174 call print
175 loop .loop
176 ret
177
178
179 ;----------------;
180 ; VGA test ;
181 ;----------------;
182 bos_vga_str db 13,10,'It works..! :-D', 0
183 vga_test:
184
185 mov ax, 1 ; clear the screen
186 call set_mode_0x13 ; set mode 0x13
187
188 mov cx, 256 ; loop out some pixels
189 .l1:
190 mov bx, cx ; x value
191 mov al, cl
192 push cx
193 mov cx, 50 ; y value
194 call put_0x13_pixel
195 pop cx
196 loop .l1
197
198 ; draw mario and some ground
199 mov esi, mario
200 mov ax, 260 ; x
201 mov bx, 168 ; y
202 mov cx, 20 ; height
203 mov dx, 18 ; width
204 call put_0x13_sprite ; in vga.inc
205 mov esi, grass_l
206 mov ax, 250
207 mov bx, 186
208 mov cx, 20
209 mov dx, 14
210 call put_0x13_sprite
211 mov esi, grass_f
212 mov ax, 265
213 mov bx, 186
214 mov cx, 20
215 mov dx, 14
216 call put_0x13_sprite
217 mov esi, grass_ul
218 mov ax, 280
219 mov bx, 186
220 mov cx, 20
221 mov dx, 14
222 call put_0x13_sprite
223 mov esi, g_lefts
224 mov ax, 280
225 mov bx, 172
226 mov cx, 20
227 mov dx, 14
228 call put_0x13_sprite
229 mov esi, grass_l
230 mov ax, 280
231 mov bx, 158
232 mov cx, 20
233 mov dx, 14
234 call put_0x13_sprite
235 mov esi, g_earth
236 mov ax, 300
237 mov bx, 186
238 mov cx, 20
239 mov dx, 14
240 call put_0x13_sprite
241 mov esi, g_earth
242 mov ax, 300
243 mov bx, 172
244 mov cx, 20
245 mov dx, 14
246 call put_0x13_sprite
247 mov esi, grass_f
248 mov ax, 300
249 mov bx, 158
250 mov cx, 20
251 mov dx, 14
252 call put_0x13_sprite
253
254 call wait_key
255
256 mov ax, 1 ; clear the screen
257 call set_mode_0x03 ; set mode 0x03
258
259 mov esi, bos_vga_str ; print that it worked!
260 mov bl, 1
261 call print
262 ret
263
264
265
266
267 ;--------------------------;
268 ; fdd test ;
269 ;--------------------------;
270 fdd_test:
271 mov bl, 13
272 mov bh, 7 ; make newline
273 call print_char
274
275 mov ecx, 512
276 mov edi, 0x80000
277 .loop511:
278 mov dword [edi], 'shit' ; set DMA buffer to shit, as a test
279 add edi, 4
280 sub ecx, 4
281 cmp ecx, 0
282 jne .loop511
283
284 mov dh, 0x00 ; side
285 mov dl, 0x00 ; drive
286 mov ch, 0x00 ; track
287 mov cl, 0x01 ; sector
288 mov bl, 0x00 ; 1 = write
289 call fdd_read_write
290 jc .error
291
292 mov esi, 0x80000 ; dma buffer
293 mov ecx, 512
294 .print:
295 lodsb
296 mov bl, al
297 mov bh, 7
298 call print_char ; print it. is it still
299 dec ecx ; "shit" ?
300 cmp ecx, 0
301 jne .print
302 jmp .end
303
304 .error:
305 mov bl, 13
306 call print_char
307 mov bl, 10
308 call print_char
309 mov bh, 0x40
310 mov bl, 'E' ; error sign... :'(
311 call print_char
312
313 call fdd_reset
314 call fdd_recalibrate ; do somthing about the error.. :P
315
316 .end:
317 ret
318
319
320
321
322
323 ;------------------------------;
324 ; memory test ;
325 ;------------------------------;
326
327 bos_mem_str1 db 13,10,'Performing memory test. (debugging allocs assume 32mb RAM)', 0
328 bos_mem_str2 db 13,10,'Total installed memory (in bytes): ',0
329 bos_mem_str3 db 13,10,13,10,'Memory chunks:',0
330 bos_mem_str4 db 13,10,'Address Size Type Previous Next',0
331 bos_mem_str5 db 13,10,'-------------------------------------------------------',0
332 bos_mem_str6 db '0x',0
333 bos_mem_str7 db 'Free ',0
334 bos_mem_str8 db 'Used ',0
335 bos_mem_str9 db 'None ',0
336 bos_mem_str0 db ' ',0
337 bos_mem_crlf db 13,10,0
338 current_mem_pos dd 0
339 next_free dd 0
340
341 ;---------DEBUG---------
342 test1_or_2 db 1
343 test_address dd 0
344 test_size dd 0
345 test_address2 dd 0
346 test_size2 dd 0
347 ;---------END DEBUG---------
348
349 mem_test:
350 push eax
351 push ebx
352 push ecx
353 push edx
354
355 ;---------DEBUG---------
356 cmp [test1_or_2],0
357 je .free_the_test_block
358
359 mov ebx, 0x1000000 ;first test
360 mov [test_size2], ebx
361 call allocate_mem
362 mov [test_address2], ebx
363
364 mov ebx, 0xE00000 ; second test
365 mov ecx, ebx
366 call allocate_mem
367 push ebx
368 push ecx
369
370 mov ebx, 0x10000 ; third test
371 mov [test_size], ebx
372 call allocate_mem
373 mov [test_address], ebx ; test allocation
374
375 pop ecx
376 pop ebx
377 call free_mem
378
379 mov [test1_or_2], 0
380 jmp .end_test
381 .free_the_test_block:
382 mov ebx, [test_address]
383 mov ecx, [test_size] ; and freeing
384 call free_mem
385 mov ebx, [test_address2]
386 mov ecx, [test_size2] ; and freeing
387 call free_mem
388 mov [test1_or_2], 1
389 .end_test:
390 ;---------END DEBUG---------
391
392 mov esi, bos_mem_str1
393 mov bl, 0x07
394 call print
395 mov esi, bos_mem_str2
396 mov bl, 0x07
397 call print
398 mov esi, bos_mem_str6
399 mov bl, 0x04
400 call print
401 mov ebx, [ram_amount]
402 mov cl, 0x04
403 call print_hex32
404
405 mov esi, bos_mem_str3
406 mov bl, 0x07
407 call print
408 mov esi, bos_mem_str4
409 mov bl, 0x07
410 call print
411 mov esi, bos_mem_str5
412 mov bl, 0x07
413 call print
414
415 mov [current_mem_pos], 0
416 mov eax, [first_free]
417 mov [next_free], eax
418
419 ;-------------------------;
420 ; this is a used block ;
421 ;-------------------------;
422 .used:
423 mov eax, [current_mem_pos]
424 mov ebx, [next_free]
425 cmp eax, [ram_amount] ; .free will always let us
426 jae .end ; decide if we are to quit or not.
427
428 cmp [next_free], 0
429 jne .more_blocks
430 mov ebx, [ram_amount] ; no next block, use ram size
431 sub ebx, eax ; get size in ebx
432 mov edi, 1
433 call .print_mem_info
434 jmp .end
435
436 .more_blocks:
437 sub ebx, eax
438 mov edi, 1
439 call .print_mem_info
440
441 mov eax, [next_free]
442 cmp eax, 0
443 je .end
444 mov ebx, [eax+8]
445 mov [current_mem_pos], eax
446 mov [next_free], ebx
447
448 ;-------------------------;
449 ; this is a free block ;
450 ;-------------------------;
451 .free:
452 mov eax, [current_mem_pos] ; current pos. in eax
453 mov ebx, [eax+4] ; current size in ebx
454 mov ecx, [eax] ; prev pointer in ecx
455 mov edx, [eax+8] ; next pointer in edx
456 xor edi, edi
457 call .print_mem_info
458
459 add eax, ebx
460 mov [current_mem_pos], eax
461 jmp .used
462
463 .end:
464 pop eax
465 pop ebx
466 pop ecx
467 pop edx
468 ret
469
470 ;-------------------------;
471 ; print mem block info ;
472 ;-------------------------;
473 .print_mem_info:
474 push eax ; current pos
475 push ebx ; current size
476 push ecx ; prev pointer
477 push edx ; next pointer
478 push edi ; 1 = used
479
480 push ebx ; push size
481 mov esi, bos_mem_crlf
482 mov bl, 0x07
483 call print
484 mov esi, bos_mem_str6
485 mov bl, 0x04
486 call print
487
488 push ecx ; push prev
489 mov ebx, eax
490 mov cl, 0x04
491 call print_hex32
492
493 mov esi, bos_mem_str0
494 mov bl, 0x07
495 call print
496 mov esi, bos_mem_str6
497 mov bl, 0x04
498 call print
499
500 pop ecx ; pop prev
501 pop ebx ; pop size
502 push ecx ; push prev
503 mov cl, 0x04
504 call print_hex32
505 mov esi, bos_mem_str0
506 mov bl, 0x07
507 call print
508
509 cmp edi, 1
510 jne .print_free
511 pop ecx ; pop prev
512
513 mov esi, bos_mem_str8 ; it's used
514 mov bl, 0x07
515 call print
516 mov esi, bos_mem_str9
517 mov bl, 0x07
518 call print
519 mov esi, bos_mem_str9
520 mov bl, 0x07
521 call print
522 jmp .print_end
523
524 .print_free:
525 mov esi, bos_mem_str7 ; it's free
526 mov bl, 0x07
527 call print
528 mov esi, bos_mem_str6
529 mov bl, 0x04
530 call print
531
532 pop ebx ; pop the pushed ecx
533 mov cl, 0x04 ; into ebx instead.. ;)
534 call print_hex32
535 mov esi, bos_mem_str0
536 mov bl, 0x07
537 call print
538 mov esi, bos_mem_str6
539 mov bl, 0x04
540 call print
541 mov ebx, edx
542 mov cl, 0x04
543 call print_hex32
544
545 .print_end:
546 pop edi
547 pop edx
548 pop ecx
549 pop ebx
550 pop eax
551 ret
BOS - a small x86 operating system written in Assembly