cfi.s 322 B

123456789101112131415161718192021
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define cfi
  4. cfi:
  5. move.l (sp)+,a0
  6. move.l (sp)+,d1 ! should be 4
  7. move.l (sp)+,d0
  8. cmp.l #4,d0
  9. bne 1f
  10. move.l (sp),d0
  11. move.l a0,-(sp)
  12. jsr (Fints)
  13. move.l d0,(4,sp)
  14. rts
  15. 1:
  16. move.l (sp)+,d0
  17. move.l (sp),d1
  18. move.l a0,-(sp)
  19. jsr (Fintd)
  20. move.l d0,(4,sp)
  21. rts