_creat.s 300 B

12345678910111213141516171819202122232425
  1. .define __creat
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .extern __creat
  8. .sect .text
  9. __creat:
  10. tst.b -40(sp)
  11. link a6,#-0
  12. move.w 12(a6), d2
  13. ext.l d2
  14. move.l d2,-(sp)
  15. move.l 8(a6),-(sp)
  16. jsr __Screat
  17. add.l #8,sp
  18. unlk a6
  19. rts
  20. __Screat: trap #0
  21. .data2 0x8
  22. bcc 1f
  23. jmp cerror
  24. 1:
  25. rts