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