.title jswset .ident /840126/ .mcall .rctrlo ; ;Sets bits in Job Status Word ; ;Registers used ; R0 Return address ; R1 scratch ; jswset:: mov (sp)+,r0 mov #1,r1 ;set up for shift ash (sp)+,r1 bis r1,@#44 ;set bit .rctrlo jmp (r0) .end