[unix-history] / chmod.s

" chmode

   lac 017777 i
   sad d4
   jmp error

   lac 017777
   tad d4
   dac 8
   tad d1
   dac name
   dzm octal
   dzm nchar
   -8
   dac c1
1:
   lac nchar
   dzm nchar
   sza
   jmp 2f
   lac 8 i
   lmq
   and o177
   dac nchar
   lacq
   lrss 9
2:
   sad o40
   jmp 3f
   tad om60
   lmq
   lac octal
   cll; als 3
   omq
   dac octal
3:
   isz c1
   jmp 1b

loop:
   lac 017777 i
   sad d8
   sys exit
   tad dm4
   dac 017777 i
   lac name
   tad d4
   dac name
   lac octal
   sys chmode; name:0
   sma
   jmp loop
   lac name
   dac 1f
   lac d1
   sys write; 1:0; 4
   lac d1
   sys write; 1f; 2
   jmp loop
1:
   040;077012
error:
   lac d1
   sys write; 1b+1; 1
   sys exit

om60: -060
o40: 040
d1: 1
d8: 8
dm4: -4
d4: 4
o177: 0177

nchar: .=.+1
c1: .=.+1
octal: .=.+1
Commit	Line	Data
69f28986 KT	1	" chmode
	2
	3	lac 017777 i
	4	sad d4
	5	jmp error
	6
	7	lac 017777
	8	tad d4
	9	dac 8
	10	tad d1
	11	dac name
	12	dzm octal
	13	dzm nchar
	14	-8
	15	dac c1
	16	1:
	17	lac nchar
	18	dzm nchar
	19	sza
	20	jmp 2f
	21	lac 8 i
	22	lmq
	23	and o177
	24	dac nchar
	25	lacq
	26	lrss 9
	27	2:
	28	sad o40
	29	jmp 3f
	30	tad om60
	31	lmq
	32	lac octal
	33	cll; als 3
	34	omq
	35	dac octal
	36	3:
	37	isz c1
	38	jmp 1b
	39
	40	loop:
	41	lac 017777 i
	42	sad d8
	43	sys exit
	44	tad dm4
	45	dac 017777 i
	46	lac name
	47	tad d4
	48	dac name
	49	lac octal
	50	sys chmode; name:0
	51	sma
	52	jmp loop
	53	lac name
	54	dac 1f
	55	lac d1
	56	sys write; 1:0; 4
	57	lac d1
	58	sys write; 1f; 2
	59	jmp loop
	60	1:
	61	040;077012
	62	error:
	63	lac d1
	64	sys write; 1b+1; 1
65	sys exit
66
67	om60: -060
68	o40: 040
69	d1: 1
70	d8: 8
71	dm4: -4
72	d4: 4
73	o177: 0177
74
75	nchar: .=.+1
76	c1: .=.+1
77	octal: .=.+1