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