.file	"20010408-1.c"
	.section	.rodata.str1.1,"aMS",@progbits,1
.LC0:
	.string	"#?"
	.text
	.align	2
	.globl	AclSetPerm
	.type	AclSetPerm, @function
AclSetPerm:
	link.w %a6,#0
	movm.l #0x3e38,-(%sp)
	move.l 8(%a6),%d6
	move.l 12(%a6),%d5
	move.l 16(%a6),%d4
	move.l 20(%a6),%a3
.L8:
	move.b (%a3),%d0
	jbeq .L42
	.align	2
.L40:
	move.b %d0,%d1
	extb.l %d1
	moveq.l #42,%d2
	cmp.l %d1,%d2
	jbeq .L7
	jblt .L39
	moveq.l #35,%d2
	cmp.l %d1,%d2
	jbeq .L9
.L25:
	move.l %a3,%a2
	tst.b %d0
	jbeq .L49
	cmp.b #32,%d0
	jbeq .L49
	cmp.b #9,%d0
	jbeq .L49
	cmp.b #44,%d0
	jbeq .L49
	.align	2
.L31:
	addq.l #1,%a2
	move.b (%a2),%d2
	jbeq .L27
	cmp.b #32,%d2
	jbeq .L27
	cmp.b #9,%d2
	jbeq .L27
	cmp.b #44,%d2
	jbne .L31
.L27:
	tst.b %d2
	jbeq .L32
	clr.b (%a2)+
.L32:
	move.l %a3,-(%sp)
	jbsr FindCommnr
	move.l %d0,%d3
	addq.l #4,%sp
	moveq.l #-1,%d0
	cmp.l %d3,%d0
	jbeq .L33
	lsl.l #3,%d3
	add.l #comms,%d3
	move.l %d3,-(%sp)
	move.l %d4,-(%sp)
	move.l %d5,-(%sp)
	jbsr AclSetPermCmd
	lea (12,%sp),%sp
.L34:
	tst.b %d2
	jbeq .L37
	move.b %d2,-1(%a2)
.L37:
	move.l %a2,%a3
.L3:
	move.b (%a3),%d0
	jbne .L40
.L42:
	clr.l %d0
	jbra .L1
	.align	2
.L33:
	move.l %a3,-(%sp)
	jbsr WindowByNoN
	addq.l #4,%sp
	tst.l %d0
	jblt .L35
	lea wtab,%a0
	move.l (%a0,%d0.l*4),%d0
	jbeq .L35
	move.l %d0,-(%sp)
	move.l %d4,-(%sp)
	move.l %d5,-(%sp)
	clr.l -(%sp)
	jbsr AclSetPermWin
	lea (16,%sp),%sp
	jbra .L34
	.align	2
.L35:
	moveq.l #-1,%d0
	jbra .L1
	.align	2
.L49:
	move.b (%a3),%d2
	jbra .L27
	.align	2
.L9:
	tst.l %d6
	jbeq .L10
	pea 1.w
.L50:
	move.l %d4,-(%sp)
	move.l %d5,-(%sp)
	move.l %d6,-(%sp)
	jbsr AclSetPermWin
	lea (16,%sp),%sp
.L19:
	addq.l #1,%a3
	jbra .L3
	.align	2
.L10:
	move.l windows,%a2
	tst.l %a2
	jbeq .L19
	lea AclSetPermWin,%a4
.L16:
	move.l %a2,-(%sp)
	move.l %d4,-(%sp)
	move.l %d5,-(%sp)
	clr.l -(%sp)
	jbsr (%a4)
	lea (16,%sp),%sp
	move.l (%a2),%a2
	tst.l %a2
	jbne .L16
	jbra .L19
	.align	2
.L39:
	moveq.l #63,%d2
	cmp.l %d1,%d2
	jbne .L25
	tst.l %d6
	jbeq .L18
	clr.l -(%sp)
	jbra .L50
	.align	2
.L18:
	lea AclSetPermCmd,%a2
	move.l #comms,%d2
	moveq.l #81,%d3
	not.b %d3
	.align	2
.L24:
	move.l %d2,-(%sp)
	move.l %d4,-(%sp)
	move.l %d5,-(%sp)
	jbsr (%a2)
	lea (12,%sp),%sp
	subq.l #1,%d3
	addq.l #8,%d2
	tst.l %d3
	jbge .L24
	jbra .L19
	.align	2
.L7:
	lea .LC0,%a3
	jbra .L8
	.align	2
.L1:
	movm.l -32(%a6),#0x1c7c
	unlk %a6
	rts
	.size	AclSetPerm, .-AclSetPerm
	.ident	"GCC: (GNU) 3.3.2"