|
|
1.1 ! root 1: ".set exit,1 ! 2: .word 0x0000 ! 3: movab -8(sp),sp ! 4: movl 8(sp),(sp) # argc ! 5: movab 12(sp),r0 ! 6: movl r0,4(sp) # argv ! 7: brb QL3 ! 8: QL1: ! 9: addl2 $4,r0 ! 10: QL3: ! 11: tstl (r0) # null args term ? ! 12: bneq QL1 ! 13: addl2 $4,r0 ! 14: cmpl r0,*4(sp) # end of 'env' or 'argv' ? ! 15: blss QL2 ! 16: subl2 $4,r0 ! 17: tstl (r0) # envp's are in list ! 18: QL2: ! 19: movab dr,8(sp) ! 20: movab ln,4(sp) ! 21: movab 4(sp),r1 ! 22: movab (sp),r2 ! 23: pushl r0 #stack environment ! 24: pushl r1 ! 25: pushab ln ! 26: callf $16,_execve ! 27: kcall $exit ! 28: ln: ! 29: " ! 30: ".asciz \"/usr/ucb/lisp\" ! 31: dr: ! 32: .asciz \"-f\" ! 33: .set exece,59 ! 34: _execve: ! 35: .word 0x0000 ! 36: kcall $exece ! 37: kcall $exit ! 38: ret ! 39: "
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.