.title runlck Unlock all records on a stream .ident "V02.00" ;+ ; Index Unlock a all records on a stream ; ; Usage ; ; runlck(stream) ; int stream; /* Stream number from open/create */ ; ; Description ; ; ulk() unlocks all records which may have been lock on the ; given stream number. It returns a 0 on error and 1 on success. ;- ; Edit History ; V02.00 19-Oct-82 TTC Rework of old CS library ; .MCALL FSDEF$ FSDEF$ .psect c$code runlck:: mov #FS.ULK,fsqio+q.iofn ; Function: FS.ULK mov #fsqio+q.iopl,r0 ; r0 --> qio param list for prmclr call prmclr ; Clear parameter list mov 2(sp),fsqio+q.iopl ; Parameter #1: Stream Number mov #fsqio,r0 ; r0 must = qio for xqiow call .xqiow ; execute qiow mov #1,r0 ; Assume success cmp $dsw,#is.suc ; How'd it go blo 10$ ; Not so good cmpb f.iosb,#is.suc beq 20$ 10$: clr r0 ; Branch here if error, r0 = 0 20$: return .end