.title cclrun ; ; call cclrun(iflag) ; iflag returned as zero if RUN, <>zero if CHAINed. ; this routine only detects chaining from non-RT11 ; program. RT11 .CHAINs are detected as shown in ; RT11 Advanced Programmers Guide., i.e, entry is ; via an RT11 .CHAIN if following is non-zero: ; BIT #400,@#44 ; cclrun:: clr @2(r5) ;set iflag to zero mov @#54,r0 ;start of RT11 read/write area tstb 242(r0) ;this byte <> 0 on ccl/chain entry beq 10$ com @2(r5) ;set to -1 10$: return .end