aix-glink-2a.s 615 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. .toc
  2. .macro defabs,type,name,value
  3. \type \name
  4. \name = \value
  5. .endm
  6. .macro deffun,type,name,fn
  7. \type \name
  8. .csect \name\()[DS]
  9. \name\():
  10. .if size == 32
  11. .long .\name\()[PR],TOC[TC0],0
  12. .else
  13. .llong .\name\()[PR],TOC[TC0],0
  14. .endif
  15. .globl .\name
  16. .csect .\name\()[PR]
  17. .\name\():
  18. nop
  19. .endm
  20. .macro defdata,type,name,contents
  21. \type \name
  22. .csect \name\()[RW]
  23. \name\():
  24. .long \contents
  25. .endm
  26. defabs .globl,a1,0xf100
  27. deffun .globl,a2
  28. defdata .globl,a3,0x1100
  29. defabs .globl,b1,0xf200
  30. deffun .globl,b2
  31. defdata .globl,b3,0x2200
  32. defabs .weak,c1,0xf300
  33. deffun .weak,c2
  34. defdata .weak,c3,0x3300