ack/mach/i86/libem/lar2.s

24 lines
343 B
ArmAsm
Raw Normal View History

1985-02-07 15:33:13 +00:00
.define .lar2
.lar2:
! $Header$
pop bx ! return address
! di, descriptor address
! ax, index
! si, base address
sub ax,(di)
mov cx,4(di)
imul cx
add si,ax
sar cx,1
jnb 1f
xorb ah,ah
lodsb
push ax
jmp bx
1:
sub sp,4(di)
mov di,sp
rep movs
jmp bx