ack/mach/i80/libem/sti.s

.define .sti
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

! Store indirect
! Expects on stack:	number of bytes to be stored
!			bytes to be stored
	
.sti:	pop h
	shld .retadr
	mov l,c
	mov h,b
	shld .bcreg	! save bc

	pop h
	xra a
	mov a,d
	rar
	mov d,a
	mov a,e
	rar
	mov e,a		! de = word count
	jnc 1f

! if 1 byte array element only:
	mov a,d		! trap if de odd and <>1
	ora e
	cnz eoddz
	pop b
	mov m,c
	jmp 2f
	
1:	pop b
	mov m,c
	inx h
	mov m,b
	inx h
	dcx d
	mov a,d
	ora e
	jnz 1b

2:	lhld .bcreg
	mov c,l
	mov b,h
	lhld .retadr
	pchl