aix-glink-2c.s 480 B

123456789101112131415161718192021222324252627282930313233
  1. .toc
  2. .macro defabs,type,name,value
  3. \type \name
  4. \name = \value
  5. .endm
  6. .macro deffun,type,name
  7. \type \name
  8. .csect \name\()[DS]
  9. \name\():
  10. .long \name\()[PR],TOC[TC0],0
  11. .globl .\name
  12. .csect .\name\()[PR]
  13. .\name\():
  14. nop
  15. .endm
  16. .macro defdata,type,name,contents
  17. \type \name
  18. .csect \name\()[RW]
  19. \name\():
  20. .long \contents
  21. .endm
  22. defabs .globl,a1,0xf400
  23. deffun .globl,a2
  24. defdata .globl,a3,0x4400
  25. defabs .globl,c1,0xf500
  26. deffun .globl,c2
  27. defdata .globl,c3,0x5500