ari.s 521 B

123456789101112131415161718192021222324252627282930313233343536
  1. .define .sari
  2. .define .lari
  3. .define .aari
  4. .sect .text
  5. .sect .rom
  6. .sect .data
  7. .sect .bss
  8. .sect .text
  9. .aari:
  10. move.l (sp)+,d0 ! return address
  11. cmp.l #4, (sp)+ ! size of descriptor elements
  12. bne 9f
  13. move.l d0,-(sp)
  14. jmp .aar
  15. .lari:
  16. move.l (sp)+,d0 ! return address
  17. cmp.l #4, (sp)+ ! size of descriptor elements
  18. bne 9f
  19. move.l d0,-(sp)
  20. jmp .lar
  21. 9:
  22. move.w #EILLINS,-(sp)
  23. jmp .fat
  24. .sari:
  25. move.l (sp)+,d0 ! return address
  26. cmp.l #4, (sp)+ ! size of descriptor elements
  27. bne 9b
  28. move.l d0,-(sp)
  29. jmp .sar
  30. .align 2