You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
310 lines
9.5 KiB
310 lines
9.5 KiB
BITS 16
|
|
|
|
start_sing:
|
|
; loading essentials for SingOS to run
|
|
|
|
; VSFS is loaded:
|
|
mov [global_disk_identifier], dl ; saving disk_identifier, this is the number the disk that we are booting from.
|
|
; This number is set by the bios
|
|
; Setup stack
|
|
mov ax, 0x8fc0
|
|
mov ss, ax ; Set 'ss' to this location (the beginning of our stack region)
|
|
mov sp, 0xffff ; Set 'ss:sp' to the top of our 8K stack
|
|
mov bp, sp
|
|
|
|
jmp sing_ready
|
|
%include "mem_lib/mem_lib.nasm"
|
|
%include "lib/os_lib.nasm"
|
|
%include "lib/string.nasm"
|
|
%include "lib/debug_tools.nasm"
|
|
%include "lib/std_power.nasm"
|
|
%include "lib/svim.nasm"
|
|
%include "vsfs/vsfs.nasm"
|
|
%include "CLI/CLI.nasm"
|
|
|
|
sing_ready: ; SingOS is ready for the user:
|
|
|
|
call os_clear_screen
|
|
|
|
mov si, welcome ; Put address of the null-terminated string to output into 'si'
|
|
call print ; Call our string-printing routine
|
|
|
|
print_format example_format_string, 0xdead, 0xbeef, 0xbabe, 420
|
|
|
|
call printCRLF
|
|
|
|
call dump_general_registers
|
|
call printCRLF
|
|
|
|
call dump_segment_registers
|
|
call printCRLF
|
|
|
|
call dump_stack_registers
|
|
call printCRLF
|
|
|
|
call dump_status_flags
|
|
call printCRLF
|
|
|
|
call print_help_message
|
|
|
|
; call dump_status_flags
|
|
; call printCRLF
|
|
|
|
mov si, command_line
|
|
call print
|
|
jmp terminal
|
|
terminal:
|
|
call wait_for_key
|
|
jmp terminal
|
|
|
|
wait_for_key:
|
|
pusha
|
|
|
|
mov ax, 0
|
|
mov ah, 0x10 ; BIOS call to wait for key
|
|
int 0x16
|
|
|
|
cmp ax, 0x11b; ESC key
|
|
je near .end
|
|
cmp ax, 0x3b00 ; f1 key
|
|
je .change_one
|
|
cmp ax, 0x3c00 ; f2 key
|
|
je .change_two
|
|
cmp ax, 0x1c0d ; enter key
|
|
je .enter_hit
|
|
mov [.tmp_buf], ax ; save the key pressed befor printing it
|
|
|
|
mov cx, [.tmp_buf]
|
|
cmp cx, 0x0e08 ; backspace key
|
|
;je .backspace_handler
|
|
jne .dont_backspace
|
|
call CLI_DELETE
|
|
popa
|
|
ret
|
|
|
|
.dont_backspace:
|
|
call CLI_ASCII_INPUT
|
|
|
|
;mov ah, 0xE ; This destroy the high part of the key pressed
|
|
;mov bl, 0x02
|
|
;int 0x10
|
|
;mov bx, [.os_command_buffer_counter]
|
|
;cmp bx, 254
|
|
;je .os_buffer_full
|
|
;mov ax, bx
|
|
;add ax, .os_command_buffer
|
|
;add bx, 0x01
|
|
;mov [.os_command_buffer_counter], bx
|
|
;mov bx, ax
|
|
;mov ax, [.tmp_buf]
|
|
;mov [bx], ax
|
|
.return_enter:
|
|
mov ax, [.tmp_buf]
|
|
popa ; But restore all other regs
|
|
ret
|
|
|
|
.os_buffer_full:
|
|
mov si, .os_str_full
|
|
call print
|
|
popa
|
|
ret
|
|
|
|
.backspace_handler:
|
|
; bx already set to the current buffer count
|
|
mov bx, [.os_command_buffer_counter]
|
|
cmp bx, 0x00
|
|
je .backspace_stop
|
|
sub bx, 0x01
|
|
mov [.os_command_buffer_counter], bx
|
|
add bx, .os_command_buffer
|
|
mov ax, 0x00
|
|
mov [bx], ax
|
|
mov ax, [.tmp_buf] ; load the backpace
|
|
mov ah, 0xE ; print the backspace
|
|
int 0x10
|
|
mov al, 0
|
|
int 0x10
|
|
mov al, 0x08
|
|
int 0x10
|
|
;mov al, 0x20 ; now the curser is one back
|
|
;int 0x10 ; print null charecter
|
|
.backspace_stop:
|
|
popa ; But restore all other regs
|
|
ret
|
|
|
|
.change_one:
|
|
|
|
mov al, 0x00 ; arg: index 0
|
|
call os_change_screen
|
|
jmp terminal
|
|
|
|
.change_two:
|
|
|
|
mov al, 0x01 ; arg: index 0
|
|
call os_change_screen
|
|
jmp terminal
|
|
|
|
|
|
.enter_hit:
|
|
call CLI_CONFIRM_INPUT
|
|
jmp .command_interpreter
|
|
|
|
.no_str:
|
|
mov si, command_line
|
|
call print
|
|
jmp .return_enter
|
|
|
|
.compare_with_LIST_searchindex dw 0
|
|
.compare_with_LIST_NAMES dw .compare_with_dumpmem, .compare_with_keyprint, .compare_with_display, .compare_with_svim, .compare_with_clear, .compare_with_ls, 0
|
|
.compare_with_LIST_POINTERS dw dumpmem, keyprint, .change_display, svim, .clearcommand, vsfs_list_files_command, 0
|
|
.compare_with_dumpmem db 'dumpmem', 0
|
|
.compare_with_keyprint db 'keyprint', 0
|
|
.compare_with_display db 'display', 0 ; original this is the display command for better grapichs
|
|
.compare_with_svim db 'svim', 0 ; SingOS vim edition 'svim'
|
|
.compare_with_clear db 'clear', 0 ; Clear the screen
|
|
.compare_with_ls db 'ls', 0 ; List file table
|
|
|
|
.end:
|
|
mov si, exit_message
|
|
call print
|
|
|
|
call power_off
|
|
|
|
cli
|
|
hlt
|
|
|
|
.change_display:
|
|
mov ax, 0x4F02 ; set VBE mode
|
|
mov bx, 0x4118 ; VBE mode number; notice that bits 0-13 contain the mode number and bit 14 (LFB) is set and bit 15 (DM) is clear.
|
|
;xor bx, bx
|
|
;xor cx, cx
|
|
;xor dx, dx
|
|
;mov ah, 0x06
|
|
;mov al, 0xff
|
|
int 0x10
|
|
ret
|
|
|
|
.clearcommand:
|
|
xor bx, bx
|
|
xor cx, cx ; Upper and left coordinate
|
|
mov bh, 0x0f ; color for new screen 0 = black f = white
|
|
mov dh, 0xff ; Select all screen
|
|
mov dl, 0xff ; Select all screen
|
|
mov ah, 0x07 ; scrool down
|
|
mov al, 0x00 ; scrool 0 lines (means blank screen )
|
|
int 0x10
|
|
|
|
; move curser back to the top of the screen
|
|
mov ah, 0x02
|
|
mov bh, 0x00 ; page number 0
|
|
mov dh, 0x00 ; row zero
|
|
mov dl, 0x00 ; coloumn zero
|
|
int 0x10
|
|
ret
|
|
|
|
.tmp_buf dw 0
|
|
.os_command_buffer times 255 dw 0
|
|
.os_command_buffer_counter dw 0
|
|
.os_str_full db 13, 10, 'Buffer is full', 13, 10, 0
|
|
|
|
.command_interpreter:
|
|
|
|
mov bx, [.os_command_buffer_counter]
|
|
cmp bx, 0x00
|
|
je near .no_str ; First byte is 0 => No command
|
|
call printCRLF
|
|
add bx, .os_command_buffer ; Note addition. Sets bx to the end of the string, which should be guaranteed to be 0
|
|
mov ax, 0x00
|
|
mov [bx], ax ; Ensure that the command is null-terminated
|
|
xor bx, bx
|
|
mov [.os_command_buffer_counter], bx
|
|
mov si, .os_command_buffer
|
|
call print ; Echo the command
|
|
|
|
lea si, [.os_command_buffer]
|
|
;mov dword [.compare_with_LIST_searchindex], 0 ; Next time, start at 0
|
|
mov cx, 0 ; Index
|
|
|
|
.command_interpreter_searchloop:
|
|
;call printCRLF
|
|
;mov ax, cx
|
|
;call dumpax
|
|
;mov bx, [.compare_with_LIST_searchindex]
|
|
mov bx, cx
|
|
add bx, bx ; The pointers are 2 bytes long. Compensate here
|
|
|
|
;call printCRLF
|
|
;mov ax, cx
|
|
;call dumpax
|
|
|
|
mov dx, [.compare_with_LIST_NAMES+bx] ; Here it HAS to be bx. Otherwise it is invalid for some reason
|
|
mov bx, dx
|
|
|
|
lea di, [bx]
|
|
|
|
call stringcompare
|
|
|
|
je .command_interpreter_foundcommand
|
|
|
|
; I don't assume here that the registers contain the same values they used to after the calls
|
|
;mov bx, [.compare_with_LIST_searchindex]
|
|
;inc bx
|
|
;mov [.compare_with_LIST_searchindex], bx
|
|
inc cx
|
|
|
|
mov bx, cx
|
|
add bx, bx
|
|
mov dx, [.compare_with_LIST_NAMES+bx]
|
|
|
|
cmp dx, 0 ;Is it at the null terminator?
|
|
|
|
jne .command_interpreter_searchloop ; There is another command to check
|
|
|
|
jmp .no_str
|
|
|
|
.command_interpreter_foundcommand:
|
|
call printCRLF
|
|
|
|
;mov bx, [.compare_with_LIST_searchindex] ; Remember this thing
|
|
mov bx, cx
|
|
add bx, bx ;The pointers are 2 bytes long. Compensate here
|
|
|
|
;call printCRLF
|
|
;mov ax, cx
|
|
;call dumpax
|
|
|
|
mov dx, [.compare_with_LIST_POINTERS+bx] ; This is where the program is.
|
|
|
|
;mov ax, dx
|
|
;call printCRLF
|
|
;call dumpax
|
|
|
|
call dx
|
|
|
|
jmp .no_str
|
|
;
|
|
|
|
|
|
global_vars:
|
|
global_vsfs_master_record dw 8 ; this is the index of the start of the master table for the filesystem
|
|
; This should maby contain more information.
|
|
; and somehow be setted in a fix sector, which holds all the variabels for SingOS
|
|
; 8 is currently the magic number where the file system starts on our disk.
|
|
|
|
global_vsfs_next_index dw 0 ; This is the next index to the next file created.
|
|
; this var is set durling load of SingOS
|
|
; Changed my mind, the index is currently loaded and written back to disk under
|
|
; creation of a new file.
|
|
global_disk_identifier db 0 ; set by the bios passed by the bootloader,
|
|
; this is the bios ID
|
|
|
|
data:
|
|
welcome db "###############################################################################", 13, 10, "# Welcome to SingOS Legacy BIOS edition. #", 13, 10, "# This edition aims to be compliant with the original IBM PC Technical #", 13, 10, "# Reference from 1981. Systems from 1997 started to use extended BIOS #", 13, 10, "# functionality, why this edition aims to work on all systems before 1997. #", 13, 10, "###############################################################################", 13, 10, 'Press ESC to halt.', 13, 10, 0
|
|
exit_message db 13, 10, 'Goodbye from SingOS',13,10,'The system has halted.', 0
|
|
command_line db 13, 10, 'groot@SingOS $ ', 0
|
|
number_one_zstring db '71', 0
|
|
example_format_string db "(%x-%x-%x){%d%%}",0
|
|
|
|
;times 131072-($-$$) db 0 ; 256 sectos
|
|
;GLOBAL_VSFS_START db 'VSFS v0.1' ; sector 257 reserved for file system information
|
|
times 737280-($-$$)-1024 db 0 ; sector 258 to sector 2048 should be avaliable to the filesystem.
|