isar.s 284 B

1234567891011121314151617181920
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define isar~
  4. .extern sar~,trp~
  5. ! $Id$
  6. EILLINS = 022
  7. isar~:
  8. mov (sp)+,r0
  9. cmp (sp)+,$02
  10. bne 1f
  11. mov 02(sp),r1
  12. mov r0,02(sp)
  13. mov (sp)+,r0
  14. jmp sar~
  15. 1: mov $EILLINS,-(sp)
  16. jsr pc,trp~
  17. add $06,sp
  18. jmp (r0)