xdup.s 210 B

12345678910111213141516
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .define ___xdup
  3. .sect .text
  4. ___xdup:
  5. push bp
  6. mov bp,sp
  7. mov ax,41
  8. mov cx,6(bp)
  9. mov bx,4(bp)
  10. call syscal
  11. jae 1f
  12. mov (_errno),ax
  13. mov ax,-1
  14. 1:
  15. pop bp
  16. ret