bspawn.mac;2/au:72.=bspawn.mac;1 -156,,/;V4/ .if df a$$cli clinam: .rad50 /MCR / .endc -337,,/;V4/ .if df a$$cli mov r1,r0 ; need UCB address for $stcli clr u.cli(r0) ; clear all bits mov #clinam,r3 ; address of CLI name swstk$ 35$ ; switch to system state call $stcli ;# set CLI to MCR return ;# return to user state 35$: bcs 40$ ; c set => error in setting CLI mov ucb,r1 ; restore registers mov offset,r2 ; ... .endc /