|
|
1.1 root 1: .set stime,25
2: .globl _stime
3: .globl cerror
4:
5: _stime:
6: .word 0x0000
7: movl *4(ap),4(ap) # copy time to set
8: chmk $stime
9: bcc noerror
10: jmp cerror
11: noerror:
12: clrl r0
13: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.