ack/mach/i86/libem/ior.s
1985-02-17 00:57:20 +00:00

16 lines
159 B
ArmAsm

.define .ior
! $Header$
! #bytes in cx
.ior:
pop bx ! return address
mov di,sp
add di,cx
sar cx,1
1:
pop ax
or ax,(di)
stos
loop 1b
jmp bx