.TITLE WTLO4 .IDENT "V1.01" .ENABL LC .PSECT .PROG. ; ; ; Wait for logical OR of event flags. ; ; don't know why wtlo.mac in CX distribution has wtlo4 commented out - ; we supply it here in an additional module. ; ; int wtlo4(msk) /* Wait on flags 65-80 */ ; ; Returns DSW. ; #include for symbolic DSW return codes. ; .mcall wtlo$s wtlo4:: mov 2(sp),r0 ;r0 = mask wtlo$s 4,r0 mov $dsw,r0 ;return dsw return .end