sim.s 318 B

1234567891011121314
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define .sim
  3. ! $Id$
  4. .sim:
  5. movl (sp)+,r0
  6. movl (sp)+,.trpim ! store ignore mask
  7. bbc $5,.trpim,I3 ! floating underflow to be ignored?
  8. bicpsw $0100
  9. jmp (r0)
  10. I3:
  11. bispsw $0100 ! enable underflow trap
  12. jmp (r0)