wait.s 197 B

1234567891011121314151617
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. wait = 7
  4. .define _wait
  5. .align 1
  6. _wait:
  7. .data2 0x0000
  8. chmk $wait
  9. bcc 1f
  10. jmp errmon
  11. 1:
  12. tstl 4(ap)
  13. beql 1f
  14. movl r1,*4(ap)
  15. 1:
  16. ret