head_em.s 665 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. .define .lino,.filn
  2. .define EXIT
  3. .define begtext,begdata,begbss
  4. .define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
  5. .define hol0,.reghp,.limhp,.trpim,.trppc
  6. .define LINO_AD,FILN_AD
  7. .sect .text
  8. .sect .rom
  9. .sect .data
  10. .sect .bss
  11. .sect .text
  12. LINO_AD = 0
  13. FILN_AD = 4
  14. EARRAY = 0
  15. ERANGE = 1
  16. ESET = 2
  17. EIDIVZ = 6
  18. EHEAP = 17
  19. EILLINS = 18
  20. ECASE = 20
  21. .sect .text
  22. begtext:
  23. add.l #2,sp !convert argc from 4-byte to 2-byte
  24. jsr __m_a_i_n
  25. add #010,sp
  26. EXIT:
  27. move.w d0,-(sp)
  28. jsr __exit
  29. .sect .data
  30. begdata:
  31. hol0:
  32. .lino:
  33. .data2 0,0 ! lino
  34. .filn:
  35. .data4 0 ! filn
  36. .reghp:
  37. .data4 endbss
  38. .limhp:
  39. .data4 endbss
  40. .trppc:
  41. .data4 0
  42. .trpim:
  43. .data2 0
  44. .sect .bss
  45. begbss: