mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 17:49:07 +02:00
* msdos startup code for tiny and small memory models moved to a shared nasm include file to avoid code duplication
git-svn-id: trunk@24808 -
This commit is contained in:
nickysn
parent
55252e82f2
commit
c124283a36
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -8263,6 +8263,7 @@ rtl/msdos/dos.pp svneol=native#text/plain
|
|||||||
rtl/msdos/msmouse.pp svneol=native#text/plain
|
rtl/msdos/msmouse.pp svneol=native#text/plain
|
||||||
rtl/msdos/ports.pp svneol=native#text/plain
|
rtl/msdos/ports.pp svneol=native#text/plain
|
||||||
rtl/msdos/prt0.asm svneol=native#text/plain
|
rtl/msdos/prt0.asm svneol=native#text/plain
|
||||||
|
rtl/msdos/prt0st.asm svneol=native#text/plain
|
||||||
rtl/msdos/prt0t.asm svneol=native#text/plain
|
rtl/msdos/prt0t.asm svneol=native#text/plain
|
||||||
rtl/msdos/registers.inc svneol=native#text/plain
|
rtl/msdos/registers.inc svneol=native#text/plain
|
||||||
rtl/msdos/sysdir.inc svneol=native#text/plain
|
rtl/msdos/sysdir.inc svneol=native#text/plain
|
||||||
|
|||||||
@ -1,191 +1,3 @@
|
|||||||
; nasm -f obj -o prt0.o prt0.asm
|
; nasm -f obj -o prt0.o prt0.asm
|
||||||
|
%define __SMALL__
|
||||||
cpu 8086
|
%include "prt0st.asm"
|
||||||
|
|
||||||
segment text use16
|
|
||||||
|
|
||||||
extern PASCALMAIN
|
|
||||||
extern dos_psp
|
|
||||||
extern dos_version
|
|
||||||
|
|
||||||
extern _edata ; defined by WLINK, indicates start of BSS
|
|
||||||
extern _end ; defined by WLINK, indicates end of BSS
|
|
||||||
|
|
||||||
extern __stklen
|
|
||||||
extern __stkbottom
|
|
||||||
|
|
||||||
extern __nearheap_start
|
|
||||||
extern __nearheap_end
|
|
||||||
|
|
||||||
..start:
|
|
||||||
; init the stack
|
|
||||||
mov bx, dgroup
|
|
||||||
mov ss, bx
|
|
||||||
mov sp, stacktop
|
|
||||||
|
|
||||||
; zero fill the BSS section
|
|
||||||
mov es, bx
|
|
||||||
mov di, _edata wrt dgroup
|
|
||||||
mov cx, _end wrt dgroup
|
|
||||||
sub cx, di
|
|
||||||
jz no_bss
|
|
||||||
xor al, al
|
|
||||||
rep stosb
|
|
||||||
no_bss:
|
|
||||||
|
|
||||||
; save the Program Segment Prefix
|
|
||||||
push ds
|
|
||||||
|
|
||||||
; init DS
|
|
||||||
mov ds, bx
|
|
||||||
|
|
||||||
; pop the PSP from stack and store it in the pascal variable dos_psp
|
|
||||||
pop ax
|
|
||||||
mov word [dos_psp], ax
|
|
||||||
|
|
||||||
; get DOS version and save it in the pascal variable dos_version
|
|
||||||
mov ax, 3000h
|
|
||||||
int 21h
|
|
||||||
xchg al, ah
|
|
||||||
mov word [dos_version], ax
|
|
||||||
|
|
||||||
; allocate max heap
|
|
||||||
; TODO: also support user specified heap size
|
|
||||||
; try to resize our main DOS memory block until the end of the data segment
|
|
||||||
mov dx, word [dos_psp]
|
|
||||||
mov cx, dx
|
|
||||||
sub dx, dgroup
|
|
||||||
neg dx ; dx = (ds - psp) in paragraphs
|
|
||||||
add dx, 1000h ; 64kb in paragraphs
|
|
||||||
|
|
||||||
; get our MCB size in paragraphs
|
|
||||||
dec cx
|
|
||||||
mov es, cx
|
|
||||||
mov bx, word [es:3]
|
|
||||||
|
|
||||||
; is it smaller than the maximum data segment size?
|
|
||||||
cmp bx, dx
|
|
||||||
jbe skip_mem_realloc
|
|
||||||
|
|
||||||
mov bx, dx
|
|
||||||
inc cx
|
|
||||||
mov es, cx
|
|
||||||
mov ah, 4Ah
|
|
||||||
int 21h
|
|
||||||
jc mem_realloc_err
|
|
||||||
|
|
||||||
skip_mem_realloc:
|
|
||||||
|
|
||||||
; bx = the new size in paragraphs
|
|
||||||
add bx, word [dos_psp]
|
|
||||||
sub bx, dgroup
|
|
||||||
mov cl, 4
|
|
||||||
shl bx, cl
|
|
||||||
sub bx, 2
|
|
||||||
mov sp, bx
|
|
||||||
|
|
||||||
add bx, 2
|
|
||||||
sub bx, word [__stklen]
|
|
||||||
and bl, 0FEh
|
|
||||||
mov word [__stkbottom], bx
|
|
||||||
|
|
||||||
cmp bx, _end wrt dgroup
|
|
||||||
jb not_enough_mem
|
|
||||||
|
|
||||||
; heap is between [ds:_end wrt dgroup] and [ds:__stkbottom - 1]
|
|
||||||
mov word [__nearheap_start], _end wrt dgroup
|
|
||||||
mov bx, word [__stkbottom]
|
|
||||||
dec bx
|
|
||||||
mov word [__nearheap_end], bx
|
|
||||||
|
|
||||||
jmp PASCALMAIN
|
|
||||||
|
|
||||||
not_enough_mem:
|
|
||||||
mov dx, not_enough_mem_msg
|
|
||||||
jmp error_msg
|
|
||||||
|
|
||||||
mem_realloc_err:
|
|
||||||
mov dx, mem_realloc_err_msg
|
|
||||||
error_msg:
|
|
||||||
mov ah, 9
|
|
||||||
int 21h
|
|
||||||
mov ax, 4CFFh
|
|
||||||
int 21h
|
|
||||||
|
|
||||||
global FPC_MSDOS_CARRY
|
|
||||||
FPC_MSDOS_CARRY:
|
|
||||||
stc
|
|
||||||
global FPC_MSDOS
|
|
||||||
FPC_MSDOS:
|
|
||||||
mov al, 21h ; not ax, because only the low byte is used
|
|
||||||
pop dx
|
|
||||||
pop cx
|
|
||||||
push ax
|
|
||||||
push cx
|
|
||||||
push dx
|
|
||||||
global FPC_INTR
|
|
||||||
FPC_INTR:
|
|
||||||
push bp
|
|
||||||
mov bp, sp
|
|
||||||
mov al, byte [ss:bp + 6]
|
|
||||||
mov byte [cs:int_number], al
|
|
||||||
mov si, [ss:bp + 4]
|
|
||||||
push ds
|
|
||||||
mov ax, word [si + 16]
|
|
||||||
mov es, ax
|
|
||||||
mov ax, word [si + 14] ; ds
|
|
||||||
push ax
|
|
||||||
mov ax, word [si]
|
|
||||||
mov bx, word [si + 2]
|
|
||||||
mov cx, word [si + 4]
|
|
||||||
mov dx, word [si + 6]
|
|
||||||
mov bp, word [si + 8]
|
|
||||||
mov di, word [si + 12]
|
|
||||||
mov si, word [si + 10]
|
|
||||||
|
|
||||||
pop ds
|
|
||||||
db 0CDh ; opcode of INT xx
|
|
||||||
int_number:
|
|
||||||
db 255
|
|
||||||
|
|
||||||
pushf
|
|
||||||
push ds
|
|
||||||
push si
|
|
||||||
push bp
|
|
||||||
mov bp, sp
|
|
||||||
mov si, word [ss:bp + 8]
|
|
||||||
mov ds, si
|
|
||||||
mov si, word [ss:bp + 14]
|
|
||||||
mov word [si], ax
|
|
||||||
mov word [si + 2], bx
|
|
||||||
mov word [si + 4], cx
|
|
||||||
mov word [si + 6], dx
|
|
||||||
mov word [si + 12], di
|
|
||||||
mov ax, es
|
|
||||||
mov word [si + 16], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 8], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 10], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 14], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 18], ax
|
|
||||||
|
|
||||||
pop ds
|
|
||||||
pop bp
|
|
||||||
ret 4
|
|
||||||
|
|
||||||
segment data
|
|
||||||
mem_realloc_err_msg:
|
|
||||||
db 'Memory allocation error', 13, 10, '$'
|
|
||||||
not_enough_mem_msg:
|
|
||||||
db 'Not enough memory', 13, 10, '$'
|
|
||||||
|
|
||||||
segment bss class=bss
|
|
||||||
|
|
||||||
segment stack stack class=stack
|
|
||||||
resb 256
|
|
||||||
stacktop:
|
|
||||||
|
|
||||||
group dgroup data bss stack
|
|
||||||
|
|||||||
211
rtl/msdos/prt0st.asm
Normal file
211
rtl/msdos/prt0st.asm
Normal file
@ -0,0 +1,211 @@
|
|||||||
|
; common startup code for the SMALL and TINY memory models
|
||||||
|
|
||||||
|
cpu 8086
|
||||||
|
|
||||||
|
segment text use16
|
||||||
|
|
||||||
|
extern PASCALMAIN
|
||||||
|
extern dos_psp
|
||||||
|
extern dos_version
|
||||||
|
|
||||||
|
extern _edata ; defined by WLINK, indicates start of BSS
|
||||||
|
extern _end ; defined by WLINK, indicates end of BSS
|
||||||
|
|
||||||
|
extern __stklen
|
||||||
|
extern __stkbottom
|
||||||
|
|
||||||
|
extern __nearheap_start
|
||||||
|
extern __nearheap_end
|
||||||
|
|
||||||
|
%ifdef __TINY__
|
||||||
|
resb 0100h
|
||||||
|
%endif
|
||||||
|
..start:
|
||||||
|
%ifdef __TINY__
|
||||||
|
mov bx, cs
|
||||||
|
%else
|
||||||
|
; init the stack
|
||||||
|
mov bx, dgroup
|
||||||
|
mov ss, bx
|
||||||
|
mov sp, stacktop
|
||||||
|
%endif
|
||||||
|
|
||||||
|
; zero fill the BSS section
|
||||||
|
mov es, bx
|
||||||
|
mov di, _edata wrt dgroup
|
||||||
|
mov cx, _end wrt dgroup
|
||||||
|
sub cx, di
|
||||||
|
jz no_bss
|
||||||
|
xor al, al
|
||||||
|
rep stosb
|
||||||
|
no_bss:
|
||||||
|
|
||||||
|
; save the Program Segment Prefix
|
||||||
|
push ds
|
||||||
|
|
||||||
|
; init DS
|
||||||
|
mov ds, bx
|
||||||
|
|
||||||
|
; pop the PSP from stack and store it in the pascal variable dos_psp
|
||||||
|
pop ax
|
||||||
|
mov word [dos_psp], ax
|
||||||
|
|
||||||
|
; get DOS version and save it in the pascal variable dos_version
|
||||||
|
mov ax, 3000h
|
||||||
|
int 21h
|
||||||
|
xchg al, ah
|
||||||
|
mov word [dos_version], ax
|
||||||
|
|
||||||
|
; allocate max heap
|
||||||
|
; TODO: also support user specified heap size
|
||||||
|
; try to resize our main DOS memory block until the end of the data segment
|
||||||
|
%ifdef __TINY__
|
||||||
|
mov cx, cs
|
||||||
|
mov dx, 1000h ; 64kb in paragraphs
|
||||||
|
%else
|
||||||
|
mov dx, word [dos_psp]
|
||||||
|
mov cx, dx
|
||||||
|
sub dx, dgroup
|
||||||
|
neg dx ; dx = (ds - psp) in paragraphs
|
||||||
|
add dx, 1000h ; 64kb in paragraphs
|
||||||
|
%endif
|
||||||
|
|
||||||
|
; get our MCB size in paragraphs
|
||||||
|
dec cx
|
||||||
|
mov es, cx
|
||||||
|
mov bx, word [es:3]
|
||||||
|
|
||||||
|
; is it smaller than the maximum data segment size?
|
||||||
|
cmp bx, dx
|
||||||
|
jbe skip_mem_realloc
|
||||||
|
|
||||||
|
mov bx, dx
|
||||||
|
inc cx
|
||||||
|
mov es, cx
|
||||||
|
mov ah, 4Ah
|
||||||
|
int 21h
|
||||||
|
jc mem_realloc_err
|
||||||
|
|
||||||
|
skip_mem_realloc:
|
||||||
|
|
||||||
|
; bx = the new size in paragraphs
|
||||||
|
%ifndef __TINY__
|
||||||
|
add bx, word [dos_psp]
|
||||||
|
sub bx, dgroup
|
||||||
|
%endif
|
||||||
|
mov cl, 4
|
||||||
|
shl bx, cl
|
||||||
|
sub bx, 2
|
||||||
|
mov sp, bx
|
||||||
|
|
||||||
|
add bx, 2
|
||||||
|
sub bx, word [__stklen]
|
||||||
|
and bl, 0FEh
|
||||||
|
mov word [__stkbottom], bx
|
||||||
|
|
||||||
|
cmp bx, _end wrt dgroup
|
||||||
|
jb not_enough_mem
|
||||||
|
|
||||||
|
; heap is between [ds:_end wrt dgroup] and [ds:__stkbottom - 1]
|
||||||
|
mov word [__nearheap_start], _end wrt dgroup
|
||||||
|
mov bx, word [__stkbottom]
|
||||||
|
dec bx
|
||||||
|
mov word [__nearheap_end], bx
|
||||||
|
|
||||||
|
jmp PASCALMAIN
|
||||||
|
|
||||||
|
not_enough_mem:
|
||||||
|
mov dx, not_enough_mem_msg
|
||||||
|
jmp error_msg
|
||||||
|
|
||||||
|
mem_realloc_err:
|
||||||
|
mov dx, mem_realloc_err_msg
|
||||||
|
error_msg:
|
||||||
|
mov ah, 9
|
||||||
|
int 21h
|
||||||
|
mov ax, 4CFFh
|
||||||
|
int 21h
|
||||||
|
|
||||||
|
global FPC_MSDOS_CARRY
|
||||||
|
FPC_MSDOS_CARRY:
|
||||||
|
stc
|
||||||
|
global FPC_MSDOS
|
||||||
|
FPC_MSDOS:
|
||||||
|
mov al, 21h ; not ax, because only the low byte is used
|
||||||
|
pop dx
|
||||||
|
pop cx
|
||||||
|
push ax
|
||||||
|
push cx
|
||||||
|
push dx
|
||||||
|
global FPC_INTR
|
||||||
|
FPC_INTR:
|
||||||
|
push bp
|
||||||
|
mov bp, sp
|
||||||
|
mov al, byte [ss:bp + 6]
|
||||||
|
mov byte [cs:int_number], al
|
||||||
|
mov si, [ss:bp + 4]
|
||||||
|
push ds
|
||||||
|
mov ax, word [si + 16]
|
||||||
|
mov es, ax
|
||||||
|
mov ax, word [si + 14] ; ds
|
||||||
|
push ax
|
||||||
|
mov ax, word [si]
|
||||||
|
mov bx, word [si + 2]
|
||||||
|
mov cx, word [si + 4]
|
||||||
|
mov dx, word [si + 6]
|
||||||
|
mov bp, word [si + 8]
|
||||||
|
mov di, word [si + 12]
|
||||||
|
mov si, word [si + 10]
|
||||||
|
|
||||||
|
pop ds
|
||||||
|
db 0CDh ; opcode of INT xx
|
||||||
|
int_number:
|
||||||
|
db 255
|
||||||
|
|
||||||
|
pushf
|
||||||
|
push ds
|
||||||
|
push si
|
||||||
|
push bp
|
||||||
|
mov bp, sp
|
||||||
|
mov si, word [ss:bp + 8]
|
||||||
|
mov ds, si
|
||||||
|
mov si, word [ss:bp + 14]
|
||||||
|
mov word [si], ax
|
||||||
|
mov word [si + 2], bx
|
||||||
|
mov word [si + 4], cx
|
||||||
|
mov word [si + 6], dx
|
||||||
|
mov word [si + 12], di
|
||||||
|
mov ax, es
|
||||||
|
mov word [si + 16], ax
|
||||||
|
pop ax
|
||||||
|
mov word [si + 8], ax
|
||||||
|
pop ax
|
||||||
|
mov word [si + 10], ax
|
||||||
|
pop ax
|
||||||
|
mov word [si + 14], ax
|
||||||
|
pop ax
|
||||||
|
mov word [si + 18], ax
|
||||||
|
|
||||||
|
pop ds
|
||||||
|
pop bp
|
||||||
|
ret 4
|
||||||
|
|
||||||
|
segment data
|
||||||
|
mem_realloc_err_msg:
|
||||||
|
db 'Memory allocation error', 13, 10, '$'
|
||||||
|
not_enough_mem_msg:
|
||||||
|
db 'Not enough memory', 13, 10, '$'
|
||||||
|
|
||||||
|
segment bss class=bss
|
||||||
|
|
||||||
|
%ifndef __TINY__
|
||||||
|
segment stack stack class=stack
|
||||||
|
resb 256
|
||||||
|
stacktop:
|
||||||
|
%endif
|
||||||
|
|
||||||
|
%ifdef __TINY__
|
||||||
|
group dgroup text data bss
|
||||||
|
%else
|
||||||
|
group dgroup data bss stack
|
||||||
|
%endif
|
||||||
@ -1,213 +1,3 @@
|
|||||||
; nasm -f obj -o prt0.o prt0.asm
|
; nasm -f obj -o prt0t.o prt0t.asm
|
||||||
%define TINY
|
%define __TINY__
|
||||||
|
%include "prt0st.asm"
|
||||||
cpu 8086
|
|
||||||
|
|
||||||
segment text use16
|
|
||||||
|
|
||||||
extern PASCALMAIN
|
|
||||||
extern dos_psp
|
|
||||||
extern dos_version
|
|
||||||
|
|
||||||
extern _edata ; defined by WLINK, indicates start of BSS
|
|
||||||
extern _end ; defined by WLINK, indicates end of BSS
|
|
||||||
|
|
||||||
extern __stklen
|
|
||||||
extern __stkbottom
|
|
||||||
|
|
||||||
extern __nearheap_start
|
|
||||||
extern __nearheap_end
|
|
||||||
|
|
||||||
%ifdef TINY
|
|
||||||
resb 0100h
|
|
||||||
%endif
|
|
||||||
..start:
|
|
||||||
%ifdef TINY
|
|
||||||
mov bx, cs
|
|
||||||
%else
|
|
||||||
; init the stack
|
|
||||||
mov bx, dgroup
|
|
||||||
mov ss, bx
|
|
||||||
mov sp, stacktop
|
|
||||||
%endif
|
|
||||||
|
|
||||||
; zero fill the BSS section
|
|
||||||
mov es, bx
|
|
||||||
mov di, _edata wrt dgroup
|
|
||||||
mov cx, _end wrt dgroup
|
|
||||||
sub cx, di
|
|
||||||
jz no_bss
|
|
||||||
xor al, al
|
|
||||||
rep stosb
|
|
||||||
no_bss:
|
|
||||||
|
|
||||||
; save the Program Segment Prefix
|
|
||||||
push ds
|
|
||||||
|
|
||||||
; init DS
|
|
||||||
mov ds, bx
|
|
||||||
|
|
||||||
; pop the PSP from stack and store it in the pascal variable dos_psp
|
|
||||||
pop ax
|
|
||||||
mov word [dos_psp], ax
|
|
||||||
|
|
||||||
; get DOS version and save it in the pascal variable dos_version
|
|
||||||
mov ax, 3000h
|
|
||||||
int 21h
|
|
||||||
xchg al, ah
|
|
||||||
mov word [dos_version], ax
|
|
||||||
|
|
||||||
; allocate max heap
|
|
||||||
; TODO: also support user specified heap size
|
|
||||||
; try to resize our main DOS memory block until the end of the data segment
|
|
||||||
%ifdef TINY
|
|
||||||
mov cx, cs
|
|
||||||
mov dx, 1000h ; 64kb in paragraphs
|
|
||||||
%else
|
|
||||||
mov dx, word [dos_psp]
|
|
||||||
mov cx, dx
|
|
||||||
sub dx, dgroup
|
|
||||||
neg dx ; dx = (ds - psp) in paragraphs
|
|
||||||
add dx, 1000h ; 64kb in paragraphs
|
|
||||||
%endif
|
|
||||||
|
|
||||||
; get our MCB size in paragraphs
|
|
||||||
dec cx
|
|
||||||
mov es, cx
|
|
||||||
mov bx, word [es:3]
|
|
||||||
|
|
||||||
; is it smaller than the maximum data segment size?
|
|
||||||
cmp bx, dx
|
|
||||||
jbe skip_mem_realloc
|
|
||||||
|
|
||||||
mov bx, dx
|
|
||||||
inc cx
|
|
||||||
mov es, cx
|
|
||||||
mov ah, 4Ah
|
|
||||||
int 21h
|
|
||||||
jc mem_realloc_err
|
|
||||||
|
|
||||||
skip_mem_realloc:
|
|
||||||
|
|
||||||
; bx = the new size in paragraphs
|
|
||||||
%ifndef TINY
|
|
||||||
add bx, word [dos_psp]
|
|
||||||
sub bx, dgroup
|
|
||||||
%endif
|
|
||||||
mov cl, 4
|
|
||||||
shl bx, cl
|
|
||||||
sub bx, 2
|
|
||||||
mov sp, bx
|
|
||||||
|
|
||||||
add bx, 2
|
|
||||||
sub bx, word [__stklen]
|
|
||||||
and bl, 0FEh
|
|
||||||
mov word [__stkbottom], bx
|
|
||||||
|
|
||||||
cmp bx, _end wrt dgroup
|
|
||||||
jb not_enough_mem
|
|
||||||
|
|
||||||
; heap is between [ds:_end wrt dgroup] and [ds:__stkbottom - 1]
|
|
||||||
mov word [__nearheap_start], _end wrt dgroup
|
|
||||||
mov bx, word [__stkbottom]
|
|
||||||
dec bx
|
|
||||||
mov word [__nearheap_end], bx
|
|
||||||
|
|
||||||
int 3
|
|
||||||
jmp PASCALMAIN
|
|
||||||
|
|
||||||
not_enough_mem:
|
|
||||||
mov dx, not_enough_mem_msg
|
|
||||||
jmp error_msg
|
|
||||||
|
|
||||||
mem_realloc_err:
|
|
||||||
mov dx, mem_realloc_err_msg
|
|
||||||
error_msg:
|
|
||||||
mov ah, 9
|
|
||||||
int 21h
|
|
||||||
mov ax, 4CFFh
|
|
||||||
int 21h
|
|
||||||
|
|
||||||
global FPC_MSDOS_CARRY
|
|
||||||
FPC_MSDOS_CARRY:
|
|
||||||
stc
|
|
||||||
global FPC_MSDOS
|
|
||||||
FPC_MSDOS:
|
|
||||||
mov al, 21h ; not ax, because only the low byte is used
|
|
||||||
pop dx
|
|
||||||
pop cx
|
|
||||||
push ax
|
|
||||||
push cx
|
|
||||||
push dx
|
|
||||||
global FPC_INTR
|
|
||||||
FPC_INTR:
|
|
||||||
push bp
|
|
||||||
mov bp, sp
|
|
||||||
mov al, byte [ss:bp + 6]
|
|
||||||
mov byte [cs:int_number], al
|
|
||||||
mov si, [ss:bp + 4]
|
|
||||||
push ds
|
|
||||||
mov ax, word [si + 16]
|
|
||||||
mov es, ax
|
|
||||||
mov ax, word [si + 14] ; ds
|
|
||||||
push ax
|
|
||||||
mov ax, word [si]
|
|
||||||
mov bx, word [si + 2]
|
|
||||||
mov cx, word [si + 4]
|
|
||||||
mov dx, word [si + 6]
|
|
||||||
mov bp, word [si + 8]
|
|
||||||
mov di, word [si + 12]
|
|
||||||
mov si, word [si + 10]
|
|
||||||
|
|
||||||
pop ds
|
|
||||||
db 0CDh ; opcode of INT xx
|
|
||||||
int_number:
|
|
||||||
db 255
|
|
||||||
|
|
||||||
pushf
|
|
||||||
push ds
|
|
||||||
push si
|
|
||||||
push bp
|
|
||||||
mov bp, sp
|
|
||||||
mov si, word [ss:bp + 8]
|
|
||||||
mov ds, si
|
|
||||||
mov si, word [ss:bp + 14]
|
|
||||||
mov word [si], ax
|
|
||||||
mov word [si + 2], bx
|
|
||||||
mov word [si + 4], cx
|
|
||||||
mov word [si + 6], dx
|
|
||||||
mov word [si + 12], di
|
|
||||||
mov ax, es
|
|
||||||
mov word [si + 16], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 8], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 10], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 14], ax
|
|
||||||
pop ax
|
|
||||||
mov word [si + 18], ax
|
|
||||||
|
|
||||||
pop ds
|
|
||||||
pop bp
|
|
||||||
ret 4
|
|
||||||
|
|
||||||
segment data
|
|
||||||
mem_realloc_err_msg:
|
|
||||||
db 'Memory allocation error', 13, 10, '$'
|
|
||||||
not_enough_mem_msg:
|
|
||||||
db 'Not enough memory', 13, 10, '$'
|
|
||||||
|
|
||||||
segment bss class=bss
|
|
||||||
|
|
||||||
%ifndef TINY
|
|
||||||
segment stack stack class=stack
|
|
||||||
resb 256
|
|
||||||
stacktop:
|
|
||||||
%endif
|
|
||||||
|
|
||||||
%ifdef TINY
|
|
||||||
group dgroup text data bss
|
|
||||||
%else
|
|
||||||
group dgroup data bss stack
|
|
||||||
%endif
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user