mon.s 217 B

1234567891011121314151617
  1. .define .mon
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .mon:
  8. move.l (sp)+,a0
  9. pea (fmt)
  10. jsr (.diagnos)
  11. add.l #8, sp
  12. jmp (EXIT)
  13. .sect .data
  14. fmt: .asciz "system call %d not implemented\n"
  15. .align 2