58 lines
1.6 KiB
NASM
58 lines
1.6 KiB
NASM
|
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
|