SliTaz Repositories

     1.1 --- a/linld/stuff/src/A20.ASM	Thu Feb 18 08:56:43 2021 +0000
     1.2 +++ b/linld/stuff/src/A20.ASM	Sun Feb 28 16:32:57 2021 +0000
     1.3 @@ -8,6 +8,8 @@
     1.4                  %nomacs
     1.5                  p8086
     1.6  
     1.7 +	include	"common.inc"
     1.8 +
     1.9          group   DGROUP  _TEXT,_DATA
    1.10          assume  cs:DGROUP,ds:DGROUP
    1.11  
    1.12 @@ -155,10 +157,12 @@
    1.13  		extrn	_topseg:near
    1.14  		call	near _topseg
    1.15  		mov	[word sssp+2],ax
    1.16 +		ifdef	VCPI
    1.17  		and	ch,0			; vcpi flag
    1.18  		org	$-1
    1.19  		global	_vcpi:byte
    1.20  _vcpi		db	?
    1.21 +		endif
    1.22  		else
    1.23                  p386
    1.24  		movzx	eax,[word _heap_top]
    1.25 @@ -186,14 +190,20 @@
    1.26  		sub	eax,ecx
    1.27  		endif
    1.28  		shr	eax,4
    1.29 +		ifdef	VCPI
    1.30  		mov	ch,0
    1.31 +		endif
    1.32  @bzimage:
    1.33  		xchg	ax,dx
    1.34  		mov	ax,9000h
    1.35 +		ifdef	VCPI
    1.36  		extrn	_vcpi:byte
    1.37  		and	ch,[_vcpi]
    1.38  		endif
    1.39 +		endif
    1.40 +		ifdef	VCPI
    1.41  		add	dh,ch		; 60k room for malloc_bufv_or_die
    1.42 +		endif
    1.43  		cmp	ax,dx
    1.44  		ifdef	LARGE_ZIMAGE
    1.45  		ja	@nooverflow0