.define hol0, argv, envp, begbss
.define .ignmask,.reghp,.trapproc,.fra
.define .retadr,.retadr1,.areg,.bcreg,.tmp1
.define block1, block2, block3
.define .stop

	.base 0x1000
.text
	lxi h,0x1000		! stack will grow from 0x1000 downwards
	sphl
	lxi h,begbss		! clear bss
	lxi d,endbss-begbss
	mvi c,0

2:	mov m,c
	inx h
	dcx d
	mov a,e
	ora d
	jnz 2b

	lxi h,envp		! call main
	push h
	lxi h,argv
	push h
	lxi h,0
	push h
	call _m_a_i_n
.stop:	jmp 0xfb52
	
.bss
begbss:
.trapproc:	.space	2
.ignmask:	.space	2
.data
hol0:		.space	8
.reghp:		.word	endbss
argv:		.word	0
envp:		.word	0
.retadr:	.space	2		! used to save return address
.retadr1:	.space	2		! reserve
.bcreg:		.space	2		! used to save localbase
.areg:		.space	1
.tmp1:		.space	2
.fra:		.space	8		! 8 bytes function return area
block1:		.space	4		! used by 32 bits divide and
block2:		.space	4		! multiply routines
block3:		.space	4