Plaza521
GitHub
parent
0c7002019d
commit
a86c9533d8
|
|
@ -0,0 +1,160 @@
|
||||||
|
USE16
|
||||||
|
format binary as 'bin'
|
||||||
|
|
||||||
|
include 'macros.asm'
|
||||||
|
include 'constants.asm'
|
||||||
|
|
||||||
|
org 7C00h
|
||||||
|
|
||||||
|
start:
|
||||||
|
mov byte [BOOT_DRIVE], dl
|
||||||
|
mov ax, [0410h]
|
||||||
|
mov word [DETECTED_HARDWARE], ax
|
||||||
|
|
||||||
|
cli
|
||||||
|
xor ax, ax
|
||||||
|
mov ds, ax
|
||||||
|
mov es, ax
|
||||||
|
mov ss, ax
|
||||||
|
mov sp, 1000h
|
||||||
|
sti
|
||||||
|
|
||||||
|
mov ax, 3
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
mov ax, 1301h
|
||||||
|
mov cx, 10
|
||||||
|
mov bp, loadingdb
|
||||||
|
xor dx, dx
|
||||||
|
mov bx, 7
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
mov ah, 02h
|
||||||
|
; Number of sectors to load
|
||||||
|
; mov al, PROGRAM_LENGTH
|
||||||
|
mov al, 4
|
||||||
|
mov dl, [BOOT_DRIVE]
|
||||||
|
; Cylinder
|
||||||
|
mov ch, 0
|
||||||
|
; Head
|
||||||
|
mov dh, 0
|
||||||
|
; Start sector number
|
||||||
|
mov cl, 2
|
||||||
|
; Where load
|
||||||
|
mov bx, functable
|
||||||
|
int 13h
|
||||||
|
|
||||||
|
jc booterror
|
||||||
|
|
||||||
|
; call main
|
||||||
|
jmp secstage
|
||||||
|
|
||||||
|
; call dbg_halt_cpu
|
||||||
|
|
||||||
|
loadingdb db "Loading..."
|
||||||
|
|
||||||
|
; Print unsigned int
|
||||||
|
;
|
||||||
|
; AX - Num to convert
|
||||||
|
; SI - Where save string
|
||||||
|
; ---
|
||||||
|
; SI - Pointer to string with converted num
|
||||||
|
its:
|
||||||
|
push cx
|
||||||
|
push bx
|
||||||
|
push di
|
||||||
|
push ax
|
||||||
|
|
||||||
|
mov cx, 0
|
||||||
|
mov bx, 10
|
||||||
|
mov di, si
|
||||||
|
|
||||||
|
its.push:
|
||||||
|
mov dx, 0
|
||||||
|
div bx
|
||||||
|
inc cx
|
||||||
|
push dx
|
||||||
|
test ax, ax
|
||||||
|
jnz its.push
|
||||||
|
its.pop:
|
||||||
|
pop dx
|
||||||
|
add dl, '0'
|
||||||
|
push ax
|
||||||
|
mov ah, 0Eh
|
||||||
|
mov al, dl
|
||||||
|
int 10h
|
||||||
|
pop ax
|
||||||
|
inc di
|
||||||
|
dec cx
|
||||||
|
jnz its.pop
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
pop di
|
||||||
|
pop bx
|
||||||
|
pop cx
|
||||||
|
ret
|
||||||
|
|
||||||
|
errcode db 0
|
||||||
|
booterror:
|
||||||
|
mov [errcode], ah
|
||||||
|
mov ax, 3
|
||||||
|
int 10h
|
||||||
|
mov ax, 1301h
|
||||||
|
mov bx, 7
|
||||||
|
xor dx, dx
|
||||||
|
mov cx, 13
|
||||||
|
mov bp, booterror.message
|
||||||
|
int 10h
|
||||||
|
xor ax, ax
|
||||||
|
mov al, [errcode]
|
||||||
|
call its
|
||||||
|
cli
|
||||||
|
hlt
|
||||||
|
|
||||||
|
booterror.message db "Error! Code: "
|
||||||
|
|
||||||
|
; times 507-($-$$) db 0
|
||||||
|
; MBR partition table starting at byte 446
|
||||||
|
times 443-($-$$) db 0
|
||||||
|
DETECTED_HARDWARE dw 0
|
||||||
|
BOOT_DRIVE db 0
|
||||||
|
|
||||||
|
; partition 1 (contains the kernel code)
|
||||||
|
boot_indicator: db 0x80 ; mark as bootable
|
||||||
|
starting_head: db 0x0
|
||||||
|
starting_sector: db 0x1 ; bits 5-0 for sector and bits 7-6 are upper bits of cylinder
|
||||||
|
starting_cylinder: db 0x0
|
||||||
|
system_id: db 0x7f ; just some ID that has not been used for anything else by standard
|
||||||
|
; the last sector of the partition should be 2880
|
||||||
|
ending_head: db 1 ; here I assume the maximum number of heads as 255
|
||||||
|
ending_sector: db 4
|
||||||
|
ending_cylinder: db 0x0
|
||||||
|
first_sector_lba: dd 0x1 ; first sector after the bootsector
|
||||||
|
total_sectors_in_partition: dd 21 ; 2880-1 because first sector is bootsector
|
||||||
|
|
||||||
|
; partitions 2-4 are unused and therefore set to 0
|
||||||
|
times 16 db 0
|
||||||
|
times 16 db 0
|
||||||
|
times 16 db 0
|
||||||
|
|
||||||
|
db 0x55, 0xAA
|
||||||
|
|
||||||
|
|
||||||
|
include 'functable.asm'
|
||||||
|
|
||||||
|
include 'filetable.asm'
|
||||||
|
|
||||||
|
include 'secstage.asm'
|
||||||
|
|
||||||
|
include 'kernel.asm'
|
||||||
|
|
||||||
|
include 'funcs.asm'
|
||||||
|
|
||||||
|
include 'data.asm'
|
||||||
|
|
||||||
|
VIDEO_MODE db 0
|
||||||
|
|
||||||
|
times 8192-($-$$) db 0
|
||||||
|
; times 8400h-($-$$) db 0
|
||||||
|
|
||||||
|
; include 'programs/calculator.asm'
|
||||||
|
|
@ -0,0 +1,11 @@
|
||||||
|
INNUM_BUFFER_SIZE equ 5
|
||||||
|
SHNUM_BUFFER_SIZE equ 3
|
||||||
|
ACTION_BUFFER_SIZE equ 3
|
||||||
|
RESULT_BUFFER_SIZE equ 7
|
||||||
|
USERINPUT_BUFFER_SIZE equ 64
|
||||||
|
ARGUMENT_BUFFER_SIZE equ 16
|
||||||
|
FILENAME_BUFFER_SIZE equ 11
|
||||||
|
|
||||||
|
PROGRAM_ADDRESS equ 1000h
|
||||||
|
PROGRAM_LENGTH equ 65 ; In sectors, without boot sector
|
||||||
|
TABLE_SIZE equ 64
|
||||||
|
|
@ -0,0 +1,117 @@
|
||||||
|
greetings db "Welcome to the Command Line (c)Plaza 2022-2023.", 0Dh, 0Ah, \
|
||||||
|
"Write help to see list of commands.", 0
|
||||||
|
|
||||||
|
goodbye db "Uhadi!", 0
|
||||||
|
|
||||||
|
zx db "0x", 0
|
||||||
|
ln db 0Dh, 0Ah, 0
|
||||||
|
space db " ", 0
|
||||||
|
|
||||||
|
print_registers.axd db "AX: 0x", 0
|
||||||
|
print_registers.bxd db "BX: 0x", 0
|
||||||
|
print_registers.cxd db "CX: 0x", 0
|
||||||
|
print_registers.dxd db "DX: 0x", 0
|
||||||
|
print_registers.sid db "SI: 0x", 0
|
||||||
|
print_registers.did db "DI: 0x", 0
|
||||||
|
print_registers.esd db "ES: 0x", 0
|
||||||
|
print_registers.dsd db "DS: 0x", 0
|
||||||
|
print_registers.ssd db "SS: 0x", 0
|
||||||
|
print_registers.fd db "FLAGS: 0x", 0
|
||||||
|
print_registers.h db " ", 0
|
||||||
|
|
||||||
|
cmd.prefix db ">", 0
|
||||||
|
cmd.inc_com db "Invalid command or filename. Type 'help' to see more.", 0Dh, 0Ah, 0
|
||||||
|
cmd.file_notfound_err db "There are no files with this filename.", 0
|
||||||
|
|
||||||
|
cmd.cmd_help db "help", 0
|
||||||
|
cmd.cmd_help_desc db "Commands:", 0Dh, 0Ah, \
|
||||||
|
"mrun - Run program on user offset", 0Dh, 0Ah, \
|
||||||
|
"stdfuncs - show standart functions", 0Dh, 0Ah, \
|
||||||
|
"showmem <offset> <number of lines> - show memory on offset", 0Dh, 0Ah, \
|
||||||
|
"writemem - write byte to memory", 0Dh, 0Ah, \
|
||||||
|
"loadmem - load from disk to memory with offset", 0Dh, 0Ah, \
|
||||||
|
"shutdown - turn off the computer", 0Dh, 0Ah, \
|
||||||
|
"rfd - run program from disk", 0Dh, 0Ah, \
|
||||||
|
"dir - show files on disk", 0Dh, 0Ah, \
|
||||||
|
"rm <file> - remove file", 0Dh, 0Ah, \
|
||||||
|
"help - Show this menu", 0
|
||||||
|
|
||||||
|
cmd.cmd_mrun db "mrun", 0
|
||||||
|
cmd.cmd_mrun_desc db "Enter offset>", 0
|
||||||
|
|
||||||
|
cmd.cmd_stdfuncs db "stdfuncs", 0
|
||||||
|
cmd.cmd_stdfuncs_desc db "System functions:", 0
|
||||||
|
|
||||||
|
cmd.cmd_showmem db "showmem", 0
|
||||||
|
cmd.cmd_showmem_usage db "Usage: showmem <offset> <number of lines>", 0
|
||||||
|
; cmd.cmd_showmem_desc db "Enter offset>", 0
|
||||||
|
; cmd.cmd_showmem_desc1 db "Enter number of lines(16 bytes) to read>", 0
|
||||||
|
|
||||||
|
cmd.cmd_writemem db "writemem", 0
|
||||||
|
cmd.cmd_writemem_desc db "Enter offset>", 0
|
||||||
|
cmd.cmd_writemem_desc1 db "Enter value>", 0
|
||||||
|
|
||||||
|
cmd.cmd_addlink db "addlink", 0
|
||||||
|
cmd.cmd_addlink_desc db "Enter size>", 0
|
||||||
|
cmd.cmd_addlink_desc1 db "Enter filename>", 0
|
||||||
|
cmd.cmd_addlink_usage db "Usage: addlink <cylinder> <head> <sector>", 0
|
||||||
|
cmd.cmd_addlink_size db 0
|
||||||
|
|
||||||
|
cmd.cmd_loadmem db "loadmem", 0
|
||||||
|
cmd.cmd_loadmem_desc db "Enter numbers of sectors to read>", 0
|
||||||
|
cmd.cmd_loadmem_desc1 db "Enter drive to read>", 0
|
||||||
|
cmd.cmd_loadmem_desc2 db "Enter cylinder>", 0
|
||||||
|
cmd.cmd_loadmem_desc3 db "Enter head>", 0
|
||||||
|
cmd.cmd_loadmem_desc4 db "Enter number from which sector read>", 0
|
||||||
|
cmd.cmd_loadmem_desc5 db "Enter offset to load>", 0
|
||||||
|
cmd.cmd_loadmem_sectors db 0
|
||||||
|
cmd.cmd_loadmem_drive db 0
|
||||||
|
cmd.cmd_loadmem_cylinder db 0
|
||||||
|
cmd.cmd_loadmem_head db 0
|
||||||
|
cmd.cmd_loadmem_loadoffset db 0
|
||||||
|
cmd.cmd_loadmem_saveoffset dw 0
|
||||||
|
cmd.cmd_loadmem_loaderr db "Error while reading. See error code in AL", 0
|
||||||
|
|
||||||
|
cmd.cmd_run_nonex db "File is not executable or link is broken", 0
|
||||||
|
|
||||||
|
cmd.cmd_rfd db "rfd", 0
|
||||||
|
cmd.cmd_rfd_desc db "Enter len of program>", 0
|
||||||
|
cmd.cmd_rfd_desc1 db "Enter drive>", 0
|
||||||
|
cmd.cmd_rfd_desc4 db "Enter first sector>", 0
|
||||||
|
cmd.cmd_rfd_locateerr db "There are no any programs at your address", 0
|
||||||
|
|
||||||
|
cmd.cmd_dir db "dir", 0
|
||||||
|
|
||||||
|
cmd.cmd_rm db "rm", 0
|
||||||
|
cmd.cmd_rm_usage db "Usage: rm <file>", 0
|
||||||
|
|
||||||
|
; cmd.cmd_cf db "cf", 0
|
||||||
|
|
||||||
|
cmd.cmd_exit db "shutdown", 0
|
||||||
|
|
||||||
|
cmd.cmd_reboot db "reboot", 0
|
||||||
|
|
||||||
|
cmd.userinput_buf:
|
||||||
|
times USERINPUT_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
cmd.userinput_com:
|
||||||
|
times ARGUMENT_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
cmd.userinput_arg1:
|
||||||
|
times ARGUMENT_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
cmd.userinput_arg2:
|
||||||
|
times ARGUMENT_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
cmd.userinput_arg3:
|
||||||
|
times ARGUMENT_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
cmd.cmd_mrun_buf:
|
||||||
|
times INNUM_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
cmd.cmd_mrun_offset dw 0
|
||||||
|
|
@ -0,0 +1,8 @@
|
||||||
|
filetable:
|
||||||
|
filetable_ff db 0, 0, 6, 11, "kernel.bin", 0, 0 ; Cylinder, Head, Sector, Size, Name
|
||||||
|
db 0, 0, 17, 1, "calc.bin", 0, 0, 0, 0
|
||||||
|
db 0, 0, 18, 2, "viewer.bin", 0, 0
|
||||||
|
db 0, 1, 2, 1, 'null.bin', 0, 0, 0, 0
|
||||||
|
db 0, 1, 3, 1, "snake.bin", 0, 0, 0
|
||||||
|
|
||||||
|
times 2048-($-$$) db 0 ; 1024 bytes
|
||||||
|
|
@ -0,0 +1,846 @@
|
||||||
|
; Clear the screen and set cursor position to (0, 0)
|
||||||
|
clear:
|
||||||
|
push ax
|
||||||
|
mov ax, 03h
|
||||||
|
int 10h
|
||||||
|
mov ax, 200h
|
||||||
|
xor dx, dx
|
||||||
|
int 10h
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Detect display. Video mode 0 if no display,
|
||||||
|
; 1 if monochrome display, 2 if colour display
|
||||||
|
detect_video:
|
||||||
|
push ax
|
||||||
|
|
||||||
|
mov ax, 30h
|
||||||
|
and ax, DETECTED_HARDWARE
|
||||||
|
|
||||||
|
cmp ax, 20h
|
||||||
|
mov [VIDEO_MODE], 2
|
||||||
|
|
||||||
|
cmp ax, 30h
|
||||||
|
mov [VIDEO_MODE], 1
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Print terminated string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on string
|
||||||
|
print_string:
|
||||||
|
pusha
|
||||||
|
mov cx, 1
|
||||||
|
mov bh, 0Fh
|
||||||
|
print_string.print:
|
||||||
|
lodsb
|
||||||
|
|
||||||
|
cmp al, 0
|
||||||
|
je print_string.finish
|
||||||
|
|
||||||
|
call print_symbol
|
||||||
|
jmp print_string.print
|
||||||
|
print_string.finish:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Split user input on 4 parts by space
|
||||||
|
split_str_4_space:
|
||||||
|
push ax
|
||||||
|
push bx
|
||||||
|
push cx
|
||||||
|
push dx
|
||||||
|
push si
|
||||||
|
reset_buf cmd.userinput_com, ARGUMENT_BUFFER_SIZE
|
||||||
|
reset_buf cmd.userinput_arg1, ARGUMENT_BUFFER_SIZE
|
||||||
|
reset_buf cmd.userinput_arg2, ARGUMENT_BUFFER_SIZE
|
||||||
|
reset_buf cmd.userinput_arg3, ARGUMENT_BUFFER_SIZE
|
||||||
|
mov bx, cmd.userinput_com
|
||||||
|
mov si, cmd.userinput_buf
|
||||||
|
|
||||||
|
split_str_4_space.lp:
|
||||||
|
mov al, [si]
|
||||||
|
mov [bx], al
|
||||||
|
|
||||||
|
inc bx
|
||||||
|
inc si
|
||||||
|
|
||||||
|
cmp byte [si], ' '
|
||||||
|
je split_str_4_space.change_part
|
||||||
|
cmp byte [si], 0
|
||||||
|
je split_str_4_space.rtt
|
||||||
|
|
||||||
|
jmp split_str_4_space.lp
|
||||||
|
split_str_4_space.rtt:
|
||||||
|
pop si
|
||||||
|
pop dx
|
||||||
|
pop cx
|
||||||
|
pop bx
|
||||||
|
pop ax
|
||||||
|
mov byte [split_str_4_space.part], 1
|
||||||
|
ret
|
||||||
|
split_str_4_space.change_part:
|
||||||
|
cmp byte [split_str_4_space.part], 1
|
||||||
|
je split_str_4_space.change_part.part1
|
||||||
|
cmp byte [split_str_4_space.part], 2
|
||||||
|
je split_str_4_space.change_part.part2
|
||||||
|
cmp byte [split_str_4_space.part], 3
|
||||||
|
je split_str_4_space.change_part.part3
|
||||||
|
cmp byte [split_str_4_space.part], 4
|
||||||
|
je split_str_4_space.change_part.part4
|
||||||
|
|
||||||
|
split_str_4_space.part db 1
|
||||||
|
|
||||||
|
split_str_4_space.change_part.part1:
|
||||||
|
inc [split_str_4_space.part]
|
||||||
|
mov bx, cmd.userinput_arg1
|
||||||
|
inc si
|
||||||
|
jmp split_str_4_space.lp
|
||||||
|
split_str_4_space.change_part.part2:
|
||||||
|
inc [split_str_4_space.part]
|
||||||
|
mov bx, cmd.userinput_arg2
|
||||||
|
inc si
|
||||||
|
jmp split_str_4_space.lp
|
||||||
|
split_str_4_space.change_part.part3:
|
||||||
|
inc [split_str_4_space.part]
|
||||||
|
mov bx, cmd.userinput_arg3
|
||||||
|
inc si
|
||||||
|
jmp split_str_4_space.lp
|
||||||
|
split_str_4_space.change_part.part4:
|
||||||
|
jmp split_str_4_space.rtt
|
||||||
|
|
||||||
|
; Print symbol
|
||||||
|
;
|
||||||
|
; AL - symbol
|
||||||
|
print_symbol:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
xor bx, bx
|
||||||
|
mov cx, 1
|
||||||
|
mov ah, 0Eh
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
; Reset buffer
|
||||||
|
; DS:SI - buffer
|
||||||
|
; CX - Length
|
||||||
|
reset_buffer:
|
||||||
|
push si
|
||||||
|
push cx
|
||||||
|
reset_buffer.lp:
|
||||||
|
mov byte [ds:si], 0
|
||||||
|
inc si
|
||||||
|
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
jne reset_buffer.lp
|
||||||
|
reset_buffer.nd:
|
||||||
|
pop cx
|
||||||
|
pop si
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Input string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on buffer
|
||||||
|
; CX - Buffer length
|
||||||
|
; ---
|
||||||
|
; AX - Last pressed key
|
||||||
|
input_string:
|
||||||
|
push bx
|
||||||
|
mov bx, 0
|
||||||
|
|
||||||
|
input_string.reset_buffer:
|
||||||
|
push si
|
||||||
|
push cx
|
||||||
|
input_string.reset_buffer.lp:
|
||||||
|
mov byte [ds:si], 0
|
||||||
|
inc si
|
||||||
|
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
jne input_string.reset_buffer.lp
|
||||||
|
input_string.reset_buffer.nd:
|
||||||
|
pop cx
|
||||||
|
pop si
|
||||||
|
|
||||||
|
input_string.processing:
|
||||||
|
xor ah, ah
|
||||||
|
int 16h
|
||||||
|
|
||||||
|
cmp al, 0Dh
|
||||||
|
je input_string.ent
|
||||||
|
|
||||||
|
cmp al, 08h
|
||||||
|
je input_string.backspace
|
||||||
|
|
||||||
|
cmp al, 03h
|
||||||
|
je input_string.ctrlc
|
||||||
|
|
||||||
|
call print_symbol
|
||||||
|
|
||||||
|
mov [ds:si+bx], al
|
||||||
|
inc bx
|
||||||
|
|
||||||
|
cmp bx, cx
|
||||||
|
je input_string.ent
|
||||||
|
|
||||||
|
jmp input_string.processing
|
||||||
|
input_string.backspace:
|
||||||
|
cmp bx, 0
|
||||||
|
je input_string.processing
|
||||||
|
|
||||||
|
mov ah, 0Eh
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
mov al, ' '
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
mov al, 08h
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
dec bx
|
||||||
|
mov byte [ds:si+bx], 0
|
||||||
|
|
||||||
|
jmp input_string.processing
|
||||||
|
input_string.ent:
|
||||||
|
pop bx
|
||||||
|
xor ah, ah
|
||||||
|
print ln
|
||||||
|
ret
|
||||||
|
input_string.ctrlc:
|
||||||
|
jmp input_string.ent
|
||||||
|
|
||||||
|
; Compare strings
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on first string
|
||||||
|
; DS:BX - Pointer on second string
|
||||||
|
; ---
|
||||||
|
; Carry flag - 1 if strings are not equal
|
||||||
|
compare_strings:
|
||||||
|
push ax
|
||||||
|
push bx
|
||||||
|
push si
|
||||||
|
compare_strings.comp:
|
||||||
|
lodsb
|
||||||
|
|
||||||
|
cmp [bx], al
|
||||||
|
jne compare_strings.not_equal
|
||||||
|
cmp al, 0
|
||||||
|
je compare_strings.equal
|
||||||
|
|
||||||
|
inc bx
|
||||||
|
|
||||||
|
jmp compare_strings.comp
|
||||||
|
compare_strings.equal:
|
||||||
|
clc
|
||||||
|
jmp compare_strings.return
|
||||||
|
compare_strings.not_equal:
|
||||||
|
stc
|
||||||
|
jmp compare_strings.return
|
||||||
|
compare_strings.return:
|
||||||
|
pop si
|
||||||
|
pop bx
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Copies string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on memory from where copy
|
||||||
|
; DS:BX - Pointer on memory where copy
|
||||||
|
copy_string:
|
||||||
|
push si
|
||||||
|
push bx
|
||||||
|
push ax
|
||||||
|
copy_string.lp:
|
||||||
|
lodsb
|
||||||
|
|
||||||
|
cmp al, 0
|
||||||
|
je copy_string.ed
|
||||||
|
|
||||||
|
mov byte [bx], al
|
||||||
|
|
||||||
|
inc bx
|
||||||
|
|
||||||
|
jmp copy_string.lp
|
||||||
|
copy_string.ed:
|
||||||
|
pop ax
|
||||||
|
pop bx
|
||||||
|
pop si
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Calculate len of string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on string
|
||||||
|
; ---
|
||||||
|
; AX - Len of string
|
||||||
|
calculate_string_len:
|
||||||
|
push si
|
||||||
|
xor ax, ax
|
||||||
|
push ax
|
||||||
|
calculate_string_len.lp:
|
||||||
|
lodsb
|
||||||
|
cmp al, 0
|
||||||
|
je calculate_string_len.ed
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
inc ax
|
||||||
|
push ax
|
||||||
|
|
||||||
|
jmp calculate_string_len.lp
|
||||||
|
calculate_string_len.ed:
|
||||||
|
pop ax
|
||||||
|
pop si
|
||||||
|
ret
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_print_digit -- Displays contents of AX as a single digit
|
||||||
|
; Works up to base 37, ie digits 0-Z
|
||||||
|
; IN: AX = "digit" to format and print
|
||||||
|
|
||||||
|
os_print_digit:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
cmp ax, 9 ; There is a break in ASCII table between 9 and A
|
||||||
|
jle .digit_format
|
||||||
|
|
||||||
|
add ax, 'A'-'9'-1 ; Correct for the skipped punctuation
|
||||||
|
|
||||||
|
.digit_format:
|
||||||
|
add ax, "0" ; 0 will display as '0', etc.
|
||||||
|
|
||||||
|
mov ah, 0Eh ; May modify other registers
|
||||||
|
int 10h
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_print_1hex -- Displays low nibble of AL in hex format
|
||||||
|
; IN: AL = number to format and print
|
||||||
|
|
||||||
|
os_print_1hex:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
and ax, 0Fh ; Mask off data to display
|
||||||
|
call os_print_digit
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Print AL in hex
|
||||||
|
;
|
||||||
|
; AL - Number to print
|
||||||
|
os_print_2hex:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
push ax ; Output high nibble
|
||||||
|
shr ax, 4
|
||||||
|
call os_print_1hex
|
||||||
|
|
||||||
|
pop ax ; Output low nibble
|
||||||
|
call os_print_1hex
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
; Print AX in hex
|
||||||
|
;
|
||||||
|
; AX - Number to print
|
||||||
|
print_hex:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
push ax ; Output high byte
|
||||||
|
mov al, ah
|
||||||
|
call os_print_2hex
|
||||||
|
|
||||||
|
pop ax ; Output low byte
|
||||||
|
call os_print_2hex
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Print values of registers to screen
|
||||||
|
;
|
||||||
|
; AX, BX, CX, DX, SI, DI, ES, DS, SS, FLAGS - Registers to print
|
||||||
|
print_registers:
|
||||||
|
pushf
|
||||||
|
push ss
|
||||||
|
push ds
|
||||||
|
push es
|
||||||
|
push di
|
||||||
|
push si
|
||||||
|
push dx
|
||||||
|
push cx
|
||||||
|
push bx
|
||||||
|
|
||||||
|
print print_registers.axd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.bxd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h, ln
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.cxd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.dxd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h, ln
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.sid
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.did
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h, ln
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.esd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.dsd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h, ln
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.ssd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
print print_registers.fd
|
||||||
|
call print_hex
|
||||||
|
print print_registers.h, ln
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_string_to_int -- Convert decimal string to integer value
|
||||||
|
; IN: SI = string location (max 5 chars, up to '65536')
|
||||||
|
; OUT: AX = number
|
||||||
|
string_to_int:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mov ax, si ; First, get length of string
|
||||||
|
call os_string_length
|
||||||
|
|
||||||
|
add si, ax ; Work from rightmost char in string
|
||||||
|
dec si
|
||||||
|
|
||||||
|
mov cx, ax ; Use string length as counter
|
||||||
|
|
||||||
|
mov bx, 0 ; BX will be the final number
|
||||||
|
mov ax, 0
|
||||||
|
|
||||||
|
|
||||||
|
; As we move left in the string, each char is a bigger multiple. The
|
||||||
|
; right-most character is a multiple of 1, then next (a char to the
|
||||||
|
; left) a multiple of 10, then 100, then 1,000, and the final (and
|
||||||
|
; leftmost char) in a five-char number would be a multiple of 10,000
|
||||||
|
|
||||||
|
mov word [.multiplier], 1 ; Start with multiples of 1
|
||||||
|
|
||||||
|
.loop:
|
||||||
|
mov ax, 0
|
||||||
|
mov byte al, [si] ; Get character
|
||||||
|
sub al, 48 ; Convert from ASCII to real number
|
||||||
|
|
||||||
|
mul word [.multiplier] ; Multiply by our multiplier
|
||||||
|
|
||||||
|
add bx, ax ; Add it to BX
|
||||||
|
|
||||||
|
push ax ; Multiply our multiplier by 10 for next char
|
||||||
|
mov word ax, [.multiplier]
|
||||||
|
mov dx, 10
|
||||||
|
mul dx
|
||||||
|
mov word [.multiplier], ax
|
||||||
|
pop ax
|
||||||
|
|
||||||
|
dec cx ; Any more chars?
|
||||||
|
cmp cx, 0
|
||||||
|
je .finish
|
||||||
|
dec si ; Move back a char in the string
|
||||||
|
jmp .loop
|
||||||
|
|
||||||
|
.finish:
|
||||||
|
mov word [.tmp], bx
|
||||||
|
popa
|
||||||
|
mov word ax, [.tmp]
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
.multiplier dw 0
|
||||||
|
.tmp dw 0
|
||||||
|
|
||||||
|
os_string_length:
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mov bx, ax ; Move location of string to BX
|
||||||
|
|
||||||
|
mov cx, 0 ; Counter
|
||||||
|
|
||||||
|
.more:
|
||||||
|
cmp byte [bx], 0 ; Zero (end of string) yet?
|
||||||
|
je .done
|
||||||
|
inc bx ; If not, keep adding
|
||||||
|
inc cx
|
||||||
|
jmp .more
|
||||||
|
|
||||||
|
|
||||||
|
.done:
|
||||||
|
mov word [.tmp_counter], cx ; Store count before restoring other registers
|
||||||
|
popa
|
||||||
|
|
||||||
|
mov ax, [.tmp_counter] ; Put count back into AX before returning
|
||||||
|
ret
|
||||||
|
|
||||||
|
.tmp_counter dw 0
|
||||||
|
|
||||||
|
; Convert unsigned int to string
|
||||||
|
;
|
||||||
|
; AX - Num to convert
|
||||||
|
; SI - Where save string
|
||||||
|
; ---
|
||||||
|
; SI - Pointer to string with converted num
|
||||||
|
int_to_string:
|
||||||
|
push cx
|
||||||
|
push bx
|
||||||
|
push di
|
||||||
|
push ax
|
||||||
|
|
||||||
|
mov cx, 0
|
||||||
|
mov bx, 10 ; Set BX 10, for division and mod
|
||||||
|
mov di, si ; Get our pointer ready
|
||||||
|
|
||||||
|
int_to_string.push:
|
||||||
|
mov dx, 0
|
||||||
|
div bx ; Remainder in DX, quotient in AX
|
||||||
|
inc cx ; Increase pop loop counter
|
||||||
|
push dx ; Push remainder, so as to reverse order when popping
|
||||||
|
test ax, ax ; Is quotient zero?
|
||||||
|
jnz int_to_string.push ; If not, loop again
|
||||||
|
int_to_string.pop:
|
||||||
|
pop dx ; Pop off values in reverse order, and add 48 to make them digits
|
||||||
|
add dl, '0' ; And save them in the string, increasing the pointer each time
|
||||||
|
mov [di], dl
|
||||||
|
inc di
|
||||||
|
dec cx
|
||||||
|
jnz int_to_string.pop
|
||||||
|
|
||||||
|
mov byte [di], 0 ; Zero-terminate string
|
||||||
|
|
||||||
|
mov si, di
|
||||||
|
pop ax
|
||||||
|
pop di
|
||||||
|
pop bx
|
||||||
|
pop cx
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Find file on disk from filename
|
||||||
|
; BX - filename
|
||||||
|
; ---
|
||||||
|
; SI - filename position in table
|
||||||
|
; CF - 1 if file not exist
|
||||||
|
find_file:
|
||||||
|
push bx
|
||||||
|
push ax
|
||||||
|
push cx
|
||||||
|
mov cx, TABLE_SIZE
|
||||||
|
mov si, filetable
|
||||||
|
add si, 4
|
||||||
|
mov [find_file.fn_offset], bx
|
||||||
|
find_file.lp:
|
||||||
|
|
||||||
|
mov bx, [find_file.fn_offset]
|
||||||
|
call compare_strings
|
||||||
|
jnc find_file.found
|
||||||
|
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
je find_fileret
|
||||||
|
|
||||||
|
mov bx, 12
|
||||||
|
; len si
|
||||||
|
xor ax, ax
|
||||||
|
sub bx, ax
|
||||||
|
xchg ax, bx
|
||||||
|
add si, ax
|
||||||
|
add si, 4
|
||||||
|
; mov al, [si]
|
||||||
|
; cmp al, 0
|
||||||
|
je find_fileret
|
||||||
|
jmp find_file.lp
|
||||||
|
find_file.found:
|
||||||
|
sub si, 4
|
||||||
|
pop cx
|
||||||
|
pop ax
|
||||||
|
pop bx
|
||||||
|
clc
|
||||||
|
ret
|
||||||
|
find_fileret:
|
||||||
|
xor si, si
|
||||||
|
pop cx
|
||||||
|
pop ax
|
||||||
|
pop bx
|
||||||
|
stc
|
||||||
|
ret
|
||||||
|
|
||||||
|
find_file.fn_offset dw 0
|
||||||
|
|
||||||
|
; Remove file
|
||||||
|
; BX - filename
|
||||||
|
; ---
|
||||||
|
; CF - 1 if file not exist
|
||||||
|
remove_file:
|
||||||
|
push ax
|
||||||
|
push si
|
||||||
|
push bx
|
||||||
|
|
||||||
|
call find_file
|
||||||
|
jc remove_file.rtt
|
||||||
|
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
add si, 2
|
||||||
|
mov dword [si], 0
|
||||||
|
|
||||||
|
pop bx
|
||||||
|
pop si
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
remove_file.rtt:
|
||||||
|
pop bx
|
||||||
|
pop si
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Append file to FS table
|
||||||
|
; AL - Cylinder
|
||||||
|
; AH - Head
|
||||||
|
; BL - sector
|
||||||
|
; BH - Size
|
||||||
|
; SI - Pointer on name (Max 11 chars)
|
||||||
|
append_file:
|
||||||
|
pusha
|
||||||
|
mov [append_file.cylinder], al
|
||||||
|
mov [append_file.head], ah
|
||||||
|
mov [append_file.sector], bl
|
||||||
|
mov [append_file.size], bh
|
||||||
|
mov word [append_file.name_os], si
|
||||||
|
mov cx, TABLE_SIZE
|
||||||
|
mov si, filetable+4
|
||||||
|
append_file.lp:
|
||||||
|
cmp byte [si], 0
|
||||||
|
je append_file.write
|
||||||
|
add si, 16
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
je append_file.cannot
|
||||||
|
jmp append_file.lp
|
||||||
|
append_file.nd:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
append_file.write:
|
||||||
|
sub si, 4
|
||||||
|
mov al, [append_file.cylinder]
|
||||||
|
mov ah, [append_file.head]
|
||||||
|
mov bl, [append_file.sector]
|
||||||
|
mov bh, [append_file.size]
|
||||||
|
mov byte [si], al
|
||||||
|
mov byte [si+1], ah
|
||||||
|
mov byte [si+2], bl
|
||||||
|
mov byte [si+3], bh
|
||||||
|
add si, 4
|
||||||
|
mov bx, si
|
||||||
|
mov si, word [append_file.name_os]
|
||||||
|
call copy_string
|
||||||
|
clc
|
||||||
|
call write_table
|
||||||
|
jmp append_file.nd
|
||||||
|
append_file.cannot:
|
||||||
|
stc
|
||||||
|
jmp append_file.nd
|
||||||
|
|
||||||
|
append_file.cylinder db 0
|
||||||
|
append_file.head db 0
|
||||||
|
append_file.sector db 0
|
||||||
|
append_file.size db 0
|
||||||
|
append_file.name_os dw 0
|
||||||
|
|
||||||
|
; Rename file in FS table
|
||||||
|
; SI - Filename
|
||||||
|
; BX - To what filename change
|
||||||
|
rename_file:
|
||||||
|
pusha
|
||||||
|
mov word [rename_file.fst], si
|
||||||
|
mov word [rename_file.snd], bx
|
||||||
|
mov bx, si
|
||||||
|
call find_file
|
||||||
|
jc rename_file.notfound
|
||||||
|
add si, 4
|
||||||
|
push si
|
||||||
|
reset_buf si, 12
|
||||||
|
pop si
|
||||||
|
mov bx, si
|
||||||
|
mov si, word [rename_file.snd]
|
||||||
|
call copy_string
|
||||||
|
rename_file.notfound:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
rename_file.fst dw 0
|
||||||
|
rename_file.snd dw 0
|
||||||
|
|
||||||
|
; Read file and load to memory
|
||||||
|
; SI - File in FS table
|
||||||
|
; BX - Where load
|
||||||
|
load_file:
|
||||||
|
pusha
|
||||||
|
mov ah, 02h
|
||||||
|
mov al, [si+3]
|
||||||
|
mov dl, [BOOT_DRIVE]
|
||||||
|
mov ch, [si]
|
||||||
|
mov dh, [si+1]
|
||||||
|
mov cl, [si+2]
|
||||||
|
int 13h
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; loadoffset dw 0
|
||||||
|
|
||||||
|
; Write file and load to memory
|
||||||
|
; SI - File in FS table
|
||||||
|
; CX - Where
|
||||||
|
save_file:
|
||||||
|
pusha
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Read FS table from disk
|
||||||
|
read_table:
|
||||||
|
pusha
|
||||||
|
mov ah, 02h
|
||||||
|
mov al, 2
|
||||||
|
mov dl, [BOOT_DRIVE]
|
||||||
|
mov ch, 0
|
||||||
|
mov dh, 0
|
||||||
|
mov cl, 3
|
||||||
|
mov bx, filetable
|
||||||
|
int 13h
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Write FS table to disk
|
||||||
|
write_table:
|
||||||
|
pusha
|
||||||
|
mov ah, 03h
|
||||||
|
mov al, 2
|
||||||
|
mov dl, [BOOT_DRIVE]
|
||||||
|
mov ch, 0
|
||||||
|
mov dh, 0
|
||||||
|
mov cl, 3
|
||||||
|
mov bx, filetable
|
||||||
|
int 13h
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
wait_key:
|
||||||
|
mov ah, 11h
|
||||||
|
int 16h
|
||||||
|
|
||||||
|
jnz wait_key.key_pressed
|
||||||
|
|
||||||
|
hlt
|
||||||
|
jmp wait_key
|
||||||
|
|
||||||
|
wait_key.key_pressed:
|
||||||
|
mov ah, 10h
|
||||||
|
int 16h
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Copy memory from A to B
|
||||||
|
; SI - A
|
||||||
|
; BX - B
|
||||||
|
; CX - Number of bytes to copy
|
||||||
|
copy_memory:
|
||||||
|
pusha
|
||||||
|
copy_memory.lp:
|
||||||
|
cmp cx, 0
|
||||||
|
je copy_memory.nd
|
||||||
|
lodsb
|
||||||
|
mov [bx], al
|
||||||
|
inc bx
|
||||||
|
dec cx
|
||||||
|
jmp copy_memory.lp
|
||||||
|
copy_memory.nd:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Get cursor position
|
||||||
|
; ---
|
||||||
|
; DL - X
|
||||||
|
; DH - Y
|
||||||
|
get_cursor_pos:
|
||||||
|
push ax
|
||||||
|
push cx
|
||||||
|
push bx
|
||||||
|
mov ah, 03h
|
||||||
|
xor bx, bx
|
||||||
|
int 10h
|
||||||
|
pop bx
|
||||||
|
pop cx
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Set cursor position
|
||||||
|
; DL - X
|
||||||
|
; DH - Y
|
||||||
|
set_cursor_pos:
|
||||||
|
push ax
|
||||||
|
push bx
|
||||||
|
mov ah, 02h
|
||||||
|
xor bx, bx
|
||||||
|
int 10h
|
||||||
|
pop bx
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Print values of registers and halt cpu
|
||||||
|
dbg_halt_cpu:
|
||||||
|
call print_registers
|
||||||
|
call halt_cpu
|
||||||
|
|
||||||
|
; Shows goodbye message and stops the CPU
|
||||||
|
halt_cpu:
|
||||||
|
print ln, goodbye
|
||||||
|
cli
|
||||||
|
hlt
|
||||||
|
|
@ -0,0 +1,74 @@
|
||||||
|
functable:
|
||||||
|
|
||||||
|
dw clear
|
||||||
|
dw detect_video
|
||||||
|
dw print_string
|
||||||
|
dw print_symbol
|
||||||
|
dw input_string
|
||||||
|
dw compare_strings
|
||||||
|
dw copy_string
|
||||||
|
dw calculate_string_len
|
||||||
|
dw os_print_digit
|
||||||
|
dw os_print_1hex
|
||||||
|
dw os_print_2hex
|
||||||
|
dw print_hex
|
||||||
|
dw print_registers
|
||||||
|
dw string_to_int
|
||||||
|
dw int_to_string
|
||||||
|
dw dbg_halt_cpu
|
||||||
|
dw halt_cpu
|
||||||
|
dw its
|
||||||
|
dw find_file
|
||||||
|
dw remove_file
|
||||||
|
dw write_table
|
||||||
|
dw cmd.userinput_arg1
|
||||||
|
dw cmd.userinput_arg2
|
||||||
|
dw cmd.userinput_arg3
|
||||||
|
dw reset_buffer
|
||||||
|
dw append_file
|
||||||
|
dw rename_file
|
||||||
|
dw load_file
|
||||||
|
dw save_file
|
||||||
|
dw wait_key
|
||||||
|
dw copy_memory
|
||||||
|
dw get_cursor_pos
|
||||||
|
dw set_cursor_pos
|
||||||
|
dw read_table
|
||||||
|
dw 0
|
||||||
|
|
||||||
|
times 1024 - ($-$$) db 0
|
||||||
|
|
||||||
|
; FUNCTABLE EQU 7E00h
|
||||||
|
; clear EQU word [7E00h]
|
||||||
|
; detect_video EQU word [7E02h]
|
||||||
|
; print_string EQU word [7E04h]
|
||||||
|
; print_symbol EQU word [7E06h]
|
||||||
|
; input_string EQU word [7E08h]
|
||||||
|
; compare_strings EQU word [7E0Ah]
|
||||||
|
; copy_string EQU word [7E0Ch]
|
||||||
|
; calculate_string_len EQU word [7E0Eh]
|
||||||
|
; os_print_digit EQU word [7E10h]
|
||||||
|
; os_print_1hex EQU word [7E12h]
|
||||||
|
; os_print_2hex EQU word [7E14h]
|
||||||
|
; print_hex EQU word [7E16h]
|
||||||
|
; print_registers EQU word [7E18h]
|
||||||
|
; string_to_int EQU word [7E1Ah]
|
||||||
|
; int_to_string EQU word [7E1Ch]
|
||||||
|
; dbg_halt_cpu EQU word [7E1Eh]
|
||||||
|
; halt_cpu EQU word [7E20h]
|
||||||
|
; its EQU word [7E22h]
|
||||||
|
; find_file EQU word [7E24h]
|
||||||
|
; remove_file EQU word [7E26h]
|
||||||
|
; write_table EQU word [7E28h]
|
||||||
|
; arg1 EQU word [7E2Ah]
|
||||||
|
; arg2 EQU word [7E2Ch]
|
||||||
|
; arg3 EQU word [7E2Eh]
|
||||||
|
; reset_buffer EQU word [7E30h]
|
||||||
|
; append_file EQU word [7E32h]
|
||||||
|
; rename_file EQU word [7E34h]
|
||||||
|
; load_file EQU word [7E36h]
|
||||||
|
; save_file EQU word [7E38h]
|
||||||
|
; wait_key EQU word [7E3Ah]
|
||||||
|
; copy_memory EQU word [7E3Ch]
|
||||||
|
; get_cursor_pos EQU word [7E3Eh]
|
||||||
|
; set_cursor_pos EQU word [7E40h]
|
||||||
|
|
@ -0,0 +1,152 @@
|
||||||
|
; Clear the screen and set cursor position to (0, 0)
|
||||||
|
clear:
|
||||||
|
|
||||||
|
; Detect display. Video mode 0 if no display,
|
||||||
|
; 1 if monochrome display, 2 if colour display
|
||||||
|
detect_video:
|
||||||
|
|
||||||
|
; Print terminated string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on string
|
||||||
|
print_string:
|
||||||
|
|
||||||
|
; Print symbol
|
||||||
|
;
|
||||||
|
; AL - symbol
|
||||||
|
; print_symbol:
|
||||||
|
|
||||||
|
; Reset buffer
|
||||||
|
; DS:SI - buffer
|
||||||
|
; CX - Length
|
||||||
|
reset_buffer:
|
||||||
|
|
||||||
|
; Input string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on buffer
|
||||||
|
; CX - Buffer length
|
||||||
|
; ---
|
||||||
|
; AX - Last pressed key
|
||||||
|
input_string:
|
||||||
|
|
||||||
|
; Compare strings
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on first string
|
||||||
|
; DS:BX - Pointer on second string
|
||||||
|
; ---
|
||||||
|
; Carry flag - 1 if strings are not equal
|
||||||
|
compare_strings:
|
||||||
|
|
||||||
|
; Copies string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on memory from where copy
|
||||||
|
; DS:BX - Pointer on memory where copy
|
||||||
|
copy_string:
|
||||||
|
|
||||||
|
; Calculate len of string
|
||||||
|
;
|
||||||
|
; DS:SI - Pointer on string
|
||||||
|
; ---
|
||||||
|
; AX - Len of string
|
||||||
|
calculate_string_len:
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_print_digit -- Displays contents of AX as a single digit
|
||||||
|
; Works up to base 37, ie digits 0-Z
|
||||||
|
; IN: AX = "digit" to format and print
|
||||||
|
os_print_digit:
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_print_1hex -- Displays low nibble of AL in hex format
|
||||||
|
; IN: AL = number to format and print
|
||||||
|
os_print_1hex:
|
||||||
|
|
||||||
|
; Print AL in hex
|
||||||
|
;
|
||||||
|
; AL - Number to print
|
||||||
|
os_print_2hex:
|
||||||
|
|
||||||
|
; Print AX in hex
|
||||||
|
;
|
||||||
|
; AX - Number to print
|
||||||
|
print_hex:
|
||||||
|
|
||||||
|
; Print values of registers to screen
|
||||||
|
;
|
||||||
|
; AX, BX, CX, DX, SI, DI, ES, DS, SS, FLAGS - Registers to print
|
||||||
|
print_registers:
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------
|
||||||
|
; os_string_to_int -- Convert decimal string to integer value
|
||||||
|
; IN: SI = string location (max 5 chars, up to '65536')
|
||||||
|
; OUT: AX = number
|
||||||
|
string_to_int:
|
||||||
|
|
||||||
|
; Convert unsigned int to string
|
||||||
|
;
|
||||||
|
; AX - Num to convert
|
||||||
|
; SI - Where save string
|
||||||
|
; ---
|
||||||
|
; SI - Pointer to string with converted num
|
||||||
|
int_to_string:
|
||||||
|
|
||||||
|
; Find file on disk from filename
|
||||||
|
; BX - filename
|
||||||
|
; ---
|
||||||
|
; SI - filename position in table
|
||||||
|
; CF - 1 if file not exist
|
||||||
|
find_file:
|
||||||
|
|
||||||
|
; Remove file
|
||||||
|
; BX - filename
|
||||||
|
; ---
|
||||||
|
; CF - 1 if file not exist
|
||||||
|
remove_file:
|
||||||
|
|
||||||
|
; Append file to FS table
|
||||||
|
; AL - Cylinder
|
||||||
|
; AH - Head
|
||||||
|
; BL - sector
|
||||||
|
; BH - Size
|
||||||
|
; SI - Pointer on name (Max 11 chars)
|
||||||
|
append_file:
|
||||||
|
|
||||||
|
; Rename file in FS table
|
||||||
|
; SI - Filename
|
||||||
|
; BX - To what filename change
|
||||||
|
rename_file:
|
||||||
|
|
||||||
|
; Read file and load to memory
|
||||||
|
; SI - File in FS table
|
||||||
|
; CX - Where load
|
||||||
|
load_file:
|
||||||
|
|
||||||
|
; Write file and load to memory
|
||||||
|
; SI - File in FS table
|
||||||
|
; CX - Where
|
||||||
|
save_file:
|
||||||
|
|
||||||
|
; Write FS table to disk
|
||||||
|
write_table:
|
||||||
|
|
||||||
|
; Copy memory from A to B
|
||||||
|
; SI - A
|
||||||
|
; BX - B
|
||||||
|
; CX - Number of bytes to copy
|
||||||
|
copy_memory:
|
||||||
|
|
||||||
|
; Get cursor position
|
||||||
|
; ---
|
||||||
|
; DL - X
|
||||||
|
; DH - Y
|
||||||
|
get_cursor_pos:
|
||||||
|
|
||||||
|
; Set cursor position
|
||||||
|
; DL - X
|
||||||
|
; DH - Y
|
||||||
|
set_cursor_pos:
|
||||||
|
|
||||||
|
; Print values of registers and halt cpu
|
||||||
|
dbg_halt_cpu:
|
||||||
|
|
||||||
|
; Shows goodbye message and stops the CPU
|
||||||
|
halt_cpu:
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,10 @@
|
||||||
|
Privet, ti 4udovishe
|
||||||
|
Novay strok
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Dolistay ahaha
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,480 @@
|
||||||
|
; main:
|
||||||
|
; call clear
|
||||||
|
; print greetings
|
||||||
|
; mainloop:
|
||||||
|
; print parol
|
||||||
|
|
||||||
|
; input input_data, BUFFER_SIZE
|
||||||
|
|
||||||
|
; cmp_strs right_password, input_data
|
||||||
|
; jnc correct
|
||||||
|
; print incorrect_password, ln
|
||||||
|
|
||||||
|
; jmp mainloop
|
||||||
|
|
||||||
|
; correct:
|
||||||
|
; print password_done
|
||||||
|
; jmp dbg_halt_cpu
|
||||||
|
|
||||||
|
main:
|
||||||
|
call clear
|
||||||
|
print greetings, ln
|
||||||
|
mainloop:
|
||||||
|
push ax
|
||||||
|
xor ax, ax
|
||||||
|
mov al, [BOOT_DRIVE]
|
||||||
|
call its
|
||||||
|
pop ax
|
||||||
|
print cmd.prefix
|
||||||
|
|
||||||
|
input cmd.userinput_buf, USERINPUT_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainret
|
||||||
|
call split_str_4_space
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_help
|
||||||
|
jnc command.help
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_mrun
|
||||||
|
jnc command.mrun
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_stdfuncs
|
||||||
|
jnc command.stdfuncs
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_showmem
|
||||||
|
jnc command.showmem
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_writemem
|
||||||
|
jnc command.writemem
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_loadmem
|
||||||
|
jnc command.loadmem
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_exit
|
||||||
|
jnc command.shutdown
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_rfd
|
||||||
|
jnc command.rfd
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_dir
|
||||||
|
jnc command.dir
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_com, cmd.cmd_rm
|
||||||
|
jnc command.rm
|
||||||
|
|
||||||
|
cmp_strs cmd.userinput_buf, cmd.cmd_reboot
|
||||||
|
jnc command.reboot
|
||||||
|
|
||||||
|
; cmp_strs cmd.userinput_com, cmd.cmd_addlink
|
||||||
|
; jnc command.addlink
|
||||||
|
|
||||||
|
len cmd.userinput_com
|
||||||
|
cmp ax, 0
|
||||||
|
je mainloop.continue
|
||||||
|
|
||||||
|
mov bx, cmd.userinput_com
|
||||||
|
call find_file
|
||||||
|
jnc command.run
|
||||||
|
|
||||||
|
mainloop.continue:
|
||||||
|
|
||||||
|
print cmd.inc_com
|
||||||
|
|
||||||
|
jmp mainloop
|
||||||
|
mainret:
|
||||||
|
ret
|
||||||
|
|
||||||
|
command.help:
|
||||||
|
print cmd.cmd_help_desc, ln
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
|
||||||
|
command.mrun:
|
||||||
|
print cmd.cmd_mrun_desc
|
||||||
|
input cmd.cmd_mrun_buf, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
|
||||||
|
str_to_i cmd.cmd_mrun_buf
|
||||||
|
add ax, 7C00h
|
||||||
|
mov word [cmd.cmd_mrun_offset], ax
|
||||||
|
call ax
|
||||||
|
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
|
||||||
|
command.stdfuncs:
|
||||||
|
print cmd.cmd_stdfuncs_desc, ln
|
||||||
|
mov si, functable
|
||||||
|
push si
|
||||||
|
command.stdfuncs.lp:
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
cmp ax, 0
|
||||||
|
je command.stdfuncsret
|
||||||
|
sub ax, 7C00h
|
||||||
|
call its
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
cmp ax, 0
|
||||||
|
je command.stdfuncsret_med
|
||||||
|
sub ax, 7C00h
|
||||||
|
call its
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
cmp ax, 0
|
||||||
|
je command.stdfuncsret_med
|
||||||
|
sub ax, 7C00h
|
||||||
|
call its
|
||||||
|
print ln
|
||||||
|
jmp command.stdfuncs.lp
|
||||||
|
command.stdfuncsret_med:
|
||||||
|
print ln
|
||||||
|
pop si
|
||||||
|
jmp mainloop
|
||||||
|
command.stdfuncsret:
|
||||||
|
pop si
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
|
||||||
|
command.showmem:
|
||||||
|
len cmd.userinput_arg2
|
||||||
|
cmp ax, 0
|
||||||
|
je command.showmem_usageret
|
||||||
|
str_to_i cmd.userinput_arg1
|
||||||
|
add ax, 7C00h
|
||||||
|
mov si, ax
|
||||||
|
push si
|
||||||
|
|
||||||
|
str_to_i cmd.userinput_arg2
|
||||||
|
mov cx, ax
|
||||||
|
|
||||||
|
command.showmem.lp:
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print space
|
||||||
|
|
||||||
|
pop si
|
||||||
|
mov ax, [si]
|
||||||
|
xchg ah, al
|
||||||
|
add si, 2
|
||||||
|
push si
|
||||||
|
call print_hex
|
||||||
|
print ln
|
||||||
|
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
je mainloop
|
||||||
|
|
||||||
|
jmp command.showmem.lp
|
||||||
|
command.showmem_usageret:
|
||||||
|
print cmd.cmd_showmem_usage, ln
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
|
||||||
|
command.writemem:
|
||||||
|
print cmd.cmd_writemem_desc
|
||||||
|
input cmd.userinput_buf, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
add ax, 7C00h
|
||||||
|
push ax
|
||||||
|
|
||||||
|
print cmd.cmd_writemem_desc1
|
||||||
|
input cmd.userinput_buf, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
pop si
|
||||||
|
|
||||||
|
mov [si], ax
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
|
||||||
|
command.loadmem:
|
||||||
|
print cmd.cmd_loadmem_desc
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_sectors], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc1
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_drive], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc2
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_cylinder], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc3
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_head], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc4
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_loadoffset], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc5
|
||||||
|
input cmd.userinput_buf, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov word [cmd.cmd_loadmem_saveoffset], ax
|
||||||
|
|
||||||
|
mov ah, 02h
|
||||||
|
mov al, byte [cmd.cmd_loadmem_sectors]
|
||||||
|
mov dl, byte [cmd.cmd_loadmem_drive]
|
||||||
|
mov ch, byte [cmd.cmd_loadmem_cylinder]
|
||||||
|
mov dh, byte [cmd.cmd_loadmem_head]
|
||||||
|
mov cl, byte [cmd.cmd_loadmem_loadoffset]
|
||||||
|
mov bx, word [cmd.cmd_loadmem_saveoffset]
|
||||||
|
add bx, 7C00h
|
||||||
|
int 13h
|
||||||
|
jc command.loadmem_err
|
||||||
|
jmp mainloop
|
||||||
|
command.loadmem_err:
|
||||||
|
call print_registers
|
||||||
|
print cmd.cmd_loadmem_loaderr, ln
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
command.shutdown:
|
||||||
|
mov ax, 5307h
|
||||||
|
mov bx, 01h
|
||||||
|
mov cx, 03h
|
||||||
|
int 15h
|
||||||
|
ret
|
||||||
|
|
||||||
|
command.rfd:
|
||||||
|
print cmd.cmd_rfd_desc
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_sectors], al
|
||||||
|
|
||||||
|
print cmd.cmd_rfd_desc1
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_drive], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc2
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_cylinder], al
|
||||||
|
|
||||||
|
print cmd.cmd_loadmem_desc3
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_head], al
|
||||||
|
|
||||||
|
print cmd.cmd_rfd_desc4
|
||||||
|
input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je mainloop
|
||||||
|
str_to_i cmd.userinput_buf
|
||||||
|
mov byte [cmd.cmd_loadmem_loadoffset], al
|
||||||
|
|
||||||
|
mov ah, 02h
|
||||||
|
mov al, byte [cmd.cmd_loadmem_sectors]
|
||||||
|
mov dl, byte [cmd.cmd_loadmem_drive]
|
||||||
|
mov ch, byte [cmd.cmd_loadmem_cylinder]
|
||||||
|
mov dh, byte [cmd.cmd_loadmem_head]
|
||||||
|
mov cl, byte [cmd.cmd_loadmem_loadoffset]
|
||||||
|
mov bx, PROGRAM_ADDRESS
|
||||||
|
int 13h
|
||||||
|
jnc command.rfd_ok
|
||||||
|
jc command.loadmem_err
|
||||||
|
|
||||||
|
command.rfd_ok:
|
||||||
|
mov al, byte [PROGRAM_ADDRESS]
|
||||||
|
cmp al, 0
|
||||||
|
je command.rfd_noprog
|
||||||
|
call PROGRAM_ADDRESS
|
||||||
|
jmp mainloop
|
||||||
|
command.rfd_noprog:
|
||||||
|
print cmd.cmd_rfd_locateerr, ln
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
command.dir:
|
||||||
|
|
||||||
|
call read_table
|
||||||
|
|
||||||
|
mov si, filetable_ff
|
||||||
|
mov cx, 64
|
||||||
|
add si, 4
|
||||||
|
command.dir.lp:
|
||||||
|
mov al, [si]
|
||||||
|
cmp al, 0
|
||||||
|
jne command.dir.printstring
|
||||||
|
; push si
|
||||||
|
; call print_string
|
||||||
|
; print space
|
||||||
|
; pop si
|
||||||
|
command.dir.continue:
|
||||||
|
|
||||||
|
dec cx
|
||||||
|
cmp cx, 0
|
||||||
|
je command.dirret
|
||||||
|
|
||||||
|
cmp si, 8380h
|
||||||
|
ja command.dirret
|
||||||
|
|
||||||
|
mov bx, 12
|
||||||
|
xor ax, ax
|
||||||
|
sub bx, ax
|
||||||
|
xchg ax, bx
|
||||||
|
add si, ax
|
||||||
|
add si, 4
|
||||||
|
; mov al, [si]
|
||||||
|
; cmp al, 0
|
||||||
|
; je command.dirret
|
||||||
|
|
||||||
|
jmp command.dir.lp
|
||||||
|
command.dirret:
|
||||||
|
print ln
|
||||||
|
jmp mainloop
|
||||||
|
command.dir.printstring:
|
||||||
|
push si
|
||||||
|
call print_string
|
||||||
|
print space
|
||||||
|
pop si
|
||||||
|
jmp command.dir.continue
|
||||||
|
|
||||||
|
command.run:
|
||||||
|
mov bx, cmd.userinput_com
|
||||||
|
call find_file
|
||||||
|
|
||||||
|
mov bx, PROGRAM_ADDRESS
|
||||||
|
call load_file
|
||||||
|
jc command.loadmem_err
|
||||||
|
|
||||||
|
cmp byte [PROGRAM_ADDRESS], 0x7A
|
||||||
|
je command.run.run
|
||||||
|
|
||||||
|
print cmd.cmd_run_nonex, ln
|
||||||
|
|
||||||
|
jmp mainloop
|
||||||
|
command.run.run:
|
||||||
|
call PROGRAM_ADDRESS+1
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
command.rm:
|
||||||
|
len cmd.userinput_arg1
|
||||||
|
cmp ax, 0
|
||||||
|
je command.rm.usage
|
||||||
|
|
||||||
|
mov bx, cmd.userinput_arg1
|
||||||
|
|
||||||
|
call remove_file
|
||||||
|
|
||||||
|
jc command.rm.notfound
|
||||||
|
|
||||||
|
call write_table
|
||||||
|
|
||||||
|
jmp mainloop
|
||||||
|
command.rm.notfound:
|
||||||
|
print cmd.file_notfound_err, ln
|
||||||
|
jmp mainloop
|
||||||
|
command.rm.usage:
|
||||||
|
print cmd.cmd_rm_usage, ln
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
; command.addlink:
|
||||||
|
; len cmd.userinput_arg3
|
||||||
|
; cmp ax, 0
|
||||||
|
; je command.addlink.usage
|
||||||
|
; print cmd.cmd_addlink_desc
|
||||||
|
; input cmd.userinput_buf, SHNUM_BUFFER_SIZE
|
||||||
|
; str_to_i cmd.userinput_buf
|
||||||
|
; mov [cmd.cmd_addlink_size], al
|
||||||
|
; print cmd.cmd_addlink_desc1
|
||||||
|
; input cmd.userinput_buf, FILENAME_BUFFER_SIZE
|
||||||
|
; jmp mainloop
|
||||||
|
; command.addlink.usage:
|
||||||
|
; print usage, ln
|
||||||
|
; jmp mainloop
|
||||||
|
|
||||||
|
command.reboot:
|
||||||
|
jmp 0xFFFF:0
|
||||||
|
|
@ -0,0 +1,71 @@
|
||||||
|
macro print [pointer]
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call print_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro printh [num]
|
||||||
|
{
|
||||||
|
mov ax, num
|
||||||
|
call print_hex
|
||||||
|
}
|
||||||
|
|
||||||
|
macro printi [num]
|
||||||
|
{
|
||||||
|
mov ax, num
|
||||||
|
call its
|
||||||
|
}
|
||||||
|
|
||||||
|
macro cmp_strs ptr1, ptr2
|
||||||
|
{
|
||||||
|
mov si, ptr1
|
||||||
|
mov bx, ptr2
|
||||||
|
call compare_strings
|
||||||
|
}
|
||||||
|
|
||||||
|
macro cp_str ptr1, ptr2
|
||||||
|
{
|
||||||
|
mov si, ptr1
|
||||||
|
mov bx, ptr2
|
||||||
|
call copy_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro input pointer, length
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov cx, length
|
||||||
|
call input_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro len pointer
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call calculate_string_len
|
||||||
|
}
|
||||||
|
|
||||||
|
macro muln num1, num2
|
||||||
|
{
|
||||||
|
mov ax, num1
|
||||||
|
mov bx, num2
|
||||||
|
mul bx
|
||||||
|
}
|
||||||
|
|
||||||
|
macro str_to_i pointer
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call string_to_int
|
||||||
|
}
|
||||||
|
|
||||||
|
macro i_to_str pointer, number
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov ax, number
|
||||||
|
call int_to_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro reset_buf pointer, length
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov cx, length
|
||||||
|
call reset_buffer
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,232 @@
|
||||||
|
; USE16
|
||||||
|
; format binary as 'bin'
|
||||||
|
|
||||||
|
; include "include.asm"
|
||||||
|
|
||||||
|
; INNUM_BUFFER_SIZE equ 5
|
||||||
|
; ACTION_BUFFER_SIZE equ 3
|
||||||
|
; RESULT_BUFFER_SIZE equ 7
|
||||||
|
; USERINPUT_BUFFER_SIZE equ 10
|
||||||
|
|
||||||
|
; include 'programmacros.asm'
|
||||||
|
|
||||||
|
; org 1000h
|
||||||
|
|
||||||
|
; db 0x7A
|
||||||
|
|
||||||
|
; FUNCTABLE EQU 7E00h
|
||||||
|
; clear EQU word [7E00h]
|
||||||
|
; detect_video EQU word [7E02h]
|
||||||
|
; print_string EQU word [7E04h]
|
||||||
|
; print_symbol EQU word [7E06h]
|
||||||
|
; input_string EQU word [7E08h]
|
||||||
|
; compare_strings EQU word [7E0Ah]
|
||||||
|
; copy_string EQU word [7E0Ch]
|
||||||
|
; calculate_string_len EQU word [7E0Eh]
|
||||||
|
; os_print_digit EQU word [7E10h]
|
||||||
|
; os_print_1hex EQU word [7E12h]
|
||||||
|
; os_print_2hex EQU word [7E14h]
|
||||||
|
; print_hex EQU word [7E16h]
|
||||||
|
; print_registers EQU word [7E18h]
|
||||||
|
; string_to_int EQU word [7E1Ah]
|
||||||
|
; int_to_string EQU word [7E1Ch]
|
||||||
|
; dbg_halt_cpu EQU word [7E1Eh]
|
||||||
|
; halt_cpu EQU word [7E20h]
|
||||||
|
|
||||||
|
|
||||||
|
; print calcgreetings
|
||||||
|
; pusha
|
||||||
|
; calcloop:
|
||||||
|
; print firstn
|
||||||
|
; input first_num_buf, INNUM_BUFFER_SIZE
|
||||||
|
; cmp al, 03h
|
||||||
|
; je calcret
|
||||||
|
|
||||||
|
; print secondn
|
||||||
|
; input second_num_buf, INNUM_BUFFER_SIZE
|
||||||
|
; cmp al, 03h
|
||||||
|
; je calcret
|
||||||
|
|
||||||
|
; str_to_i first_num_buf
|
||||||
|
; mov word [first_num], ax
|
||||||
|
|
||||||
|
; str_to_i second_num_buf
|
||||||
|
; mov word [second_num], ax
|
||||||
|
|
||||||
|
; print actionn
|
||||||
|
; input action_buf, ACTION_BUFFER_SIZE
|
||||||
|
; cmp_strs action_buf, action_add
|
||||||
|
; jnc do_add
|
||||||
|
|
||||||
|
; cmp_strs action_buf, action_sub
|
||||||
|
; jnc go_sub
|
||||||
|
|
||||||
|
; cmp_strs action_buf, action_and
|
||||||
|
; jnc go_and
|
||||||
|
|
||||||
|
; cmp_strs action_buf, action_or
|
||||||
|
; jnc go_or
|
||||||
|
|
||||||
|
; cmp_strs action_buf, action_xor
|
||||||
|
; jnc go_xor
|
||||||
|
|
||||||
|
; print inc_act, ln
|
||||||
|
|
||||||
|
; jmp calcloop
|
||||||
|
; calcret:
|
||||||
|
; popa
|
||||||
|
; ret
|
||||||
|
|
||||||
|
; do_add:
|
||||||
|
; mov ax, word [first_num]
|
||||||
|
; mov bx, word [second_num]
|
||||||
|
; add ax, bx
|
||||||
|
|
||||||
|
; mov si, result_buf
|
||||||
|
; call int_to_string
|
||||||
|
; jmp print_res
|
||||||
|
|
||||||
|
; go_sub:
|
||||||
|
; mov ax, word [first_num]
|
||||||
|
; mov bx, word [second_num]
|
||||||
|
; sub ax, bx
|
||||||
|
|
||||||
|
; mov si, result_buf
|
||||||
|
; call int_to_string
|
||||||
|
; jmp print_res
|
||||||
|
|
||||||
|
; go_and:
|
||||||
|
; mov ax, word [first_num]
|
||||||
|
; mov bx, word [second_num]
|
||||||
|
; and ax, bx
|
||||||
|
|
||||||
|
; mov si, result_buf
|
||||||
|
; call int_to_string
|
||||||
|
; jmp print_res
|
||||||
|
|
||||||
|
; go_or:
|
||||||
|
; mov ax, word [first_num]
|
||||||
|
; mov bx, word [second_num]
|
||||||
|
; or ax, bx
|
||||||
|
|
||||||
|
; mov si, result_buf
|
||||||
|
; call int_to_string
|
||||||
|
; jmp print_res
|
||||||
|
|
||||||
|
; go_xor:
|
||||||
|
; mov ax, word [first_num]
|
||||||
|
; mov bx, word [second_num]
|
||||||
|
; xor ax, bx
|
||||||
|
|
||||||
|
; mov si, result_buf
|
||||||
|
; call int_to_string
|
||||||
|
; jmp print_res
|
||||||
|
|
||||||
|
; print_res:
|
||||||
|
; print resultn, result_buf, ln
|
||||||
|
; jmp calcloop
|
||||||
|
|
||||||
|
; Sdata:
|
||||||
|
; calcgreetings db "Welcome to the calculator", 0Dh, 0Ah, 0
|
||||||
|
; goodbye db "Uhadi!", 0
|
||||||
|
|
||||||
|
; firstn db "Enter first number:", 0
|
||||||
|
; secondn db "Enter second number:", 0
|
||||||
|
; actionn db "Enter action:", 0
|
||||||
|
; inc_act db "Incrorrect action!", 0
|
||||||
|
; resultn db "Result - ", 0
|
||||||
|
|
||||||
|
; action_add db "add", 0
|
||||||
|
; action_sub db "sub", 0
|
||||||
|
; action_and db "and", 0
|
||||||
|
; action_or db "or" , 0
|
||||||
|
; action_xor db "xor", 0
|
||||||
|
|
||||||
|
; zx db "0x", 0
|
||||||
|
; ln db 0Dh, 0Ah, 0
|
||||||
|
|
||||||
|
; first_num_buf:
|
||||||
|
; times INNUM_BUFFER_SIZE db 0
|
||||||
|
; db 0
|
||||||
|
; first_num dw 0
|
||||||
|
|
||||||
|
; second_num_buf:
|
||||||
|
; times INNUM_BUFFER_SIZE db 0
|
||||||
|
; db 0
|
||||||
|
; second_num dw 0
|
||||||
|
|
||||||
|
; action_buf:
|
||||||
|
; times ACTION_BUFFER_SIZE db 0
|
||||||
|
; db 0
|
||||||
|
|
||||||
|
; result_buf:
|
||||||
|
; times RESULT_BUFFER_SIZE db 0
|
||||||
|
; db 0
|
||||||
|
|
||||||
|
include 'include.asm'
|
||||||
|
|
||||||
|
program:
|
||||||
|
print greetings, ln
|
||||||
|
.loop:
|
||||||
|
print prefix_1
|
||||||
|
input innum_buffer, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je .end
|
||||||
|
str_to_i innum_buffer
|
||||||
|
push ax
|
||||||
|
|
||||||
|
print prefix_2
|
||||||
|
input innum_buffer, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je .end
|
||||||
|
str_to_i innum_buffer
|
||||||
|
push ax
|
||||||
|
|
||||||
|
print prefix_act
|
||||||
|
input innum_buffer, INNUM_BUFFER_SIZE
|
||||||
|
cmp al, 03h
|
||||||
|
je .end
|
||||||
|
|
||||||
|
cmp_strs innum_buffer, act_add
|
||||||
|
jnc do_add
|
||||||
|
cmp_strs innum_buffer, act_sub
|
||||||
|
jnc do_sub
|
||||||
|
cmp_strs innum_buffer, act_div
|
||||||
|
jnc do_div
|
||||||
|
cmp_strs innum_buffer, act_mul
|
||||||
|
jnc do_mul
|
||||||
|
|
||||||
|
pop ax
|
||||||
|
pop ax
|
||||||
|
|
||||||
|
print inc_act, ln
|
||||||
|
|
||||||
|
jmp .loop
|
||||||
|
.end:
|
||||||
|
ret
|
||||||
|
|
||||||
|
do_add:
|
||||||
|
jmp print_result
|
||||||
|
do_sub:
|
||||||
|
jmp print_result
|
||||||
|
do_div:
|
||||||
|
jmp print_result
|
||||||
|
do_mul:
|
||||||
|
jmp print_result
|
||||||
|
print_result:
|
||||||
|
jmp program.loop
|
||||||
|
|
||||||
|
greetings db "Welcome to the calculator. List of actions - +-/*", 0
|
||||||
|
prefix_1 db "First number>", 0
|
||||||
|
prefix_2 db "Second number>", 0
|
||||||
|
prefix_act db "Action>", 0
|
||||||
|
inc_act db "Incorrect action!", 0
|
||||||
|
ln db 0Dh, 0Ah, 0
|
||||||
|
act_add db "+", 0
|
||||||
|
act_sub db "-", 0
|
||||||
|
act_div db "/", 0
|
||||||
|
act_mul db "*", 0
|
||||||
|
|
||||||
|
innum_buffer:
|
||||||
|
times INNUM_BUFFER_SIZE db 0
|
||||||
|
db 0
|
||||||
|
|
@ -0,0 +1,58 @@
|
||||||
|
USE16
|
||||||
|
include 'programmacros.asm'
|
||||||
|
format binary as 'bin'
|
||||||
|
|
||||||
|
FUNCTABLE EQU 7E00h
|
||||||
|
clear EQU word [7E00h]
|
||||||
|
detect_video EQU word [7E02h]
|
||||||
|
print_string EQU word [7E04h]
|
||||||
|
print_symbol EQU word [7E06h]
|
||||||
|
input_string EQU word [7E08h]
|
||||||
|
compare_strings EQU word [7E0Ah]
|
||||||
|
copy_string EQU word [7E0Ch]
|
||||||
|
calculate_string_len EQU word [7E0Eh]
|
||||||
|
os_print_digit EQU word [7E10h]
|
||||||
|
os_print_1hex EQU word [7E12h]
|
||||||
|
os_print_2hex EQU word [7E14h]
|
||||||
|
print_hex EQU word [7E16h]
|
||||||
|
print_registers EQU word [7E18h]
|
||||||
|
string_to_int EQU word [7E1Ah]
|
||||||
|
int_to_string EQU word [7E1Ch]
|
||||||
|
dbg_halt_cpu EQU word [7E1Eh]
|
||||||
|
halt_cpu EQU word [7E20h]
|
||||||
|
its EQU word [7E22h]
|
||||||
|
find_file EQU word [7E24h]
|
||||||
|
remove_file EQU word [7E26h]
|
||||||
|
write_table EQU word [7E28h]
|
||||||
|
arg1 EQU word [7E2Ah]
|
||||||
|
arg2 EQU word [7E2Ch]
|
||||||
|
arg3 EQU word [7E2Eh]
|
||||||
|
reset_buffer EQU word [7E30h]
|
||||||
|
append_file EQU word [7E32h]
|
||||||
|
rename_file EQU word [7E34h]
|
||||||
|
load_file EQU word [7E36h]
|
||||||
|
save_file EQU word [7E38h]
|
||||||
|
wait_key EQU word [7E3Ah]
|
||||||
|
copy_memory EQU word [7E3Ch]
|
||||||
|
|
||||||
|
org 1000h
|
||||||
|
|
||||||
|
start:
|
||||||
|
mainloop:
|
||||||
|
print userinput_prefix
|
||||||
|
input userinput_buf, 30
|
||||||
|
cmp al, 03h
|
||||||
|
je progret
|
||||||
|
|
||||||
|
cmp_strs userinput_buf, loadsector
|
||||||
|
je loadsector_com
|
||||||
|
|
||||||
|
jmp mainloop
|
||||||
|
progret:
|
||||||
|
ret
|
||||||
|
loadsector_com:
|
||||||
|
jmp mainloop
|
||||||
|
|
||||||
|
userinput_prefix db '>', 0
|
||||||
|
loadsector db "load", 0
|
||||||
|
userinput_buf: times 31 db 0
|
||||||
|
|
@ -0,0 +1,6 @@
|
||||||
|
include 'include.asm'
|
||||||
|
|
||||||
|
print hw
|
||||||
|
ret
|
||||||
|
|
||||||
|
hw db "Hello, world", 0Dh, 0Ah, 0
|
||||||
|
|
@ -0,0 +1,52 @@
|
||||||
|
USE16
|
||||||
|
format binary as 'bin'
|
||||||
|
|
||||||
|
include 'programmacros.asm'
|
||||||
|
|
||||||
|
INNUM_BUFFER_SIZE equ 5
|
||||||
|
SHNUM_BUFFER_SIZE equ 3
|
||||||
|
ACTION_BUFFER_SIZE equ 3
|
||||||
|
RESULT_BUFFER_SIZE equ 7
|
||||||
|
USERINPUT_BUFFER_SIZE equ 64
|
||||||
|
ARGUMENT_BUFFER_SIZE equ 16
|
||||||
|
FILENAME_BUFFER_SIZE equ 11
|
||||||
|
|
||||||
|
FUNCTABLE EQU 7E00h
|
||||||
|
clear EQU word [7E00h]
|
||||||
|
detect_video EQU word [7E02h]
|
||||||
|
print_string EQU word [7E04h]
|
||||||
|
print_symbol EQU word [7E06h]
|
||||||
|
input_string EQU word [7E08h]
|
||||||
|
compare_strings EQU word [7E0Ah]
|
||||||
|
copy_string EQU word [7E0Ch]
|
||||||
|
calculate_string_len EQU word [7E0Eh]
|
||||||
|
os_print_digit EQU word [7E10h]
|
||||||
|
os_print_1hex EQU word [7E12h]
|
||||||
|
os_print_2hex EQU word [7E14h]
|
||||||
|
print_hex EQU word [7E16h]
|
||||||
|
print_registers EQU word [7E18h]
|
||||||
|
string_to_int EQU word [7E1Ah]
|
||||||
|
int_to_string EQU word [7E1Ch]
|
||||||
|
dbg_halt_cpu EQU word [7E1Eh]
|
||||||
|
halt_cpu EQU word [7E20h]
|
||||||
|
its EQU word [7E22h]
|
||||||
|
find_file EQU word [7E24h]
|
||||||
|
remove_file EQU word [7E26h]
|
||||||
|
write_table EQU word [7E28h]
|
||||||
|
arg1 EQU word [7E2Ah]
|
||||||
|
arg2 EQU word [7E2Ch]
|
||||||
|
arg3 EQU word [7E2Eh]
|
||||||
|
reset_buffer EQU word [7E30h]
|
||||||
|
append_file EQU word [7E32h]
|
||||||
|
rename_file EQU word [7E34h]
|
||||||
|
load_file EQU word [7E36h]
|
||||||
|
save_file EQU word [7E38h]
|
||||||
|
wait_key EQU word [7E3Ah]
|
||||||
|
copy_memory EQU word [7E3Ch]
|
||||||
|
get_cursor_pos EQU word [7E3Eh]
|
||||||
|
set_cursor_pos EQU word [7E40h]
|
||||||
|
read_table EQU word [7E42h]
|
||||||
|
|
||||||
|
org 1000h
|
||||||
|
|
||||||
|
db 0x7A
|
||||||
|
|
@ -0,0 +1,44 @@
|
||||||
|
include 'programmacros.asm'
|
||||||
|
|
||||||
|
FUNCTABLE EQU 7E00h
|
||||||
|
clear EQU word [7E00h]
|
||||||
|
detect_video EQU word [7E02h]
|
||||||
|
print_string EQU word [7E04h]
|
||||||
|
print_symbol EQU word [7E06h]
|
||||||
|
input_string EQU word [7E08h]
|
||||||
|
compare_strings EQU word [7E0Ah]
|
||||||
|
copy_string EQU word [7E0Ch]
|
||||||
|
calculate_string_len EQU word [7E0Eh]
|
||||||
|
os_print_digit EQU word [7E10h]
|
||||||
|
os_print_1hex EQU word [7E12h]
|
||||||
|
os_print_2hex EQU word [7E14h]
|
||||||
|
print_hex EQU word [7E16h]
|
||||||
|
print_registers EQU word [7E18h]
|
||||||
|
string_to_int EQU word [7E1Ah]
|
||||||
|
int_to_string EQU word [7E1Ch]
|
||||||
|
dbg_halt_cpu EQU word [7E1Eh]
|
||||||
|
halt_cpu EQU word [7E20h]
|
||||||
|
its EQU word [7E22h]
|
||||||
|
find_file EQU word [7E24h]
|
||||||
|
remove_file EQU word [7E26h]
|
||||||
|
write_table EQU word [7E28h]
|
||||||
|
arg1 EQU word [7E2Ah]
|
||||||
|
arg2 EQU word [7E2Ch]
|
||||||
|
arg3 EQU word [7E2Eh]
|
||||||
|
reset_buffer EQU word [7E30h]
|
||||||
|
append_file EQU word [7E32h]
|
||||||
|
rename_file EQU word [7E34h]
|
||||||
|
|
||||||
|
org 1000h
|
||||||
|
|
||||||
|
start:
|
||||||
|
print greetings, ln
|
||||||
|
ret
|
||||||
|
|
||||||
|
2d_input
|
||||||
|
|
||||||
|
|
||||||
|
greetings db "Welcome to the notepad!", 0
|
||||||
|
zx db "0x", 0
|
||||||
|
ln db 0Dh, 0Ah, 0
|
||||||
|
space db " ", 0
|
||||||
|
|
@ -0,0 +1,71 @@
|
||||||
|
macro print [pointer]
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call print_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro printh [num]
|
||||||
|
{
|
||||||
|
mov ax, num
|
||||||
|
call print_hex
|
||||||
|
}
|
||||||
|
|
||||||
|
macro printi [num]
|
||||||
|
{
|
||||||
|
mov ax, num
|
||||||
|
call its
|
||||||
|
}
|
||||||
|
|
||||||
|
macro cmp_strs ptr1, ptr2
|
||||||
|
{
|
||||||
|
mov si, ptr1
|
||||||
|
mov bx, ptr2
|
||||||
|
call compare_strings
|
||||||
|
}
|
||||||
|
|
||||||
|
macro cp_str ptr1, ptr2
|
||||||
|
{
|
||||||
|
mov si, ptr1
|
||||||
|
mov bx, ptr2
|
||||||
|
call copy_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro input pointer, length
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov cx, length
|
||||||
|
call input_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro len pointer
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call calculate_string_len
|
||||||
|
}
|
||||||
|
|
||||||
|
macro muln num1, num2
|
||||||
|
{
|
||||||
|
mov ax, num1
|
||||||
|
mov bx, num2
|
||||||
|
mul bx
|
||||||
|
}
|
||||||
|
|
||||||
|
macro str_to_i pointer
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
call string_to_int
|
||||||
|
}
|
||||||
|
|
||||||
|
macro i_to_str pointer, number
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov ax, number
|
||||||
|
call int_to_string
|
||||||
|
}
|
||||||
|
|
||||||
|
macro reset_buf pointer, length
|
||||||
|
{
|
||||||
|
mov si, pointer
|
||||||
|
mov cx, length
|
||||||
|
call reset_buffer
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,274 @@
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;;;;; ;;;;;; ;;
|
||||||
|
;; ;; ;; ;; ;;
|
||||||
|
;; ;; ;; ;;;;;; ;;; ;; ;; ;; ;; ;;; ;; ;; ;;;;;; ;;
|
||||||
|
;; ;;;;;; ;; ;; ;; ;; ;;;;;;; ;;; ;; ;; ;; ;; ;; ;; ;;
|
||||||
|
;; ;; ;; ;;;;; ;; ;; ;; ;; ;; ; ;; ;; ;; ;;;; ;;;;;; ;;
|
||||||
|
;; ;; ;; ;; ;;;;;;; ;; ;; ;; ;;; ;;;;;;; ;; ;; ;; ;;
|
||||||
|
;; ;; ;; ;;;;;; ;; ;; ;;;;;; ;;;;;; ;; ;; ;; ;; ;; ;; ;;;;;; ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Snake like game writen in x86 real mode assembly. ;;
|
||||||
|
;; Copyright (C) 2014 Piotr Majkrzak <petrol.91@gmail.com> ;;
|
||||||
|
;; ;;
|
||||||
|
;; This program is free software: you can redistribute it and/or modify ;;
|
||||||
|
;; it under the terms of the GNU General Public License as published by ;;
|
||||||
|
;; the Free Software Foundation, either version 3 of the License, or ;;
|
||||||
|
;; (at your option) any later version. ;;
|
||||||
|
;; ;;
|
||||||
|
;; This program is distributed in the hope that it will be useful, ;;
|
||||||
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;
|
||||||
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;
|
||||||
|
;; GNU General Public License for more details. ;;
|
||||||
|
;; ;;
|
||||||
|
;; You should have received a copy of the GNU General Public License ;;
|
||||||
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; About ;;
|
||||||
|
;;------- ;;
|
||||||
|
;; ;;
|
||||||
|
;; This game is written in Intel's x86 real mode assembly. It is designed ;;
|
||||||
|
;; to fit in the boot sector, so it must have at most 510 bytes. Therefore, ;;
|
||||||
|
;; it has very limited functionalities and spaghetti code. You are able to ;;
|
||||||
|
;; change snake's head direction, eat fruits and restart the game. ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; Assembly ;;
|
||||||
|
;;---------- ;;
|
||||||
|
;; ;;
|
||||||
|
;; To build this code you need to have NASM installed, you can get it from ;;
|
||||||
|
;; this website: (http://www.nasm.us/). ;;
|
||||||
|
;; Execute following command: ;;
|
||||||
|
;; ;;
|
||||||
|
;; nasm -fbin snake.asm -o snake.bin ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; Launch ;;
|
||||||
|
;;-------- ;;
|
||||||
|
;; ;;
|
||||||
|
;; Now you have `snake.bin` file, which can be installed or loaded into ;;
|
||||||
|
;; virtual machine like QEMU, which you can get from (www.qemu.org/). ;;
|
||||||
|
;; ;;
|
||||||
|
;; qemu-system-i386 snake.bin ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; Gameplay ;;
|
||||||
|
;;---------- ;;
|
||||||
|
;; ;;
|
||||||
|
;; When the game will be launched, you will see huge green rectangle in the ;;
|
||||||
|
;; middle of the screen. Snake is hidden now in top left corner. To move it ;;
|
||||||
|
;; you should set its head direction, using arrow keys. If you are stuck or ;;
|
||||||
|
;; you just want to restart the game, you should press space bar. ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
[org 0x1000]
|
||||||
|
|
||||||
|
%DEFINE EMPTY 0b0000_0000
|
||||||
|
%DEFINE SNAKE 0b0000_0001
|
||||||
|
%DEFINE FRUIT 0b0000_0010
|
||||||
|
%DEFINE EATEN 0b0000_0100
|
||||||
|
%DEFINE WRECK 0b0000_1000
|
||||||
|
%DEFINE DIRUP 0b0001_0000
|
||||||
|
%DEFINE DIRDO 0b0010_0000
|
||||||
|
%DEFINE DIRLE 0b0100_0000
|
||||||
|
%DEFINE DIRRI 0b1000_0000
|
||||||
|
%define map(i) byte [es:i]
|
||||||
|
%define head word [es:1024]
|
||||||
|
%define tail word [es:1026]
|
||||||
|
%define fpos word [es:1028]
|
||||||
|
%define ftim word [es:1030]
|
||||||
|
%define rand word [es:1032]
|
||||||
|
|
||||||
|
db 0x7A
|
||||||
|
|
||||||
|
init:
|
||||||
|
.random:
|
||||||
|
mov ah, 0
|
||||||
|
int 0x1A
|
||||||
|
mov rand, dx
|
||||||
|
.display:
|
||||||
|
mov ah, 0x00
|
||||||
|
mov al, 0x13
|
||||||
|
int 0x10
|
||||||
|
.interrupt:
|
||||||
|
mov [fs:0x08*4], word timer
|
||||||
|
mov [fs:0x08*4+2], ds
|
||||||
|
mov [fs:0x09*4], word keyboard
|
||||||
|
mov [fs:0x09*4+2], ds
|
||||||
|
|
||||||
|
|
||||||
|
main:
|
||||||
|
hlt
|
||||||
|
jmp main
|
||||||
|
|
||||||
|
|
||||||
|
;; () -> (ax); ax,cx,dx
|
||||||
|
random:
|
||||||
|
mov ax, rand
|
||||||
|
mov dx, 7993
|
||||||
|
mov cx, 9781
|
||||||
|
mul dx
|
||||||
|
add ax, cx
|
||||||
|
mov rand, ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;; (si) -> (di,ah:al) ; cx,dx
|
||||||
|
movement:
|
||||||
|
mov cl, map(si)
|
||||||
|
mov ax, si
|
||||||
|
mov dl, 32
|
||||||
|
div dl
|
||||||
|
test cl, DIRUP
|
||||||
|
jz $+4
|
||||||
|
dec al
|
||||||
|
test cl, DIRDO
|
||||||
|
jz $+4
|
||||||
|
inc al
|
||||||
|
test cl, DIRLE
|
||||||
|
jz $+4
|
||||||
|
dec ah
|
||||||
|
test cl, DIRRI
|
||||||
|
jz $+4
|
||||||
|
inc ah
|
||||||
|
and al, 31
|
||||||
|
and ah, 31
|
||||||
|
movzx di, al
|
||||||
|
rol di, 5
|
||||||
|
movzx cx, ah
|
||||||
|
add di,cx
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
keyboard:
|
||||||
|
in al, 0x60
|
||||||
|
mov bx, head
|
||||||
|
mov ah, map(bx)
|
||||||
|
cmp al, 0x39
|
||||||
|
jne $+12
|
||||||
|
mov cx, 1032
|
||||||
|
mov al, 0
|
||||||
|
mov di, 0
|
||||||
|
rep stosb
|
||||||
|
and ah, 0x0F
|
||||||
|
cmp al, 0x48
|
||||||
|
jne $+5
|
||||||
|
or ah, DIRUP
|
||||||
|
cmp al, 0x50
|
||||||
|
jne $+5
|
||||||
|
or ah, DIRDO
|
||||||
|
cmp al, 0x4b
|
||||||
|
jne $+5
|
||||||
|
or ah, DIRLE
|
||||||
|
cmp al, 0x4d
|
||||||
|
jne $+5
|
||||||
|
or ah, DIRRI
|
||||||
|
test ah, 0xF0
|
||||||
|
jz $+4
|
||||||
|
mov map(bx), ah
|
||||||
|
mov al, 0x61
|
||||||
|
out 0x20, al
|
||||||
|
iret
|
||||||
|
|
||||||
|
timer:
|
||||||
|
.tick_rtc:
|
||||||
|
int 0x70
|
||||||
|
.move_head:
|
||||||
|
mov si, head
|
||||||
|
call movement
|
||||||
|
mov ah, map(di)
|
||||||
|
mov al, map(si)
|
||||||
|
test al, WRECK
|
||||||
|
jz $+3
|
||||||
|
iret
|
||||||
|
test ah, SNAKE|EATEN
|
||||||
|
jz $+7
|
||||||
|
mov map(si), WRECK
|
||||||
|
iret
|
||||||
|
test ah, FRUIT
|
||||||
|
jz $+20
|
||||||
|
mov ftim, 0
|
||||||
|
mov fpos, -1
|
||||||
|
mov bl, EATEN
|
||||||
|
jmp $+4
|
||||||
|
mov bl, SNAKE
|
||||||
|
and al, 0xF0
|
||||||
|
or bl, al
|
||||||
|
mov map(di), bl
|
||||||
|
mov head, di
|
||||||
|
.move_tail:
|
||||||
|
mov si, tail
|
||||||
|
call movement
|
||||||
|
mov al, map(si)
|
||||||
|
test al, SNAKE
|
||||||
|
jz $+11
|
||||||
|
mov map(si), EMPTY
|
||||||
|
mov tail, di
|
||||||
|
jnz $+9
|
||||||
|
and al, 0xF0
|
||||||
|
or al, SNAKE
|
||||||
|
mov map(si), al
|
||||||
|
.move_fruit:
|
||||||
|
cmp ftim, 0
|
||||||
|
jne $+42
|
||||||
|
mov bx, fpos
|
||||||
|
mov map(bx), EMPTY
|
||||||
|
call random
|
||||||
|
mov bx, ax
|
||||||
|
and bx, 1023
|
||||||
|
cmp map(bx), EMPTY
|
||||||
|
jne $-13
|
||||||
|
mov map(bx), FRUIT
|
||||||
|
mov fpos, bx
|
||||||
|
mov ftim, 64
|
||||||
|
dec ftim
|
||||||
|
.redraw:
|
||||||
|
mov cx, 0
|
||||||
|
mov ax, cx
|
||||||
|
mov dl, 32
|
||||||
|
div dl
|
||||||
|
mov bx, ax
|
||||||
|
movzx ax, bl
|
||||||
|
add ax, 9
|
||||||
|
mov dx, 320
|
||||||
|
mul dx
|
||||||
|
movzx dx, bh
|
||||||
|
add ax, dx
|
||||||
|
add ax, 24
|
||||||
|
mov dx, 4
|
||||||
|
mul dx
|
||||||
|
mov di, cx
|
||||||
|
mov dl, map(di)
|
||||||
|
and dl, 0x0F
|
||||||
|
cmp dl, EMPTY
|
||||||
|
jne $+8
|
||||||
|
mov ebx, 0x02020202
|
||||||
|
cmp dl, SNAKE
|
||||||
|
jne $+8
|
||||||
|
mov ebx, 0x01010101
|
||||||
|
cmp dl, FRUIT
|
||||||
|
jne $+8
|
||||||
|
mov ebx, 0x04040404
|
||||||
|
cmp dl, EATEN
|
||||||
|
jne $+8
|
||||||
|
mov ebx, 0x05050505
|
||||||
|
mov di, ax
|
||||||
|
mov [gs:di],ebx
|
||||||
|
add di, 320
|
||||||
|
mov [gs:di],ebx
|
||||||
|
add di, 320
|
||||||
|
mov [gs:di],ebx
|
||||||
|
add di, 320
|
||||||
|
mov [gs:di],ebx
|
||||||
|
inc cx
|
||||||
|
cmp cx, 1024
|
||||||
|
jne .redraw+3
|
||||||
|
iret
|
||||||
|
|
||||||
|
times 510-($-$$) db 0
|
||||||
|
dw 0AA55h
|
||||||
|
|
@ -0,0 +1,72 @@
|
||||||
|
include 'include.asm'
|
||||||
|
|
||||||
|
start:
|
||||||
|
len arg1
|
||||||
|
cmp ax, 0
|
||||||
|
je progret.usage
|
||||||
|
mov bx, arg1
|
||||||
|
call find_file
|
||||||
|
jc progret.fnf
|
||||||
|
mov word [file_FS_offset], si
|
||||||
|
mov si, file_offset
|
||||||
|
jmp view_text.prt
|
||||||
|
progret.usage:
|
||||||
|
print usage, ln
|
||||||
|
jmp progret
|
||||||
|
progret.fnf:
|
||||||
|
print fnf, ln
|
||||||
|
jmp progret
|
||||||
|
progret:
|
||||||
|
ret
|
||||||
|
|
||||||
|
view_text.prt:
|
||||||
|
mov word [xpos], 0
|
||||||
|
jmp print_symb
|
||||||
|
view_text.prt.continue:
|
||||||
|
inc si
|
||||||
|
jmp view_text.prt
|
||||||
|
view_text.waiting:
|
||||||
|
call wait_key
|
||||||
|
cmp al, 'q'
|
||||||
|
je progret
|
||||||
|
jmp view_text.prt
|
||||||
|
|
||||||
|
print_symb:
|
||||||
|
mov dl, [xpos]
|
||||||
|
mov dh, [ypos]
|
||||||
|
cmp dl, 0
|
||||||
|
je print_symb.mb_end
|
||||||
|
print_symb.continue:
|
||||||
|
mov al, [si]
|
||||||
|
call print_symbol
|
||||||
|
pusha
|
||||||
|
cmp [xpos], 24
|
||||||
|
je print_symb.mov_ln
|
||||||
|
mov al, [xpos]
|
||||||
|
inc al
|
||||||
|
mov [xpos], al
|
||||||
|
print_symb.continue2:
|
||||||
|
popa
|
||||||
|
printh word [xpos]
|
||||||
|
jmp view_text.prt.continue
|
||||||
|
print_symb.mov_ln:
|
||||||
|
mov al, [ypos]
|
||||||
|
inc al
|
||||||
|
mov [ypos], al
|
||||||
|
mov byte [xpos], 0
|
||||||
|
jmp print_symb.continue2
|
||||||
|
print_symb.mb_end:
|
||||||
|
cmp dh, 25
|
||||||
|
je view_text.waiting
|
||||||
|
jmp print_symb.continue
|
||||||
|
|
||||||
|
usage db "Usage: viewer.bin <filename>", 0
|
||||||
|
fnf db "File not found.", 0
|
||||||
|
ln db 0Dh, 0Ah, 0
|
||||||
|
file_FS_offset dw 0
|
||||||
|
xpos db 0
|
||||||
|
ypos db 0
|
||||||
|
|
||||||
|
times 1024-($-$$) db 0
|
||||||
|
file_offset:
|
||||||
|
times 2000 db "A"
|
||||||
|
|
@ -0,0 +1,35 @@
|
||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
rm iso/os.bin
|
||||||
|
|
||||||
|
echo
|
||||||
|
echo
|
||||||
|
./fasm bootloader.asm iso/os.bin
|
||||||
|
echo
|
||||||
|
./fasm programs/calculator.asm iso/calc.bin
|
||||||
|
echo
|
||||||
|
# ./fasm programs/notepad.asm iso/notepad.bin
|
||||||
|
# echo
|
||||||
|
./fasm programs/viewer.asm iso/viewer.bin
|
||||||
|
echo
|
||||||
|
nasm -fbin programs/snake.asm -o iso/snake.bin
|
||||||
|
echo
|
||||||
|
echo
|
||||||
|
|
||||||
|
cd iso
|
||||||
|
|
||||||
|
rm boot.img
|
||||||
|
dd if=/dev/zero of=boot.img bs=1024 count=1440
|
||||||
|
dd if=os.bin of=boot.img conv=notrunc
|
||||||
|
dd if=calc.bin of=boot.img conv=notrunc bs=512 seek=16
|
||||||
|
# dd if=notepad.bin of=boot.img conv=notrunc bs=512 seek=17
|
||||||
|
dd if=viewer.bin of=boot.img conv=notrunc bs=512 seek=17
|
||||||
|
dd if=calc.bin of=boot.img bs=512 seek=19 conv=notrunc
|
||||||
|
dd if=snake.bin of=boot.img bs=512 seek=20 conv=notrunc
|
||||||
|
# dd if=just_text.t of=boot.img conv=notrunc bs=512 seek=23
|
||||||
|
|
||||||
|
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
# qemu-system-i386 iso/os.bin
|
||||||
|
qemu-system-i386 -fda iso/boot.img
|
||||||
|
|
@ -0,0 +1,36 @@
|
||||||
|
secstage:
|
||||||
|
mov ah, 02h
|
||||||
|
mov al, [filetable_ff+3]
|
||||||
|
mov dl, [BOOT_DRIVE]
|
||||||
|
mov ch, [filetable_ff]
|
||||||
|
mov dh, [filetable_ff+1]
|
||||||
|
mov cl, [filetable_ff+2]
|
||||||
|
mov bx, main
|
||||||
|
int 13h
|
||||||
|
|
||||||
|
mov al, [BOOT_DRIVE]
|
||||||
|
jc .error
|
||||||
|
|
||||||
|
call main
|
||||||
|
|
||||||
|
call dbg_halt_cpu
|
||||||
|
.error:
|
||||||
|
cmp cl, 0x0
|
||||||
|
je .notfound
|
||||||
|
cmp cl, 0x20
|
||||||
|
je .notfound
|
||||||
|
jmp booterror
|
||||||
|
|
||||||
|
.notfound:
|
||||||
|
mov ax, 1301h
|
||||||
|
mov bx, 7
|
||||||
|
xor dx, dx
|
||||||
|
mov bp, .notfoundmsg
|
||||||
|
mov cx, 22
|
||||||
|
int 10h
|
||||||
|
cli
|
||||||
|
hlt
|
||||||
|
|
||||||
|
.notfoundmsg db '"kernel.bin" not found'
|
||||||
|
|
||||||
|
times 2560-($-$$) db 0
|
||||||
Loading…
Reference in New Issue