|
|
1.1 ! root 1: ; $Header: unisoft 1.2 83/07/25 11:39:17 layer Exp $ ! 2: ! 3: " ! 4: OFFSET = 0xOFF ! 5: start: movl a7@(4),a0 ! 6: clrl a0@(-4) ! 7: movl a7,a0 ! 8: subql #0x8,a7 ! 9: movl a0@,a7@ ! 10: addql #0x4,a0 ! 11: movl a0,a7@(4) ! 12: LL0: tstl a0@+ ! 13: bnes LL0 ! 14: movl a7@(4),a1 ! 15: cmpl a1@,a0 ! 16: blts LL1 ! 17: subql #0x4,a0 ! 18: LL1: movl a0,a7@(8) ! 19: movl a0,a1 ! 20: movl #OFFSET+file,a2 ! 21: movl a2,sp@(4) | setup new argv[0] ! 22: movl a2,a0 | file to execute ! 23: movl #OFFSET+flag,a2 ! 24: movl a2,sp@(8) | setup new argv[1] ! 25: lea sp@(4),a2 ! 26: movl a2,d1 ! 27: movw #0x3B,d0 ! 28: trap #0x0 ! 29: file: .asciz \"/usr/ucb/lisp\" ! 30: flag: .asciz \"-f\" ! 31: .even ! 32: "
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.