lsfs_16-bit/main.s

push bp
mov bp,sp
push 10[bp]
push 8[bp]
push 6[bp]
call _main
add sp, #0x6
pop bp
retf
 ! 1 
! 1 # 1 "main.c"
! 1 # 1 "std_singos/string.h"
! 1 void strcpy (destination, destination_segment, source, source_segment );
!BCC_EOS
! 2 void memcpy (destination, destination_segment, source, source_segment, num_bytes );
!BCC_EOS
! 3 
! 4 void strcpy (destination, destination_segment, source, source_segment )
! 5 char *destination;
export	_strcpy
_strcpy:
!BCC_EOS
! 6 int destination_segment;
!BCC_EOS
! 7 char *source;
!BCC_EOS
! 8 int source_segment;
!BCC_EOS
! 9 {
! 10 #asm
!BCC_ASM
_strcpy.source	set	6
_strcpy.destination	set	2
_strcpy.source_segment	set	8
_strcpy.destination_segment	set	4
    ; copy two strings
    ; IN si: the first (zero terminated) string
    ; IN di: the second (zero terminated) string
    ; OUT SF and ZF (same semantics as cmp)
    
! 16  20

    push bp
    mov bp,sp
    stringcompare:
        push ax
        push bx
        push di
        push es
        push si
        push ds
        mov ax, 4[bp]; ; 
        mov di, ax
        mov ax, 6[bp]; ; 
        mov es, ax
        mov ax, 8[bp]; ; 
        mov si, ax
        mov ax, 10[bp]; ; 
        mov ds, ax
        mov cx, 0x050 
    .loop:
        movsb
        cmp cx, 0x0
        je .end
        dec cx
        jmp .loop
    .end:
        pop ds
        pop si
        pop es
        pop di
        pop bx
        pop ax
        pop bp

! 54 endasm
!BCC_ENDASM
! 55 }
ret
! 56 
! 57 void memcpy (destination, destination_segment, source, source_segment, num_bytes)
! 58 void *destination;
export	_memcpy
_memcpy:
!BCC_EOS
! 59 int destination_segment;
!BCC_EOS
! 60 void *source;
!BCC_EOS
! 61 int source_segment;
!BCC_EOS
! 62 int num_bytes;
!BCC_EOS
! 63 {
! 64 #asm
!BCC_ASM
_memcpy.source	set	6
_memcpy.destination	set	2
_memcpy.num_bytes	set	$A
_memcpy.source_segment	set	8
_memcpy.destination_segment	set	4
    ; copy two strings
    ; IN si: the first (zero terminated) string
    ; IN di: the second (zero terminated) string
    ; OUT SF and ZF (same semantics as cmp)
    
! 70  75

    push bp
    mov bp,sp
    memcpy:
        push ax
        push bx
        push di
        push es
        push si
        push ds
        mov ax, 4[bp]; ; 
        mov di, ax
        mov ax, 6[bp]; ; 
        mov es, ax
        mov ax, 8[bp]; ; 
        mov si, ax
        mov ax, 10[bp]; ; 
        mov ds, ax
        mov cx, 12[bp]; 
    .memcpy_loop:
        movsb
        cmp cx, 0x0
        je .end
        dec cx
        jmp .loop
    .memcpy_end:
        pop ds
        pop si
        pop es
        pop di
        pop bx
        pop ax
        pop bp

! 109 endasm
!BCC_ENDASM
! 110 # 6 "main.c"
! 6 }
ret
! 7 # 1 "std_
! 0 singos/stdio.h"
! 1 void print(string);
!BCC_EOS
! 2 
! 3 void print(string)
! 4 char* string;
export	_print
_print:
!BCC_EOS
! 5 {
! 6 #asm 
!BCC_ASM
_print.string	set	2
 
    push bp
    mov bp,sp
    mov si,4[bp]
    call 0x0000:0x7C47
    pop bp
! 12 endasm
!BCC_ENDASM
! 13 }
ret
! 14 
! 15 void print_stack(argument)
! 16 {
export	_print_stack
_print_stack:
! 17 #asm 
!BCC_ASM
_print_stack.argument	set	2
 
    push bp
    mov bp,sp
    push ds
    push ax

    mov ax, ss
    mov ds, ax
    mov si,4[bp]
    call 0x0000:0x7C47
    
    pop ax
    pop ds
    pop bp
! 31 endasm
!BCC_ENDASM
! 32 }
ret
! 33 
! 34 dump_ax_return(input)
! 35 void* input;
export	_dump_ax_return
_dump_ax_return:
!BCC_EOS
! 36 {
! 37     return input;
push	bp
mov	bp,sp
push	di
push	si
mov	ax,4[bp]
pop	si
pop	di
pop	bp
ret
!BCC_EOS
! 38 }
! 39 
! 40 void dump_ax(input)
! 41 void* input;
export	_dump_ax
_dump_ax:
!BCC_EOS
! 42 {
! 43     
! 44     dump_ax_return(input)
push	bp
mov	bp,sp
push	di
push	si
! 45 #asm
! Debug: list * void input = [S+6+2] (used reg = )
push	4[bp]
! Debug: func () int = dump_ax_return+0 (used reg = )
call	_dump_ax_return
inc	sp
inc	sp
!BCC_EOS
!BCC_ASM
_dump_ax.input	set	8
.dump_ax.input	set	4
    push bp
    mov bp,sp
    call 0x000:0x7C2A
    pop bp
! 50 endasm
!BCC_ENDASM
!BCC_EOS
! 51 }
pop	si
pop	di
pop	bp
ret
! 52 
! 53 void print_newline()
! 54 {
export	_print_newline
_print_newline:
! 55 #asm 
!BCC_ASM
 
    printCRLF:
    mov ah, #0xE
    mov al, #13
    int #0x10
    mov al, #10
    int #0x10
    ret
! 63 endasm
!BCC_ENDASM
! 64 }
ret
! 65 # 1 "driver/disk.h"
! 1 int data_from_disk(index, number_sectors, data_buffer, data_buffer_segment);
!BCC_EOS
! 2 int disk_service_read_data_from_disk(index, number_sectors, data_buffer, data_buffer_segment);
!BCC_EOS
! 3 
! 4 int disk_service_read_data_from_disk(index, number_sectors, data_buffer, data_buffer_segment)
! 5 long* index; 
export	_disk_service_read_data_from_disk
_disk_service_read_data_from_disk:
!BCC_EOS
! 6 long number_sectors; 
!BCC_EOS
! 7 void* data_buffer;
!BCC_EOS
! 8 int data_buffer_segment;
!BCC_EOS
! 9 {
! 10 
! 11 #asm
!BCC_ASM
_disk_service_read_data_from_disk.data_buffer	set	8
_disk_service_read_data_from_disk.number_sectors	set	4
_disk_service_read_data_from_disk.data_buffer_segment	set	$A
_disk_service_read_data_from_disk.index	set	2

! 13 define number_sectors 8[bp];



	push bp
    mov bp,sp
	pusha

	lsfs_load_data:
	    mov ax, 4[bp];  
	    mov WORD [DAPACK.lba_addr_dw_low], ax
	    mov bx, 8[bp]; 
	    mov WORD [DAPACK.blkcnt],          bx
	    mov cx, 12[bp];   
	    mov WORD [DAPACK.db_addr_segment], cx
	    mov dx, 10[bp]; ;
	    mov WORD [DAPACK.db_addr_offset],  dx
	    mov si, #DAPACK                          ; address of
	    mov ah, #0x42                            ; READ
	    mov dl, [global_disk_identifier] 
	    int #0x13
	;call 0x0000:0x7C2A	
	popa
	pop bp
	ret


	DAPACK:
	  DAPACK.dap_Size:         db  0x10 
	  DAPACK.rev_byte:         db  0x0  
	  DAPACK.blkcnt:           dw  0x0  
	  DAPACK.db_addr_offset:   dw  0x0  
	  DAPACK.db_addr_segment:  dw  0x0  
	  DAPACK.lba_addr_dw_low:  dd  0x0  
	  DAPACK.lba_addr_dw_high: dd  0x0  
	
	global_disk_identifier: db 0x80

! 51 endasm
!BCC_ENDASM
! 52 } 
ret
! 53 # 11 "main.c"
! 11 #define SPACE_VBR_RECORD 2048 
! 12 
! 13 #define DEFAULT_ENTRY_SIZE  1 
! 14 
! 15 #def
! 15 ine NUMBER_OF_MBR_PARTITIONS 4
! 16 
! 17 #define DEFAULT_DATA_POINTER_SIZE 4 
! 18 
! 19 
! 20 
! 21 void dump_ax(input);
!BCC_EOS
! 22 void print_stack(argument);
!BCC_EOS
! 23 void print_newline();
!BCC_EOS
! 24 
! 25 typedef struct Directory_Table Directory_Table;
!BCC_EOS
! 26 typedef struct Struct_Table_Entry Table_Entry;
!BCC_EOS
! 27 typedef struct struct_partition_control partition_control;
!BCC_EOS
! 28 typedef struct File_System_Control_Information FSCI;
!BCC_EOS
! 29 typedef struct meta_information_format mif;
!BCC_EOS
! 30 typedef struct tag_record tag_record;
!BCC_EOS
! 31 typedef struct lsfs_file lsfs_file;
!BCC_EOS
! 32 typedef struct Parameter_Struct Parameter_Struct;
!BCC_EOS
! 33 
! 34 typedef enum Table_Entry_Kind
! 35 {
! 36     
! 37     ENTRY_EMPTY = 0,
! 38     ENTRY_FILE = 1,
! 39     ENTRY_DIRECTORY = 2,
! 40 } Table_Entry_Kind;
!BCC_EOS
! 41 
! 42 typedef enum Service_Action
! 43 {
! 44     SERIVCE_LOAD_DISK  = 1,
! 45     SERVICE_FIND_ENTRY = 2,
! 46     SERIVCE_READ_DATA  = 3,
! 47     SERIVCE_WRITE_DATA = 4,
! 48 
! 49 } Service_Action;
!BCC_EOS
! 50 
! 51 struct Struct_Table_Entry 
! 52 {
! 53     char    filename[256]; 
!BCC_EOS
! 54     long    file_id[2];
!BCC_EOS
! 55     long    file_size[2];
!BCC_EOS
! 56     void*   ext_file_data_low;
!BCC_EOS
! 57     void*   ext_file_data_high;
!BCC_EOS
! 58     long    number_sector_s; 
!BCC_EOS
! 59     short   entry_kind;
!BCC_EOS
! 60     short   extra_control_bits1;
!BCC_EOS
! 61     short   extra_control_bits2;
!BCC_EOS
! 62     short   extra_control_bits3;
!BCC_EOS
! 63     long    table_entry_sector_index[2];
!BCC_EOS
! 64     long    data_pointer[27   * 2]; 
!BCC_EOS
! 65 }; 
!BCC_EOS
! 66 
! 67 struct File_System_Control_Information 
! 68 {
! 69     char filesystem_information[256];
!BCC_EOS
! 70     long master_table_index[2];
!BCC_EOS
! 71     long this_partition_offset_on_disk[2];
!BCC_EOS
! 72     long next_free_sector[2];
!BCC_EOS
! 73     long next_uniqe_id[2]; 
!BCC_EOS
! 74     long next_sector_reuse_pointer[2];
!BCC_EOS
! 75     long last_sector_index_on_partition[2];
!BCC_EOS
! 76     long maximum_sectors_on_disk[2];
!BCC_EOS
! 77     long sector_size_on_disk[2];
!BCC_EOS
! 78     long not_used[48];
!BCC_EOS
! 79 
! 80 };
!BCC_EOS
! 81 
! 82 typedef struct Directory_Table 
! 83 {
! 84     Table_Entry entries[16  ];
!BCC_EOS
! 85 
! 86 }; 
!BCC_EOS
! 87 
! 88 struct Parameter_Struct 
! 89 {
! 90     char* path;
!BCC_EOS
! 91     char* new_path;
!BCC_EOS
! 92     int buffer_segment;
!BCC_EOS
! 93     int buffer_address;
!BCC_EOS
! 94     int buffer_size;
!BCC_EOS
! 95     int data_length;
!BCC_EOS
! 96     int byte_offset_into_file;
!BCC_EOS
! 97     Table_Entry_Kind entry_kind;
!BCC_EOS
! 98 };
!BCC_EOS
! 99 
! 100 int main(selector, pointer_parameter_segment, pointer_parameter_struct) 
! 101 int selector;
export	_main
_main:
!BCC_EOS
! 102 void* pointer_parameter_segment;
!BCC_EOS
! 103 void* pointer_parameter_struct
! 103 ;
!BCC_EOS
! 104 {
! 105     
! 106     
! 107     
! 108     FSCI fsci;
!BCC_EOS
! 109     Service_Action service_action;
!BCC_EOS
! 110     Directory_Table current_table;
!BCC_EOS
! 111     Parameter_Struct parameter_struct;
!BCC_EOS
! 112     int local_segment = 0x7e0;
push	bp
mov	bp,sp
push	di
push	si
add	sp,#-$2214
! Debug: eq int = const $7E0 to int local_segment = [S+$221A-$221A] (used reg = )
mov	ax,#$7E0
mov	-$2218[bp],ax
!BCC_EOS
! 113     int stack_segment = 0x8fc0;
dec	sp
dec	sp
! Debug: eq unsigned int = const $8FC0 to int stack_segment = [S+$221C-$221C] (used reg = )
mov	ax,#$8FC0
mov	-$221A[bp],ax
!BCC_EOS
! 114     long index_as_long; 
!BCC_EOS
! 115 
! 116     char local_path[256]; 
!BCC_EOS
! 117     service_action = selector;
add	sp,#-$104
! Debug: eq int selector = [S+$2320+2] to int service_action = [S+$2320-$208] (used reg = )
mov	ax,4[bp]
mov	-$206[bp],ax
!BCC_EOS
! 118 
! 119     switch (service_action)
mov	ax,-$206[bp]
! 120     {
br 	.3
! 121         case SERIVCE_LOAD_DISK: 
! 122         {
.4:
! 123 
! 124 
! 125 
! 126             
! 127             index_as_long = pointer_parameter_struct;
! Debug: eq * void pointer_parameter_struct = [S+$2320+6] to long index_as_long = [S+$2320-$2220] (used reg = )
mov	ax,8[bp]
xor	bx,bx
mov	-$221E[bp],ax
mov	-$221C[bp],bx
!BCC_EOS
! 128             disk_service_read_data_from_disk(index_as_long, 1, &fsci, stack_segment);
! Debug: list int stack_segment = [S+$2320-$221C] (used reg = )
push	-$221A[bp]
! Debug: list * struct File_System_Control_Information fsci = S+$2322-$206 (used reg = )
lea	bx,-$204[bp]
push	bx
! Debug: list int = const 1 (used reg = )
mov	ax,*1
push	ax
! Debug: list long index_as_long = [S+$2326-$2220] (used reg = )
push	-$221C[bp]
push	-$221E[bp]
! Debug: func () int = disk_service_read_data_from_disk+0 (used reg = )
call	_disk_service_read_data_from_disk
add	sp,*$A
!BCC_EOS
! 129             print("File System has been loaded: ");
! Debug: list * char = .5+0 (used reg = )
mov	bx,#.5
push	bx
! Debug: func () void = print+0 (used reg = )
call	_print
inc	sp
inc	sp
!BCC_EOS
! 130             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 131             print_stack(fsci.filesystem_information);
! Debug: list * char fsci = S+$2320-$206 (used reg = )
lea	bx,-$204[bp]
push	bx
! Debug: func () void = print_stack+0 (used reg = )
call	_print_stack
inc	sp
inc	sp
!BCC_EOS
! 132             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 133         } break;
br 	.1
!BCC_EOS
! 134         case SERVICE_FIND_ENTRY:
! 135         {
.6:
! 136             memcpy(&parameter_struct, stack_segment, pointer_parameter_struct, pointer_parameter_segment, sizeof(Parameter_Struct));
! Debug: list int = const $10 (used reg = )
mov	ax,*$10
push	ax
! Debug: list * void pointer_parameter_segment = [S+$2322+4] (used reg = )
push	6[bp]
! Debug: list * void pointer_parameter_struct = [S+$2324+6] (used reg = )
push	8[bp]
! Debug: list int stack_segment = [S+$2326-$221C] (used reg = )
push	-$221A[bp]
! Debug: list * struct Parameter_Struct parameter_struct = S+$2328-$2218 (used reg = )
lea	bx,-$2216[bp]
push	bx
! Debug: func () void = memcpy+0 (used reg = )
call	_memcpy
add	sp,*$A
!BCC_EOS
! 137             dump_ax(parameter_struct.buffer_size);
! Debug: list int parameter_struct = [S+$2320-$2210] (used reg = )
push	-$220E[bp]
! Debug: func () void = dump_ax+0 (used reg = )
call	_dump_ax
inc	sp
inc	sp
!BCC_EOS
! 138             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 139             disk_service_read_data_from_disk(fsci.master_table_index[0], 16  , &current_table, stack_segment);
! Debug: list int stack_segment = [S+$2320-$221C] (used reg = )
push	-$221A[bp]
! Debug: list * struct Directory_Table current_table = S+$2322-$2208 (used reg = )
lea	bx,-$2206[bp]
push	bx
! Debug: list int = const $10 (used reg = )
mov	ax,*$10
push	ax
! Debug: list long fsci = [S+$2326-$106] (used reg = )
push	-$102[bp]
push	-$104[bp]
! Debug: func () int = disk_service_read_data_from_disk+0 (used reg = )
call	_disk_service_read_data_from_disk
add	sp,*$A
!BCC_EOS
! 140             print("Current table: ");
! Debug: list * char = .7+0 (used reg = )
mov	bx,#.7
push	bx
! Debug: func () void = print+0 (used reg = )
call	_print
inc	sp
inc	sp
!BCC_EOS
! 141             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 142             print_stack(current_table.entries[0].filename);
! Debug: list * char current_table = S+$2320-$2208 (used reg = )
lea	bx,-$2206[bp]
push	bx
! Debug: func () void = print_stack+0 (used reg = )
call	_print_stack
inc	sp
inc	sp
!BCC_EOS
! 143             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 144             print_stack(current_table.entries[1].filename);
! Debug: list * char current_table = S+$2320-$2008 (used reg = )
lea	bx,-$2006[bp]
push	bx
! Debug: func () void = print_stack+0 (used reg = )
call	_print_stack
inc	sp
inc	sp
!BCC_EOS
! 145             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 146             print_stack(current_table.entries[2].filename);
! Debug: list * char current_table = S+$2320-$1E08 (used reg = )
lea	bx,-$1E06[bp]
push	bx
! Debug: func () void = print_stack+0 (used reg = )
call	_print_stack
inc	sp
inc	sp
!BCC_EOS
! 147             print_newline();
! Debug: func () void = print_newline+0 (used reg = )
call	_print_newline
!BCC_EOS
! 148         } break;
jmp .1
!BCC_EOS
! 149         case SERIVCE_READ_DATA: 
! 150         {
.8:
! 151 # 159
! 159             
! 160             print("Hit READ case");
! Debug: list * char = .9+0 (used reg = )
mov	bx,#.9
push	bx
! Debug: func () void = print+0 (used reg = )
call	_print
inc	sp
inc	sp
!BCC_EOS
! 161         } break;
jmp .1
!BCC_EOS
! 162         case SERIVCE_WRITE_DATA:
! 163         {
.A:
! 164             print("Hit WRITE case");
! Debug: list * char = .B+0 (used reg = )
mov	bx,#.B
push	bx
! Debug: func () void = print+0 (used reg = )
call	_print
inc	sp
inc	sp
!BCC_EOS
! 165         } break;
jmp .1
!BCC_EOS
! 166         default: 
! 167         {
.C:
! 168             print("Default case");
! Debug: list * char = .D+0 (used reg = )
mov	bx,#.D
push	bx
! Debug: func () void = print+0 (used reg = )
call	_print
inc	sp
inc	sp
!BCC_EOS
! 169         }
! 170     } 
! 171     
! 172     return 0;
jmp .1
.3:
sub	ax,*1
beq 	.4
sub	ax,*1
beq 	.6
sub	ax,*1
je 	.8
sub	ax,*1
je 	.A
jmp	.C
.1:
..FFFF	=	-$2320
xor	ax,ax
lea	sp,-4[bp]
pop	si
pop	di
pop	bp
ret
!BCC_EOS
! 173 
! 174 }
! 175 
! Register BX used in function main
.D:
.E:
.ascii	"Default case"
.byte	0
.B:
.F:
.ascii	"Hit WRITE case"
.byte	0
.9:
.10:
.ascii	"Hit READ case"
.byte	0
.7:
.11:
.ascii	"Current table: "
.byte	0
.5:
.12:
.ascii	"File System has been loaded: "
.byte	0
.bss

! 0 errors detected