stime.s 182 B

1234567891011121314
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. stime = 25
  4. .define _stime
  5. _stime:
  6. .data2 0x0000
  7. movl *4(ap),4(ap)
  8. chmk $stime
  9. bcc 1f
  10. jmp cerror
  11. 1:
  12. clrl r0
  13. ret