[unix-history] / usr / src / usr.bin / lisp / lisplib / autorun / unisoft

; $Header: unisoft 1.2 83/07/25 11:39:17 layer Exp $

"
OFFSET = 0xOFF
start:	movl	a7@(4),a0
clrl	a0@(-4)
movl	a7,a0
subql	#0x8,a7
movl	a0@,a7@
addql	#0x4,a0
movl	a0,a7@(4)
LL0:	tstl	a0@+
bnes	LL0
movl	a7@(4),a1
cmpl	a1@,a0
blts	LL1
subql	#0x4,a0
LL1:	movl	a0,a7@(8)
movl	a0,a1
movl	#OFFSET+file,a2
movl	a2,sp@(4)	| setup new argv[0]
movl	a2,a0		| file to execute
movl	#OFFSET+flag,a2
movl	a2,sp@(8)	| setup new argv[1]
lea	sp@(4),a2
movl	a2,d1
movw	#0x3B,d0
trap	#0x0
file:	.asciz	\"/usr/ucb/lisp\"
flag:	.asciz	\"-f\"
.even
"
Commit	Line	Data
d4b46d56 C	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	"