.TITLE STLO Stop on Logical-OR of Event FLags .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index STLO Stop on Logical-OR of Event Flags ; ; ; Usage ; ; #include ; word msk; /* 16 bit mask word */ ; word status; /* Returned DSW */ ; ; status = stlo0(msk); /* Stop on flags 1-16 */ ; status = stlo1(msk); /* Stop on flags 17-32 */ ; status = stlo2(msk); /* Stop on flags 33-48 */ ; status = stlo3(msk); /* Stop on flags 49-64 */ ; status = stlo4(msk); /* Stop on flags 65-80 */ ; status = stlo5(msk); /* Stop on flags 81-96 */ ; ; ; Notes ; ; DEC chose not to make the group parameter a variable. It is fixed ; at assembly time regardless of the form of the macro!! Soooo, there ; are 6 entry points for stlo, one for each group of event flags. ; ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix Documentation. Add the ; rest of the groups. ; .mcall stlo$s stlo0:: mov 2(sp),r0 ;r0 = mask stlo$s 0,r0 br fin stlo1:: mov 2(sp),r0 ;r0 = mask stlo$s 1,r0 br fin stlo2:: mov 2(sp),r0 ;r0 = mask stlo$s 2,r0 br fin stlo3:: mov 2(sp),r0 ;r0 = mask stlo$s 3,r0 br fin stlo4:: mov 2(sp),r0 ;r0 = mask stlo$s 4,r0 br fin stlo5:: mov 2(sp),r0 ;r0 = mask stlo$s 5,r0 fin: mov $dsw,r0 ;return dsw return .end