ior.s 223 B

123456789101112131415161718
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define .ior
  4. ! #bytes in cx
  5. .ior:
  6. pop bx ! return address
  7. mov dx,di
  8. mov di,sp
  9. add di,cx
  10. sar cx,1
  11. 1:
  12. pop ax
  13. or ax,(di)
  14. stos
  15. loop 1b
  16. mov di,dx
  17. jmp bx