mirror of https://github.com/nmlgc/ReC98.git
1109 lines
22 KiB
NASM
1109 lines
22 KiB
NASM
; int __cdecl __far string___string(void *, int, char)
|
|
public @string@$bdtr$qv
|
|
@string@$bdtr$qv proc far
|
|
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = word ptr 6
|
|
@@arg_4 = byte ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 1Eh
|
|
push si
|
|
push di
|
|
mov ax, seg strings_10039
|
|
mov bx, offset strings_10039
|
|
call ___InitExceptBlocks
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
sub word ptr es:[bx], 1
|
|
sbb word ptr es:[bx+2], 0
|
|
mov ax, [bp+@@arg_0]
|
|
or ax, [bp+8]
|
|
jz short @@strings_10378
|
|
les bx, dword ptr [bp+@@arg_0]
|
|
les bx, es:[bx]
|
|
dec word ptr es:[bx]
|
|
mov ax, es:[bx]
|
|
or ax, ax
|
|
jnz short @@strings_10365
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
add word ptr es:[bx], 1
|
|
adc word ptr es:[bx+2], 0
|
|
mov ax, 3
|
|
push ax ; char
|
|
les bx, dword ptr [bp+@@arg_0]
|
|
push word ptr es:[bx+2] ; int
|
|
push word ptr es:[bx] ; void *
|
|
nopcall @TStringRef@$bdtr$qv ; TStringRef::~TStringRef(void)
|
|
add sp, 6
|
|
|
|
@@strings_10365:
|
|
test [bp+@@arg_4], 1
|
|
jz short @@strings_10378
|
|
push word ptr [bp+8]
|
|
push [bp+@@arg_0] ; void *
|
|
call @$bdele$qnv ; operator delete(void *)
|
|
pop cx
|
|
pop cx
|
|
|
|
@@strings_10378:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@$bdtr$qv endp
|
|
|
|
|
|
; string::assert_element(unsigned int)const
|
|
public @string@assert_element$xqui
|
|
@string@assert_element$xqui proc far
|
|
|
|
@@var_28 = word ptr -28h
|
|
@@var_26 = word ptr -26h
|
|
@@var_1A = word ptr -1Ah
|
|
@@var_8 = byte ptr -8
|
|
@@var_4 = byte ptr -4
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 28h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_1006D
|
|
mov bx, offset strings_1006D
|
|
call ___InitExceptBlocks
|
|
mov ax, [bp+@@arg_4]
|
|
mov [bp+@@var_28], ax
|
|
les bx, [bp+@@arg_0]
|
|
les bx, es:[bx]
|
|
mov ax, es:[bx+6]
|
|
cmp ax, [bp+@@var_28]
|
|
jbe short @@strings_103B3
|
|
mov ax, 1
|
|
jmp short @@strings_103B5
|
|
|
|
@@strings_103B3:
|
|
xor ax, ax
|
|
|
|
@@strings_103B5:
|
|
or ax, ax
|
|
jnz short @@strings_10436
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
mov ax, 5
|
|
push ax
|
|
mov ax, seg strings_1015F
|
|
push ax
|
|
mov ax, offset strings_1015F
|
|
push ax
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
mov [bp+@@var_1A], 6
|
|
push ds
|
|
mov ax, offset aStringReferenc ; "String reference out of range"
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_4]
|
|
push ax
|
|
nopcall @string@$bctr$qnxc ; string::string(char *)
|
|
add sp, 8
|
|
lea ax, [bp+@@var_4]
|
|
push ss
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_8]
|
|
push ax
|
|
call @xmsg@$bctr$qmx6string ; xmsg::xmsg(string &)
|
|
add sp, 8
|
|
mov [bp+@@var_1A], 0Eh
|
|
mov ax, 2
|
|
push ax ; char
|
|
push ss ; int
|
|
lea ax, [bp+@@var_4]
|
|
push ax ; void *
|
|
call @string@$bdtr$qv ; string::~string(void)
|
|
add sp, 6
|
|
mov [bp+@@var_1A], 6
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
add word ptr es:[bx], 1
|
|
adc word ptr es:[bx+2], 0
|
|
lea ax, [bp+@@var_8]
|
|
push ss
|
|
push ax
|
|
push cs
|
|
mov ax, offset strings_10BF5
|
|
push ax
|
|
call @_ThrowException$qnvt1t1t1uiuiuinuc ; _ThrowException(void *,void *,void *,void *,uint,uint,uint,uchar *)
|
|
add sp, 1Ah
|
|
|
|
@@strings_10436:
|
|
push [bp+@@var_26]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@assert_element$xqui endp
|
|
|
|
|
|
; string::assert_index(unsigned int)const
|
|
public @string@assert_index$xqui
|
|
@string@assert_index$xqui proc far
|
|
|
|
@@var_28 = word ptr -28h
|
|
@@var_26 = word ptr -26h
|
|
@@var_1A = word ptr -1Ah
|
|
@@var_8 = byte ptr -8
|
|
@@var_4 = byte ptr -4
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 28h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_100B1
|
|
mov bx, offset strings_100B1
|
|
call ___InitExceptBlocks
|
|
mov ax, [bp+@@arg_4]
|
|
mov [bp+@@var_28], ax
|
|
les bx, [bp+@@arg_0]
|
|
les bx, es:[bx]
|
|
mov ax, es:[bx+6]
|
|
cmp ax, [bp+@@var_28]
|
|
jb short @@strings_10471
|
|
mov ax, 1
|
|
jmp short @@strings_10473
|
|
|
|
@@strings_10471:
|
|
xor ax, ax
|
|
|
|
@@strings_10473:
|
|
or ax, ax
|
|
jnz short @@strings_104F4
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
mov ax, 5
|
|
push ax
|
|
mov ax, seg strings_1015F
|
|
push ax
|
|
mov ax, offset strings_1015F
|
|
push ax
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
mov [bp+@@var_1A], 6
|
|
push ds
|
|
mov ax, offset aStringRefere_0 ; "String reference out of range"
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_4]
|
|
push ax
|
|
nopcall @string@$bctr$qnxc ; string::string(char *)
|
|
add sp, 8
|
|
lea ax, [bp+@@var_4]
|
|
push ss
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_8]
|
|
push ax
|
|
call @xmsg@$bctr$qmx6string ; xmsg::xmsg(string &)
|
|
add sp, 8
|
|
mov [bp+@@var_1A], 0Eh
|
|
mov ax, 2
|
|
push ax ; char
|
|
push ss ; int
|
|
lea ax, [bp+@@var_4]
|
|
push ax ; void *
|
|
call @string@$bdtr$qv ; string::~string(void)
|
|
add sp, 6
|
|
mov [bp+@@var_1A], 6
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
add word ptr es:[bx], 1
|
|
adc word ptr es:[bx+2], 0
|
|
lea ax, [bp+@@var_8]
|
|
push ss
|
|
push ax
|
|
push cs
|
|
mov ax, offset strings_10BF5
|
|
push ax
|
|
call @_ThrowException$qnvt1t1t1uiuiuinuc ; _ThrowException(void *,void *,void *,void *,uint,uint,uint,uchar *)
|
|
add sp, 1Ah
|
|
|
|
@@strings_104F4:
|
|
push [bp+@@var_26]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@assert_index$xqui endp
|
|
|
|
|
|
; TSubString::assert_element(unsigned int)const
|
|
public @TSubString@assert_element$xqui
|
|
@TSubString@assert_element$xqui proc far
|
|
|
|
@@var_28 = word ptr -28h
|
|
@@var_26 = word ptr -26h
|
|
@@var_1A = word ptr -1Ah
|
|
@@var_8 = byte ptr -8
|
|
@@var_4 = byte ptr -4
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 28h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_100F5
|
|
mov bx, offset strings_100F5
|
|
call ___InitExceptBlocks
|
|
mov ax, [bp+@@arg_4]
|
|
mov [bp+@@var_28], ax
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+6]
|
|
cmp ax, [bp+@@var_28]
|
|
jbe short @@strings_1052C
|
|
mov ax, 1
|
|
jmp short @@strings_1052E
|
|
|
|
@@strings_1052C:
|
|
xor ax, ax
|
|
|
|
@@strings_1052E:
|
|
or ax, ax
|
|
jnz short @@strings_105AF
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
push ax
|
|
mov ax, 5
|
|
push ax
|
|
mov ax, seg strings_1015F
|
|
push ax
|
|
mov ax, offset strings_1015F
|
|
push ax
|
|
xor ax, ax
|
|
push ax
|
|
push ax
|
|
mov [bp+@@var_1A], 6
|
|
push ds
|
|
mov ax, offset aStringRefere_1 ; "String reference out of range"
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_4]
|
|
push ax
|
|
nopcall @string@$bctr$qnxc ; string::string(char *)
|
|
add sp, 8
|
|
lea ax, [bp+@@var_4]
|
|
push ss
|
|
push ax
|
|
push ss
|
|
lea ax, [bp+@@var_8]
|
|
push ax
|
|
call @xmsg@$bctr$qmx6string ; xmsg::xmsg(string &)
|
|
add sp, 8
|
|
mov [bp+@@var_1A], 0Eh
|
|
mov ax, 2
|
|
push ax ; char
|
|
push ss ; int
|
|
lea ax, [bp+@@var_4]
|
|
push ax ; void *
|
|
call @string@$bdtr$qv ; string::~string(void)
|
|
add sp, 6
|
|
mov [bp+@@var_1A], 6
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
add word ptr es:[bx], 1
|
|
adc word ptr es:[bx+2], 0
|
|
lea ax, [bp+@@var_8]
|
|
push ss
|
|
push ax
|
|
push cs
|
|
mov ax, offset strings_10BF5
|
|
push ax
|
|
call @_ThrowException$qnvt1t1t1uiuiuinuc ; _ThrowException(void *,void *,void *,void *,uint,uint,uint,uchar *)
|
|
add sp, 1Ah
|
|
|
|
@@strings_105AF:
|
|
push [bp+@@var_26]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TSubString@assert_element$xqui endp
|
|
|
|
|
|
; int __cdecl __far TStringRef__TStringRef(__int32, size_t n, int, int, int, int, int, int)
|
|
public @TStringRef@$bctr$qnxcuit1uiui
|
|
@TStringRef@$bctr$qnxcuit1uiui proc far
|
|
|
|
@@arg_0 = dword ptr 6
|
|
n = word ptr 0Ah
|
|
@@arg_6 = word ptr 0Ch
|
|
@@arg_8 = word ptr 0Eh
|
|
@@arg_A = word ptr 10h
|
|
@@arg_C = word ptr 12h
|
|
@@arg_E = word ptr 14h
|
|
@@arg_10 = word ptr 16h
|
|
|
|
push bp
|
|
mov bp, sp
|
|
push si
|
|
push di
|
|
mov ax, word ptr [bp+@@arg_0]
|
|
or ax, word ptr [bp+@@arg_0+2]
|
|
jnz short @@strings_105E1
|
|
mov ax, 0Ch
|
|
push ax
|
|
call @$bnew$qui ; operator new(uint)
|
|
pop cx
|
|
mov word ptr [bp+@@arg_0+2], dx
|
|
mov word ptr [bp+@@arg_0], ax
|
|
or ax, dx
|
|
jnz short @@strings_105E1
|
|
jmp @@strings_10687
|
|
|
|
@@strings_105E1:
|
|
les bx, [bp+@@arg_0]
|
|
mov word ptr es:[bx], 1
|
|
mov word ptr es:[bx+0Ah], 0
|
|
mov ax, [bp+@@arg_8]
|
|
add ax, [bp+@@arg_E]
|
|
mov es:[bx+6], ax
|
|
mov ax, es:[bx+6]
|
|
add ax, [bp+@@arg_10]
|
|
push ax
|
|
nopcall @TStringRef@round_capacity$qui ; TStringRef::round_capacity(uint)
|
|
pop cx
|
|
les bx, [bp+@@arg_0]
|
|
mov es:[bx+8], ax
|
|
mov ax, es:[bx+8]
|
|
inc ax
|
|
push ax ; size
|
|
call _malloc
|
|
pop cx
|
|
les bx, [bp+@@arg_0]
|
|
mov es:[bx+4], dx
|
|
mov es:[bx+2], ax
|
|
mov ax, es:[bx+2]
|
|
or ax, es:[bx+4]
|
|
jnz short @@strings_1063B
|
|
push ds
|
|
mov ax, offset ___xalloc
|
|
push ax
|
|
call @xalloc@raise$qv ; xalloc::raise(void)
|
|
pop cx
|
|
pop cx
|
|
|
|
@@strings_1063B:
|
|
push [bp+@@arg_8]
|
|
push [bp+@@arg_6]
|
|
push [bp+n] ; n
|
|
les bx, [bp+@@arg_0]
|
|
push word ptr es:[bx+4] ; src
|
|
push word ptr es:[bx+2] ; dest
|
|
call _memcpy
|
|
push [bp+@@arg_E]
|
|
push [bp+@@arg_C]
|
|
push [bp+@@arg_A] ; n
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+2]
|
|
add ax, [bp+@@arg_8]
|
|
push word ptr es:[bx+4] ; src
|
|
push ax ; dest
|
|
call _memcpy
|
|
add sp, 14h
|
|
les bx, [bp+@@arg_0]
|
|
les bx, es:[bx+2]
|
|
mov ax, [bp+@@arg_8]
|
|
add ax, [bp+@@arg_E]
|
|
add bx, ax
|
|
mov byte ptr es:[bx], 0
|
|
|
|
@@strings_10687:
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
add word ptr es:[bx], 1
|
|
adc word ptr es:[bx+2], 0
|
|
mov dx, word ptr [bp+@@arg_0+2]
|
|
mov ax, word ptr [bp+@@arg_0]
|
|
pop di
|
|
pop si
|
|
pop bp
|
|
retf
|
|
@TStringRef@$bctr$qnxcuit1uiui endp
|
|
|
|
|
|
; int __cdecl __far TStringRef___TStringRef(void *, int, char)
|
|
public @TStringRef@$bdtr$qv
|
|
@TStringRef@$bdtr$qv proc far
|
|
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = word ptr 6
|
|
@@arg_4 = byte ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 1Eh
|
|
push si
|
|
push di
|
|
mov ax, seg strings_1010F
|
|
mov bx, offset strings_1010F
|
|
call ___InitExceptBlocks
|
|
call @__RefDestructorCount$qv ; __RefDestructorCount(void)
|
|
mov bx, ax
|
|
mov es, dx
|
|
sub word ptr es:[bx], 1
|
|
sbb word ptr es:[bx+2], 0
|
|
mov ax, [bp+@@arg_0]
|
|
or ax, [bp+8]
|
|
jz short @@strings_106F5
|
|
les bx, dword ptr [bp+@@arg_0]
|
|
push word ptr es:[bx+4]
|
|
push word ptr es:[bx+2] ; block
|
|
call _farfree
|
|
pop cx
|
|
pop cx
|
|
test [bp+@@arg_4], 1
|
|
jz short @@strings_106F5
|
|
push word ptr [bp+8]
|
|
push [bp+@@arg_0] ; void *
|
|
call @$bdele$qnv ; operator delete(void *)
|
|
pop cx
|
|
pop cx
|
|
|
|
@@strings_106F5:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@$bdtr$qv endp
|
|
|
|
|
|
; TStringRef::reserve(unsigned int)
|
|
public @TStringRef@reserve$qui
|
|
@TStringRef@reserve$qui proc far
|
|
|
|
@@var_20 = word ptr -20h
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 20h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_10121
|
|
mov bx, offset strings_10121
|
|
call ___InitExceptBlocks
|
|
les bx, [bp+@@arg_0]
|
|
or word ptr es:[bx+0Ah], 1
|
|
mov ax, [bp+@@arg_4]
|
|
inc ax
|
|
push ax
|
|
nopcall @TStringRef@round_capacity$qui ; TStringRef::round_capacity(uint)
|
|
pop cx
|
|
mov [bp+@@var_20], ax
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+8]
|
|
sub ax, [bp+@@var_20]
|
|
cmp ax, ds:@string@freeboard ; string::freeboard
|
|
jbe short @@strings_10763
|
|
mov ax, [bp+@@var_20]
|
|
inc ax
|
|
push ax
|
|
push word ptr es:[bx+4] ; size
|
|
push word ptr es:[bx+2] ; block
|
|
call _realloc
|
|
add sp, 6
|
|
les bx, [bp+@@arg_0]
|
|
mov es:[bx+4], dx
|
|
mov es:[bx+2], ax
|
|
mov ax, [bp+@@var_20]
|
|
mov es:[bx+8], ax
|
|
|
|
@@strings_10763:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@reserve$qui endp
|
|
|
|
|
|
; TStringRef::check_freeboard(void)
|
|
public @TStringRef@check_freeboard$qv
|
|
@TStringRef@check_freeboard$qv proc far
|
|
|
|
@@var_20 = word ptr -20h
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = dword ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 20h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_1012B
|
|
mov bx, offset strings_1012B
|
|
call ___InitExceptBlocks
|
|
les bx, [bp+@@arg_0]
|
|
push word ptr es:[bx+6]
|
|
nopcall @TStringRef@round_capacity$qui ; TStringRef::round_capacity(uint)
|
|
pop cx
|
|
mov [bp+@@var_20], ax
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+8]
|
|
sub ax, [bp+@@var_20]
|
|
cmp ax, ds:@string@freeboard ; string::freeboard
|
|
jbe short @@strings_107CB
|
|
mov ax, [bp+@@var_20]
|
|
inc ax
|
|
push ax
|
|
push word ptr es:[bx+4] ; size
|
|
push word ptr es:[bx+2] ; block
|
|
call _realloc
|
|
add sp, 6
|
|
les bx, [bp+@@arg_0]
|
|
mov es:[bx+4], dx
|
|
mov es:[bx+2], ax
|
|
mov ax, [bp+@@var_20]
|
|
mov es:[bx+8], ax
|
|
|
|
@@strings_107CB:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@check_freeboard$qv endp
|
|
|
|
|
|
; TStringRef::grow_to(unsigned int)
|
|
public @TStringRef@grow_to$qui
|
|
@TStringRef@grow_to$qui proc far
|
|
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 1Eh
|
|
push si
|
|
push di
|
|
mov ax, seg strings_1013D
|
|
mov bx, offset strings_1013D
|
|
call ___InitExceptBlocks
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, [bp+@@arg_4]
|
|
mov es:[bx+8], ax
|
|
mov ax, es:[bx+8]
|
|
inc ax
|
|
push ax
|
|
push word ptr es:[bx+4] ; size
|
|
push word ptr es:[bx+2] ; block
|
|
call _realloc
|
|
add sp, 6
|
|
les bx, [bp+@@arg_0]
|
|
mov es:[bx+4], dx
|
|
mov es:[bx+2], ax
|
|
mov ax, es:[bx+2]
|
|
or ax, es:[bx+4]
|
|
jnz short @@strings_1082D
|
|
push ds
|
|
mov ax, offset ___xalloc
|
|
push ax
|
|
call @xalloc@raise$qv ; xalloc::raise(void)
|
|
pop cx
|
|
pop cx
|
|
|
|
@@strings_1082D:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@grow_to$qui endp
|
|
|
|
|
|
; TStringRef::round_capacity(unsigned int)
|
|
public @TStringRef@round_capacity$qui
|
|
@TStringRef@round_capacity$qui proc far
|
|
|
|
@@var_20 = word ptr -20h
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 20h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_10147
|
|
mov bx, offset strings_10147
|
|
call ___InitExceptBlocks
|
|
mov ax, ds:@string@initial_capac ; string::initial_capac
|
|
mov [bp+@@var_20], ax
|
|
mov cx, ds:@string@resize_inc ; string::resize_inc
|
|
mov ax, [bp+@@arg_0]
|
|
sub ax, [bp+@@var_20]
|
|
add ax, cx
|
|
dec ax
|
|
xor dx, dx
|
|
div cx
|
|
imul cx
|
|
add ax, [bp+@@var_20]
|
|
push ax
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop ax
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@round_capacity$qui endp
|
|
|
|
|
|
; int __cdecl __far TStringRef__splice(__int32, int, int, size_t n, int, int)
|
|
public @TStringRef@splice$quiuinxcui
|
|
@TStringRef@splice$quiuinxcui proc far
|
|
|
|
@@var_26 = word ptr -26h
|
|
@@var_24 = word ptr -24h
|
|
@@src = word ptr -22h
|
|
@@var_1E = word ptr -1Eh
|
|
@@arg_0 = dword ptr 6
|
|
@@arg_4 = word ptr 0Ah
|
|
@@arg_6 = word ptr 0Ch
|
|
n = word ptr 0Eh
|
|
@@arg_A = word ptr 10h
|
|
@@arg_C = word ptr 12h
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 26h
|
|
push si
|
|
push di
|
|
mov ax, seg strings_10159
|
|
mov bx, offset strings_10159
|
|
call ___InitExceptBlocks
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+6]
|
|
add ax, [bp+@@arg_C]
|
|
sub ax, [bp+@@arg_6]
|
|
mov [bp+@@var_24], ax
|
|
push ax
|
|
call @TStringRef@round_capacity$qui ; TStringRef::round_capacity(uint)
|
|
pop cx
|
|
mov [bp+@@var_26], ax
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+8]
|
|
cmp ax, [bp+@@var_26]
|
|
jnb short @@strings_108C2
|
|
push [bp+@@var_26]
|
|
push word ptr [bp+@@arg_0+2]
|
|
push bx
|
|
call @TStringRef@grow_to$qui ; TStringRef::grow_to(uint)
|
|
add sp, 6
|
|
jmp short @@strings_10931
|
|
|
|
@@strings_108C2:
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+8]
|
|
sub ax, [bp+@@var_26]
|
|
cmp ax, ds:@string@freeboard ; string::freeboard
|
|
jbe short @@strings_10931
|
|
test byte ptr es:[bx+0Ah], 1
|
|
jnz short @@strings_10931
|
|
mov ax, [bp+@@var_26]
|
|
inc ax
|
|
push ax ; size
|
|
call _malloc
|
|
pop cx
|
|
mov [bp+@@src+2], dx
|
|
mov [bp+@@src], ax
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+2]
|
|
or ax, es:[bx+4]
|
|
jnz short @@strings_10903
|
|
push ds
|
|
mov ax, offset ___xalloc
|
|
push ax
|
|
call @xalloc@raise$qv ; xalloc::raise(void)
|
|
pop cx
|
|
pop cx
|
|
|
|
@@strings_10903:
|
|
cmp [bp+@@arg_4], 0
|
|
jz short @@strings_10925
|
|
push [bp+@@arg_4]
|
|
les bx, [bp+@@arg_0]
|
|
push word ptr es:[bx+4]
|
|
push word ptr es:[bx+2] ; n
|
|
push [bp+@@src+2] ; src
|
|
push [bp+@@src] ; dest
|
|
call _memcpy
|
|
add sp, 0Ah
|
|
|
|
@@strings_10925:
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, [bp+@@var_26]
|
|
mov es:[bx+8], ax
|
|
jmp short @@strings_10942
|
|
|
|
@@strings_10931:
|
|
les bx, [bp+@@arg_0]
|
|
mov dx, es:[bx+4]
|
|
mov ax, es:[bx+2]
|
|
mov [bp+@@src+2], dx
|
|
mov [bp+@@src], ax
|
|
|
|
@@strings_10942:
|
|
les bx, [bp+@@arg_0]
|
|
mov dx, es:[bx+4]
|
|
mov ax, es:[bx+2]
|
|
cmp dx, [bp+@@src+2]
|
|
jnz short @@strings_1095F
|
|
cmp ax, [bp+@@src]
|
|
jnz short @@strings_1095F
|
|
mov ax, [bp+@@arg_C]
|
|
cmp ax, [bp+@@arg_6]
|
|
jz short @@strings_10991
|
|
|
|
@@strings_1095F:
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, es:[bx+6]
|
|
sub ax, [bp+@@arg_4]
|
|
sub ax, [bp+@@arg_6]
|
|
push ax
|
|
mov ax, es:[bx+2]
|
|
add ax, [bp+@@arg_4]
|
|
add ax, [bp+@@arg_6]
|
|
push word ptr es:[bx+4]
|
|
push ax ; n
|
|
mov ax, [bp+@@src]
|
|
add ax, [bp+@@arg_4]
|
|
add ax, [bp+@@arg_C]
|
|
push [bp+@@src+2] ; src
|
|
push ax ; dest
|
|
call _memmove
|
|
add sp, 0Ah
|
|
|
|
@@strings_10991:
|
|
cmp [bp+@@arg_C], 0
|
|
jz short @@strings_109D5
|
|
mov ax, [bp+n]
|
|
or ax, [bp+@@arg_A]
|
|
jz short @@strings_109BC
|
|
push [bp+@@arg_C]
|
|
push [bp+@@arg_A]
|
|
push [bp+n] ; n
|
|
mov ax, [bp+@@src]
|
|
add ax, [bp+@@arg_4]
|
|
push [bp+@@src+2] ; src
|
|
push ax ; dest
|
|
call _memmove
|
|
add sp, 0Ah
|
|
jmp short @@strings_109D5
|
|
|
|
@@strings_109BC:
|
|
push [bp+@@arg_C]
|
|
mov ax, 20h ; ' '
|
|
push ax ; n
|
|
mov ax, [bp+@@src]
|
|
add ax, [bp+@@arg_4]
|
|
push [bp+@@src+2] ; c
|
|
push ax ; s
|
|
call _memset
|
|
add sp, 8
|
|
|
|
@@strings_109D5:
|
|
les bx, [bp+@@arg_0]
|
|
mov ax, [bp+@@var_24]
|
|
mov es:[bx+6], ax
|
|
push es
|
|
les ax, dword ptr [bp+@@src]
|
|
mov dx, es
|
|
pop es
|
|
add ax, es:[bx+6]
|
|
mov bx, ax
|
|
mov es, dx
|
|
mov byte ptr es:[bx], 0
|
|
les bx, [bp+@@arg_0]
|
|
mov dx, es:[bx+4]
|
|
mov ax, es:[bx+2]
|
|
cmp dx, [bp+@@src+2]
|
|
jnz short @@strings_10A07
|
|
cmp ax, [bp+@@src]
|
|
jz short @@strings_10A2A
|
|
|
|
@@strings_10A07:
|
|
les bx, [bp+@@arg_0]
|
|
push word ptr es:[bx+4]
|
|
push word ptr es:[bx+2] ; block
|
|
call _farfree
|
|
pop cx
|
|
pop cx
|
|
les bx, [bp+@@arg_0]
|
|
mov dx, [bp+@@src+2]
|
|
mov ax, [bp+@@src]
|
|
mov es:[bx+4], dx
|
|
mov es:[bx+2], ax
|
|
|
|
@@strings_10A2A:
|
|
push [bp+@@var_1E]
|
|
call ___ExitExceptBlocks
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@TStringRef@splice$quiuinxcui endp
|
|
|
|
|
|
; string::set_case_sensitive(int)
|
|
public @string@set_case_sensitive$qi
|
|
@string@set_case_sensitive$qi proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@case_sensitive ; string::case_sensitive
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@case_sensitive, ax ; string::case_sensitive
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@set_case_sensitive$qi endp
|
|
|
|
|
|
; string::set_paranoid_check(int)
|
|
public @string@set_paranoid_check$qi
|
|
@string@set_paranoid_check$qi proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@paranoid_check ; string::paranoid_check
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@paranoid_check, ax ; string::paranoid_check
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@set_paranoid_check$qi endp
|
|
|
|
|
|
; string::skip_whitespace(int)
|
|
public @string@skip_whitespace$qi
|
|
@string@skip_whitespace$qi proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@skip_white ; string::skip_white
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@skip_white, ax ; string::skip_white
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@skip_whitespace$qi endp
|
|
|
|
|
|
; string::initial_capacity(unsigned int)
|
|
public @string@initial_capacity$qui
|
|
@string@initial_capacity$qui proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@initial_capac ; string::initial_capac
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@initial_capac, ax ; string::initial_capac
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@initial_capacity$qui endp
|
|
|
|
|
|
; string::resize_increment(unsigned int)
|
|
public @string@resize_increment$qui
|
|
@string@resize_increment$qui proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@resize_inc ; string::resize_inc
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@resize_inc, ax ; string::resize_inc
|
|
cmp ds:@string@resize_inc, 0 ; string::resize_inc
|
|
jnz short @@strings_10ACD
|
|
mov ds:@string@resize_inc, 1 ; string::resize_inc
|
|
|
|
@@strings_10ACD:
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@resize_increment$qui endp
|
|
|
|
|
|
; string::max_waste(unsigned int)
|
|
public @string@max_waste$qui
|
|
@string@max_waste$qui proc far
|
|
|
|
@@var_2 = word ptr -2
|
|
@@arg_0 = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 2
|
|
push si
|
|
push di
|
|
mov ax, ds:@string@freeboard ; string::freeboard
|
|
mov [bp+@@var_2], ax
|
|
mov ax, [bp+@@arg_0]
|
|
mov ds:@string@freeboard, ax ; string::freeboard
|
|
mov ax, [bp+@@var_2]
|
|
pop di
|
|
pop si
|
|
mov sp, bp
|
|
pop bp
|
|
retf
|
|
@string@max_waste$qui endp
|
|
|
|
strings_10AF3 db 4, 0, 3, 0, 26h, 0, 2 dup(0FFh), 7, 0, 3Ah, 0, 46h ; ...
|
|
db 0Dh dup(0), 2, 0, 2, 0
|
|
dd strings_10194
|
|
db 5, 0, 4Ah, 0
|
|
db 'string::lengtherror',0
|
|
dd strings_10B83
|
|
db 2 dup(0), 3, 0Dh dup(0)
|
|
strings_10B41 db 6, 0, 3, 0, 26h, 0, 2 dup(0FFh), 7, 0, 2Eh, 0, 3Ah ; ...
|
|
db 0Dh dup(0), 2, 0, 2, 0
|
|
dd strings_101E1
|
|
dw 5
|
|
dw 3Eh
|
|
aXalloc db 'xalloc',0
|
|
db 0
|
|
dd strings_10B83
|
|
db 2 dup(0), 3, 0Dh dup(0)
|
|
strings_10B83 db 4, 0, 3, 0, 26h, 0, 2 dup(0FFh), 3, 0, 2Ch, 0, 30h ; ...
|
|
db 0Dh dup(0), 1, 0, 1, 0
|
|
dd @xmsg@$bdtr$qv ; xmsg::~xmsg(void)
|
|
dw 5
|
|
dw 34h
|
|
db 'xmsg',0
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
db 0
|
|
strings_10BBB db 4, 0, 3, 0, 26h, 0, 2 dup(0FFh), 3, 0, 2Eh, 0, 32h ; ...
|
|
db 0Dh dup(0), 1, 0, 1, 0
|
|
dd @string@$bdtr$qv ; string::~string(void)
|
|
dw 5
|
|
dw 36h
|
|
aString db 'string',0
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
db 0
|
|
strings_10BF5 db 4, 0, 3, 0, 26h, 0, 2 dup(0FFh), 7, 0, 3Ah, 0, 46h ; ...
|
|
db 0Dh dup(0), 2, 0, 2, 0
|
|
dd strings_1022E
|
|
db 5, 0, 4Ah, 0
|
|
aStringOutofran db 'string::outofrange',0
|
|
db 0
|
|
dd strings_10B83
|
|
dw 0
|
|
dw 3
|
|
dd 0
|
|
dd 0
|
|
dd 0
|