/ chmod - change mode chmode: mov sp,r5 mov (r5),r4 cmp r4,$3 blt chmerr add $4,r5 mov (r5)+,r1 clr 0f 1: movb (r1)+,r0 beq 1f asl 0f asl 0f asl 0f bic $!7,r0 bis r0,0f br 1b 1: mov (r5)+,0f-2 sys chmod; ..; 0:.. bes chmerr dec r4 cmp r4,$3 bge 1b sys exit chmerr: mov $1,r0 sys write; 1f; 2 sys exit 1: <?\n> q 1f jsr pc,1b 1: mov (sp)+,r0 add $'0,r0 jsr pc,putc rts pc cfcc ble 2f dec r4 mulf r3,r0 br 1b 2: modf r2,r0 movfi r1,r0 add $'0,r0 jsr pc,putc mov $'.,r0 j